From: Kevin M. Rosenberg Date: Mon, 12 Apr 2004 18:29:08 +0000 (+0000) Subject: r8978: fix cleanup after a test X-Git-Tag: v3.8.6~650 X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=c4874967a9af719a5cf176677007120fe2cbb036;hp=564b12047740b007a2d9ecc843973ed47efe092c;p=clsql.git r8978: fix cleanup after a test --- diff --git a/ChangeLog b/ChangeLog index 04cb77a..751cd4f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +12 Apr 2004 Kevin Rosenberg (kevin@rosenberg.net) + * Version 2.6.8 + * test/test-fddl.lisp: Cleanup fix from Marcus Pearce + 12 Apr 2004 Kevin Rosenberg (kevin@rosenberg.net) * Version 2.6.7 * sql/*.lisp: Remove schema versioning cruft diff --git a/tests/test-fddl.lisp b/tests/test-fddl.lisp index ef79615..def32cb 100644 --- a/tests/test-fddl.lisp +++ b/tests/test-fddl.lisp @@ -165,7 +165,7 @@ :if-does-not-exist :ignore)) (t (clsql:drop-index [bar]:if-does-not-exist :ignore))) - (clsql:view-exists-p [bar] :owner *test-database-user*)))) + (clsql:index-exists-p [bar] :owner *test-database-user*)))) t nil) ;; create indexes with names as strings, symbols and in square brackets