156 |
156 |
157 self assert: ('22.2' asNumber = 22.2). |
157 self assert: ('22.2' asNumber = 22.2). |
158 self assert: ('-22.2' asNumber = -22.2). |
158 self assert: ('-22.2' asNumber = -22.2). |
159 |
159 |
160 Smalltalk isSmalltalkX ifTrue:[ |
160 Smalltalk isSmalltalkX ifTrue:[ |
161 "/ st/x requires this: |
161 "/ st/x requires this: |
162 |
162 |
163 self assert: ((Number readSmalltalkSyntaxFrom:'10r22.2') = 22.2). |
163 self assert: ((Number readSmalltalkSyntaxFrom:'10r22.2') = 22.2). |
164 self assert: ((Number readSmalltalkSyntaxFrom:'10r22.2s5') = 22.2). |
164 self assert: ((Number readSmalltalkSyntaxFrom:'10r22.2s5') = 22.2). |
165 |
165 |
166 self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2') = -22.2). |
166 self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2') = -22.2). |
167 self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2s5') = -22.2). |
167 self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2s5') = -22.2). |
168 |
168 |
169 self assert: 2r1e26 = (Number readSmalltalkSyntaxFrom: '2r1e26'). |
169 self assert: 2r1e26 = (Number readSmalltalkSyntaxFrom: '2r1e26'). |
|
170 |
|
171 self assert: ('-1q' asNumber = -1). |
|
172 self assert: ('-1q' asNumber class == LongFloat). |
|
173 |
|
174 self assert: ('-1q1' asNumber = -10). |
|
175 self assert: ('-1q10' asNumber = -10000000000). |
|
176 |
170 ] ifFalse:[ |
177 ] ifFalse:[ |
171 "/ squeak allows this: |
178 "/ squeak allows this: |
172 self assert: 2r1e26 = (Number readFrom: '2r1e26'). |
179 self assert: 2r1e26 = (Number readFrom: '2r1e26'). |
173 |
180 |
174 self assert: ('10r22.2' asNumber = 22.2). |
181 self assert: ('10r22.2' asNumber = 22.2). |
175 self assert: ('10r22.2s5' asNumber = 22.2). |
182 self assert: ('10r22.2s5' asNumber = 22.2). |
176 |
183 |
177 self assert: ('10r-22.2' asNumber = -22.2). |
184 self assert: ('10r-22.2' asNumber = -22.2). |
178 self assert: ('10r-22.2s5' asNumber = -22.2). |
185 self assert: ('10r-22.2s5' asNumber = -22.2). |
179 ]. |
186 ]. |
|
187 |
|
188 "Modified: / 20-06-2017 / 14:05:37 / cg" |
180 ! ! |
189 ! ! |
181 |
190 |
182 !NumberTest class methodsFor:'documentation'! |
191 !NumberTest class methodsFor:'documentation'! |
183 |
192 |
184 version |
193 version |