Output appropriately dire warning for high code points

[perl5.git] / ext / XS-APItest / t / utf8.t

diff --git a/ext/XS-APItest/t/utf8.t b/ext/XS-APItest/t/utf8.t
index 31d2d35..43d5e94 100644 (file)
--- a/ext/XS-APItest/t/utf8.t
+++ b/ext/XS-APItest/t/utf8.t
@@ -985,14 +985,11 @@ foreach my $test (@tests) {
                         if (is(scalar @warnings, 1,
                                "$this_name: Got a single warning "))
                         {
-                        TODO: {
-                            local $TODO = "Doesn't give dire warning for code points 2**31" if $allowed_uv >= 2**31 && $warnings[0] =~ /may not be portable/;
                             unless (like($warnings[0], $message,
                                         "$this_name: Got expected warning"))
                             {
                                 diag $call;
                             }
-                            }
                         }
                         else {
                             diag $call;
@@ -1126,14 +1123,11 @@ foreach my $test (@tests) {
                         if (is(scalar @warnings, 1,
                                "$this_name: Got a single warning "))
                         {
-                            TODO: {
-                                local $TODO = "Doesn't give dire warning for code points 2**31" if $allowed_uv >= 2**31 && $warnings[0] =~ /may not be portable/;
                             unless (like($warnings[0], $message,
                                             "$this_name: Got expected warning"))
                             {
                                 diag $call;
                             }
-                            }
                         }
                         else {
                             diag $call;