#!/usr/bin/env perl

use v5.14;
use warnings
  FATAL    => qw(all),
  NONFATAL => qw(deprecated exec internal malloc newline once portable redefine recursion uninitialized);

use Test::Builder::Tester tests => 1;

use Test::Expander;

my $title    = 'execution';
test_out("ok 1 - $title");
my $expected = 'DIE TEST';
throws_ok(sub { die($expected) }, $expected, $title);
test_test($title);