Marcel Taeumel uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-mt.59.mcz
==================== Summary ====================
Name: GraphicsTests-mt.59 Author: mt Time: 4 May 2022, 12:00:53.679048 pm UUID: 8e40978d-084f-1d4c-b78b-06f02ea3362f Ancestors: GraphicsTests-EG.58
Complements Graphics-mt.515
=============== Diff against GraphicsTests-mt.57 ===============
Item was added: + TestCase subclass: #GIFReadWriterTest + instanceVariableNames: 'colorBlack' + classVariableNames: '' + poolDictionaries: '' + category: 'GraphicsTests-Files'!
Item was added: + ----- Method: GIFReadWriterTest>>animatedColorFrames (in category 'support') ----- + animatedColorFrames + "Responds with a collection of AnimatedImageFrames + each containing equal-sized rectangles of green, red, + yellow. and black. When animated, these rectangles move + into each other's positions, then back" + | frames topLeft topRight bottomLeft bottomRight revFrames | + frames := OrderedCollection new. + topLeft := (0@0 extent: 200@200). + topRight := (200@0 extent: 400@200). + bottomLeft := (0@200 extent: 200@400). + bottomRight := (200@200 extent: 400@400). + + 0 to: 200 by: 20 do: [ :num | + | newTopLeft newTopRight newBottomLeft newBottomRight canvas | + newTopLeft := topLeft translateBy: (num@0). + newTopRight := topRight translateBy: (0@num). + newBottomLeft := (bottomLeft origin - (0@num)) corner: (bottomLeft extent - (0@num)). + newBottomRight := (bottomRight origin - (num@0)) extent: (bottomLeft extent - (0@0)). + canvas := FormCanvas extent: 400@400 depth: 32. + canvas + fillRectangle: newTopLeft color: Color green; + fillRectangle: newTopRight color: Color red; + fillRectangle: newBottomLeft color: Color yellow; + fillRectangle: newBottomRight color: Color black. + frames add: (AnimatedImageFrame new + form: canvas form; + disposal: #restoreBackground; + delay: 60) ]. + + revFrames := frames reversed. + revFrames do: [ :f | frames add: f ]. + ^ frames!
Item was added: + ----- Method: GIFReadWriterTest>>expectedFailures (in category 'failures') ----- + expectedFailures + + ^ #( + testAnimatedColorsOutInRealBlack + testColorsFileOutInRealBlack + testColorsOutInRealBlack + )!
Item was added: + ----- Method: GIFReadWriterTest>>setUp (in category 'running') ----- + setUp + + super setUp. + colorBlack := Color r: 0 g: 0 b: 1/255.!
Item was added: + ----- Method: GIFReadWriterTest>>testAnimatedColorsOutIn (in category 'tests') ----- + testAnimatedColorsOutIn + "Ensure that the colored rectangles in the created + animated gif are correct at different frames" + | frames outBytes writer reader inBytes activeFrame | + frames := self animatedColorFrames. + + "Write out the GIF bytes to the byte stream" + outBytes := WriteStream on: (ByteArray new). + writer := GIFReadWriter on: outBytes. + frames do: [ :f | writer nextPutFrame: f ]. + writer close. + + "Read the GIF byte stream back into a GIF" + inBytes := ReadStream on: (outBytes contents). + reader := GIFReadWriter on: inBytes. + reader + readHeader; + readBody. + + self assert: reader isAnimated equals: true. + activeFrame := reader frames at: 1. + self assert: (activeFrame form colorAt: 100@100) equals: Color green. + self assert: (activeFrame form colorAt: 300@100) equals: Color red. + self assert: (activeFrame form colorAt: 100@300) equals: Color yellow. + self assert: (activeFrame form colorAt: 300@300) equals: colorBlack. + activeFrame := reader frames at: 11. + self assert: (activeFrame form colorAt: 100@100) equals: Color yellow. + self assert: (activeFrame form colorAt: 300@100) equals: Color green. + self assert: (activeFrame form colorAt: 100@300) equals: colorBlack. + self assert: (activeFrame form colorAt: 300@300) equals: Color red. + !
Item was added: + ----- Method: GIFReadWriterTest>>testAnimatedColorsOutInRealBlack (in category 'tests') ----- + testAnimatedColorsOutInRealBlack + + colorBlack := Color black. + self testAnimatedColorsOutIn.!
Item was added: + ----- Method: GIFReadWriterTest>>testColorsFileOutIn (in category 'tests') ----- + testColorsFileOutIn + "Ensure that the colors that are written match up + to the colors that are read in again" + | canvas form outBytes inBytes writer reader | + canvas := FormCanvas extent: 400@400. + canvas + fillRectangle: (0@0 extent: 200@200) color: Color green; + fillRectangle: (200@0 extent: 400@200) color: Color red; + fillRectangle: (0@200 extent: 200@400) color: Color yellow; + fillRectangle: (200@200 extent: 400@400) color: colorBlack. + form := canvas form. + outBytes := FileStream fileNamed: 'testColorsFileOutIn.gif'. + writer := GIFReadWriter on: outBytes. + writer + nextPutImage: form; + close. + inBytes := 'testColorsFileOutIn.gif' asDirectoryEntry readStream binary. + reader := GIFReadWriter on: inBytes. + reader + readHeader; + readBody. + inBytes close. + 'testColorsFileOutIn.gif' asDirectoryEntry delete. + self assert: reader isAnimated equals: false. + self assert: (reader form colorAt: 50@50) equals: Color green. + self assert: (reader form colorAt: 250@50) equals: Color red. + self assert: (reader form colorAt: 50@250) equals: Color yellow. + self assert: (reader form colorAt: 250@250) equals: colorBlack.!
Item was added: + ----- Method: GIFReadWriterTest>>testColorsFileOutInRealBlack (in category 'tests') ----- + testColorsFileOutInRealBlack + + colorBlack := Color black. + self testColorsFileOutIn.!
Item was added: + ----- Method: GIFReadWriterTest>>testColorsOutIn (in category 'tests') ----- + testColorsOutIn + "Ensure that the colors that are written match up + to the colors that are read in again" + | canvas form outBytes inBytes writer reader | + canvas := FormCanvas extent: 400@400. + canvas + fillRectangle: (0@0 extent: 200@200) color: Color green; + fillRectangle: (200@0 extent: 400@200) color: Color red; + fillRectangle: (0@200 extent: 200@400) color: Color yellow; + fillRectangle: (200@200 extent: 400@400) color: colorBlack. + form := canvas form. + outBytes := WriteStream on: (ByteArray new). + writer := GIFReadWriter on: outBytes. + writer + nextPutImage: form; + close. + outBytes := outBytes contents. + inBytes := ReadStream on: outBytes. + reader := GIFReadWriter on: inBytes. + reader + readHeader; + readBody. + self assert: reader isAnimated equals: false. + self assert: (reader form colorAt: 50@50) equals: Color green. + self assert: (reader form colorAt: 250@50) equals: Color red. + self assert: (reader form colorAt: 50@250) equals: Color yellow. + self assert: (reader form colorAt: 250@250) equals: colorBlack.!
Item was added: + ----- Method: GIFReadWriterTest>>testColorsOutInRealBlack (in category 'tests') ----- + testColorsOutInRealBlack + + colorBlack := Color black. + self testColorsOutIn.!