r41357 - /trunk/dh-make-perl/t/corelist.t
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Wed Aug 5 06:56:16 UTC 2009
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' );
More information about the Pkg-perl-cvs-commits
mailing list