用TestComplete实现一个关键字驱动测试框架

发布: 2009-4-29 09:56 | 作者: 不详 | 来源: 测试时代采编 | 查看: 222次 | 进入软件测试论坛讨论

               + VarToStr(KeyWord_Parameters[I]));
end;
end;

（3）封装一个函数，用于根据Excel读入的测试关键字创建可用的测试对象。
Uses CheckUIPerformance;
//.............................................................................
// 目的：返回当前进程中的指定测试对象
// 输入参数：
//           Process ：进程对象
//           TestObject：测试对象的描述
// 返回结果：
//           返回当前进程中的指定测试对象
// 注意事项：
// 作者：陈能技
// 日期：2008-6-3
//.............................................................................
Function getObject(Process,TestObject);
var
PropArray, ValuesArray;
begin
PropArray := CreateVariantArray(0, 0);
ValuesArray := CreateVariantArray(0, 0);
PropArray[0] :='FullName';
ValuesArray[0] := TestObject;
// 调用 FindTestObject 函数，返回当前进程中的指定测试对象
Result := FindTestObject(Process,PropArray,ValuesArray);
end;

        这里调用了CheckUIPerformance脚本中编写的FindTestObject函数，该函数用于根据测试对象的描述信息查找指定进程中的测试对象，脚本如下：
Function FindTestObject(Process,PropArray,ValueArray);
var res;
begin
Result := False;
// 查找指定的测试对象
Process.Refresh();
res := Process.FindChild(PropArray, ValueArray, 1000);
// 返回测试对象
if res.Exists then
begin
    Result := res;
    Log.Message('找到测试对象: ' + res.FullName)
end
else
    Log.Message('未找到测试对象');
end;