#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 1;
use File::Basename;
use lib File::Basename::dirname(__FILE__)."/../../../lib";
use lib File::Basename::dirname(__FILE__)."/../..";
use UR;
$ENV{UR_STACK_DUMP_ON_DIE}=1;
sub a { b(@_) }
sub b { c(@_) }
sub c { d(@_) }
sub d { die 'expected' }
eval {
&a
};
if ($@) {
note $@;
if ($@ =~ /main::b\(\) called/g) {
fail('got a stack trace in eval');
} else {
pass('looks good');
}
} else {
fail('$@ wasnt set');
}
#&a;