diff --git a/tests/ansi-test.scm b/tests/ansi-test.scm
index 8ccdefc..cd7cc59 100644
--- a/tests/ansi-test.scm
+++ b/tests/ansi-test.scm
@@ -78,4 +78,12 @@
 
   (test "function calls"
     "SELECT foo(99, bar('baz'))"
-    (ssql->sql #f '(select (call foo 99 (call bar "baz"))))))
\ No newline at end of file
+    (ssql->sql #f '(select (call foo 99 (call bar "baz")))))
+
+  (test "IS NULL"
+    "SELECT 'foo' IS NULL"
+    (ssql->sql #f '(select (null? "foo"))))
+
+  (test "IS NOT NULL"
+    "SELECT NOT 'foo' IS NULL"
+    (ssql->sql #f '(select (not (null? "foo"))))))
\ No newline at end of file