projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added better debugging info when failing to load foreign library
[clsql.git]
/
tests
/
test-fddl.lisp
diff --git
a/tests/test-fddl.lisp
b/tests/test-fddl.lisp
index 04d310ec86454fadfe7e22463bc76c10ff2e3f8c..83eada9f1074e699b6e584d90360be9e884be957 100644
(file)
--- a/
tests/test-fddl.lisp
+++ b/
tests/test-fddl.lisp
@@
-16,8
+16,7
@@
(in-package #:clsql-tests)
(in-package #:clsql-tests)
-
-#.(clsql:locally-enable-sql-reader-syntax)
+(clsql-sys:file-enable-sql-reader-syntax)
(def-dataset *ds-fddl*
(:setup (lambda ()
(def-dataset *ds-fddl*
(:setup (lambda ()
@@
-169,7
+168,8
@@
B varchar(32))")
(with-dataset *ds-fddl*
(multiple-value-bind (type length scale nullable)
(clsql:attribute-type [c] [alpha])
(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
t 30 nil 1)
(deftest :fddl/attributes/5
@@
-450,5
+450,3
@@
B varchar(32))")
(nil (t nil) t (t nil)))
))
(nil (t nil) t (t nil)))
))
-
-#.(clsql:restore-sql-reader-syntax-state)