diff options
Diffstat (limited to 'tests/017/ffi-misc.tl')
| -rw-r--r-- | tests/017/ffi-misc.tl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/017/ffi-misc.tl b/tests/017/ffi-misc.tl index 1578cd2c..db510737 100644 --- a/tests/017/ffi-misc.tl +++ b/tests/017/ffi-misc.tl @@ -9,3 +9,10 @@ (test (ffi-put "\x1234@@@" zar) #b'e188b440404000') (test (ffi-get (ffi-put "\x1234@@@" zar) zar) "\x1234@@@") + +(unless (meq (os-symbol) :cygwin :cygnal) + (test (ffi-get #b'EDB08100' (ffi (zarray char))) + "\xDCED\xDCB0\xDC81") + + (test (ffi-get #b'ED7F7FEDFF00' (ffi (zarray char))) + "\xDCED\x7F\x7F\xDCED\xDCFF")) |