63 lines
1.4 KiB
Perl
63 lines
1.4 KiB
Perl
#!/usr/bin/env perl
|
|
|
|
=head1 NAME
|
|
|
|
icondirectories.t - test to ensure that the two directories of icons
|
|
in the staff and opac interface are identical.
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Tere are two directories of icons for media types, one for the opac
|
|
and one for the staff interface. They need to be identical. This
|
|
ensures that they are.
|
|
|
|
=cut
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use lib qw( .. );
|
|
|
|
use Data::Dumper;
|
|
use File::Find;
|
|
use Test::More tests => 3;
|
|
|
|
my $opac_icon_directory = 'koha-tmpl/opac-tmpl/prog/itemtypeimg';
|
|
my $staff_icon_directory = 'koha-tmpl/intranet-tmpl/prog/img/itemtypeimg';
|
|
|
|
ok( -d $opac_icon_directory, "opac_icon_directory: $opac_icon_directory exists" );
|
|
ok( -d $staff_icon_directory, "staff_icon_directory: $staff_icon_directory exists" );
|
|
|
|
my $opac_icons; # hashref of filenames to sizes
|
|
sub opac_wanted {
|
|
my $file = $File::Find::name;
|
|
$file =~ s/^$opac_icon_directory//;
|
|
$opac_icons->{ $file } = -s $_;
|
|
}
|
|
|
|
find( \&opac_wanted, $opac_icon_directory );
|
|
|
|
my $staff_icons; # hashref of filenames to sizes
|
|
sub staff_wanted {
|
|
my $file = $File::Find::name;
|
|
$file =~ s/^$staff_icon_directory//;
|
|
$staff_icons->{ $file } = -s $_;
|
|
}
|
|
find( \&staff_wanted, $staff_icon_directory );
|
|
|
|
is_deeply( $opac_icons, $staff_icons, "staff and OPAC icon directories have same contents" )
|
|
or diag( Data::Dumper->Dump( [ $opac_icons ], [ 'opac_icons' ] ) );
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|