From: Shawn M Moore <code@sartak.org>
Date: Fri, 15 Jun 2012 18:27:25 +0000 (-0500)
Subject: We no want to longer support metaclasses managing exceptions in this way
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=19ddb045f599ea1d3feb09647dcb27e5ba6159e9;p=gitmo%2FMoose.git

We no want to longer support metaclasses managing exceptions in this way
---

diff --git a/t/metaclasses/custom_error_class.t b/t/metaclasses/custom_error_class.t
deleted file mode 100644
index d05e1e3..0000000
--- a/t/metaclasses/custom_error_class.t
+++ /dev/null
@@ -1,130 +0,0 @@
-use strict;
-use warnings;
-
-use Test::More;
-
-use Test::Requires {
-    'Test::Output' => '0.01',
-};
-
-{
-    package My::Exception;
-
-    use Moose;
-
-    has message => (
-        is       => 'ro',
-        isa      => 'Str',
-        required => 1,
-    );
-
-    has [qw( line file package )] => (
-        is       => 'ro',
-        required => 1,
-    );
-
-    sub throw {
-        my ($self) = @_;
-        die $self;
-    }
-}
-
-{
-    package My::Error;
-
-    use base qw( Moose::Error::Default );
-
-    sub new {
-        my ( $self, @args ) = @_;
-
-        $self->create_error_exception(@args)->throw;
-    }
-
-    sub create_error_exception {
-        my ( $self, %params ) = @_;
-
-        my $exception = My::Exception->new(
-            message => $params{message},
-            line    => $params{line},
-            file    => $params{file},
-            package => $params{pack},
-        );
-
-        return $exception;
-    }
-}
-
-{
-    package My::Class;
-
-    use Moose;
-
-    __PACKAGE__->meta->error_class("My::Error");
-
-    has 'test1' => (
-        is       => 'rw',
-        required => 1,
-    );
-
-    ::stderr_is(
-        sub { __PACKAGE__->meta->make_immutable },
-        q{},
-        'no warnings when calling make_immutable with a custom error class'
-    );
-}
-
-{
-    package My::ClassMutable;
-
-    use Moose;
-
-    __PACKAGE__->meta->error_class("My::Error");
-
-    has 'test1' => (
-        is       => 'rw',
-        required => 1,
-    );
-}
-
-{
-    eval {
-        package My::Test;
-# line 42
-        My::Class->new;
-    };
-    my $error = $@;
-
-    isa_ok(
-        $error, 'My::Exception',
-        'got exception object (immutable class)'
-    ) or diag $error;
-    is(
-        $error->message, 'Attribute (test1) is required',
-        'got the right message (immutable class)'
-    );
-    is(
-        $error->package, 'My::Test',
-        'got the right package (immutable class)'
-    );
-    is( $error->line, 42, 'got the right line (immutable class)' );
-}
-
-{
-    eval {
-        package My::TestMutable;
-# line 42
-        My::ClassMutable->new;
-    };
-    my $error = $@;
-
-    isa_ok(
-        $error, 'My::Exception',
-        'got exception object (mutable class)'
-    ) or diag $error;
-    is(
-        $error->message, 'Attribute (test1) is required',
-        'got the right message (mutable class)'
-    );
-}
-
-done_testing;