regular-play/test/performance.sml

13 (* performance test flag, set to true to run additional tests *)
23   fun test name tests =
34          val () = foldl (fn (t, ()) => execTestCase t) () tests;
46 fun runTestFun testFun name tests =
47        (testFun name tests; true)
67   val tests = regexTest.getTests();
69   val res1 = runTestFun regexTestRunner1.test "IMPL_ref" tests;
70   val res2 = runTestFun regexTestRunner2.test "IMPL_exec" tests;
71   val res3 = runTestFun regexTestRunner3.test "IMPL_exec_marked" tests;
72   val res4 = runTestFun regexTestRunner4.test "IMPL_exec_mark_cache" tests;
84 (* additional performance tests *)
89 val () = print "And now the performance tests.\n";
97   val tests = regexTest.getPerformanceTests "/dev/urandom" (6);
99   val true = runTestFun regexTestRunner1.test "IMPL_ref_perf" tests;
100   val true = runTestFun regexTestRunner2.test "IMPL_exec_perf" tests;
101   val true = runTestFun regexTestRunner3.test "IMPL_exec_marked_perf" tests;
102   val true = runTestFun regexTestRunner4.test "IMPL_exec_mark_cache_perf" tests;
110   val tests = regexTest.getPerformanceTests "./test/data/test12" (100000);
112   val true = runTestFun regexTestRunner1.test "IMPL_ref_perf" tests;
113 (*  val true = runTestFun regexTestRunner2.test "IMPL_exec_perf" tests;*)
114   val true = runTestFun regexTestRunner3.test "IMPL_exec_marked_perf" tests;
115   val true = runTestFun regexTestRunner4.test "IMPL_exec_mark_cache_perf" tests;
123   val tests = regexTest.getPerformanceTestsRegexSize "./test/data/test12" (10000) (600);
125   val true = runTestFun regexTestRunner1.test "IMPL_ref_perf" tests;
126 (*  val true = runTestFun regexTestRunner2.test "IMPL_exec_perf" tests;*)
127   val true = runTestFun regexTestRunner3.test "IMPL_exec_marked_perf" tests;
128   val true = runTestFun regexTestRunner4.test "IMPL_exec_mark_cache_perf" tests;
136   val tests = regexTest.getPerformanceTestsRegexSize "./test/data/test12" (100000) (10000);
138 (*  val true = runTestFun regexTestRunner1.test "IMPL_ref_perf" tests;*)
139 (*  val true = runTestFun regexTestRunner2.test "IMPL_exec_perf" tests;*)
140   val true = runTestFun regexTestRunner3.test "IMPL_exec_marked_perf" tests;
141   val true = runTestFun regexTestRunner4.test "IMPL_exec_mark_cache_perf" tests;