{
$schema->storage->dbh_do (sub {
my ($storage, $dbh) = @_;
- eval { $dbh->do("DROP TABLE artist") };
+ eval { $dbh->do("DROP TABLE artist_guid") };
$dbh->do(<<'SQL');
-CREATE TABLE artist (
+CREATE TABLE artist_guid (
artistid UNIQUEIDENTIFIER NOT NULL,
name VARCHAR(100),
rank INT NOT NULL DEFAULT '13',
is $rs->find($row->id)->amount, undef,'updated money value to NULL round-trip';
}
-
done_testing;
# clean up our mess
END {
if (my $dbh = eval { $schema->storage->_dbh }) {
eval { $dbh->do("DROP TABLE $_") }
- for qw/artist money_test books owners/;
+ for qw/artist artist_guid money_test books owners/;
}
}
# vim:sw=2 sts=2
$schema->storage->dbh_do (sub {
my ($storage, $dbh) = @_;
- eval { $dbh->do("DROP TABLE artist") };
+ eval { $dbh->do("DROP TABLE artist_guid") };
$dbh->do(<<"SQL");
-CREATE TABLE artist (
+CREATE TABLE artist_guid (
artistid $uuid_type NOT NULL,
name VARCHAR(100),
rank INT NOT NULL DEFAULT '13',
done_testing;
sub cleanup {
- eval { $schema->storage->dbh->do("DROP TABLE $_") } for qw/artist bindtype_test/;
+ eval { $schema->storage->dbh->do("DROP TABLE $_") }
+ for qw/artist artist_guid bindtype_test/;
}
# test MSSQL uniqueidentifier type
-__PACKAGE__->table('artist');
+__PACKAGE__->table('artist_guid');
__PACKAGE__->add_columns(
'artistid' => {
data_type => 'uniqueidentifier' # auto_nextval not necessary for PK