Make cairo render tests independent from Pharo system icons

Fixes #56
pharo-graphics · May 2, 2024 · bb97352 · bb97352
1 parent d3cbe05
commit bb97352
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 6 deletions.
diff --git a/src/Alexandrie-Cairo-Tests/AeCairoExamplesRenderTest.class.st b/src/Alexandrie-Cairo-Tests/AeCairoExamplesRenderTest.class.st
@@ -93,7 +93,7 @@ AeCairoExamplesRenderTest >> surfaceWithAllOperators [
 AeCairoExamplesRenderTest >> surfaceWithColoredIcons [
 
 	| inputForm inputSurface outputColors outputSurface outputContext |
-	inputForm := self iconNamed: #windowClose.
+	inputForm := Form fromFileNamed: AeFilesystemResources removeIconPNG.
 	inputSurface := AeCairoImageSurface fromForm: inputForm.
 
 	outputColors := Color wheel: 7.
@@ -352,7 +352,7 @@ AeCairoExamplesRenderTest >> surfaceWithGouraudBasedTriangle [
 AeCairoExamplesRenderTest >> surfaceWithPixelatedIcon [
 
 	| iconForm iconSurface iconPattern scale aSurface aContext |
-	iconForm := Smalltalk ui icons iconNamed: #removeIcon.
+	iconForm := Form fromFileNamed: AeFilesystemResources removeIconPNG.
 	iconSurface := AeCairoImageSurface fromForm: iconForm.
 	iconPattern := AeCairoSurfacePattern surface: iconSurface.
 	scale := 5.0.
@@ -604,10 +604,9 @@ AeCairoExamplesRenderTest >> surfaceWithStraightEdgesCurve [
 AeCairoExamplesRenderTest >> surfaceWithStretchedIcon [
 
 	| aSurface aContext iconForm iconSurface iconPattern horizontalScale verticalScale |
-	iconForm := Smalltalk ui icons iconNamed: #classIcon.
-	self assert: iconForm extent = (16@16).
+	iconForm := Form fromFileNamed: AeFilesystemResources removeIconPNG.
 	horizontalScale := 0.5.
-	verticalScale := 4.0.
+	verticalScale := 2.0.
 
 	iconSurface := AeCairoImageSurface fromForm: iconForm.
 	iconPattern := AeCairoSurfacePattern surface: iconSurface.

diff --git a/src/Alexandrie-Cairo-Tests/AeCairoImageSurfaceTest.class.st b/src/Alexandrie-Cairo-Tests/AeCairoImageSurfaceTest.class.st
@@ -41,7 +41,7 @@ AeCairoImageSurfaceTest >> testExtentFormat [
 AeCairoImageSurfaceTest >> testFromForm [
 
 	| aForm |
-	aForm := Smalltalk ui icons iconNamed: #classIcon.
+	aForm := Form fromFileNamed: AeFilesystemResources removeIconPNG.
 	surface := AeCairoImageSurface fromForm: aForm.
 
 	self assert: surface extent equals: aForm extent

diff --git a/src/Alexandrie-Cairo-Tests/AeFilesystemResources.extension.st b/src/Alexandrie-Cairo-Tests/AeFilesystemResources.extension.st
@@ -5,3 +5,15 @@ AeFilesystemResources class >> cairoDirectory [
 
 	^ self testsDirectory / 'cairo'
 ]
+
+{ #category : #'*Alexandrie-Cairo-Tests' }
+AeFilesystemResources class >> imagesDirectory [ 
+
+	^ self testsDirectory / 'images'
+]
+
+{ #category : #'*Alexandrie-Cairo-Tests' }
+AeFilesystemResources class >> removeIconPNG [
+
+	^ self imagesDirectory / 'removeIcon.png'
+]