[svn:Module-Build] r13571 - Module-Build/trunk/t

[email protected] Fri, 20 Nov 2009 12:01:03 -0800 (PST)
Newsgroups perl.module.build.checkins
Message-ID <[email protected]>
Author: dagolden
Date: Fri Nov 20 12:01:02 2009
New Revision: 13571

Added:
   Module-Build/trunk/t/00-compile.t   (contents, props changed)

Log:
add test to ensure all modules compile

Added: Module-Build/trunk/t/00-compile.t
==============================================================================
--- (empty file)
+++ Module-Build/trunk/t/00-compile.t	Fri Nov 20 12:01:02 2009
@@ -0,0 +1,17 @@
+use strict;
+use warnings;
+use Test::More;
+use File::Find qw/find/;
+use File::Spec;
+
+my @files;
+find( sub { -f && /\.pm$/ && push @files, $File::Find::name }, 'lib' );
+
+plan tests => scalar @files;
+
+for my $f ( sort @files ) {
+  my $mod = join("::",File::Spec->splitdir(File::Spec->abs2rel($f, 'lib')));
+  $mod =~ s{\.pm$}{};
+  require_ok( $mod );
+}
+