summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2023-07-11 21:23:01 -0700
committerMichael Gran <spk121@yahoo.com>2025-03-30 18:20:36 -0700
commit0f748b32aaf19f2784f9f27ac2b851afb9878f71 (patch)
tree197ec1a3589ac02059e5462c81481b92d7dea2bf
parent153be2e6a51b873f3460e52fedd58f6f5371b8f3 (diff)
downloadguile-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.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 "<>\\^"))))