[Guile-commits] GNU Guile branch, string_abstraction2, updated. release_1-9-1-75-gfd769ce

[Michael Gran]

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 <address@hidden>
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 "!\"#%&'()*,-./:;address@hidden"
-                                     "¡«­·»¿"))
+                                     "¡«·»¿"))
                      char-set:punctuation)))
 
   (pass-if "char-set:symbol"


hooks/post-receive
-- 
GNU Guile