diff options
Diffstat (limited to 'testsuite/lib/stap_run2.exp')
| -rw-r--r-- | testsuite/lib/stap_run2.exp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/testsuite/lib/stap_run2.exp b/testsuite/lib/stap_run2.exp index a182a2c5..ebda0d6d 100644 --- a/testsuite/lib/stap_run2.exp +++ b/testsuite/lib/stap_run2.exp @@ -1,8 +1,7 @@ # stap_run2.exp # # Simple script for testing multiple lines of exact output. - - + # stap_run2 TEST_NAME # TEST_NAME is path to the current test # Additional arguments are passed to stap as-is. @@ -12,7 +11,7 @@ set timeout 20 proc stap_run2 { TEST_NAME args } { - if {![installtest_p]} { untested $TEST_NAME; return } + if {[info procs installtest_p] != "" && ![installtest_p]} { untested $TEST_NAME; return } # fix up expected string regsub -all \n $::result_string \r\n output |