kivitendo/t/helper/qrbill.t @ 3f6cbbd5
| 2eff7f81 | Steven Schubiger | 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');
|