initial

1 files changed, 17 insertions, 0 deletions

diff --git a/t/002_all_pm.t b/t/002_all_pm.t
new file mode 100644
index 00000000..03a4688b
--- /dev/null
+++ b/t/002_all_pm.t
@@ -0,0 +1,17 @@
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+use File::Find qw(find);
+
+my @files;
+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';