X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-fdml.lisp;h=a46740808dd15b54e68c3712e9e4250fe10d0f24;hb=0ff9631844fe6c96de64e008ec9b29f4bd1448d3;hp=053dbc45f7c02a0a9ee0304663ed1b3d7f96443a;hpb=809eb398e2acc83bc526b0dc174a300d000b938e;p=clsql.git diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp index 053dbc4..a467408 100644 --- a/tests/test-fdml.lisp +++ b/tests/test-fdml.lisp @@ -124,19 +124,6 @@ t (2 3 4 5 6 7 8 9 10)) -(deftest :fdml/execute-command/1 - (with-dataset *ds-employees* - (values - (clsql:table-exists-p [foo] :owner *test-database-user*) - (progn - (clsql:execute-command "create table foo (bar integer)") - (clsql:table-exists-p [foo] :owner *test-database-user*)) - (progn - (clsql:execute-command "drop table foo") - (clsql:table-exists-p [foo] :owner *test-database-user*)))) - nil t nil) - - ;; compare min, max and average hieghts in inches (they're quite short ;; these guys!) (deftest :fdml/select/1 @@ -663,8 +650,6 @@ (("Yuri" "Gagarin" "gagarin@soviet.org")) (("Vladimir" "Lenin" "lenin@soviet.org"))) - - ;; starts a transaction deletes a record and then rolls back the deletion (deftest :fdml/transaction/1 (with-dataset *ds-employees*