my $expected_error = 1;
my $got_error = 0;

eval {
    # code expected to die with error here
    1;
}
or do {
    $got_error = 1;
};

is $got_error, $expected_error, 'test name';