Remove uninteresting examples, args.stp, primes.stp, and testlog.stp.

diff --git a/testsuite/ChangeLog b/testsuite/ChangeLog
index 680a5ce74f26a7f05a99931f23543175510c3728..a98ad1f387f61e33375fc8e6f0f1b88ac78fff05 100644 (file)
--- a/testsuite/ChangeLog
+++ b/testsuite/ChangeLog
@@ -1,3 +1,11 @@
+2009-01-29  Will Cohen  <wcohen@redhat.com>
+
+       * testsuite/systemtap.samples/args.exp:
+       * testsuite/systemtap.samples/args.stp:
+       * testsuite/systemtap.samples/primes.exp:
+       * testsuite/systemtap.samples/primes.stp:
+       * testsuite/systemtap.samples/testlog.stp: Remove.
+
 2009-01-28  Will Cohen  <wcohen@redhat.com>
 
        * systemtap.examples/profiling/timeout.meta:

diff --git a/testsuite/systemtap.samples/args.exp b/testsuite/systemtap.samples/args.exp
deleted file mode 100644 (file)
index 6b1fd3d..0000000
--- 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

diff --git a/testsuite/systemtap.samples/args.stp b/testsuite/systemtap.samples/args.stp
deleted file mode 100644 (file)
index 84b6080..0000000
--- a/testsuite/systemtap.samples/args.stp
+++ /dev/null
@@ -1,9 +0,0 @@
-#! stap
-
-global foo, bar
-
-probe begin { 
-  printf("foo=%s bar=%d\n", foo, bar)
-  exit ()
-}
-

diff --git a/testsuite/systemtap.samples/primes.exp b/testsuite/systemtap.samples/primes.exp
deleted file mode 100644 (file)
index f99f67c..0000000
--- a/testsuite/systemtap.samples/primes.exp
+++ /dev/null
@@ -1,21 +0,0 @@
-set test "primes"
-if {![installtest_p]} { untested $test; return }
-
-spawn stap $srcdir/$subdir/primes.stp
-set ok 0
-expect {
-    -timeout 150
-    -ex {odds[0] = 1} { incr ok; exp_continue }
-    -ex {odds[1] = 3} { incr ok; exp_continue }
-    -ex {odds[3] = 7} { incr ok; exp_continue }
-    -ex {odds[4] = 9} { incr ok; exp_continue }
-    -ex {evens[2] = 6} { incr ok; exp_continue }
-    -ex {evens[1] = 4} { incr ok; exp_continue }
-    -ex {evens[0] = 2} { incr ok; exp_continue }
-    timeout { fail "$test (timeout)" }
-    eof { }
-}
-#FIXME does not handle case of hanging primes.stp correctly
-wait
-
-if {$ok == 7} { pass "$test" } { fail "$test" }

diff --git a/testsuite/systemtap.samples/primes.stp b/testsuite/systemtap.samples/primes.stp
deleted file mode 100644 (file)
index 1072b4b..0000000
--- a/testsuite/systemtap.samples/primes.stp
+++ /dev/null
@@ -1,23 +0,0 @@
-#! stap
-
-global odds, evens
-
-probe begin {
-  # "no" and "ne" are local integers
-  for (i=1; i<10; i++) {
-    if (i % 2) odds [no++] = i
-    else evens [ne++] = i
-  }
-  delete odds[2]
-  delete evens[3]
-  exit ()
-}
-
-probe end {
-  foreach (x+ in odds) {
-    printf("odds[%d] = %d\n", x, odds[x])
-  }
-  foreach (x in evens-) {
-    printf("evens[%d] = %d\n", x, evens[x])
-  }
-}

diff --git a/testsuite/systemtap.samples/testlog.stp b/testsuite/systemtap.samples/testlog.stp
deleted file mode 100644 (file)
index 5b702aa..0000000
--- a/testsuite/systemtap.samples/testlog.stp
+++ /dev/null
@@ -1,6 +0,0 @@
-probe begin
-{
-       printf("Hello");
-       printf("World");
-       printf("\n");
-}