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 }
   8
   9 my $str;
  10 $str .= "use Test::Without::Module '$_';" for qw{
  11 Devel::Peek
  12 Devel::Size
  13 IO::Scalar
  14 Lexical::Persistence
  15 LWP::Simple
  16 Module::CoreList
  17 Module::Info
  18 PadWalker
  19 BSD::Resource
  20 Time::HiRes
  21 };
  22 eval $str;
  23 my $res = eval q{use Time::HiRes;1};
  24 ok(!$res, "Test::Without::Module works.");
  25 my $res = eval "use Sepia;1";
  26 ok($res && !$@, "loads without optional prereqs? ($res, $@)");