equal
deleted
inserted
replaced
96 " |
96 " |
97 self new test_eqNumberBug |
97 self new test_eqNumberBug |
98 " |
98 " |
99 ! ! |
99 ! ! |
100 |
100 |
|
101 !NumberTest methodsFor:'tests-reading'! |
|
102 |
|
103 testReadFrom |
|
104 self assert: 1.0e-14 = (Number readFrom: '1.0e-14'). |
|
105 |
|
106 Smalltalk isSmalltalkX ifTrue:[ |
|
107 "/ st/x requires this: |
|
108 self assert: 2r1e26 = (Number readSmalltalkSyntaxFrom: '2r1e26'). |
|
109 ] ifFalse:[ |
|
110 "/ squeak allows this: |
|
111 self assert: 2r1e26 = (Number readFrom: '2r1e26'). |
|
112 self assert: 2r1e26 = (Number readFrom: '2r1e26'). |
|
113 ]. |
|
114 ! ! |
|
115 |
101 !NumberTest class methodsFor:'documentation'! |
116 !NumberTest class methodsFor:'documentation'! |
102 |
117 |
103 version |
118 version |
104 ^ '$Header$' |
119 ^ '$Header$' |
105 ! ! |
120 ! ! |