(in-package #:clsql-tests)
-
-#.(clsql:locally-enable-sql-reader-syntax)
+(clsql-sys:file-enable-sql-reader-syntax)
(def-dataset *ds-fddl*
(:setup (lambda ()
(with-dataset *ds-fddl*
(multiple-value-bind (type length scale nullable)
(clsql:attribute-type [c] [alpha])
- (values (clsql-sys:in type :varchar :varchar2) length scale nullable)))
+ (values (clsql-sys:in type :varchar :varchar2 :nvarchar)
+ length scale nullable)))
t 30 nil 1)
(deftest :fddl/attributes/5
(with-dataset *ds-fddl*
- (and (member (clsql:attribute-type [d] [alpha]) '(:datetime :timestamp :date)) t))
+ (and (member (clsql:attribute-type [d] [alpha])
+ '(:datetime :timestamp :date :smalldatetime)) t))
t)
(deftest :fddl/attributes/6
(nil (t nil) t (t nil)))
))
-
-#.(clsql:restore-sql-reader-syntax-state)