r41357 - /trunk/dh-make-perl/t/corelist.t

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Aug  5 06:56:10 2009
New Revision: 41357

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=41357
Log:
corelist.t: do not iterate over modules in /usr/share|lib/perl/$VER

some of the modules there aren't core, notably CPANPLUS::Config::System

Closes: #536989

Modified:
    trunk/dh-make-perl/t/corelist.t

Modified: trunk/dh-make-perl/t/corelist.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/t/corelist.t?rev=41357&op=diff
==============================================================================
--- trunk/dh-make-perl/t/corelist.t (original)
+++ trunk/dh-make-perl/t/corelist.t Wed Aug  5 06:56:10 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More 'no_plan';
+use Test::More tests => 7;
 
 use DhMakePerl;
 use Config;
@@ -16,18 +16,4 @@
     ok($maker->is_core_module($module), "$module should be a core module");
 }
 
-my @files = File::Find::Rule->file()
-                            ->name('*.pm')
-                            ->in(
-                                "/usr/share/perl/$Config{version}",
-                                "/usr/lib/perl/$Config{version}",
-                            );
-
-for (@files) {
-    s{/usr/(?:share|lib)/perl/$Config{version}/}{}o;
-
-    s{/}{::}g;
-    s/\.pm$//;
-
-    ok( $maker->is_core_module($_), "$_ is core" );
-}
+ok( !$maker->is_core_module('Foo::Bar'), 'Foo::Bar is not a core module' );