From 0c5e0a76e8a18233f494737b80b34a9b7b940550 Mon Sep 17 00:00:00 2001 From: Mason James Date: Thu, 30 Jul 2015 13:51:17 +1200 Subject: [PATCH] Revert "Bug 14602 - Fix failing t/Creators.t test" This reverts commit a6736a7e1660e09aab633e1493c45d39108c3a26. --- t/Creators.t | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/t/Creators.t b/t/Creators.t index 1aecc58914..646aef5996 100755 --- a/t/Creators.t +++ b/t/Creators.t @@ -1,12 +1,11 @@ #!/usr/bin/perl # -# This Koha test module is a stub! +# This Koha test module is a stub! # Add more tests here!!! use strict; use warnings; -use File::Temp qw/ tempfile /; use Test::More tests => 16; BEGIN { @@ -51,12 +50,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"); -my ($fh, $filename) = tempfile(); -open( $fh, '>', $filename ); +open(my $fh, '>', 'test.pdf'); select $fh; ok($pdf_creator->End(), "testing End() works"); close($fh); -ok( -s $filename , "test file $filename created OK" ); -unlink $filename ; +ok( -s 'test.pdf', 'test.pdf created' ); + +unlink 'test.pdf'; -- 2.39.5