Add extra test blob type

[dbsrgits/DBIx-Class.git] / t / 749sqlanywhere.t

diff --git a/t/749sqlanywhere.t b/t/749sqlanywhere.t
index 9091c2d..e086065 100644 (file)
--- a/t/749sqlanywhere.t
+++ b/t/749sqlanywhere.t
@@ -134,10 +134,11 @@ EOF
   $dbh->do(qq[
   CREATE TABLE bindtype_test
   (
-    id    INT          NOT NULL PRIMARY KEY,
-    bytea INT          NULL,
-    blob  LONG BINARY  NULL,
-    clob  LONG VARCHAR NULL
+    id     INT          NOT NULL PRIMARY KEY,
+    bytea  INT          NULL,
+    blob   LONG BINARY  NULL,
+    clob   LONG VARCHAR NULL,
+    a_memo INT          NULL
   )
   ],{ RaiseError => 1, PrintError => 1 });
 
@@ -176,9 +177,9 @@ EOF
 
     $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',
@@ -220,5 +221,6 @@ SQL
 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/;
 }