X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faccessor-roles.t;h=5fc5e097ea768621b19b39fd1edcc797869c176b;hb=f52ab9760e1e6b869d407e7f0158dd4def096446;hp=eb8b8b652723a01fb872cef6a7c997f60a26c9da;hpb=c69190f1086805f314dbe3bc2926aa940abd4001;p=gitmo%2FMoo.git

diff --git a/t/accessor-roles.t b/t/accessor-roles.t
index eb8b8b6..5fc5e09 100644
--- a/t/accessor-roles.t
+++ b/t/accessor-roles.t
@@ -1,5 +1,6 @@
 use strictures 1;
 use Test::More;
+use Test::Fatal;
 use Sub::Quote;
 
 {
@@ -11,6 +12,10 @@ use Sub::Quote;
 
   package One::P2; use Moo::Role;
   has three => (is => 'ro', default => sub { 'three' });
+  has four => (is => 'ro', lazy => 1, default => sub { 'four' }, predicate => 1);
+
+  package One::P3; use Moo::Role;
+  has '+three' => (is => 'ro', default => sub { 'three' });
 }
 
 my $combined = Moo::Role->create_class_with_roles('One', qw(One::P1 One::P2));
@@ -22,4 +27,29 @@ is $c->one, "one",     "attr default set from class";
 is $c->two, "two",     "attr default set from role";
 is $c->three, "three", "attr default set from role";
 
+{
+	package Deux; use Moo; with 'One::P1';
+	::like(
+		::exception { has two => (is => 'ro', default => sub { 'II' }); },
+		qr{^You cannot overwrite a locally defined method \(two\) with a reader},
+		'overwriting accesssors with roles fails'
+	);
+}
+
+{
+	package Two; use Moo; with 'One::P1';
+	has '+two' => (is => 'ro', default => sub { 'II' });
+}
+
+is(Two->new->two, 'II', "overwriting accessors using +attr works");
+
+my $o = One->new;
+Moo::Role->apply_roles_to_object($o, 'One::P2');
+is($o->three, 'three', 'attr default set from role applied to object');
+ok(!$o->has_four, 'lazy attr default not set on apply');
+
+$o = $combined->new(three => '3');
+Moo::Role->apply_roles_to_object($o, 'One::P3');
+is($o->three, '3', 'attr default not used when already set when role applied to object');
+
 done_testing;