qpdf/qpdf/qtest/weak-cryptography.test

#!/usr/bin/env perl
require 5.008;
use warnings;
use strict;

unshift(@INC, '.');
require qpdf_test_helpers;

chdir("qpdf") or die "chdir testdir failed: $!\n";

require TestDriver;

cleanup();

my $td = new TestDriver('weak-cryptography-cryptography');

my $n_tests = 4;

$td->runtest("256-bit: no warning",
             {$td->COMMAND => 'qpdf --encrypt "" "" 256 -- minimal.pdf a.pdf'},
             {$td->STRING => "", $td->EXIT_STATUS => 0},
             $td->NORMALIZE_NEWLINES);
$td->runtest("128-bit with AES: no warning",
             {$td->COMMAND => 'qpdf --encrypt "" "" 128 --use-aes=y --' .
                  ' minimal.pdf a.pdf'},
             {$td->STRING => "", $td->EXIT_STATUS => 0},
             $td->NORMALIZE_NEWLINES);
$td->runtest("128-bit without AES: error",
             {$td->COMMAND => 'qpdf --encrypt "" "" 128 -- minimal.pdf a.pdf'},
             {$td->REGEXP => "Pass --allow-weak-crypto to enable",
                  $td->EXIT_STATUS => 2},
             $td->NORMALIZE_NEWLINES);
$td->runtest("40-bit: error",
             {$td->COMMAND => 'qpdf --encrypt "" "" 40 -- minimal.pdf a.pdf'},
             {$td->REGEXP => "Pass --allow-weak-crypto to enable",
                  $td->EXIT_STATUS => 2},
             $td->NORMALIZE_NEWLINES);

cleanup();
$td->report($n_tests);