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

remove use of tests/racket/maybe-single in a module

Browse Source 
The `tests/racket/maybe-single` reader should be used only in ".rktl"
test files, but I had used it in a ".rkt" test file.
This commit is contained in:
Matthew Flatt 2019-06-11 20:00:20 -06:00
parent d8c3edd3e1
commit 204b5cb52e
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/racket-test/tests/racket/contract/flat-contracts.rkt
View File

@ -107,10 +107,9 @@
(test-flat-contract #e1 #i1.0 'x #:skip-predicate-checks? #t) (test-flat-contract #e1 #i1.0 'x #:skip-predicate-checks? #t)
(test-flat-contract +nan.0 +nan.0 +inf.0 #:skip-predicate-checks? #t) (test-flat-contract +nan.0 +nan.0 +inf.0 #:skip-predicate-checks? #t)
(test-flat-contract +inf.0 +inf.0 +nan.0 #:skip-predicate-checks? #t) (test-flat-contract +inf.0 +inf.0 +nan.0 #:skip-predicate-checks? #t)
#reader tests/racket/maybe-single
(when (single-flonum-available?) (when (single-flonum-available?)
(test-flat-contract +nan.0 +nan.0 +nan.f #:skip-predicate-checks? #t) (test-flat-contract +nan.0 +nan.0 (real->single-flonum +nan.0) #:skip-predicate-checks? #t)
(test-flat-contract +nan.f +nan.f +nan.0 #:skip-predicate-checks? #t)) (test-flat-contract (real->single-flonum +nan.0) (real->single-flonum +nan.0) +nan.0 #:skip-predicate-checks? #t))
(test-flat-contract #rx".x." "axq" "x" #:skip-predicate-checks? #t) (test-flat-contract #rx".x." "axq" "x" #:skip-predicate-checks? #t)
(test-flat-contract #rx#".x." #"axq" #"x" #:skip-predicate-checks? #t) (test-flat-contract #rx#".x." #"axq" #"x" #:skip-predicate-checks? #t)
(test-flat-contract #rx".x." #"axq" #"x" #:skip-predicate-checks? #t) (test-flat-contract #rx".x." #"axq" #"x" #:skip-predicate-checks? #t)