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");
# test primary key handling
my $new = OraTest::Artist->create({ name => 'foo' });
-ok($new->artistid, "Oracle Auto-PK worked");
+is($new->artistid, 1, "Oracle Auto-PK worked");
# test LIMIT support
for (1..6) {