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

string rather than combinators.
2017-08-29 13:26:14 +01:00 · 2017-08-29 13:26:14 +01:00 · 13cee36804
commit 13cee36804
parent 14d1751022
1 changed files with 3 additions and 7 deletions
--- a/functional-tests/regex-bench.scm
+++ b/functional-tests/regex-bench.scm
@ -2,10 +2,6 @@
        (regex)
        (loops))

-(let ((rx (compile-rx
-            (seq (seq (star (lit "a"))
-                      (lit "foo"))
-                 (plus
-                   (lit "b"))))))
-  (time (upto (n 1000000)
-              (rx "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaafoobbbbbbb"))))
+(let ((rx (regex "a*foob+")))
+ (time (upto (n 1000000)
+             (rx "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaafoobbbbbbb"))))