or
(not $dsn || $dsn2);
-DBICTest::Schema->load_classes('ArtistGUID');
-
# tests stolen from 748informix.t
plan skip_all => <<'EOF' unless $dsn || $dsn2;
_USER and _PASS to run these tests
EOF
+require DBICTest::Schema;
+DBICTest::Schema->load_classes('ArtistGUID');
+
my @info = (
[ $dsn, $user, $pass ],
[ $dsn2, $user2, $pass2 ],
auto_savepoint => 1
});
- my $guard = Scope::Guard->new(\&cleanup);
+ my $guard = Scope::Guard->new(sub{ cleanup($schema) });
my $dbh = $schema->storage->dbh;
done_testing;
sub cleanup {
+ my $schema = shift;
eval { $schema->storage->dbh->do("DROP TABLE $_") }
for qw/artist artist_guid bindtype_test/;
}