aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorW. Kosior <koszko@koszko.org>2025-05-06 22:33:30 +0200
committerW. Kosior <koszko@koszko.org>2025-05-06 22:33:30 +0200
commitd659fbe71a8f0ae94ee865b0c2f2c32081265ec2 (patch)
tree016fc5df157aa070ff40262bf125e24efe50ff04
parent71c1abf36e033f2d4663ac41804090dc2a51ea28 (diff)
downloadcantius-d659fbe71a8f0ae94ee865b0c2f2c32081265ec2.tar.gz
cantius-d659fbe71a8f0ae94ee865b0c2f2c32081265ec2.zip
Do not import `(rnrs bytevectors)'.
-rw-r--r--tests/guile/cantius-test.scm7
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"))