hg/stx-goodies-regression: comparison RegressionTests_

equal deleted inserted replaced

-:c3b09cef9f87
+:2351db93aa5b
-"{ Package: 'exept:regression' }"
+"{ Package: 'stx:goodies/regression' }"
 "{ NameSpace: RegressionTests }"
 TestCase subclass:#ComplexTest
 	instanceVariableNames:''
 testCreation
 | c |
 false ifTrue:[
-"cg: I dont think this has to be known outside complex"
+	"cg: I dont think this has to be known outside complex"
-"i.e. should it really be allowed to create complex numbers with new ?"
+	"i.e. should it really be allowed to create complex numbers with new ?"
-self should: [ (c := Complex new) realPart = 0 ].
+	self should: [ (c := Complex new) realPart = 0 ].
-self should: [ c imaginaryPart = 0 ].
+	self should: [ c imaginaryPart = 0 ].
 ].
 self should: [ (c := Complex real: 1 imaginary: 2) realPart = 1 ].
 self should: [ c imaginaryPart = 2 ].
 self should: [ (c := Complex real: -1 imaginary: 2) realPart = -1 ].
 self should: [ c imaginaryPart = -2 ].
 self should: [ (c := Complex real: -1 imaginary: -2) realPart = -1 ].
 self should: [ c imaginaryPart = -2 ].
 c := (1 % 2).
 self assert: (c real = 1).
 self assert: (c imaginary = 2).
 c := (-1 % 2).
 self assert: (c real = -1).
 self assert: (c imaginary = 2).
 c := (1 % -2).
 self assert: (c real = 1).
 self assert: (c imaginary = -2).
 c := (-1 % -2).
 self assert: (c real = -1).
 self assert: (c imaginary = -2).
 c := (1.0 % 2.0).
 self assert: (c real = 1.0).
 self assert: (c imaginary = 2.0).
 c := (-1.0 % 2.0).
 self assert: (c real = -1.0).
 self assert: (c imaginary = 2.0).
 c := (1.0 % -2.0).
 self assert: (c real = 1.0).
 self assert: (c imaginary = -2.0).
 c := (-1.0 % -2.0).
 self assert: (c real = -1.0).
 self assert: (c imaginary = -2.0).
 c := 5 i.
 self assert: (c real = 0).
 self assert: (c imaginary = 5).
 c := 6 + 7 i.
 self assert: (c real = 6).
 self assert: ( c imaginary = 7).
 c := 5.6 - 8 i.
 self assert: (c real = 5.6).
 self assert: (c imaginary = -8).
 c := Complex real: 10 imaginary: 5.
 self assert: (c real = 10).
 self assert: (c imaginary = 5).
 c := Complex abs: 5 arg: (Float pi/2).
 self assert: (c real rounded = 0).
 self assert: (c imaginary = 5).
 "
 self new testNegated
 "
 !
 testRaisedTo
-| c |
+	| c |
-self shouldnt: [ c := Complex real: 3 imaginary: 2 ] raise: Exception.
+	self shouldnt: [ c := Complex real: 3 imaginary: 2 ] raise: Exception.
-self assert:  ((c raisedTo: 2) = (c * c)).
+	self assert:  ((c raisedTo: 2) = (c * c)).
-self assert:  ((c raisedTo: 3) = (c * c * c)).
+	self assert:  ((c raisedTo: 3) = (c * c * c)).
-self assert:  ((c raisedTo: 4) = (c * c * c * c)).
+	self assert:  ((c raisedTo: 4) = (c * c * c * c)).
 !
 testReciprocal
 | c |
 c := (2 + 5 i).
 self assert: c reciprocal  = ((2/29) - (5/29)i).
 "
 self run: #testReciprocal
 self new testReciprocal
 "
 !
 testReciprocalError
 | c |
 c := (0 i).
-self should: [c reciprocal] raise: ZeroDivide
+	self should: [c reciprocal] raise: ZeroDivide
 "
 self run: #testReciprocalError
 self new testReciprocalError
 "
 !
 testSqrt
-| c w |
+	| c w |
-self shouldnt: [ c := Complex real: 0 imaginary: 0 ] raise: Exception.
+	self shouldnt: [ c := Complex real: 0 imaginary: 0 ] raise: Exception.
-self should: [ c sqrt = 0 ].
+	self should: [ c sqrt = 0 ].
-self shouldnt: [ c := Complex real: 9 imaginary: 4 ] raise: Exception.
+	self shouldnt: [ c := Complex real: 9 imaginary: 4 ] raise: Exception.
-"cg: that cannot be tested easily, due to rounding errors"
+	"cg: that cannot be tested easily, due to rounding errors"
-"original" false ifTrue:[
+	"original" false ifTrue:[
-self should: [ w := 3 * (((1 + (1 + ((4/9) * (4/9))) sqrt) / 2) sqrt).
+	    self should: [ w := 3 * (((1 + (1 + ((4/9) * (4/9))) sqrt) / 2) sqrt).
-c sqrt = (Complex real: w imaginary: 4 / (2 * w)) ].
+			    c sqrt = (Complex real: w imaginary: 4 / (2 * w)) ].
-] ifFalse:[
+	] ifFalse:[
-self should: [ |t1 t2 epsilon|
+	    self should: [ |t1 t2 epsilon|
-w := 3 * (((1 + (1 + ((4/9) * (4/9))) sqrt) / 2) sqrt).
+			    w := 3 * (((1 + (1 + ((4/9) * (4/9))) sqrt) / 2) sqrt).
-t1 := c sqrt.
+			    t1 := c sqrt.
-t2 := (Complex real: w imaginary: 4 / (2 * w)).
+			    t2 := (Complex real: w imaginary: 4 / (2 * w)).
-epsilon := 0.0000001.
+			    epsilon := 0.0000001.
-(t1 realPart - t2 realPart) < epsilon
+			    (t1 realPart - t2 realPart) < epsilon
-and:[ (t1 imaginaryPart - t2 imaginaryPart) < epsilon ]
+			    and:[ (t1 imaginaryPart - t2 imaginaryPart) < epsilon ]
-].
+			 ].
-].
+	].
-self shouldnt: [ c := Complex imaginary: -2 ] raise: Exception.
+	self shouldnt: [ c := Complex imaginary: -2 ] raise: Exception.
-"self should: [ c sqrt = (Complex real: 1 imaginary: -1) ].  Should be true, but rounding bites us..."
+	"self should: [ c sqrt = (Complex real: 1 imaginary: -1) ].  Should be true, but rounding bites us..."
-self should: [ (c sqrt realPart - 1) abs < 1.0e-10 ].
+	self should: [ (c sqrt realPart - 1) abs < 1.0e-10 ].
-self should: [ (c sqrt imaginaryPart + 1) abs < 1.0e-10 ].
+	self should: [ (c sqrt imaginaryPart + 1) abs < 1.0e-10 ].
 !
 testSquared
 | c c2 |
 c := (6 - 6 i).
 xxtestSecureDivision1
 | c1 c2 quotient |
 c1 := 2.0e252 + 3.0e70 i.
 c2 := c1.
 quotient := c1 divideSecureBy: c2.
 self assert: (quotient - 1) isZero.
 "
 self run: #testSecureDivision1
 self new testSecureDivision1
 "

changeset 1447	2351db93aa5b
parent 1066	fe4318fddac9
child 1500	d406a10b2965
child 1743	2ef9af7ae1ef