From acfcb9878c7fa183cb038d806b483848da9a9dc6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 24 Apr 2008 19:04:16 +0000
Subject: [PATCH] test for tailing-vertical-bar regexp bug

svn: r9461
---
 collects/tests/mzscheme/rx.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/tests/mzscheme/rx.ss b/collects/tests/mzscheme/rx.ss
index 50ad4171ef..4babe3a30a 100644
--- 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"))