changed: #test00_Precision
authorClaus Gittinger <cg@exept.de>
Thu, 03 May 2012 23:46:04 +0200
changeset 665 e96d81f7dc0c
parent 664 c7fbcdea0afa
child 666 ff89010dca6b
changed: #test00_Precision
RegressionTests__FloatTest.st
--- a/RegressionTests__FloatTest.st	Thu May 03 18:36:53 2012 +0200
+++ b/RegressionTests__FloatTest.st	Thu May 03 23:46:04 2012 +0200
@@ -46,13 +46,17 @@
 test00_Precision
     "computed precision vs. assumed precision."
 
-    self assert:( Float precision == (self actualPrecisionOf:Float)).
-    self assert:( ShortFloat precision == (self actualPrecisionOf:ShortFloat)).
-    self assert:( LongFloat precision == (self actualPrecisionOf:LongFloat)).
+    |a b|
+
+    self assert:( (a := Float precision) = (b := self actualPrecisionOf:Float)).
+    self assert:( (a := ShortFloat precision) = (b := self actualPrecisionOf:ShortFloat)).
+    self assert:( (a := LongFloat precision) = (b := self actualPrecisionOf:LongFloat)).
 
     "
      self basicNew test00_Precision
     "
+
+    "Modified: / 03-05-2012 / 18:47:21 / cg"
 !
 
 test01_Nan