David T. Lewis uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-dtl.95.mcz
==================== Summary ====================
Name: MorphicTests-dtl.95 Author: dtl Time: 25 November 2023, 2:56:38.809269 pm UUID: fc0b02dd-3e58-4172-bc2a-92e2f76578ab Ancestors: MorphicTests-mt.94
Move methods to Etoys if they are referenced only by the full Etoys image, based on Marcel's unload-etoys.33.cs Etoys removal script. Reference squeak-dev 29-Aug-2023 Let's discuss the future of Etoys in Squeak 6.1 (and beyond)
=============== Diff against MorphicTests-mt.94 ===============
Item was removed: - ----- Method: PasteUpMorphTest>>testCursorWrapped (in category 'tests') ----- - testCursorWrapped - "self debug: #testCursorWrapped" - | holder | - holder := PasteUpMorph new. - self assert: holder cursor = 1. - holder cursorWrapped: 2. - self assert: holder cursor = 1. - holder addMorph: Morph new; - addMorph: Morph new; - addMorph: Morph new. - holder cursorWrapped: 3. - self assert: holder cursor = 3. - holder cursorWrapped: 5. - self assert: holder cursor = 2. - holder cursorWrapped: 0. - self assert: holder cursor = 3. - holder cursorWrapped: -1. - self assert: holder cursor = 2.!
Item was removed: - ----- Method: PasteUpMorphTest>>testCursorWrappedWithFraction (in category 'tests') ----- - testCursorWrappedWithFraction - "self debug: #testCursorWrappedWithFraction" - | holder | - holder := PasteUpMorph new. - holder addMorph: Morph new; - addMorph: Morph new; - addMorph: Morph new. - holder cursorWrapped: 3.5. - self assert: holder cursor = 3.5. - holder cursorWrapped: 5.5. - self assert: holder cursor = 2.5. - holder cursorWrapped: 0.5. - self assert: holder cursor = 3.5. - holder cursorWrapped: -0.5. - self assert: holder cursor = 2.5.!
Item was removed: - ----- Method: PasteUpMorphTest>>testGridToGradient (in category 'tests') ----- - testGridToGradient - "A trivial test for checking that you can change from a grid to a - gradient background. A recent [FIX] will make this pass." - | pum | - pum := PasteUpMorph new. - pum setStandardTexture. - "The following should fail without the fix" - self - shouldnt: [pum gradientFillColor: Color red] - raise: MessageNotUnderstood!
packages@lists.squeakfoundation.org