t/03without.t

   1 #!/usr/bin/env perl
   2 use Test::Simple tests => 2;
   3
   4 if (!eval q{ require Test::Without::Module;1 }) {
   5     ok(1, 'Test::Without::Module not installed.');
   6     ok(2, 'Test::Without::Module not installed.');
   7     exit 0;
   8 }
   9
  10 my $str;
  11 $str .= "use Test::Without::Module '$_';" for qw{
  12 Devel::Peek
  13 Devel::Size
  14 IO::Scalar
  15 Lexical::Persistence
  16 LWP::Simple
  17 Module::CoreList
  18 Module::Info
  19 PadWalker
  20 BSD::Resource
  21 Time::HiRes
  22 };
  23 eval $str;
  24 my $res = eval q{use Time::HiRes;1};
  25 ok(!$res, "Test::Without::Module works.");
  26 $res = eval "use Sepia;1";
  27 ok($res && !$@, "loads without optional prereqs? ($res, $@)");