summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--test-suite/tests/strings.test10
-rw-r--r--test-suite/tests/web-uri.test6
2 files changed, 8 insertions, 8 deletions
diff --git a/test-suite/tests/strings.test b/test-suite/tests/strings.test
index c6df15844..9323b0aa8 100644
--- a/test-suite/tests/strings.test
+++ b/test-suite/tests/strings.test
@@ -494,11 +494,11 @@
exception:wrong-type-arg
(string-utf8-length 50))
- (pass-if-equal 0 (string-utf8-length ""))
- (pass-if-equal 1 (string-utf8-length "\0"))
- (pass-if-equal 5 (string-utf8-length "hello"))
- (pass-if-equal 7 (string-utf8-length "helloλ"))
- (pass-if-equal 9 (string-utf8-length "ሠላም")))
+ (pass-if-equal "string-utf8-length empty string" 0 (string-utf8-length ""))
+ (pass-if-equal "string-utf8-length string w/ null" 1 (string-utf8-length "\0"))
+ (pass-if-equal "string-utf8-length 'hello'" 5 (string-utf8-length "hello"))
+ (pass-if-equal "string-utf8-length 'helloλ'" 7 (string-utf8-length "helloλ"))
+ (pass-if-equal "string-utf8-length 'ሠላም'" 9 (string-utf8-length "ሠላም")))
;;
;; string-ref
diff --git a/test-suite/tests/web-uri.test b/test-suite/tests/web-uri.test
index e9fb766f0..d8b0e58a5 100644
--- a/test-suite/tests/web-uri.test
+++ b/test-suite/tests/web-uri.test
@@ -700,6 +700,6 @@
(equal? '("foo+bar") (split-and-decode-uri-path "foo+bar"))))
(with-test-prefix "encode"
- (pass-if (equal? "foo%20bar" (uri-encode "foo bar")))
- (pass-if (equal? "foo%0A%00bar" (uri-encode "foo\n\x00bar")))
- (pass-if (equal? "%3C%3E%5C%5E" (uri-encode "<>\\^"))))
+ (pass-if "uri-encode 'foo bar'" (equal? "foo%20bar" (uri-encode "foo bar")))
+ (pass-if "uri-encode 'foo\\n\\x00bar'" (equal? "foo%0A%00bar" (uri-encode "foo\n\x00bar")))
+ (pass-if "uri-encode '<>\\\\^'"(equal? "%3C%3E%5C%5E" (uri-encode "<>\\^"))))