X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-syntax.lisp;h=9bd666247ff860a86def758c4b4a6a528bd51364;hb=4fa0aba28de88bf4db5e979152d90e01f8a365f2;hp=6cb1c0c1ce1d26df8a76f39b4ba234d18fd23673;hpb=95704a836b85f40018186f97b332fd3873168a53;p=clsql.git

diff --git a/tests/test-syntax.lisp b/tests/test-syntax.lisp
index 6cb1c0c..9bd6662 100644
--- a/tests/test-syntax.lisp
+++ b/tests/test-syntax.lisp
@@ -14,7 +14,7 @@
 
 (in-package #:clsql-tests)
 
-#.(clsql:locally-enable-sql-reader-syntax)
+(clsql-sys:file-enable-sql-reader-syntax)
 
 
 (setq *rt-syntax*
@@ -190,6 +190,18 @@
     (clsql:sql [not [null]])
   "(NOT (NULL))")
 
+(deftest :syntax/null/5
+    (clsql:sql [is [foo.bar] [null]])
+  "(FOO.BAR IS NULL)")
+
+(deftest :syntax/null/6
+    (clsql:sql [is [foo.bar] [not-null]])
+  "(FOO.BAR IS NOT NULL)")
+
+(deftest :syntax/null/7
+    (clsql:sql [not-null [foo.bar]])
+  "(FOO.BAR IS NOT NULL)")
+
 
 
 (deftest :syntax/relational/1
@@ -424,5 +436,3 @@
 		     (test test-out expected-result)
 		     "Test:~s didnt match ~S"
 		     test-out expected-result))))
-
-#.(clsql:restore-sql-reader-syntax-state)