101 !NumberTest methodsFor:'tests-reading'! |
101 !NumberTest methodsFor:'tests-reading'! |
102 |
102 |
103 testReadFrom |
103 testReadFrom |
104 self assert: 1.0e-14 = (Number readFrom: '1.0e-14'). |
104 self assert: 1.0e-14 = (Number readFrom: '1.0e-14'). |
105 |
105 |
|
106 self assert: ('1' asNumber = 1). |
|
107 self assert: ('10' asNumber = 10). |
|
108 |
|
109 self assert: ('-1' asNumber = -1). |
|
110 self assert: ('-10' asNumber = -10). |
|
111 |
|
112 self assert: ('1e' asNumber = 1). |
|
113 self assert: ('1e1' asNumber = 10). |
|
114 self assert: ('1e10' asNumber = 10000000000). |
|
115 |
|
116 self assert: ('-1e' asNumber = -1). |
|
117 self assert: ('-1e1' asNumber = -10). |
|
118 self assert: ('-1e10' asNumber = -10000000000). |
|
119 |
|
120 self assert: ('1.0e' asNumber = 1.0). |
|
121 self assert: ('1.0e1' asNumber = 10.0). |
|
122 self assert: ('1.0e10' asNumber = 10000000000.0). |
|
123 |
|
124 self assert: ('-1.0e' asNumber = -1.0). |
|
125 self assert: ('-1.0e1' asNumber = -10.0). |
|
126 self assert: ('-1.0e10' asNumber = -10000000000.0). |
|
127 |
106 self assert: ('22.2' asNumber = 22.2). |
128 self assert: ('22.2' asNumber = 22.2). |
107 self assert: ('-22.2' asNumber = -22.2). |
129 self assert: ('-22.2' asNumber = -22.2). |
108 |
130 |
109 Smalltalk isSmalltalkX ifTrue:[ |
131 Smalltalk isSmalltalkX ifTrue:[ |
110 "/ st/x requires this: |
132 "/ st/x requires this: |