[Bps-public-commit] r17523 - in Net-Google-Code/trunk: .

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Jan  2 02:34:22 2009
New Revision: 17523

Modified:
   Net-Google-Code/trunk/   (props changed)
   Net-Google-Code/trunk/t/00.load.t

Log:
 r18481 at sunnavys-mb:  sunnavy | 2009-01-02 14:19:34 +0800
 a better load.t


Modified: Net-Google-Code/trunk/t/00.load.t
==============================================================================
--- Net-Google-Code/trunk/t/00.load.t	(original)
+++ Net-Google-Code/trunk/t/00.load.t	Fri Jan  2 02:34:22 2009
@@ -1,7 +1,17 @@
-use Test::More tests => 1;
+use Test::More;
+use File::Spec::Functions qw/catfile catdir/;
+use File::Basename qw( dirname );
 
-BEGIN {
-use_ok( 'Net::Google::Code' );
-}
+my $manifest = catdir( dirname(__FILE__), '..', 'MANIFEST' );
+plan skip_all => 'MANIFEST does not exist' unless -e $manifest;
+open FH, '<', $manifest;
+
+my @pms = map { s|^lib/||; chomp; $_ } grep { m|^lib/.*pm$| } <FH>;
 
-diag( "Testing Net::Google::Code $Net::Google::Code::VERSION" );
+plan tests => scalar @pms;
+for my $pm (@pms) {
+    $pm =~ s|\.pm$||;
+    $pm =~ s|/|::|g;
+
+    use_ok($pm);
+}