/[Frey]/trunk/t/03-frey-pod.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/03-frey-pod.t

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

revision 454 by dpavlin, Tue Nov 18 11:45:15 2008 UTC revision 455 by dpavlin, Wed Nov 19 15:28:23 2008 UTC
# Line 17  ok( my $o = Frey::Pod->new( class => 'Fr Line 17  ok( my $o = Frey::Pod->new( class => 'Fr
17  isa_ok( $o, 'Frey::Pod' );  isa_ok( $o, 'Frey::Pod' );
18  diag dump( $o ) if $debug;  diag dump( $o ) if $debug;
19    
20  ok( my $h = $o->markup('Frey::Pod'), 'markup' );  ok( my $h = $o->as_markup('Frey::Pod'), 'markup' );
21  diag $h if $debug;  diag $h if $debug;
22    
23  like( $h, qr/Frey::Pod/, 'found me' );  like( $h, qr/Frey::Pod/, 'found me' );
24    
25  ok( my @h = $o->markup('Frey::Pod'), 'markup' );  ok( my @h = $o->as_markup('Frey::Pod'), 'markup' );
26  diag dump( @h ) if $debug;  diag dump( @h ) if $debug;
27  isa_ok( \@h, 'ARRAY' );  isa_ok( \@h, 'ARRAY' );
28    
Legend:
Removed from v.454  
changed lines
  Added in v.455
  ViewVC Help
Powered by ViewVC 1.1.26