/[Frey]/trunk/t/02-Frey-DBI-Sponge.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/02-Frey-DBI-Sponge.t

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

revision 935 by dpavlin, Tue Jan 6 00:23:51 2009 UTC revision 936 by dpavlin, Tue Jan 6 11:56:28 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 => 3;  use Test::More tests => 4;
8  use lib 'lib';  use lib 'lib';
9    
10  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
# Line 25  ok( my $o = Frey::DBI::Sponge->new( Line 25  ok( my $o = Frey::DBI::Sponge->new(
25                  ],                  ],
26          },          },
27  ), 'new' );  ), 'new' );
28  ok( my $data = $o->to_database_as_data, 'to_database' );  ok( my $markup = $o->to_database_as_markup, 'to_database' );
29  diag dump( $data ) if $debug;  diag dump( $markup ) if $debug;
30    like( $markup, qr/test/, 'markup' );
31    
Legend:
Removed from v.935  
changed lines
  Added in v.936
  ViewVC Help
Powered by ViewVC 1.1.26