From 8fa38a6c189dc8b42611c4ee3c31facd5fe00635 Mon Sep 17 00:00:00 2001 From: Marcus Pearce Date: Sat, 17 Jul 2004 16:51:05 +0000 Subject: [PATCH] r9802: Add test for CACHE-TABLE-QUERIES. --- tests/test-fddl.lisp | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) 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) -- 2.34.1