r9395: 18 May 2004 Kevin Rosenberg (kevin@rosenberg.net)

[clsql.git] / tests / test-basic.lisp

diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp
index bdf671f2c62e455aa1d8abc32592cb00f1de5ba5..1cd09d2b50fe1171da577a48444b2f093e5597a6 100644 (file)
--- a/tests/test-basic.lisp
+++ b/tests/test-basic.lisp
@@ -202,11 +202,12 @@
               (clsql-sys:number-to-sql-string test-flt)
               (clsql-sys:number-to-sql-string test-flt)
               ))
-      (clsql:execute-command
-       (format nil "INSERT INTO TYPE_BIGINT VALUES (~a,~a)"
-              test-int
-              (transform-bigint-1 test-int)
-              )))))
+      (when (clsql-sys:db-type-has-bigint? *test-database-type*)
+       (clsql:execute-command
+        (format nil "INSERT INTO TYPE_BIGINT VALUES (~a,~a)"
+                test-int
+                (transform-bigint-1 test-int)
+                ))))))
 
 ;;;; Testing functions