Bug 14602: Fix failing t/Creators.t test
to test.. 1/ run t/Creators.t test from git repo, get a FAIL 2/ apply patch 3/ repeat step 1, get a PASS mason@xen1:~/g/k/3.16.x$ sudo koha-shell -c 'export PERL5LIB=/home/mason/g/k/3.16.x ; cd /home/mason/g/k/3.16.x ; prove -v t/Creators.t' k316x1 t/Creators.t .. 1..16 ok 1 - use C4::Creators; ok 2 - use C4::Creators::PDF; ok 3 - testing new() works ok 4 - testing pdf file created ok 5 - testing Add() works ok 6 - testing Bookmark() works ok 7 - testing Compress() works ok 8 - testing Font() works ok 9 - testing FontSize() is set to 12 by default ok 10 - testing FontSize() can be set to a different value ok 11 - testing Page() works ok 12 - testing StrWidth() returns correct point width ok 13 - testing Text() writes from a given x-value ok 14 - testing Text() writes to the correct x-value ok 15 - testing End() works ok 16 - test file /tmp/4YjPQDExeS created OK ok All tests successful. Files=1, Tests=16, 1 wallclock secs ( 0.03 usr 0.01 sys + 0.48 cusr 0.05 csys = 0.57 CPU) Result: PASS Signed-off-by: Liz Rea <liz@catalyst.net.nz> Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
parent
bef18fad1e
commit
80abbe1fa3
1 changed files with 6 additions and 5 deletions
|
@ -6,6 +6,7 @@
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
|
use File::Temp qw/ tempfile /;
|
||||||
use Test::More tests => 16;
|
use Test::More tests => 16;
|
||||||
|
|
||||||
BEGIN {
|
BEGIN {
|
||||||
|
@ -50,12 +51,12 @@ is($pdf_creator->StrWidth("test", "H", 12), $expected_width, "testing StrWidth()
|
||||||
is($result[0], '10', "testing Text() writes from a given x-value");
|
is($result[0], '10', "testing Text() writes from a given x-value");
|
||||||
is($result[1], $expected_offset, "testing Text() writes to the correct x-value");
|
is($result[1], $expected_offset, "testing Text() writes to the correct x-value");
|
||||||
|
|
||||||
open(my $fh, '>', 'test.pdf');
|
my ($fh, $filename) = tempfile();
|
||||||
|
open( $fh, '>', $filename );
|
||||||
select $fh;
|
select $fh;
|
||||||
|
|
||||||
ok($pdf_creator->End(), "testing End() works");
|
ok($pdf_creator->End(), "testing End() works");
|
||||||
|
|
||||||
close($fh);
|
close($fh);
|
||||||
ok( -s 'test.pdf', 'test.pdf created' );
|
ok( -s $filename , "test file $filename created OK" );
|
||||||
|
unlink $filename ;
|
||||||
unlink 'test.pdf';
|
|
||||||
|
|
Loading…
Reference in a new issue