<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository macports-base.

</pre>
<p><a href="https://github.com/macports/macports-base/commit/eaaba18fb6b2e2e6e143bb1fdeeb8d5a30ea582d">https://github.com/macports/macports-base/commit/eaaba18fb6b2e2e6e143bb1fdeeb8d5a30ea582d</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit eaaba18fb6b2e2e6e143bb1fdeeb8d5a30ea582d
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Thu Feb 16 16:18:47 2017 +1100

<span style='display:block; white-space:pre;color:#404040;'>    Don't fail due to stderr output in tests
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    Use -ignorestderr flag with exec so any output to stderr is not
</span><span style='display:block; white-space:pre;color:#404040;'>    interpreted as the command having failed.
</span>---
 src/macports1.0/tests/macports.test             | 12 ++++++------
 src/pextlib1.0/tests/fs-traverse.tcl            |  4 ++--
 src/port1.0/tests/portclean.test                |  2 +-
 src/port1.0/tests/portutil.test                 |  2 +-
 src/registry2.0/tests/depends.tcl               |  2 +-
 src/registry2.0/tests/entry.tcl                 |  2 +-
 tests/test.tcl.in                               |  4 ++--
 tests/test/case-insensitive-deactivate/test.tcl |  4 ++--
 tests/test/envvariables/test.tcl                |  2 +-
 tests/test/library.tcl.in                       | 22 +++++++++++-----------
 tests/test/statefile-version1-outdated/test.tcl |  2 +-
 tests/test/statefile-version2/test.tcl          |  2 +-
 tests/test/svn-and-patchsites/test.tcl          |  2 +-
 tests/test/trace/test.tcl.in                    |  8 ++++----
 tests/test/universal/test.tcl                   |  6 +++---
 15 files changed, 38 insertions(+), 38 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/macports1.0/tests/macports.test b/src/macports1.0/tests/macports.test
