From 5baad79e7b3bfb5ef2f1941d692fad606c00bf66 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 21 Sep 2006 02:18:25 +0000
Subject: [PATCH] tests to go with a recent rx bug fix

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

diff --git a/collects/tests/mzscheme/rx.ss b/collects/tests/mzscheme/rx.ss
index 62a32cf8b2..adf7ba3b08 100644
--- a/collects/tests/mzscheme/rx.ss
+++ b/collects/tests/mzscheme/rx.ss
@@ -1668,6 +1668,12 @@
 (test '(#"d") regexp-match #rx#"[\\d]" #"0d")
 (test '(#"\\") regexp-match #rx#"[\\d]" #"0\\")
 
+;; Check $:
+(test '(#"$") regexp-match #px#"\\$" #"a$b")
+(test '(#"$") regexp-match #rx#"\\$" #"a$b")
+(test '(#"a$") regexp-match #px#"a\\$" #"a$b")
+(test '(#"a$") regexp-match #rx#"a\\$" #"a$b")
+
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (report-errs)