Merge remote-tracking branch 'origin/stable-2.0'

[bpt/guile.git] / test-suite / tests / foreign.test

diff --git a/test-suite/tests/foreign.test b/test-suite/tests/foreign.test
index 74cdc1b..8ba989e 100644 (file)
--- a/test-suite/tests/foreign.test
+++ b/test-suite/tests/foreign.test
@@ -51,6 +51,10 @@
   (pass-if "null-pointer? %null-pointer"
     (null-pointer? %null-pointer))
 
+  (pass-if-exception "dereference-pointer %null-pointer"
+    exception:null-pointer-error
+    (dereference-pointer %null-pointer))
+
   (pass-if-exception "pointer->bytevector %null-pointer"
     exception:null-pointer-error
     (pointer->bytevector %null-pointer 7)))