summaryrefslogtreecommitdiffstats
path: root/testsuite/systemtap.syscall/test.tcl
diff options
context:
space:
mode:
authorhunt <hunt>2006-10-27 19:06:02 +0000
committerhunt <hunt>2006-10-27 19:06:02 +0000
commit29aec74d4af5df8f1d5caa699ca4d35659f51a29 (patch)
tree0083f31e56f9d99cdf262ad800661073175f2377 /testsuite/systemtap.syscall/test.tcl
parent68e7e59b32783bc9a40cddecbfdf6a19ba0d8e42 (diff)
downloadsystemtap-steved-29aec74d4af5df8f1d5caa699ca4d35659f51a29.tar.gz
systemtap-steved-29aec74d4af5df8f1d5caa699ca4d35659f51a29.tar.xz
systemtap-steved-29aec74d4af5df8f1d5caa699ca4d35659f51a29.zip
2006-10-27 Martin Hunt <hunt@redhat.com>
* test.exp, test.tcl: Remove our own caching code and just use systemtap's new caching. * acct.c (main): Make pattern less selective so it works when run by root.
Diffstat (limited to 'testsuite/systemtap.syscall/test.tcl')
-rwxr-xr-xtestsuite/systemtap.syscall/test.tcl20
1 files changed, 2 insertions, 18 deletions
diff --git a/testsuite/systemtap.syscall/test.tcl b/testsuite/systemtap.syscall/test.tcl
index ee797565..41934da4 100755
--- a/testsuite/systemtap.syscall/test.tcl
+++ b/testsuite/systemtap.syscall/test.tcl
@@ -14,7 +14,7 @@ proc cleanup {} {
}
proc usage {progname} {
- puts "Usage: $progname testname [modulename]"
+ puts "Usage: $progname testname"
}
proc bgerror {error} {
@@ -23,29 +23,13 @@ proc bgerror {error} {
}
trap {cleanup} SIGINT
set testname [lindex $argv 0]
-set modname [lindex $argv 1]
if {$testname == ""} {
usage $argv0
exit
}
set filename "${testname}.c"
-
-if {$modname == ""} {
- set cmd "stap -c ../${testname} ../sys.stp"
-} else {
- set ccmd "which staprun"
- catch {eval exec $ccmd} output
- if {[file exists $output]} {
- set staprun $output
- } else {
- puts "staprun not found!"
- exit
- }
-
- set user $::tcl_platform(user)
- set cmd "sudo $staprun -rmq -u $user -c ../${testname} ${modname}"
-}
+set cmd "stap -c ../${testname} ../sys.stp"
# Extract the expected results
# Use the preprocessor so we can ifdef tests in and out