# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1312550312 -7200
# Node ID efb13a71ed4ca402e0bd417b2117d727520fe6a2
# Parent  378ef1ea8892167649c61471ac6e4660693691e4
*** empty log message ***

diff -r 378ef1ea8892 -r efb13a71ed4c RegressionTests__NumberTest.st
--- a/RegressionTests__NumberTest.st	Wed Aug 03 15:14:31 2011 +0200
+++ b/RegressionTests__NumberTest.st	Fri Aug 05 15:18:32 2011 +0200
@@ -42,62 +42,61 @@
      stc generated wrong code for some inlined = - compare (shame)."
 
     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
     ].
 
     "
@@ -158,24 +157,24 @@
     self assert: ('-22.2' asNumber = -22.2).
 
     Smalltalk isSmalltalkX ifTrue:[
-        "/ st/x requires this:
+	"/ st/x requires this:
 
-        self assert: ((Number readSmalltalkSyntaxFrom:'10r22.2') = 22.2).
-        self assert: ((Number readSmalltalkSyntaxFrom:'10r22.2s5') = 22.2).
+	self assert: ((Number readSmalltalkSyntaxFrom:'10r22.2') = 22.2).
+	self assert: ((Number readSmalltalkSyntaxFrom:'10r22.2s5') = 22.2).
 
-        self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2') = -22.2).
-        self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2s5') = -22.2).
+	self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2') = -22.2).
+	self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2s5') = -22.2).
 
-        self assert: 2r1e26     = (Number readSmalltalkSyntaxFrom: '2r1e26').
+	self assert: 2r1e26     = (Number readSmalltalkSyntaxFrom: '2r1e26').
     ] ifFalse:[
-        "/ squeak allows this:
-        self assert: 2r1e26     = (Number readFrom: '2r1e26').
+	"/ squeak allows this:
+	self assert: 2r1e26     = (Number readFrom: '2r1e26').
 
-        self assert: ('10r22.2' asNumber = 22.2).
-        self assert: ('10r22.2s5' asNumber = 22.2).
+	self assert: ('10r22.2' asNumber = 22.2).
+	self assert: ('10r22.2s5' asNumber = 22.2).
 
-        self assert: ('10r-22.2' asNumber = -22.2).
-        self assert: ('10r-22.2s5' asNumber = -22.2).
+	self assert: ('10r-22.2' asNumber = -22.2).
+	self assert: ('10r-22.2s5' asNumber = -22.2).
     ].
 ! !