Codebase list libcryptx-perl / v0.031 t / 002_all_pm.t
v0.031

Tree @v0.031 (Download .tar.gz)

002_all_pm.t @v0.031 — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
use strict;
use warnings;

use Test::More;

plan skip_all => "File::Find not installed" unless eval { require File::Find };
plan tests => 1;

my @files;
File::Find::find({ wanted=>sub { push @files, $_ if /\.pm$/ }, no_chdir=>1 }, 'lib');

for my $m (sort @files) {
  $m =~ s|[\\/]|::|g;
  $m =~ s|^lib::||;
  $m =~ s|\.pm$||;
  eval "use $m; 1;" or die "ERROR: 'use $m' failed";
}

ok 1, 'all done';