test for tailing-vertical-bar regexp bug

svn: r9461
2008-04-24 19:04:16 +00:00 · 2008-04-24 19:04:16 +00:00 · acfcb9878c
commit acfcb9878c
parent b80d99c2f9
1 changed files with 2 additions and 0 deletions
--- a/collects/tests/mzscheme/rx.ss
+++ b/collects/tests/mzscheme/rx.ss
@ -873,6 +873,8 @@
       #"{}"
       #"{}"
       (#"|" #"x" (#""))
+       (#"|x" #"x" (#""))
+       (#"x|" #"x" (#"x"))
       (#"\0000" #"\0000" (#"\0\x30"))
       (#"a(?<=)b" #"ab" (#"ab"))
       (#"a(?i:b)" #"ab" (#"ab"))