X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-fddl.lisp;fp=tests%2Ftest-fddl.lisp;h=61329ff7149289a2c685ef21ff4a4fc07cb41989;hp=55b2977e3428c750ac5196f5a4292ddae3d0fbfb;hb=8fa38a6c189dc8b42611c4ee3c31facd5fe00635;hpb=d5e6e9e5fda4a11403c04c86d3a7ab0d0b6aa3ef

diff --git a/tests/test-fddl.lisp b/tests/test-fddl.lisp
index 55b2977..61329ff 100644
--- a/tests/test-fddl.lisp
+++ b/tests/test-fddl.lisp
@@ -338,6 +338,24 @@
         (length (clsql:list-tables :owner nil))))
   t) 
 
-))
+(deftest :fddl/cache-table-queries/1 
+ (list 
+  (gethash "EMPLOYEE" (clsql-sys::attribute-cache clsql:*default-database*))
+  (progn 
+    (clsql:cache-table-queries "EMPLOYEE" :action t)
+    (gethash "EMPLOYEE" (clsql-sys::attribute-cache clsql:*default-database*)))
+  (progn 
+    (clsql:list-attribute-types "EMPLOYEE")
+    (not 
+     (null 
+      (cadr 
+       (gethash "EMPLOYEE" 
+                (clsql-sys::attribute-cache clsql:*default-database*))))))
+  (progn 
+    (clsql:cache-table-queries "EMPLOYEE" :action :flush)
+    (gethash "EMPLOYEE" (clsql-sys::attribute-cache clsql:*default-database*))))
+ (NIL (T NIL) T (T NIL)))
+
+  ))
 
 #.(clsql:restore-sql-reader-syntax-state)