Change, Fix, Improve

[gitmo/Mouse.git] / t / 019-handles.t

diff --git a/t/019-handles.t b/t/019-handles.t
index 03797d6..47abf58 100644 (file)
--- a/t/019-handles.t
+++ b/t/019-handles.t
@@ -1,7 +1,8 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 24;
+use Test::More tests => 26;
+use Test::Exception;
 
 do {
     package Person;
@@ -117,3 +118,13 @@ is_deeply(
     "correct handles layout for 'person'",
 );
 
+throws_ok{
+    $object->person(undef);
+    $object->person_name();
+} qr/Cannot delegate person_name to name because the value of person is not defined/;
+
+throws_ok{
+    $object->person([]);
+    $object->person_age();
+} qr/Cannot delegate person_age to age because the value of person is not an object/;
+