From 7a81ff13c2fa4c4b67fa4eb25bc824534a029267 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 10 May 2021 12:51:52 -0600
Subject: [PATCH] remove tests for ffi/unsafe/string-list

Should have been part of 73a61e4d37.
---
 .../tests/racket/foreign-test.rktl            | 33 -------------------
 1 file changed, 33 deletions(-)

diff --git a/pkgs/racket-test-core/tests/racket/foreign-test.rktl b/pkgs/racket-test-core/tests/racket/foreign-test.rktl
index fcc33bc50f..6d07914c71 100644
--- a/pkgs/racket-test-core/tests/racket/foreign-test.rktl
+++ b/pkgs/racket-test-core/tests/racket/foreign-test.rktl
@@ -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