view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

    $cur_test++;
}

########################## TEST ROUTINES ################################


#
#  load driver
#
sub test_load_dbd {
    my $ok = require DBD::RDB;
    check( $ok, 'require of DBD::RDB' );
}

#
# try to connect to a non existing database, expect error
#
sub test_connect_error {
    my $dbh = DBI->connect( 'dbi:RDB: ATTACH FILENAME XXXX.RDB', 
		            "", "", $std_attribs );
    my $ok = ($DBI::errstr =~ /RDB\-E\-BAD_DB_FORMAT/);