(in-package #:clsql-tests)
-#.(clsql:locally-enable-sql-reader-syntax)
+(clsql-sys:file-enable-sql-reader-syntax)
+
(setq *rt-oodml*
'(
;; test retrieval of node, derived nodes etc
(deftest :oodml/select/12
(with-dataset *ds-nodes*
- (length (clsql:select 'node :where [node-id] :flatp t :caching nil)))
+ (length (clsql:select 'node :where [not [null [node-id]]] :flatp t :caching nil)))
11)
(deftest :oodml/select/13
(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
(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
(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
(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)
t)
))
-
-
-#.(clsql:restore-sql-reader-syntax-state)