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 at 0.
- 	p2 costume position: 0 at 0.
- 	self assert: (p1 overlapsAny: p2).
- 	"Different position"
- 	p1 costume position: 0 at 0.
- 	p2 costume position: 500 at 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 at 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 + '.
- 
- !