bug 2295 [2/4]: moving icondirectories.t from t to xt
[koha.git] / xt / author / icondirectories.t
1 #!/usr/bin/env perl
2
3 =head1 NAME
4
5 icondirectories.t - test to ensure that the two directories of icons
6 in the staff and opac interface are identical.
7
8 =head1 DESCRIPTION
9
10 Tere are two directories of icons for media types, one for the opac
11 and one for the staff interface. They need to be identical. This
12 ensures that they are.
13
14 =cut
15
16 use strict;
17 use warnings;
18
19 use lib qw( .. );
20
21 use Data::Dumper;
22 use File::Find;
23 use Test::More tests => 3;
24
25 my $opac_icon_directory  = 'koha-tmpl/opac-tmpl/prog/itemtypeimg';
26 my $staff_icon_directory = 'koha-tmpl/intranet-tmpl/prog/img/itemtypeimg';
27
28 ok( -d $opac_icon_directory, "opac_icon_directory: $opac_icon_directory exists" );
29 ok( -d $staff_icon_directory, "staff_icon_directory: $staff_icon_directory exists" );
30
31 my $opac_icons; # hashref of filenames to sizes
32 sub opac_wanted {
33     my $file = $File::Find::name;
34     $file =~ s/^$opac_icon_directory//;
35     $opac_icons->{ $file } = -s $_;
36 }
37
38 find( \&opac_wanted, $opac_icon_directory );
39
40 my $staff_icons; # hashref of filenames to sizes
41 sub staff_wanted {
42     my $file = $File::Find::name;
43     $file =~ s/^$staff_icon_directory//;
44     $staff_icons->{ $file } = -s $_;
45 }
46 find( \&staff_wanted, $staff_icon_directory );
47
48 is_deeply( $opac_icons, $staff_icons )
49   or diag( Data::Dumper->Dump( [ $opac_icons ], [ 'opac_icons' ] ) );
50
51
52
53
54
55
56
57
58
59
60
61
62
63