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'.!