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

#设置Chassis的基本参数，包括IP地址，端口的数量等等
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

    # 开始预留两个端口
    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                    
}