--- trunk/t/2-parse.t	2006/09/24 17:49:05	687
+++ trunk/t/2-parse.t	2006/09/24 18:52:35	689
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Test::More tests => 8;
+use Test::More tests => 19;
 use Test::Exception;
 use blib;
 
@@ -32,6 +32,22 @@
 		debug => $debug,
 ), "new");
 
+my $inputs = {
+	foo => [ qw/foo-input1 foo-input2/ ],
+	bar => [ qw/bar-input/ ],
+	baz => [ qw/baz-input/ ],
+};
+
+foreach my $db (qw/foo bar baz/) {
+	ok($parser->valid_database($db), "database $db");
+	ok($inputs->{$db}, "has known inputs");
+	diag "valid inputs = ", dump($inputs->{$db});
+	foreach my $i (@{ $inputs->{$db} }) {
+		ok($parser->valid_database_input($db,$i), "input $i");
+	}
+}
+ok(! $parser->valid_database('non-existant'), "no database");
+
 ok($parser->{source}, "source exist");
 
 ok($parser->parse, 'parse');