projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Export the new symbol: *time-format*.
[clsql.git]
/
tests
/
test-oodml.lisp
diff --git
a/tests/test-oodml.lisp
b/tests/test-oodml.lisp
index f0d3d9b9e98baed6c1e9aaee674abb503d09dfe1..4848075cf30e5bded8a72e3e2c6f80686dcaf6c7 100644
(file)
--- a/
tests/test-oodml.lisp
+++ b/
tests/test-oodml.lisp
@@
-15,7
+15,8
@@
(in-package #:clsql-tests)
(in-package #:clsql-tests)
-#.(clsql:locally-enable-sql-reader-syntax)
+(clsql-sys:file-enable-sql-reader-syntax)
+
(setq *rt-oodml*
'(
(setq *rt-oodml*
'(
@@
-127,7
+128,7
@@
;; test retrieval of node, derived nodes etc
(deftest :oodml/select/12
(with-dataset *ds-nodes*
;; test retrieval of node, derived nodes etc
(deftest :oodml/select/12
(with-dataset *ds-nodes*
- (length (clsql:select 'node :where [no
de-id
] :flatp t :caching nil)))
+ (length (clsql:select 'node :where [no
t [null [node-id]]
] :flatp t :caching nil)))
11)
(deftest :oodml/select/13
11)
(deftest :oodml/select/13
@@
-140,7
+141,7
@@
(deftest :oodml/select/14
(with-dataset *ds-nodes*
(deftest :oodml/select/14
(with-dataset *ds-nodes*
- (length (clsql:select 'setting :where [
setting-id
] :flatp t :caching nil)))
+ (length (clsql:select 'setting :where [
not [null [setting-id]]
] :flatp t :caching nil)))
4)
(deftest :oodml/select/15
4)
(deftest :oodml/select/15
@@
-155,7
+156,7
@@
(deftest :oodml/select/16
(with-dataset *ds-nodes*
(deftest :oodml/select/16
(with-dataset *ds-nodes*
- (length (clsql:select 'user :where [
user-id
] :flatp t :caching nil)))
+ (length (clsql:select 'user :where [
not [null [user-id]]
] :flatp t :caching nil)))
2)
(deftest :oodml/select/17
2)
(deftest :oodml/select/17
@@
-170,7
+171,7
@@
(deftest :oodml/select/18
(with-dataset *ds-nodes*
(deftest :oodml/select/18
(with-dataset *ds-nodes*
- (length (clsql:select 'theme :where [
theme-id
] :flatp t :caching nil)))
+ (length (clsql:select 'theme :where [
not [null [theme-id]]
] :flatp t :caching nil)))
2)
(deftest :oodml/select/19
2)
(deftest :oodml/select/19
@@
-203,7
+204,7
@@
(deftest :oodml/select/22
(with-dataset *ds-nodes*
(deftest :oodml/select/22
(with-dataset *ds-nodes*
- (let ((a (car (clsql:select 'subloc :where [
subloc-id
] :flatp t :caching nil))))
+ (let ((a (car (clsql:select 'subloc :where [
not [null [subloc-id]]
] :flatp t :caching nil))))
(values
(slot-value a 'node-id)
(slot-value a 'subloc-id)
(values
(slot-value a 'node-id)
(slot-value a 'subloc-id)
@@
-1155,6
+1156,3
@@
t)
))
t)
))
-
-
-#.(clsql:restore-sql-reader-syntax-state)