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         -re {read[^\r\n]*\r\n} { incr ok; exp_continue }
   7         -re {write[^\r\n]*\r\n} { incr ok; exp_continue }
   8         eof
   9     }
  10     wait
  11     if {$ok > 10} { pass $test } else { fail $test }
  12 }
  13
  14 set test "prologues no-P"
  15 if {! [installtest_p]} { untested $test } else {
  16     set ok 0
  17     spawn stap $srcdir/$subdir/prologues.stp
  18     expect {
  19         -re {read[^\r\n]*\r\n} { incr ok; exp_continue }
  20         -re {write[^\r\n]*\r\n} { incr ok; exp_continue }
  21         eof
  22     }
  23     wait
  24     if {$ok > 10} { pass $test } else { fail $test }
  25 }
  26