This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=fd769cec4ce951f74daa3124d9426be11c631737 The branch, string_abstraction2 has been updated via fd769cec4ce951f74daa3124d9426be11c631737 (commit) from c2352f773a02deb840351db2a66ec66240f53575 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit fd769cec4ce951f74daa3124d9426be11c631737 Author: Michael Gran <[email protected]> Date: Sun Jul 26 12:52:18 2009 -0700 Fix SRFI-14 tests Now uses explicit characters in the tests. Also, removes the soft hyphen from the punctuation test. * test-suite/tests/srfi-14.test: test fixes ----------------------------------------------------------------------- Summary of changes: test-suite/tests/srfi-14.test | 38 ++++++++++++++++++++++++-------------- 1 files changed, 24 insertions(+), 14 deletions(-) diff --git a/test-suite/tests/srfi-14.test b/test-suite/tests/srfi-14.test index 5b7ebe8..0c8f68e 100644 --- a/test-suite/tests/srfi-14.test +++ b/test-suite/tests/srfi-14.test @@ -173,30 +173,33 @@ (= (char-set-size (char-set-fold (lambda (c cs) (char-set-adjoin cs c)) (char-set) (char-set #\a #\b))) 2))) +(define char-set:256 + (string->char-set (apply string (map integer->char (iota 256))))) + (with-test-prefix "char-set-unfold" (pass-if "create char set" - (char-set= char-set:full + (char-set= char-set:256 (char-set-unfold (lambda (s) (= s 256)) integer->char (lambda (s) (+ s 1)) 0))) (pass-if "create char set (base set)" - (char-set= char-set:full + (char-set= char-set:256 (char-set-unfold (lambda (s) (= s 256)) integer->char (lambda (s) (+ s 1)) 0 char-set:empty)))) (with-test-prefix "char-set-unfold!" (pass-if "create char set" - (char-set= char-set:full + (char-set= char-set:256 (char-set-unfold! (lambda (s) (= s 256)) integer->char (lambda (s) (+ s 1)) 0 (char-set-copy char-set:empty)))) (pass-if "create char set" - (char-set= char-set:full + (char-set= char-set:256 (char-set-unfold! (lambda (s) (= s 32)) integer->char (lambda (s) (+ s 1)) 0 - (char-set-copy char-set:full))))) + (char-set-copy char-set:256))))) (with-test-prefix "char-set-for-each" @@ -247,8 +250,8 @@ (pass-if "char-set:letter" (char-set<= (char-set-union - char-set:lower-case - char-set:upper-case) + (string->char-set "abcdefghijklmnopqrstuvwxyz") + (string->char-set "ABCDEFGHIJKLMNOPQRSTUVWXYZ")) char-set:letter)) (pass-if "char-set:digit" @@ -261,8 +264,9 @@ (pass-if "char-set:letter+digit" (char-set<= (char-set-union - char-set:letter - char-set:digit) + (string->char-set "abcdefghijklmnopqrstuvwxyz") + (string->char-set "ABCDEFGHIJKLMNOPQRSTUVWXYZ") + (string->char-set "0123456789")) char-set:letter+digit)) (pass-if "char-set:punctuation" @@ -373,10 +377,16 @@ (pass-if "char-set:letter" (if (not %latin1) (throw 'unresolved) - (char-set<= (char-set-union - char-set:lower-case - char-set:upper-case - (string->char-set "ªº")) + (char-set<= (string->char-set + (string-append + ;; Lowercase + "abcdefghijklmnopqrstuvwxyz" + "µßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþÿ" + ;; Uppercase + "ABCDEFGHIJKLMNOPQRSTUVWXYZ" + "ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞ" + ;; Uncased + "ªº")) char-set:letter))) (pass-if "char-set:digit" @@ -404,7 +414,7 @@ (throw 'unresolved) (char-set<= (string->char-set (string-append "!\"#%&'()*,-./:;?...@[\\]_{}" - "¡«·»¿")) + "¡«·»¿")) char-set:punctuation))) (pass-if "char-set:symbol" hooks/post-receive -- GNU Guile
