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');