projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f5cec2a
)
fixed broken oodml/select where clauses
author
Russ Tyndall
<russ@acceleration.net>
Sun, 12 Jun 2011 14:41:34 +0000
(10:41 -0400)
committer
Nathan Bird
<nathan@acceleration.net>
Mon, 20 Jun 2011 20:06:18 +0000
(16:06 -0400)
tests/test-oodml.lisp
patch
|
blob
|
history
diff --git
a/tests/test-oodml.lisp
b/tests/test-oodml.lisp
index f0d3d9b9e98baed6c1e9aaee674abb503d09dfe1..e1a9807db17459f4fccf3ef09df7812731b40dcc 100644
(file)
--- a/
tests/test-oodml.lisp
+++ b/
tests/test-oodml.lisp
@@
-127,7
+127,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
+140,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
+155,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
+170,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
+203,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)