better testing of V4

git-svn-id: svn+q:///qpdf/trunk@826 71b93d88-0707-0410-a8cf-f5a4172ac649

better testing of V4
git-svn-id: svn+q:///qpdf/trunk@826 71b93d88-0707-0410-a8cf-f5a4172ac649
Jay Berkenbilt
1 parent a8715c49
Showing 6 changed files with 830 additions and 5 deletions
TODO
qpdf/qtest/qpdf.test
qpdf/qtest/qpdf/V4-aes-clearmeta.pdf
qpdf/qtest/qpdf/V4-aes.pdf
qpdf/qtest/qpdf/V4-clearmeta.pdf
qpdf/qtest/qpdf/V4.pdf
@@ -43,11 +43,6 @@
    (http://delphi.about.com). .. use at your own risk and for whatever
    the purpose you want .. no support provided. Sample code provided."
- * R = 4, V = 4 encryption.
-
-    - Update C API for R4 encryption
-
-
 2.2
 ===
@@ -1078,6 +1078,23 @@ $td-&gt;runtest(&quot;make sure there is no xref stream&quot;,
 	     {$td->REGEXP => "\\s*0\\s*", $td->EXIT_STATUS => 0},
 	     $td->NORMALIZE_NEWLINES);
+# Look at some actual V4 files
+$n_tests += 8;
+foreach my $d (['--force-V4', 'V4'],
+	       ['--cleartext-metadata', 'V4-clearmeta'],
+	       ['--use-aes=y', 'V4-aes'],
+	       ['--cleartext-metadata --use-aes=y', 'V4-aes-clearmeta'])
+{
+    my ($args, $out) = @$d;
+    $td->runtest("encrypt $args",
+		 {$td->COMMAND => "qpdf --static-aes-iv --static-id" .
+		      " --encrypt '' '' 128 $args -- enc-base.pdf a.pdf"},
+		 {$td->STRING => "", $td->EXIT_STATUS => 0});
+    $td->runtest("check output",
+		 {$td->FILE => "a.pdf"},
+		 {$td->FILE => "$out.pdf"});
+}
+
 show_ntests();
 # ----------
 $td->notify("--- Content Preservation Tests ---");