The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 1;

use strict;
use warnings;

use PDF::API2;

# Create a PDF with an empty page
my $empty_page_pdf = PDF::API2->new();
my $page = $empty_page_pdf->page();
$page->mediabox('Letter');

# Save and reopen the PDF
$empty_page_pdf = PDF::API2->open_scalar($empty_page_pdf->stringify());

my $container_pdf = PDF::API2->new();

# This dies through version 2.025.
eval {
    $container_pdf->importPageIntoForm($empty_page_pdf, 1);
};
ok(!$@, q{Calling importPageIntoForm using an empty page doesn't result in a crash});