[gnumeric] Tests: honour --verbose in export tests.



commit 645feb2d2eac74d9c06e0494635b117a5068fd12
Author: Morten Welinder <terra gnome org>
Date:   Sat Sep 20 14:40:18 2014 -0400

    Tests: honour --verbose in export tests.

 test/ChangeLog       |    1 +
 test/GnumericTest.pm |   24 ++++++++++++++++++------
 2 files changed, 19 insertions(+), 6 deletions(-)
---
diff --git a/test/ChangeLog b/test/ChangeLog
index 9534a48..d133be9 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -2,6 +2,7 @@
 
        * GnumericTest.pm (normalize_filter): Maintain a catalog of
        standard filters.
+       (test_exporter): Honour --verbose, at least in part.
 
 2014-09-11  Morten Welinder  <terra gnome org>
 
diff --git a/test/GnumericTest.pm b/test/GnumericTest.pm
index c8c9cc8..703f6c2 100644
--- a/test/GnumericTest.pm
+++ b/test/GnumericTest.pm
@@ -345,18 +345,30 @@ sub test_exporter {
 
     my $tmp1 = "$tmp.gnumeric";
     &junkfile ($tmp1) unless $keep;
-    $code = system ("$ssconvert '$file' '$tmp1' 2>&1 | sed -e 's/^/| /'");
-    &system_failure ($ssconvert, $code) if $code;
+    {
+       my $cmd = "$ssconvert '$file' '$tmp1'";
+       print STDERR "# $cmd\n" if $verbose;
+       my $code = system ("$cmd 2>&1 | sed -e 's/^/| /'");
+       &system_failure ($ssconvert, $code) if $code;
+    }
 
     my $tmp2 = "$tmp-new.$ext";
     &junkfile ($tmp2) unless $keep;
-    $code = system ("$ssconvert '$file' '$tmp2' 2>&1 | sed -e 's/^/| /'");
-    &system_failure ($ssconvert, $code) if $code;
+    {
+       my $cmd = "$ssconvert '$file' '$tmp2'";
+       print STDERR "# $cmd\n" if $verbose;
+       my $code = system ("$cmd 2>&1 | sed -e 's/^/| /'");
+       &system_failure ($ssconvert, $code) if $code;
+    }
 
     my $tmp3 = "$tmp-new.gnumeric";
     &junkfile ($tmp3) unless $keep;
-    $code = system ("$ssconvert '$tmp2' '$tmp3' 2>&1 | sed -e 's/^/| /'");
-    &system_failure ($ssconvert, $code) if $code;
+    {
+       my $cmd = "$ssconvert '$tmp2' '$tmp3'";
+       print STDERR "# $cmd\n" if $verbose;
+       my $code = system ("$cmd 2>&1 | sed -e 's/^/| /'");
+       &system_failure ($ssconvert, $code) if $code;
+    }
 
     my $tmp4 = "$tmp.xml";
     &junkfile ($tmp4) unless $keep;


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]