[Guile-commits] 27/50: Avoid writing nulls in check-guile.log

[Mike Gran via Guile-commits]

mike121 pushed a commit to branch wip-mingw-2025
in repository guile.

commit 0f748b32aaf19f2784f9f27ac2b851afb9878f71
Author: Michael Gran <spk...@yahoo.com>
AuthorDate: Tue Jul 11 21:23:01 2023 -0700

    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
---
 test-suite/tests/strings.test | 10 +++++-----
 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 "<>\\^"))))