Changeset 39401 in project

Timestamp:

11/27/20 19:05:37 (5 months ago)

Author:

Kon Lovett

Message:

no export iter, stop double eval in test, timer resolution for test

Location:

release/5/micro-benchmark/trunk

Files:

• micro-benchmark.scm (modified) (1 diff)
• tests/micro-benchmark-test-utils.scm (modified) (2 diffs)
• tests/micro-benchmark-test.scm (modified) (5 diffs)

release/5/micro-benchmark/trunk/micro-benchmark.scm

@@ -12 +12 @@
   (benchmark-run generate-statistics)
   (benchmark-ips generate-statistics)
-  run-benchmark-ips
-  *iterations-overhead*)
+  run-benchmark-ips)
 
 (import scheme

release/5/micro-benchmark/trunk/tests/micro-benchmark-test-utils.scm

@@ -1 +1 @@
 ;;;;
-
-;NOTE (sleep i) seems to actually sleep i-1 seconds on windows
 
 ;;
@@ -8 +6 @@
   (syntax-rules ()
     ((_ ?O ?expr)
-     (test-bigO ((let () (import (only (chicken string) ->string)) ->string) ?expr) ?O ?expr) )
+     (let ((_expr ?expr))
+      (import (only (chicken string) ->string))
+      (test-bigO (->string _expr) ?O _expr) ) )
     ((_ ?msg ?O ?expr)
-     (test-assert ?msg (bigO= ?O ?expr)) ) ) )
+     (begin
+      #;(gloss ?expr)
+      (test-assert ?msg (bigO= ?O ?expr))) ) ) )
 
 ;;

release/5/micro-benchmark/trunk/tests/micro-benchmark-test.scm

@@ -22 +22 @@
 ;;
 
-(define (ÎŒs->secs ÎŒs) (/ ÎŒs 1000000.0))
+;(define-constant RT/SEC 1000000000.0) ;ns
+(define-constant RT/SEC 1000000.0)    ;ÎŒs
+
+(define (rt->secs x) (/ x RT/SEC))
 
 (import (only micro-stats generate-statistics))
@@ -28 +31 @@
 (test-begin "micro-benchmark")
 
+;NOTE (sleep i) seems to actually sleep i-1 seconds on windows
+
+#;
 (test-group "basic"
   (test-assert (glossed *iterations-overhead*))
@@ -35 +41 @@
 (test-group "benchmark-measure"
   (wait-message)
-  (test-bigO "benchmark-measure returns runtime" 1000000.0 (benchmark-measure (sleep 2)))
+  (test-bigO "benchmark-measure returns runtime" RT/SEC (benchmark-measure (sleep 2)))
   (wait-message)
   (parameterize ((current-test-epsilon 0.009))
-    (test 1.00 (ÎŒs->secs (benchmark-measure (sleep 1))))
+    (test 1.00 (rt->secs (benchmark-measure (sleep 1))))
   )
 )
@@ -55 +61 @@
           (generate-statistics runs (current-benchmark-statistics-set)))) )
       #;(gloss stats)
-      (bigO-stats-tests 1000000.0 stats '(
+      (bigO-stats-tests RT/SEC stats '(
         max min
         95th
@@ -73 +79 @@
     ;simply measure the runtime of the given fragment
     (wait-message)
-    (test 2.00 (ÎŒs->secs (benchmark-measure (sleep 2))))
+    (test 2.00 (rt->secs (benchmark-measure (sleep 2))))
 
     ;run code 3 times and return results
     (wait-message)
-    (test 1.00 (ÎŒs->secs (stats-item mean (benchmark-run (sleep 1)))))
+    (test 1.00 (rt->secs (stats-item mean (benchmark-run (sleep 1)))))
 
     ;find out how many iterations we can make per second