summaryrefslogtreecommitdiffstats
path: root/testsuite/systemtap.samples/args.exp
diff options
context:
space:
mode:
authorWilliam Cohen <wcohen@redhat.com>2009-01-29 15:22:40 -0500
committerWilliam Cohen <wcohen@redhat.com>2009-01-29 15:22:40 -0500
commitae7f749b222f23e3904dc79c4217f0070a05591c (patch)
tree690f491c3edcb2bc25d00eee9eaf4b17f3d53e58 /testsuite/systemtap.samples/args.exp
parentc5b08ee1ec3c731b85a3891c366527171bc56009 (diff)
downloadsystemtap-steved-ae7f749b222f23e3904dc79c4217f0070a05591c.tar.gz
systemtap-steved-ae7f749b222f23e3904dc79c4217f0070a05591c.tar.xz
systemtap-steved-ae7f749b222f23e3904dc79c4217f0070a05591c.zip
Remove uninteresting examples, args.stp, primes.stp, and testlog.stp.
Diffstat (limited to 'testsuite/systemtap.samples/args.exp')
-rw-r--r--testsuite/systemtap.samples/args.exp82
1 files changed, 0 insertions, 82 deletions
diff --git a/testsuite/systemtap.samples/args.exp b/testsuite/systemtap.samples/args.exp
deleted file mode 100644
index 6b1fd3d0..00000000
--- a/testsuite/systemtap.samples/args.exp
+++ /dev/null
@@ -1,82 +0,0 @@
-set test "args"
-if {![installtest_p]} { untested $test; return }
-
-set stappath [exec which stap]
-set staprunpath [exec which staprun]
-
-if [file exists $staprunpath] {
- pass "$test search for staprun"
-} else {
- fail "$test search for staprun"
- return
-}
-
-set modname "args_[pid]"
-spawn stap -w -k -p4 -m $modname $srcdir/$subdir/args.stp
-set tmpdir NO_SUCH_FILE
-expect {
- -timeout 120
- -re {Keeping temporary directory "([/a-zA-Z0-9_]*)"} { pass "$test compile";
- set tmpdir $expect_out(1,string) }
- timeout { fail "$test compile (timeout)" }
- eof { }
-}
-catch {close}; wait
-
-set modpath_cwd "$modname.ko"
-if [file exists $modpath_cwd] {
- pass "$test search for probe module"
-} else {
- fail "$test search for probe module"
- return
-}
-exec /bin/rm -f $modpath_cwd
-
-if [file exists $tmpdir] {
- pass "$test search for tmpdir"
-} else {
- fail "$test search for tmpdir"
- return
-}
-
-set modpath "$tmpdir/$modname.ko"
-if [file exists $modpath] {
- pass "$test search for tmpdir probe module"
-} else {
- fail "$test search for tmpdir probe module"
- return
-}
-
-spawn $staprunpath $modpath foo=hello bar=999
-set ok 0
-expect {
- -timeout 120
- -re {foo=hello bar=999} { incr ok }
- timeout { }
- eof { }
-}
-catch {close}; wait
-if {$ok == 1} {
- pass "$test run 1"
-} else {
- fail "$test run 1"
-}
-
-spawn $staprunpath $modpath foo=goodbye bar=0
-set ok 0
-expect {
- -timeout 120
- -re {foo=goodbye bar=0} { incr ok }
- timeout { }
- eof { }
-}
-catch {close}; wait
-if {$ok == 1} {
- pass "$test run 2"
-} else {
- fail "$test run 2"
-}
-
-
-
-exec /bin/rm -rf $tmpdir