/[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 214 by dpavlin, Fri Oct 31 19:53:50 2008 UTC revision 1034 by dpavlin, Tue Feb 3 21:24:02 2009 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 => 11;
8  use lib 'lib';  use lib 'lib';
9    
10  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
11    
12  BEGIN {  BEGIN {
13          use_ok('Frey::Pod');          use_ok('Frey::Pod');
14            use_ok('Test::HTML::Lint');
15  }  }
16    
17  ok( my $o = Frey::Pod->new( class => 'Frey::Pod', debug => $debug ), 'new' );  ok( my $o = Frey::Pod->new( class => 'Frey::Pod', debug => $debug ), 'new' );
18  isa_ok( $o, 'Frey::Pod' );  isa_ok( $o, 'Frey::Pod' );
19  diag dump( $o ) if $debug;  diag dump( $o ) if $debug;
20    
21  ok( my $h = $o->markup('Frey::Pod'), 'markup' );  ok( my $h = $o->as_markup('Frey::Pod'), 'markup' );
22  diag $h if $debug;  diag $h if $debug;
23    html_ok($h);
24    
25  like( $h, qr/Frey::Pod/, 'found me' );  like( $h, qr/Frey::Pod/, 'found me' );
26    
27    ok( my @h = $o->as_markup('Frey::Pod'), 'markup' );
28    diag dump( @h ) if $debug;
29    isa_ok( \@h, 'ARRAY' );
30    
31    html_ok( $_ ) foreach @h;
32    
Legend:
Removed from v.214  
changed lines
  Added in v.1034
  ViewVC Help
Powered by ViewVC 1.1.26