[118602] trunk/base/tests/test/trace/test.tcl

[cal at macports.org]

Revision: 118602
          https://trac.macports.org/changeset/118602
Author:   cal at macports.org
Date:     2014-04-05 12:40:01 -0700 (Sat, 05 Apr 2014)
Log Message:
-----------
base: fix tracemode test in non-root mode

Modified Paths:
--------------
    trunk/base/tests/test/trace/test.tcl

Modified: trunk/base/tests/test/trace/test.tcl
===================================================================
--- trunk/base/tests/test/trace/test.tcl	2014-04-05 19:14:55 UTC (rev 118601)
+++ trunk/base/tests/test/trace/test.tcl	2014-04-05 19:40:01 UTC (rev 118602)
@@ -1,4 +1,8 @@
 package require tcltest 2
+
+# need pextlib to drop privs
+package require Pextlib 1.0
+
 namespace import tcltest::*
 
 source [file dirname $argv0]/../library.tcl
@@ -22,16 +26,27 @@
 
     makeDirectory ../tracetesttmp
     file attributes ../tracetesttmp -owner $user
-    exec sudo -u $user touch  ../tracetesttmp/delete-trace
-    exec sudo -u $user touch ../tracetesttmp/rename-trace
-    exec sudo -u $user mkdir ../tracetesttmp/rmdir-trace
+
     file delete -force /tmp/hello-trace
+    file delete -force /tmp/link-trace2
     file link -symbolic /tmp/link-trace2 /usr/include/unistd.h
-    exec chown -h $user /tmp/link-trace2
+    if {[getuid] == 0} {
+        exec chown -h $user /tmp/link-trace2
+    }
 
+    if {[getuid] == 0} {
+        seteuid [name_to_uid $user]
+    }
+    exec touch  ../tracetesttmp/delete-trace
+    exec touch ../tracetesttmp/rename-trace
+    exec mkdir ../tracetesttmp/rmdir-trace
+    if {[getuid] == 0} {
+        seteuid 0
+    }
+
     port_trace $path
-    
-    #file delete -force /tmp/link-trace2
+
+    file delete -force /tmp/link-trace2
     file delete -force /tmp/hello-trace
 
     set err "error*"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140405/86fc5a52/attachment.html>