APItest/t/utf8_warn_base.pl: Add some tests
authorKarl Williamson <khw@cpan.org>
Mon, 19 Jun 2017 17:52:34 +0000 (11:52 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 13 Jul 2017 03:14:25 +0000 (21:14 -0600)
This adds the edges between overflowing and not on 64-bit platforms

ext/XS-APItest/t/utf8_warn_base.pl

index c6596cd..2a77db6 100644 (file)
@@ -307,6 +307,23 @@ my @tests;
     }
 
     if ($::is64bit) {
+        push @tests,
+            [ "highest 64 bit code point",
+              (isASCII)
+              ? "\xff\x80\x8f\xbf\xbf\xbf\xbf\xbf\xbf\xbf\xbf\xbf\xbf"
+              : I8_to_native(
+                "\xff\xaf\xbf\xbf\xbf\xbf\xbf\xbf\xbf\xbf\xbf\xbf\xbf\xbf"),
+              0xFFFFFFFFFFFFFFFF,
+              (isASCII) ? 1 : 2,
+            ],
+            [ "first 65 bit code point",
+              (isASCII)
+              ? "\xff\x80\x9f\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80"
+              : I8_to_native(
+                "\xff\xb0\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0"),
+              -1,
+              (isASCII) ? 3 : 2,
+            ];
         if (isASCII) {
             push @tests,
                 [ "Lowest code point requiring 13 bytes to represent",