Changeset 39386 in project

Timestamp:

11/25/20 20:44:32 (7 weeks ago)

Author:

Kon Lovett

Message:

actuals test for examples

Location:

release/5/micro-benchmark/trunk/tests

Files:

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

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

@@ -3 +3 @@
 ;;
 
-(import (only (chicken string) ->string))
-
 (define-syntax test-bigO
   (syntax-rules ()
     ((_ ?O ?expr)
-     (test-bigO (->string ?expr) ?O ?expr) )
+     (test-bigO ((let () (import (only (chicken string) ->string)) ->string) ?expr) ?O ?expr) )
     ((_ ?msg ?O ?expr)
      (test-assert ?msg (bigO= ?O ?expr)) ) ) )
@@ -14 +12 @@
 ;;
 
-(import (chicken time posix))
+;NOTE (sleep i) seems to actually sleep i-1 seconds on windows
+(define-constant SLEEP-TIME 2)
 
-;NOTE (sleep i) seems to actually sleep i-1 seconds on windows
-(define SLEEP-TIME 2)
-
-(define (busy-work) (sleep SLEEP-TIME))
+(define (busy-work)
+  (import (chicken time posix))
+  (sleep SLEEP-TIME) )
 
 ;;
 
-(import (only (chicken base) alist-ref))
-
 (define-syntax stats-item
   (syntax-rules ()
-    ((_ ?key ?stats)
-      (stats-ref ?stats '?key) ) ) )
+    ((stats-item ?key ?stats) (stats-ref ?stats '?key)) ) )
 
-(define (stats-ref stats key) (alist-ref key stats))
+(define (stats-ref stats key)
+  (import (only (chicken base) alist-ref))
+  (alist-ref key stats) )
 
 (define (bigO-stats-test expO stats key)

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

@@ -13 +13 @@
 (define (wait-message) (gloss "Please Wait ..."))
 
+;;
+
 (test-begin "micro-benchmark")
 
@@ -19 +21 @@
 
 ;;
+
+(define (ÎŒs->secs ÎŒs) (/ ÎŒs 1000000.0))
 
 (import (only micro-stats generate-statistics))
@@ -29 +33 @@
 )
 
-(test-group "examples"
-  (import (only (chicken base) sleep))
+(parameterize ((current-test-epsilon 0.001)
+               (current-benchmark-statistics-set #t)
+               (current-benchmark-iterations 3) )
 
-  ;simply measure the runtime of the given fragment
-  (wait-message)
-  (test-assert (glossed (benchmark-measure (sleep 2))))
-  (glossed)
+  (test-group "benchmark-measure"
+    (wait-message)
+    (test-bigO "benchmark-measure returns runtime"
+      1000000.0 (benchmark-measure (busy-work) 'test))
+  )
 
-  ;run code 3 times and return results
-  (wait-message)
-  (parameterize ((current-benchmark-iterations 3))
-    (test-assert (glossed (benchmark-run (sleep 1))))
-    (glossed))
-
-  ;find out how many iterations we can make per second
-  (wait-message)
-  (test-assert (glossed (benchmark-ips (sleep 2))))
-  (glossed)
-)
-
-(parameterize ((current-test-epsilon 0.001)
-               (current-benchmark-statistics-set #t) )
-  ;
-  (wait-message)
-  (test-bigO "benchmark-measure returns runtime"
-    1000000.0 (benchmark-measure (busy-work) 'test))
-  ;
   (test-group "benchmark-run"
     (let (
@@ -61 +48 @@
         (let (
           (runs
-            (parameterize ((current-benchmark-iterations 3))
+            (begin
               (wait-message)
               (benchmark-measure-run (begin (busy-work) 'test)))) )
@@ -70 +57 @@
         95th
         arithmetic-mean harmonic-mean geometric-mean median mode)) )
-    ;
+
     (let ((stats (benchmark-run (1) #t)))
       (test "deviation for a single result" 0.0 (stats-item sd stats))
@@ -77 +64 @@
 )
 
+(parameterize ((current-test-epsilon 0.009)
+               (current-benchmark-iterations 3) )
+  (test-group "examples"
+    (import (only (chicken base) sleep))
+
+    ;simply measure the runtime of the given fragment
+    (wait-message)
+    (test 2.00 (ÎŒs->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)))))
+
+    ;find out how many iterations we can make per second
+    (wait-message)
+    (test 0.5 (* 0.1 (round (* 10.0 (stats-item mean (benchmark-ips (sleep 2)))))))
+  )
+)
+
 (test-end "micro-benchmark")