This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[cpan#100183] Add missing "<FH> chunk #" phrase to Carp messages
[perl5.git] / dist / Carp / t / Carp.t
index 9ecdf88..65daed7 100644 (file)
@@ -3,7 +3,7 @@ no warnings "once";
 use Config;
 
 use IPC::Open3 1.0103 qw(open3);
 use Config;
 
 use IPC::Open3 1.0103 qw(open3);
-use Test::More tests => 66;
+use Test::More tests => 67;
 
 sub runperl {
     my(%args) = @_;
 
 sub runperl {
     my(%args) = @_;
@@ -442,6 +442,16 @@ $@ =~ s/\n.*//; # just check first line
 is $@, "heek at ".__FILE__." line ".(__LINE__-2).", <DATA> line 2.\n",
     'last handle line num is mentioned';
 
 is $@, "heek at ".__FILE__." line ".(__LINE__-2).", <DATA> line 2.\n",
     'last handle line num is mentioned';
 
+# [cpan #100183]
+{
+    local $/ = \6;
+    <XD::DATA>;
+    eval { croak 'jeek' };
+    $@ =~ s/\n.*//; # just check first line
+    is $@, "jeek at ".__FILE__." line ".(__LINE__-2).", <DATA> chunk 3.\n",
+        'last handle chunk num is mentioned';
+}
+
 SKIP:
 {
     skip "IPC::Open3::open3 needs porting", 1 if $Is_VMS;
 SKIP:
 {
     skip "IPC::Open3::open3 needs porting", 1 if $Is_VMS;
@@ -531,3 +541,4 @@ __DATA__
 1
 2
 3
 1
 2
 3
+abcdefghijklmnopqrstuvwxyz