diff options
author | W. Kosior <koszko@koszko.org> | 2025-05-06 22:33:30 +0200 |
---|---|---|
committer | W. Kosior <koszko@koszko.org> | 2025-05-06 22:33:30 +0200 |
commit | d659fbe71a8f0ae94ee865b0c2f2c32081265ec2 (patch) | |
tree | 016fc5df157aa070ff40262bf125e24efe50ff04 | |
parent | 71c1abf36e033f2d4663ac41804090dc2a51ea28 (diff) | |
download | cantius-d659fbe71a8f0ae94ee865b0c2f2c32081265ec2.tar.gz cantius-d659fbe71a8f0ae94ee865b0c2f2c32081265ec2.zip |
Do not import `(rnrs bytevectors)'.
-rw-r--r-- | tests/guile/cantius-test.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/guile/cantius-test.scm b/tests/guile/cantius-test.scm index 4d2447d..0f06daf 100644 --- a/tests/guile/cantius-test.scm +++ b/tests/guile/cantius-test.scm @@ -4,7 +4,6 @@ (use-modules ((scheme base) #:select (bytevector-copy bytevector-length string->utf8)) - ((rnrs bytevectors) #:prefix bv:) ((srfi srfi-8) #:select (receive)) ((srfi srfi-11) #:select (let*-values)) ((srfi srfi-26) #:select (cut)) @@ -124,7 +123,7 @@ Content-Length: ~d (tu:test-equal '(#t #f #f) (map cant:form-data-part-binary? (force parsed))) - (tu:test-equal `(,(bv:string->utf8 "śómę-ńóń-ĄŚĆII-dątą\\") + (tu:test-equal `(,(string->utf8 "śómę-ńóń-ĄŚĆII-dątą\\") "óthęr-ńóń-ĄŚĆII-dątą\\" "//yęt-óthęr-ńóń-ĄŚĆII-dątą") (map cant:form-data-part-data (force parsed))))) @@ -144,13 +143,13 @@ Host: example.com (tu:test-error (cut condition-has-type? <> cant:&bad-request) (cant:parse-multipart/form-data %form-boundary - (bv:string->utf8 %form-data-bad-epilogue))) + (string->utf8 %form-data-bad-epilogue))) (tu:test-error (compose (cut = 415 <>) cant:condition-http-code) (cant:parse-multipart/form-data %form-boundary - (bv:string->utf8 %form-data-unsupported-encoding)))) + (string->utf8 %form-data-unsupported-encoding)))) (tu:test-group "parse-cookies" (tu:test-equal '(("name" . "val")) |