suzanne.soy/trivial
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[test] new regexp test

Browse Source
This commit is contained in:
Ben Greenman 2016-07-07 13:38:24 -04:00
parent c27e1b2efa
commit 5881bd94e0
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/regexp-pass.rkt
View File

@ -83,6 +83,11 @@
(U #f (List String))) (U #f (List String)))
'("hello")) '("hello"))
(check-equal?
(ann (regexp-match: "\\(a+\\)([ab]*)" "(aa)bb")
(U #f (List String String)))
'("(aa)bb" "bb"))
(check-equal? (check-equal?
(ann (ann
(regexp-match: "hello" "world") (regexp-match: "hello" "world")