The Trunk: KernelTests-nice.140.mcz

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-nice.140.mcz

==================== Summary ====================

Name: KernelTests-nice.140
Author: nice
Time: 23 February 2010, 3:19:21.227 pm
UUID: da1c4e8f-3fcb-5440-a09a-7662b1b2ef58
Ancestors: KernelTests-dtl.139

Change the expectations to reflect current implementation:

1) '1.0e+14' asNumber -> 1.0e14
2) '123.' asNumber -> 123.0

=============== Diff against KernelTests-dtl.139 ===============

Item was changed:
  ----- Method: IntegerTest>>testReadFrom (in category 'tests - instance creation') -----
  testReadFrom
  "Ensure remaining characters in a stream are not lost when parsing an integer."
 
  | rs i s |
  rs := ReadStream on: '123s could be confused with a ScaledDecimal'.
  i := Number readFrom: rs.
  self assert: i == 123.
  s := rs upToEnd.
  self assert: 's could be confused with a ScaledDecimal' = s.
+
  rs := ReadStream on: '123.s could be confused with a ScaledDecimal'.
  i := Number readFrom: rs.
+ self assert: i = 123.0.
- self assert: i == 123.
  s := rs upToEnd.
+ self assert: 's could be confused with a ScaledDecimal' = s
- self assert: '.s could be confused with a ScaledDecimal' = s
  !

Item was changed:
  ----- Method: NumberParsingTest>>testFloatFromStringWithExponent (in category 'tests - Float') -----
  testFloatFromStringWithExponent
  "This covers parsing in Number>>readFrom:"
 
  | aFloat |
  aFloat := '1.0e-14' asNumber.
  self assert: 1.0e-14 = aFloat.
  aFloat := '1.0e-14 1' asNumber.
  self assert: 1.0e-14 = aFloat.
  aFloat := '1.0e-14e' asNumber.
  self assert: 1.0e-14 = aFloat.
  aFloat := '1.0e14e' asNumber.
  self assert: 1.0e14 = aFloat.
+ aFloat := '1.0e+14e' asNumber. "Plus sign is parseable too"
+ self assert: 1.0e14 = aFloat.
- aFloat := '1.0e+14e' asNumber. "Plus sign is not parseable"
- self assert: 1.0 = aFloat.
  !

Item was changed:
  ----- Method: IntegerTest>>testStringAsNumber (in category 'tests - instance creation') -----
  testStringAsNumber
  "This covers parsing in Number>>readFrom:
  Trailing decimal points should be ignored."
 
  self assert: ('123' asNumber == 123).
  self assert: ('-123' asNumber == -123).
+ self assert: ('123.' asNumber = 123).
+ self assert: ('123.' asNumber) isFloat.
+ self assert: ('-123.' asNumber = -123).
+ self assert: ('-123.' asNumber) isFloat.
- self assert: ('123.' asNumber == 123).
- self assert: ('-123.' asNumber == -123).
  self assert: ('123This is not to be read' asNumber == 123).
  self assert: ('123s could be confused with a ScaledDecimal' asNumber == 123).
  self assert: ('123e could be confused with a Float' asNumber == 123).
  !

Item was changed:
  ----- Method: NumberParsingTest>>testIntegerReadFrom (in category 'tests - Integer') -----
  testIntegerReadFrom
  "Ensure remaining characters in a stream are not lost when parsing an integer."
 
  | rs i s |
  rs := ReadStream on: '123s could be confused with a ScaledDecimal'.
  i := Number readFrom: rs.
  self assert: i == 123.
  s := rs upToEnd.
  self assert: 's could be confused with a ScaledDecimal' = s.
  rs := ReadStream on: '123.s could be confused with a ScaledDecimal'.
  i := Number readFrom: rs.
+ self assert: i = 123.
- self assert: i == 123.
  s := rs upToEnd.
+ self assert: 's could be confused with a ScaledDecimal' = s.
- self assert: '.s could be confused with a ScaledDecimal' = s.
  rs := ReadStream on: '123sA has unary message sA'.
  i := Number readFrom: rs.
  self assert: i == 123.
  s := rs upToEnd.
  self assert: 'sA has unary message sA' = s.
  rs := ReadStream on: '123sB has unary message sB'.
  i := Number readFrom: rs.
  self assert: i == 123.
  s := rs upToEnd.
  self assert: 'sB has unary message sB' = s.
  !

Item was changed:
  ----- Method: NumberParsingTest>>testIntegerFromString (in category 'tests - Integer') -----
  testIntegerFromString
  "This covers parsing in Number>>readFrom:
  Trailing decimal points should be ignored."
 
  self assert: ('123' asNumber == 123).
  self assert: ('-123' asNumber == -123).
+ self assert: ('123.' asNumber = 123).
+ self assert: ('123.' asNumber) isFloat.
+ self assert: ('-123.' asNumber = -123).
+ self assert: ('-123.' asNumber) isFloat.
- self assert: ('123.' asNumber == 123).
- self assert: ('-123.' asNumber == -123).
  self assert: ('123This is not to be read' asNumber == 123).
  self assert: ('123s could be confused with a ScaledDecimal' asNumber == 123).
  self assert: ('123e could be confused with a Float' asNumber == 123).
  !

Item was changed:
  ----- Method: NumberParsingTest>>testFloatFromStreamWithExponent (in category 'tests - Float') -----
  testFloatFromStreamWithExponent
  "This covers parsing in Number>>readFrom:"
 
  | rs aFloat |
  rs := '1.0e-14' readStream.
  aFloat := Number readFrom: rs.
  self assert: 1.0e-14 = aFloat.
  self assert: rs atEnd.
 
  rs := '1.0e-14 1' readStream.
  aFloat := Number readFrom: rs.
  self assert: 1.0e-14 = aFloat.
  self assert: rs upToEnd = ' 1'.
 
  rs := '1.0e-14eee' readStream.
  aFloat := Number readFrom: rs.
  self assert: 1.0e-14 = aFloat.
  self assert: rs upToEnd = 'eee'.
 
  rs := '1.0e14e10' readStream.
  aFloat := Number readFrom: rs.
  self assert: 1.0e14 = aFloat.
  self assert: rs upToEnd = 'e10'.
 
+ rs := '1.0e+14e' readStream. "Plus sign is parseable too"
- rs := '1.0e+14e' readStream. "Plus sign is not parseable"
  aFloat := Number readFrom: rs.
+ self assert: 1.0e14 = aFloat.
+ self assert: rs upToEnd = 'e'.
- self assert: 1.0 = aFloat.
- self assert: rs upToEnd = 'e+14e'.
 
  rs := '1.0e' readStream.
  aFloat := Number readFrom: rs.
  self assert: 1.0 = aFloat.
  self assert: rs upToEnd = 'e'.!