/[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 126 by dpavlin, Mon Jul 14 23:12:48 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 13  BEGIN { Line 13  BEGIN {
13          use_ok('Frey::Pod');          use_ok('Frey::Pod');
14  }  }
15    
16  ok( my $o = Frey::Pod->new( class => 'Strix::User', debug => $debug ), 'new' );  ok( my $o = Frey::Pod->new( class => 'Frey::Pod', debug => $debug ), 'new' );
17  isa_ok( $o, 'Frey::Pod' );  isa_ok( $o, 'Frey::Pod' );
18  diag dump( $o ) if $debug;  diag dump( $o ) if $debug;
19    
# 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.126  
changed lines
  Added in v.405
  ViewVC Help
Powered by ViewVC 1.1.26