From 2dfcd85181556c98c8ac63e8caf984e865e5ff9f Mon Sep 17 00:00:00 2001
From: Tobias Leich <email@froggs.de>
Date: Tue, 27 Oct 2015 20:22:38 +0100
Subject: [PATCH] add test for die() + Test.pm

---
 S29-context/die.t | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/S29-context/die.t b/S29-context/die.t
index bba45c3152..e4d30736e0 100644
--- a/S29-context/die.t
+++ b/S29-context/die.t
@@ -2,7 +2,7 @@ use v6;
 use Test;
 use lib 't/spec/packages';
 use Test::Util;
-plan 16;
+plan 17;
 
 # L<S29/Context/=item die>
 
@@ -74,4 +74,13 @@ is_run( 'say "hello"; die "Nos morituri te salutant!\n"',
 # (which is what we want). (Test primarily aimed at PIL2JS)
 is 42-19, 23, "basic sanity";
 
+# RT #125573
+is_run( 'use Test; pass; die "uh-oh"',
+        { status => sub { 0 != $^a },
+          out    => rx/'ok 1 -'/,
+          err    => rx/'uh-oh'/,
+        },
+        'die() in combination with Test.pm exists non-zero-ish' );
+
+
 # vim: ft=perl6