The Trunk: CollectionsTests-dtl.291.mcz

David T. Lewis uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-dtl.291.mcz

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

Name: CollectionsTests-dtl.291
Author: dtl
Time: 8 July 2018, 2:00:27.93338 pm
UUID: 95a16aef-4140-4539-8314-6a86a5bf8fef
Ancestors: CollectionsTests-cmm.290

Add tests to cover some basic string and character operations

=============== Diff against CollectionsTests-cmm.290 ===============

Item was added:
+ ----- Method: CharacterTest>>testDigitValue (in category 'tests - creation') -----
+ testDigitValue
+ "Answer the Character whose digit value is x. For example,
+ answer $9 for x=9, $0 for x=0, $A for x=10, $Z for x=35.
+ Results outside this range are undefined."
+
+ self assert: $0 = (Character digitValue: 0).
+ self assert: $1 = (Character digitValue: 1).
+ self assert: $9 = (Character digitValue: 9).
+ self assert: $A = (Character digitValue: 10).
+ self assert: $B = (Character digitValue: 11).
+ self assert: $F = (Character digitValue: 15).
+ self assert: $G = (Character digitValue: 16).
+ self assert: $P = (Character digitValue: 25).
+ self assert: $Z = (Character digitValue: 35).
+
+ !

Item was added:
+ ----- Method: StringTest>>testIsAllDigits (in category 'tests - testing') -----
+ testIsAllDigits
+ self assert: '0123456789' isAllDigits.
+ self assert: '0123456789' asWideString isAllDigits.
+ self assert: '1' isAllDigits.
+ self assert: '1' asWideString isAllDigits.
+ self assert: '' isAllDigits.
+ self assert: '' asWideString isAllDigits.
+ self deny: '012345 6789' isAllDigits.
+ self deny: '012345 6789' asWideString isAllDigits.
+ self deny: ('12345', String cr) isAllDigits.
+ self deny: ('12345', String cr) asWideString isAllDigits.
+ !

Item was added:
+ ----- Method: StringTest>>testIsAllSeparators (in category 'tests - testing') -----
+ testIsAllSeparators
+ self assert: ('', Character cr, Character tab, Character space) isAllSeparators.
+ self assert: ('', Character cr, Character tab, Character space) asWideString isAllSeparators.
+ self assert: '      ' isAllSeparators.
+ self assert: '      ' asWideString isAllSeparators.
+ self assert: '' isAllSeparators.
+ self assert: '' asWideString isAllSeparators.
+ self deny: '1 2'  isAllSeparators.
+ self deny: '1 2'  asWideString isAllSeparators.
+ self deny: '  X  ' isAllSeparators.
+ self deny: '  X  ' asWideString isAllSeparators.
+
+ !

Item was added:
+ ----- Method: StringTest>>testIsAsciiString (in category 'tests - testing') -----
+ testIsAsciiString
+ self assert: 'this is a string' isAsciiString.
+ self assert: 'this is a string' asWideString isAsciiString.
+ self assert: '' isAsciiString.
+ self assert: '' asWideString isAsciiString.
+ self deny: ('this is', (Character value: 256), 'a string') isAsciiString.
+ self deny: ('this is', (Character value: 128), 'a string') isAsciiString.
+ self assert: ('this is', (Character value: 127), 'a string') isAsciiString.
+ !

Item was added:
+ ----- Method: StringTest>>testIsOctetString (in category 'tests - testing') -----
+ testIsOctetString
+ self assert: 'this is a string' isOctetString.
+ self assert: 'this is a string' asWideString isOctetString.
+ self assert: '' isOctetString.
+ self assert: '' asWideString isOctetString.
+ self deny: ('this is', (Character value: 256), 'a string') isOctetString.
+ !