X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-init.lisp;h=4aa485a7711d26b8460c2ed1d08fb3aac6e3e36f;hb=ef7951fc3ed3b05c6f98d5723753a53f870eb8ff;hp=394a20a4486549bebddd9e2f18ac4cc6cfefde46;hpb=4305925e87f70d6d7f5fe21d7875b1934c7f65a4;p=clsql.git

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 394a20a..4aa485a 100644
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -72,12 +72,12 @@
 
 (defun default-suites ()
   "The default list of tests to run."
-  (append *rt-internal* *rt-connection* *rt-basic* *rt-fddl* *rt-fdml*
+  (append *rt-connection* *rt-basic* *rt-fddl* *rt-fdml*
 	  *rt-ooddl* *rt-oodml* *rt-syntax* *rt-time* *rt-i18n*))
 
 (defun internal-suites ()
   "The default internal suites that should run without any specific backend"
-  (append *rt-pool*))
+  (append *rt-internal* *rt-pool*))
 
 
 (defvar *error-count* 0)
@@ -124,8 +124,10 @@
           (dolist (spec (db-type-spec db-type specs))
             (let ((*test-connection-spec* spec)
                   (*test-connection-db-type* db-type))
-              (do-tests-for-backend db-type spec :suites suites)))))))
-  (zerop *error-count*))
+              (format report-stream "~%~%Start Running Tests Against: ~A ~A~%~%" db-type (ignore-errors (subseq spec 0 2)))
+              (do-tests-for-backend db-type spec :suites suites)
+              (format report-stream  "~%~%Finished Running Tests Against: ~A ~A~%~%" db-type (ignore-errors (subseq spec 0 2))))))))
+    (zerop *error-count*)))
 
 (defun load-necessary-systems (specs)
   (dolist (db-type +all-db-types+)
@@ -235,7 +237,8 @@
       (let ((test (second test-form)))
         (cond
 	  ((and (not (eql db-underlying-type :mysql))
-		(clsql-sys:in test :connection/query-command))
+		(clsql-sys:in test :connection/query-command
+                              :basic/reallybigintegers/1))
 	   (push (cons test "known to work only in MySQL as yet.") skip-tests))
           ((and (null (clsql-sys:db-type-has-views? db-underlying-type))
                 (clsql-sys:in test :fddl/view/1 :fddl/view/2 :fddl/view/3 :fddl/view/4))
@@ -320,7 +323,7 @@
 			      :oodml/update-records/6 :oodml/update-records/7
 			      :oodml/update-records/8 :oodml/update-records/9
 			      :oodml/update-records/9-slots :oodml/update-records/10
-			      :oodml/update-records/11 :oodml/update-instance/3
+			      :oodml/update-records/11 :OODML/UPDATE-RECORDS/12 :oodml/update-instance/3
 			      :oodml/update-instance/4 :oodml/update-instance/5
 			      :oodml/update-instance/6 :oodml/update-instance/7
 			      :oodml/db-auto-sync/3 :oodml/db-auto-sync/4))