From: Nathan Bird <nathan@acceleration.net>
Date: Tue, 2 Feb 2010 16:26:27 +0000 (-0500)
Subject: Use fddl on cross-platform test to try to work for more databases. remove limit from... 
X-Git-Tag: v5.0.0~31
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=0364b03f9b49590d89156c2fa6c8718ed7804b07

Use fddl on cross-platform test to try to work for more databases. remove limit from queries that don't need them.
---

diff --git a/tests/test-time.lisp b/tests/test-time.lisp
index d18bd1e..9a9136f 100644
--- a/tests/test-time.lisp
+++ b/tests/test-time.lisp
@@ -8,14 +8,6 @@
 (in-package #:clsql-tests)
 #.(clsql-sys:locally-enable-sql-reader-syntax)
 
-(def-dataset *ds-datetest*
-  (:setup (lambda () (clsql-sys:create-view-from-class 'datetest)))
-  (:cleanup "DROP TABLE datetest"))
-
-(def-dataset *cross-platform-datetest*
-  (:setup "CREATE TABLE DATETEST (TESTTIME TIMESTAMP)")
-  (:cleanup "DROP TABLE DATETEST"))
-
 (def-view-class datetest ()
   ((testtimetz :COLUMN "testtimetz" :TYPE
 	       clsql-sys:wall-time :DB-KIND :BASE
@@ -30,6 +22,18 @@
 	     :testtime :INITFORM COMMON-LISP:NIL
 	     :DB-TYPE "timestamp without time zone")))
 
+(def-dataset *ds-datetest*
+  (:setup (lambda () (clsql-sys:create-view-from-class 'datetest)))
+  (:cleanup "DROP TABLE datetest"))
+
+
+(def-dataset *cross-platform-datetest*
+  (:setup (lambda () (create-table [datetest]
+				   '(([testtime] wall-time)))))
+  (:cleanup (lambda ()
+	      (drop-table [datetest]))))
+
+
 (setq *rt-time*
       '(
 
@@ -260,8 +264,7 @@
 				  :values (list time))
 	(let ((testtime
 	       (first (clsql:select [testtime]
-				    :from [datetest]
-				    :limit 1 :flatp T
+				    :from [datetest] :flatp T
 				    :where [= [testtime] time] ))))
 	  (format-time nil (parse-timestring testtime) :format :iso)
 	  )))
@@ -275,8 +278,7 @@
 				  :values (list time))
 	(let ((testtime
 	       (first (clsql:select [testtime]
-				    :from [datetest]
-				    :limit 1 :flatp T
+				    :from [datetest] :flatp T
 				    :where [= [testtime] time] ))))
 	  (format-time nil (parse-timestring testtime) :format :iso)
 	  )))
@@ -290,8 +292,7 @@
 				  :values (list time))
 	(let ((testtime
 	       (first (clsql:select [testtime]
-				    :from [datetest]
-				    :limit 1 :flatp T
+				    :from [datetest] :flatp T
 				    :where [= [testtime] time] ))))
 	  (format-time nil (parse-timestring testtime) :format :iso)
 	  )))