svleak.t: Disable crashing test

[perl5.git] / t / op / die.t

diff --git a/t/op/die.t b/t/op/die.t
index c98b8ff..ef2b85f 100644 (file)
--- a/t/op/die.t
+++ b/t/op/die.t
@@ -2,11 +2,11 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
-plan tests => 19;
+plan tests => 20;
 
 eval {
     eval {
@@ -95,3 +95,10 @@ like($@, qr/\.{3}propagated at/, '... and appends a phrase');
     eval { undef $@; die };
     is( $ok, 1, 'no warnings if $@ is undef' );
 }
+
+TODO: {
+    local $TODO = 'RT #4821: die qr{x} does not check termination';
+    my $out = runperl(prog => 'die qr{x}', stderr => 1);
+    like($out, qr/at -e line 1./, 'RT #4821: output from die qr{x}');
+}
+