X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-fddl.lisp;h=d047b3f807ab1a76a92c7d5a6cf0532caec80428;hp=c8efdd5d17351d2caa08a16aa1b3a7cd8fa56d03;hb=b193d5d794ea2ec1feb850136ec0affccda5d835;hpb=325c1114a2faa2ec2c45feb6c263adf191abe23a 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