飛機訂票系統測試腳本

　　tickets= randomnumber(1,10)

　　Window("Flight Reservation").WinEdit("Tickets:").Set tickets

　　' 驗證計算票價是否計算是否正確

　　price= Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")

　　total= Window("Flight Reservation").WinEdit("Total:").GetROProperty("text")

　　total=mid(total,2,len(total)-1)

　　'print "total="& total

　　price=mid(price,2,len(price)-1)

　　'print "price="& price

　　tickets=cdbl(tickets)

　　total1 = price*tickets

　　'print total1

　　total1= cdbl(total1)

　　If total - total1 > 0.001 Then

　　print "票價計算出錯"

　　End If

　　'驗證票價的是否正確

　　If c=1 and( price - price1*3) >0.001 Then

　　print " 頭等艙票價計算出錯"

　　else if c=2 and (price - price1*2) >0.001 then

　　print "商業艙票價計算出錯 "

　　end if

　　End If

　　Window("Flight Reservation").WinButton("Insert Order").Click

　　Window("Flight Reservation").WinButton("Update Order").Click

　　'添加的檢查點和檢查點的輸出!

　　Window("Flight Reservation").WinEdit("Order No:").Check CheckPoint("Order No:")

　　Window("Flight Reservation").WinEdit("Order No:").Output CheckPoint("Order No:_2")

　　no = window("Flight Reservation").WinEdit("Order No:").GetROProperty("text")

　　Window("Flight Reservation").WinMenu("Menu").Select "File;Open Order..."

　　Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"

　　Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set no

　　Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click

　　Window("Flight Reservation").WinButton("Button").Click

　　Window("Flight Reservation").Close

　　wait(2)

文章來源于領測軟件測試網 http://www.kjueaiud.com/