@@ -9,13 +9,8 @@ use FindBin qw($Bin); 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; -@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"); } t/corelist.t 3c10741af6a1c668822876cc8ae3745b6fd4bd7d Damyan Ivanov dmn@debian.org http://github.com/pfenwick/dh-make-perl/commit/2dec8c409d796d83360f7e2b7a8241e95684454a 2dec8c409d796d83360f7e2b7a8241e95684454a 2008-11-25T14:33:34-08:00 2008-11-25T14:33:34-08:00 migrate t/corelist.t from get_stdmodules() to is_core_module() git-svn-id: file:///svn/pkg-perl/trunk/dh-make-perl@27269 145192d1-2bdb-0310-8ac0-90ff8a91ff6c 645d6f11fe9e670ab1aa85cc013a05c10c944e06 Damyan Ivanov dmn@debian.org