~ chicken-core (chicken-5) 50d9540af6108789a605ccff10915b030a324461

commit 50d9540af6108789a605ccff10915b030a324461
Author:     Peter Bex <address@hidden>
AuthorDate: Wed Jul 18 20:31:09 2012 +0200
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Thu Jul 19 10:16:40 2012 +0200

    Add complemented unicode char-set tests for irregex (upstream changeset 78ba6b09e021)
    
    Signed-off-by: Christian Kellermann <ckeen@pestilenz.org>

diff --git a/tests/test-irregex.scm b/tests/test-irregex.scm
index 11bf225e..fd2cb97a 100644
--- a/tests/test-irregex.scm
+++ b/tests/test-irregex.scm
@@ -504,5 +504,13 @@
 (test-assert (not (irregex-search "(?u:<[あ-ん]*>)" "<ひらgがな>")))
 (test-assert (not (irregex-search "(?u:<[^あ-ん語]*>)" "<語>")))
 
-(test-end)(test-exit)
+(test-assert (irregex-search "(?u:<[^あ-ん]*>)" "<abc>"))
+(test-assert (not (irregex-search "(?u:<[^あ-ん]*>)" "<あん>")))
+(test-assert (not (irregex-search "(?u:<[^あ-ん]*>)" "<ひらがな>")))
+(test-assert (irregex-search "(?u:<[^あ-ん語]*>)" "<abc>"))
+(test-assert (not (irregex-search "(?u:<[^あ-ん語]*>)" "<あん>")))
+(test-assert (not (irregex-search "(?u:<[^あ-ん語]*>)" "<ひらがな>")))
+(test-assert (not (irregex-search "(?u:<[^あ-ん語]*>)" "<語>")))
+
+(test-end)