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

Adjust char-set tests to match 8 bit representation

This commit is contained in:
mainzelm 2006-03-23 08:09:51 +00:00
parent c965536804
commit d18adb9c2b
1 changed files with 12 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,13 +1,7 @@
;;; Test for the function in section 6 of the scsh-manual "Pattern-matching strings with regular expressions" ;;; Test for the function in section 6 of the scsh-manual "Pattern-matching strings with regular expressions"
;;; Author: Christoph Hetz ;;; Author: Christoph Hetz
;; for testing: (certainly the path will be an other on other systems...) ;; for testing load this file and call (test-all)
;; ,open define-record-types handle
;; ,config ,load C:/cygwin/home/mephisto/cvs-scsh/scsh/scsh/test/test-packages.scm
;; ,load C:/cygwin/home/mephisto/cvs-scsh/scsh/scsh/test/test-base.scm
;; load this file
;; (test-all)
;; *** basic help-functions *** ;; *** basic help-functions ***
@ -556,28 +550,23 @@
(add-test! 'char-classes+algebra-test 'pattern-matching (add-test! 'char-classes+algebra-test 'pattern-matching
(lambda () (lambda ()
(and (matches-same-signs? (rx (| lower-case upper-case)) (and (matches-same-signs? (rx (| alphabetic numeric))
(rx alphabetic))
(matches-same-signs? (rx (- alphabetic lower-case))
(rx upper-case))
(matches-same-signs? (rx (- alphabetic upper-case))
(rx lower-case))
(matches-same-signs? (rx (& upper-case alphanumeric))
(rx upper-case))
(matches-same-signs? (rx (| upper-case lower-case numeric))
(rx alphanumeric)) (rx alphanumeric))
(matches-same-signs? (rx (~ (& alphanumeric lower-case) (matches-same-signs? (rx (- alphanumeric numeric))
(rx alphabetic))
(matches-same-signs? (rx (- alphanumeric alphabetic))
(rx numeric))
(matches-same-signs? (rx (& alphabetic alphanumeric))
(rx alphabetic))
(matches-same-signs? (rx (| alphabetic numeric numeric))
(rx alphanumeric))
(matches-same-signs? (rx (~ (& alphanumeric numeric)
graphic graphic
(| upper-case numeric))) (| upper-case numeric)))
(rx (- any (rx (- any
alphanumeric alphanumeric
graphic))) graphic)))
(matches-same-signs? (rx (/ "azAZ09")) (matches-same-signs? (rx (/ "09"))
(rx alphanumeric))
(matches-same-signs? (rx (~ (| (/ "az") (/ "AZ") (/ "09"))))
(rx (- any alphanumeric)))
(matches-same-signs? (rx (& (/ "az09")
(/ "AZ09")))
(rx numeric))))) (rx numeric)))))
(add-test! 'different-ways-test 'pattern-matching (add-test! 'different-ways-test 'pattern-matching