Parent Directory | Revision Log | Patch
revision 690 by dpavlin, Sun Sep 24 18:52:35 2006 UTC | revision 691 by dpavlin, Sun Sep 24 21:13:36 2006 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | #!/usr/bin/perl -w | #!/usr/bin/perl -w |
2 | ||
3 | use strict; | use strict; |
4 | use Test::More tests => 19; | use Test::More tests => 18; |
5 | use Test::Exception; | use Test::Exception; |
6 | use blib; | use blib; |
7 | ||
# | Line 47 foreach my $db (qw/foo bar baz/) { | Line 47 foreach my $db (qw/foo bar baz/) { |
47 | } | } |
48 | } | } |
49 | ok(! $parser->valid_database('non-existant'), "no database"); | ok(! $parser->valid_database('non-existant'), "no database"); |
50 | ok(! $parser->valid_database_input('foo','non-existant'), "no database input"); | |
51 | ||
ok($parser->{source}, "source exist"); | ||
52 | ||
ok($parser->parse, 'parse'); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |