trAvis - MANAGER

Edit File: required_role_accessors.t

#!/usr/bin/perl use strict; use warnings; use Test::More; use Test::Fatal; { package Foo::API; use Moose::Role; requires 'foo'; } { package Foo; use Moose::Role; has foo => (is => 'ro'); with 'Foo::API'; } { package Foo::Class; use Moose; { our $TODO; local $TODO = "role accessors don't satisfy other role requires"; ::is( ::exception { with 'Foo' }, undef, 'requirements are satisfied properly' ); } } { package Bar; use Moose::Role; requires 'baz'; has bar => (is => 'ro'); } { package Baz; use Moose::Role; requires 'bar'; has baz => (is => 'ro'); } { package BarBaz; use Moose; { our $TODO; local $TODO = "role accessors don't satisfy other role requires"; ::is( ::exception { with qw(Bar Baz) }, undef, 'requirements are satisfied properly' ); } } done_testing;