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

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

revision 454 by dpavlin, Wed Nov 5 08:20:59 2008 UTC revision 455 by dpavlin, Wed Nov 19 15:28:23 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 => 4;  use Test::More tests => 5;
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::Dumper');          use_ok('Frey::Dumper');
14  }  }
15    
16  ok( my $o = Frey::Dumper->new( data => { foo => 'bar' } ), 'new' );  my $data = { foo => 'bar' };
17  ok( my $markup = $o->markup, 'markup' );  
18    ok( my $o = Frey::Dumper->new( data => $data ), 'new' );
19    ok( my $markup = $o->as_markup, 'markup' );
20  diag $markup if $debug;  diag $markup if $debug;
21  like( $markup, qr/foo.*bar/, 'correct' );  like( $markup, qr/foo.*bar/, 'correct' );
22    is_deeply( $o->as_data, $data, 'as_data' );
23    
Legend:
Removed from v.454  
changed lines
  Added in v.455
  ViewVC Help
Powered by ViewVC 1.1.26