/[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 404 by dpavlin, Fri Oct 31 19:53:50 2008 UTC revision 405 by dpavlin, Tue Nov 18 11:45:15 2008 UTC
# Line 4  use warnings; Line 4  use warnings;
4    
5  my $debug = @ARGV ? 1 : 0;  my $debug = @ARGV ? 1 : 0;
6    
7  use Test::More tests => 5;  use Test::More tests => 7;
8  use lib 'lib';  use lib 'lib';
9    
10  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
# Line 21  ok( my $h = $o->markup('Frey::Pod'), 'ma Line 21  ok( my $h = $o->markup('Frey::Pod'), 'ma
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' );
26    diag dump( @h ) if $debug;
27    isa_ok( \@h, 'ARRAY' );
28    
Legend:
Removed from v.404  
changed lines
  Added in v.405
  ViewVC Help
Powered by ViewVC 1.1.26