X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-oodml.lisp;h=d1c933a432d75c8340b047651fbe092590457efa;hp=dadbfcbe6d542d753d7b20c80c21f562b5d22a30;hb=1011d4f44384e10f45ea0268e5c7fc759f417d3e;hpb=008ef476827e2b4ec81829f1e204e9f954017678

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index dadbfcb..d1c933a 100644
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -211,6 +211,11 @@
 	  (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*
@@ -614,6 +619,11 @@
   ((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