Commit | Line | Data |
18b19aec |
1 | #!perl -w |
2 | use strict; |
3 | use Module::CoreList; |
4 | use Test::More tests => 5; |
5 | |
6 | BEGIN { require_ok('Module::CoreList'); } |
7 | |
8 | is_deeply([ Module::CoreList->find_modules(qr/warnings/) ], |
9 | [ qw(encoding::warnings warnings warnings::register) ], |
10 | 'qr/warnings/'); |
11 | |
12 | is_deeply([ Module::CoreList->find_modules(qr/IPC::Open/) ], |
13 | [ qw(IPC::Open2 IPC::Open3) ], |
14 | 'qr/IPC::Open/'); |
15 | |
16 | is_deeply([ Module::CoreList->find_modules(qr/Module::/, 5.008008) ], [], 'qr/Module::/ at 5.008008'); |
17 | |
18 | is_deeply([ Module::CoreList->find_modules(qr/Test::H.*::.*s/, 5.006001, 5.007003) ], |
19 | [ qw(Test::Harness::Assert Test::Harness::Straps) ], |
20 | 'qr/Test::H.*::.*s/ at 5.006001 and 5.007003'); |