diff options
-rw-r--r-- | test-suite/tests/strings.test | 10 | ||||
-rw-r--r-- | test-suite/tests/web-uri.test | 6 |
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 "<>\\^")))) |