From 381ddd655bd3a1e5bba1054de0e41ccf618567a2 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 14 Sep 2006 05:41:43 +0000
Subject: [PATCH] tests for rx conditionals

svn: r4332
---
 collects/tests/mzscheme/rx.ss | 32 +++++++++++++++++++++++++++++++-
 1 file changed, 31 insertions(+), 1 deletion(-)

diff --git a/collects/tests/mzscheme/rx.ss b/collects/tests/mzscheme/rx.ss
index bcdf8fb1b2..5ca6193735 100644
--- a/collects/tests/mzscheme/rx.ss
+++ b/collects/tests/mzscheme/rx.ss
@@ -1488,7 +1488,37 @@
        (#"(?m:a[^a]^b$)" #"a\nb\nc" (#"a\nb"))
        (#"(?m:a$[^a]^b$)" #"a\nb\nc" (#"a\nb"))
        (#"(?m:a[^a]^b[^a]^c)" #"a\nb\nc" (#"a\nb\nc"))
-       (#"(?m:^a$[^a]^b$[^a]^c$)" #"a\nb\nc" (#"a\nb\nc"))))
+       (#"(?m:^a$[^a]^b$[^a]^c$)" #"a\nb\nc" (#"a\nb\nc"))
+       #"(?())"
+       #"(?(a))"
+       #"(?(\\1))"
+       #"(?(\\1)a|b|c)"
+       #"(?(?=x)a|b|c)"
+       #"(?(?=x)a"
+       #"(?(?=x)a|b"
+       #"(?(?=x)a|b|"
+       (#"(a)?(?(\\1)12|b12)" #"a12" (#"a12" #"a"))
+       (#"(a)?(?(\\1)12|b12)" #"b12" (#"b12" #f))
+       (#"(a)?(?(\\1)12|b12)" #"b13" #f)
+       (#"(a)?(?(\\1)|b12)" #"a12" (#"a" #"a"))
+       (#"(a)?(?(\\1)12)" #"a12" (#"a12" #"a"))
+       (#"(a)?(?(\\1)12)" #"b12" (#"" #f))
+       (#"(?(?=a)a12|b12)" #"a12" (#"a12"))
+       (#"(?(?=a)a12|b12)" #"b12" (#"b12"))
+       (#"(?(?=a)a12|b12)" #"c12" #f)
+       (#"(?(?=a)a12|b12)" #"b13" #f)
+       (#"(?(?!a).12|a13)" #"a13" (#"a13"))
+       (#"(?(?!a).12|a13)" #"b12" (#"b12"))
+       (#"(?(?!a).12|a13)" #"c12" (#"c12"))
+       (#"(?(?!a).12|a13)" #"c13" #f)
+       (#"(?(?<=a)12|13)" #"a12" (#"12"))
+       (#"(?(?<=a)12|13)" #"b13" (#"13"))
+       (#"(?(?<=a)12|13)" #"a13" #f)
+       (#"(?(?<=a)12|13)" #"b12" #f)
+       (#"(?(?<!a)12|13)" #"b12" (#"12"))
+       (#"(?(?<!a)12|13)" #"a13" (#"13"))
+       (#"(?(?<!a)12|13)" #"b13" #f)
+       (#"(?(?<!a)12|13)" #"a12" #f)))
 
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;  Test unicode-property patterns