summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMartin Grabmüller <mgrabmue@cs.tu-berlin.de>2001-05-08 06:04:15 +0000
committerMartin Grabmüller <mgrabmue@cs.tu-berlin.de>2001-05-08 06:04:15 +0000
commit7cfbc4f7b0b709ffe5c45b36cfa55cbff9731ecb (patch)
tree314cb27b5668be67738519663a41a8e18dc166af
parentdb69b3a7b79f9dfca3c0d06f9cc22fc9672c97ac (diff)
downloadguile-7cfbc4f7b0b709ffe5c45b36cfa55cbff9731ecb.tar.gz
* tests/srfi-13.test: Added module access kludge, and uncommented
some tests depending on this.
-rw-r--r--test-suite/ChangeLog5
-rw-r--r--test-suite/tests/srfi-13.test27
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"