From 0364b03f9b49590d89156c2fa6c8718ed7804b07 Mon Sep 17 00:00:00 2001 From: Nathan Bird Date: Tue, 2 Feb 2010 11:26:27 -0500 Subject: [PATCH] Use fddl on cross-platform test to try to work for more databases. remove limit from queries that don't need them. --- tests/test-time.lisp | 29 +++++++++++++++-------------- 1 file changed, 15 insertions(+), 14 deletions(-) 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) ))) -- 2.34.1