This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Ensure Filespec wont't show up in Module::Corelist
authorFlorian Ragwitz <rafl@debian.org>
Wed, 18 Aug 2010 21:36:20 +0000 (23:36 +0200)
committerFlorian Ragwitz <rafl@debian.org>
Wed, 18 Aug 2010 21:36:53 +0000 (23:36 +0200)
dist/Module-CoreList/t/corelist.t

index 0b85904..d8e93bf 100644 (file)
@@ -1,7 +1,7 @@
 #!perl -w
 use strict;
 use Module::CoreList;
-use Test::More tests => 24;
+use Test::More tests => 25;
 
 BEGIN { require_ok('Module::CoreList'); }
 
@@ -38,6 +38,9 @@ is(Module::CoreList::first_release('File::Spec'), 5.00405,
 is(Module::CoreList::first_release('File::Spec', 0.82), 5.006_001,
    "File::Spec reached 0.82 with 5.006_001");
 
+ok(!Module::CoreList::first_release('Filespec'),
+   "Filespec was never a core module. It's called VMS::Filespec");
+
 is_deeply([ sort keys %Module::CoreList::released ],
           [ sort keys %Module::CoreList::version ],
           "have a note of everythings release");