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

(-)a/xt/yaml_valid.t (-4 / +9 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::YAML::Valid;
21
use Test::YAML::Valid;
22
use Data::Dumper;
22
use File::Find;
23
23
24
use Test::More;
24
use Test::More;
25
25
Lines 30-42 BEGIN { Link Here
30
30
31
my $filebase = "$FindBin::Bin/../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences";
31
my $filebase = "$FindBin::Bin/../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences";
32
32
33
my @files = `ls -1 $filebase`;
33
my @files;
34
sub wanted {
35
    my $name = $File::Find::name;
36
    push @files, $name
37
        if $name =~ /\.pref/;
38
}
39
find({ wanted => \&wanted, no_chdir => 1 }, $filebase);
34
40
35
plan tests => scalar @files;
41
plan tests => scalar @files;
36
42
37
foreach my $f (@files) {
43
foreach my $f (@files) {
38
    chomp $f;
44
    chomp $f;
39
    yaml_file_ok( "$filebase/$f", "$f is YAML" );
45
    yaml_file_ok( $f, "$f is YAML" );
40
}
46
}
41
47
42
48
43
- 

Return to bug 22844