View | Details | Raw Unified | Return to bug 16622
Collapse All | Expand All

(-)a/C4/Auth_with_cas.pm (-1 lines)
Lines 36-42 BEGIN { Link Here
36
	@ISA    = qw(Exporter);
36
	@ISA    = qw(Exporter);
37
	@EXPORT = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url);
37
	@EXPORT = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url);
38
}
38
}
39
my $context = C4::Context->new() or die 'C4::Context->new failed';
40
my $defaultcasserver;
39
my $defaultcasserver;
41
my $casservers;
40
my $casservers;
42
my $yamlauthfile = C4::Context->config('intranetdir') . "/C4/Auth_cas_servers.yaml";
41
my $yamlauthfile = C4::Context->config('intranetdir') . "/C4/Auth_cas_servers.yaml";
(-)a/t/Creators.t (-8 / +12 lines)
Lines 68-79 foreach my $font ( @$font_types ) { Link Here
68
	$y += $pdf_creator->FontSize() * 1.2;
68
	$y += $pdf_creator->FontSize() * 1.2;
69
}
69
}
70
70
71
my  ($fh, $filename) = tempfile();
71
SKIP: {
72
open(  $fh, '>', $filename );
72
    skip "Skipping because without proper fonts these two tests fail",
73
select $fh;
73
        2 if ! $ENV{KOHA_CONF};
74
74
75
ok($pdf_creator->End(), "testing End() works");
75
    my  ($fh, $filename) = tempfile();
76
    open(  $fh, '>', $filename );
77
    select $fh;
76
78
77
close($fh);
79
    ok($pdf_creator->End(), "testing End() works");
78
ok( -s $filename , "test file $filename created OK" );
80
79
unlink $filename unless $ENV{KEEP_PDF};
81
    close($fh);
82
    ok( -s $filename , "test file $filename created OK" );
83
    unlink $filename unless $ENV{KEEP_PDF};
84
}
80
- 

Return to bug 16622