diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/017/ffi-misc.expected | 0 | ||||
| -rw-r--r-- | tests/017/ffi-misc.tl | 11 |
2 files changed, 11 insertions, 0 deletions
diff --git a/tests/017/ffi-misc.expected b/tests/017/ffi-misc.expected new file mode 100644 index 00000000..e69de29b --- /dev/null +++ b/tests/017/ffi-misc.expected diff --git a/tests/017/ffi-misc.tl b/tests/017/ffi-misc.tl new file mode 100644 index 00000000..1578cd2c --- /dev/null +++ b/tests/017/ffi-misc.tl @@ -0,0 +1,11 @@ +(load "../common") + +(defvarl ar (ffi (array char))) + +(defvarl zar (ffi (zarray char))) + +(test (ffi-put "\x1234@@@" ar) #b'e188b4404040') + +(test (ffi-put "\x1234@@@" zar) #b'e188b440404000') + +(test (ffi-get (ffi-put "\x1234@@@" zar) zar) "\x1234@@@") |