[test] new regexp test

2016-07-07 13:38:24 -04:00 · 2016-07-07 13:38:24 -04:00 · 5881bd94e0
commit 5881bd94e0
parent c27e1b2efa
1 changed files with 5 additions and 0 deletions
--- 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")