Add test back in under pseudonym

hpi-swa-teaching · Aug 5, 2021 · 0b5a41d · 0b5a41d
1 parent 1668a38
commit 0b5a41d
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 0 deletions.
diff --git a/...rnonTests.package/ALGTestGeneral.class/instance/testDynamicItemsNotInForeignChildLists.st b/...rnonTests.package/ALGTestGeneral.class/instance/testDynamicItemsNotInForeignChildLists.st
@@ -0,0 +1,14 @@
+testing dynamic items
+testDynamicItemsNotInForeignChildLists
+
+	self runQuery: 'Transcript clear'.
+	self assert: ((self itemMorphs 
+					reject: [:each | each item isNil])
+					anySatisfy: [:each | each item algerType isKindOf: ALGDockingBarType ]).
+
+	self runQuery: 'Monticello' withCursorAt: 'Package'.
+	self algInstance showChildList.
+
+	self deny: ((self itemMorphs 
+					reject: [:each | each item isNil])
+					anySatisfy: [:each | each item algerType isKindOf: ALGDockingBarType ])
diff --git a/packages/AlgernonTests.package/ALGTestGeneral.class/methodProperties.json b/packages/AlgernonTests.package/ALGTestGeneral.class/methodProperties.json
@@ -6,6 +6,7 @@
 		"testBreadcrumbsListSize" : "rk 8/5/2020 16:44",
 		"testClassAction" : "b 8/5/2021 15:30",
 		"testCloseWithEscape" : "b 6/2/2021 14:35",
+		"testDynamicItemsNotInForeignChildLists" : "NL 8/5/2021 20:07",
 		"testKeyBindingsValid" : "jRo 8/1/2020 11:19",
 		"testListContents" : "jRo 7/5/2020 22:15",
 		"testMethodAction" : "b 8/5/2021 15:36",