Item9109: Clean up output from shell tar and zip tests

git-svn-id: http://svn.foswiki.org/trunk@7706 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
foswiki · Jun 9, 2010 · b863621 · b863621
1 parent 3a315ae
commit b863621
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/UnitTestContrib/test/unit/ConfigureTests.pm b/UnitTestContrib/test/unit/ConfigureTests.pm
@@ -1368,7 +1368,9 @@ sub test_Util_createArchive_shellZip {
     _makePackage( "$tempdir/$extbkup", $extension );
 
     eval {
-        my $blah = system("zip -v");
+        local (*STDOUT, *STDERR);
+        use File::Spec;
+        my $blah = system('zip -v >' . File::Spec->devnull() . ' 2>&1');
 
         #print "zip returns $? ($blah) \n";
         die $! unless ( $? == 0 );
@@ -1406,7 +1408,9 @@ sub test_Util_createArchive_shellTar {
     _makePackage( "$tempdir/$extbkup", $extension );
 
     eval {
-        my $blah = system("tar --version ");
+        local (*STDOUT, *STDERR);
+        use File::Spec;
+        my $blah = system('tar --version >' . File::Spec->devnull() . ' 2>&1');
 
         #print "tar returns $? ($blah) \n";
         die $! unless ( $? == 0 );