One more test
This commit is contained in:
parent
8246b41681
commit
e1bcf389b6
|
@ -278,7 +278,7 @@
|
|||
(equal? "D"
|
||||
(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 ()
|
||||
(and (equal? "foo"
|
||||
(match:substring (string-match (rx (uncase "foo")) "bla foo bla")))
|
||||
|
@ -517,12 +517,18 @@
|
|||
;; XXX perhaps only a mistake in the manual - it says:
|
||||
;; uncase-char-set was of the type: cset -> re
|
||||
;; 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 ()
|
||||
(equal? "B"
|
||||
(match:substring (string-match (uncase-char-set (list->char-set (list #\a #\b #\c)))
|
||||
"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
|
||||
(lambda ()
|
||||
(equal? "FoO"
|
||||
|
|
Loading…
Reference in New Issue