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")