octoleo/qpdf
2
1
Fork 0
mirror of https://github.com/qpdf/qpdf.git synced 2025-02-02 03:48:24 +00:00
Code Issues Releases Wiki Activity

remove locale assumptions

Browse Source 
git-svn-id: svn+q:///qpdf/trunk@612 71b93d88-0707-0410-a8cf-f5a4172ac649
This commit is contained in:
Jay Berkenbilt 2008-05-05 02:08:54 +00:00
parent fffc461a06
commit c7477e205e
3 changed files with 16 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
TODO
View File

@ -1,8 +1,3 @@
Before next release
===================
* Remove en_US locale tests
General General
======= =======

2
qpdf/fix-qdf
View File

@ -1,6 +1,6 @@
#!/usr/bin/env perl #!/usr/bin/env perl
require 5.008; require 5.008_001;
BEGIN { $^W = 1; } BEGIN { $^W = 1; }
use strict; use strict;

36
qpdf/qtest/qpdf.test
View File

@ -216,7 +216,7 @@ my @goodfiles = ("implicit null", # 1
"lots of compressible objects", # 20 "lots of compressible objects", # 20
); );
$n_tests += (9 * @goodfiles) + 6; $n_tests += (3 * @goodfiles) + 6;
my %goodtest_overrides = ('14' => 3); my %goodtest_overrides = ('14' => 3);
my %goodtest_flags = my %goodtest_flags =
@ -226,17 +226,14 @@ my %goodtest_flags =
for (my $i = 1; $i <= scalar(@goodfiles); ++$i) for (my $i = 1; $i <= scalar(@goodfiles); ++$i)
{ {
my $n = $goodtest_overrides{$i} || 1; my $n = $goodtest_overrides{$i} || 1;
foreach my $lang (qw(C en_US en_US.UTF-8)) $td->runtest("$goodfiles[$i-1]",
{ {$td->COMMAND => "test_driver $n good$i.pdf"},
$td->runtest("$goodfiles[$i-1], ($lang)", {$td->FILE => "good$i.out",
{$td->COMMAND => "test_driver $n good$i.pdf"}, $td->EXIT_STATUS => 0});
{$td->FILE => "good$i.out", my $xflags = $goodtest_flags{$i} || '';
$td->EXIT_STATUS => 0}); check_pdf("create qdf",
my $xflags = $goodtest_flags{$i} || ''; "qpdf --static-id -qdf $xflags good$i.pdf",
check_pdf("create qdf", "good$i.qdf", 0);
"qpdf --static-id -qdf $xflags good$i.pdf",
"good$i.qdf", 0);
}
} }
check_pdf("no normalization", check_pdf("no normalization",
@ -798,17 +795,14 @@ foreach my $file (@files)
show_ntests(); show_ntests();
# ---------- # ----------
$td->notify("--- fix-qdf Tests ---"); $td->notify("--- fix-qdf Tests ---");
$n_tests += 6; $n_tests += 2;
foreach my $lang qw(C en_US en_US.UTF-8) for (my $n = 1; $n <= 2; ++$n)
{ {
for (my $n = 1; $n <= 2; ++$n) $td->runtest("fix-qdf $n",
{ {$td->COMMAND => "fix-qdf fix$n.qdf"},
$td->runtest("fix-qdf $n (LANG=$lang)", {$td->FILE => "fix$n.qdf.out",
{$td->COMMAND => "LANG=$lang fix-qdf fix$n.qdf"}, $td->EXIT_STATUS => 0});
{$td->FILE => "fix$n.qdf.out",
$td->EXIT_STATUS => 0});
}
} }
show_ntests(); show_ntests();