Your IP : 216.73.216.74

Current Path : /usr/share/doc/perl-Moose/t/roles/
Upload File :
Current File : //usr/share/doc/perl-Moose/t/roles/overloading_combine_to_class.t

use strict;
use warnings;

use Test::More 0.96;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
use overload ();

use lib 't/lib';

use OverloadingTests;
use Overloading::CombiningClass;

for my $role (
    qw( Overloading::RoleWithOverloads Overloading::RoleWithoutOverloads )) {

    ok(
        Overloading::CombiningClass->DOES($role),
        "Overloading::CombiningClass does $role role"
    );
}

OverloadingTests::test_overloading_for_package($_) for qw(
    Overloading::RoleWithOverloads
    Overloading::CombiningClass
);

OverloadingTests::test_no_overloading_for_package(
    'Overloading::RoleWithoutOverloads');

OverloadingTests::test_overloading_for_package(
    'Overloading::CombiningClass');

done_testing();