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

(-)a/t/00-load.t (-1 / +18 lines)
Lines 32-35 find({ Link Here
32
        use_ok($m) || BAIL_OUT("***** PROBLEMS LOADING FILE '$m'");
32
        use_ok($m) || BAIL_OUT("***** PROBLEMS LOADING FILE '$m'");
33
    },
33
    },
34
}, $lib);
34
}, $lib);
35
36
$lib = File::Spec->rel2abs('Koha');
37
find(
38
    {
39
        bydepth  => 1,
40
        no_chdir => 1,
41
        wanted   => sub {
42
            my $m = $_;
43
            return unless $m =~ s/[.]pm$//;
44
            $m =~ s{^.*/Koha/}{Koha/};
45
            $m =~ s{/}{::}g;
46
            use_ok($m) || BAIL_OUT("***** PROBLEMS LOADING FILE '$m'");
47
        },
48
    },
49
    $lib
50
);
51
52
35
done_testing();
53
done_testing();
36
- 

Return to bug 929