testing ICFolderDialog sortButtonVisualisation

hpi-swa-teaching · May 31, 2022 · a092976 · a092976
1 parent 28d6d09
commit a092976
Show file tree

Hide file tree

Showing 3 changed files with 20 additions and 1 deletion.
diff --git a/packages/IMAPClient-Tests.package/ICFolderDialogTest.class/instance/sortButtonLabels.st b/packages/IMAPClient-Tests.package/ICFolderDialogTest.class/instance/sortButtonLabels.st
@@ -0,0 +1,4 @@
+running
+sortButtonLabels
+
+	^{'Flag'. 'Subject'. 'Sender'. 'Date'}
diff --git a/packages/IMAPClient-Tests.package/ICFolderDialogTest.class/instance/testSortVisualisation.st b/packages/IMAPClient-Tests.package/ICFolderDialogTest.class/instance/testSortVisualisation.st
@@ -0,0 +1,13 @@
+running
+testSortVisualisation
+
+	| button |
+
+	self sortButtonLabels do:
+	[ :buttonLabel |
+		button:= self subject findByLabel: buttonLabel.
+		self assert: button label equals: buttonLabel.
+		button click.
+		self assert: button label equals: buttonLabel, ' (asc)'.
+		button click.
+		self assert: button label equals: buttonLabel, ' (desc)']
diff --git a/packages/IMAPClient-Tests.package/ICFolderDialogTest.class/methodProperties.json b/packages/IMAPClient-Tests.package/ICFolderDialogTest.class/methodProperties.json
@@ -3,4 +3,6 @@
 		 },
 	"instance" : {
 		"setUp" : "hsp 5/31/2022 17:54",
-		"tearDown" : "hsp 5/31/2022 17:52" } }
+		"sortButtonLabels" : "hsp 5/31/2022 18:04",
+		"tearDown" : "hsp 5/31/2022 17:52",
+		"testSortVisualisation" : "hsp 5/31/2022 18:07" } }