Parent Directory | Revision Log | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |