1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00

Update srfi-14 test for Unicode 6.1

Some Latin-1 symbols have been reclassified as punctuation

* test-suite/tests/srfi-14.test: updated
This commit is contained in:
Mike Gran 2012-02-02 19:50:07 -08:00
parent 1d00abb04f
commit ec97a06f86

View file

@ -797,13 +797,13 @@
(pass-if "char-set:punctuation" (pass-if "char-set:punctuation"
(char-set<= (string->char-set (char-set<= (string->char-set
(string-append "!\"#%&'()*,-./:;?@[\\]_{}" (string-append "!\"#%&'()*,-./:;?@[\\]_{}"
"<22><><EFBFBD><EFBFBD><EFBFBD>")) "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"))
char-set:punctuation)) char-set:punctuation))
(pass-if "char-set:symbol" (pass-if "char-set:symbol"
(char-set<= (string->char-set (char-set<= (string->char-set
(string-append "$+<=>^`|~" (string-append "$+<=>^`|~"
"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>")) "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"))
char-set:symbol)) char-set:symbol))
;; Note that SRFI-14 itself is inconsistent here. Characters that ;; Note that SRFI-14 itself is inconsistent here. Characters that