File: find_modules.t

package info (click to toggle)
libmodule-corelist-perl 5.20250421-1
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 1,432 kB
  • sloc: perl: 28,623; sh: 9; makefile: 7
file content (24 lines) | stat: -rw-r--r-- 914 bytes parent folder | download | duplicates (8)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!perl -w
use strict;
use Module::CoreList;
use Test::More tests => 6;

BEGIN { require_ok('Module::CoreList'); }

is_deeply([ Module::CoreList->find_modules(qr/warnings/) ],
          [ qw(encoding::warnings warnings warnings::register) ],
          'qr/warnings/');

is_deeply([ Module::CoreList->find_modules(qr/IPC::Open/) ],
          [ qw(IPC::Open2 IPC::Open3) ],
          'qr/IPC::Open/');

is_deeply([ Module::CoreList->find_modules(qr/Module::/, 5.008008) ], [], 'qr/Module::/ at 5.008008');

is_deeply([ Module::CoreList->find_modules(qr/Test::H.*::.*s/, 5.006001, 5.007003) ],
          [ qw(Test::Harness::Assert Test::Harness::Straps) ],
          'qr/Test::H.*::.*s/ at 5.006001 and 5.007003');

is_deeply([ Module::CoreList::find_modules(qr/Module::CoreList/) ],
          [ qw(Module::CoreList Module::CoreList::TieHashDelta Module::CoreList::Utils) ],
          'Module::CoreList functional' );