Lines Matching refs:P

80   set P(testname) [lshift A]
81   set P(seconds) 5
82   set P(init) ""
83   set P(threads) [list]
84   set P(processes) 0
85   set P(check) {
96         set P(seconds) [lshift A]
100         set P(init) [lshift A]
104         set P(processes) [lshift A]
108         set P(check) [lshift A]
115         lappend P(threads) [list $name $count $prg]
124   if {$P(seconds) == 0} {
125     puts "Skipping $P(testname)"
129   puts "Running $P(testname) for $P(seconds) seconds..."
135   eval $P(init)
138   foreach T $P(threads) {
147         set E(seconds) $P(seconds)
180       if {$P(processes)==0} {
189   foreach T $P(threads) {
198       do_test $P(testname).$name.$i [list lindex $res 0] 0
207   if {[catch $P(check) msg]} { set res $msg }
208   do_test $P(testname).check [list set {} $res] ""