testsuite/systemtap.base/prologues.exp

   1 set test "prologues -P"
   2 if {! [installtest_p]} { untested $test } else {
   3     set ok 0
   4     spawn stap -P $srcdir/$subdir/prologues.stp
   5     expect {
   6         -timeout 240
   7         -re {read[^\r\n]*\r\n} { incr ok; exp_continue }
   8         -re {write[^\r\n]*\r\n} { incr ok; exp_continue }
   9         timeout { fail "$test (timeout)" }
  10         eof
  11     }
  12     closewait
  13     if {$ok > 10} { pass $test } else { fail $test }
  14 }
  15
  16 set test "prologues no-P"
  17 if {! [installtest_p]} { untested $test } else {
  18     set ok 0
  19     spawn stap $srcdir/$subdir/prologues.stp
  20     expect {
  21         -timeout 240
  22         -re {read[^\r\n]*\r\n} { incr ok; exp_continue }
  23         -re {write[^\r\n]*\r\n} { incr ok; exp_continue }
  24         timeout { fail "$test (timeout)" }
  25         eof
  26     }
  27     closewait
  28     if {$ok > 10} { pass $test } else { fail $test }
  29 }
  30