dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(module-peek): Removed, this kluge is no longer necessary.

Browse source
This commit is contained in:
Marius Vollmer 2004-08-27 12:44:14 +00:00
commit 685777ca18
1 changed files with 0 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

17
test-suite/tests/srfi-13.test
View file

@ -20,11 +20,6 @@
(use-modules (srfi srfi-13) (srfi srfi-14) (test-suite lib))
;;; 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"))
@ -250,9 +245,6 @@
(string=? (string-tabulate
(lambda (idx) (integer->char (+ idx 32))) 10) " !\"#$%&'()")))
;; Get the procedure from the library.
(define string->list (module-peek '(srfi srfi-13) 'string->list))
(with-test-prefix "string->list"
(pass-if "empty"
@ -356,9 +348,6 @@
(string=? "foo|delim|bar|delim|" (string-join '("foo" "bar") "|delim|"
'suffix))))
;; Get the procedure from the library.
(define string-copy (module-peek '(srfi srfi-13) 'string-copy))
(with-test-prefix "string-copy"
(pass-if "empty string"
@ -568,9 +557,6 @@
(pass-if "start and end index, charset"
(string=? "f" (string-trim-both " \tfoo " char-set:whitespace 1 3))))
;; Get the procedure from the library.
(define string-fill! (module-peek '(srfi srfi-13) 'string-fill!))
(define s0 (make-string 200 #\!))
(define s1 (make-string 0 #\!))
@ -688,9 +674,6 @@
(pass-if "non-empty suffix - no match"
(not (string-suffix-ci? "fOo" "foo bar"))))
;; Get the procedure from the library.
(define string-index (module-peek '(srfi srfi-13) 'string-index))
(with-test-prefix "string-index"
(pass-if "empty string - char"