add some tests for the `null?' operator

13 years ago · 4d2aa907f5
parent 4759d4381f
commit 4d2aa907f5
1 changed files with 9 additions and 1 deletions
--- 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"))))))
+    (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"))))))