use Config;
use IPC::Open3 1.0103 qw(open3);
-use Test::More tests => 60;
+use Test::More tests => 61;
sub runperl {
my(%args) = @_;
}
{
+ my $str = Carp::longmess("foo");
+ is(
+ $str,
+ "foo at t/Carp.t line 31.\n",
+ "we don't overshoot the top stack frame",
+ );
+}
+
+{
local $SIG{__WARN__} = sub {
like $_[0], qr/ok (\d+)\n at.+\b(?i:carp\.t) line \d+\.$/, 'ok 2\n';
};