t/020_attributes/027_accessor_override_method.t

   1 #!/usr/bin/env perl
   2 # This is automatically generated by author/import-moose-test.pl.
   3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
   4 use t::lib::MooseCompat;
   5 use strict;
   6 use warnings;
   7 use Test::More;
   8
   9 use Test::Requires {
  10     'Test::Output' => '0.01', # skip all if not installed
  11 };
  12
  13 {
  14     package Foo;
  15     use Mouse;
  16
  17     sub get_a { }
  18     sub set_b { }
  19     sub has_c { }
  20     sub clear_d { }
  21     sub e { }
  22 }
  23
  24 my $foo_meta = Foo->meta;
  25 stderr_like(sub { $foo_meta->add_attribute(a => (reader => 'get_a')) },
  26             qr/^You are overwriting a locally defined method \(get_a\) with an accessor/, 'reader overriding gives proper warning');
  27 stderr_like(sub { $foo_meta->add_attribute(b => (writer => 'set_b')) },
  28             qr/^You are overwriting a locally defined method \(set_b\) with an accessor/, 'writer overriding gives proper warning');
  29 stderr_like(sub { $foo_meta->add_attribute(c => (predicate => 'has_c')) },
  30             qr/^You are overwriting a locally defined method \(has_c\) with an accessor/, 'predicate overriding gives proper warning');
  31 stderr_like(sub { $foo_meta->add_attribute(d => (clearer => 'clear_d')) },
  32             qr/^You are overwriting a locally defined method \(clear_d\) with an accessor/, 'clearer overriding gives proper warning');
  33 stderr_like(sub { $foo_meta->add_attribute(e => (is => 'rw')) },
  34             qr/^You are overwriting a locally defined method \(e\) with an accessor/, 'accessor overriding gives proper warning');
  35
  36 stderr_like(sub { $foo_meta->add_attribute(has => (is => 'rw')) },
  37             qr/^You are overwriting a locally defined function \(has\) with an accessor/, 'function overriding gives proper warning');
  38
  39 done_testing;