reorganize app tests; rewrite tcl as sample of improvements

* testsuite/configure.ac (--enable-testapps): New option.
* testsuite/Makefile.am (TESTAPPS): Pass to dejagnu.

* testsuite/systemtap.base/{xulrunner,tcl,mysql,postgres}:
  Moved under new systemtap.apps/ subdirectory.

* testsuite/systemtap.apps/stap-tcl.sh: New file to build tcl.
* testsuite/systemtap.apps/stap-tcl.stp: New file to test tcl.
* testsuite/systemtap.apps/tcl.exp: New simplified test driver.

* dtrace.in: Disable STAP_HAS_SEMAPHORES as they don't work on shlibs yet.
* includes/sys/sdt.h (STAP_SEMAPHORE): Include __builtin_expect for unlikely.

1 files changed, 0 insertions, 133 deletions

diff --git a/testsuite/systemtap.base/xulrunner.exp b/testsuite/systemtap.base/xulrunner.exp
deleted file mode 100644
index be2db0c7..00000000
--- a/testsuite/systemtap.base/xulrunner.exp
+++ /dev/null
@@ -1,133 +0,0 @@
-set test "xulrunner"
-
-# Test sdt support in xulrunner.
-
-global env
-
-if {! [info exists env(SYSTEMTAP_TEST_SDT)]} {
-    unsupported "xulrunner (\"SYSTEMTAP_TEST_SDT\" not in env)"
-    return
-}
-
-########## Create /tmp/stap-xul.stp ########## 
-set xulrelease "1.9.1.3"
-set xuldir "[pwd]/xul/"
-set testsuite "[pwd]"
-
-set fp [open "$testsuite/stap-xul.stp" "w"]
-puts $fp "
-global funcinfo
-global objinfo
-
-probe process(@1).mark(\"function__info\")
-{
-  file = user_string (\$arg1)
-  func = user_string (\$arg3)
-  funcinfo\[file,func\] <<< 1
-}
-
-probe process(@1).mark(\"object__create\")
-{
-  file = user_string (\$arg1)
-  class = user_string (\$arg2)
-  objinfo\[file,class\] <<< 1
-}
-
-probe end
-{
-  foreach (\[i,j\] in funcinfo+)
-  {
-     printf (\"probes: %-20s %-25s %d\\n\", substr(i,strlen(i)-20,strlen(i)), j, @count(funcinfo\[i,j\]))
-  }
-  foreach (\[i,j\] in objinfo+)
-  {
-     printf (\"probes: %-20s %-25s %d\\n\", substr(i,strlen(i)-20,strlen(i)), j, @count(funcinfo\[i,j\]))
-  }
-}
-"
-close $fp
-
-########## Begin /tmp/stap-xul.sh ########## 
-set fp [open "$testsuite/stap-xul.sh" "w"]
-puts $fp "
-##### begin run_tests #####
-function run_tests \{
-cd $testsuite/xul/bld/js/src
-pwd
-for i in call trace-test math-trace-tests ; do 
-$env(SYSTEMTAP_PATH)/stap -c \"./js $xuldir/src/js/src/\$i.js\" $testsuite/stap-xul.stp ./js
-done | tee $testsuite/stap-xul-markers.log
-PROBES=\$(grep 'probes: ' $testsuite/stap-xul-markers.log | wc -l)
-TESTS=\$(grep '-FAIL' $testsuite/stap-xul-markers.log)
-echo PROBES=\$PROBES TESTS=\$TESTS
-
-if \[ \$PROBES -gt 400 \] ; then
-   echo PASS: xulrunner javascript markers \$1
-else
-   echo FAIL: xulrunner javascript markers \$1
-fi
-
-if \[ -z \$TESTS \] ; then
-   echo PASS: xulrunner javascript testsuite \$1
-else
-   echo FAIL: xulrunner javascript testsuite \$1
-fi
-
-\}
-##### end run_tests #####
-
-if \[ ! -r xulrunner-$xulrelease-source.tar \] ; then
-wget ftp://ftp.mozilla.org/pub/mozilla.org/xul/releases/$xulrelease/source/xulrunner-$xulrelease-source.tar.bz2
-bunzip2 xulrunner-$xulrelease-source.tar.bz2
-fi
-
-if \[ ! -d xul/src \] ; then
-tar -x -f xulrunner-$xulrelease-source.tar
-mkdir xul
-xulrelease=$xulrelease
-mv mozilla-\${xulrelease%.\[0-9\]} xul/src
-fi
-
-if \[ ! -f xul/bld/js/src/js \] ; then
-mkdir xul/bld
-cd xul/bld
-if rpm -q java-1.6.0-openjdk ; then :
-else 
-   echo FAIL: Need java-1.6.0-openjdk-devel
-   exit
-fi
-JAVA_HOME=/usr/lib/jvm/java-1.6.0-openjdk-1.6.0.0.x86_64 \
-CXXFLAGS='-g -I$env(SYSTEMTAP_INCLUDES)' \
-CFLAGS='-g -I$env(SYSTEMTAP_INCLUDES)' \
-PATH=$env(SYSTEMTAP_PATH)/:\$PATH \
-../src/configure --prefix=$xuldir --enable-dtrace --enable-application=xulrunner
-J=\$(getconf _NPROCESSORS_CONF)
-make -j \$J
-fi
-
-run_tests uprobe
-"
-########## End /tmp/stap-xul.sh ########## 
-close $fp
-
-########## /tmp/stap-xul.sh does most of the work ########## 
-verbose -log Running xul testsuite
-spawn sh stap-xul.sh 2>&1
-expect {
-    -timeout 10000
-    -re {FAIL: [a-z_ ]+} { regexp " .*$" $expect_out(0,string) s; 
-	fail "$s"; exp_continue }
-    -re {PASS: [a-z_ ]+} { regexp " .*$" $expect_out(0,string) s; 
-	pass "$s"; exp_continue }
-    -re {UNSUPPORTED: [a-zA-Z_/: ]+} { regexp " .*$" $expect_out(0,string) s; 
-	verbose -log "$s"
-	unsupported "$s"; exp_continue }
-    timeout { fail "$test (timeout)" }
-    eof { }
-}
-
-if { $verbose == 0 } {
-catch {exec rm -rf $testsuite/stap-xul.stp xulrunner-$xulrelease-source.tar \
-	   $testsuite/stap-xul-markers.log $testsuite/stap-xul.sh }
-catch {exec rm -rf xul}
-}