projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0c630df
)
Use fddl on cross-platform test to try to work for more databases. remove limit from...
author
Nathan Bird
<nathan@acceleration.net>
Tue, 2 Feb 2010 16:26:27 +0000
(11:26 -0500)
committer
Nathan Bird
<nathan@acceleration.net>
Tue, 2 Feb 2010 16:26:27 +0000
(11:26 -0500)
tests/test-time.lisp
patch
|
blob
|
history
diff --git
a/tests/test-time.lisp
b/tests/test-time.lisp
index d18bd1ec5443670c52d3acf04200c4c9e347c22a..9a9136f1698ea10f798f17ced7bf17fb10ccf52e 100644
(file)
--- 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)
(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
(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")))
: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*
'(
(setq *rt-time*
'(
@@
-260,8
+264,7
@@
:values (list time))
(let ((testtime
(first (clsql:select [testtime]
: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)
)))
:where [= [testtime] time] ))))
(format-time nil (parse-timestring testtime) :format :iso)
)))
@@
-275,8
+278,7
@@
:values (list time))
(let ((testtime
(first (clsql:select [testtime]
: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)
)))
:where [= [testtime] time] ))))
(format-time nil (parse-timestring testtime) :format :iso)
)))
@@
-290,8
+292,7
@@
:values (list time))
(let ((testtime
(first (clsql:select [testtime]
: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)
)))
:where [= [testtime] time] ))))
(format-time nil (parse-timestring testtime) :format :iso)
)))