diff options
author | Martin Grabmüller <mgrabmue@cs.tu-berlin.de> | 2001-05-08 06:04:15 +0000 |
---|---|---|
committer | Martin Grabmüller <mgrabmue@cs.tu-berlin.de> | 2001-05-08 06:04:15 +0000 |
commit | 7cfbc4f7b0b709ffe5c45b36cfa55cbff9731ecb (patch) | |
tree | 314cb27b5668be67738519663a41a8e18dc166af | |
parent | db69b3a7b79f9dfca3c0d06f9cc22fc9672c97ac (diff) | |
download | guile-7cfbc4f7b0b709ffe5c45b36cfa55cbff9731ecb.tar.gz |
* tests/srfi-13.test: Added module access kludge, and uncommented
some tests depending on this.
-rw-r--r-- | test-suite/ChangeLog | 5 | ||||
-rw-r--r-- | test-suite/tests/srfi-13.test | 27 |
2 files changed, 20 insertions, 12 deletions
diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog index 619cf4906..b5f414160 100644 --- a/test-suite/ChangeLog +++ b/test-suite/ChangeLog @@ -1,3 +1,8 @@ +2001-05-08 Martin Grabmueller <mgrabmue@cs.tu-berlin.de> + + * tests/srfi-13.test: Added module access kludge, and uncommented + some tests depending on this. + 2001-05-07 Martin Grabmueller <mgrabmue@cs.tu-berlin.de> * tests/srfi-13.test: New file testing the SRFI string library. diff --git a/test-suite/tests/srfi-13.test b/test-suite/tests/srfi-13.test index 1c345c8ff..2cc0295a5 100644 --- a/test-suite/tests/srfi-13.test +++ b/test-suite/tests/srfi-13.test @@ -20,6 +20,11 @@ (use-modules (srfi srfi-13)) +;;; This kludge is needed, because SRFI-13 redefines some bindings in +;;; the core. +(define (module-peek module-name sym) + (variable-ref (module-variable (resolve-module module-name) sym))) + (define exception:strict-infix-grammar (cons 'misc-error "^strict-infix")) @@ -90,6 +95,7 @@ (string=? (string-tabulate (lambda (idx) (integer->char (+ idx 32))) 10) " !\"#$%&'()"))) +(define string->list (module-peek '(srfi srfi-13) 'string->list)) (with-test-prefix "string->list" @@ -99,13 +105,11 @@ (pass-if "nonempty" (= (length (string->list "foo")) 3)) -;;; FIXME: These do not work, because the standard definition is used, -;;; apparently. -; (pass-if "empty, start index" -; (zero? (length (string->list "foo" 3 3)))) + (pass-if "empty, start index" + (zero? (length (string->list "foo" 3 3)))) -; (pass-if "nonempty, start index" -; (= (length (string->list "foo" 2)) 1 3)) + (pass-if "nonempty, start index" + (= (length (string->list "foo" 1 3)) 2)) ) (with-test-prefix "reverse-list->string" @@ -196,6 +200,7 @@ (string=? "foo|delim|bar|delim|" (string-join '("foo" "bar") "|delim|" 'suffix)))) +(define string-copy (module-peek '(srfi srfi-13) 'string-copy)) (with-test-prefix "string-copy" @@ -205,13 +210,11 @@ (pass-if "full string" (string=? "foo-bar" (string-copy "foo-bar"))) -;;; FIXME: These do not work, because the standard definition is used, -;;; apparently. -; (pass-if "start index" -; (string=? "o-bar" (string-copy "foo-bar" 2))) + (pass-if "start index" + (string=? "o-bar" (string-copy "foo-bar" 2))) -; (pass-if "start and end index" -; (string=? "o-ba" (string-copy "foo-bar" 2 6))) + (pass-if "start and end index" + (string=? "o-ba" (string-copy "foo-bar" 2 6))) ) (with-test-prefix "substring/shared" |