</span><span style='display:block; white-space:pre;color:#808080;'>index cec32a1..2db75c1 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/macports1.0/tests/macports.test
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/macports1.0/tests/macports.test
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -724,10 +724,10 @@ test GetVCSUpdateCmd-svn {
</span>     hasSvn
 } -setup {
     set repo [makeDirectory macports-test-svn-repo $tempdir]
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    exec $svnadmin create $repo
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    exec -ignorestderr $svnadmin create $repo
</span>     set wc [makeDirectory macports-test-svn-wc $tempdir]
     # This URL should probably be encoded.
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    exec $svn checkout file://$repo $wc
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    exec -ignorestderr $svn checkout file://$repo $wc
</span> } -body {
     string map [list $svn SVN $wc WC] [macports::GetVCSUpdateCmd $wc]
 } -cleanup {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -739,13 +739,13 @@ test GetVCSUpdateCmd-svn {
</span> testConstraint hasGit [expr {![catch {macports::findBinary git} git]}]
 set git_vcsupdate_fixture {
     set repo [makeDirectory macports-test-git-repo $tempdir]
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    exec $git init $repo
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    exec -ignorestderr $git init $repo
</span>     rename exec _save_exec
 
     proc exec {cmd args} {
         global gitversion
         if {$cmd ne [macports::findBinary git] || [lindex $args 0] ne "--version"} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-            return [_save_exec $cmd {*}$args]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            return [_save_exec -ignorestderr $cmd {*}$args]
</span>         }
         return "git version $gitversion (Apple Git-23)"
     }
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -778,7 +778,7 @@ test GetVCSUpdateCmd-git-noautostash {
</span> 
 testConstraint hasGitSvn [expr {
     ![catch {macports::findBinary git} git] &&
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    [file readable [file join [exec $git --exec-path] git-svn]]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    [file readable [file join [exec -ignorestderr $git --exec-path] git-svn]]
</span> }]
 
 test GetVCSUpdateCmd-gitsvn {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -787,7 +787,7 @@ test GetVCSUpdateCmd-gitsvn {
</span>     hasGitSvn
 } -setup {
     set repo [makeDirectory macports-test-git-svn-repo $tempdir]
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    exec $git svn init http://localhost $repo
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    exec -ignorestderr $git svn init http://localhost $repo
</span> } -body {
     string map [list $git GIT $repo REPO] [macports::GetVCSUpdateCmd $repo]
 } -cleanup {
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/tests/fs-traverse.tcl b/src/pextlib1.0/tests/fs-traverse.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index ce07295..0030c2f 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/tests/fs-traverse.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/tests/fs-traverse.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -163,7 +163,7 @@ proc main {pextlibname} {
</span>         fs-traverse file $root {
             if {[string match "*/a" $file]} {
                 # use /bin/rm because on 10.3 file delete doesn't work on directories properly
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                exec /bin/rm -rf $file
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                exec -ignorestderr /bin/rm -rf $file
</span>                 continue
             }
             lappend output $file
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -211,7 +211,7 @@ proc make_root {} {
</span>             link {
                 # file link doesn't let you link to files that don't exist
                 # so lets farm out to /bin/ln
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                exec /bin/ln -s $link $entry
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                exec -ignorestderr /bin/ln -s $link $entry
</span>             }
             default {
                 return -code error "Unknown file map type: $typelist"
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port1.0/tests/portclean.test b/src/port1.0/tests/portclean.test
</span><span style='display:block; white-space:pre;color:#808080;'>index e96d7e3..1468e27 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port1.0/tests/portclean.test
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port1.0/tests/portclean.test
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -161,7 +161,7 @@ test clean_archive {
</span>     set fd [open $pwd/+CONTENTS w+]
     puts $fd "@portname subport"
     close $fd
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    exec zip $portdbpath/incoming/subport-2_0.0.0.0.zip +CONTENTS
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    exec -ignorestderr zip $portdbpath/incoming/subport-2_0.0.0.0.zip +CONTENTS
</span> 
     portclean::clean_archive
 
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port1.0/tests/portutil.test b/src/port1.0/tests/portutil.test
</span><span style='display:block; white-space:pre;color:#808080;'>index 35d03ac..c12c0a8 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port1.0/tests/portutil.test
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port1.0/tests/portutil.test
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -92,7 +92,7 @@ proc mtree {root spec} {
</span>             link {
                 # file link doesn't let you link to files that don't exist
                 # so lets farm out to /bin/ln
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                exec /bin/ln -sf $link $file
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                exec -ignorestderr /bin/ln -sf $link $file
</span>             }
             default {
                 return -code return "Unknown file map type: $typelist"
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/tests/depends.tcl b/src/registry2.0/tests/depends.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index ca0127f..adf1e7e 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/tests/depends.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/tests/depends.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -6,7 +6,7 @@ proc main {pextlibname} {
</span>     load $pextlibname
 
     # totally lame that file delete won't do it
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        exec rm -f {*}[glob -nocomplain test.db*]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+   exec -ignorestderr rm -f {*}[glob -nocomplain test.db*]
</span> 
     registry::open test.db
 
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/tests/entry.tcl b/src/registry2.0/tests/entry.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 188cd8e..5666fa1 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/tests/entry.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/tests/entry.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -6,7 +6,7 @@ proc main {pextlibname} {
</span>     load $pextlibname
 
     # totally lame that file delete won't do it
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    exec rm -f {*}[glob -nocomplain test.db*]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    exec -ignorestderr rm -f {*}[glob -nocomplain test.db*]
</span> 
     # can't create registry in some brain-dead place or in protected place
     test_throws {registry::open /some/brain/dead/place} registry::cannot-init
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/tests/test.tcl.in b/tests/test.tcl.in
</span><span style='display:block; white-space:pre;color:#808080;'>index 096dbe2..bcf4173 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/tests/test.tcl.in
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/tests/test.tcl.in
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -85,14 +85,14 @@ foreach arg $argv {
</span> if {$test_name ne ""} {
     cd test/$test_name
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set result [exec $tcl test.tcl {*}$arguments 2>@stderr]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set result [exec -ignorestderr $tcl test.tcl {*}$arguments 2>@stderr]
</span>     puts $result
 
 } else {
     foreach test $test_suite {
         cd test/$test
     
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        set result [exec $tcl test.tcl {*}$arguments 2>@stderr]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set result [exec -ignorestderr $tcl test.tcl {*}$arguments 2>@stderr]
</span>         set lastline [lindex [split $result "\n"] end]
 
         if {[lrange [split $lastline "\t"] 1 1] != "Total"} {
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/tests/test/case-insensitive-deactivate/test.tcl b/tests/test/case-insensitive-deactivate/test.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 57c8870..112c308 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/tests/test/case-insensitive-deactivate/test.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/tests/test/case-insensitive-deactivate/test.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -19,7 +19,7 @@ port_index
</span> proc test_exists {} {
     global path testfile testport1
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    exec sed "s/@name@/$testport1/" $path/Portfile.in > Portfile
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    exec -ignorestderr sed "s/@name@/$testport1/" $path/Portfile.in > Portfile
</span>     port_install
 
     if {[file exists $testfile]} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -32,7 +32,7 @@ proc test_exists {} {
</span> proc test_not_exists {} {
     global path testfile testport2
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    exec sed "s/@name@/$testport2/" $path/Portfile.in > Portfile
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    exec -ignorestderr sed "s/@name@/$testport2/" $path/Portfile.in > Portfile
</span>     port_uninstall
 
     if {[file exists $testfile]} {
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/tests/test/envvariables/test.tcl b/tests/test/envvariables/test.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 950cfbe..84d918a 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/tests/test/envvariables/test.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/tests/test/envvariables/test.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -22,7 +22,7 @@ proc envvar_test {} {
</span>     append string "export PORTSRC=${portsrc}; "
     append string "${bindir}/port test"
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    exec sh -c $string > output
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    exec -ignorestderr sh -c $string > output
</span>     set line [get_line $path/$output_file "a"]
     set line2 [get_line $path/$output_file "b"]
     return $line$line2
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/tests/test/library.tcl.in b/tests/test/library.tcl.in
</span><span style='display:block; white-space:pre;color:#808080;'>index 44adb97..21f843e 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/tests/test/library.tcl.in
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/tests/test/library.tcl.in
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -61,9 +61,9 @@ proc port_index {} {
</span>     set path [pwd]
     cd ../..
     # Avoid warning about ports tree being old
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    exec sh -c {touch */*/Portfile}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    exec -ignorestderr sh -c {touch */*/Portfile}
</span> 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    exec ${bindir}/portindex 2>@1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    exec -ignorestderr ${bindir}/portindex 2>@1
</span> 
     file copy ${cpwd}/sources.conf /tmp/macports-tests/opt/local/etc/macports/
     file copy ${cpwd}/PortIndex ${cpwd}/PortIndex.quick /tmp/macports-tests/ports/
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -78,7 +78,7 @@ proc port_clean {pwd} {
</span>     set back [pwd]
     cd $pwd
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    catch {exec env PORTSRC=${portsrc} ${bindir}/port clean 2>@1}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    catch {exec -ignorestderr env PORTSRC=${portsrc} ${bindir}/port clean 2>@1}
</span>     cd $back
 }
 
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -89,7 +89,7 @@ proc port_run {pwd} {
</span>     set back [pwd]
     cd $pwd
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set result [catch {exec env PORTSRC=${portsrc} ${bindir}/port -d -N test >&output} ]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set result [catch {exec -ignorestderr env PORTSRC=${portsrc} ${bindir}/port -d -N test >&output} ]
</span>     cd $back
     return $result
 }
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -101,7 +101,7 @@ proc port_trace {pwd} {
</span>     set back [pwd]
     cd $pwd
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set result [catch {exec env PORTSRC=${portsrc} ${bindir}/port -d -N -t test >&output 2>@1} ]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set result [catch {exec -ignorestderr env PORTSRC=${portsrc} ${bindir}/port -d -N -t test >&output 2>@1} ]
</span>     cd $back
     return $result
 }
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -110,14 +110,14 @@ proc port_trace {pwd} {
</span> proc port_install {} {
     global bindir portsrc
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set result [catch {exec env PORTSRC=${portsrc} ${bindir}/port install > output 2>@1} ]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set result [catch {exec -ignorestderr env PORTSRC=${portsrc} ${bindir}/port install > output 2>@1} ]
</span> }
 
 # Run configure command.
 proc port_config {pwd} {
     global path bindir portsrc
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set result [catch {exec env PORTSRC=${portsrc} ${bindir}/port configure 2>@1} ]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set result [catch {exec -ignorestderr env PORTSRC=${portsrc} ${bindir}/port configure 2>@1} ]
</span> }
 
 # Run destroot command.
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -125,17 +125,17 @@ proc port_destroot {pwd} {
</span>     global path bindir portsrc work_dir output_file
 
     file copy -force ${path}/statefile ${work_dir}/.macports.statefile-unknown-version.state
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if { [exec id -u] == 0 } {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        exec chown macports ${work_dir}/.macports.statefile-unknown-version.state
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if { [exec -ignorestderr id -u] == 0 } {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        exec -ignorestderr chown macports ${work_dir}/.macports.statefile-unknown-version.state
</span>     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set result [catch {exec env PORTSRC=${portsrc} ${bindir}/port destroot >$output_file 2>@1} ]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set result [catch {exec -ignorestderr env PORTSRC=${portsrc} ${bindir}/port destroot >$output_file 2>@1} ]
</span> }
 
 # Uninstalls portfile.
 proc port_uninstall {} {
     global bindir portsrc
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set result [catch {exec env PORTSRC=${portsrc} ${bindir}/port uninstall > output 2>@1} ]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set result [catch {exec -ignorestderr env PORTSRC=${portsrc} ${bindir}/port uninstall > output 2>@1} ]
</span> }
 
 # Returns the line containint a given string
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/tests/test/statefile-version1-outdated/test.tcl b/tests/test/statefile-version1-outdated/test.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index c959dfc..132a0e7 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/tests/test/statefile-version1-outdated/test.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/tests/test/statefile-version1-outdated/test.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -13,7 +13,7 @@ port_index
</span> port_config $path
 file copy -force $path/statefile $work_dir/.macports.statefile-version1-outdated.state
 file attributes $work_dir/.macports.statefile-version1-outdated.state -permissions 0664
<span style='display:block; white-space:pre;background:#ffe0e0;'>-exec touch -t 197001010000.09 $work_dir/.macports.statefile-version1-outdated.state
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+exec -ignorestderr touch -t 197001010000.09 $work_dir/.macports.statefile-version1-outdated.state
</span> port_destroot $path
 port_clean $path
 
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/tests/test/statefile-version2/test.tcl b/tests/test/statefile-version2/test.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 92b64aa..06c5cda 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/tests/test/statefile-version2/test.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/tests/test/statefile-version2/test.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -14,7 +14,7 @@ set_dir
</span> port_index
 port_config $path
 file copy -force $path/statefile $work_dir/.macports.statefile-version2.state
<span style='display:block; white-space:pre;background:#ffe0e0;'>-exec sed -i'' -E "s/@CHECKSUM@/`openssl dgst -sha256 Portfile | \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+exec -ignorestderr sed -i'' -E "s/@CHECKSUM@/`openssl dgst -sha256 Portfile | \
</span>     awk '{print \$\$2}'`/" $work_dir/.macports.statefile-version2.state
 port_destroot $path
 port_clean $path
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/tests/test/svn-and-patchsites/test.tcl b/tests/test/svn-and-patchsites/test.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 4c2f801..7eee8c1 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/tests/test/svn-and-patchsites/test.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/tests/test/svn-and-patchsites/test.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -15,7 +15,7 @@ proc svn-patch {} {
</span>         return "No error found."
     } else {
         set ret "Errors found in output file:\n"
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        append ret [exec cat $path/$output_file]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        append ret [exec -ignorestderr cat $path/$output_file]
</span>         return $ret
     }
 }
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/tests/test/trace/test.tcl.in b/tests/test/trace/test.tcl.in
</span><span style='display:block; white-space:pre;color:#808080;'>index 8502e4f..a618c80 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/tests/test/trace/test.tcl.in
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/tests/test/trace/test.tcl.in
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -29,15 +29,15 @@ proc test_trace {} {
</span>     makeDirectory ../tracetesttmp
     if {[getuid] == 0} {
         file attributes ../tracetesttmp -owner $user
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        exec chown -h $user /tmp/link-trace2
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        exec -ignorestderr chown -h $user /tmp/link-trace2
</span>     }
 
     if {[getuid] == 0} {
         seteuid [name_to_uid $user]
     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    exec touch  ../tracetesttmp/delete-trace
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    exec touch ../tracetesttmp/rename-trace
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    exec mkdir ../tracetesttmp/rmdir-trace
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    exec -ignorestderr touch  ../tracetesttmp/delete-trace
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    exec -ignorestderr touch ../tracetesttmp/rename-trace
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    exec -ignorestderr mkdir ../tracetesttmp/rmdir-trace
</span>     if {[getuid] == 0} {
         seteuid 0
     }
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/tests/test/universal/test.tcl b/tests/test/universal/test.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index b77c99d..23401bf 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/tests/test/universal/test.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/tests/test/universal/test.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -19,17 +19,17 @@ proc univ_test {opt} {
</span>     # Modify Porfile.in for variants.
     if {$opt ne "yes"} {
         # No universal variant
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        exec sed "s/@option@/universal_variant\ no/" $path/Portfile.in > Portfile
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        exec -ignorestderr sed "s/@option@/universal_variant\ no/" $path/Portfile.in > Portfile
</span>     } else {
         # Add universal variant
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        exec sed "s/@option@/default_variants\ +universal/" $path/Portfile.in > Portfile
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        exec -ignorestderr sed "s/@option@/default_variants\ +universal/" $path/Portfile.in > Portfile
</span>     }
     port_clean $path
 
     # Build helping string
     set string "export PORTSRC=${portsrc} ; ${bindir}/port info --variants"
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    exec sh -c $string > output 2>@1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    exec -ignorestderr sh -c $string > output 2>@1
</span>     set var "variants:*"
     set line [get_line $path/$output_file $var]
     return $line
</pre><pre style='margin:0'>

</pre>