The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

BINGOS / Module-CoreList-5.20250321 / t / corelist.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123

              
#!perl -w
use strict;
use Module::CoreList;
use Test::More tests => 34;
BEGIN { require_ok('Module::CoreList'); }
ok($Module::CoreList::version{5.00503},    "5.00503");
ok(!exists $Module::CoreList::version{5.00503}{attributes},
   "attributes weren't in 5.00503");
ok($Module::CoreList::version{5.006001},    "5.006001");
ok(exists $Module::CoreList::version{'5.006001'}{attributes},
   "attributes were in 5.6.1");
ok($Module::CoreList::version{5.007003},    "5.007003");
ok(exists $Module::CoreList::version{5.007003}{'Attribute::Handlers'},
   "Attribute::Handlers were bundled with 5.7.3");
is(Module::CoreList->first_release_by_date('File::Spec'), 5.005,
   "File::Spec was first bundled in 5.005");
is(Module::CoreList->first_release('File::Spec'), 5.00405,
   "File::Spec was released in perl with lowest version number 5.00405");
is(Module::CoreList->first_release('File::Spec', 0.82), 5.006_001,
   "File::Spec reached 0.82 with 5.006_001");
is(Module::CoreList::first_release_by_date('File::Spec'), 5.005,
   "File::Spec was first bundled in 5.005");
is(Module::CoreList::first_release('File::Spec'), 5.00405,
   "File::Spec was released in perl with lowest version number 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");
is_deeply( [ map {
    exists $Module::CoreList::version{ $_ }{FindExt} ? $_ : ()
} keys %Module::CoreList::version ],
           [], "FindExt shouldn't get included rt#6922" );
my $consistent = 1;
for my $family (values %Module::CoreList::families) {
    my $first = shift @$family;
    my $has = join " ", sort keys %{ $Module::CoreList::versions{ $first } };
    for my $member (@$family) {
        $has eq join " ", sort keys %{ $Module::CoreList::versions{ $member } }
          or do { diag "$first -> $member family"; $consistent = 0 };
    }
}
is( $consistent, 1,
    "families seem consistent (descendants have same modules as ancestors)" );
# Check the function API for consistency
is(Module::CoreList->first_release_by_date('Module::CoreList'), 5.009002,
   "Module::CoreList was first bundled in 5.009002");
is(Module::CoreList->first_release('Module::CoreList'), 5.008009,
   "Module::CoreList was released in perl with lowest version number 5.008009");
is(Module::CoreList->first_release('Module::CoreList', 2.18), 5.010001,
   "Module::CoreList reached 2.18 with 5.010001");
is(Module::CoreList::first_release_by_date('Module::CoreList'), 5.009002,
   "Module::CoreList was first bundled in 5.009002");
is(Module::CoreList::first_release('Module::CoreList'), 5.008009,
   "Module::CoreList was released in perl with lowest version number 5.008009");
is(Module::CoreList::first_release('Module::CoreList', 2.18), 5.010001,
   "Module::CoreList reached 2.18 with 5.010001");
is(Module::CoreList->removed_from('CPANPLUS::inc'), 5.010001, 
   "CPANPLUS::inc was removed from 5.010001");
is(Module::CoreList::removed_from('CPANPLUS::inc'), 5.010001, 
   "CPANPLUS::inc was removed from 5.010001");
{
    my $warnings_count = 0;
    local $SIG{__WARN__} = sub { $warnings_count++ };
    local $^W = 1;
    ok(exists $Module::CoreList::version{5}{strict},
       "strict was in 5");
    ok(!defined $Module::CoreList::version{5}{strict},
       "strict had no version in 5");
    is(Module::CoreList::first_release('strict', 1.01), 5.00405,
       "strict reached 1.01 with 5.00405");
    cmp_ok($warnings_count, '==', 0,
           "an undefined version does not produce warnings rt#123556");
    ok(keys %{$Module::CoreList::version{5.023002}} > 0,
       "have recent enough data to test for deep recursion warnings");
    cmp_ok($warnings_count, '==', 0,
           "no deep recursion warnings for newer perl versions");
}
ok(! defined(Module::CoreList->find_version()),
    "Lacking an argument, Module::CoreList->find_version() returns undef");
my $v = 5.022;
is(ref(Module::CoreList->find_version($v)), 'HASH',
    "With argument, Module::CoreList->find_version() returns hashref");
$v = 5.022000;
is(ref(Module::CoreList->find_version($v)), 'HASH',
    "With argument, Module::CoreList->find_version() returns hashref");