t/01compile.t


1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/perl

use strict;
use warnings;
use Test::More tests => 26;

for my $module (grep { !/dudf/ } glob("urpm/*.pm")) {
    $module =~ s,/,::,g;
    $module =~ s,\.pm$,,;
    use_ok $module;
}