--- a/RegressionTests__NumberTest.st	Fri Feb 17 12:30:27 2006 +0100
+++ b/RegressionTests__NumberTest.st	Fri Feb 17 13:26:32 2006 +0100
@@ -98,6 +98,21 @@
     "
 ! !
 
+!NumberTest methodsFor:'tests-reading'!
+
+testReadFrom
+    self assert: 1.0e-14    = (Number readFrom: '1.0e-14').
+
+    Smalltalk isSmalltalkX ifTrue:[
+        "/ st/x requires this:
+        self assert: 2r1e26     = (Number readSmalltalkSyntaxFrom: '2r1e26').
+    ] ifFalse:[
+        "/ squeak allows this:
+        self assert: 2r1e26     = (Number readFrom: '2r1e26').
+        self assert: 2r1e26     = (Number readFrom: '2r1e26').
+    ].
+! !
+
 !NumberTest class methodsFor:'documentation'!
 
 version