diff options
Diffstat (limited to 'test-suite/tests/foreign.test')
-rw-r--r-- | test-suite/tests/foreign.test | 10 |
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))))) |