RegressionTests__NumberTest.st
changeset 1713 72bd587b1967
parent 1710 9ad2831a971b
child 1718 4b7eaecbbbae
--- 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
     ].
 
     "