property activation tests

hpi-swa-teaching · Jul 30, 2022 · e3c492d · e3c492d
1 parent 134d955
commit e3c492d
Show file tree

Hide file tree

Showing 12 changed files with 98 additions and 0 deletions.
diff --git a/...ationsEditor-Tests.package/AnimationsEditorTogglePropertiesTest.class/README.md b/...ationsEditor-Tests.package/AnimationsEditorTogglePropertiesTest.class/README.md
diff --git a/....package/AnimationsEditorTogglePropertiesTest.class/instance/animationsEditorInstance..st b/....package/AnimationsEditorTogglePropertiesTest.class/instance/animationsEditorInstance..st
@@ -0,0 +1,3 @@
+accessing
+animationsEditorInstance: anObject
+	animationsEditorInstance := anObject
diff --git a/...s.package/AnimationsEditorTogglePropertiesTest.class/instance/animationsEditorInstance.st b/...s.package/AnimationsEditorTogglePropertiesTest.class/instance/animationsEditorInstance.st
@@ -0,0 +1,3 @@
+accessing
+animationsEditorInstance
+	^ animationsEditorInstance
diff --git a/...Editor-Tests.package/AnimationsEditorTogglePropertiesTest.class/instance/dummyProperty.st b/...Editor-Tests.package/AnimationsEditorTogglePropertiesTest.class/instance/dummyProperty.st
@@ -0,0 +1,4 @@
+dummy property
+dummyProperty   
+
+	^ self animationsEditorInstance propertyList first subproperties at: 'position'.
diff --git a/...imationsEditor-Tests.package/AnimationsEditorTogglePropertiesTest.class/instance/setUp.st b/...imationsEditor-Tests.package/AnimationsEditorTogglePropertiesTest.class/instance/setUp.st
@@ -0,0 +1,9 @@
+running
+setUp  
+
+	| morph |   
+	super setUp.  
+	self animationsEditorInstance: AnimationsEditor open.  
+	morph := Morph new openInWorld.  
+	self animationsEditorInstance addTargetMorph: morph.  
+	self animationsEditorInstance selectedTreeNode:  self dummyProperty.
diff --git a/...tionsEditor-Tests.package/AnimationsEditorTogglePropertiesTest.class/instance/tearDown.st b/...tionsEditor-Tests.package/AnimationsEditorTogglePropertiesTest.class/instance/tearDown.st
@@ -0,0 +1,8 @@
+running
+tearDown  
+	| targetMorph |   
+	super tearDown.  
+	targetMorph := (self animationsEditorInstance propertyList first) targetMorph.  
+	targetMorph isFlexed   ifTrue: [targetMorph owner abandon]. "removes FlexShell"  
+	targetMorph abandon.   
+	self animationsEditorInstance windowReference abandon.
diff --git a/...imationsEditorTogglePropertiesTest.class/instance/testKeyframeAddedToActivatedProperty.st b/...imationsEditorTogglePropertiesTest.class/instance/testKeyframeAddedToActivatedProperty.st
@@ -0,0 +1,13 @@
+testing
+testKeyframeAddedToActivatedProperty
+	| property keyPreexists| 
+
+	property := self animationsEditorInstance selectedTreeNode.  
+	property activateProperty.
+	keyPreexists := property targetValues at: 500 ifAbsent: [false].
+	property 
+		positionX: 555;
+		positionY: 555;
+		frame: 500.
+	self animationsEditorInstance addKeyframe.  
+	self assert: ((property targetValues at: 500) notNil and: keyPreexists not).
diff --git a/...gglePropertiesTest.class/instance/testKeyframesDeteledFromTrackWhenPropertyDeactivated.st b/...gglePropertiesTest.class/instance/testKeyframesDeteledFromTrackWhenPropertyDeactivated.st
@@ -0,0 +1,12 @@
+testing
+testKeyframesDeteledFromTrackWhenPropertyDeactivated  
+	| property |   
+
+	property := self animationsEditorInstance selectedTreeNode.  
+	property activateProperty.  
+	property   
+		positionX: 555;   
+		positionY: 555;   
+		frame: 500.
+	self animationsEditorInstance addKeyframe.  
+	property deactivateProperty.  self assert: (property targetValues at: 500 ifAbsent: true).
diff --git a/...e/AnimationsEditorTogglePropertiesTest.class/instance/testNoActivatedPropertiesOnStart.st b/...e/AnimationsEditorTogglePropertiesTest.class/instance/testNoActivatedPropertiesOnStart.st
@@ -0,0 +1,7 @@
+testing
+testNoActivatedPropertiesOnStart  
+	| allSubpropertiesDeactivated |    
+
+	allSubpropertiesDeactivated := true.  
+	self animationsEditorInstance propertyList first subproperties do: [:property | property isActivated ifTrue: [allSubpropertiesDeactivated := true.].].  
+	self assert: allSubpropertiesDeactivated.
diff --git a/...ionsEditorTogglePropertiesTest.class/instance/testNoKeyframeAddedToDeactivatedProperty.st b/...ionsEditorTogglePropertiesTest.class/instance/testNoKeyframeAddedToDeactivatedProperty.st
@@ -0,0 +1,12 @@
+testing
+testNoKeyframeAddedToDeactivatedProperty
+	| property | 
+
+	property := self animationsEditorInstance selectedTreeNode.  
+	property deactivateProperty.
+	property 
+		positionX: 555;
+		positionY: 555;
+		frame: 500.
+	self animationsEditorInstance addKeyframe.  
+	self assert: (property targetValues at: 500 ifAbsent: true).
diff --git a/...ionsEditor-Tests.package/AnimationsEditorTogglePropertiesTest.class/methodProperties.json b/...ionsEditor-Tests.package/AnimationsEditorTogglePropertiesTest.class/methodProperties.json
@@ -0,0 +1,13 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"animationsEditorInstance" : "ob 7/30/2022 17:55",
+		"animationsEditorInstance:" : "ob 7/30/2022 17:55",
+		"dummyProperty" : "ob 7/30/2022 17:56",
+		"setUp" : "ob 7/30/2022 17:57",
+		"tearDown" : "ob 7/30/2022 17:57",
+		"testKeyframeAddedToActivatedProperty" : "ob 7/30/2022 18:27",
+		"testKeyframesDeteledFromTrackWhenPropertyDeactivated" : "ob 7/30/2022 18:21",
+		"testNoActivatedPropertiesOnStart" : "ob 7/30/2022 18:21",
+		"testNoKeyframeAddedToDeactivatedProperty" : "ob 7/30/2022 18:21" } }
diff --git a/...AnimationsEditor-Tests.package/AnimationsEditorTogglePropertiesTest.class/properties.json b/...AnimationsEditor-Tests.package/AnimationsEditorTogglePropertiesTest.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "AnimationsEditor-Tests",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		"animationsEditorInstance" ],
+	"name" : "AnimationsEditorTogglePropertiesTest",
+	"pools" : [
+		 ],
+	"super" : "TestCase",
+	"type" : "normal" }