/[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 1033 by dpavlin, Tue Feb 3 20:40:03 2009 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 => 7;  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' );
# Line 19  diag dump( $o ) if $debug; Line 20  diag dump( $o ) if $debug;
20    
21  ok( my $h = $o->as_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    
# Line 26  ok( my @h = $o->as_markup('Frey::Pod'), Line 28  ok( my @h = $o->as_markup('Frey::Pod'),
28  diag dump( @h ) if $debug;  diag dump( @h ) if $debug;
29  isa_ok( \@h, 'ARRAY' );  isa_ok( \@h, 'ARRAY' );
30    
31    html_ok( $_ ) foreach @h;
32    
Legend:
Removed from v.1033  
changed lines
  Added in v.1034
  ViewVC Help
Powered by ViewVC 1.1.26