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

(-)a/t/db_dependent/00-strict.t (-16 / +51 lines)
Lines 1-24 Link Here
1
#!/usr/bin/perl
1
# This script is called by the pre-commit git hook to test modules compile
2
# This script is called by the pre-commit git hook to test modules compile
2
3
3
use strict;
4
use strict;
4
use warnings;
5
use warnings;
6
7
use threads;    # used for parallel
5
use Test::More;
8
use Test::More;
6
use Test::Strict;
9
use Test::Strict;
7
use File::Spec;
10
8
use File::Find;
11
use lib('misc/translator');
9
use lib("misc/translator");
12
use lib('installer');
10
use lib("installer");
13
11
14
my @dirs = (
12
my @dirs = ( 'acqui', 'admin', 'authorities', 'basket',
15
    'acqui',                'admin',
13
    'catalogue', 'cataloguing', 'changelanguage.pl', 'circ', 'debian', 'docs',
16
    'authorities',          'basket',
14
    'edithelp.pl', 'errors', 'fix-perl-path.PL', 'help.pl', 'installer',
17
    'catalogue',            'cataloguing',
15
    'koha_perl_deps.pl', 'kohaversion.pl', 'labels',
18
    'changelanguage.pl',    'circ',
16
    'mainpage.pl', 'Makefile.PL', 'members', 'misc', 'offline_circ', 'opac',
19
    'debian',               'docs',
17
    'patroncards', 'reports', 'reserve', 'resetversion.pl', 'reviews',
20
    'edithelp.pl',          'errors',
18
    'rewrite-config.PL', 'rotating_collections', 'serials', 'services', 'skel',
21
    'fix-perl-path.PL',     'help.pl',
19
    'sms', 'suggestion', 'svc', 'tags', 'tools', 'virtualshelves' );
22
    'installer',            'koha_perl_deps.pl',
23
    'kohaversion.pl',       'labels',
24
    'mainpage.pl',          'Makefile.PL',
25
    'members',              'misc',
26
    'offline_circ',         'opac',
27
    'patroncards',          'reports',
28
    'reserve',              'resetversion.pl',
29
    'reviews',              'rewrite-config.PL',
30
    'rotating_collections', 'serials',
31
    'services',             'skel',
32
    'sms',                  'suggestion',
33
    'svc',                  'tags',
34
    'tools',                'virtualshelves',
35
);
20
36
21
$Test::Strict::TEST_STRICT = 0;
37
$Test::Strict::TEST_STRICT = 0;
22
$Test::Strict::TEST_SKIP = [ 'misc/kohalib.pl', 'sms/sms_listen_windows_start.pl', 'misc/plack/koha.psgi' ];
38
$Test::Strict::TEST_SKIP   = [
39
    'misc/kohalib.pl', 'sms/sms_listen_windows_start.pl',
40
    'misc/plack/koha.psgi'
41
];
42
43
my @dir_tests;
44
foreach my $d (@dirs) {
45
    my $dir_test = threads->create(\&test_dir,$d);
46
    push @dir_tests, $dir_test;
47
}
48
49
while (@dir_tests) {
50
   my $dir_test = shift @dir_tests;
51
   $dir_test->join();
52
}
53
54
done_testing();
23
55
24
all_perl_files_ok(@dirs);
56
sub test_dir {
57
   my ($d) = @_;
58
   all_perl_files_ok($d);
59
   return;
60
}
25
- 

Return to bug 18055