Move lib from ext/ to dist/
[perl.git] / ext / Module-CoreList / t / find_modules.t
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');