emo
/
thin-provisioning-tools
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[functional-tests/regex-bench] update benchmark to use regex from a 

string rather than combinators.
This commit is contained in:
Joe Thornber 2017-08-29 13:26:14 +01:00
parent 14d1751022
commit 13cee36804
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
functional-tests/regex-bench.scm
View File

@ -2,10 +2,6 @@
(regex) (regex)
(loops)) (loops))
(let ((rx (compile-rx (let ((rx (regex "a*foob+")))
(seq (seq (star (lit "a")) (time (upto (n 1000000)
(lit "foo")) (rx "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaafoobbbbbbb"))))
(plus
(lit "b"))))))
(time (upto (n 1000000)
(rx "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaafoobbbbbbb"))))