From: Graham Knop <haarg@haarg.org>
Date: Sun, 5 May 2013 18:11:10 +0000 (-0400)
Subject: clean up trait test and add check for init_arg => undef
X-Git-Tag: v1.003000~74
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1ca290ff796f2206bf20e0a1f7099c75fef42459;p=gitmo%2FMoo.git

clean up trait test and add check for init_arg => undef
---

diff --git a/xt/moo-does-moose-role.t b/xt/moo-does-moose-role.t
index 1fd7c57..8872971 100644
--- a/xt/moo-does-moose-role.t
+++ b/xt/moo-does-moose-role.t
@@ -239,16 +239,28 @@ is( Plonker->meta->find_attribute_by_name('kk')->documentation,
   use Moose::Role;
 
   has 'extra_attr' => (is => 'ro');
+  has 'extra_attr_noinit' => (is => 'ro', init_arg => undef);
 }
 
 {
+  local $SIG{__WARN__} = sub { fail "warning: $_[0]" };
   package UsingMooseTrait;
   use Moo;
 
-  has one => (is => 'ro', traits => ['MooseAttrTrait'], extra_attr => 'one');
+  has one => (
+    is => 'ro',
+    traits => ['MooseAttrTrait'],
+    extra_attr => 'one',
+    extra_attr_noinit => 'two',
+  );
 }
 
-ok(UsingMooseTrait->meta->find_attribute_by_name('one')->can('extra_attr'), 'trait was properly applied');
-is(UsingMooseTrait->meta->find_attribute_by_name('one')->extra_attr, 'one', 'trait attributes maintain values');
+ok( UsingMooseTrait->meta
+      ->find_attribute_by_name('one')->can('extra_attr'),
+    'trait was properly applied');
+is( UsingMooseTrait->meta->find_attribute_by_name('one')
+      ->extra_attr,
+    'one',
+    'trait attributes maintain values');
 
 done_testing;