Changeset 39379 in project


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • release/5/micro-benchmark/trunk/micro-benchmark.egg

    r39375 r39379  
    11((synopsis "easily create micro-benchmarks")
    2  (version "0.0.4")
     2 (version "0.0.5")
    33 (author "David Krentzlin")
    44 (maintainer "[[kon lovett]]")
     
    1010  (extension micro-benchmark
    1111    (types-file)
    12     (cond-expand
    13       (linux
    14         (csc-options "-lrt" "-O4" "-d0" "-disable-interrupts" "-strict-types" "-no-procedure-checks-for-toplevel-bindings"))
    15       (else
    16         (csc-options "-O4" "-d0" "-disable-interrupts" "-strict-types" "-no-procedure-checks-for-toplevel-bindings")) ) ) ) )
     12    (csc-options "-O4" "-d0" "-disable-interrupts" "-strict-types" "-no-procedure-checks-for-toplevel-bindings") ) ) )
  • 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.