--- 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).
].
! !