failing test for branching coverage of Moo attributes

pjcj · Sep 3, 2012 · ef3fd42 · ef3fd42
1 parent 0d23ad2
commit ef3fd42
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/tests/moose_cond b/tests/moose_cond
@@ -32,3 +32,18 @@ sub wagh {
     return $self->meep->{marp} || 0;
     # return $self || 0;
 }
+
+package Cover_branch_bug_Moo;
+
+use Moo;
+
+has config  => ( is => 'lazy' );
+has config2 => ( is => 'ro' );
+
+__PACKAGE__->new( config => {}, config2 => {} )->trigger;
+__PACKAGE__->new( config => { debug => 1 }, config2 => { debug => 1 } )->trigger;
+
+sub trigger {
+    1 if $_[0]->config->{debug};
+    1 if $_[0]->config2->{debug};
+}