[Pkg] The Trunk: CollectionsTests-ul.253.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Oct 10 14:10:06 UTC 2015


Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-ul.253.mcz

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

Name: CollectionsTests-ul.253
Author: ul
Time: 28 September 2015, 5:43:59.308 pm
UUID: edd02960-9cf1-4ec2-9b1e-5febe2777e6d
Ancestors: CollectionsTests-ul.252

#testAsInteger
- same tests in StringTest and WideStringTest
- added empty string
- uses #groupsDo:

=============== Diff against CollectionsTests-ul.252 ===============

Item was changed:
  ----- Method: StringTest>>testAsInteger (in category 'tests - converting') -----
  testAsInteger
  
+ 	#(
+ 		'' nil nil nil
+ 		'1796exportFixes-tkMX' 1796 1796 1796
+ 		'donald' nil nil nil
+ 		'abc234def567' 234 234 234
+ 		'-94' -94 -94 94
+ 		'foo-bar-92' -92 -92 92
+ 	) groupsDo: [ :inputString :asIntegerExpectedValue :asSignedIntegerExpectedValue :asUnsignedIntegerExpectedValue |
+ 		self
+ 			assert: asIntegerExpectedValue equals: inputString asInteger;
+ 			assert: asSignedIntegerExpectedValue equals: inputString asSignedInteger;
+ 			assert: asUnsignedIntegerExpectedValue equals: inputString asUnsignedInteger ]!
- 	self assert: '1796exportFixes-tkMX' asInteger = 1796.
- 	self assert: 'donald' asInteger isNil.
- 	self assert: 'abc234def567' asInteger = 234.
- 	self assert: '-94' asInteger = -94.
- 	self assert: 'foo-bar-92' asInteger = -92!

Item was changed:
  ----- Method: WideStringTest>>testAsInteger (in category 'tests - converting') -----
  testAsInteger
- 	self assert: '1796exportFixes-tkMX' asWideString asInteger = 1796.
- 	self assert: 'donald' asWideString asInteger isNil.
- 	self assert: 'abc234def567' asWideString asInteger = 234.
- 	self assert: '-94' asWideString asInteger = -94.
- 	self assert: 'foo-bar-92' asWideString asInteger = -92.
  
+ 	#(
+ 		'' nil nil nil
+ 		'1796exportFixes-tkMX' 1796 1796 1796
+ 		'donald' nil nil nil
+ 		'abc234def567' 234 234 234
+ 		'-94' -94 -94 94
+ 		'foo-bar-92' -92 -92 92
+ 	) groupsDo: [ :inputString :asIntegerExpectedValue :asSignedIntegerExpectedValue :asUnsignedIntegerExpectedValue |
+ 		| wideString |
+ 		wideString := inputString asWideString.
+ 		self
+ 			assert: asIntegerExpectedValue equals: wideString asInteger;
+ 			assert: asSignedIntegerExpectedValue equals: wideString asSignedInteger;
+ 			assert: asUnsignedIntegerExpectedValue equals: wideString asUnsignedInteger ]!
- 	self assert: '1796exportFixes-tkMX' asWideString asSignedInteger = 1796.
- 	self assert: 'donald' asWideString asSignedInteger isNil.
- 	self assert: 'abc234def567' asWideString asSignedInteger = 234.
- 	self assert: '-94' asWideString asSignedInteger = -94.
- 	self assert: 'foo-bar-92' asWideString asSignedInteger = -92.
- 
- 	self assert: '1796exportFixes-tkMX' asWideString asUnsignedInteger = 1796.
- 	self assert: 'donald' asWideString asUnsignedInteger isNil.
- 	self assert: 'abc234def567' asWideString asUnsignedInteger = 234.
- 	self assert: '-94' asWideString asUnsignedInteger = 94.
- 	self assert: 'foo-bar-92' asWideString asUnsignedInteger = 92!



More information about the Packages mailing list