51Testing软件测试论坛

标题: 难道环境变量不能重写么？ [打印本页]

作者: applebugs 时间: 2007-10-8 19:12
标题: 难道环境变量不能重写么？
自动义一个环境变更量payType,每次运行程序都读自动义时的初始值，晕：
请看下面程序，
Call editADReservation

Function  editADReservation

'编辑广告预定为另一类型

Browser("销售管理信息系统").Page("销售管理信息系统").Link("客户管理").Click
Browser("销售管理信息系统").Page("销售管理信息系统_2").Link("（新）广告资源").Click
Browser("销售管理信息系统").Page("销售管理信息系统_3").WebButton("查  询").Click

Set oDesc = Description.Create

oDesc("micclass").Value = "Link"
oDesc("name").Value = "详细"
oDesc("index").Value = 0

myvalue=Environment.Value("payType")
msgbox myvalue

Browser("销售管理信息系统").Page("销售管理信息系统_4").Link(oDesc).Click
Browser("销售管理信息系统").Page("销售管理信息系统_5").WebButton("编辑(E)").Click

payType = Browser("销售管理信息系统").Page("销售管理信息系统_6").WebList("pay_type").getroproperty("value")

If payType = "购买" Then

Browser("销售管理信息系统").Page("销售管理信息系统_6").WebList("pay_type").Select "赠送"
expectedValue="赠送"

else

Browser("销售管理信息系统").Page("销售管理信息系统_6").WebList("pay_type").Select "购买"
expectedValue="购买"

End If

Environment.Value("payType") = expectedValue

myvalue=Environment.Value("payType")
msgbox myvalue

Browser("销售管理信息系统").Page("销售管理信息系统_6").WebButton("确  定").Click
Browser("销售管理信息系统").Window("消息 -- 网页对话框").Close

Browser("销售管理信息系统").Page("销售管理信息系统_4").Link(oDesc).Click

End Function

作者: hsjzfling 时间: 2007-10-8 19:45
貌似不关环境变量的事。。。没发现环境变量哪里不对，楼主还是检查下其它地方的问题吧～

作者: hsjzfling 时间: 2007-10-8 19:46
自定义的环境变量是可以当作普通的变量一样来使用的（包括赋值），其作用域为整个Test

作者: beili 时间: 2007-10-9 10:33
不是很清楚你这里用环境变量的目的是什么，用法是没有错，但是第一句的myvalue=Environment.Value("payType") 中的payType的值为空吗？

作者: applebugs 时间: 2007-10-19 16:53
标题: 回复 4# 的帖子
初始化是有值的，现在问题是可以读，但不能写。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)