scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

One more test

This commit is contained in:
mainzelm 2006-03-23 10:53:08 +00:00
parent 8246b41681
commit e1bcf389b6
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scsh/test/pattern-matching-test.scm
View File

@ -278,7 +278,7 @@
(equal? "D" (equal? "D"
(match:substring (string-match (rx ascii) test-string)))))) (match:substring (string-match (rx ascii) test-string))))))
(add-test! 'uncsae-w/case-w/nocase-test 'pattern-matching (add-test! 'uncase-w/case-w/nocase-test 'pattern-matching
(lambda () (lambda ()
(and (equal? "foo" (and (equal? "foo"
(match:substring (string-match (rx (uncase "foo")) "bla foo bla"))) (match:substring (string-match (rx (uncase "foo")) "bla foo bla")))
@ -517,12 +517,18 @@
;; XXX perhaps only a mistake in the manual - it says: ;; XXX perhaps only a mistake in the manual - it says:
;; uncase-char-set was of the type: cset -> re ;; uncase-char-set was of the type: cset -> re
;; in fact it is of the type: cset -> cset ;; in fact it is of the type: cset -> cset
(add-test! 'uncase-char-set-test 'patern-matching (add-test! 'uncase-char-set-test 'pattern-matching
(lambda () (lambda ()
(equal? "B" (equal? "B"
(match:substring (string-match (uncase-char-set (list->char-set (list #\a #\b #\c))) (match:substring (string-match (uncase-char-set (list->char-set (list #\a #\b #\c)))
"dDBb"))))) "dDBb")))))
(add-test! 'uncase-re-char-set-test 'pattern-matching
(lambda ()
(equal? "d"
(match:substring (string-match (uncase (rx (/ "AZ")))
"dDBb")))))
(add-test! 'uncase-string-test 'pattern-matching (add-test! 'uncase-string-test 'pattern-matching
(lambda () (lambda ()
(equal? "FoO" (equal? "FoO"