From 9e415751ad6046e2674b9f11b5bb3ce411ed13c2 Mon Sep 17 00:00:00 2001 From: Martin Dias Date: Mon, 17 Jun 2024 17:54:51 -0400 Subject: [PATCH] WIP: Adding BASvgExamplesRenderTest --- .../BASvgExamplesRenderTest.class.st | 1110 +++++++++++++++++ 1 file changed, 1110 insertions(+) create mode 100644 src/Bloc-Alexandrie-Tests/BASvgExamplesRenderTest.class.st diff --git a/src/Bloc-Alexandrie-Tests/BASvgExamplesRenderTest.class.st b/src/Bloc-Alexandrie-Tests/BASvgExamplesRenderTest.class.st new file mode 100644 index 000000000..c13eff444 --- /dev/null +++ b/src/Bloc-Alexandrie-Tests/BASvgExamplesRenderTest.class.st @@ -0,0 +1,1110 @@ +Class { + #name : #BASvgExamplesRenderTest, + #superclass : #AePixelMatchTest, + #category : #'Bloc-Alexandrie-Tests-SVG' +} + +{ #category : #hooks } +BASvgExamplesRenderTest class >> allFormSelectors [ + + ^ (self selectorsInProtocol: 'svg') sorted +] + +{ #category : #convenience } +BASvgExamplesRenderTest class >> exportAll [ + + + super exportAll +] + +{ #category : #convenience } +BASvgExamplesRenderTest class >> inspectAll [ + + + super inspectAll +] + +{ #category : #convenience } +BASvgExamplesRenderTest class >> inspectMismatches [ + + + super inspectMismatches +] + +{ #category : #hooks } +BASvgExamplesRenderTest >> actualForm [ + "Build and answer a Form that corresponds to current formSelector parameter." + + | svgString svgElement | + svgString := self formBehavior perform: formSelector. + svgElement := BlSvgConverter convertFromString: svgString. + ^ svgElement asForm +] + +{ #category : #svg } +BASvgExamplesRenderTest >> arcsSVG [ + + ^ ' + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> circleSVG [ + + ^ ' + + + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> curveCubicBezierSVG [ + + ^ ' + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> curveQuadraticBezierSVG [ + + ^ ' + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> ellipseSVG [ + + ^ ' + + + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> ellipticalArcSVG [ + + ^ ' + + + + + + + ' +] + +{ #category : #hooks } +BASvgExamplesRenderTest >> expectedFormsDirectory [ + + | repo | + repo := IceRepository registry detect: [ :each | each name asLowercase = 'bloc' ]. + ^ repo location / 'tests' / 'svgExamples' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> groupSVG [ + + ^ ' + + + + + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> lineSVG [ + + ^ ' + + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> linearGradientSVG [ + + ^ ' + + + + + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> nestingSVG [ + + ^ ' + + + + + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> pathBatmanSVG [ + + ^ ' + + + + + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> pathTreeSVG [ + + ^ ' + + + + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> polyLineSVG [ + + ^ ' + + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> polygonSVG [ + + ^ ' + + + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> progressSVG [ + + ^ ' + + + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> radialGradientSVG [ + + ^ ' + + + + + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> rectangleSVG [ + + ^ ' + + + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> textSVG [ + + ^ ' + + I love Bloc + and SVG ! + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> tigerSVG [ + + ^ ' + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> transformationsSVG [ + + ^ ' + + + + + + Normal + + Translation + + Rotation + + + Scaling + + Skewing X + + Skewing Y + + + Matrix Transformation + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> useDefsSVG [ + + ^ ' + + + + + + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> useSymbolPathSVG [ + + ^ ' + + + + + + + + + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> useSymbolRectSVG [ + + ^ ' + + + + + + + ' +] + +{ #category : #svg } +BASvgExamplesRenderTest >> useSymbolSVG [ + + ^ +' + + + + + + + + + + + + + + + +' +]