Parent Directory | Revision Log | Patch
revision 448 by dpavlin, Wed Nov 19 03:36:24 2008 UTC | revision 455 by dpavlin, Wed Nov 19 15:28:23 2008 UTC | |
---|---|---|
# | Line 14 BEGIN { | Line 14 BEGIN { |
14 | } | } |
15 | ||
16 | ok( my $o = Frey::JSON->new( data => { foo => 'bar' } ), 'new' ); | ok( my $o = Frey::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->page, 'eq', $markup, 'no html markup' ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |