test: Run secnet under strace

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/test/invoke b/test/invoke
index 569e7c39d9633f3d4a5d345655cd2636cbd9a877..6678bb6e1ae460c020b2f86b00f3a19daeda9a8e 100755 (executable)
--- a/test/invoke
+++ b/test/invoke
@@ -102,7 +102,7 @@ proc spawn-secnet {which} {
     set ch [open $cf w]
     puts $ch [mkconf $which]
     close $ch
-    set argl [list ./secnet -dvnc $cf]
+    set argl [list strace -o$tmp/$which.strace ./secnet -dvnc $cf]
     set pid [fork]
     if {!$pid} {
        execl [lindex $argl 0] [lrange $argl 1 end]