t/030_roles/024_role_composition_methods.t
t/030_roles/025_role_composition_override.t
t/030_roles/026_role_composition_method_mods.t
-t/030_roles/030_role_parameterized.t
t/030_roles/031_roles_applied_in_create.t
t/030_roles/032_roles_and_method_cloning.t
t/030_roles/033_role_exclusion_and_alias_bug.t
+++ /dev/null
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More skip_all => 'The feature this test exercises is not yet written';
-use Test::Exception;
-
-
-{
- package Scalar;
- use Moose::Role;
-
- BEGIN { parameter T => { isa => 'Moose::Meta::TypeConstraint' } };
-
- has 'val' => (is => 'ro', isa => T);
-
- requires 'eq';
-
- sub not_eq { ! (shift)->eq(shift) }
-}
-
-is_deeply(
- Scalar->meta->parameters,
- { T => { isa => 'Moose::Meta::TypeConstraint' } },
- '... got the right parameters in the role'
-);
-
-{
- package Integers;
- use Moose;
- use Moose::Util::TypeConstraints;
-
- with Scalar => { T => find_type_constraint('Int') };
-
- sub eq { shift == shift }
-}