(in-package :cl-rdbms-test)
#.(cl-rdbms::file-header)
this
(eval-always
(use-package :stefil)
(import (let ((*package* (find-package :cl-rdbms)))
(read-from-string "(enable-sharp-boolean-syntax concatenate-symbol *sql-stream*
connection-specification-of *database* *transaction*
with-transaction* process-sql-syntax-list compile-sexp-sql-column compile-sexp-sql-columns
compile-sexp-sql compile-sexp-sql-type expand-sql-ast-into-lambda-form
value-of compile-sexp-sql-binding-variable compile-sexp-sql-literal first* second* third*
log log.dribble log.debug log.info log.warn log.error)")))
(import-sql-syntax-node-names)
(import-sql-constructor-names))
(in-root-suite)
(def suite test)
(in-suite test)
(defvar *test-database*)
(defmacro with-test-transaction (&body body)
`(with-transaction* (:database *test-database*)
,@body))
(def definer test* (name args &body body)
`(def test ,name ,args
(with-database *test-database*
,@body)))