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                    
}