Changeset 39379 in project

Timestamp:

11/24/20 17:35:39 (2 months ago)

Author:

Kon Lovett

Message:

remove -lrt (?), common waitmsg

Location:

release/5/micro-benchmark/trunk

Files:

• micro-benchmark.egg (modified) (2 diffs)
• tests/micro-benchmark-test.scm (modified) (6 diffs)

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

@@ -1 +1 @@
 ((synopsis "easily create micro-benchmarks")
- (version "0.0.4")
+ (version "0.0.5")
  (author "David Krentzlin")
  (maintainer "[[kon lovett]]")
@@ -10 +10 @@
   (extension micro-benchmark
     (types-file)
-    (cond-expand
-      (linux
-        (csc-options "-lrt" "-O4" "-d0" "-disable-interrupts" "-strict-types" "-no-procedure-checks-for-toplevel-bindings"))
-      (else
-        (csc-options "-O4" "-d0" "-disable-interrupts" "-strict-types" "-no-procedure-checks-for-toplevel-bindings")) ) ) ) )
+    (csc-options "-O4" "-d0" "-disable-interrupts" "-strict-types" "-no-procedure-checks-for-toplevel-bindings") ) ) )

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

@@ -11 +11 @@
         (begin (set! saved x) x)))))
 
+(define (wait-message) (gloss "Please Wait ..."))
+
 (test-begin "micro-benchmark")
 
@@ -22 +24 @@
 (test-begin "micro-benchmark")
 
-(test-assert (glossed *iterations-overhead*))
-(glossed)
+(test-group "basic"
+  (test-assert (glossed *iterations-overhead*))
+  (glossed)
+)
 
 (test-group "examples"
@@ -29 +33 @@
 
   ;simply measure the runtime of the given fragment
+  (wait-message)
   (test-assert (glossed (benchmark-measure (sleep 2))))
   (glossed)
 
   ;run code 3 times and return results
+  (wait-message)
   (parameterize ((current-benchmark-iterations 3))
     (test-assert (glossed (benchmark-run (sleep 1))))
@@ -38 +44 @@
 
   ;find out how many iterations we can make per second
+  (wait-message)
   (test-assert (glossed (benchmark-ips (sleep 2))))
   (glossed)
@@ -45 +52 @@
                (current-benchmark-statistics-set #t) )
   ;
-  (gloss "Please Wait")
+  (wait-message)
   (test-bigO "benchmark-measure returns runtime"
     1000000.0 (benchmark-measure (busy-work) 'test))
@@ -55 +62 @@
           (runs
             (parameterize ((current-benchmark-iterations 3))
-              (gloss "Please Wait")
+              (wait-message)
               (benchmark-measure-run (begin (busy-work) 'test)))) )
           (generate-statistics runs (current-benchmark-statistics-set)))) )