6 use Test::More tests => 24;
14 has foo => ( is => "ro" );
18 metaclass => "Moose::Meta::Class",
19 error_class => "Moose::Error::Croak",
23 has foo => ( is => "ro" );
28 has message => ( isa => "Str", is => "ro" );
29 has attr => ( isa => "Moose::Meta::Attribute", is => "ro" );
30 has method => ( isa => "Moose::Meta::Method", is => "ro" );
31 has metaclass => ( isa => "Moose::Meta::Class", is => "ro" );
32 has data => ( is => "ro" );
33 has line => ( isa => "Int", is => "ro" );
34 has file => ( isa => "Str", is => "ro" );
35 has last_error => ( isa => "Any", is => "ro" );
39 metaclass => "Moose::Meta::Class",
40 error_class => "Baz::Error",
44 has foo => ( is => "ro" );
48 sub blah { $line = __LINE__; shift->foo(4) }
55 ok( my $e = $@, "got some error" );
64 my $e = create_error( Foo->new );
65 ok( !ref( $e->{error} ), "error is a string" );
66 like( $e->{error}, qr/line $e->{line}\n.*\n/s, "confess" );
70 my $e = create_error( Bar->new );
71 ok( !ref( $e->{error} ), "error is a string" );
72 like( $e->{error}, qr/line $e->{line}$/s, "croak" );
76 my $e = create_error( my $baz = Baz->new );
77 isa_ok( $e->{error}, "Baz::Error" );
78 unlike( $e->{error}->message, qr/line $e->{line}/s,
79 "no line info, just a message" );
80 isa_ok( $e->{error}->metaclass, "Moose::Meta::Class", "metaclass" );
81 is( $e->{error}->metaclass, Baz->meta, "metaclass value" );
82 isa_ok( $e->{error}->attr, "Moose::Meta::Attribute", "attr" );
83 is( $e->{error}->attr, Baz->meta->get_attribute("foo"), "attr value" );
84 isa_ok( $e->{error}->method, "Moose::Meta::Method", "method" );
85 is( $e->{error}->method, Baz->meta->get_method("foo"), "method value" );
86 is( $e->{error}->line, $e->{line}, "line attr" );
87 is( $e->{error}->file, $e->{file}, "file attr" );
88 is_deeply( $e->{error}->data, [ $baz, 4 ], "captured args" );
89 like( $e->{error}->last_error, qr/Blah/, "last error preserved" );
105 Moose::Util::MetaRole::apply_metaclass_roles(
106 for_class => __PACKAGE__,
107 metaclass_roles => ['Role::Foo'],
112 package Baz::Sub::Sub;
114 metaclass => 'Moose::Meta::Class',
115 error_class => 'Moose::Error::Croak',
119 ::dies_ok { extends 'Baz::Sub' } 'error_class is included in metaclass compatibility checks';
126 metaclass => 'Moose::Meta::Class',
127 error_class => 'Moose::Error::Croak',
132 Moose::Util::MetaRole::apply_metaclass_roles(
133 for_class => __PACKAGE__,
134 metaclass_roles => ['Role::Foo'],
138 ok( Foo::Sub->meta->error_class->isa('Moose::Error::Croak'),
139 q{Foo::Sub's error_class still isa Moose::Error::Croak} );
142 package Foo::Sub::Sub;
145 ::lives_ok { extends 'Foo::Sub' } 'error_class differs by role so incompat is handled';
147 Moose::Util::MetaRole::apply_metaclass_roles(
148 for_class => __PACKAGE__,
149 error_class_roles => ['Role::Foo'],
153 ok( Foo::Sub::Sub->meta->error_class->meta->does_role('Role::Foo'),
154 q{Foo::Sub::Sub's error_class does Role::Foo} );
155 ok( Foo::Sub::Sub->meta->error_class->isa('Moose::Error::Croak'),
156 q{Foo::Sub::Sub's error_class now subclasses Moose::Error::Croak} );