Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: ff49735c94
Fetching contributors…

Cannot retrieve contributors at this time

42 lines (29 sloc) 1.125 kb
#lang scheme/base
(require "profile.ss"
"test-base.ss")
; Helpers ----------------------------------------
(define-timer outer-timer)
(define-timer inner-timer)
(define (outer)
(sleep 1)
(with-timer inner-timer
(inner))
(sleep 1))
(define (inner)
(sleep 1))
; Tests ------------------------------------------
(define/provide-test-suite profile-tests
#:before (lambda ()
(printf "Starting tests for profile.ss (these will take a few seconds).~n")
(profile outer-timer outer))
#:after (lambda ()
(printf "Finished tests for profile.ss.~n"))
(test-case "outer-timer"
(check > (timer-value outer-timer) 2000)
(check < (timer-value outer-timer) 3000))
(test-case "inner-timer"
(check > (timer-value inner-timer) 1000)
(check < (timer-value inner-timer) 2000))
(test-case "timer custom-write"
(check-pred (cut regexp-match #rx"#<timer:outer-timer 0m 2.[0-9][0-9][0-9]s>" <>) (format "~a" outer-timer))
(check-pred (cut regexp-match #rx"#<timer:inner-timer 0m 1.[0-9][0-9][0-9]s>" <>) (format "~a" inner-timer))))
Jump to Line
Something went wrong with that request. Please try again.