More descriptive error for dynamic-pointer

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

diff --git a/test-suite/tests/foreign.test b/test-suite/tests/foreign.test
index 93e5fe1..1353e7d 100644 (file)
--- a/test-suite/tests/foreign.test
+++ b/test-suite/tests/foreign.test
@@ -28,6 +28,14 @@
   #:use-module (test-suite lib))
 
 \f
+(with-test-prefix "dynamic-pointer"
+
+  (pass-if-exception
+   "error message"
+   '(misc-error . "^Symbol not found")
+   (dynamic-func "does_not_exist___" (dynamic-link))))
+
+\f
 (with-test-prefix "null pointer"
 
   (pass-if "pointer?"