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

Change test to use exact flonums instead of 0.1

Browse Source
This commit is contained in:
Neil Toronto 2014-04-28 01:14:01 -06:00
parent 9cb652dd0e
commit 2677568b3d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/math-pkgs/math-test/math/tests/matrix-tests.rkt
View File

@ -698,8 +698,8 @@
;; ===================================================================================================
;; Error
(for*: ([x (in-list '(-inf.0 -10.0 -1.0 -0.1 -0.0 0.0 0.1 1.0 10.0 +inf.0 +nan.0))]
[y (in-list '(-inf.0 -10.0 -1.0 -0.1 -0.0 0.0 0.1 1.0 10.0 +inf.0 +nan.0))])
(for*: ([x (in-list '(-inf.0 -10.0 -1.0 -0.25 -0.0 0.0 0.25 1.0 10.0 +inf.0 +nan.0))]
[y (in-list '(-inf.0 -10.0 -1.0 -0.25 -0.0 0.0 0.25 1.0 10.0 +inf.0 +nan.0))])
(check-eqv? (fl (matrix-absolute-error (row-matrix [x])
(row-matrix [y])))
(fl (absolute-error x y))