package TengTest;
use strict;
use parent qw(Teng);
sub prepare_db {
my ( $class, $dbh ) = @_;
my $driver = lc $dbh->{Driver}->{Name};
my $method = "create_$driver";
my $code = $class->can( $method );
if ( ! $code ) {
die "$class: Don't know how to create tables for driver '$driver'";
}
$code->( $class, $dbh );
}
# for backward compatibility.
# remove this method later.
sub setup_test_db {
my $self = shift;
$self->prepare_db($self->dbh);
}
1;