The Trunk: MorphicTests-ar.17.mcz

Andreas Raab uploaded a new version of MorphicTests to project The Trunk:
http://source.squeak.org/trunk/MorphicTests-ar.17.mcz

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

Name: MorphicTests-ar.17
Author: ar
Time: 21 July 2010, 8:05:51.638 pm
UUID: 3f457ad0-c6a0-5d47-b8dc-089bc03effd0
Ancestors: MorphicTests-cmm.16

Move tests with Etoys depencies to Etoys.

=============== Diff against MorphicTests-cmm.16 ===============

Item was removed:
- ----- Method: MorphTest>>testOverlapAnyDeletedPlayer (in category 'testing - etoys') -----
- testOverlapAnyDeletedPlayer
- "self debug: #testOverlapAnyDeletedPlayer"
- | me friend sibling |
- me := Morph new assuredPlayer assureUniClass; yourself.
- friend := EllipseMorph new assuredPlayer assureUniClass; yourself.
- sibling := friend getNewClone.
- sibling costume delete.
- self getWorld addMorph: me costume.
- "Same position but deleted"
- me costume position: 0 @ 0.
- friend costume position: 0 @ 0.
- sibling costume position: 0 @ 0.
- self assert: (me overlapsAny: friend) not.
- self assert: (me overlapsAny: sibling) not!

Item was removed:
- TestCase subclass: #TileMorphTest
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'MorphicTests-Basic'!

Item was removed:
- ----- Method: MorphTest>>testOverlapAny (in category 'testing - etoys') -----
- testOverlapAny
- "self debug: #testOverlapAny"
- | p1 p2 |
- p1 := Morph new assuredPlayer.
- p2 := EllipseMorph new assuredPlayer.
- "Same position"
- p1 costume position: 0@0.
- p2 costume position: 0@0.
- self assert: (p1 overlapsAny: p2).
- "Different position"
- p1 costume position: 0@0.
- p2 costume position: 500@0.
- self assert: (p1 overlapsAny: p2) not.!

Item was removed:
- ----- Method: MorphTest>>testOverlapAnyUnscriptedPlayer (in category 'testing - etoys') -----
- testOverlapAnyUnscriptedPlayer
- "self debug: #testOverlapAnyUnscriptedPlayer"
- | p1 p2 p3 |
- p1 := Morph new assuredPlayer.
- p2 := EllipseMorph new assuredPlayer.
- p3 := EllipseMorph new assuredPlayer.
- self getWorld addMorph: p1 costume;
- addMorph: p2 costume;
- addMorph: p3 costume.
- "Same class, same position"
- p1 costume position: 0 @ 0.
- p2 costume position: 500 @ 0.
- p3 costume position: 0 @ 0.
- self
- assert: (p1 overlapsAny: p2).
- "Same class, different position"
- p1 costume position: 0 @ 0.
- p2 costume position: 1000 @ 0.
- p3 costume position: 500 @ 0.
- self assert: (p1 overlapsAny: p2) not.
- !

Item was removed:
- ----- Method: TileMorphTest>>testSoundTile (in category 'testing') -----
- testSoundTile
- "self debug: #testSoundTile"
- | tile dummy |
- dummy := Morph new.
- tile := SoundTile new literal: 'croak'.
- dummy addMorph: tile.
- tile arrowAction: 1.
- self assert: tile codeString = '(''horn'')'.
-
- !

Item was removed:
- ----- Method: TileMorphTest>>testArrowAction (in category 'testing') -----
- testArrowAction
- "self debug: #testArrowAction"
- | dummy tile |
- dummy := Morph new.
- tile := TileMorph new setOperator: '+'.
- dummy addMorph: tile.
- tile arrowAction: 1.
- self assert: tile codeString = '-'.
-
- tile := TileMorph new setOperator: '<'.
- dummy addMorph: tile.
- tile arrowAction: 1.
- "Because receiver is not tile"
- self assert: tile codeString = '='.
-
- tile := true newTileMorphRepresentative.
- dummy addMorph: tile.
- tile arrowAction: 1.
- self assert: tile codeString = '(false)'.
- !

Item was removed:
- ----- Method: MorphTest>>testOverlapAnyScriptedPlayer (in category 'testing - etoys') -----
- testOverlapAnyScriptedPlayer
- "self debug: #testOverlapAnyScriptedPlayer"
- | me friend other sibling |
- me := Morph new assuredPlayer assureUniClass; yourself.
- friend := EllipseMorph new assuredPlayer assureUniClass; yourself.
- sibling := friend getNewClone.
- other := EllipseMorph new assuredPlayer assureUniClass; yourself.
- self getWorld addMorph: me costume;
- addMorph: friend costume;
- addMorph: other costume;
- addMorph: sibling costume.
- "myself"
- self assert: (me overlapsAny: me) not.
- "Same position with sibling"
- me costume position: 0 @ 0.
- friend costume position: 500 @ 0.
- other costume position: 500 @ 0.
- sibling costume position: 0@0.
- self assert: (me overlapsAny: friend).
- "Different position with sibling but same class"
- me costume position: 0 @ 0.
- friend costume position: 500 @ 0.
- sibling costume position: 500@ 0.
- other costume position: 0 @ 0.
- self assert: (me overlapsAny: friend) not!

Item was removed:
- ----- Method: TileMorphTest>>testAssignmentTile (in category 'testing') -----
- testAssignmentTile
- "self debug: #testAssignmentTile"
-
- | player viewer tile phrase |
- player := Morph new assuredPlayer.
- viewer := CategoryViewer new invisiblySetPlayer: player.
- viewer  makeSetter: #(#getX #Number) event: nil from: player costume.
- phrase := ActiveHand firstSubmorph.
- ActiveHand removeAllMorphs.
- tile := phrase submorphs second.
-
- self assert: tile codeString = 'setX: '.
- tile arrowAction: 1.
- self assert: tile codeString = 'setX: self getX + '.
-
- !