diff options
author | Michael Gran <spk121@yahoo.com> | 2023-07-11 21:23:01 -0700 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2025-03-30 18:20:36 -0700 |
commit | 0f748b32aaf19f2784f9f27ac2b851afb9878f71 (patch) | |
tree | 197ec1a3589ac02059e5462c81481b92d7dea2bf | |
parent | 153be2e6a51b873f3460e52fedd58f6f5371b8f3 (diff) | |
download | guile-0f748b32aaf19f2784f9f27ac2b851afb9878f71.tar.gz |
Avoid writing nulls in check-guile.log
Null characters in check-guile.log confuse grep.
* test-suite/tests/strings.test ("string-utf8-length"): add test names
* test-suite/tests/web-uri.test ("encode"): add test names
-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 "<>\\^")))) |