X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-fdml.lisp;h=74ed254e4d3acec47296a61202d2ec9314e22529;hb=0ad64f85ff6cd99a78cc9ae6716ebbdb5627eaef;hp=053dbc45f7c02a0a9ee0304663ed1b3d7f96443a;hpb=809eb398e2acc83bc526b0dc174a300d000b938e;p=clsql.git

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index 053dbc4..74ed254 100644
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -3,7 +3,6 @@
 ;;;; File:    test-fdml.lisp
 ;;;; Author:  Marcus Pearce <m.t.pearce@city.ac.uk>, Kevin Rosenberg
 ;;;; Created: 30/03/2004
-;;;; Updated: $Id$
 ;;;;
 ;;;; Tests for the CLSQL Functional Data Manipulation Language
 ;;;; (FDML).
@@ -124,19 +123,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 +649,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*