diff options
| author | fche <fche> | 2007-02-09 18:57:11 +0000 |
|---|---|---|
| committer | fche <fche> | 2007-02-09 18:57:11 +0000 |
| commit | 34dde0d3b3f7edad0e449c7ba9113bd3cc123682 (patch) | |
| tree | 868071019274ae7ecfdd38a8cc35c62ea97ef9bd /testsuite/systemtap.base | |
| parent | 8045e33ede1ace3f3d0735c6ff7c621137c830f3 (diff) | |
| download | systemtap-steved-34dde0d3b3f7edad0e449c7ba9113bd3cc123682.tar.gz systemtap-steved-34dde0d3b3f7edad0e449c7ba9113bd3cc123682.tar.xz systemtap-steved-34dde0d3b3f7edad0e449c7ba9113bd3cc123682.zip | |
* d'oh - disable tests unless [installtest_p]
Diffstat (limited to 'testsuite/systemtap.base')
| -rw-r--r-- | testsuite/systemtap.base/prologues.exp | 37 |
1 files changed, 21 insertions, 16 deletions
diff --git a/testsuite/systemtap.base/prologues.exp b/testsuite/systemtap.base/prologues.exp index b349e839..b0f6a5c6 100644 --- a/testsuite/systemtap.base/prologues.exp +++ b/testsuite/systemtap.base/prologues.exp @@ -1,21 +1,26 @@ set test "prologues -P" -set ok 0 -spawn stap -P $srcdir/$subdir/prologues.stp -expect { - -re {read[^\r\n]*\r\n} { incr ok; exp_continue } - -re {write[^\r\n]*\r\n} { incr ok; exp_continue } - eof +if {! [installtest_p]} { untested $test } else { + set ok 0 + spawn stap -P $srcdir/$subdir/prologues.stp + expect { + -re {read[^\r\n]*\r\n} { incr ok; exp_continue } + -re {write[^\r\n]*\r\n} { incr ok; exp_continue } + eof + } + wait + if {$ok > 10} { pass $test } else { fail $test } } -wait -if {$ok > 10} { pass $test } else { fail $test } set test "prologues no-P" -set ok 0 -spawn stap $srcdir/$subdir/prologues.stp -expect { - -re {read[^\r\n]*\r\n} { incr ok; exp_continue } - -re {write[^\r\n]*\r\n} { incr ok; exp_continue } - eof +if {! [installtest_p]} { untested $test } else { + set ok 0 + spawn stap $srcdir/$subdir/prologues.stp + expect { + -re {read[^\r\n]*\r\n} { incr ok; exp_continue } + -re {write[^\r\n]*\r\n} { incr ok; exp_continue } + eof + } + wait + if {$ok > 10} { pass $test } else { fail $test } } -wait -if {$ok > 10} { pass $test } else { fail $test }
\ No newline at end of file + |