From b193d5d794ea2ec1feb850136ec0affccda5d835 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 1 May 2004 22:21:58 +0000 Subject: [PATCH] r9196: remove bogus subtest --- TODO | 3 ++- tests/test-fddl.lisp | 4 +--- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/TODO b/TODO index a4adee2..aaaa3d7 100644 --- a/TODO +++ b/TODO @@ -6,7 +6,8 @@ TESTS TO ADD * CACHE-TABLE-QUERIES * :VOID-VALUE -* :db-kind :key adds an index for that key +* :db-kind :key adds an index for that key, complicated by different + backends show autogenerated primary key in different ways. COMMONSQL SPEC diff --git a/tests/test-fddl.lisp b/tests/test-fddl.lisp index c8efdd5..d047b3f 100644 --- a/tests/test-fddl.lisp +++ b/tests/test-fddl.lisp @@ -206,14 +206,12 @@ #'string-downcase (clsql:list-table-indexes [i3test] :owner *test-database-user*)) #'string-lessp) - (sort (clsql:list-table-indexes [company] :owner *test-database-user*) - #'string-lessp) (progn (clsql:drop-index [bar] :on [i3test]) (clsql:drop-index [foo] :on [i3test]) (clsql:drop-table [i3test]) t))) - t t t ("bar" "foo") nil t) + t t t ("bar" "foo") t) ;; create an sequence, test for existence, drop it and test again (deftest :fddl/sequence/1 -- 2.34.1