Adding new connection tests that are the simplest query/command against a database...

[clsql.git] / tests / test-fdml.lisp

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index 053dbc45f7c02a0a9ee0304663ed1b3d7f96443a..9bacbe52024dc7abf5e35e57fbe08ed28d06e4f6 100644 (file)
--- 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