--- a/RegressionTests__FloatTest.st Mon Oct 16 11:11:55 2017 +0200
+++ b/RegressionTests__FloatTest.st Mon Oct 16 14:57:46 2017 +0200
@@ -408,11 +408,18 @@
!
test05_Comparing
- |check v1 v2 v1b
+ |convArray check v1 v2 v1b
compiledMethod|
+ convArray := OrderedCollection new.
+ convArray addAll:#(yourself asInteger asFloat asShortFloat asLongFloat).
+
+ (Smalltalk at:#LargeFloat) notNil ifTrue:[
+ convArray add:#asLongFloat.
+ ].
+
check := [:iv1 :iv2|
- #(yourself asInteger asFloat asShortFloat asLongFloat asLargeFloat) do:[:conv1 |
+ convArray do:[:conv1 |
v1 := (iv1 perform:conv1).
self assert:( v1 = nil ) not.
@@ -420,7 +427,7 @@
self assert:( v1 ~= nil ).
self assert:( nil ~= v1 ).
- #(yourself asInteger asFloat asShortFloat asLongFloat asLargeFloat) do:[:conv2 |
+ convArray do:[:conv2 |
v1b := (iv1 perform:conv2).
self assert:( v1 = v1b ).