From e32e1383fe4ef6736b1441c0dc10439d8521da85 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 19 Feb 2016 18:58:49 -0700 Subject: [PATCH] fix test that was supposed to be Windows-specific --- pkgs/racket-test-core/tests/racket/date.rktl | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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)