sub run_tests {
+my $schema = shift;
my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_ORA_${_}" } qw/DSN USER PASS/};
DBICTest::Schema->compose_connection('OraTest' => $dsn, $user, $pass);
-my $dbh = OraTest::Artist->storage->dbh;
+my $dbh = OraTest->schema->storage->dbh;
eval {
$dbh->do("DROP SEQUENCE artist_seq");