t/bugs/attribute_trait_parameters.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4 use Test::Requires {
   5     'Test::Output' => '0.01', # skip all if not installed
   6 };
   7
   8 {
   9     package R;
  10     use Moose::Role;
  11
  12     sub method { }
  13 }
  14
  15 {
  16     package C;
  17     use Moose;
  18
  19     ::stderr_is{
  20         has attr => (
  21             is => 'ro',
  22             traits => [
  23                 R => { ignored => 1 },
  24             ],
  25         );
  26     } q{}, 'no warning with foreign parameterized attribute traits';
  27
  28     ::stderr_is{
  29         has alias_attr => (
  30             is => 'ro',
  31             traits => [
  32                 R => { -alias => { method => 'new_name' } },
  33             ],
  34         );
  35     } q{}, 'no warning with -alias parameterized attribute traits';
  36
  37     ::stderr_is{
  38         has excludes_attr => (
  39             is => 'ro',
  40             traits => [
  41                 R => { -excludes => ['method'] },
  42             ],
  43         );
  44     } q{}, 'no warning with -excludes parameterized attribute traits';
  45 }
  46
  47 done_testing;