Changeset 39401 in project
- Timestamp:
- 11/27/20 19:05:37 (7 weeks ago)
- Location:
- release/5/micro-benchmark/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
release/5/micro-benchmark/trunk/micro-benchmark.scm
r39375 r39401 12 12 (benchmark-run generate-statistics) 13 13 (benchmark-ips generate-statistics) 14 run-benchmark-ips 15 *iterations-overhead*) 14 run-benchmark-ips) 16 15 17 16 (import scheme -
release/5/micro-benchmark/trunk/tests/micro-benchmark-test-utils.scm
r39393 r39401 1 1 ;;;; 2 3 ;NOTE (sleep i) seems to actually sleep i-1 seconds on windows4 2 5 3 ;; … … 8 6 (syntax-rules () 9 7 ((_ ?O ?expr) 10 (test-bigO ((let () (import (only (chicken string) ->string)) ->string) ?expr) ?O ?expr) ) 8 (let ((_expr ?expr)) 9 (import (only (chicken string) ->string)) 10 (test-bigO (->string _expr) ?O _expr) ) ) 11 11 ((_ ?msg ?O ?expr) 12 (test-assert ?msg (bigO= ?O ?expr)) ) ) ) 12 (begin 13 #;(gloss ?expr) 14 (test-assert ?msg (bigO= ?O ?expr))) ) ) ) 13 15 14 16 ;; -
release/5/micro-benchmark/trunk/tests/micro-benchmark-test.scm
r39393 r39401 22 22 ;; 23 23 24 (define (ÎŒs->secs ÎŒs) (/ ÎŒs 1000000.0)) 24 ;(define-constant RT/SEC 1000000000.0) ;ns 25 (define-constant RT/SEC 1000000.0) ;ÎŒs 26 27 (define (rt->secs x) (/ x RT/SEC)) 25 28 26 29 (import (only micro-stats generate-statistics)) … … 28 31 (test-begin "micro-benchmark") 29 32 33 ;NOTE (sleep i) seems to actually sleep i-1 seconds on windows 34 35 #; 30 36 (test-group "basic" 31 37 (test-assert (glossed *iterations-overhead*)) … … 35 41 (test-group "benchmark-measure" 36 42 (wait-message) 37 (test-bigO "benchmark-measure returns runtime" 1000000.0(benchmark-measure (sleep 2)))43 (test-bigO "benchmark-measure returns runtime" RT/SEC (benchmark-measure (sleep 2))) 38 44 (wait-message) 39 45 (parameterize ((current-test-epsilon 0.009)) 40 (test 1.00 ( ÎŒs->secs (benchmark-measure (sleep 1))))46 (test 1.00 (rt->secs (benchmark-measure (sleep 1)))) 41 47 ) 42 48 ) … … 55 61 (generate-statistics runs (current-benchmark-statistics-set)))) ) 56 62 #;(gloss stats) 57 (bigO-stats-tests 1000000.0stats '(63 (bigO-stats-tests RT/SEC stats '( 58 64 max min 59 65 95th … … 73 79 ;simply measure the runtime of the given fragment 74 80 (wait-message) 75 (test 2.00 ( ÎŒs->secs (benchmark-measure (sleep 2))))81 (test 2.00 (rt->secs (benchmark-measure (sleep 2)))) 76 82 77 83 ;run code 3 times and return results 78 84 (wait-message) 79 (test 1.00 ( ÎŒs->secs (stats-item mean (benchmark-run (sleep 1)))))85 (test 1.00 (rt->secs (stats-item mean (benchmark-run (sleep 1))))) 80 86 81 87 ;find out how many iterations we can make per second
Note: See TracChangeset
for help on using the changeset viewer.