ext/Module-CoreList/t/corelist.t

   1 #!perl -w
   2 use strict;
   3 use Module::CoreList;
   4 use Test::More tests => 13;
   5
   6 BEGIN { require_ok('Module::CoreList'); }
   7
   8 ok($Module::CoreList::version{5.00503},    "5.00503");
   9
  10 ok(!exists $Module::CoreList::version{5.00503}{attributes},
  11    "attributes weren't in 5.00503");
  12
  13 ok($Module::CoreList::version{5.006001},    "5.006001");
  14
  15 ok(exists $Module::CoreList::version{'5.006001'}{attributes},
  16    "attributes were in 5.6.1");
  17
  18 ok($Module::CoreList::version{5.007003},    "5.007003");
  19
  20 ok(exists $Module::CoreList::version{5.007003}{'Attribute::Handlers'},
  21    "Attribute::Handlers were bundled with 5.7.3");
  22
  23 is(Module::CoreList->first_release_by_date('File::Spec'), 5.005,
  24    "File::Spec was first bundled in 5.005");
  25
  26 is(Module::CoreList->first_release('File::Spec'), 5.00405,
  27    "File::Spec was released in perl with lowest version number 5.00405");
  28
  29 is(Module::CoreList->first_release('File::Spec', 0.82), 5.006_001,
  30    "File::Spec reached 0.82 with 5.006_001");
  31
  32 is_deeply([ sort keys %Module::CoreList::released ],
  33           [ sort keys %Module::CoreList::version ],
  34           "have a note of everythings release");
  35
  36 is_deeply( [ map {
  37     exists $Module::CoreList::version{ $_ }{FindExt} ? $_ : ()
  38 } keys %Module::CoreList::version ],
  39            [], "FindExt shouldn't get included rt#6922" );
  40
  41
  42 my $consistent = 1;
  43 for my $family (values %Module::CoreList::families) {
  44     my $first = shift @$family;
  45     my $has = join " ", sort keys %{ $Module::CoreList::versions{ $first } };
  46     for my $member (@$family) {
  47         $has eq join " ", sort keys %{ $Module::CoreList::versions{ $member } }
  48           or do { diag "$first -> $member family"; $consistent = 0 };
  49     }
  50 }
  51 is( $consistent, 1,
  52     "families seem consistent (descendants have same modules as ancestors)" );