Винниченко И.В. Автоматизация процессов тестирования

Подождите немного. Документ загружается.

190 Приложение В. Автоматизация приложения Pizza Order

button_press("OK");

}

else

{

tl_step("CheckWarnings",-l," Incorrect Date. You card has expired did

not

appear"):

}

CheckVisaFormat

cal1 "OpenPaymentPage"();

set_window("PizzaOrderingPage");

edit_set("name","Ilya Vinnichenko"):

list_select_item("CardType","Visa");

edit_set("numb"."1234567890123");

1 i

st__sel ect J

tem(

"Month",

"January");

list__selectJtem("Year","2007");

edit__set("Address","1600 Pennsylvania Avenue

Washington,

20500

USA"):

button_press("Submit");

(win_exists("WarningMsg", 5)=E__0K)

{

set__wi

ndow(

"Warni

ngMsg"):

if (obj_exists("{class: static_text,

MSW_id:

65535, value:

Incorrect Card Number. Valid format

1234 5678 9012 3456\"}")=E_0K)

tl_step("CheckWarnings".0," Incorrect Card Number. Valid format

1234 5678 9012 3456 appeared")

else

tl_step("CheckWarnings",-l," Incorrect Card Number. Valid format

1234 5678 9012 3456 did not

appear"):

button_press("OK"):

}

else

{

tl_step("CheckWarnings",-l." Incorrect Card Number. Valid format

1234 5678 9012 3456 did not

appear"):

}

set_window("PizzaOrderingPage"):

button_press("Refresh"):

edit_set("name"."Ilya Vinnichenko"):

list_select_item("CardType","Discover

Card"):

edit_set("numb"."1234567890123"):

list_select_item("Month","January"):

list_select_item("Year"."2007"):

edit_set("Address"."1600 Pennsylvania Avenue

Washington,

20500

USA"):

Структура автоматизации

191

button_press("Submit");

if (win_exists("WarningMsg",5)==E_0K)

{

set_wi ndow("Warni

ngMsg"):

if (obj_exists("{class: static_text. MSWJd: 65535. value:

Incorrect Card Number. Valid format

1234 5678 9012 3456\"}")=E_0K)

tl_step("CheckWarnings".0," Incorrect Card Number. Valid format

1234 5678 9012 3456 appeared")

else

tl_step("CheckWarnings",-l." Incorrect Card Number. Valid format

1234 5678 9012 3456 did not

appear"):

button_press("0K"):

}

else

{

tl_step("CheckWarnings",-l." Incorrect Card Number. Valid format

1234 5678 9012 3456 did not

appear"):

}

set^wi

ndow("Pi zzaOrderi

ngPage"):

button_press("Refresh"):

edit_set("name"."Ilya

Vinnichenko"):

list_select_item("CardType","Master

Card"):

edit_set("numb"."1234567890123"):

ist__select_item(

"Month".

"January"):

list_selectjtem(

"Year",

"2007"):

edit_set("Address"."1600 Pennsylvania Avenue

Washington.

20500

USA"):

button_press("Submit"):

if (win_exists("WarningMsg".5)=E_0K)

{

set_window("WarningMsg"):

if (obj_exists("{class: static_text, MSWJd: 65535, value:

Incorrect Card Number. Valid format

1234 5678 9012 3456\"}")==E_0K)

tl_step("CheckWarnings",0," Incorrect Card Number. Valid format

1234 5678 9012 3456 appeared")

else

tl_step("CheckWarnings",-l," Incorrect Card Number. Valid format

1234 5678 9012 3456 did not

appear"):

button_press("OK"):

}

else

{

tl_step("CheckWarnings".-l," Incorrect Card Number. Valid format

1234 5678 9012 3456 did not

appear"):

}

192 Приложение В. Автоматизация приложения Pizza Order

CheckAEFormat

cal1 "OpenPaymentPage"();

set_^wi ndow( "Pi

zzaOrderi

ngPage"):

edit_set("name"."Ilya

Vinnichenko");

list_select_item("CardType","American

Express");

edit^set("numb"."1234567890123");

st_se1ect^item("Month"."January"):

ist__select Jtem( "Year", "2007");

edit^setC"Address"."1600 Pennsylvania Avenue

Washington. DC 20500

USA"):

button_press("Submit");

if (win_^exists("WarningMsg".5)=E__0K)

{

set_window("WarningMsg"):

if (obj_exists("{class: static_text. MSW^id: 65535, value:

Incorrect Card Number. Valid format

1234 567890 12345\"}")=E_0K)

tl_step("CheckWarnings",0." Incorrect Card Number. Valid format

1234 567890 12345 appeared")

else

tl_step("CheckWarning$".-l," Incorrect Card Number. Valid format

1234 567890 12345 did not

appear"):

button_^press("OK"):

}

else

{

tl_step("CheckWarnings".-l," Incorrect Card Number. Valid format is

1234 567890 12345 did not appear"):

}

SilkTest

Библиотека функций (UDF.inc)

INTEGER GetNumChar (STRING sTmp. STRING sChar)

INTEGER

c=l

while(StrPos(sTmp,sChar)!=0)

sTmp

SubStrCsTmp, StrPosCsTmp. sChar)+l. Len(sTmp)

StrPosCsTmp,

sChar))

C++

return

wind

ass

Html Table : Html Table

BOOLEAN TableCheckData (string filename)

HFILE OutputFileHandle

ARRAY [3]

STRING ExpectedData

INTEGER i=l.c=l

INTEGER HTMLColumnCount. HTMLRowCount

STRING line

Структура автоматизации

193

STRING

Tmp = ""

TABLECELL CurCell

BOOLEAN bResuU

TRUE

list

string IsActualResult

Открыть файл

для

чтения:

OutputFileHandle

FileOpenCfilename, FM_READ)

Провести выборку

определение данных:

while(FileReadLine (OutputFileHandle. line))

if (ArraySize(ExpectedData)<i)

ArrayResi ze(ExpectedData,i)

ExpectedData

[i] =

line

i++

Закрыть файл:

FileClose (OutputFileHandle)

Проверить,

что

количество строк

таблице соответствует ожидаемому:

HTMLRowCount

this.GetRowCountO

if ((HTMLRowCount+1)

ArraySize(ExpectedData))

LogErrorC'Data verification error")

LogError("Expected number

rows: "+Str(ArraySize(ExpectedData)))

LogError

("Actual

number

rows:

" +

Str(HTMLRowCount+l))

bResult

FALSE

Проверить,

что

количество столбцов

таблице соответствует

ожидаемому:

HTMLColumnCount

this.GetColumnCount

if (HTMLColumnCount

GetNumChar (ExpectedData[l],"|"))

LogError("Data verification error")

LogError("Expected number

columns:

"+Str(GetNumChar(ExpectedData[l]."|")))

LogError

("Actual

number

columns:

" +

Str(HTMLColumnCount))

bResult

FALSE

for(c=l;c<=HTMLColumnCount:C++)

Tmp

= Tmp + "I" +

this.GetColumnName(c)

if(ExpectedData

[1]!=

SubStr(Tmp,2))

LogError("Data verification error")

LogError("Expected headers value: "+ExpectedData[i])

LogError

("Actual

headers value:

" +

SubStr(Tmp,2))

bResult

FALSE

Построчно произвести сравнение возвращенных данных

ожидаемыми:

for(i=l:i<=HTMLRowCount;i++)

Tmp

= ""

IsActualResult

this.GetRowText(i)

for(c=l;c<=HTMLColumnCount;C++)

Tmp

= Tmp + "I"

+lsActualResult[c]

except

Print("Row

" +

Str(i)

+" has " +

Str(c-l)

columns")

if(ExpectedData [i+l]!= SubStr(Tmp,2))

194 Приложение В. Автоматизация приложения Pizza Order

LogErrorC'Data verification error")

LogError("Expected value: "+ExpectedData[i+l])

LogError ("Actual value: " + SubStr(Tfflp,2))

bResult = FALSE

// Вывести результаты сравнения:

if (!bResult)

LogError("Test failed")

return bResult

wind ass CheckBox : CheckBox

VOID IntCheck (integer iCheckFlag)

if (iCheckFlag = 1)

this.CheckО

if (iCheckFlag = 0)

this.UnCheckO

appstate OpenOrderPageO

if ((PizzaOrderingPage.Exists()=FALSE)

(CalculateOrder.Exists()=FALSE))

Browser.

InvokeO

Browser. CloseOthers

Browser.LoadPage("C:\Temp\index.html")

appstate OpenPaymentPageO

if ((PizzaOrderingPage.Exists()=FALSE)

(Submit.Exists()=FALSE))

Browser.

InvokeO

Browser. CloseOthers

Browser.LoadPage("C:\Temp\ calс.html")

Библиотека объектов (AppGUIMap.inc)

window BrowserChild PizzaOrderingPage

tag "Pizza Ordering Page"

parent Browser

Html

Heading PizzaType

tag "Pizza Type"

Html

Heading Toppings

tag "Toppings"

HtmlRadioList PizzaType

[+] multitag "Pizza Type"

HtmlCheckBox Pepperony

[+] multitag "Pepperony ?$2.00?"

HtmlCheckBox Mushrooms

[+] multitag "Mushrooms ?$1.50?"

"#2"

HtmlCheckBox Meat

Структура автоматизации 195

[+] multitag "Meat ?$2.50?"

"#3"

HtmlPushButton CalculateOrder

[+] multitag "Calculate Order"

"#1"

HtmlPushButton Refresh

[+3 multitag "Refresh"

HtmlTable OrderSummary

tag "Calculate Order"

HtmlColumn Size

tag "Size"

HtmlColumn Toppings

tag "Toppings"

HtmlColumn Price

tag "Price"

Html

Link Mail Link

multitag "someone@somesite.com"

"$mai1

to:someone@somesite.com[l]"

Html Image ConfirmOrder

[+] multitag "calc"

"$fi1e:???J:?Books?Automati on?WebApp?calс.html'

HtmlTextField Name

multitag "Name:"

"#1"

HtmlTextField CardNumber

multitag "Number:"

"#2"

HtmlPopupList CreditCardType

multitag "Credit Card Type:"

HtmlListBox Day

multitag "Exp.Date"

HtmlPopupList Month

multitag "Number:"

"#2"

HtmlTextField Address

multitag "Address"

"#3"

HtmlPushButton Submit

multitag "Submit"

window DialogBox WarningMsg

tag "Microsoft Internet Explorer"

Приложение

В.

Автоматизация приложения Pizza Order

parent Browser

PushButton

multitag

"OK"

"$2"

StaticText StaticText

multitag

"You did not

specify name"

"$65535"

Библиотека скриптов (TestPlan.t)

use

("UDF.inc")

use

("AppGUIMap.inc")

testcase SelectOptionsO appstate OpenOrderPage

Integer

i,c

PizzaOrderingPage.SetActive()

for(i=l;i<=3;i++)

PizzaType.$elect("r+Str(i))

for(c=0;c<=6;c++)

Meat.IntCheck((c=-l

c==4

c=5)?l:0)

Mushrooms.IntCheck((c=2

c>=4)?l:0)

Pepperony.IntCheck((c=3

c==4

c==6)?l:0)

testcase CheckLinkO appstate OpenOrderPage

PizzaOrderingPage.SetActiveO

MailLink.ClickO

## Проверка почтового клиента (здесь

не

описывается,

так как

зависит

от конфигурации системы)

testcase CheckCalcO appstate OpenOrderPage

Integer arrCount

= 0

Boolean bResult

LIST

STRING filename

= {...}

"C\TestData\Expectedl"

"C\TestData\Expected2"

"C\TestData\Expected3"

"C\TestData\Expected4"

"C\TestData\Expected5"

"C\TestData\Expected6"

"C\TestData\Expected7"

"C\TestData\Expected8"

"С\TestData\Expected9"

"C\TestData\ExpectedlO"

"C\TestData\Expectedll"

"C\TestData\Expectedl2"

Структура автоматизации 197

"C\TestData\Expectedl3"

"C\TestData\Expectedl4"

"C\TestData\Expectedl5"

"C\TestData\Expectedl6"

"C\TestData\Expectedl7"

"C\TestData\Expectedl8"

"C\TestData\Expectedl9"

"C\TestData\Expected20"

"C\TestData\Expected21"

Integer

i,c

zzaOrderi ngPage.SetActi

ve()

for(i=l;i<=3;i-H-)

Pi zzaType.Select("#"+Str(i))

for(c=0:c<=6;c-H-)

Meat.IntCheck((c=l

c==4

c=5)?l:0)

Mushrooms.IntCheck((c=2

c>=4)?l:0)

Pepperony.IntCheck((c==3

|| c=4 ||

c==6)?l:0)

CalculateOrder.ClickO

bResult

SummaryTable.

TableCheckDataC filename[arrCount])

("CheckCalc

status

for

{filename[arrCount]}

{bResult}")

arrCount++

testcase CheckTypeClearO appstate OpenOrderPage

Boolean bResult

TRUE

PizzaOrderingPage.SetActive()

PizzaType.Select("#l")

Meat.CheckО

Mushrooms.Check0

Pepperony.CheckO

Refresh.

CI ickO

(PizzaType.GetSelIndex()==0)? bResult

TRUE

bResult

FALSE

Meat.GetStateO? bResult

TRUE

bResult

FALSE

Mushrooms.GetStateO? bResult

TRUE

bResult

FALSE

Pepperony.GetStateO? bResult

TRUE

bResult

FALSE

("CheckTypeClear

status

{bResult}")

testcase GoToPaymentPageO appstate OpenOrderPage

PizzaOrderingPage.SetActive()

PizzaType.Sel ect("#l")

Meat.CheckО

Mushrooms.

CheckO

Pepperony.CheckO

ConfirmOrder.ClickO

if ((Pi

zzaOrderi

ngPage.

Exists()=TRUE)

(Submit.Exists()=FALSE))

("GoToPaymentPage

FAILED.")

198 приложение В. Автоматизация приложения Pizza Order

testcase CheckWarnings appstate OpenPaymentPage

PizzaOrderingPage.SetActive()

Submit.ClickO

if (WarningMsg.StaticTextC'You did not specify name").Exists()=FALSE)

Print ("You did not specify name message did not appear")

if (WarningMsg.StaticText("You did not specify Credit Card

Number"

).Exists()—FALSE)

Print ("You did not specify Credit Card Number message did not

appear")

if (WarningMsg.StaticText("You

did not

specify

Address").

Exi sts(

)=FALSE)

("You did not

specify Address message

did not

appear")

testcase CheckCCExpired appstate OpenPaymentPage

PizzaOrderingPage.SetActiveO

Name.SetText("Ilya Vinnichenko")

CardType.Select("Visa")

CardNumber.SetText("1234567890123456")

Month.Select("January")

Year.Select("2004")

Address.SetText("1600 Pennsylvania Avenue

Washington.

20500

USA")

Submit.ClickO

if (WarningMsg.StaticText("Incorrect Date. You card has

expired")

.Exi

sts()=FALSE)

("Incorrect

Date.

You

card

has

expired

did not

appear")

testcase CheckVisaFormat appstate OpenPaymentPage

Pi zzaOrderi ngPage.SetActi ve()

Name.SetText("Ilya Vinnichenko")

CardType.Select("Visa")

CardNumber.SetText("1234567890123")

Month.Select("January")

Year.Select("2007")

Address.SetText("1600 Pennsylvania Avenue

Washington.

20500

USA")

Submit.ClickO

if (WarningMsg.StaticText("Incorrect Card Number. Valid format is 1234

5678 9012 3456").Exists()=-FALSE)

("Incorrect

Card Number. Valid format

1234

5678

9012

3456

did

not appear")

Pi zzaOrderi ngPage.SetActi ve()

Refresh.ClickО

Name.SetText("Ilya Vinnichenko")

CardType.Select("MasterCard")

Структура автоматизации

199

CardNumber.SetText("1234567890123")

Month.Select("January")

Year.Select("2007")

Address.SetText("1600 Pennsylvania Avenue

Washington.

20500

USA")

Submit.ClickO

(WarningMsg.StaticText("Incorrect Card

Number.

Valid format

1234

5678

9012

3456").Exists()«FALSE)

("Incorrect

Card

Number.

Valid format

1234

5678

9012

3456

did

not

appear")

Pi zzaOrderi ngPage.SetActi

ve()

Refresh.ClickO

Name.SetText("11ya Vinnichenko")

CardType.Select("Discover")

CardNumber.SetText("1234567890123")

Month.Select("January")

Year.Select("2007")

Address.SetText("1600 Pennsylvania Avenue

Washington.

20500

USA")

Submit.ClickO

(WarningMsg.StaticText("Incorrect Card

Number.

Valid format

1234

5678

9012

3456").Exists()==FALSE)

("Incorrect

Card

Number.

Valid format

1234

5678

9012

3456

did

not

appear")

testcase CheckAEFormat appstate OpenPaymentPage

Pi zzaOrderi ngPage.SetActi

ve()

Name.SetText("11ya Vi

nni

chenko")

CardType.Select("American Express")

CardNumber.SetText("1234567890123")

Month.Select("January")

Year.Select("2007")

Address.SetText("1600 Pennsylvania Avenue

Washington.

20500

USA")

Submit.ClickO

(WarningMsg.StaticText("Incorrect Card

Number.

Valid format

1234

567890 12345").Exists()=FALSE)

("Incorrect

Card

Number.

Valid format

1234

567890 12345

did

not

appear")