fix an FFI test case

This commit is contained in:
Matthew Flatt 2013-07-06 07:20:44 -06:00
parent e3eed89b1d
commit d618a8d616

View File

@ -512,7 +512,7 @@
(test 2.2t0 ptr-ref (ptr-add (extflvector->cpointer v) (ctype-sizeof _longdouble)) _longdouble))
;; Check a corner of UTF-16 conversion:
(test "\U171D3" cast (cast "\U171D3" _string/utf-16 _pointer) _pointer _string/utf-16)
(test "\U171D3" cast (cast "\U171D3" _string/utf-16 _gcpointer) _gcpointer _string/utf-16)
;; check async:
(when test-async?