This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/die.t: tests for RT #4821
authorDan Collins <dcollinsn@gmail.com>
Mon, 4 Jul 2016 02:43:49 +0000 (22:43 -0400)
committerYves Orton <demerphq@gmail.com>
Fri, 21 Oct 2016 07:09:43 +0000 (09:09 +0200)
t/op/die.t

index 0833095..ef2b85f 100644 (file)
@@ -6,7 +6,7 @@ BEGIN {
     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}');
+}
+