X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-init.lisp;h=4aa485a7711d26b8460c2ed1d08fb3aac6e3e36f;hb=ef7951fc3ed3b05c6f98d5723753a53f870eb8ff;hp=64253bd6200e81056e80fc5fa6ee96ed9b1e9f43;hpb=eda507c3d35f484755f88f6bbbf3f9a880324a97;p=clsql.git diff --git a/tests/test-init.lisp b/tests/test-init.lisp index 64253bd..4aa485a 100644 --- a/tests/test-init.lisp +++ b/tests/test-init.lisp @@ -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))