--- 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