ヤミRoot VoidGate

Viewing: does.t

use Moo::_strictures;
use Test::More;

BEGIN {
  package TestParent;
  use Moo;
}

BEGIN {
  package TestClass;
  use Moo;
  extends 'TestParent';

  has attr1 => (is => 'ro');
}

BEGIN {
  ok !TestClass->does('TestRole'),
    "->does returns false for arbitrary role";
  ok !$INC{'Moo/Role.pm'},
    "Moo::Role not loaded by does";
}

BEGIN {
  package TestRole;
  use Moo::Role;

  has attr2 => (is => 'ro');
}

BEGIN {
  package TestClass;
  with 'TestRole';
}

BEGIN {
  ok +TestClass->does('TestRole'),
    "->does returns true for composed role";

  ok +TestClass->DOES('TestRole'),
    "->DOES returns true for composed role";

  ok +TestClass->DOES('TestParent'),
    "->DOES returns true for parent class";
}

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