mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-22 03:01:31 +03:00
20 lines
395 B
Idris
20 lines
395 B
Idris
|
import Data.Double
|
||
|
|
|
||
|
|
-- adding the unit roundoff to a Double should not modify it
|
||
|
|
|
||
|
|
testOnePlusUR : Bool
|
||
|
|
testOnePlusUR = 1.0 + unitRoundoff == 1.0
|
||
|
|
|
||
|
|
testURPlusOne : Bool
|
||
|
|
testURPlusOne = unitRoundoff + 1.0 == 1.0
|
||
|
|
|
||
|
|
testURComm : Bool
|
||
|
|
testURComm = testOnePlusUR == testURPlusOne
|
||
|
|
|
||
|
|
|
||
|
|
-- the machine epsilon should be double the unit roundoff
|
||
|
|
|
||
|
|
testEps2UR : Bool
|
||
|
|
testEps2UR = epsilon == unitRoundoff * 2.0
|
||
|
|
|