1use strict;
2use warnings;
3use Test2::Tools::Tiny;
4use Test2::API qw( context_do );
5
6$SIG{__WARN__} = sub {
7    context_do { shift->throw("oops\n"); }
8    $_[0];
9};
10
11my $array_var = [];
12eval { warn "trigger warning" };
13my $err = $@;
14like(
15    $err,
16    qr/oops/,
17    "Got expected error"
18);
19
20done_testing();
21