From 4d2aa907f5b6cebe799e32576e2c4d56daf027ac Mon Sep 17 00:00:00 2001
From: Moritz Heidkamp <moritz-gitorious@twoticketsplease.de>
Date: Thu, 1 Sep 2011 15:08:09 +0200
Subject: [PATCH] add some tests for the `null?' operator

---
 tests/ansi-test.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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