[Pkg] The Trunk: KernelTests-nice.130.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Feb 13 01:32:23 UTC 2010


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

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

Name: KernelTests-nice.130
Author: nice
Time: 13 February 2010, 2:32:10.559 am
UUID: 033fe124-e9aa-f545-96ba-fb0be90c3e4c
Ancestors: KernelTests-nice.129

Some tests for the ExtendedNumberParser

=============== Diff against KernelTests-nice.129 ===============

Item was added:
+ ----- Method: ExtendedNumberParserTest>>testInvalidExponent (in category 'testing') -----
+ testInvalidExponent
+ 	"The leading number is returned, the invalid part is ignored"
+ 	
+ 	self assert: (ExtendedNumberParser parse: '1e') = 1.
+ 	self assert: (ExtendedNumberParser parse: '1eZ') = 1.
+ 	self assert: (ExtendedNumberParser parse: '+1eW') = 1.
+ 	self assert: (ExtendedNumberParser parse: '-1eX') = -1.
+ 	
+ 	self assert: (ExtendedNumberParser parse: '2e-') = 2.
+ 	self assert: (ExtendedNumberParser parse: '2e--1') = 2.
+ 	self assert: (ExtendedNumberParser parse: '2e-+1') = 2.
+ 	self assert: (ExtendedNumberParser parse: '2e-Z') = 2.
+ 	self assert: (ExtendedNumberParser parse: '+2e-W') = 2.
+ 	self assert: (ExtendedNumberParser parse: '-2e-X') = -2.
+ 	
+ 	self assert: (ExtendedNumberParser parse: '3e+') = 3.
+ 	self assert: (ExtendedNumberParser parse: '3e+-') = 3.
+ 	self assert: (ExtendedNumberParser parse: '3e+-1') = 3.
+ 	self assert: (ExtendedNumberParser parse: '+3e+W') = 3.
+ 	self assert: (ExtendedNumberParser parse: '-3e+Z') = -3.!

Item was added:
+ ----- Method: ExtendedNumberParserTest>>testInvalidScale (in category 'testing') -----
+ testInvalidScale
+ 	"The leading number is returned, the invalid part is ignored"
+ 	
+ 	self assert: (ExtendedNumberParser parse: '1s') = 1.
+ 	self assert: (ExtendedNumberParser parse: '1sZ') = 1.
+ 	self assert: (ExtendedNumberParser parse: '+1sW') = 1.
+ 	self assert: (ExtendedNumberParser parse: '-1sX') = -1.
+ 	
+ 	self assert: (ExtendedNumberParser parse: '2s-') = 2.
+ 	self assert: (ExtendedNumberParser parse: '2s--1') = 2.
+ 	self assert: (ExtendedNumberParser parse: '2s-+1') = 2.
+ 	self assert: (ExtendedNumberParser parse: '2s-1') = 2.
+ 	self assert: (ExtendedNumberParser parse: '+2s-2') = 2.
+ 	self assert: (ExtendedNumberParser parse: '-2s-3') = -2.
+ 	
+ 	self assert: (ExtendedNumberParser parse: '3s+') = 3.
+ 	self assert: (ExtendedNumberParser parse: '3s+-') = 3.
+ 	self assert: (ExtendedNumberParser parse: '3s+-1') = 3.
+ 	self assert: (ExtendedNumberParser parse: '+3s+2') = 3.
+ 	self assert: (ExtendedNumberParser parse: '-3s+3') = -3.!

Item was added:
+ ----- Method: ExtendedNumberParserTest>>testPositive (in category 'testing') -----
+ testPositive
+ 	"A leading + sign is allowed"
+ 	
+ 	self assert: (ExtendedNumberParser parse: '+1') = 1.
+ 	self assert: (ExtendedNumberParser parse: '+22') = 22.
+ 	self assert: (ExtendedNumberParser parse: '+2r11') = 3.
+ 	self assert: (ExtendedNumberParser parse: '+2r+101') = 5.
+ 	self assert: (ExtendedNumberParser parse: '+2r-101') = -5.
+ 	self assert: (ExtendedNumberParser parse: '-2r+101') = -5.
+ 	
+ 	self assert: (ExtendedNumberParser parse: '+1.') isFloat.
+ 	self assert: (ExtendedNumberParser parse: '+1.') = 1.
+ 	self assert: (ExtendedNumberParser parse: '+21.') = 21.
+ 	self assert: (ExtendedNumberParser parse: '+3r21.') = 7.
+ 	self assert: (ExtendedNumberParser parse: '+3r+201.') = 19.
+ 	self assert: (ExtendedNumberParser parse: '+3r-201.') = -19.
+ 	self assert: (ExtendedNumberParser parse: '-3r+201.') = -19.!

