gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 16622: some tests triggered by prove t fail for unset KOHA_CONF 

TEST PLAN
---------
1) unset KOHA_CONF
2) prove t
   -- 00-load.t dies miserably
3) prove t/Creators.t
   -- fails
4) apply patch
5) prove t
   -- noisy, but all tests successful
6) prove -v t/Creators.t
   -- 2 skipped tests
7) run koha qa test tools

Signed-off-by: Marc Véron <veron@veron.ch>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

Signed-off-by: Brendan Gallagher <brendan@bywatersolutions.com>
This commit is contained in:
Mark Tompsett 2016-05-31 12:01:46 -04:00 committed by Brendan Gallagher
parent 92b36fb717
commit 6b3a04da6a
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
C4/Auth_with_cas.pm
View File

@ -37,7 +37,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";

19
t/Creators.t
View File

@ -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};
}