Tcl脚本调用高层API实现仪表使用和主机创建配置的自己主动化測试用例

#设置Chassis的基本參数，包含IP地址。port的数量等等

set chassisAddr 10.132.238.190

set islot 1

set portList {11 12} ;#端口的排列顺序是port1, port2

if { [catch {

    #载入STC API Lib

  

    cd ../Source

    #载入HLAPI Lib

    source ./CSTC.tcl

    SetLogOption -Debug Enable   

    # 開始连接机器

    TestDevice chassis1 $chassisAddr

# 開始预留两个port

    for {set i 0} {$i <[llength $portList]} {incr i} {

        chassis1 CreateTestPort -PortLocation $islot/[lindex $portList $i] -PortName port[expr $i+1] -PortType Ethernet

    }

#port1 CreateSubInt -SubIntName vlan1

    # 配置vlan子接口

    #vlan1 ConfigVlanIf -VlanTag 300

# 创建Host对象        

    port1 CreateHost -HostName host1 -IpVersion ipv4 -Ipv4Addr 192.168.34.242 -Ipv4AddrGateway 192.168.34.1 \

          -Ipv4AddrPrefixLen 24 -FlagPing enable

    port2 CreateHost -HostName host2 -IpVersion ipv4 -Ipv4Addr 192.168.34.243 -Ipv4AddrGateway 192.168.34.1 \

          -Ipv4AddrPrefixLen 24 -FlagPing enable

    SaveConfigAsXML "c:/host.xml"

    #host1 Ping -Host 192.168.34.243 -Count 4 -Interval 2 -Result ret

    host1 Ping -Host host2 -Count 4 -Interval 2 -Result ret

array set stats1 $ret

    parray stats1

#host1 Ping -Host "192.168.34.244" -Interval 1 -Result ret

#array set stats2 $ret

    #parray stats2

after 3000

   

    #清除測试过程中所作的全部配置和释放測试过程中占用的全部资源

    chassis1 CleanupTest         

}  err ] } {

    puts "脚本执行中出现错误: $err"

#清除測试过程中所作的全部配置和释放測试过程中占用的全部资源

    chassis1 CleanupTest                    

}