/[Frey]/trunk/t/05-Frey-View-JSON.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/05-Frey-View-JSON.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/t/05-frey-json.t revision 448 by dpavlin, Wed Nov 19 03:36:24 2008 UTC trunk/t/05-Frey-View-JSON.t revision 962 by dpavlin, Wed Jan 7 19:42:36 2009 UTC
# Line 10  use lib 'lib'; Line 10  use lib 'lib';
10  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
11    
12  BEGIN {  BEGIN {
13          use_ok('Frey::JSON');          use_ok('Frey::View::JSON');
14  }  }
15    
16  ok( my $o = Frey::JSON->new( data => { foo => 'bar' } ), 'new' );  ok( my $o = Frey::View::JSON->new( data => { foo => 'bar' } ), 'new' );
17  ok( my $markup = $o->markup, 'markup' );  ok( my $markup = $o->as_markup, 'markup' );
18  diag $markup if $debug;  diag $markup if $debug;
19  like( $markup, qr/foo.*bar/, 'correct' );  like( $markup, qr/foo.*bar/, 'correct' );
20  cmp_ok( $o->page, 'eq', $markup, 'no html markup' );  cmp_ok( $o->html_page, 'eq', $markup, 'no html markup' );
21    
Legend:
Removed from v.448  
changed lines
  Added in v.962
  ViewVC Help
Powered by ViewVC 1.1.26