一、實驗目的

1） 學習QTP工具的使用

2）了解黑盒自動化測試

二、實驗要求

（1）對被測程序進行黑盒測試用例設計

（2）對QTP的飛機訂票系統的任一界面或控件實現自動化測試。（測試的具體自選）

（3）寫出該程序的缺陷。

三、實驗內容

1、對QTP的樣例小程序飛機訂票系統，實現自動化測試。（學號被3整除，測3a;余1，測3b；余2，測4a）

2、要求：

1）寫出飛機訂票系統的被測需求。

自行選擇需要測試的部分，根據自己的能力，可大，可小。

描述，被測程序，與被測部分的功能。

2）設計測試用例。寫出測試用例表。

3）編寫測試腳本，實現自動化測試。

4）寫測試小結。該程序的缺陷，和測試結果。

3、最後寫實驗總結。

四、實驗步驟

1.測試用例

2.測試腳本

 1 Dialog("Login").WinEdit("Agent Name:").Set "mercury" 
 2
 
 Dialog("Login").WinEdit("Password:").Set"4e90f6999223c7a146a382b12b9daa065cd86dac" 
 3 Dialog("Login").WinButton("OK").Click 
 4 Window("Flight Reservation").Activate 
 5 Window("Flight Reservation").Close  
 6 Dialog("Login").WinEdit("Agent Name:").Set DataTable("usename", dtLocalSheet) 
 7 Dialog("Login").WinEdit("Password:").Set DataTable("password", dtLocalSheet) 
 8 Dialog("Login").WinButton("OK").Click 
 9 If Dialog("Login").
10 Dialog("Flight Reservations").Exist(5)  Then   
11 Dim err_message 
12 err_message=Dialog("Login").
13 Dialog("Flight Reservations").Static("Agent name must be at").GetROProperty("text")       
14 Reporter.ReportEventmicFail, "登錄失敗","錯誤信息是： "&err_message 
15 Dialog ("Login").
16 Dialog("Flight Reservations").WinButton("確定").Click 
17 Dialog("Login").WinButton("Cancel").Click 
18 Else 
19 Reporter.ReportEvent micPass,"登陸成功","登陸成功" 
20 Window("Flight Reservation").Close 
21 End If

3.測試結果

五、測試小結

經過這次實驗，加深了對自動化測試的了解，但是使用起來還是有點不熟悉。但是自動化測試的確功能強大，使用QTP可以執行大量重復的自動化測試，節約了時間與精力。

實驗四+040+薛龔