# Example 7 script
# Using PVA-3102 in slot,port 1,1 for Tx, 1,2 for Rx
set TxPort 1,1
set RxPort 1,2
# Configure both Test Ports for 1000Base-T, duplex, polarity auto,
gig_mode
# Slave so DUT will be Master
pva_speed $TxPort 1000 duplex auto arm
pva_polarity $TxPort auto arm
pva_gig_mode $TxPort slave arm
pva_speed $RxPort 1000 duplex auto arm
pva_polarity $RxPort auto arm
# Force a re-link, to establish the desired line conditions.
pva_relink $TxPort
pva_relink $RxPort
# Verify that the links are up.
pva_link_wait $TxPort
pva_link_wait $RxPort
# Configure impairments on the TxPort.
pva_line $TxPort impair all
pva_noise $TxPort on dB 4.0
pva_tx_clk $TxPort jitter dB 2.0 offset 0
# Start the Received Packet Counter on the RxPort.
set rslt [pva_rx_pkt $RxPort start]
# Transmit 1024k packets with the TxPort
set rslt [pva_tx_pkt $TxPort size 60 rate line count 1024K start]
# Check for Transmit completed
while {[lindex [pva_tx_pkt $TxPort stat] 3] != "IDLE"} { }
# Read the Received Packet Counter.
set rcvdPackets [lindex [pva_rx_pkt $RxPort stat] 6]
# Stop the Received Packet Counter.
set rslt [pva_rx_pkt $RxPort stop]
# Calculate Packet Loss.
set lostPackets [expr 1048576 - $rcvdPackets]