mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

Avoid writing nulls in check-guile.log

Browse source 
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
This commit is contained in:
Michael Gran 2023-07-11 21:23:01 -07:00
parent 153be2e6a5
commit 0f748b32aa
2 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
test-suite/tests/strings.test
View file

@ -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

6
test-suite/tests/web-uri.test
View file

@ -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 "<>\\^"))))