1 files changed, 16 insertions, 0 deletions
diff --git a/ext/Thread/die.t b/ext/Thread/die.t
new file mode 100644
index 0000000000..623940579f
--- /dev/null
+++ b/ext/Thread/die.t
@@ -0,0 +1,16 @@
+use Thread 'async';
+
+$t = async {
+    print "here\n";
+    die "success";
+    print "shouldn't get here\n";
+};
+
+sleep 1;
+print "joining...\n";
+eval { @r = $t->join; };
+if ($@) {
+    print "thread died with message: $@";
+} else {
+    print "thread failed to die successfully\n";
+}