summaryrefslogtreecommitdiffstats
path: root/testsuite/lib/stap_run.exp
diff options
context:
space:
mode:
authorfche <fche>2007-03-30 19:17:02 +0000
committerfche <fche>2007-03-30 19:17:02 +0000
commitb8da0ad19d9dfcf88c4cd6dcf7b8aa73fc5016d7 (patch)
tree82225c0ef08f075dc0a5e9a8d59ed3d37a072b1c /testsuite/lib/stap_run.exp
parent3be43eac84e5819b72dd311c3283ef2ea5bb1d83 (diff)
downloadsystemtap-steved-b8da0ad19d9dfcf88c4cd6dcf7b8aa73fc5016d7.tar.gz
systemtap-steved-b8da0ad19d9dfcf88c4cd6dcf7b8aa73fc5016d7.tar.xz
systemtap-steved-b8da0ad19d9dfcf88c4cd6dcf7b8aa73fc5016d7.zip
2007-03-30 Frank Ch. Eigler <fche@redhat.com>
PR 1570 * NEWS: Document probe handler language change re. inline functions. * stapprobes.5.in: Likewise. * tapsets.cxx: Many changes to simplify caches and implement new handling of inline functions, removed of stubs for future probes. * elaborate.cxx (derived_probe printsig_nested): New function. * elaborate.h: Declare it. * main.cxx (usage): Clarify "-r" meaning. (main): Tweak related "-p 4" message. 2007-03-30 Frank Ch. Eigler <fche@elastic.org> PR 1570. * memory.stp, scheduler.stp, signal.stp, LKET/signal.stp: Adapt to .inline -> .function change. 2007-03-30 Frank Ch. Eigler <fche@elastic.org> PR 1570 * */*.stp: Adapt to .inline -> .function change. * lib/stap_run.exp, stap_run2.exp, stap_run_binary.exp: Shorten pass/fail dejagnu log lines. * systemtap.syscall/sys.stp, test.tcl: Make slightly more compatible and failure more verbose.
Diffstat (limited to 'testsuite/lib/stap_run.exp')
-rw-r--r--testsuite/lib/stap_run.exp14
1 files changed, 6 insertions, 8 deletions
diff --git a/testsuite/lib/stap_run.exp b/testsuite/lib/stap_run.exp
index 68fceb32..baf41d9b 100644
--- a/testsuite/lib/stap_run.exp
+++ b/testsuite/lib/stap_run.exp
@@ -1,9 +1,3 @@
-# stap_run.exp
-#
-# Will Cohen
-# 8/12/2005
-
-
# stap_run TEST_NAME LOAD_GEN_FUNCTION OUTPUT_CHECK_STRING
# TEST_NAME is path to the current test
# LOAD_GEN_FUNCTION (optional) to produce something to measure
@@ -21,6 +15,10 @@ proc stap_run { TEST_NAME {LOAD_GEN_FUNCTION ""} {OUTPUT_CHECK_STRING ""} args }
global probe_errors
global skipped_probes
+ # zap the srcdir prefix
+ set test_file_name $TEST_NAME
+ set TEST_NAME [regsub {.*/testsuite/} $TEST_NAME ""]
+
# initialize probe_errors and skipped_probes to 0
set probe_errors 0
set skipped_probes 0
@@ -28,8 +26,8 @@ proc stap_run { TEST_NAME {LOAD_GEN_FUNCTION ""} {OUTPUT_CHECK_STRING ""} args }
if {[info procs installtest_p] != "" && ![installtest_p]} { untested $TEST_NAME; return }
set cmd [concat {stap -v} $args]
- if [file readable $TEST_NAME] {
- lappend cmd $TEST_NAME
+ if [file readable $test_file_name] {
+ lappend cmd $test_file_name
}
eval spawn $cmd
expect {