一、功能测试步骤
1、设计测试用例
a、 用户名、密码为空，点击【登录】，期望系统提示：“请输入用户名！”，测试数据：无
b、 输入用户名、密码为空，点击【登录】，期望系统提示：“请输入密码！”，测试数据：565045014@qq.com,空
c、 输入错误的用户名、密码，点击【登录】，期望系统提示：“用户名不存在！”测试数据：test,123
d、 输入正确的用户名、错误的密码，点击【登录】，期望系统提示：“密码不正确！”测试数据：565045014@qq.com,111
e、 输入正确的用户名、密码，点击【登录】，通过系统验证，正常登录到管理界面。测试数据：565045014@qq.com,123
2、录制脚本
3、保存脚本（在保存脚本前可对脚本进行维护性修改：引用描述性编程，减少对象库的大小）
4、增强脚本（参数化；最好将参数化的值定位于“Current action sheet(local)”）
5、创建预期值列表（在DataTable中选择双击即可）
6、在DataTable中对应填写测试用例
7、切换到专家视图，创建相应的变量
8、使用For语句，自动读取DataTable每一行的数据
9、插入一个文本输出点，输入系统中的实际提示信息
10、定义一个读取系统实际提示信息的变量，并将系统实际提示信息赋予定义的变量（outputvalue）
11、将实际值与预期值进行比较
12、产出Reporter
二、简易实例
Dim i'定义行号
Dim OutPutValue'读取系统实际的输出信息
Dim InPutValue'读取系统预期提示信息
For i=1 to DataTable.GetSheet("Action1").GetRowCount’使用循环，直到将Action1中的行全部读取到为止
SystemUtil.Run "iexplore.exe",http://192.168.4.5:9999/’打开指定页面
Browser("LMS-登陆页面").Page("LMS-登陆页面").WebEdit("tbUserName").SetDataTable("username", dtLocalSheet)’将输入的用户名参数化
Browser("LMS-登陆页面").Page("LMS-登陆页面").WebEdit("tbPassword").SetSecureDataTable("password", dtLocalSheet)’将输入的密码参数化
Browser("LMS-登陆页面").Page("LMS-登陆页面").Image("go").Click
'插入文本的输出点
Browser("LMS-登陆页面").Dialog("Microsoft Internet Explorer").Static("请输入正确的用户名!").Check CheckPoint("请输入正确的用户名!")‘插入文本检查点，将该检查点参数化，以便获取实际的输出值
Browser("LMS-登陆页面").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
OutPutValue=DataTable("outmsg",dtLocalSheet)’将定义的输出值变量与DataTable中的输出值进行对应
InPutValue=DataTable("status", dtLocalSheet)’将定义的输入值变量与DataTable中的预期值进行对应
If OutPutValue<> InPutValue Then’条件判断；实际输出值是否不等于预期值
Reporter.ReportEvent 1,"登录功能测试","预期值为："+InPutValue+"实际值为："+OutPutValue’如果条件成立，则产出Reporter告知
End If’反之，如果条件不成立，则执行下一行数据
DataTable.GetSheet("Action1").SetNextRow'获取Acton1中的下一行数据
'进入系统
Browser("LMS-登陆页面").Close’关闭页面
Next
三、报告说明
