|
use Test::More tests => 4;
|
|
|
|
use strict;
|
|
use constant true => 1;
|
|
|
|
use lib 't';
|
|
|
|
use File::Spec;
|
|
use File::Temp qw(tempdir);
|
|
|
|
use_ok 'SL::Helper::QrBill';
|
|
|
|
my $amount = sprintf "%.2f", 1949.75;
|
|
|
|
my @hrefs = (
|
|
{ iban => 'CH4431999123000889012' },
|
|
{ address_type => 'S',
|
|
company => 'Max Muster & Söhne',
|
|
street => 'Musterstrasse',
|
|
street_no => '123',
|
|
postalcode => '8000',
|
|
city => 'Seldwyla',
|
|
countrycode => 'CH' },
|
|
{ amount => $amount,
|
|
currency => 'CHF' },
|
|
{ address_type => 'K',
|
|
name => 'Simon Muster',
|
|
address_row1 => 'Musterstrasse 1',
|
|
address_row2 => '8000 Seldwyla',
|
|
countrycode => 'CH' },
|
|
{ type => 'QRR',
|
|
ref_number => '210000000003139471430009017' },
|
|
{ unstructured_message => 'Auftrag vom 15.10.2020' },
|
|
);
|
|
|
|
eval { SL::Helper::QrBill->new(@hrefs); };
|
|
ok(!$@, 'new()');
|
|
|
|
my $tmpdir = tempdir(CLEANUP => true);
|
|
my $out_file = File::Spec->catfile($tmpdir, 'out.png');
|
|
|
|
eval { SL::Helper::QrBill->new(@hrefs)->generate($out_file); };
|
|
ok(!$@, 'generate()');
|
|
|
|
ok(-e $out_file && -s _, '$out_file written');
|