suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix test that was supposed to be Windows-specific

Browse Source
This commit is contained in:
Matthew Flatt 2016-02-19 18:58:49 -07:00
parent 0606228959
commit e32e1383fe
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/racket-test-core/tests/racket/date.rktl
View File

@ -120,9 +120,10 @@
(test 789/1000 - (date*->seconds d) (date->seconds d))) (test 789/1000 - (date*->seconds d) (date->seconds d)))
;; Check some overflow handling on Windows: ;; Check some overflow handling on Windows:
(let ([out-of-range (lambda (exn) (regexp-match? #rx"out-of-range" (exn-message exn)))]) (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 40)) out-of-range)
(err/rt-test (seconds->date (expt 2 50)) 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)) (err/rt-test (seconds->date (expt 2 60)) out-of-range)))
(report-errs) (report-errs)