suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tests for rx conditionals

Browse Source 
svn: r4332
This commit is contained in:
Matthew Flatt 2006-09-14 05:41:43 +00:00
parent 210cb5affe
commit 381ddd655b
1 changed files with 31 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
collects/tests/mzscheme/rx.ss
View File

@ -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