From f40bd922fa189b5153deb29081f706a7db93e732 Mon Sep 17 00:00:00 2001
From: zb! <zebster@spr.at>
Date: Sun, 3 Aug 2025 12:32:38 +0200
Subject: [PATCH] trying to TODO-test GH 15419

---
 t/run/todo.t | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/t/run/todo.t b/t/run/todo.t
index 24f4796b8ab8..84d4c389e6f5 100644
--- a/t/run/todo.t
+++ b/t/run/todo.t
@@ -34,6 +34,20 @@ my $switches = "";
 
 our $TODO;
 
+TODO: {
+    local $::TODO = 'GH 15419';
+    my $results = fresh_perl(<<~'EOF', { stderr => 1 } );
+        use strict;
+        use warnings;
+        binmode *STDOUT, ":encoding(utf8)";
+        open(my $copy, '>&', STDOUT);
+        print $copy "\x{11e}\n";
+        EOF
+    is($?, 0, "No assertion failure");
+    is $results, "\x{11e}", "print returned the expected output";
+    unlike $results, qr/Wide character in print/, "print did not warn about wide characters";
+}
+
 TODO: {
     local $::TODO = "GH 16008";
     my $results = fresh_perl(<<~'EOF', {} );