Ignore:
Timestamp:
11/24/20 17:35:39 (6 months ago)
Author:
Kon Lovett
Message:

remove -lrt (?), common waitmsg

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/micro-benchmark/trunk/tests/micro-benchmark-test.scm

    r39356 r39379  
    1111        (begin (set! saved x) x)))))
    1212
     13(define (wait-message) (gloss "Please Wait ..."))
     14
    1315(test-begin "micro-benchmark")
    1416
     
    2224(test-begin "micro-benchmark")
    2325
    24 (test-assert (glossed *iterations-overhead*))
    25 (glossed)
     26(test-group "basic"
     27  (test-assert (glossed *iterations-overhead*))
     28  (glossed)
     29)
    2630
    2731(test-group "examples"
     
    2933
    3034  ;simply measure the runtime of the given fragment
     35  (wait-message)
    3136  (test-assert (glossed (benchmark-measure (sleep 2))))
    3237  (glossed)
    3338
    3439  ;run code 3 times and return results
     40  (wait-message)
    3541  (parameterize ((current-benchmark-iterations 3))
    3642    (test-assert (glossed (benchmark-run (sleep 1))))
     
    3844
    3945  ;find out how many iterations we can make per second
     46  (wait-message)
    4047  (test-assert (glossed (benchmark-ips (sleep 2))))
    4148  (glossed)
     
    4552               (current-benchmark-statistics-set #t) )
    4653  ;
    47   (gloss "Please Wait")
     54  (wait-message)
    4855  (test-bigO "benchmark-measure returns runtime"
    4956    1000000.0 (benchmark-measure (busy-work) 'test))
     
    5562          (runs
    5663            (parameterize ((current-benchmark-iterations 3))
    57               (gloss "Please Wait")
     64              (wait-message)
    5865              (benchmark-measure-run (begin (busy-work) 'test)))) )
    5966          (generate-statistics runs (current-benchmark-statistics-set)))) )
Note: See TracChangeset for help on using the changeset viewer.