Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 14602: Fix failing t/Creators.t test

Browse source 
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:
Mason James 2015-07-25 20:51:52 +12:00 committed by Tomas Cohen Arazi
parent bef18fad1e
commit 80abbe1fa3
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
t/Creators.t
View file

@ -6,6 +6,7 @@
use strict;
use warnings;
use File::Temp qw/ tempfile /;
use Test::More tests => 16;
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[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;
ok($pdf_creator->End(), "testing End() works");
close($fh);
ok( -s 'test.pdf', 'test.pdf created' );
unlink 'test.pdf';
ok( -s $filename , "test file $filename created OK" );
unlink $filename ;