Attachment #32953 for bug #12653

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





=cut

use Modern::Perl;
use warnings;

use lib qw( .. );

use Data::Dumper;
use File::Find;
use Test::More tests => 3;

# hardcoded OPAC & STAFF dirs
my $opac_dir  = 'koha-tmpl/opac-tmpl';

    }
}

1;

Return to bug 12653

Lines 28-41 ensures that they are. Link Here

(-)a/xt/author/icondirectories.t (-4 / +3 lines)
28		28
29	=cut	29	=cut
30		30
31	use strict;	31	use Modern::Perl;
32	use warnings;
33		32
34	use lib qw( .. );	33	use lib qw( .. );
35		34
36	use Data::Dumper;	35	use Data::Dumper;
37	use File::Find;	36	use File::Find;
38	use Test::More tests => 6;	37	use Test::More tests => 3;
39		38
40	# hardcoded OPAC & STAFF dirs	39	# hardcoded OPAC & STAFF dirs
41	my $opac_dir = 'koha-tmpl/opac-tmpl';	40	my $opac_dir = 'koha-tmpl/opac-tmpl';
Lines 92-94 for my $staff_theme ( @staff_themes ) { Link Here
92	}	91	}
93	}	92	}
94		93
95	-	94	1;