suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove tests for ffi/unsafe/string-list

Browse Source 
Should have been part of 73a61e4d37.
This commit is contained in:
Matthew Flatt 2021-05-10 12:51:52 -06:00
parent 73a61e4d37
commit 7a81ff13c2
1 changed files with 0 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
pkgs/racket-test-core/tests/racket/foreign-test.rktl
View File

@ -11,7 +11,6 @@
ffi/unsafe/global
ffi/unsafe/atomic
ffi/unsafe/os-async-channel
ffi/unsafe/string-list
ffi/vector
racket/extflonum
racket/place
@ -1422,38 +1421,6 @@
(test #t cpointer-has-tag? p 'extra))
(test #t cpointer-predicate-procedure? foo?)
;; ----------------------------------------
(define (try-strings _t-list
#:latin-1? [latin-1? #f]
#:bytes? [as-bytes? #f]
#:add-nul? [add-nul? #f])
(define l (map
(if as-bytes? string->bytes/utf-8 values)
(cond
[latin-1? '("apple" "banana" "\xFF")]
[(not (equal? (locale-string-encoding) "UTF-8")) '("apple" "banana")]
[else '("apple" "banana" "\u3BB x . x" "(\U1F600)")])))
(define l2 (cast (cast (if add-nul?
(map (lambda (bstr) (bytes-append bstr #"\0")) l)
l)
_t-list
_pointer)
_pointer
_t-list))
(unless (equal? l l2)
(error "failed ~s ~s ~s" _t-list l l2)))
(try-strings _string-list)
(try-strings _string-list/utf-8)
(try-strings _string-list/latin-1 #:latin-1? #t)
(try-strings _string-list/locale)
(try-strings _string-list/utf-16)
(try-strings _string-list/ucs-4)
(try-strings _bytes-list #:bytes? #t #:add-nul? #t)
(try-strings _bytes-list/nul-terminated #:bytes? #t)
;; ----------------------------------------
;; Test JIT inlining