projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ds-artists: new test dataset ds-artists. clsql-tests.asd: add new filee ds-artists...
[clsql.git]
/
tests
/
test-oodml.lisp
diff --git
a/tests/test-oodml.lisp
b/tests/test-oodml.lisp
index dadbfcbe6d542d753d7b20c80c21f562b5d22a30..d1c933a432d75c8340b047651fbe092590457efa 100644
(file)
--- a/
tests/test-oodml.lisp
+++ b/
tests/test-oodml.lisp
@@
-211,6
+211,11
@@
(slot-value a 'loc))))
10 10 "subloc-1" "a subloc")
(slot-value a 'loc))))
10 10 "subloc-1" "a subloc")
+(deftest :oodml/select/23
+ (with-dataset *ds-artists*
+ (length (clsql:select 'artist :flatp t :caching nil)))
+ 0)
+
;; test retrieval is deferred
(deftest :oodm/retrieval/1
(with-dataset *ds-employees*
;; test retrieval is deferred
(deftest :oodm/retrieval/1
(with-dataset *ds-employees*
@@
-614,6
+619,11
@@
((42.0d0))
((24.13d0)))
((42.0d0))
((24.13d0)))
+(deftest :oodml/update-records/11
+ (with-dataset *ds-artists*
+ (clsql:update-records-from-instance artist1)
+ (list (name artist1) (artist_id artist1)))
+ ("Mogwai" 1))
;; tests update-instance-from-records
(deftest :oodml/update-instance/1
;; tests update-instance-from-records
(deftest :oodml/update-instance/1