Test case

Certificates.pm

package Util::Certificates;
use WeCARE::Test -app => 'AMG';
use utf8;

use AMG::Certificate;

sub test_cert {
  my $self = shift;

  my $template    = $self->env->path_to( 'share', 'member_cert.pdf' );
  my $boilerplate = $template->slurp( iomode => '<:raw' );

  my $pdf = AMG::Certificate->new({
    content        => $boilerplate,
    teilnehmername => 'Herr Herbert Müller',
  });

  $pdf->finalize_content;

  my $tmp_dir = $self->env->path_to( 't', 'tmp' );
  $tmp_dir->mkpath;

  my $cert_file = $tmp_dir->file('cert.pdf');
  $cert_file->spew( iomode => '>:raw', $pdf->content );

  ok -f $cert_file->stringify, "Created pdf $cert_file";

  system 'xdg-open' => $cert_file;
}

1;