X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=moose-class%2Fexercises%2Ft%2Flib%2FMooseClass%2FTests.pm;fp=moose-class%2Fexercises%2Ft%2Flib%2FMooseClass%2FTests.pm;h=4fdf477ea2219f073e0cab00f65b08727e085442;hb=eb959c492a30b5e56697be88629fc10b6c17477f;hp=b7dd57f977417545ede0c7f6832ee8dd16d72927;hpb=ebd5859900ccfe9e28d1c028b0205a8f1781027e;p=gitmo%2Fmoose-presentations.git

diff --git a/moose-class/exercises/t/lib/MooseClass/Tests.pm b/moose-class/exercises/t/lib/MooseClass/Tests.pm
index b7dd57f..4fdf477 100644
--- a/moose-class/exercises/t/lib/MooseClass/Tests.pm
+++ b/moose-class/exercises/t/lib/MooseClass/Tests.pm
@@ -519,10 +519,18 @@ sub person01 {
     );
 
     $person = eval { Person->new( [ qw( Lisa Smith ) ] ) };
-    ok( !$@, 'Person->new() can accept an array reference as an argument' )
-        or BAIL_OUT(
-        'You must implement Person->BUILDARGS in order to continue these tests'
+
+    if ( my $e = $@ ) {
+        diag(
+            "Calling Person->new() with an array reference threw an error:\n$e"
+        );
+        BAIL_OUT(
+            'You must implement Person->BUILDARGS correctly in order to continue these tests'
         );
+    }
+    else {
+        ok( 1, 'Person->new() can accept an array reference as an argument' );
+    }
 
     is( $person->first_name, 'Lisa', 'set first_name from two-arg arrayref' );
     is( $person->last_name, 'Smith', 'set last_name from two-arg arrayref' );