Item was added:
+ ----- Method: ExtendedNumberParserTest>>testFractionPartWithoutIntegerPart (in category 'testing') -----
+ testFractionPartWithoutIntegerPart
+ 	"The integer part before the decimal is optional"
+ 	
+ 	self assert: (ExtendedNumberParser parse: '.5') = (1/2).
+ 	self assert: (ExtendedNumberParser parse: '.5') isFloat.
+ 	
+ 	self assert: (ExtendedNumberParser parse: '.3e2') = 30.
+ 	self assert: (ExtendedNumberParser parse: '.3e2') isFloat.
+ 	
+ 	self assert: (ExtendedNumberParser parse: '-.4e2') = -40.
+ 	self assert: (ExtendedNumberParser parse: '-.4e2') isFloat.
+ 	
+ 	self assert: (ExtendedNumberParser parse: '+.5e2') = 50.
+ 	self assert: (ExtendedNumberParser parse: '+.5e2') isFloat.
+ 
+ 	self assert: (ExtendedNumberParser parse: '+.6e+2') = 60.
+ 	self assert: (ExtendedNumberParser parse: '+.6e+2') isFloat.
+ 
+ 	self assert: (ExtendedNumberParser parse: '-.7e+2') = -70.
+ 	self assert: (ExtendedNumberParser parse: '-.7e+2') isFloat.
+ 	
+ 	self assert: (ExtendedNumberParser parse: '+2r.1e-2') = (1/8).
+ 	self assert: (ExtendedNumberParser parse: '+2r.1e-2') isFloat.
+ 	
+ 	self assert: (ExtendedNumberParser parse: '-4r.1e-2') = (-1/64).
+ 	self assert: (ExtendedNumberParser parse: '-4r.1e-2') isFloat.!

Item was added:
+ ClassTestCase subclass: #ExtendedNumberParserTest
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'KernelTests-Numbers'!

Item was added:
+ ----- Method: ExtendedNumberParserTest>>testPositiveExponent (in category 'testing') -----
+ testPositiveExponent
+ 	"A leading + sign is allowed in exponent"
+ 	
+ 	self assert: (ExtendedNumberParser parse: '1e+2') = 100.
+ 	self assert: (ExtendedNumberParser parse: '1e+2') isInteger.
+ 	self assert: (ExtendedNumberParser parse: '-1e+2') = -100.
+ 
+ 	self assert: (ExtendedNumberParser parse: '1.e+2') = 100.
+ 	self assert: (ExtendedNumberParser parse: '1.e+2') isFloat.
+ 	self assert: (ExtendedNumberParser parse: '-1.0e+2') = -100.!

Item was added:
+ ----- Method: ExtendedNumberParserTest>>testIntegerPartWithoutFraction (in category 'testing') -----
+ testIntegerPartWithoutFraction
+ 	"The fraction part after the decimal is optional"
+ 	
+ 	self assert: (ExtendedNumberParser parse: '1.') = 1.
+ 	self assert: (ExtendedNumberParser parse: '1.') isFloat.
+ 	
+ 	self assert: (ExtendedNumberParser parse: '3.e2') = 300.
+ 	self assert: (ExtendedNumberParser parse: '3.e2') isFloat.
+ 	
+ 	self assert: (ExtendedNumberParser parse: '-4.e2') = -400.
+ 	self assert: (ExtendedNumberParser parse: '-4.e2') isFloat.
+ 	
+ 	self assert: (ExtendedNumberParser parse: '+5.e2') = 500.
+ 	self assert: (ExtendedNumberParser parse: '+5.e2') isFloat.
+ 
+ 	self assert: (ExtendedNumberParser parse: '+6.e+2') = 600.
+ 	self assert: (ExtendedNumberParser parse: '+6.e+2') isFloat.
+ 
+ 	self assert: (ExtendedNumberParser parse: '-7.e+2') = -700.
+ 	self assert: (ExtendedNumberParser parse: '-7.e+2') isFloat.
+ 	
+ 	self assert: (ExtendedNumberParser parse: '+2r1.e-2') = (1/4).
+ 	self assert: (ExtendedNumberParser parse: '+2r1.e-2') isFloat.
+ 	
+ 	self assert: (ExtendedNumberParser parse: '-4r1.e-2') = (-1/16).
+ 	self assert: (ExtendedNumberParser parse: '-4r1.e-2') isFloat.!

