From e1bcf389b6f3fcb0062d84ef23ea6f64e2d183b8 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Thu, 23 Mar 2006 10:53:08 +0000
Subject: [PATCH] One more test

---
 scsh/test/pattern-matching-test.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/scsh/test/pattern-matching-test.scm b/scsh/test/pattern-matching-test.scm
index aa24eb0..a904c7e 100644
--- a/scsh/test/pattern-matching-test.scm
+++ b/scsh/test/pattern-matching-test.scm
@@ -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"