diff --git a/pkgs/racket-test-core/tests/racket/date.rktl b/pkgs/racket-test-core/tests/racket/date.rktl index 3e9896a1ea..5acc49889f 100644 --- a/pkgs/racket-test-core/tests/racket/date.rktl +++ b/pkgs/racket-test-core/tests/racket/date.rktl @@ -120,9 +120,10 @@ (test 789/1000 - (date*->seconds d) (date->seconds d))) ;; Check some overflow handling on Windows: -(let ([out-of-range (lambda (exn) (regexp-match? #rx"out-of-range" (exn-message exn)))]) - (err/rt-test (seconds->date (expt 2 40)) out-of-range) - (err/rt-test (seconds->date (expt 2 50)) out-of-range) - (err/rt-test (seconds->date (expt 2 60)) out-of-range)) +(when (eq? (system-type) 'windows) + (let ([out-of-range (lambda (exn) (regexp-match? #rx"out-of-range" (exn-message exn)))]) + (err/rt-test (seconds->date (expt 2 40)) out-of-range) + (err/rt-test (seconds->date (expt 2 50)) out-of-range) + (err/rt-test (seconds->date (expt 2 60)) out-of-range))) (report-errs)