summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/00-all-usable.t7
-rw-r--r--t/03-xrefstm-index.t3
-rw-r--r--t/content-deprecated.t14
-rw-r--r--t/deprecations.t151
-rw-r--r--t/font-type1.t15
-rw-r--r--t/info.t13
-rw-r--r--t/page.t30
7 files changed, 130 insertions, 103 deletions
diff --git a/t/00-all-usable.t b/t/00-all-usable.t
index 4f16486..4d7db86 100644
--- a/t/00-all-usable.t
+++ b/t/00-all-usable.t
@@ -11,6 +11,7 @@ my $HBShaperVer = 0.024; # minimum version of HarfBuzz::Shaper
my $LpngVersion = 0.57; # minimum version of Image::PNG::Libpng
my $TextMarkdown = 1.000031; # minimum version of Text::Markdown
my $HTMLTreeBldr = 5.07; # minimum version of HTML::TreeBuilder
+my $PodSimpleXHTML = 3.45; # minimum version of Pod::Simple::XHTML
# Test all of the modules to make sure that a simple "use Module"
# won't result in a crash.
@@ -22,6 +23,11 @@ find(\&add_to_files, 'lib');
sub add_to_files {
return unless -f $_;
return unless $_ =~ /\.pm$/;
+ ### 3 currently disabled
+ return if ($_ =~ m/CCITTFaxDecode\.pm$/);
+ return if ($_ =~ m/Reader\.pm$/);
+ return if ($_ =~ m/Writer\.pm$/);
+ ###
push @files, $File::Find::name;
return;
}
@@ -82,6 +88,7 @@ foreach my $file (@files) {
# HarfBuzz::Shaper is built into Content.pm, doesn't have its own module
# Text::Markdown is built into Content/Text.pm, doesn't have its own module
# HTML::TreeBuilder is built into Content/Text.pm, doesn't have its own module
+ # Pod::Simple::XHTML is built into buildDoc.pl, doesn't have its own module
use_ok($file);
}
diff --git a/t/03-xrefstm-index.t b/t/03-xrefstm-index.t
index 939d42a..f675ced 100644
--- a/t/03-xrefstm-index.t
+++ b/t/03-xrefstm-index.t
@@ -6,8 +6,7 @@ use Test::More tests => 3;
use PDF::Builder;
-my $pdf = PDF::Builder->new(-outver => 1.5);
-$pdf = PDF::Builder->open('t/resources/sample-xrefstm-index.pdf');
+my $pdf = PDF::Builder->open('t/resources/sample-xrefstm-index.pdf', 'outver'=>1.5);
isa_ok($pdf,
'PDF::Builder',
diff --git a/t/content-deprecated.t b/t/content-deprecated.t
index ea91d2f..e84f155 100644
--- a/t/content-deprecated.t
+++ b/t/content-deprecated.t
@@ -277,13 +277,13 @@ $gfx = $pdf->page->gfx();
$gfx->wordspace(2);
like($pdf->to_string, qr/2 Tw/, q{wordspace(2)});
-# Text Leading
-
-$pdf = PDF::Builder->new('compress' => 0);
-$gfx = $pdf->page->gfx();
-
-$gfx->lead(14);
-like($pdf->to_string, qr/14 TL/, q{lead(14) (deprecated)});
+## Text Leading
+#
+#$pdf = PDF::Builder->new('compress' => 0);
+#$gfx = $pdf->page->gfx();
+#
+#$gfx->lead(14);
+#like($pdf->to_string, qr/14 TL/, q{lead(14) (deprecated)});
# distance
diff --git a/t/deprecations.t b/t/deprecations.t
index 83f26b9..60cd3cf 100644
--- a/t/deprecations.t
+++ b/t/deprecations.t
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More tests => 71;
+use Test::More tests => 49;
use PDF::Builder;
my ($pdf, $page, $pdf2, $pdf_string, $media, $sizes_PDF, $sizes_page, @box);
@@ -55,15 +55,14 @@ is(ref($page), 'PDF::Builder::Page',
# PDF::Builder-specific cases to ADD tests for (deprecated but NOT yet removed):
#
-# ===== scheduled to be REMOVED 8/2021
-# elementsof() -> elements()
+## elementsof() -> elements()
$pdf2 = PDF::Builder->new();
$page = $pdf2->page();
# should be US letter [ 0 0 612 792 ] for default media
-$media = $page->find_prop('MediaBox');
-$media = [ map { $_->val() } $media->elementsof() ];
-ok($media->[0]==0 && $media->[1]==0 && $media->[2]==612 && $media->[3]==792,
- q{elementsof still works});
+#$media = $page->find_prop('MediaBox');
+#$media = [ map { $_->val() } $media->elementsof() ];
+#ok($media->[0]==0 && $media->[1]==0 && $media->[2]==612 && $media->[3]==792,
+ #q{elementsof still works});
$media = $page->find_prop('MediaBox');
$media = [ map { $_->val() } $media->elements() ];
ok($media->[0]==0 && $media->[1]==0 && $media->[2]==612 && $media->[3]==792,
@@ -78,9 +77,9 @@ $sizes_PDF = [0, 0, 612, 792];
$sizes_page = [0, 0, 612, 792];
$pdf2 = PDF::Builder->new();
$page = $pdf2->page();
-@box = $page->get_mediabox();
-ok(array_comp($sizes_page, @box),
- q{get_mediabox still works for default page media size});
+#@box = $page->get_mediabox();
+#ok(array_comp($sizes_page, @box),
+# q{get_mediabox still works for default page media size});
@box = $pdf2->mediabox();
ok(array_comp($sizes_PDF, @box),
q{mediabox IS available for default PDF media size});
@@ -94,9 +93,9 @@ $sizes_page = [ 0, 0, 100, 150 ];
$pdf2 = PDF::Builder->new();
$pdf2->mediabox(0, 0, 100, 150);
$page = $pdf2->page();
-@box = $page->get_mediabox();
-ok(array_comp($sizes_page, @box),
- q{get_mediabox still works for PDF-set page media size});
+#@box = $page->get_mediabox();
+#ok(array_comp($sizes_page, @box),
+# q{get_mediabox still works for PDF-set page media size});
@box = $pdf2->mediabox();
ok(array_comp($sizes_PDF, @box),
q{mediabox IS available for PDF-set PDF media size});
@@ -110,9 +109,9 @@ $sizes_page = [ 0, 0, 100, 150 ];
$pdf2 = PDF::Builder->new();
$page = $pdf2->page();
$page->mediabox(0, 0, 100, 150);
-@box = $page->get_mediabox();
-ok(array_comp($sizes_page, @box),
- q{get_mediabox still works for page-set page media size});
+#@box = $page->get_mediabox();
+#ok(array_comp($sizes_page, @box),
+# q{get_mediabox still works for page-set page media size});
@box = $pdf2->mediabox();
ok(array_comp($sizes_PDF, @box),
q{mediabox IS available for default PDF media size});
@@ -127,9 +126,9 @@ $pdf2 = PDF::Builder->new();
$pdf2->mediabox(0, 0, 200, 300);
$page = $pdf2->page();
$page->mediabox(0, 0, 100, 150);
-@box = $page->get_mediabox();
-ok(array_comp($sizes_page, @box),
- q{get_mediabox still works for page-set page media size});
+#@box = $page->get_mediabox();
+#ok(array_comp($sizes_page, @box),
+# q{get_mediabox still works for page-set page media size});
@box = $pdf2->mediabox();
ok(array_comp($sizes_PDF, @box),
q{mediabox IS available for PDF-set PDF media size});
@@ -144,9 +143,9 @@ $sizes_PDF = [0, 0, 612, 792];
$sizes_page = [0, 0, 612, 792];
$pdf2 = PDF::Builder->new();
$page = $pdf2->page();
-@box = $page->get_cropbox();
-ok(array_comp($sizes_page, @box),
- q{get_cropbox still works for default page cropbox size});
+#@box = $page->get_cropbox();
+#ok(array_comp($sizes_page, @box),
+# q{get_cropbox still works for default page cropbox size});
@box = $pdf2->cropbox();
ok(array_comp($sizes_PDF, @box),
q{cropbox IS available for default PDF cropbox size});
@@ -160,9 +159,9 @@ $sizes_page = [ 0, 0, 100, 150 ];
$pdf2 = PDF::Builder->new();
$pdf2->cropbox(0, 0, 100, 150);
$page = $pdf2->page();
-@box = $page->get_cropbox();
-ok(array_comp($sizes_page, @box),
- q{get_cropbox still works for PDF-set page cropbox size});
+#@box = $page->get_cropbox();
+#ok(array_comp($sizes_page, @box),
+# q{get_cropbox still works for PDF-set page cropbox size});
@box = $pdf2->cropbox();
ok(array_comp($sizes_PDF, @box),
q{cropbox IS available for PDF-set PDF cropbox size});
@@ -176,9 +175,9 @@ $sizes_page = [ 0, 0, 100, 150 ];
$pdf2 = PDF::Builder->new();
$page = $pdf2->page();
$page->cropbox(0, 0, 100, 150);
-@box = $page->get_cropbox();
-ok(array_comp($sizes_page, @box),
- q{get_cropbox still works for page-set page cropbox size});
+#@box = $page->get_cropbox();
+#ok(array_comp($sizes_page, @box),
+# q{get_cropbox still works for page-set page cropbox size});
@box = $pdf2->cropbox();
ok(array_comp($sizes_PDF, @box),
q{cropbox IS available for default PDF cropbox size});
@@ -193,9 +192,9 @@ $pdf2 = PDF::Builder->new();
$pdf2->cropbox(0, 0, 200, 300);
$page = $pdf2->page();
$page->cropbox(0, 0, 100, 150);
-@box = $page->get_cropbox();
-ok(array_comp($sizes_page, @box),
- q{get_cropbox still works for page-set page cropbox size});
+#@box = $page->get_cropbox();
+#ok(array_comp($sizes_page, @box),
+# q{get_cropbox still works for page-set page cropbox size});
@box = $pdf2->cropbox();
ok(array_comp($sizes_PDF, @box),
q{cropbox IS available for PDF-set PDF cropbox size});
@@ -210,9 +209,9 @@ $sizes_PDF = [0, 0, 612, 792];
$sizes_page = [0, 0, 612, 792];
$pdf2 = PDF::Builder->new();
$page = $pdf2->page();
-@box = $page->get_bleedbox();
-ok(array_comp($sizes_page, @box),
- q{get_bleedbox still works for default page bleedbox size});
+#@box = $page->get_bleedbox();
+#ok(array_comp($sizes_page, @box),
+# q{get_bleedbox still works for default page bleedbox size});
@box = $pdf2->bleedbox();
ok(array_comp($sizes_PDF, @box),
q{bleedbox IS available for default PDF bleedbox size});
@@ -226,9 +225,9 @@ $sizes_page = [ 0, 0, 100, 150 ];
$pdf2 = PDF::Builder->new();
$pdf2->bleedbox(0, 0, 100, 150);
$page = $pdf2->page();
-@box = $page->get_bleedbox();
-ok(array_comp($sizes_page, @box),
- q{get_bleedbox still works for PDF-set page bleedbox size});
+#@box = $page->get_bleedbox();
+#ok(array_comp($sizes_page, @box),
+# q{get_bleedbox still works for PDF-set page bleedbox size});
@box = $pdf2->bleedbox();
ok(array_comp($sizes_PDF, @box),
q{bleedbox IS available for PDF-set PDF bleedbox size});
@@ -242,9 +241,9 @@ $sizes_page = [ 0, 0, 100, 150 ];
$pdf2 = PDF::Builder->new();
$page = $pdf2->page();
$page->bleedbox(0, 0, 100, 150);
-@box = $page->get_bleedbox();
-ok(array_comp($sizes_page, @box),
- q{get_bleedbox still works for page-set page bleedbox size});
+#@box = $page->get_bleedbox();
+#ok(array_comp($sizes_page, @box),
+# q{get_bleedbox still works for page-set page bleedbox size});
@box = $pdf2->bleedbox();
ok(array_comp($sizes_PDF, @box),
q{bleedbox IS available for default PDF bleedbox size});
@@ -259,9 +258,9 @@ $pdf2 = PDF::Builder->new();
$pdf2->bleedbox(0, 0, 200, 300);
$page = $pdf2->page();
$page->bleedbox(0, 0, 100, 150);
-@box = $page->get_bleedbox();
-ok(array_comp($sizes_page, @box),
- q{get_bleedbox still works for page-set page bleedbox size});
+#@box = $page->get_bleedbox();
+#ok(array_comp($sizes_page, @box),
+# q{get_bleedbox still works for page-set page bleedbox size});
@box = $pdf2->bleedbox();
ok(array_comp($sizes_PDF, @box),
q{bleedbox IS available for PDF-set PDF bleedbox size});
@@ -276,9 +275,9 @@ $sizes_PDF = [0, 0, 612, 792];
$sizes_page = [0, 0, 612, 792];
$pdf2 = PDF::Builder->new();
$page = $pdf2->page();
-@box = $page->get_trimbox();
-ok(array_comp($sizes_page, @box),
- q{get_trimbox still works for default page trimbox size});
+#@box = $page->get_trimbox();
+#ok(array_comp($sizes_page, @box),
+# q{get_trimbox still works for default page trimbox size});
@box = $pdf2->trimbox();
ok(array_comp($sizes_PDF, @box),
q{trimbox IS available for default PDF trimbox size});
@@ -292,9 +291,9 @@ $sizes_page = [ 0, 0, 100, 150 ];
$pdf2 = PDF::Builder->new();
$pdf2->trimbox(0, 0, 100, 150);
$page = $pdf2->page();
-@box = $page->get_trimbox();
-ok(array_comp($sizes_page, @box),
- q{get_trimbox still works for PDF-set page trimbox size});
+#@box = $page->get_trimbox();
+#ok(array_comp($sizes_page, @box),
+# q{get_trimbox still works for PDF-set page trimbox size});
@box = $pdf2->trimbox();
ok(array_comp($sizes_PDF, @box),
q{trimbox IS available for PDF-set PDF trimbox size});
@@ -308,9 +307,9 @@ $sizes_page = [ 0, 0, 100, 150 ];
$pdf2 = PDF::Builder->new();
$page = $pdf2->page();
$page->trimbox(0, 0, 100, 150);
-@box = $page->get_trimbox();
-ok(array_comp($sizes_page, @box),
- q{get_trimbox still works for page-set page trimbox size});
+#@box = $page->get_trimbox();
+#ok(array_comp($sizes_page, @box),
+# q{get_trimbox still works for page-set page trimbox size});
@box = $pdf2->trimbox();
ok(array_comp($sizes_PDF, @box),
q{trimbox IS available for default PDF trimbox size});
@@ -325,9 +324,9 @@ $pdf2 = PDF::Builder->new();
$pdf2->trimbox(0, 0, 200, 300);
$page = $pdf2->page();
$page->trimbox(0, 0, 100, 150);
-@box = $page->get_trimbox();
-ok(array_comp($sizes_page, @box),
- q{get_trimbox still works for page-set page trimbox size});
+#@box = $page->get_trimbox();
+#ok(array_comp($sizes_page, @box),
+# q{get_trimbox still works for page-set page trimbox size});
@box = $pdf2->trimbox();
ok(array_comp($sizes_PDF, @box),
q{trimbox IS available for PDF-set PDF trimbox size});
@@ -342,9 +341,9 @@ $sizes_PDF = [0, 0, 612, 792];
$sizes_page = [0, 0, 612, 792];
$pdf2 = PDF::Builder->new();
$page = $pdf2->page();
-@box = $page->get_artbox();
-ok(array_comp($sizes_page, @box),
- q{get_artbox still works for default page artbox size});
+#@box = $page->get_artbox();
+#ok(array_comp($sizes_page, @box),
+# q{get_artbox still works for default page artbox size});
@box = $pdf2->artbox();
ok(array_comp($sizes_PDF, @box),
q{artbox IS available for default PDF artbox size});
@@ -358,9 +357,9 @@ $sizes_page = [ 0, 0, 100, 150 ];
$pdf2 = PDF::Builder->new();
$pdf2->artbox(0, 0, 100, 150);
$page = $pdf2->page();
-@box = $page->get_artbox();
-ok(array_comp($sizes_page, @box),
- q{get_artbox still works for PDF-set page artbox size});
+#@box = $page->get_artbox();
+#ok(array_comp($sizes_page, @box),
+# q{get_artbox still works for PDF-set page artbox size});
@box = $pdf2->artbox();
ok(array_comp($sizes_PDF, @box),
q{artbox IS available for PDF-set PDF artbox size});
@@ -374,9 +373,9 @@ $sizes_page = [ 0, 0, 100, 150 ];
$pdf2 = PDF::Builder->new();
$page = $pdf2->page();
$page->artbox(0, 0, 100, 150);
-@box = $page->get_artbox();
-ok(array_comp($sizes_page, @box),
- q{get_artbox still works for page-set page artbox size});
+#@box = $page->get_artbox();
+#ok(array_comp($sizes_page, @box),
+# q{get_artbox still works for page-set page artbox size});
@box = $pdf2->artbox();
ok(array_comp($sizes_PDF, @box),
q{artbox IS available for default PDF artbox size});
@@ -391,9 +390,9 @@ $pdf2 = PDF::Builder->new();
$pdf2->artbox(0, 0, 200, 300);
$page = $pdf2->page();
$page->artbox(0, 0, 100, 150);
-@box = $page->get_artbox();
-ok(array_comp($sizes_page, @box),
- q{get_artbox still works for page-set page artbox size});
+#@box = $page->get_artbox();
+#ok(array_comp($sizes_page, @box),
+# q{get_artbox still works for page-set page artbox size});
@box = $pdf2->artbox();
ok(array_comp($sizes_PDF, @box),
q{artbox IS available for PDF-set PDF artbox size});
@@ -410,19 +409,19 @@ ok(array_comp($sizes_page, @box),
q{pageLabel defaults to decimal if given invalid input});
}
-#
-# ===== scheduled to be REMOVED 3/2023
-# lead() -> leading()
+##
+## ===== scheduled to be REMOVED 3/2023
+## lead() -> leading()
+#$pdf2 = PDF::Builder->new('compress' => 'none');
+#my $text = $pdf2->page()->text();
+#$text->lead(15);
+#like($pdf2->to_string(), qr/15 TL/, q{lead still works });
$pdf2 = PDF::Builder->new('compress' => 'none');
my $text = $pdf2->page()->text();
-$text->lead(15);
-like($pdf2->to_string(), qr/15 TL/, q{lead still works });
-$pdf2 = PDF::Builder->new('compress' => 'none');
-$text = $pdf2->page()->text();
$text->leading(15);
like($pdf2->to_string(), qr/15 TL/, q{leading replacement for lead IS available});
-#
-# textlead() -> textleading() Lite.pm only, no t test
+##
+## textlead() -> textleading() Lite.pm only, no t test
# if nothing left to check...
#is(ref($pdf), 'PDF::Builder',
diff --git a/t/font-type1.t b/t/font-type1.t
index 1163cdd..3eeddaa 100644
--- a/t/font-type1.t
+++ b/t/font-type1.t
@@ -21,6 +21,8 @@ if ($OSname eq 'MSWin32') {
push @pfm_list, 'C:/Program Files/MikTex 2.9/fonts/type1/urw/bookman/ubkd8a.pfm';
push @pfb_list, 'C:/Program Files (x86)/MikTex 2.9/fonts/type1/urw/bookman/ubkd8a.pfb';
push @pfm_list, 'C:/Program Files (x86)/MikTex 2.9/fonts/type1/urw/bookman/ubkd8a.pfm';
+ push @pfb_list, 'C:/Users/Phil/fonts/T1fonts/URWGothic-Book.t1';
+ push @pfm_list, 'C:/Users/Phil/fonts/T1fonts/URWGothic-Book.afm';
} else {
# Unix/Linux systems assumed. is this a standard location everyone has?
@@ -28,6 +30,8 @@ if ($OSname eq 'MSWin32') {
push @pfm_list, '/usr/share/fonts/type1/gsfonts/a010013l.pfm';
push @pfb_list, '/usr/share/X11/fonts/urw-fonts/a010013l.pfb';
push @pfm_list, '/usr/share/X11/fonts/urw-fonts/a010013l.pfm';
+ push @pfb_list, '/usr/share/fonts/urw-base35/URWGothic-Book.t1';
+ push @pfm_list, '/usr/share/fonts/urw-base35/URWGothic-Book.afm';
}
# This may or may not work on Macs ("darwin" string) and other platforms
@@ -54,8 +58,15 @@ SKIP: {
unless (defined $pfb_file and defined $pfm_file);
my $pdf = PDF::Builder->new();
-# my $font = $pdf->font($pfb_file, 'pfmfile' => $pfm_file); # was psfont()
- my $font = $pdf->psfont($pfb_file, 'pfmfile' => $pfm_file); # was psfont()
+ my $font;
+ # handle both afm and pfm metric files
+ if ($pfm_file =~ m/\.pfm$/i) {
+# $font = $pdf->font($pfb_file, 'pfmfile' => $pfm_file);
+ $font = $pdf->psfont($pfb_file, 'pfmfile' => $pfm_file);
+ } else {
+# $font = $pdf->font($pfb_file, 'afmfile' => $pfm_file);
+ $font = $pdf->psfont($pfb_file, 'afmfile' => $pfm_file);
+ }
# Do something with the font to see if it appears to have opened
# properly.
diff --git a/t/info.t b/t/info.t
index 2c1ca51..5783c79 100644
--- a/t/info.t
+++ b/t/info.t
@@ -8,23 +8,36 @@ use PDF::Builder;
my $pdf = PDF::Builder->new();
+# 1
like($pdf->producer(), qr/PDF::Builder/,
q{Producer is set on PDF creation});
$pdf->producer('Test');
+# 2
is($pdf->producer(), 'Test',
q{Producer can be changed});
+# 3
$pdf->producer(undef);
ok(!$pdf->producer(),
q{Producer can be cleared});
+# 4
$pdf->created('D:20000101000000Z');
like($pdf->to_string(),
qr{/CreationDate \(D:20000101000000Z\)},
q{CreationDate is correctly encoded});
+# 5
+$pdf = PDF::Builder->new(); # not sure why have to get a fresh PDF object...
+ # did some test upstream corrupt it?
+$pdf->modified("D:20230402144932-04'00");
+
+like($pdf->to_string(),
+ qr{/ModDate \(D:20230402144932-04'00\)},
+ q{ModDate is correctly encoded});
+
done_testing();
diff --git a/t/page.t b/t/page.t
index 7798b4d..8a0ba98 100644
--- a/t/page.t
+++ b/t/page.t
@@ -9,38 +9,38 @@ use PDF::Builder;
my $pdf = PDF::Builder->new();
my $page = $pdf->page();
-# Global Boxes (deprecated get_* names)
+# notice that page->*box is used to GET the values just SET
$pdf->mediabox(100, 200);
-my @mediabox = $page->get_mediabox();
+my @mediabox = $page->mediabox();
is($mediabox[0], 0, 'Global Mediabox LLX');
is($mediabox[1], 0, 'Global Mediabox LLY');
is($mediabox[2], 100, 'Global Mediabox URX');
is($mediabox[3], 200, 'Global Mediabox URY');
$pdf->cropbox(200, 300);
-my @cropbox = $page->get_cropbox();
+my @cropbox = $page->cropbox();
is($cropbox[0], 0, 'Global Cropbox LLX');
is($cropbox[1], 0, 'Global Cropbox LLY');
is($cropbox[2], 200, 'Global Cropbox URX');
is($cropbox[3], 300, 'Global Cropbox URY');
$pdf->bleedbox(200, 300);
-my @bleedbox = $page->get_bleedbox();
+my @bleedbox = $page->bleedbox();
is($bleedbox[0], 0, 'Global Bleedbox LLX');
is($bleedbox[1], 0, 'Global Bleedbox LLY');
is($bleedbox[2], 200, 'Global Bleedbox URX');
is($bleedbox[3], 300, 'Global Bleedbox URY');
$pdf->trimbox(200, 300);
-my @trimbox = $page->get_trimbox();
+my @trimbox = $page->trimbox();
is($trimbox[0], 0, 'Global Trimbox LLX');
is($trimbox[1], 0, 'Global Trimbox LLY');
is($trimbox[2], 200, 'Global Trimbox URX');
is($trimbox[3], 300, 'Global Trimbox URY');
$pdf->artbox(200, 300);
-my @artbox = $page->get_artbox();
+my @artbox = $page->artbox();
is($artbox[0], 0, 'Global Artbox LLX');
is($artbox[1], 0, 'Global Artbox LLY');
is($artbox[2], 200, 'Global Artbox URX');
@@ -108,59 +108,57 @@ is($box[1], 36, q{Single-argument trim Y1});
is($box[2], 828, q{Single-argument trim X2});
is($box[3], 1260, q{Single-argument trim Y2});
-# Page-Specific Boxes (deprecated get_* names)
-
$page->mediabox(720, 1440);
-@mediabox = $page->get_mediabox();
+@mediabox = $page->mediabox();
is($mediabox[0], 0, 'Mediabox LLX');
is($mediabox[1], 0, 'Mediabox LLY');
is($mediabox[2], 720, 'Mediabox URX');
is($mediabox[3], 1440, 'Mediabox URY');
$page->mediabox('LEDGER');
-@mediabox = $page->get_mediabox();
+@mediabox = $page->mediabox();
is($mediabox[0], 0, 'Mediabox LLX (ledger)');
is($mediabox[1], 0, 'Mediabox LLY (ledger)');
is($mediabox[2], 1224, 'Mediabox URX (ledger)');
is($mediabox[3], 792, 'Mediabox URY (ledger)');
$page->mediabox('non-existent');
-@mediabox = $page->get_mediabox();
+@mediabox = $page->mediabox();
is($mediabox[0], 0, 'Mediabox LLX (unknown named type)');
is($mediabox[1], 0, 'Mediabox LLY (unknown named type)');
is($mediabox[2], 612, 'Mediabox URX (unknown named type)');
is($mediabox[3], 792, 'Mediabox URY (unknown named type)');
$page->mediabox(1, 2, 3, 4);
-@mediabox = $page->get_mediabox();
+@mediabox = $page->mediabox();
is($mediabox[0], 1, 'Mediabox LLX (offset)');
is($mediabox[1], 2, 'Mediabox LLY (offset)');
is($mediabox[2], 3, 'Mediabox URX (offset)');
is($mediabox[3], 4, 'Mediabox URY (offset)');
$page->cropbox(10, 20);
-@cropbox = $page->get_cropbox();
+@cropbox = $page->cropbox();
is($cropbox[0], 0, 'Cropbox LLX');
is($cropbox[1], 0, 'Cropbox LLY');
is($cropbox[2], 10, 'Cropbox URX');
is($cropbox[3], 20, 'Cropbox URY');
$page->bleedbox(30, 40);
-@bleedbox = $page->get_bleedbox();
+@bleedbox = $page->bleedbox();
is($bleedbox[0], 0, 'Bleedbox LLX');
is($bleedbox[1], 0, 'Bleedbox LLY');
is($bleedbox[2], 30, 'Bleedbox URX');
is($bleedbox[3], 40, 'Bleedbox URY');
$page->trimbox(50, 60);
-@trimbox = $page->get_trimbox();
+@trimbox = $page->trimbox();
is($trimbox[0], 0, 'Trimbox LLX');
is($trimbox[1], 0, 'Trimbox LLY');
is($trimbox[2], 50, 'Trimbox URX');
is($trimbox[3], 60, 'Trimbox URY');
$page->artbox(70, 80);
-@artbox = $page->get_artbox();
+@artbox = $page->artbox();
is($artbox[0], 0, 'Artbox LLX');
is($artbox[1], 0, 'Artbox LLY');
is($artbox[2], 70, 'Artbox URX');
generated by cgit v1.2.3 (git 2.25.1) at 2024-06-01 14:28:06 +0000