2.4.11 PageList

Назад Содержание Дальше

Объект класса PageList представляет собой элемент управления страницами диалогов. И только для этого, так как никаких объектов внутри себя он не держит, а только содержит средства управления. Он и во фрейме описывается на одном уровне с окнами диалогов-закладок. Теперь непосредственно по нашему тесткейсу. Активируем диалог, добавляем страницу и проверяем, что страница добавлена. Для начала определите для диалога dPageList свойство sItemText по аналогии с предыдущими диалогами. Для определения, есть ли страница с заданным именем, используется метод FindPage. Пора это реализовать:

Code

		[ ] wTestApp.Control.PageList.Pick()
		[-] with dPageList
			[+] if( !.bExists )
				[ ] Error("Page List dialog didn't appear")
			[ ] .sItemText = "TEST"
			[ ] .btnAddItem.Click()
			[+] if( !.plstThePageList.FindPage("TEST") )
				[ ] Error("Page ""TEST"" wasn't found")

 

 

Метод FindPage также может использовать специальные символы ? и *, если точное название страницы неизвестно или слишком громоздко. Далее нужно очистить список с соответствующей проверкой. По аналогии со свойством iItemCount для основной массы классов списков, данный класс содержит своё специфическое свойство iPageCount, характерное именно для объектов класса PageList. Очищаем список:

Code

			[ ] .btnReset.Click()
			[+] if( .plstThePageList.iPageCount > 0 )
				[ ] Error("Not all pages were removed")

 

 

По аналогии с началом шага в цикле 4 раза добавляем закладки в список:

Code

			[+] for i = 1 to 4
				[ ] sValue = "Page{i}"
				[ ] .sItemText = sValue
				[ ] .btnAddItem.Click()
				[ ] 
				[+] if( !.plstThePageList.FindPage(sValue) )
					[ ] Error("Page ""{sValue}"" wasn't found")

 

 

Дальше всё уже знакомо: список названий всех закладок можно извлечь свойством lsContents; выбор закладки осуществляется методом Select или свойством sValue (в левой части выражения); название выбранной закладки извлекается методом GetSelText или свойством sValue ( в правой части выражения). Ничего нового. Проверка поля Enabled полностью укладывается в написанную нами функцию ClickEnabledAndCheck, поэтому запишем концовку шага:

Code

			[ ] lsValue = .plstThePageList.lsContents
			[+] for each sValue in lsValue
				[ ] .plstThePageList.Select( sValue )
				[+] if( .plstThePageList.sValue != sValue )
					[ ] Error("Incorrect page is selected. Expected: ""{sValue}"" . "+
          "Actual: ""{.plstThePageList.sValue}""")
			[ ] 
			[ ] ClickEnabledAndCheck( dPageList , .plstThePageList )
			[ ] 
			[+] if( !.Exit() )
				[ ] Error("Unable to close Page List dialog")

 

 


Назад Содержание Дальше