--- a/RegressionTests__NumberTest.st	Fri Feb 17 13:31:50 2006 +0100
+++ b/RegressionTests__NumberTest.st	Fri Feb 17 15:47:16 2006 +0100
@@ -103,13 +103,28 @@
 testReadFrom
     self assert: 1.0e-14    = (Number readFrom: '1.0e-14').
 
+    self assert: ('22.2' asNumber = 22.2).
+    self assert: ('-22.2' asNumber = -22.2).
+
     Smalltalk isSmalltalkX ifTrue:[
         "/ st/x requires this:
+
+        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: 2r1e26     = (Number readSmalltalkSyntaxFrom: '2r1e26').
     ] ifFalse:[
         "/ squeak allows this:
         self assert: 2r1e26     = (Number readFrom: '2r1e26').
-        self assert: 2r1e26     = (Number readFrom: '2r1e26').
+
+        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).
     ].
 ! !