TCL 自动化测试求助

netlover3399

任务：要求自动完成所有菜单和子菜单的测试（类似cmd操作的那种,输入一个命令后会跳出结果）

测试思想：设计TCL/Expect脚本一个，用来读取需要执行的命令文件cmd.txt和需要比较的标准结果文件result.txt，每次程序读取命令文件的一行然后执行就读取结果文件的一行然后以匹配的方式进行比较，如果匹配正确则再执行第二行的命令并读取第二行的标准结果进行比较，以此类推，cmd.txt和result.txt 已经事先写好 ，类似于testcase）

现要求程序进行精确匹配（原来是关键字匹配，也就是只匹配命令结果的一行），目前想法是在result.txt中定义一个类似于结束标志的字符串，然后程序读到result.txt的结束标志再停止，然后对命令的输出结果进行精确匹配，请问哪位有经验的前辈能帮我修改一下我的程序啊，万分感谢！也欢迎TCL高手和爱好者和我交流：zhangjiayi3399@hotmail.com

我的程序如下：



#!/usr/local/bin/expect -f
set host [lindex $argv 0]
set user [lindex $argv 1]
set passwd [lindex $argv 2]
set cmdfile [lindex $argv 3]
set resultfile [lindex $argv 4]

if { $argc != 5 } {
puts "Usage: ./console host user passwd cmdfile resultfile"
exit 1
}

proc start { } {
global cmdfile
global resultfile
set readcmdfile [open $cmdfile r]
set readresultfile [open $resultfile r]
set n 0
while { ![eof $readcmdfile] } {
gets $readcmdfile line1
if { ![eof $readresultfile] } {
    gets $readresultfile line2
} else {
    break
}

incr n
send "$line1\r"
expect {
  $line2 {}
  timeout {
  send_user "\nCommand $line1 Failed excuted\n"
  exit 1
  }
}
}
puts "\r"
puts "\n$cmdfile Test Passed\n"
close $readcmdfile
close $readresultfile
}
spawn telnet $host
expect "login:"
send "$user\r"
expect "Password:"
send "$passwd\r"
expect "Starting Console"
send "\r"
expect "MAIN MENU"
start

songfun

我很想帮你，真的。。。

willandy

不懂~~~

阳光_测试

学习

feiyuw

用shell的话，我能做一个出来，TCL没整过

wolongsuxing

好想法...不知道楼主实现了没？

莫健

有上海的还是房代发帖QQ:１07772６4９成顺眼代发帖QQ:１07772６4９，牵着马代发帖QQ:１07772６4９跟在马车边上，见我探出了脑袋看风景，朝着我笑了笑，很憨厚，是个忠仆，路边的行人一看到人高马大的房成横着过来，立马连滚带爬的溜得好远，看来房成光是往街上一站就很有杀伤力。灰黑色的家丁服太难看，如果给他设计一套西装，配上一副墨镜，就会代发帖QQ:１07772６4９由忠仆进阶为中南海保镖。
　　“俊哥儿代发帖QQ:１07772６4９，你真被房相那啥了？...”李恪不好意思说我被大唐名相棍棒交加，只隐晦地做了个手势，点点头，长叹一声：“是啊...小弟我昏迷了数日之久，昨天方才醒转过来...”
　　“原是真的....怪不得今日代发帖QQ:１07772６4９总觉得贤弟有些不对劲...”李恪指指我，又指了指李漱，吭哧半天，后话没说出来，只是用很同情地眼神看着我，干啥了这是？难道以前房遗爱跟这丫头有一腿
专业代发帖广告上百度首页，百度专业代发帖相关搜索，专业代发帖广告百度收录
代发广告，专业代发帖子，专业网站推广，淘宝店铺推广，商业信息发布，寻人寻物代发广告，
成名信息代发 各种类型广告代发。广东深圳代发帖，广告代发，专业代发帖广告群发，广告百度收录
增加网站流量，在帖中加入网址，网站更易被爬虫爬取.增加网站收录
我们帮你发各大论坛
适合淘宝和个人网站推广
一天一结算，代发帖子Q１07７726４9
●专业代发帖子：
①1万帖7元， 随机发
②5万帖50元 论坛人气稍高
③10万帖100元 专用高人气
④20万帖200元 专用高人气
⑤30万300元，包月1000元 专用高人气
⑥40万400元，包月1300元 专用高人气
⑦50万500元，包月1600元 专用高人气
⑧手工发帖:5毛/帖 提供发帖成功地址
●代发帖：
测试I型:10元，代发帖1000 (1天)
测试II型:30元，代发帖3200 (2~3天)
常规发帖型:50元，代发帖6000 (4~5天)
月套餐：
初级型：300元，发一周，每天1300贴
中级型：750元，一个月每天发3400贴
高级型：1500元，一个月每天代发帖7000贴
企业推广型：3000元，一个月每天代发帖15000贴
品牌推广型：4500元，一个月每天发20000贴
加强推广型：6000元，一个月每天发25000贴

价格我们不是最低，一分钱一分货，用效果说话，(全程人工辅助).
如果您询问我们效果，您看到我们的帖子，就是我们效果的最好体现

客服Q:１0７７726４9.