一、203_TC_FrameRate-1.tcl

set chassisAddr 10.132.238.190

set islot 1
set portList {9 10} ;#端口的排列顺序是port1, port2
set ipList {10.0.0.3 20.0.0.3} ;#ip列表与port的排列顺序相相应
set macList {00-00-00-00-00-01 00-00-00-00-00-02}
set gwList {10.0.0.1 20.0.0.1}
set iFramelen 256
set streamLoad 100

if { [catch {
     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 CreateTraffic -TrafficName traffic1
    traffic1 CreateProfile -Name profile1 -TrafficLoad 100 -TrafficLoadUnit fps
    
    traffic1 CreateStream -StreamName stream1 -FrameLen 500 -ProfileName profile1 \
        -L2 ethernet -L3 IPv4 -L4 Udp -IpSrcAddr 192.168.0.1 -IpDstAddr 192.168.5.7 -udpsrcport 2000 -udpdstport 3000
    
    traffic1 ConfigStream -StreamName stream1 -L2 ethernet -L3 IPv4 -EthDst 00:00:10:E1:01:08 -EthSrc 00:00:11:E1:00:09
    
    #创建统计和分析对象Statistics1,Statistics2,Analysis2
    port1 CreateStaEngine -StaEngineName Statistics1 -StaType Statistics
    port2 CreateStaEngine -StaEngineName Statistics2 -StaType Statistics
    port2 CreateStaEngine -StaEngineName Analysis2 -StaType Analysis
    #SaveConfigAsXML "c:/framerate.xml"
    puts "配置捕获模式，将数据报capture到指定文件，可用于数据包的分析"
    Analysis2 ConfigCaptureMode -CaptureMode allpkt -CaptureFile "c:/Framerate.pcap"
    
    # 開始捕获报文     
    puts "開始捕获报文"
    
    for {set i 0} {$i < 1} {incr i} {
       traffic1 ConfigProfile -Name profile1 -TrafficLoad [expr 100 + $i * 100] -TrafficLoadUnit fps
       Analysis2 StartCapture
       puts "配置捕获模式，将数据报capture到指定文件"
       Analysis2 ConfigCaptureMode -CaptureMode allpkt -CaptureFile "c:/Framerate[expr 100 + $i * 100].pcap"
       port1 StartStaEngine
       port2 StartStaEngine
       port1 StartTraffic

       # 等待5秒
       after 5000

       # 在txport停止流量发送
       port1 StopTraffic
       
       after 5000
       
       array set stats1 [Statistics1 GetPortStats ]
       parray stats1
    
       array set stats2 [Statistics2 GetPortStats ]
       parray stats2
   
       # 基于流，获取stream1,stream2,stream3,stream4的统计值，存储在stats数组并打印出来
       array set stats3 [Statistics1 GetStreamStats -StreamName stream1]
       parray  stats3
       
       #array set stats4 [Statistics1 GetStreamStats -StreamName stream2]
       #parray  stats4
    
       #array set stats5 [Statistics1 GetStreamStats -StreamName stream3]
       #parray  stats5      


       port1 StopStaEngine
       port2 StopStaEngine
       Analysis2 StopCapture
    }

    
    #清除測试过程中所作的全部配置和释放測试过程中占用的全部资源
    chassis1 CleanupTest                     
}  err ] } {
    puts "脚本执行中出现错误: $err"

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

二、203_TC_FrameRate-2.tcl

set chassisAddr 10.132.238.190
set islot 1
set portList {9 10} ;#端口的排列顺序是port1, port2
set ipList {10.0.0.3 20.0.0.3} ;#ip列表与port的排列顺序相相应
set macList {00-00-00-00-00-01 00-00-00-00-00-02}
set gwList {10.0.0.1 20.0.0.1}
set iFramelen {64 128 256 512 1518}
set streamLoad 100

if { [catch {
     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 CreateTraffic -TrafficName traffic1
    traffic1 CreateProfile -Name profile1 -TrafficLoad 100 -TrafficLoadUnit fps
    
    traffic1 CreateStream -StreamName stream1 -FrameLen 500 -ProfileName profile1 \
        -L2 ethernet -L3 IPv4 -L4 Udp -IpSrcAddr 192.168.0.1 -IpDstAddr 192.168.5.7 -udpsrcport 2000 -udpdstport 3000
    
    traffic1 ConfigStream -StreamName stream1 -L2 ethernet -L3 IPv4 -EthDst 00:00:10:E1:01:08 -EthSrc 00:00:11:E1:00:09
    
    #创建统计和分析对象Statistics1,Statistics2,Analysis2
    port1 CreateStaEngine -StaEngineName TxStatistics1 -StaType Statistics
    port2 CreateStaEngine -StaEngineName RxStatistics1 -StaType Statistics
    port2 CreateStaEngine -StaEngineName Analysis2 -StaType Analysis
    #SaveConfigAsXML "c:/framerate.xml"
    puts "配置捕获模式，将数据报capture到指定文件。可用于数据包的分析"
    Analysis2 ConfigCaptureMode -CaptureMode allpkt -CaptureFile "c:/Framerate.pcap"
    
    # 開始捕获报文     
    puts "開始捕获报文"
    
    for {set i 0} {$i < 3} {incr i} {
       traffic1 ConfigProfile -Name profile1 -TrafficLoad [expr 100 + $i * 100] -TrafficLoadUnit fps
       traffic1 ConfigStream -StreamName stream1 -FrameLen [ lindex $iFramelen $i ]
       Analysis2 StartCapture
       puts "配置捕获模式，将数据报capture到指定文件"
       Analysis2 ConfigCaptureMode -CaptureMode allpkt -CaptureFile "c:/Framerate[expr 100 + $i * 100].pcap"
       port1 StartStaEngine
       port2 StartStaEngine
       port1 StartTraffic

       # 等待5秒
       after 5000

       # 在txport停止流量发送
       port1 StopTraffic
       
       after 5000
       
       
        set TxStats1 [TxStatistics1 GetPortStats ]
       puts "-------------------------------"
       puts $TxStats1
       puts "-------------------------------"
       set txFrameIndex [lsearch $TxStats1 -TxSignature ]
       set txFrameRateIndex [lsearch $TxStats1 -TxSignatureRate]
       set txFrameNum [lindex $TxStats1 [expr $txFrameIndex + 1]]
       set txFrameRate [lindex $TxStats1 [expr $txFrameRateIndex + 1]]
       
       
           
       #array set RxStats1 [RxStatistics1 GetPortStats ]
       set RxStats1 [RxStatistics1 GetPortStats ]
       puts "-------------------------------"
       puts $RxStats1
       puts "-------------------------------"
       set rxFrameIndex [lsearch $RxStats1 -RxSignature ]
       set rxFrameRateIndex [lsearch $RxStats1 -RxSignatureRate ]
       set rxFrameNum [lindex $RxStats1 [expr $rxFrameIndex + 1]]
       set rxFrameRate [lindex $RxStats1 [expr $rxFrameRateIndex + 1]]
       
       puts "TxFrame=$txFrameNum"
       puts "RxFrame=$rxFrameNum"
       
          


       port1 StopStaEngine
       port2 StopStaEngine
       Analysis2 StopCapture
    }

    
    #清除測试过程中所作的全部配置和释放測试过程中占用的全部资源
    chassis1 CleanupTest                     
}  err ] } {
    puts "脚本执行中出现错误: $err"

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