实施自动化测试最合适的语言

1,976 Views
『作者:RickyZhu 转载务必注明出处和作者』
Tag:

实施测试自动化,或者搭建测试自动化平台,完全靠买商业工具是远远不够的,必需要有自己的平台和开发语言,很多时候,开发语言的选择好坏,会直接影响到后期的自动化的顺利开展. TCL(Tool Command Language)作为一款优秀的脚本语言,对自动化的支持非常强大,而且有了Expect的支持,更加如虎添翼了. 下面是一个简单的不能再简单的例子了,作为学习TCL语言的入门足够. 就当是Hello world吧.

实现的功能就是登陆到远程的机器,然后查看一下目录结构.


#!/usr/local/ActiveTcl/bin/tclsh
package require Expect
# Procedure will be used to telnet to a remote machine automatically
proc telnet2Host {host {user wacos} {passwd wacos} {prompt “WACOS>”} } {
set timeout 15
spawn telnet $host
expect {

“login” { send “$user\r” }
“Connection refused” { log Error “Connect to $host refused”; return -1 }
“unknown host” { log Error “Host $host unknown”; return -1 }
timeout { log Error “Time out to telnet host $host”; return -1 }
}
expect “Password:”
send “$passwd\r”
expect {
“Login incorrect” { log Error “User name or Password is incorrect”; return -1 }
timeout { log Error “Time out before we can log onto $host”; return -1 }
“Last login:”
}
send “ksh\r”
sleep 2
send “export PS1=\”$prompt\”\r”
expect -re “$prompt.*$prompt”
return $spawn_id
}
set prompt “WACOS> ”
set spawn_id [telnet2Host 10.14.140.30 wacos wacos $prompt]
send “ls\r”
expect “$prompt”


随机文章

3条留言

(Required)
(Required, not published)


Close
E-mail It