From 814bc89d4635f101b2c0077598f31aad95ed15b7 Mon Sep 17 00:00:00 2001
From: fche <fche>
Date: Sat, 12 Aug 2006 05:13:09 +0000
Subject: 2006-08-12  Frank Ch. Eigler  <fche@elastic.org>

	* configure.ac, Makefile.am: Descend into testsuite/
	directory.  Remove local test logic.
	* configure, Makefile.in: Regenerated.
	* runtest.sh: Not yet removed.
	* HACKING: Update for new testsuite layout.

2006-08-12  Frank Ch. Eigler  <fche@elastic.org>

	* all: Reorganized old pass-1..4 tests one dejagnu bucket.
	Moved over old pass-5 tests, except for disabled syscalls tests.
	* Makefile (installcheck): New target for running pass-1..5
	tests against installed systemtap.
---
 .../systemtap.stress/all_kernel_functions.exp      | 59 ++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 testsuite/systemtap.stress/all_kernel_functions.exp

(limited to 'testsuite/systemtap.stress/all_kernel_functions.exp')

diff --git a/testsuite/systemtap.stress/all_kernel_functions.exp b/testsuite/systemtap.stress/all_kernel_functions.exp
new file mode 100644
index 00000000..f81b6430
--- /dev/null
+++ b/testsuite/systemtap.stress/all_kernel_functions.exp
@@ -0,0 +1,59 @@
+load_lib "stap_run.exp"
+
+proc genload {} {
+    # if 'genload' from the ltp exists, use it to create a real load
+    set genload {/usr/local/ltp/testcases/bin/genload}
+    if [file executable $genload] {
+        exec $genload -c 10 -i 10 -m 10 -t 10
+        #                               ^^^^^ run for 10 seconds
+        #                         ^^^^^ 10 procs spinning on malloc
+        #                   ^^^^^ 10 procs spinning on sync
+        #             ^^^^^ 10 procs spinning on sqrt
+    } else {
+        # sleep for a bit
+        after 10000
+    }
+    return 0
+}
+
+proc probe_ok {probepoint} {
+    set cmd {exec stap -p2 -e}
+    lappend cmd "probe $probepoint {}"
+    return ![catch $cmd]
+}
+
+set systemtap_script {
+    global stat
+    probe %s {
+        stat[probefunc()] <<< 1
+    }
+    probe begin {
+        log("systemtap starting probe")
+    }
+    probe end {
+        log("systemtap ending probe")
+        foreach (func in stat)
+            printf("%%d  %%s\n", @count(stat[func]), func)
+    }
+}
+
+set letters [split {abcdefghijklmnopqrstuvwxyz_ABCDEFGHIJKLMNOPQRSTUVWXYZ} {}]
+
+set output_string "(\\d+  \\w+\\r\\n)*(WARNING.*skipped.*)?"
+
+# Because this test is known to expose system crashes, it is not enabled
+# by default.  Change the line below to 'if 1' to enable it.
+if 0 {
+    foreach start $letters {
+        set probepoint "kernel.function(\"$start*\")"
+        set prefix "all_kernel_functions:"
+        if [probe_ok $probepoint] {
+            set script [format $systemtap_script $probepoint]
+            stap_run $prefix$probepoint genload $output_string -e $script
+        } else {
+            unsupported "$prefix no match for $probepoint"
+        }
+    }
+} else {
+    untested "all_kernel_functions is disabled"
+}
-- 
cgit