*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 12 Nov 2004 13:24:54 +0100
changeset 256 7009adb85fbb
parent 255 f9c2f38ffcfd
child 257 94924ee6840b
*** empty log message ***
RegressionTests__ComplexTest.st
--- a/RegressionTests__ComplexTest.st	Sat Oct 30 16:10:24 2004 +0200
+++ b/RegressionTests__ComplexTest.st	Fri Nov 12 13:24:54 2004 +0100
@@ -97,12 +97,12 @@
 !
 
 testRaisedTo
-	| c |
+        | c |
 
-	self shouldnt: [ c := Complex real: 3 imaginary: 2 ] raise: Exception.
-	self should: [ (c raisedTo: 2) = (c * c) ].
-	self should: [ (c raisedTo: 3) = (c * c * c) ].
-	self should: [ (c raisedTo: 4) = (c * c * c * c) ].
+        self shouldnt: [ c := Complex real: 3 imaginary: 2 ] raise: Exception.
+        self assert:  ((c raisedTo: 2) = (c * c)).
+        self assert:  ((c raisedTo: 3) = (c * c * c)).
+        self assert:  ((c raisedTo: 4) = (c * c * c * c)).
 !
 
 testSqrt