diff options
Diffstat (limited to 'tests/017/ffi-misc.tl')
| -rw-r--r-- | tests/017/ffi-misc.tl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/017/ffi-misc.tl b/tests/017/ffi-misc.tl index 377d7572..7053f78e 100644 --- a/tests/017/ffi-misc.tl +++ b/tests/017/ffi-misc.tl @@ -83,3 +83,8 @@ (each-match ((a b c) (rperm '(fals true) 3)) (let ((s (new abc a a b b c c))) (test (ffi-get (ffi-put s (ffi abc)) (ffi-abc)) s))) + +(mstest + (copy-cptr (cptr-int 3)) "#<cptr: 3>" + (copy (cptr-int 3)) "#<cptr: 3>" + (copy-cptr 3) :error) |