(in-package #:clsql-tests)
-#.(clsql:locally-enable-sql-reader-syntax)
+(clsql-sys:file-enable-sql-reader-syntax)
(defparameter artist1 nil)
(mapc #'clsql-sys:drop-sequence
(list "artist_artist_id_seq"))))))
-#.(clsql:restore-sql-reader-syntax-state)
(in-package #:clsql-tests)
-#.(clsql:locally-enable-sql-reader-syntax)
+(clsql-sys:file-enable-sql-reader-syntax)
(defparameter company1 nil)
(defparameter employee1 nil)
(defparameter employee2 nil)
(ignore-errors
(clsql-sys:execute-command "DROP TABLE ea_join")))))
-#.(clsql:restore-sql-reader-syntax-state)
-
(in-package #:clsql-tests)
-#.(clsql:locally-enable-sql-reader-syntax)
+(clsql-sys:file-enable-sql-reader-syntax)
(defparameter basenode nil)
(defparameter derivednode1 nil)
theme_theme_id_seq nodeuser_user_id_seq)
)))))
-#.(clsql:restore-sql-reader-syntax-state)
(in-package #:clsql-tests)
-
-#.(clsql:locally-enable-sql-reader-syntax)
+(clsql-sys:file-enable-sql-reader-syntax)
(def-dataset *ds-fddl*
(:setup (lambda ()
(nil (t nil) t (t nil)))
))
-
-#.(clsql:restore-sql-reader-syntax-state)
(in-package #:clsql-tests)
-#.(clsql:locally-enable-sql-reader-syntax)
-
+(clsql-sys:file-enable-sql-reader-syntax)
;;started defining an independent dataset that doesn't depend on the view-classes
;; but there is a *lot* of stuff in the file assuming that dataset.
;; (def-dataset *ds-fdml*
))
-#.(clsql:restore-sql-reader-syntax-state)
;;;; *************************************************************************
(in-package #:clsql-tests)
+(clsql-sys:file-enable-sql-reader-syntax)
(setq *rt-internal*
'(
"SELECT 'FOO' FROM BAR WHERE ID='Match?''?' AND CODE=$1")
(deftest :int/output-caching/1
- #.(locally-enable-sql-reader-syntax)
;; ensure that key generation and matching is working
;; so that this table doesnt balloon (more than designed)
(list
(1 2 2))
(deftest :int/output-caching/2
- #.(locally-enable-sql-reader-syntax)
;; ensure that we can disable the output cache and
;; still have everything work
(let ((clsql-sys::*output-hash*))
(in-package #:clsql-tests)
-#.(clsql:locally-enable-sql-reader-syntax)
+(clsql-sys:file-enable-sql-reader-syntax)
(def-view-class big ()
))
-#.(clsql:restore-sql-reader-syntax-state)
(in-package #:clsql-tests)
-#.(clsql:locally-enable-sql-reader-syntax)
+(clsql-sys:file-enable-sql-reader-syntax)
+
(setq *rt-oodml*
'(
t)
))
-
-
-#.(clsql:restore-sql-reader-syntax-state)
(in-package #:clsql-tests)
-#.(clsql:locally-enable-sql-reader-syntax)
+(clsql-sys:file-enable-sql-reader-syntax)
(setq *rt-syntax*
(test test-out expected-result)
"Test:~s didnt match ~S"
test-out expected-result))))
-
-#.(clsql:restore-sql-reader-syntax-state)
;;; Test time functions (time.lisp)
(in-package #:clsql-tests)
-#.(clsql-sys:locally-enable-sql-reader-syntax)
+(clsql-sys:file-enable-sql-reader-syntax)
(def-view-class datetest ()
((testtimetz :column "testtimetz"
))
-#.(clsql-sys:locally-disable-sql-reader-syntax)
+