The Trunk: GraphicsTests-pre.42.mcz

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