summaryrefslogtreecommitdiff
path: root/test-suite/tests/foreign.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/foreign.test')
-rw-r--r--test-suite/tests/foreign.test10
1 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/tests/foreign.test b/test-suite/tests/foreign.test
index 7ff14ccff..7da4deb31 100644
--- a/test-suite/tests/foreign.test
+++ b/test-suite/tests/foreign.test
@@ -66,4 +66,14 @@
(fold-right (lambda (byte address)
(+ byte (* 256 address)))
0
+ bytes))))
+
+ (pass-if "dereference-pointer"
+ (let* ((bytes (iota (sizeof '*)))
+ (bv (u8-list->bytevector bytes)))
+ (= (foreign-address
+ (dereference-pointer (bytevector->foreign bv)))
+ (fold-right (lambda (byte address)
+ (+ byte (* 256 address)))
+ 0
bytes)))))