Add TODO-ed test for duplicate warning

1 files changed, 17 insertions, 1 deletions

diff --git a/dist/ExtUtils-ParseXS/t/001-basic.t b/dist/ExtUtils-ParseXS/t/001-basic.t
index 665180934f..73761aabb3 100644
--- a/dist/ExtUtils-ParseXS/t/001-basic.t
+++ b/dist/ExtUtils-ParseXS/t/001-basic.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
-use Test::More tests => 18;
+use Test::More tests => 19;
 use Config;
 use DynaLoader;
 use ExtUtils::CBuilder;
@@ -190,6 +190,22 @@ like $stderr, '/No INPUT definition/', "Exercise typemap error";
 }
 #####################################################################
 
+{ # fourth block: https://github.com/Perl/perl5/issues/19661
+my $pxs = ExtUtils::ParseXS->new;
+tie *FH, 'Foo';
+my $stderr = PrimitiveCapture::capture_stderr(sub {
+  $pxs->process_file(filename => 'XSFalsePositive.xs', output => \*FH, prototypes => 1);
+});
+TODO: {
+    local $TODO = 'GH 19661';
+    unlike $stderr,
+        qr/Warning: duplicate function definition 'do' detected in XSFalsePositive\.xs/,
+        "No 'duplicate function definition' warning observed";
+    }
+}
+
+#####################################################################
+
 sub Foo::TIEHANDLE { bless {}, 'Foo' }
 sub Foo::PRINT { shift->{buf} .= join '', @_ }
 sub Foo::content { shift->{buf} }