The Trunk: GraphicsTests-pre.47.mcz

Patrick Rein uploaded a new version of GraphicsTests to project The Trunk:
http://source.squeak.org/trunk/GraphicsTests-pre.47.mcz

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

Name: GraphicsTests-pre.47
Author: pre
Time: 15 October 2018, 9:30:12.460742 am
UUID: bf438d26-c2ca-1a49-8877-d78c853b6c8e
Ancestors: GraphicsTests-ul.46

Adds a test which checks whether the Color instance creation methods use consistent rounding.

Also re-categorizes the test methods.

=============== Diff against GraphicsTests-ul.46 ===============

Item was changed:
  SystemOrganization addCategory: #'GraphicsTests-Files'!
  SystemOrganization addCategory: #'GraphicsTests-Primitives'!
+ SystemOrganization addCategory: #'GraphicsTests-Transformations'!
  SystemOrganization addCategory: #'GraphicsTests-Text'!

Item was changed:
+ ----- Method: ColorTest>>testAsHTMLColor (in category 'tests') -----
- ----- 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].
 
  table do: [ :each |
  aColorString := '#', '00', each, each, '00'.
  self assert: (Color fromString: aColorString) asHTMLColor equals: aColorString].
 
  table do: [ :each |
  aColorString := '#', '0000', each, each.
  self assert: (Color fromString: aColorString) asHTMLColor equals: 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]].!

Item was changed:
+ ----- Method: ColorTest>>testColorFrom (in category 'tests') -----
- ----- Method: ColorTest>>testColorFrom (in category 'testing') -----
  testColorFrom
  self assert: ((Color colorFrom: #white) asHTMLColor sameAs: '#ffffff').
  self assert: ((Color colorFrom: #(1.0 0.5 0.0)) asHTMLColor sameAs: '#ff8000').
  self assert: ((Color colorFrom: (Color white)) asHTMLColor sameAs: '#ffffff').
  self assert: ((Color colorFrom: '#FF8800') asHTMLColor sameAs: '#ff8800').
  self assert: ((Color colorFrom: '#222222') asHTMLColor sameAs: '#222222').!

Item was added:
+ ----- Method: ColorTest>>testConstructorsAreConsistent (in category 'testing') -----
+ testConstructorsAreConsistent
+
+ "Color seaFoam asHTMLColor".
+ self assert: (Color r: 0 g: 1 b: 128/255) equals: (Color fromString: '#00FF80').
+ self assert: (Color r: 0 g: 1 b: 128/255) equals: (Color r: 0 g: 255 b: 128 range: 255).!

Item was changed:
+ ----- Method: ColorTest>>testFromString (in category 'tests') -----
- ----- 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'.
 
  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'.!

Item was changed:
+ ----- Method: ColorTest>>testHSV (in category 'tests') -----
- ----- Method: ColorTest>>testHSV (in category 'testing') -----
  testHSV
  "Test the color wheel modulo 360"
 
  self assert: (Color h: 0 s: 1 v: 1) = Color red.
  self assert: (Color h: 60 s: 1 v: 1) = Color yellow.
  self assert: (Color h: 120 s: 1 v: 1) = Color green.
  self assert: (Color h: 180 s: 1 v: 1) = Color cyan.
  self assert: (Color h: 240 s: 1 v: 1) = Color blue.
  self assert: (Color h: 300 s: 1 v: 1) = Color magenta.
  self assert: (Color h: 0+360 s: 1 v: 1) = Color red.
  self assert: (Color h: 120+720 s: 1 v: 1) = Color green.
  self assert: (Color h: 180-360 s: 1 v: 1) = Color cyan.
  self assert: (Color h: 240-720 s: 1 v: 1) = Color blue.!

Item was changed:
+ ----- Method: ColorTest>>testMultiplyByArray (in category 'tests') -----
- ----- Method: ColorTest>>testMultiplyByArray (in category 'testing') -----
  testMultiplyByArray
  | newColor oldColor tolerance |
  tolerance := 0.001.
 
  oldColor := Color r: 0.75 g: 0.5 b: 0.25.
  newColor := oldColor * #(0.1 2 3).
 
  self assert: (0.075 - newColor red) abs < tolerance.
  self assert: (1 - newColor green) abs < tolerance.
  self assert: (0.75 - newColor blue) abs < tolerance.!

Item was changed:
+ ----- Method: ColorTest>>testMultiplyByArrayIdentityTransform (in category 'tests') -----
- ----- Method: ColorTest>>testMultiplyByArrayIdentityTransform (in category 'testing') -----
  testMultiplyByArrayIdentityTransform
  | newColor oldColor tolerance |
  tolerance := 0.001.
 
  oldColor := Color r: 0.75 g: 0.5 b: 0.25.
  newColor := oldColor * 2.
 
  self assert: (1 - newColor red) abs < tolerance.
  self assert: (1 - newColor green) abs < tolerance.
  self assert: (0.5 - newColor blue) abs < tolerance.!

Item was changed:
+ ----- Method: ColorTest>>testMultiplyByNumber (in category 'tests') -----
- ----- Method: ColorTest>>testMultiplyByNumber (in category 'testing') -----
  testMultiplyByNumber
  | newColor oldColor tolerance |
  tolerance := 0.001.
 
  oldColor := Color r: 0.75 g: 0.5 b: 0.25.
  newColor := oldColor * 2.
 
  self assert: (1 - newColor red) abs < tolerance.
  self assert: (1 - newColor green) abs < tolerance.
  self assert: (0.5 - newColor blue) abs < tolerance.!