@@ -, +, @@ KOHA_CONF --------- -- 00-load.t dies miserably -- fails -- noisy, but all tests successful -- 2 skipped tests --- C4/Auth_with_cas.pm | 1 - t/Creators.t | 19 ++++++++++++------- 2 files changed, 12 insertions(+), 8 deletions(-) --- a/C4/Auth_with_cas.pm +++ a/C4/Auth_with_cas.pm @@ -36,7 +36,6 @@ BEGIN { @ISA = qw(Exporter); @EXPORT = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url); } -my $context = C4::Context->new() or die 'C4::Context->new failed'; my $defaultcasserver; my $casservers; my $yamlauthfile = C4::Context->config('intranetdir') . "/C4/Auth_cas_servers.yaml"; --- a/t/Creators.t +++ a/t/Creators.t @@ -68,12 +68,17 @@ foreach my $font ( @$font_types ) { $y += $pdf_creator->FontSize() * 1.2; } -my ($fh, $filename) = tempfile(); -open( $fh, '>', $filename ); -select $fh; +SKIP: { + skip "Skipping because without proper fonts these two tests fail", + 2 if ! $ENV{KOHA_CONF}; -ok($pdf_creator->End(), "testing End() works"); + my ($fh, $filename) = tempfile(); + open( $fh, '>', $filename ); + select $fh; -close($fh); -ok( -s $filename , "test file $filename created OK" ); -unlink $filename unless $ENV{KEEP_PDF}; + ok($pdf_creator->End(), "testing End() works"); + + close($fh); + ok( -s $filename , "test file $filename created OK" ); + unlink $filename unless $ENV{KEEP_PDF}; +} --