[111304] branches/gsoc13-tests/src/package1.0/tests/portarchivefetch.test

[cal at macports.org]

Revision: 111304
          https://trac.macports.org/changeset/111304
Author:   cal at macports.org
Date:     2013-09-18 13:09:03 -0700 (Wed, 18 Sep 2013)
Log Message:
-----------
portarchivefetch.test: supress stderr output that would make the test fail

Modified Paths:
--------------
    branches/gsoc13-tests/src/package1.0/tests/portarchivefetch.test

Modified: branches/gsoc13-tests/src/package1.0/tests/portarchivefetch.test
===================================================================
--- branches/gsoc13-tests/src/package1.0/tests/portarchivefetch.test	2013-09-18 20:03:02 UTC (rev 111303)
+++ branches/gsoc13-tests/src/package1.0/tests/portarchivefetch.test	2013-09-18 20:09:03 UTC (rev 111304)
@@ -94,7 +94,12 @@
     set workername [ditem_key $mport workername]
     set macportsuser macports
 
+    set oldchannels [array get macports::channels]
+    set macports::channels(msg)    {}
+    set macports::channels(notice) {}
+    set macports::channels(warn)   {}
 } -body {
+
     set archivefetch.pubkeys $pwd
     if {[catch {portarchivefetch::fetchfiles}] != 0} {
         return "FAIL: cannot fetch archive"
@@ -114,11 +119,12 @@
     return "Fetch files successful."
 
 } -cleanup {
+    array set macports::channels $oldchannels
+
     close $target_state_fd
-	file delete -force $target_state_fd
+    file delete -force $target_state_fd
     mportclose $mport
     file delete -force $portdbpath
-
 } -result "Fetch files successful."
 
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130918/a5e9ec54/attachment-0001.html>