Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.167.mcz
==================== Summary ====================
Name: KernelTests-nice.167 Author: nice Time: 31 October 2010, 9:55:18.943 pm UUID: 669b4442-43de-4da0-83d3-649e77bca967 Ancestors: KernelTests-nice.166
Assert that #degreeCos and #degreeSin are exact for any multiple of 90.
This is a nice property to have that radianCos and radianSin cannot afford due to approximate floating point representation of pi.
=============== Diff against KernelTests-nice.166 ===============
Item was added: + ----- Method: FloatTest>>testDegreeCos (in category 'test - mathematical functions') ----- + testDegreeCos + self shouldnt: [ 45.0 degreeCos] raise: Error. + "Following tests use approximate equality, because cosine are generally evaluated using inexact Floating point arithmetic" + self assert: (45.0 degreeCos squared - 0.5) abs <= Float epsilon. + self assert: (60.0 degreeCos - 0.5) abs <= Float epsilon. + self assert: (120.0 degreeCos + 0.5) abs <= Float epsilon. + -360.0 to: 360.0 do: [:i | + self assert: (i degreeCos closeTo: i degreesToRadians cos)]. + + "Following tests use strict equality which is a requested property of degreeCos" + -10.0 to: 10.0 do: [:k | + self assert: (k*360 + 90) degreeCos = 0. + self assert: (k*360 - 90) degreeCos = 0. + self assert: (k*360 + 180) degreeCos + 1 = 0. + self assert: (k*360) degreeCos - 1 = 0.].!
Item was added: + ----- Method: FloatTest>>testDegreeCosForExceptionalValues (in category 'test - mathematical functions') ----- + testDegreeCosForExceptionalValues + self assert: Float nan degreeCos isNaN. + self assert: Float infinity degreeCos isNaN. + self assert: Float infinity negated degreeCos isNaN.!
Item was added: + ----- Method: FloatTest>>testDegreeSin (in category 'test - mathematical functions') ----- + testDegreeSin + self shouldnt: [ 45.0 degreeSin] raise: Error. + "Following tests use approximate equality, because sine are generally evaluated using inexact Floating point arithmetic" + self assert: (45.0 degreeSin squared - 0.5) abs <= Float epsilon. + self assert: (30.0 degreeSin - 0.5) abs <= Float epsilon. + self assert: (-30.0 degreeSin + 0.5) abs <= Float epsilon. + -360.0 to: 360.0 do: [:i | + self assert: (i degreeSin closeTo: i degreesToRadians sin)]. + + "Following tests use strict equality which is a requested property of degreeSin" + -10.0 to: 10.0 do: [:k | + self assert: (k*360 + 90) degreeSin - 1 = 0. + self assert: (k*360 - 90) degreeSin + 1= 0. + self assert: (k*360 + 180) degreeSin = 0. + self assert: (k*360) degreeSin = 0.].!
Item was added: + ----- Method: FloatTest>>testDegreeSinForExceptionalValues (in category 'test - mathematical functions') ----- + testDegreeSinForExceptionalValues + self assert: Float nan degreeSin isNaN. + self assert: Float infinity degreeSin isNaN. + self assert: Float infinity negated degreeSin isNaN.!
Item was changed: + ----- Method: FractionTest>>testDegreeCos (in category 'tests - mathematical functions') ----- - ----- Method: FractionTest>>testDegreeCos (in category 'tests - sinuses') ----- testDegreeCos "self run: #testDegreeCos" self shouldnt: [ (4/3) degreeCos] raise: Error. + -361/3 to: 359/3 do: [:i | + self assert: (i degreeCos closeTo: i degreesToRadians cos)].! - self assert: (1/3) degreeCos printString = '0.999983076857744'!
Item was changed: + ----- Method: FractionTest>>testDegreeSin (in category 'tests - mathematical functions') ----- - ----- Method: FractionTest>>testDegreeSin (in category 'tests - sinuses') ----- testDegreeSin "self run: #testDegreeSin" self shouldnt: [ (4/3) degreeSin] raise: Error. + -361/3 to: 359/3 do: [:i | + self assert: (i degreeSin closeTo: i degreesToRadians sin)].! - self assert: (1/3) degreeSin printString = '0.005817731354993834'.!
Item was changed: + ----- Method: IntegerTest>>testDegreeCos (in category 'tests - mathematical functions') ----- - ----- Method: IntegerTest>>testDegreeCos (in category 'tests - basic') ----- testDegreeCos "self run: #testDegreeCos" self shouldnt: [ 45 degreeCos] raise: Error. + "Following tests use approximate equality, because cosine are generally evaluated using inexact Floating point arithmetic" + self assert: (45 degreeCos squared - (1/2)) abs <= Float epsilon. + self assert: (60 degreeCos - (1/2)) abs <= Float epsilon. + self assert: (120 degreeCos + (1/2)) abs <= Float epsilon. + -360 to: 360 do: [:i | + self assert: (i degreeCos closeTo: i degreesToRadians cos)]. + + "Following tests use strict equality which is a requested property of degreeCos" + -10 to: 10 do: [:k | + self assert: (k*360 + 90) degreeCos = 0. + self assert: (k*360 - 90) degreeCos = 0. + self assert: (k*360 + 180) degreeCos + 1 = 0. + self assert: (k*360) degreeCos - 1 = 0.].! - self assert: 45 degreeCos printString = (2 sqrt / 2) asFloat printString !
Item was added: + ----- Method: IntegerTest>>testDegreeSin (in category 'tests - mathematical functions') ----- + testDegreeSin + "self run: #testDegreeSin" + + self shouldnt: [ 45 degreeSin] raise: Error. + + "Following tests use approximate equality, because sine are generally evaluated using inexact Floating point arithmetic" + self assert: (45 degreeSin squared - (1/2)) abs <= Float epsilon. + self assert: (30 degreeSin - (1/2)) abs <= Float epsilon. + self assert: (-30 degreeSin + (1/2)) abs <= Float epsilon. + -360 to: 360 do: [:i | + self assert: (i degreeSin closeTo: i degreesToRadians sin)]. + + "Following tests use strict equality which is a requested property of degreeSin" + -10 to: 10 do: [:k | + self assert: (k*360 + 90) degreeSin - 1 = 0. + self assert: (k*360 - 90) degreeSin + 1= 0. + self assert: (k*360 + 180) degreeSin = 0. + self assert: (k*360) degreeSin = 0].!