planetdev/unlib/profile-test.ss
#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))))