From 2f41f39496d9f9f82947eeebd169a8aa9db8245a Mon Sep 17 00:00:00 2001
From: Mark Wielaard <mjw@redhat.com>
Date: Sat, 19 Sep 2009 19:14:33 +0200
Subject: Use less idle time in testsuite.

A lot of tests wait, sleep or use a timer for multiple seconds when that
is not necessary. Reduce the time waited so save test time.

* testsuite/systemtap.base/backtrace.stp: Exit after 100ms.
* testsuite/systemtap.base/badkprobe.exp: Likewise.
* testsuite/systemtap.base/global_end.stp: Likewise.
* testsuite/systemtap.base/itrace.exp: Wait 1 sec instead of 5 for each test.
* testsuite/systemtap.base/maxactive.exp: Likewise.
* testsuite/systemtap.base/onoffprobe.exp: Match and use modname, so
  build script can be cached.
* testsuite/systemtap.base/onoffprobe.stp: Wait miliseconds instead of
  seconds in each alias. Output module_name.
* testsuite/systemtap.base/poll_map.stp: Start after 100ms.
---
 testsuite/systemtap.base/itrace.exp | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'testsuite/systemtap.base/itrace.exp')

diff --git a/testsuite/systemtap.base/itrace.exp b/testsuite/systemtap.base/itrace.exp
index ddd1b07b..89d488e2 100644
--- a/testsuite/systemtap.base/itrace.exp
+++ b/testsuite/systemtap.base/itrace.exp
@@ -147,13 +147,13 @@ if {[catch {exec cp /bin/ls $exepath} res]} {
 }
 
 # "load" generation function for stap_run.  It spawns our own copy of
-# /bin/ls, waits 5 seconds, then kills it.
-proc run_ls_5_sec {} {
+# /bin/ls, waits 1 second, then kills it.
+proc run_ls_1_sec {} {
     global exepath
 
     spawn $exepath
     set exe_id $spawn_id
-    after 5000;
+    after 1000;
     exec kill -INT -[exp_pid -i $exe_id]
     return 0;
 }
@@ -194,7 +194,7 @@ if {![utrace_p]} {
     xfail "$TEST_NAME : no kernel single step support"
 } else {
     set script [format $itrace_single1_script $exepath]
-    stap_run $TEST_NAME run_ls_5_sec $itrace_single1_script_output -e $script
+    stap_run $TEST_NAME run_ls_1_sec $itrace_single1_script_output -e $script
 }
 
 set TEST_NAME "itrace_single2"
@@ -206,7 +206,7 @@ if {![utrace_p]} {
     xfail "$TEST_NAME : no kernel single step support"
 } else {
     set script [format $itrace_single2_script $exepath]
-    stap_run $TEST_NAME run_ls_5_sec $itrace_single2_script_output -e $script
+    stap_run $TEST_NAME run_ls_1_sec $itrace_single2_script_output -e $script
 }
 
 # Run the block step tests
@@ -219,7 +219,7 @@ if {![utrace_p]} {
     xfail "$TEST_NAME : no kernel block step support"
 } else {
     set script [format $itrace_block1_script $exepath]
-    stap_run $TEST_NAME run_ls_5_sec $itrace_block1_script_output -e $script
+    stap_run $TEST_NAME run_ls_1_sec $itrace_block1_script_output -e $script
 }
 
 set TEST_NAME "itrace_block2"
@@ -231,7 +231,7 @@ if {![utrace_p]} {
     xfail "$TEST_NAME : no kernel block step support"
 } else {
     set script [format $itrace_block2_script $exepath]
-    stap_run $TEST_NAME run_ls_5_sec $itrace_block2_script_output -e $script
+    stap_run $TEST_NAME run_ls_1_sec $itrace_block2_script_output -e $script
 }
 
 # Cleanup
-- 
cgit