(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)
((and (eql *test-database-type* :sqlite3)
(clsql-sys:in test :fddl/view/4 :fdml/select/10
:fdml/select/21 :fdml/select/32
- :fdml/select/33))
+ :fdml/select/33
+ :basic/reallybigintegers/1))
(push (cons test "not supported by sqlite3.") skip-tests))
((and (not (clsql-sys:db-type-has-bigint? db-type))
(clsql-sys:in test :basic/bigint/1))
: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))