%%% $Id: FloatTestingTest.oz,v 1.4 2012/04/17 12:47:35 leavens Exp leavens $ \insert 'FloatTesting.oz' declare {StartTesting 'FloatTesting'} X = 3.0 {Assert 0.0 < StandardTolerance} {Assert StandardTolerance < 1.0} {WithinTest X '==' 3.0} {WithinTest 1.0/3.0 '==' 0.33333} {WithinTest 1.0/3.0 '==' 0.3323} % should be a failure {RelativeTest X '==' 3.0} {RelativeTest 1.0/3.0 '==' 0.33333} {RelativeTest 1.0/3.0 '==' 0.3323} % should be a failure {WithinTest [X] '==' [3.0]} {WithinTest [X 1.0/3.0] '==' [3.0 0.33333]} {WithinTest [[1.0] [2.0] 3.0] '==' [1.0 2.0 3.0]} % should be a failure {RelativeTest [X] '==' [3.0]} {RelativeTest [X 1.0/3.0] '==' [3.0 0.33333]} {ReportAbout 'Expect 3 failures in the report'} {DoneTesting}