--- 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