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

(-)a/t/00-check-atomic-updates.t (-12 / +15 lines)
Lines 19-37 use Modern::Perl; Link Here
19
use Test::More;
19
use Test::More;
20
use File::Find;
20
use File::Find;
21
21
22
my $dir = ('installer/data/mysql/atomicupdate');
22
SKIP: {
23
my @files;
23
    skip "Building custom packages", 1, if $ENV{'CUSTOM_PACKAGE'};
24
24
25
find( \&wanted, $dir );
25
    my $dir = ('installer/data/mysql/atomicupdate');
26
    my @files;
26
27
27
sub wanted {
28
    find( \&wanted, $dir );
28
    push @files, $_;
29
    return;
30
}
31
29
32
foreach my $f (@files) {
30
    sub wanted {
33
    next if $f eq 'skeleton.pl';
31
        push @files, $_;
34
    unlike( $f, qr/.*pl$/, "check for unhandled atomic updates: $f" );
32
        return;
35
}
33
    }
34
35
    foreach my $f (@files) {
36
        next if $f eq 'skeleton.pl';
37
        unlike( $f, qr/.*pl$/, "check for unhandled atomic updates: $f" );
38
    }
39
};
36
40
37
done_testing();
41
done_testing();
38
- 

Return to bug 31479