Implement strict constructors, which will warn unkown constructor arguments

[gitmo/Mouse.git] / t / 001_mouse / 063-meta-of-metaclasses.t

diff --git a/t/001_mouse/063-meta-of-metaclasses.t b/t/001_mouse/063-meta-of-metaclasses.t
index 8ef6294..6582195 100644 (file)
--- a/t/001_mouse/063-meta-of-metaclasses.t
+++ b/t/001_mouse/063-meta-of-metaclasses.t
@@ -5,10 +5,19 @@ use warnings;
 use Test::More tests => 10;
 
 {
+    package OtherClass;
+    sub method {}
+
     package Class;
     use Mouse;
 
-    has foo => (is => 'rw');
+    # this attribute definition is intended to load submodules
+
+    has foo => (
+        is => 'rw',
+        isa => 'OtherClass',
+        handles => qr/./,
+    );
 
     __PACKAGE__->meta->make_immutable; # ensure metaclasses loaded