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

diff --git a/tests/test-syntax.lisp b/tests/test-syntax.lisp
index ed1f481..9bd6662 100644
--- a/tests/test-syntax.lisp
+++ b/tests/test-syntax.lisp
@@ -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