软件质量保证与测试 实验十一：AutoIt的使用

实验概述

目的及要求：锻炼学生对自动化功能测试的熟悉程度。 基本原理：功能测试需要从GUI的角度设计自动化测试脚本。利用AutoIT等自动化软件，编写自动测试脚本并记录结果，为缺陷记录提供帮助。 实施环境：AutoIt、Windows 7；

实验内容

1. 下载安装AutoIT。

在下载autoIt的安装包。

2. 测试win系统自带计算器程序， 2+4=6，是否正确？ 写出Script。（小提示：使用WinGetText获得输出）

Run( "calc.exe" )
WinWaitActive( "计算器" )
ControlClick( "计算器" , "" , 132 )
ControlClick( "计算器" , "" , 93 )
ControlClick( "计算器" , "" , 134 )
ControlClick( "计算器" , "" , 121 )

$Result=WinGetText( "计算器" )
$Result1=StringRegExpReplace($Result,'(?m)[
|
]','')
if $Result1== "6" Then
    FileWriteLine( "C:
esult.txt" , "true" )
Else
    FileWriteLine( "C:
esult.txt" , "False" &$Result1)
EndIf

3.测试win系统自带计算器程序， 写出3个以上的测试用例的代码，运行看是否正确？

Test: 2*4

Run( "calc.exe" )
WinWaitActive( "计算器" )
ControlClick( "计算器" , "" , 132 )
ControlClick( "计算器" , "" , 92 )
ControlClick( "计算器" , "" , 134 )
ControlClick( "计算器" , "" , 121 )

$Result=WinGetText( "计算器" )
$Result1=StringRegExpReplace($Result,'(?m)[
|
]','')
if $Result1== "8" Then
    FileWriteLine( "C:
esult.txt" , "true" )
Else
    FileWriteLine( "C:
esult.txt" , "False" &$Result1)
EndIf

Test: 8/4

Run( "calc.exe" )
WinWaitActive( "计算器" )
ControlClick( "计算器" , "" , 138 )
ControlClick( "计算器" , "" , 91 )
ControlClick( "计算器" , "" , 134 )
ControlClick( "计算器" , "" , 121 )

$Result=WinGetText( "计算器" )
$Result1=StringRegExpReplace($Result,'(?m)[
|
]','')
if $Result1== "2" Then
    FileWriteLine( "C:
esult.txt" , "true" &$Result1)
Else
    FileWriteLine( "C:
esult.txt" , "False" &$Result1)
EndIf

Test:8-4

Run( "calc.exe" )
WinWaitActive( "计算器" )
ControlClick( "计算器" , "" , 138 )
ControlClick( "计算器" , "" , 94 )
ControlClick( "计算器" , "" , 134 )
ControlClick( "计算器" , "" , 121 )

$Result=WinGetText( "计算器" )
$Result1=StringRegExpReplace($Result,'(?m)[
|
]','')
if $Result1== "4" Then
    FileWriteLine( "C:
esult.txt" , "true" &$Result1)
Else
    FileWriteLine( "C:
esult.txt" , "False" &$Result1)
EndIf

Test: 1/4*8

Run( "calc.exe" )
WinWaitActive( "计算器" )
ControlClick( "计算器" , "" , 134 )
ControlClick( "计算器" , "" , 114 )
ControlClick( "计算器" , "" , 92 )
ControlClick( "计算器" , "" , 138 )
ControlClick( "计算器" , "" , 121 )

$Result=WinGetText( "计算器" )
$Result1=StringRegExpReplace($Result,'(?m)[
|
]','')
if $Result1== "2" Then
    FileWriteLine( "C:
esult.txt" , "true" &$Result1)
Else
    FileWriteLine( "C:
esult.txt" , "False" &$Result1)
EndIf

result.txt在c盘下，可以自己改路径。