ヤミRoot VoidGate

Viewing: moo-utils.t

use Moo::_strictures;
use Test::More;
use Test::Fatal;
use Moo::_Utils;
use lib 't/lib';
use InlineModule (
  'Broken::Class' => q{
    use strict;
    use warnings;
    my $f = flub;
  },
);

{
  my @warn;
  local $SIG{__WARN__} = sub { push @warn, @_ };
  is exception {
    ok !_maybe_load_module('Broken::Class'),
      '_maybe_load_module returns false for broken modules';
  }, undef, "_maybe_load_module doesn't die on broken modules";
  like $warn[0], qr/Broken::Class exists but failed to load with error/,
    '_maybe_load_module errors become warnings';
  _maybe_load_module('Broken::Class');
  is scalar @warn, 1,
    '_maybe_load_module only warns once per module';
  ok !_maybe_load_module('Missing::Module::A'.int rand 10**10),
    '_maybe_load_module returns false for missing module';
  is scalar @warn, 1,
    " ... and doesn't warn";
}

{
  {
    package MooTest::Module::WithVariable;
    our $VARIABLE = 219;
  }
  like exception { Moo::_Utils::_load_module('MooTest::Module::WithVariable') },
    qr{^Can't locate MooTest/Module/WithVariable\.pm },
    '_load_module: inline package with only variable not treated as loaded';

  {
    package MooTest::Module::WithSub;
    sub glorp { $_[0] + 1 }
  }
  is exception { Moo::_Utils::_load_module('MooTest::Module::WithSub') }, undef,
    '_load_module: inline package with sub treated as loaded';

  {
    package MooTest::Module::WithConstant;
    use constant GORP => "GLUB";
  }
  is exception { Moo::_Utils::_load_module('MooTest::Module::WithConstant') }, undef,
    '_load_module: inline package with constant treated as loaded';

  {
    package MooTest::Module::WithListConstant;
    use constant GORP => "GLUB", "BOGGLE";
  }
  is exception { Moo::_Utils::_load_module('MooTest::Module::WithListConstant') }, undef,
    '_load_module: inline package with constant treated as loaded';

  {
    package MooTest::Module::WithBEGIN;
    my $var;
    BEGIN { $var = 1 }
  }
  like exception { Moo::_Utils::_load_module('MooTest::Module::WithBEGIN') },
    qr{^Can't locate MooTest/Module/WithBEGIN\.pm },
    '_load_module: inline package with only BEGIN not treated as loaded';

  {
    package MooTest::Module::WithSubPackage;
    package MooTest::Module::WithSubPackage::SubPackage;
    our $grop = 1;
    sub grop { 1 }
  }
  like exception { Moo::_Utils::_load_module('MooTest::Module::WithSubPackage') },
    qr{^Can't locate MooTest/Module/WithSubPackage\.pm },
    '_load_module: inline package with sub package not treated as loaded';

}

done_testing;
User / IP	: 216.73.216.2
Host / Server	: 146.88.233.70 / dev.loger.cm
System	: Linux hybrid1120.fr.ns.planethoster.net 3.10.0-957.21.2.el7.x86_64 #1 SMP Wed Jun 5 14:26:44 UTC 2019 x86_64