1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
use strict;
use warnings;
use lib 't/lib';
use Test::More;
use CaptureException;
use InlineModule (
'BrokenExtends' => qq{
package BrokenExtends;
use Moo;
extends "This::Class::Does::Not::Exist::${\int rand 50000}";
},
'BrokenExtends::Child' => q{
package BrokenExtends::Child;
use Moo;
extends 'BrokenExtends';
},
);
my $e = exception { require BrokenExtends::Child };
ok $e, "got a crash";
unlike $e, qr/Unknown error/, "it came with a useful error message";
done_testing;
|
