Add tests for progress and verbose changes

Jay Berkenbilt
1 parent d34ab8a9
Showing 3 changed files with 41 additions and 2 deletions
qpdf/qtest/qpdf.test
qpdf/qtest/qpdf/filter-progress.pl
qpdf/qtest/qpdf/verbose-merge.out
@@ -1235,8 +1235,10 @@ my $pages_options = &quot;--pages page-labels-and-outlines.pdf 1,3,5-7,z&quot; .
  
 $td->runtest("merge three files",
              {$td->COMMAND => "qpdf page-labels-and-outlines.pdf a.pdf" .
-                  " $pages_options --static-id"},
-             {$td->STRING => "", $td->EXIT_STATUS => 0});
+                  " $pages_options --static-id --verbose --progress",
+                  $td->FILTER => "perl filter-progress.pl"},
+             {$td->FILE => "verbose-merge.out", $td->EXIT_STATUS => 0},
+             $td->NORMALIZE_NEWLINES);
 # Manually verified about this file: make sure that outline entries
 # that pointed to pages that were preserved still work in the copy,
 # and verify that all pages are as expected.  page-labels-and-outlines
+use strict;
+use warnings;
+
+my $seen = 0;
+while (<>)
+{
+    if (m/write progress: (?:10)?0\%/)
+    {
+        print;
+    }
+    elsif (m/write progress: /)
+    {
+        if (! $seen)
+        {
+            $seen = 1;
+            print "....other write progress....\n";
+        }
+    }
+    else
+    {
+        print;
+    }
+}
+qpdf: processing 20-pages.pdf
+qpdf: processing ./20-pages.pdf
+qpdf: processing minimal.pdf
+qpdf: removing unreferenced pages from primary input
+qpdf: adding pages from page-labels-and-outlines.pdf
+qpdf: adding pages from 20-pages.pdf
+qpdf: adding pages from page-labels-and-outlines.pdf
+qpdf: adding pages from 20-pages.pdf
+qpdf: adding pages from ./20-pages.pdf
+qpdf: adding pages from minimal.pdf
+qpdf: a.pdf: write progress: 0%
+....other write progress....
+qpdf: a.pdf: write progress: 100%
+qpdf: wrote file a.pdf