#!/usr/bin/perl
use perl5i::latest;
use lib 't/lib';
use Test::More;
use Test::perl5i;
use Test::Warn;
warnings_like {
carp("foo");
} qr/^foo/;
throws_ok {
croak("bar");
} qr/^bar/;
eval { croak "wibble" };
like $@, qr/^wibble at @{[ __FILE__ ]} line @{[ __LINE__ - 1 ]}.\n/;
done_testing();