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/;
}