diff options
Diffstat (limited to 'tests/017/ffi-misc.tl')
| -rw-r--r-- | tests/017/ffi-misc.tl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/017/ffi-misc.tl b/tests/017/ffi-misc.tl index 7053f78e..d0785513 100644 --- a/tests/017/ffi-misc.tl +++ b/tests/017/ffi-misc.tl @@ -88,3 +88,9 @@ (copy-cptr (cptr-int 3)) "#<cptr: 3>" (copy (cptr-int 3)) "#<cptr: 3>" (copy-cptr 3) :error) + +(ffi (struct flex (x char) (y (zarray char)))) + +(mtest + (ffi-put (new flex x #\a y "bcd") (ffi (struct flex))) #b'6100000062636400' + (ffi-get #b'6100000062636400' (ffi (struct flex))) #S(flex x #\a y "bcd")) |