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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Tue Nov 25 22:33:34 2008
New Revision: 27269

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27269
Log:
migrate t/corelist.t from get_stdmodules() to is_core_module()

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=27269&op=diff
==============================================================================
--- trunk/dh-make-perl/t/corelist.t (original)
+++ trunk/dh-make-perl/t/corelist.t Tue Nov 25 22:33:34 2008
@@ -9,13 +9,8 @@
 
 require "$Bin/../dh-make-perl";        # Load our code for testing.
 
-my @std_modules = get_stdmodules();
-
 # Check to see if our module list contains some obvious candidates.
 
-my %modules_index;
- at modules_index{@std_modules} = ();
-
 foreach my $module ( qw(Fatal File::Copy FindBin CGI IO::Handle Safe) ) {
-    ok(exists $modules_index{$module}, "$module should be a core module");
+    ok(is_core_module($module), "$module should be a core module");
 }