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;
ok($rs->find($id)->$type eq $binstr{$size}, "verified inserted $size $type" );
}
}
-
+
my @uuid_types = qw/uniqueidentifier uniqueidentifierstr/;
# test uniqueidentifiers (and the cursor_class).
done_testing;
sub cleanup {
+ my $schema = shift;
eval { $schema->storage->dbh->do("DROP TABLE $_") }
for qw/artist artist_guid bindtype_test/;
}