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

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