From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 24 May 2014 13:00:03 +0000 (+0100)
Subject: server/tests.at: Don't run strace(1) unconditionally.
X-Git-Tag: 1.0.0pre16~8
X-Git-Url: https://git.distorted.org.uk/~mdw/tripe/commitdiff_plain/2539ab9c12fde0155822fe9e6393edb265240dae

server/tests.at: Don't run strace(1) unconditionally.

It slows things down, might not be available, and doesn't work in
Scratchbox (because QEmu doesn't implement ptrace(2)).
---

diff --git a/server/tests.at b/server/tests.at
index 7a64cb44..e3813d76 100644
--- a/server/tests.at
+++ b/server/tests.at
@@ -91,12 +91,19 @@ $3
 ## have the child process run in another.
 ) && :; } | {
   cd $1
-  mkdir -p strace-hack/
   echo TRIPE $2 >&2
-  (cd strace-hack/
-   ulimit -c hard >/dev/null 2>&1
-   strace -f -o ../tripe.trace \
-     TRIPE -d.. $2 >../server-output.full 2>../server-errors)
+  case "${TRIPE_TEST_STRACE-nil}" in
+    nil)
+      TRIPE -d. $2 >server-output.full 2>server-errors
+      ;;
+    *)
+      mkdir -p strace-hack/
+      (cd strace-hack/
+       ulimit -c hard >/dev/null 2>&1
+       strace -f -o ../tripe.trace \
+	 TRIPE -d.. $2 >../server-output.full 2>../server-errors)
+      ;;
+  esac
   stat=$?
   echo $stat >server-status
   if test $stat -ne 0; then