Item was changed:
  ----- Method: SmallIntegerTest>>testPrintString (in category 'testing - printing') -----
  testPrintString
+ 	self assert: 1 printString  = '1'.
+ 	self assert: -1 printString  = '-1'.
+ 	self assert: SmallInteger minVal printString  = '-1073741824'.
+ 	self assert: SmallInteger maxVal printString  = '1073741823'.
+ 	self assert: 12345 printString  = '12345'.
+ 	self assert: -54321 printString  = '-54321'.
  
+ 	self assert: 0 decimalDigitLength = 1.
+ 	self assert: 4 decimalDigitLength = 1.
+ 	self assert: 12 decimalDigitLength = 2.
+ 	self assert: 123 decimalDigitLength = 3.
+ 	self assert: 1234 decimalDigitLength = 4.
+ 	self assert: 56789 decimalDigitLength = 5.
+ 	self assert: 657483 decimalDigitLength = 6.
+ 	self assert: 6571483 decimalDigitLength = 7.
+ 	self assert: 65174383 decimalDigitLength = 8.
+ 	self assert: 625744831 decimalDigitLength = 9.
+ 	self assert: 1000001111 decimalDigitLength = 10.
+ 	self assert: SmallInteger maxVal decimalDigitLength = 10.!
- self assert: 1 printString  = '1'.
- self assert: -1 printString  = '-1'.
- self assert: SmallInteger minVal printString  = '-1073741824'.
- self assert: SmallInteger maxVal printString  = '1073741823'.
- self assert: 12345 printString  = '12345'.
- self assert: -54321 printString  = '-54321'.
- 
- self assert: 0 decimalDigitLength = 1.
- self assert: 4 decimalDigitLength = 1.
- self assert: 12 decimalDigitLength = 2.
- self assert: 123 decimalDigitLength = 3.
- self assert: 1234 decimalDigitLength = 4.
- self assert: 56789 decimalDigitLength = 5.
- self assert: 657483 decimalDigitLength = 6.
- self assert: 6571483 decimalDigitLength = 7.
- self assert: 65174383 decimalDigitLength = 8.
- self assert: 625744831 decimalDigitLength = 9.
- self assert: 1000001111 decimalDigitLength = 10.
- self assert: SmallInteger maxVal decimalDigitLength = 10.!

Item was added:
+ ----- Method: ExtendedNumberParserTest>>testInvalidRadix (in category 'testing') -----
+ testInvalidRadix
+ 	"The leading number is returned, the invalid part is ignored"
+ 	
+ 	self assert: (ExtendedNumberParser parse: '1r') = 1.
+ 	self assert: (ExtendedNumberParser parse: '+1r') = 1.
+ 	self assert: (ExtendedNumberParser parse: '-1r') = -1.
+ 	self assert: (ExtendedNumberParser parse: '-1r+') = -1.
+ 	self assert: (ExtendedNumberParser parse: '-1r-') = -1.
+ 	
+ 	self assert: (ExtendedNumberParser parse: '-2r.') = -2.
+ 	self assert: (ExtendedNumberParser parse: '-2r-.') = -2.
+ 	self assert: (ExtendedNumberParser parse: '+2r-.') = 2.
+ 	
+ 	self assert: (ExtendedNumberParser parse: '+2r3.') = 2.
+ 	self assert: (ExtendedNumberParser parse: '+2r.3') = 2.
+ 	self assert: (ExtendedNumberParser parse: '+2r-.3') = 2.!



More information about the Packages mailing list