--- a/RegressionTests__NumberTest.st Fri Sep 29 15:43:17 2017 +0200
+++ b/RegressionTests__NumberTest.st Fri Sep 29 15:44:03 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
@@ -41,67 +43,63 @@
test_eqNumberBug
"reported 09-09-2004;
stc generated wrong code for some inlined = - compare (shame)."
-
- self
- skipIf:Smalltalk isStandAloneApp
- description:'Usually there are no compiler settings in standalone environments'.
-
+
Class withoutUpdatingChangesDo:[
- self class
- compile:
+ self class
+ compile:
'testEQ
a = b ifTrue:[^ false].
^ true.
'
- classified:'temporary'.
+ classified:'temporary'.
].
self assert: (
(self
- a:0;
- b:0) testEQ ) == false.
+ a:0;
+ b:0) testEQ ) == false.
self assert: (
(self
- a:0;
- b:0.0) testEQ ) == false.
+ a:0;
+ b:0.0) testEQ ) == false.
self assert: (
(self
- a:0.0;
- b:0) testEQ ) == false.
+ a:0.0;
+ b:0) testEQ ) == false.
self assert: (
(self
- a:0.0;
- b:0.0) testEQ ) == false.
+ a:0.0;
+ b:0.0) testEQ ) == false.
Class withoutUpdatingChangesDo:[
- Compiler stcCompileMethod:(self class compiledMethodAt:#testEQ).
+ Compiler stcCompileMethod:(self class compiledMethodAt:#testEQ).
].
self assert: (
(self
- a:0;
- b:0) testEQ ) == false.
+ a:0;
+ b:0) testEQ ) == false.
self assert: (
(self
- a:0;
- b:0.0) testEQ ) == false.
+ a:0;
+ b:0.0) testEQ ) == false.
self assert: (
(self
- a:0.0;
- b:0) testEQ ) == false.
+ a:0.0;
+ b:0) testEQ ) == false.
self assert: (
(self
- a:0.0;
- b:0.0) testEQ ) == false.
+ a:0.0;
+ b:0.0) testEQ ) == false.
Class withoutUpdatingChangesDo:[
- self class removeSelector:#testEQ
+ self class removeSelector:#testEQ
].
"