Changeset 39393 in project

Timestamp:

11/27/20 14:44:38 (8 weeks ago)

Author:

Kon Lovett

Message:

be explicit - test expr & test result, add "raw" test to bigO measure

Location:

release/5/micro-benchmark/trunk/tests

Files:

• micro-benchmark-test-utils.scm (modified) (2 diffs)
• micro-benchmark-test.scm (modified) (3 diffs)

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
 
 ;;
@@ -9 +11 @@
     ((_ ?msg ?O ?expr)
      (test-assert ?msg (bigO= ?O ?expr)) ) ) )
-
-;;
-
-;NOTE (sleep i) seems to actually sleep i-1 seconds on windows
-(define-constant SLEEP-TIME 2)
-
-(define (busy-work)
-  (import (chicken time posix))
-  (sleep SLEEP-TIME) )
 
 ;;

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

@@ -33 +33 @@
 )
 
+(test-group "benchmark-measure"
+  (wait-message)
+  (test-bigO "benchmark-measure returns runtime" 1000000.0 (benchmark-measure (sleep 2)))
+  (wait-message)
+  (parameterize ((current-test-epsilon 0.009))
+    (test 1.00 (ÎŒs->secs (benchmark-measure (sleep 1))))
+  )
+)
+
 (parameterize ((current-test-epsilon 0.001)
                (current-benchmark-statistics-set #t)
                (current-benchmark-iterations 3) )
-
-  (test-group "benchmark-measure"
-    (wait-message)
-    (test-bigO "benchmark-measure returns runtime"
-      1000000.0 (benchmark-measure (busy-work) 'test))
-  )
-
   (test-group "benchmark-run"
     (let (
@@ -50 +52 @@
             (begin
               (wait-message)
-              (benchmark-measure-run (begin (busy-work) 'test)))) )
+              (benchmark-measure-run (begin (sleep 2))))) )
           (generate-statistics runs (current-benchmark-statistics-set)))) )
       #;(gloss stats)
@@ -59 +61 @@
 
     (let ((stats (benchmark-run (1) #t)))
-      (test "deviation for a single result" 0.0 (stats-item sd stats))
-      #;(gloss stats) )
+      #;(gloss stats)
+      (test "deviation for a single result" 0.0 (stats-item sd stats)) )
   )
 )