use Test::More;

open my($fh), "<datafile";
my $count = do { my $i; $i++ while <$fh>; $i };
seek ( $fh, 0, 0 );

plan tests => $count;

load_database("datafile"); # or whatever

while (<$fh>) {
  ok( in_database( $_ ) );
}