add use of BUILDARGS to exercises for section 01

[gitmo/moose-presentations.git] / moose-class / exercises / t / lib / MooseClass / Tests.pm

diff --git a/moose-class/exercises/t/lib/MooseClass/Tests.pm b/moose-class/exercises/t/lib/MooseClass/Tests.pm
index 0ac9921..aba82cf 100644 (file)
--- a/moose-class/exercises/t/lib/MooseClass/Tests.pm
+++ b/moose-class/exercises/t/lib/MooseClass/Tests.pm
@@ -265,6 +265,14 @@ sub person01 {
 
     is( $person->full_name, 'Bilbo Baggins',
         'full_name() is correctly implemented' );
+
+    $person = Person->new( [ qw( Lisa Smith ) ] );
+    is( $person->first_name, 'Lisa', 'set first_name from two-arg arrayref' );
+    is( $person->last_name, 'Smith', 'set last_name from two-arg arrayref' );
+
+    eval { Person->new( sub { 'foo' } ) };
+    like( $@, qr/\QSingle parameters to new() must be a HASH ref/,
+          'Person constructor still rejects bad parameters' );
 }
 
 sub employee01 {