From 5881bd94e06fd5a4b7a2ba7fcaf941087ae55a00 Mon Sep 17 00:00:00 2001
From: Ben Greenman <benjaminlgreenman@gmail.com>
Date: Thu, 7 Jul 2016 13:38:24 -0400
Subject: [PATCH] [test] new regexp test

---
 test/regexp-pass.rkt | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/test/regexp-pass.rkt b/test/regexp-pass.rkt
index a0a9061..3b212f9 100644
--- a/test/regexp-pass.rkt
+++ b/test/regexp-pass.rkt
@@ -83,6 +83,11 @@
       (U #f (List String)))
     '("hello"))
 
+  (check-equal?
+    (ann (regexp-match: "\\(a+\\)([ab]*)" "(aa)bb")
+         (U #f (List String String)))
+    '("(aa)bb" "bb"))
+
   (check-equal?
     (ann
       (regexp-match: "hello" "world")