Winrunner之描述性编程

lantianwei · 发表于 2007-7-24 17:18:58

刚刚用了QTP的描述性编程，忽然想起用WinRunner也用一下描述性编程。做了感觉还不错，呵呵。。。。
   以下是本人用WINDOW XP自带的一个计算器做的一个小例子：
#################################################################################
#
#  Description-------------Use Description Programing to Test the CALC in Window XP  by WinRunner
#
#  Tester------------------Lantian Wei
#
#  Modify Time-----------2007-7-24
#
#################################################################################
invoke_application("calc.exe","","c:\\windows\\system32\\",SW_SHOW);
static myarr[]={{1,"+",2,3},{1,"-",2,-1},{1,"*",2,2},{1,"/",2,0.5}};
win_activate("{class: window,label: Calculator}");
set_window("{class: window,label: Calculator}",5);
for(i=0;i<4;i++)
{ for(j=0;j<3;j++)
   button_press("{class: push_button,label:"&myarr[i,j]&"}");
  button_press("{class: push_button,MSW_class: Button,label:=}");
  edit_get_text ("{class: edit}", result);
if(index(myarr[i,j],".")==0)
{
if(result==myarr[i,j]&". ")
   tl_step("CheckAnswer",0,"The calculatation is right:"&myarr[i,j-3]&" "&myarr[i,j-2]&" "&myarr[i,j-1]&" = "result);
else
   tl_step("CheckAnswer",1,"The calculatation is wrong:"&myarr[i,j-3]&" "&myarr[i,j-2]&" "&myarr[i,j-1]&" != "result);
  wait(1);
  }
else
{
  if(result==myarr[i,j]&" ")
tl_step("CheckAnswer",0,"The calculatation is right:"&myarr[i,j-3]&" "&myarr[i,j-2]&" "&myarr[i,j-1]&" = "result);
  else
tl_step("CheckAnswer",1,"The calculatation is wrong:"&myarr[i,j-3]&" "&myarr[i,j-2]&" "&myarr[i,j-1]&" != "result);
  wait(1);
  }
}
win_close("{class: window,label: Calculator}");

以上是本人用描述性编程写的脚本，至此现丑了。如有不足之处还请大家指正！在此先表示感谢！
通过这个例子的练习，我发现它确实有好多优点，比如你从此不用在关心那烦人的对象库了，而一个测试脚本里基本上在对象库中出现的问题最多了。然而它还是有缺点的，比如对于无法识别的对象，它就无能为力了，而对于那些OBJECT对象，它的支持也不好。所以如果WR对应用程序识别的满好的话，不如用描述性编程试试。sdlkfj5

[ 本帖最后由 lantianwei 于 2007-8-15 14:24 编辑 ]