diff options
author | Jay Berkenbilt <ejb@ql.org> | 2019-04-28 01:54:52 +0200 |
---|---|---|
committer | Jay Berkenbilt <ejb@ql.org> | 2019-04-28 02:37:33 +0200 |
commit | 03e27709f32ebc83b1c351da5c03ffb2d18f28da (patch) | |
tree | a2ad9971099228467b369d6187f618b0eff830dd /qpdf/qtest | |
parent | 7ff234a92ff7749c090af05d4d85a97bf62e91c4 (diff) | |
download | qpdf-03e27709f32ebc83b1c351da5c03ffb2d18f28da.tar.zst |
Improve Unicode filename testing
Remove dependency on the behavior of perl for reliable creation of
Unicode file names on Windows.
Diffstat (limited to 'qpdf/qtest')
-rw-r--r-- | qpdf/qtest/qpdf.test | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/qpdf/qtest/qpdf.test b/qpdf/qtest/qpdf.test index ec5eb3c1..e95c22bc 100644 --- a/qpdf/qtest/qpdf.test +++ b/qpdf/qtest/qpdf.test @@ -135,7 +135,7 @@ foreach my $c (@completion_tests) show_ntests(); # ---------- $td->notify("--- Argument Parsing ---"); -$n_tests += 8; +$n_tests += 6; $td->runtest("required argument", {$td->COMMAND => "qpdf --password minimal.pdf"}, @@ -167,10 +167,21 @@ $td->runtest("extra overlay filename", {$td->REGEXP => ".*overlay file already specified.*", $td->EXIT_STATUS => 2}, $td->NORMALIZE_NEWLINES); + +show_ntests(); +# ---------- +$td->notify("--- Unicode Filenames ---"); +$n_tests += 3; + +$td->runtest("create unicode filenames", + {$td->COMMAND => "test_unicode_filenames"}, + {$td->STRING => "created Unicode filenames\n", + $td->EXIT_STATUS => 0}, + $td->NORMALIZE_NEWLINES); + foreach my $d (['auto-ü', 1], ['auto-öπ', 2]) { my ($u, $n) = @$d; - copy('minimal.pdf', "$u.pdf"); $td->runtest("unicode filename $u", {$td->COMMAND => "qpdf --check $u.pdf"}, {$td->FILE => "check-unicode-filename-$n.out", |