Add unittest for cancel button on authentication window

Co-authored-by: TillB <[email protected]>
Co-authored-by: rgwohlbold <[email protected]>

packages/TelegramClientTests-UI.package/TCTUAuthenticationTests.class/instance/testPressCancelOnAuthCode.st

@@ -0,0 +1,11 @@
+testing
+testPressCancelOnAuthCode
+
+	| button nextButton |
+	nextButton := (self subject findByClass: TCUButton) findByCriteria: [:textMorph | textMorph text asText = 'Next' ].
+	self subject currentWindow
+		showPhoneNumberStep;
+		showAuthCodeStep.
+	button := (self subject findByClass: TCUButton) findByCriteria: [:textMorph | textMorph text asText = 'Cancel' ].
+	button click.
+	self assert: nextButton visible

packages/TelegramClientTests-UI.package/TCTUAuthenticationTests.class/instance/testPressCancelOnAuthPassword.st

@@ -0,0 +1,12 @@
+testing
+testPressCancelOnAuthPassword
+
+	| button nextButton |
+	nextButton := (self subject findByClass: TCUButton) findByCriteria: [:textMorph | textMorph text asText = 'Next' ].
+	self subject currentWindow
+		showPhoneNumberStep;
+		showAuthCodeStep;
+		showAuthPasswordStep.
+	button := (self subject findByClass: TCUButton) findByCriteria: [:textMorph | textMorph text asText = 'Cancel' ].
+	button click.
+	self assert: nextButton visible

packages/TelegramClientTests-UI.package/TCTUAuthenticationTests.class/methodProperties.json

@@ -5,5 +5,7 @@
 		"setUp" : "RS 7/17/2021 12:56",
 		"testEnteringCodeOpensTelegram" : "aka 5/21/2022 13:02",
 		"testEnteringPasswordOpensTelegram" : "aka 5/21/2022 13:02",
-		"testEnteringPhoneNumberAsksForCode" : "aka 5/21/2022 13:12",
+		"testEnteringPhoneNumberAsksForCode" : "aka 5/21/2022 13:29",
+		"testPressCancelOnAuthCode" : "aka 5/21/2022 13:51",
+		"testPressCancelOnAuthPassword" : "aka 5/21/2022 13:50",
 		"testTelegramOpensAuthentication" : "RS 7/17/2021 12:55" } }