first commit

t/Test/Expander/throws_ok.t

@@ -0,0 +1,16 @@
+#!/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);