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

diff --git a/tests/test-fddl.lisp b/tests/test-fddl.lisp
index 61329ff..f5527c7 100644
--- a/tests/test-fddl.lisp
+++ b/tests/test-fddl.lisp
@@ -244,7 +244,7 @@
     (let ((names '("foo" foo [foo]))
           (result '()))
       (dolist (name names)
-        (clsql:create-index name :on [employee] :attributes '([emplid]))
+        (clsql:create-index name :on [employee] :attributes '([last-name]))
         (push (clsql:index-exists-p name :owner *test-database-user*) result)
 	(clsql:drop-index name :on [employee] :if-does-not-exist :ignore))
       (apply #'values result))
@@ -354,7 +354,7 @@
   (progn 
     (clsql:cache-table-queries "EMPLOYEE" :action :flush)
     (gethash "EMPLOYEE" (clsql-sys::attribute-cache clsql:*default-database*))))
- (NIL (T NIL) T (T NIL)))
+ (nil (t nil) t (t nil)))
 
   ))