Add extra test blob type

[dbsrgits/DBIx-Class.git] / t / 746sybase.t

diff --git a/t/746sybase.t b/t/746sybase.t
index 6b54699..4bcc6dd 100644 (file)
--- a/t/746sybase.t
+++ b/t/746sybase.t
@@ -346,10 +346,11 @@ SQL
       $dbh->do(qq[
         CREATE TABLE bindtype_test 
         (
-          id    INT   IDENTITY PRIMARY KEY,
-          bytea IMAGE NULL,
-          blob  IMAGE NULL,
-          clob  TEXT  NULL
+          id     INT   IDENTITY PRIMARY KEY,
+          bytea  IMAGE NULL,
+          blob   IMAGE NULL,
+          clob   TEXT  NULL,
+          a_memo IMAGE NULL
         )
       ],{ RaiseError => 1, PrintError => 0 });
     }
@@ -441,11 +442,13 @@ SQL
           bytea => 1,
           blob => $binstr{large},
           clob => $new_str,
+          a_memo => 2,
         },
         {
           bytea => 1,
           blob => $binstr{large},
           clob => $new_str,
+          a_memo => 2,
         },
       ]);
     } 'insert_bulk with blobs does not die';
@@ -471,12 +474,14 @@ SQL
             bytea => 1,
             blob => $binstr{large},
             clob => $new_str,
+            a_memo => 2,
           },
           {
             id => 2,
             bytea => 1,
             blob => $binstr{large},
             clob => $new_str,
+            a_memo => 2,
           },
         ]);
       } 'insert_bulk with blobs and explicit identity does NOT die';