fix a test (do we want to do this?)

diff --git a/t/050_metaclasses/018_throw_error.t b/t/050_metaclasses/018_throw_error.t
index 8bdf2bc..bb2c025 100644 (file)
--- a/t/050_metaclasses/018_throw_error.t
+++ b/t/050_metaclasses/018_throw_error.t
@@ -22,17 +22,20 @@ use Test::Exception;
 
     has foo => ( is => "ro" );
 
-    package Baz::Error;
-    use Moose;
-
-    has message    => ( isa => "Str",                    is => "ro" );
-    has attr       => ( isa => "Moose::Meta::Attribute", is => "ro" );
-    has method     => ( isa => "Moose::Meta::Method",    is => "ro" );
-    has metaclass  => ( isa => "Moose::Meta::Class",     is => "ro" );
-    has data       => ( is  => "ro" );
-    has line       => ( isa => "Int",                    is => "ro" );
-    has file       => ( isa => "Str",                    is => "ro" );
-    has last_error => ( isa => "Any",                    is => "ro" );
+    BEGIN {
+        package Baz::Error;
+        use Moose;
+        extends 'Moose::Object', 'Moose::Error::Default';
+
+        has message    => ( isa => "Str",                    is => "ro" );
+        has attr       => ( isa => "Moose::Meta::Attribute", is => "ro" );
+        has method     => ( isa => "Moose::Meta::Method",    is => "ro" );
+        has metaclass  => ( isa => "Moose::Meta::Class",     is => "ro" );
+        has data       => ( is  => "ro" );
+        has line       => ( isa => "Int",                    is => "ro" );
+        has file       => ( isa => "Str",                    is => "ro" );
+        has last_error => ( isa => "Any",                    is => "ro" );
+    }
 
     package Baz;
     use metaclass (