Patrick Rein uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-pre.42.mcz
==================== Summary ====================
Name: GraphicsTests-pre.42 Author: pre Time: 20 January 2017, 5:43:37.520379 pm UUID: 47dbcf43-ff4d-9648-ac3b-36b183918042 Ancestors: GraphicsTests-bp.41
Tests for HTML colors with 8 characters including alpha channel
=============== Diff against GraphicsTests-bp.41 ===============
Item was changed: ----- Method: ColorTest>>testAsHTMLColor (in category 'testing') ----- testAsHTMLColor
| table aColorString | table := #('0' '1' '2' '3' '4' '5' '6' '7' '8' '9' 'A' 'B' 'C' 'D' 'E' 'F').
table do: [ :each | aColorString := '#', each, each, '0000'. + self assert: (Color fromString: aColorString) asHTMLColor equals: aColorString]. - self assert: ((Color fromString: aColorString) asHTMLColor sameAs: aColorString)].
table do: [ :each | aColorString := '#', '00', each, each, '00'. + self assert: (Color fromString: aColorString) asHTMLColor equals: aColorString]. - self assert: ((Color fromString: aColorString) asHTMLColor sameAs: aColorString)].
table do: [ :each | aColorString := '#', '0000', each, each. + self assert: (Color fromString: aColorString) asHTMLColor equals: aColorString]. - self assert: ((Color fromString: aColorString) asHTMLColor sameAs: aColorString)].
table do: [ :each | aColorString := '#', each, each, each, each, each, each. + self assert: (Color fromString: aColorString) asHTMLColor equals: aColorString]. + + table do: [ :each | + aColorString := '#', each, each, each, each, each, each, each, each. + each = 'F' + ifTrue: [self assert: (Color fromString: aColorString) asHTMLColor equals: '#FFFFFF' description: 'For full alpha channel the no alpha color is used'] + ifFalse: [self assert: (Color fromString: aColorString) asHTMLColor equals: aColorString]].! - self assert: ((Color fromString: aColorString) asHTMLColor sameAs: aColorString)].!
Item was changed: ----- Method: ColorTest>>testFromString (in category 'testing') ----- testFromString self assert: ((Color fromString: '#FF8800') asHTMLColor sameAs: '#ff8800'); assert: ((Color fromString: 'FF8800') asHTMLColor sameAs: '#ff8800'); + assert: ((Color fromString: '126,42,33') asHTMLColor sameAs: '#7E2A21'); + assert: ((Color fromString: '00000000') asHTMLColor sameAs: '#00000000'); "html with alpha channel" + assert: ((Color fromString: '#8C500BAE') asHTMLColor sameAs: '#8C500BAE'); assert: ((Color fromString: 'white') asHTMLColor sameAs: '#ffffff'); assert: ((Color fromString: 'black') asHTMLColor sameAs: '#000000'); assert: ((Color fromString: nil) asHTMLColor sameAs: '#ffffff'); assert: ((Color fromString: 'inexistent color') asHTMLColor sameAs: '#ffffff'); "should return white" + assert: ((Color fromString: 'XXXXXX') asHTMLColor sameAs: '#ffffff') description: 'Color string should be alphanumeric'; + assert: ((Color fromString: '000000000') asHTMLColor sameAs: '#ffffff') description: 'number string too long'. - assert: ((Color fromString: 'XXXXXX') asHTMLColor sameAs: '#ffffff'); "not alphanumeric" - assert: ((Color fromString: '00000000') asHTMLColor sameAs: '#ffffff'). "too many digits" self assert: (Color fromString: 'DARKGRAY') = Color darkGray description: 'Color can be specified with a case insensitive color name'; assert: (Color fromString: '#blue') = Color blue description: 'Color can be specified with a leading literal sharp'.!