while { [gets $tests_to_run TEST] >= 0 } { set test_done 0 send "t $TEST\r" sleep 2 while { $test_done == 0 } { expect { "execute . AR1_6" { send_packet_from_bsd "AR1_6" } #"execute . AR1_16" { send_packet_from_bsd "AR1_16" } #"execute . AR1_14" { send_packet_from_bsd "AR1_14" } #"execute . AR1_1" { send_packet_from_bsd "AR1_1" } "Test \* Complete" { set test_done 1 } } } }
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)