From 4711ea93f5aa15628510d1788bcdc6987ce732fb Mon Sep 17 00:00:00 2001 From: Packit Date: Sep 16 2020 15:04:33 +0000 Subject: perl-Net-IDN-Encode-2.400 base --- diff --git a/Build.PL b/Build.PL new file mode 100644 index 0000000..522c4f3 --- /dev/null +++ b/Build.PL @@ -0,0 +1,48 @@ +require 5.008005; + +use strict; +use utf8; + +use Module::Build; + +my $b = Module::Build->new( + 'module_name' => 'Net::IDN::Encode', + + 'license' => 'perl', + 'dist_author' => 'Claus Färber ', + 'dist_abstract' => 'Internationalizing Domain Names in Applications (UTS #46)', + + 'sign' => 1, + 'create_license' => 1, + 'create_makefile_pl' => 'traditional', + + 'requires' => { + 'Unicode::Normalize' => 0, + 'perl' => 5.008005, + }, + 'build_requires' => { + 'Test::More' => 0, + 'Test::NoWarnings' => 0, + }, + 'needs_compiler' => undef, + + 'PL_Files' => { + 'lib/Unicode/UTS46/_Mapping.PL' => [ + 'lib/Net/IDN/UTS46/_Mapping.pm', + ], + 'lib/Unicode/UTS46/GenTests.PL' => [ + 't/uts46_to_ascii.t', + 't/uts46_to_ascii-trans.t', + 't/uts46_to_unicode.t', + ], + }, + 'no_index' => { + 'directory' => ['eg', 'data'] + }, + 'resources' => { + 'homepage' => 'http://search.cpan.org/dist/Net-IDN-Encode', + 'repository' => 'http://github.com/cfaerber/Net-IDN-Encode', + }, +); + +$b->create_build_script; diff --git a/Changes b/Changes new file mode 100644 index 0000000..d5b0ae0 --- /dev/null +++ b/Changes @@ -0,0 +1,194 @@ +Revision history for Perl extension Net::IDN::Encode + +2.400 (2017-01-01) + - new release version + - remove author tests + - more spelling fixes + +2.399_20161227 + - FIXES #119468: [PATCH] spelling fixes (reported by GREGOA) + - possible fix for utf8 warnings under perl 5.8.x + +2.399_20161210 + - update to Unicode 9.0.0 + - changed generation of tests so that TODO is no longer required when + the module author's perl doesn't support the newest Unicode version + +2.303 (2016-12-10) + - FIXES: warnings when compiling lib/Net/IDN/Punycode.xs + (reported/patch provided by paul@c***-***.org) + +2.302 (2016-12-07) + - Fixes memory bug introduced by fix for #118924 + +2.301 (2016-12-03) + - FIXES: #118924: encode_punycode heap overflow + (reported by Alexander Bluhm) + +2.300 (2015-06-17) + - update to Unicode 8.0.0 + +2.202 (2015-04-18) + - use updated IdnaTest.txt from Unicode 7.0.0 database + FIXES: #96749: Fails with bleadperl + - documentation updates, point to perl Unicode tutorials + - tests for domain xn--zcaa.de; + REJECTED: #103205 for Net-IDN-Encode: conversion of domain name + +2.201 (2014-08-30) + - correct handling of uppercase a-labels in + domain_to_{ascii,unicode} + - FIXES: #98354: Capitalized ACE prefix does not work (reported + by victor@*****.ru) + +2.200 (2014-06-21) + - Net::IDN::UTS46: update to Unicode® 7.0.0 and UTS #46 r13 + - typo and metadata fixes from dstreinbrunner + +2.100 (2013-12-30) + - Net::IDN::Encode: preserve case in pure-ASCII labels (bypass + en-/decoding) + FIXES: #91059: case not preserved (reported by DMUEY) + - Net::IDN::Encode: simplify scalar-via-blob syntax (pull req. + by DMUEY) + - Net::IDN::Encode: add SMALL COMMERCIAL AT to list of possible + @ signs (pull req. by DMUEY) + + - Net::IDN::UTS46: update to Unicode® 6.3.0 and UTS #46 r11: + * new UTS #46 test vectors in data/IdnaTest.txt + * built on perl-blead (5.19.7) for support of Unicode® 6.3.0 + in tests generated from data/IdnaTest.txt + * tweaks and fixes regarding edge cases not clearly described + in UTS #46 + - Net::IDN::UTS46: test vectors supposed to fail due to + Unassigned characters are no longer skipped. + + - Net::IDN::Punycode: use utf8_to_uvchr_buf instead of deprecated + utf8_to_uvuni (perl 5.15.9 and higher; utf8_to_uvuni_buf is + deprecated from perl 5.19.5) + +2.005 (2013-11-03) + - better documentation for unassigned characters, + FIXES: #89750: Can't create IDN for a special domain + (reported by felix.*****@*****.de) + - FIXES: #89270: [PATCH] fix spelling errors in the docs + (reported by cstamas@*****.hu) + +2.004 (2013-08-12) + - FIXES: #85552 3 uts46 tests FAIL under perl-5.18.0 + (reported by d.thomas@*****.au) + +2.003 (2012-01-22) + - FIXES required version of Unicode::Normalize in UTS46.pm + (reported by CPAN testers) + +2.002 (2012-01-18) + - FIXES dependencies/required perl version + - FIXES: #74021 Makefile.PL bad value for + version-requirement + +2.001 (2012-01-12) + - FIXES XS_VERSION mismatch + - FIXES depencency on Unicode::Normalize (was 1.000 or higher, + but this is not needed). + +2.000 (2012-01-08) + - switch to Unicode Technical Standard #46 (previously, + IDNA2003 has been used, which is now available as + Net::IDN::IDNA2003): + - add Net::IDN::UTS46 + test vectors from UTS #46 + - remove Net::IDN::Nameprep (only required for IDNA2003) + - add documentation about IDNA Standards and IDNA module + Overview/Roadmad + - allow NON-LDH labels (e.g. for SRV records), even if + UseSTD3Rules=true (parameter now only applies to + U-labels and A-labels, i.e. labels that are converted by + IDNA). + - FIXES potential portability problems in + Net::IDN::Punycode XS 1.999_20120108 + - FIXES 'wide character' warning with tests if tests + fail/if TB2 is used on modern perl installations. + - FIXES decoding bug in Net::IDN::Punycode::PP (discovered + through UTS #46 test vectors) + +1.101 (2011-12-08) + - FIXES: #72615 faulty data in Build.PL causes a lack of + meta files, which breaks carton. + +1.100 (2010-06-08, patch by Loïc Etienne) + - new parameters AllowUnassigned/UseSTD3ASCIIRules for + to_ascii, to_unicode (RFC 3490) + domain_to_ascii, domain_to_unicode + - case insensitive ACE prefix (RFC 3490) + - new length 255 check in domain_to_ascii (RFC 1034) + - length 63 check moved to to_ascii + - dots replacement only in domain_to_ascii + (domain_to_unicode does not require it) + - o-modifier in regexs + - _domain replaced by domain_to_unicode and domain_to_ascii + - _nameprep replaced by Net::IDN::Nameprep + +1.000 (2010-01-13) + - clean-up + - release + +0.999_20090112 (2010-01-10) + - add XS for decode_punycode + +0.999_20090110 (2010-01-10) + - add XS for encode_punycode + + - include Net::IDN::Nameprep into Net::IDN::Encode *sigh* + - drop IDNA::Punycode + +0.99_20091231 + - depend on perl 5.8.3 + - optimise Net::IDN::Punycode + +0.99_20091226 Sat Dec 26 00:00:00 2009 + - some clean-ups + +0.99_20091216 Wed Dec 16 00:00:00 2009 + - switch to Module::Build + - switch to Github, remove svn:keywords, add .gitignore + + - use ASCII in POD, fixes FAILs with perl 5.6.x + - add examples in eg/ + +0.99_20080913 Sun Sep 13 12:00:00 2008 + - fixed perl 5.6.x (no warnings 'utf8') + +0.99_20080913 Sat Sep 13 12:00:00 2008 + - require perl version 5.6.0 instead of 5.6.6 + - skip more tests in lower perl versions + + - removed Encode::Punycode; Encode is only available from + perl 5.7.3 + - renamed back to Net::IDN::Encode; without + Encode::Punycode, the new name does not make sense. + +0.99_20071012 Fri Oct 12 12:00:00 2007 + - renamed Net-IDN-Encode distribution to Net-IDN-tools + + - includes Net::IDN::Punycode (from IDNA::Punycode v0.02) + - includes Net::IDN::Nameprep (complete rewrite, uses + Unicode::Stringprep) + - includes IDNA::Punycode (deprecated, new version based + on Net::IDN::Punycode/::Encode) + - includes Encode::Punycode (new version based on + Net::IDN::Punycode) + - uses Unicode::Stringprep + + - more tests, including test vectors from Internet Draft + draft-josefsson-idn-test-vectors-00. + + - FIXES: #16150: Net::IDN::Encode depends on non-modulelist module IDNA::Punycode + - FIXES: #16145: IDNA::Punycode 0.03 + - FIXES: #28123: Undeclared dependency on Unicode::Stringprep (reported by ANDK) + - FIXES WARNING: v-string in use/require non-portable (Net::IDN::Nameprep[::*]) + +0.02 Sun Jun 20 00:00:00 2004 + - fixed handling of incomplete/empty email addresses + +0.01 Sun May 30 00:00:00 2004 + - first release diff --git a/LICENSE b/LICENSE new file mode 100644 index 0000000..8bba1fa --- /dev/null +++ b/LICENSE @@ -0,0 +1,379 @@ +This software is copyright (c) 2017 by Claus F�rber . + +This is free software; you can redistribute it and/or modify it under +the same terms as the Perl 5 programming language system itself. + +Terms of the Perl programming language system itself + +a) the GNU General Public License as published by the Free + Software Foundation; either version 1, or (at your option) any + later version, or +b) the "Artistic License" + +--- The GNU General Public License, Version 1, February 1989 --- + +This software is Copyright (c) 2017 by Claus F�rber . + +This is free software, licensed under: + + The GNU General Public License, Version 1, February 1989 + + GNU GENERAL PUBLIC LICENSE + Version 1, February 1989 + + Copyright (C) 1989 Free Software Foundation, Inc. + 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The license agreements of most software companies try to keep users +at the mercy of those companies. By contrast, our General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. The +General Public License applies to the Free Software Foundation's +software and to any other program whose authors commit to using it. +You can use it for your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Specifically, the General Public License is designed to make +sure that you have the freedom to give away or sell copies of free +software, that you receive source code or can get it if you want it, +that you can change the software or use pieces of it in new free +programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of a such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. You must make sure that they, too, receive or can get the +source code. And you must tell them their rights. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License Agreement applies to any program or other work which +contains a notice placed by the copyright holder saying it may be +distributed under the terms of this General Public License. The +"Program", below, refers to any such program or work, and a "work based +on the Program" means either the Program or any work containing the +Program or a portion of it, either verbatim or with modifications. Each +licensee is addressed as "you". + + 1. You may copy and distribute verbatim copies of the Program's source +code as you receive it, in any medium, provided that you conspicuously and +appropriately publish on each copy an appropriate copyright notice and +disclaimer of warranty; keep intact all the notices that refer to this +General Public License and to the absence of any warranty; and give any +other recipients of the Program a copy of this General Public License +along with the Program. You may charge a fee for the physical act of +transferring a copy. + + 2. You may modify your copy or copies of the Program or any portion of +it, and copy and distribute such modifications under the terms of Paragraph +1 above, provided that you also do the following: + + a) cause the modified files to carry prominent notices stating that + you changed the files and the date of any change; and + + b) cause the whole of any work that you distribute or publish, that + in whole or in part contains the Program or any part thereof, either + with or without modifications, to be licensed at no charge to all + third parties under the terms of this General Public License (except + that you may choose to grant warranty protection to some or all + third parties, at your option). + + c) If the modified program normally reads commands interactively when + run, you must cause it, when started running for such interactive use + in the simplest and most usual way, to print or display an + announcement including an appropriate copyright notice and a notice + that there is no warranty (or else, saying that you provide a + warranty) and that users may redistribute the program under these + conditions, and telling the user how to view a copy of this General + Public License. + + d) You may charge a fee for the physical act of transferring a + copy, and you may at your option offer warranty protection in + exchange for a fee. + +Mere aggregation of another independent work with the Program (or its +derivative) on a volume of a storage or distribution medium does not bring +the other work under the scope of these terms. + + 3. You may copy and distribute the Program (or a portion or derivative of +it, under Paragraph 2) in object code or executable form under the terms of +Paragraphs 1 and 2 above provided that you also do one of the following: + + a) accompany it with the complete corresponding machine-readable + source code, which must be distributed under the terms of + Paragraphs 1 and 2 above; or, + + b) accompany it with a written offer, valid for at least three + years, to give any third party free (except for a nominal charge + for the cost of distribution) a complete machine-readable copy of the + corresponding source code, to be distributed under the terms of + Paragraphs 1 and 2 above; or, + + c) accompany it with the information you received as to where the + corresponding source code may be obtained. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form alone.) + +Source code for a work means the preferred form of the work for making +modifications to it. For an executable file, complete source code means +all the source code for all modules it contains; but, as a special +exception, it need not include source code for modules which are standard +libraries that accompany the operating system on which the executable +file runs, or for standard header files or definitions files that +accompany that operating system. + + 4. You may not copy, modify, sublicense, distribute or transfer the +Program except as expressly provided under this General Public License. +Any attempt otherwise to copy, modify, sublicense, distribute or transfer +the Program is void, and will automatically terminate your rights to use +the Program under this License. However, parties who have received +copies, or rights to use copies, from you under this General Public +License will not have their licenses terminated so long as such parties +remain in full compliance. + + 5. By copying, distributing or modifying the Program (or any work based +on the Program) you indicate your acceptance of this license to do so, +and all its terms and conditions. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the original +licensor to copy, distribute or modify the Program subject to these +terms and conditions. You may not impose any further restrictions on the +recipients' exercise of the rights granted herein. + + 7. The Free Software Foundation may publish revised and/or new versions +of the General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies a version number of the license which applies to it and "any +later version", you have the option of following the terms and conditions +either of that version or of any later version published by the Free +Software Foundation. If the Program does not specify a version number of +the license, you may choose any version ever published by the Free Software +Foundation. + + 8. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, write to the author +to ask for permission. For software which is copyrighted by the Free +Software Foundation, write to the Free Software Foundation; we sometimes +make exceptions for this. Our decision will be guided by the two goals +of preserving the free status of all derivatives of our free software and +of promoting the sharing and reuse of software generally. + + NO WARRANTY + + 9. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + + 10. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + + Appendix: How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to humanity, the best way to achieve this is to make it +free software which everyone can redistribute and change under these +terms. + + To do so, attach the following notices to the program. It is safest to +attach them to the start of each source file to most effectively convey +the exclusion of warranty; and each file should have at least the +"copyright" line and a pointer to where the full notice is found. + + + Copyright (C) 19yy + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 1, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA + + +Also add information on how to contact you by electronic and paper mail. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) 19xx name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the +appropriate parts of the General Public License. Of course, the +commands you use may be called something other than `show w' and `show +c'; they could even be mouse-clicks or menu items--whatever suits your +program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the + program `Gnomovision' (a program to direct compilers to make passes + at assemblers) written by James Hacker. + + , 1 April 1989 + Ty Coon, President of Vice + +That's all there is to it! + + +--- The Artistic License 1.0 --- + +This software is Copyright (c) 2017 by Claus F�rber . + +This is free software, licensed under: + + The Artistic License 1.0 + +The Artistic License + +Preamble + +The intent of this document is to state the conditions under which a Package +may be copied, such that the Copyright Holder maintains some semblance of +artistic control over the development of the package, while giving the users of +the package the right to use and distribute the Package in a more-or-less +customary fashion, plus the right to make reasonable modifications. + +Definitions: + + - "Package" refers to the collection of files distributed by the Copyright + Holder, and derivatives of that collection of files created through + textual modification. + - "Standard Version" refers to such a Package if it has not been modified, + or has been modified in accordance with the wishes of the Copyright + Holder. + - "Copyright Holder" is whoever is named in the copyright or copyrights for + the package. + - "You" is you, if you're thinking about copying or distributing this Package. + - "Reasonable copying fee" is whatever you can justify on the basis of media + cost, duplication charges, time of people involved, and so on. (You will + not be required to justify it to the Copyright Holder, but only to the + computing community at large as a market that must bear the fee.) + - "Freely Available" means that no fee is charged for the item itself, though + there may be fees involved in handling the item. It also means that + recipients of the item may redistribute it under the same conditions they + received it. + +1. You may make and give away verbatim copies of the source form of the +Standard Version of this Package without restriction, provided that you +duplicate all of the original copyright notices and associated disclaimers. + +2. You may apply bug fixes, portability fixes and other modifications derived +from the Public Domain or from the Copyright Holder. A Package modified in such +a way shall still be considered the Standard Version. + +3. You may otherwise modify your copy of this Package in any way, provided that +you insert a prominent notice in each changed file stating how and when you +changed that file, and provided that you do at least ONE of the following: + + a) place your modifications in the Public Domain or otherwise make them + Freely Available, such as by posting said modifications to Usenet or an + equivalent medium, or placing the modifications on a major archive site + such as ftp.uu.net, or by allowing the Copyright Holder to include your + modifications in the Standard Version of the Package. + + b) use the modified Package only within your corporation or organization. + + c) rename any non-standard executables so the names do not conflict with + standard executables, which must also be provided, and provide a separate + manual page for each non-standard executable that clearly documents how it + differs from the Standard Version. + + d) make other distribution arrangements with the Copyright Holder. + +4. You may distribute the programs of this Package in object code or executable +form, provided that you do at least ONE of the following: + + a) distribute a Standard Version of the executables and library files, + together with instructions (in the manual page or equivalent) on where to + get the Standard Version. + + b) accompany the distribution with the machine-readable source of the Package + with your modifications. + + c) accompany any non-standard executables with their corresponding Standard + Version executables, giving the non-standard executables non-standard + names, and clearly documenting the differences in manual pages (or + equivalent), together with instructions on where to get the Standard + Version. + + d) make other distribution arrangements with the Copyright Holder. + +5. You may charge a reasonable copying fee for any distribution of this +Package. You may charge any fee you choose for support of this Package. You +may not charge a fee for this Package itself. However, you may distribute this +Package in aggregate with other (possibly commercial) programs as part of a +larger (possibly commercial) software distribution provided that you do not +advertise this Package as a product of your own. + +6. The scripts and library files supplied as input to or produced as output +from the programs of this Package do not automatically fall under the copyright +of this Package, but belong to whomever generated them, and may be sold +commercially, and may be aggregated with this Package. + +7. C or perl subroutines supplied by you and linked into this Package shall not +be considered part of this Package. + +8. The name of the Copyright Holder may not be used to endorse or promote +products derived from this software without specific prior written permission. + +9. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED +WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF +MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. + +The End + diff --git a/MANIFEST b/MANIFEST new file mode 100644 index 0000000..b031a5d --- /dev/null +++ b/MANIFEST @@ -0,0 +1,33 @@ +Build.PL +Changes +eg/hello_idn.pl +eg/hello_idn_email.pl +lib/Net/IDN/Encode.pm +lib/Net/IDN/Overview.pod +lib/Net/IDN/Punycode.pm +lib/Net/IDN/Punycode.xs +lib/Net/IDN/Punycode/PP.pm +lib/Net/IDN/Standards.pod +lib/Net/IDN/UTS46.pm +lib/Net/IDN/UTS46/_Mapping.pm +LICENSE +Makefile.PL +MANIFEST +META.json +META.yml +README +t/00use.t +t/domain_to_ascii.t +t/domain_to_unicode.t +t/encode_bytes.t +t/encode_utf8.t +t/punycode_vec-pp.t +t/punycode_vec-xs.t +t/uts46_api_call.t +t/uts46_encode_bytes.t +t/uts46_encode_utf8.t +t/uts46_to_ascii-trans.t +t/uts46_to_ascii.t +t/uts46_to_unicode.t +t/xtra_pp.t +SIGNATURE Added here by Module::Build diff --git a/META.json b/META.json new file mode 100644 index 0000000..a058dca --- /dev/null +++ b/META.json @@ -0,0 +1,50 @@ +{ + "abstract" : "Internationalizing Domain Names in Applications (UTS #46)", + "author" : [ + "Claus Färber " + ], + "dynamic_config" : 1, + "generated_by" : "Module::Build version 0.422", + "license" : [ + "perl_5" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", + "version" : "2" + }, + "name" : "Net-IDN-Encode", + "no_index" : { + "directory" : [ + "eg", + "data" + ] + }, + "prereqs" : { + "build" : { + "requires" : { + "ExtUtils::CBuilder" : "0", + "Test::More" : "0", + "Test::NoWarnings" : "0" + } + }, + "configure" : { + "requires" : { + "Module::Build" : "0.42" + } + }, + "runtime" : { + "requires" : { + "Unicode::Normalize" : "0", + "perl" : "5.008005" + } + } + }, + "release_status" : "stable", + "resources" : { + "license" : [ + "http://dev.perl.org/licenses/" + ] + }, + "version" : "2.400", + "x_serialization_backend" : "JSON::PP version 2.27300" +} diff --git a/META.yml b/META.yml new file mode 100644 index 0000000..db6dfa6 --- /dev/null +++ b/META.yml @@ -0,0 +1,28 @@ +--- +abstract: 'Internationalizing Domain Names in Applications (UTS #46)' +author: + - 'Claus Färber ' +build_requires: + ExtUtils::CBuilder: '0' + Test::More: '0' + Test::NoWarnings: '0' +configure_requires: + Module::Build: '0.42' +dynamic_config: 1 +generated_by: 'Module::Build version 0.422, CPAN::Meta::Converter version 2.150010' +license: perl +meta-spec: + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: '1.4' +name: Net-IDN-Encode +no_index: + directory: + - eg + - data +requires: + Unicode::Normalize: '0' + perl: '5.008005' +resources: + license: http://dev.perl.org/licenses/ +version: '2.400' +x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff --git a/Makefile.PL b/Makefile.PL new file mode 100644 index 0000000..adacecd --- /dev/null +++ b/Makefile.PL @@ -0,0 +1,18 @@ +# Note: this file was auto-generated by Module::Build::Compat version 0.4220 +require 5.008005; +use ExtUtils::MakeMaker; +WriteMakefile +( + 'PREREQ_PM' => { + 'ExtUtils::CBuilder' => 0, + 'Test::NoWarnings' => 0, + 'Test::More' => 0, + 'Unicode::Normalize' => 0 + }, + 'INSTALLDIRS' => 'site', + 'EXE_FILES' => [], + 'VERSION_FROM' => 'lib/Net/IDN/Encode.pm', + 'PL_FILES' => {}, + 'NAME' => 'Net::IDN::Encode' +) +; diff --git a/README b/README new file mode 100644 index 0000000..b37425b --- /dev/null +++ b/README @@ -0,0 +1,34 @@ +OVERVIEW + + Net::IDN::Encode -- Internationalized Domain Names in + Applications (IDNA) + + Net::IDN::UTS46 -- Unicode IDNA Compatibility Processing + (UTS�#46) + + Net::IDN::Punycode -- ASCII-compatible encoding of Unicode + (Punycode, RFC 3492) + +INSTALLATION + + To install this module type the following: + + perl Build.PL + ./Build + ./Build test + ./Build install + +DEPENDENCIES + + This module requires these other modules and libraries: + + Unicode::Normalize + +AUTHOR + + Claus F�rber + +ACKNOWLEDGMENTS + + Tatsuhiko Miyagawa + Robert Urban diff --git a/SIGNATURE b/SIGNATURE new file mode 100644 index 0000000..b4cc72f --- /dev/null +++ b/SIGNATURE @@ -0,0 +1,58 @@ +This file contains message digests of all files listed in MANIFEST, +signed via the Module::Signature module, version 0.81. + +To verify the content in this distribution, first make sure you have +Module::Signature installed, then type: + + % cpansign -v + +It will check each file's integrity, as well as the signature's +validity. If "==> Signature verified OK! <==" is not displayed, +the distribution may already have been compromised, and you should +not run its Makefile.PL or Build.PL. + +-----BEGIN PGP SIGNED MESSAGE----- +Hash: SHA256 + +SHA1 349441099c4ef03e28711e0a940feffb35943473 Build.PL +SHA1 151bbb809f36442798c7531270fcfd9ebe0db49c Changes +SHA1 d298f1b75228a1bf703d6dccae8c33a705e25638 LICENSE +SHA1 354f4ad7e2aa38acee5f19027fd1bc51a570fcb5 MANIFEST +SHA1 5910725f231401cd008dc41f700035083a6505a3 META.json +SHA1 ba40868ee19ad1fe813a32d151ec026357fb24fe META.yml +SHA1 fad23e22efbc662cbf81572c540b5640551a9df0 Makefile.PL +SHA1 3807b576f4488318a73d35db802b2609e2560070 README +SHA1 c7825316b854216c50a88b5750c3a08a91e56695 eg/hello_idn.pl +SHA1 da626e4a67218dc2ed50b4a5b45b258078db0681 eg/hello_idn_email.pl +SHA1 39374df97a7f9ede72b6d23da6fd16544b491f23 lib/Net/IDN/Encode.pm +SHA1 e460bd2148cf2a2a295c5ef3f2119eb9b9fb58f4 lib/Net/IDN/Overview.pod +SHA1 e665b4c9fda169cc6aa2d081cfd45b4a70d653d8 lib/Net/IDN/Punycode.pm +SHA1 89b0917d4f0be053ad30db7d4864f315063df306 lib/Net/IDN/Punycode.xs +SHA1 7d2e1af3ae83512014e76b2ac3a90e8a8f37fd56 lib/Net/IDN/Punycode/PP.pm +SHA1 56999f8c24fd3aa8001e0bd1b168e9aaff65c4ee lib/Net/IDN/Standards.pod +SHA1 a9ebfe157d29851b63eb04d5dd667ac5a842b142 lib/Net/IDN/UTS46.pm +SHA1 a914341b188c8bcdbb08f058c99152565a20406f lib/Net/IDN/UTS46/_Mapping.pm +SHA1 aee3164d2582e59a5cacc389f455a54d5a3e42e5 t/00use.t +SHA1 67367aeaed29db4eb2c54d532a54834d18bef4b7 t/domain_to_ascii.t +SHA1 aadd66ec160d136e940c4cfb7764c1b18089a7b4 t/domain_to_unicode.t +SHA1 659313cde51535a32053b02c07991da57725c214 t/encode_bytes.t +SHA1 9cc5d106c594c43370fc135adf44d2f61372cfa7 t/encode_utf8.t +SHA1 11738a334df75b930f65a8b771e8dd10f99c2e5a t/punycode_vec-pp.t +SHA1 3c025aafc4c0fef62d65a133605a9cc1d4234ee9 t/punycode_vec-xs.t +SHA1 30a64f88f0f7391d4adeefd13580d6542b799fcb t/uts46_api_call.t +SHA1 c49ae1e907113abe82c0081a7842b1f2c66d94ab t/uts46_encode_bytes.t +SHA1 832f448cbe5b33956124c91a1e6b93d3e7e690ef t/uts46_encode_utf8.t +SHA1 fc14ec5386421d17446ed2cc35c24b350385a813 t/uts46_to_ascii-trans.t +SHA1 e4d47d3c231fb680fda08f73e3ce5926969275e0 t/uts46_to_ascii.t +SHA1 6e7d2343ad10fb77a206a59c3c703503791d5cb8 t/uts46_to_unicode.t +SHA1 245b13d82d5ab98b510dc4b0221cab1ffd347237 t/xtra_pp.t +-----BEGIN PGP SIGNATURE----- + +iQEcBAEBCAAGBQJYaOwdAAoJEIS+srvgrWBmFE0H/3BHsadn33CRHE7xmMizB6jn +JNOSgMjyrGXMMOmNt9+3w2IZYTvkpCKs7UZP+IeH2JekqWENYwEOrjtcNllQhNhQ +9Na0TvqmECjpFtRpKdLHeftIZQCMFCVVRQFAD/wEg+fGBJSXz1d2r22sEJ4y/UzB +WCtz5JuxhobEgs9M/CceFTf2EHrj2MuekRDbCK98zLrZ9MC/XTgmqwE+JGLdYtjC +TEShQIt12chOB7SteENsBGINXRsjCNvOyQUTSBSc3h39iQqDq0hnml+DHFG1khbC +h5EMzXpqLAkOT2p4h9Bd+I4JLerbxojmGZX2qCf38uNyo++KV2QTkqot/TM8kRk= +=y2V2 +-----END PGP SIGNATURE----- diff --git a/eg/hello_idn.pl b/eg/hello_idn.pl new file mode 100644 index 0000000..8914e76 --- /dev/null +++ b/eg/hello_idn.pl @@ -0,0 +1,18 @@ +#!/usr/bin/perl + +use strict; +use utf8; + +binmode STDOUT, ":utf8"; + +use Net::IDN::Encode; + +my @domain = ( + '例．テスト', + 'müller.example.net', +); + +foreach (@domain) { + printf "%s: toASCII=<%s>, toUnicode=<%s>\n", + $_, domain_to_ascii($_), domain_to_unicode($_); +} diff --git a/eg/hello_idn_email.pl b/eg/hello_idn_email.pl new file mode 100644 index 0000000..b434b9f --- /dev/null +++ b/eg/hello_idn_email.pl @@ -0,0 +1,18 @@ +#!/usr/bin/perl + +use strict; +use utf8; + +binmode STDOUT, ":utf8"; + +use Net::IDN::Encode; + +my @email = ( + 'postmaster@例．テスト', + 'info＠müller.example.net', +); + +foreach (@email) { + printf "%s: toASCII=<%s>, toUnicode=<%s>\n", + $_, email_to_ascii($_), email_to_unicode($_); +} diff --git a/lib/Net/IDN/Encode.pm b/lib/Net/IDN/Encode.pm new file mode 100755 index 0000000..b23e9be --- /dev/null +++ b/lib/Net/IDN/Encode.pm @@ -0,0 +1,347 @@ +package Net::IDN::Encode; + +require 5.006; + +use strict; +use utf8; +use warnings; + +our $VERSION = "2.400"; +$VERSION = eval $VERSION; + +use Carp; +use Exporter; + +our @ISA = ('Exporter'); +our @EXPORT = (); +our %EXPORT_TAGS = ( + 'all' => [ + 'to_ascii', + 'to_unicode', + 'domain_to_ascii', + 'domain_to_unicode', + 'email_to_ascii', + 'email_to_unicode', + ], + '_var' => [ + '$IDNA_PREFIX', + 'IsIDNADot', + 'IsIDNAAtsign', + ] +); +Exporter::export_ok_tags(keys %EXPORT_TAGS); + +use Net::IDN::Punycode 1.102 (); + +our $IDNA_PREFIX = 'xn--'; +sub IsIDNADot { "002E\n3002\nFF0E\nFF61" } +sub IsIDNAAtsign{ "0040\nFE6B\nFF20" } + +require Net::IDN::UTS46; # after declaration of vars! + +sub to_ascii { + my($label,%param) = @_; + croak 'Invalid label' if $label =~ m/\p{IsIDNADot}/o; + + if($label =~ m/\P{ASCII}/o) { + $label = Net::IDN::UTS46::to_ascii(@_); + } else { + croak 'label empty' if length($label) < 1; + croak 'label too long' if length($label) > 63; + } + return $label; +} + +sub to_unicode { + my($label,%param) = @_; + croak 'Invalid label' if $label =~ m/\p{IsIDNADot}/o; + + if($label =~ m/\P{ASCII}|^(?:(?i)$IDNA_PREFIX)/o) { + $label = Net::IDN::UTS46::to_unicode(@_); + } + return $label; +} + +sub _domain { + my ($domain,$to_function,$ascii,%param) = @_; + $param{'UseSTD3ASCIIRules'} = 1 unless exists $param{'UseSTD3ASCIIRules'}; + + my $even_odd = 1; + return join '', + map { $even_odd++ % 2 ? $to_function->($_, %param) : $ascii ? '.' : $_ } + split /(\p{IsIDNADot})/o, $domain; +} + +sub _email { + my ($email,$to_function,$ascii,%param) = @_; + return $email if !defined($email) || $email eq ''; + + $email =~ m/^( + (?(?!\p{IsIDNAAtsign}|").|(?!))+ + | + "(?:(?:[^"]|\\.)*[^\\])?" + ) + (?: + (\p{IsIDNAAtsign}) + (?:([^\[\]]*)|(\[.*\]))? + )?$/xo || croak "Invalid email address"; + my($local_part,$at,$domain,$domain_literal) = ($1,$2,$3); + + $local_part =~ m/\P{ASCII}/ && croak "Non-ASCII characters in local-part"; + $domain_literal =~ m/\P{ASCII}/ && croak "Non-ASCII characters in domain-literal" if $domain_literal; + + $domain = $to_function->($domain,%param) if $domain; + $at = '@' if $ascii; + + return ($domain || $domain_literal) + ? ($local_part.$at.($domain || $domain_literal)) + : ($local_part); +} + +sub domain_to_ascii { _domain(shift, \&to_ascii, 1, @_) } +sub domain_to_unicode { _domain(shift, \&to_unicode, 0, @_) } + +sub email_to_ascii { _email(shift, \&domain_to_ascii, 1, @_) } +sub email_to_unicode { _email(shift, \&domain_to_unicode, 0, @_) } + +1; + +__END__ + +=encoding utf8 + +=head1 NAME + +Net::IDN::Encode - Internationalizing Domain Names in Applications (IDNA) + +=head1 SYNOPSIS + + use Net::IDN::Encode ':all'; + my $a = domain_to_ascii("müller.example.org"); + my $e = email_to_ascii("POSTMASTER@例。テスト"); + my $u = domain_to_unicode('EXAMPLE.XN--11B5BS3A9AJ6G'); + +=head1 DESCRIPTION + +This module provides an easy-to-use interface for encoding and +decoding Internationalized Domain Names (IDNs). + +IDNs use characters drawn from a large repertoire (Unicode), but +IDNA allows the non-ASCII characters to be represented using only +the ASCII characters already allowed in so-called host names today +(letter-digit-hyphen, C). + +Use this module if you just want to convert domain names (or email addresses), +using whatever IDNA standard is the best choice at the moment. + +You should be familiar with Unicode support in perl, as this module expects +correctly encoded input. See L, L and L +for details. + +=head1 UNICODE VERSION + +To convert labels correctly between Unicode and ASCII, each character in the +label must be present in the Unicode version supported by your perl. +Consequently, this module will refuse to convert labels with new Unicode +characters on older perl versions (see below). + +=head1 FUNCTIONS + +By default, this module does not export any subroutines. You may +use the C<:all> tag to import everything. You can also use regular +expressions such as C or C to select some of +the functions, see L for details. + +The following functions are available: + +=over + +=item to_ascii( $label, %param ) + +Converts a single label C<$label> to ASCII. Will throw an exception on invalid +input. If C<$label> is already a valid ASCII domain label (including most +NON-LDH labels such as those used for SRV records and fake A-labels), this +function will never fail but return C<$label> as-is if conversion would fail. + +This function takes the following optional parameters (C<%param>): + +=over + +=item AllowUnassigned + +(boolean) If set to a true value, code points that are unassigned in the +Unicode version supported by your perl are allowed. This is an extension over +UTS #46. + +While this increases the number of labels that can be converted successfully +(especially on older perls) and may thus maximizes the compatibility with +domain names created under future versions of Unicode, it also introduces the +risk of incorrect conversions. Characters added in later versions of Unicode +might have properties that affect the conversion; if these properties are not +known on your version of perl, you might therefore end up with an incorrect +conversion. + +The default is false. + +=item UseSTD3ASCIIRules + +(boolean) If set to a true value, checks the label for compliance with S +(S) syntax for host name parts. The exact checks done depend on the +IDNA standard used. Usually, you will want to set this to true. + +Please note that UseSTD3ASCIIRules only affects the conversion between ASCII +labels (A-labels) and Unicode labels (U-labels). Labels that are in ASCII may +still be passed-through as-is. + +For historical reasons, the default is false (unlike C). + +=item TransitionalProcessing + +(boolean) If set to true, the conversion will be compatible with IDNA2003. This +only affects four characters: C<'ß'> (U+00DF), 'ς' (U+03C2), ZWJ (U+200D) and +ZWNJ (U+200C). Usually, you will want to set this to false. + +The default is false. + +=back + +This function does not handle strings that consist of multiple labels (such as +domain names). Use C instead. + +=item to_unicode( $label, %param ) + +Converts a single label C<$label> to Unicode. Will throw an exception on +invalid input. If C<$label> is an ASCII label (including most NON-LDH labels +such as those used for SRV records), this function will not fail but return +C<$label> as-is if conversion would fail. + +This function takes the same optional parameters as C, +with the same defaults. + +If C<$label> is already in ASCII, this function will never fail but return +C<$label> as is as a last resort (i.e. pass-through). + +This function takes the following optional parameters (C<%param>): + +=over + +=item AllowUnassigned + +=item UseSTD3ASCIIRules + +See C above. Please note that there is no need for +C for C. + +=back + +This function does not handle strings that consist of multiple labels (such as +domain names). Use C instead. + +=item domain_to_ascii( $label, %param ) + +Converts all labels of the hostname C<$domain> (with labels separated by dots) +to ASCII (using C). Will throw an exception on invalid input. + +This function takes the following optional parameters (C<%param>): + +=over + +=item AllowUnassigned + +=item TransitionalProcessing + +See C above. + +=item UseSTD3ASCIIRules + +(boolean) If set to a true value, checks the label for compliance with S +(S) syntax for host name parts. + +The default is true (unlike C). + +=back + +This function will convert all dots to ASCII, i.e. to U+002E (full stop). The +following characters are recognized as dots: U+002E (full stop), U+3002 +(ideographic full stop), U+FF0E (fullwidth full stop), U+FF61 (halfwidth +ideographic full stop). + +=item domain_to_unicode( $domain, %param ) + +Converts all labels of the hostname C<$domain> (with labels separated by dots) +to Unicode. Will throw an exception on invalid input. + +This function takes the same optional parameters as C, +with the same defaults. + +This function takes the following optional parameters (C<%param>): + +=over + +=item AllowUnassigned + +=item UseSTD3ASCIIRules + +See C above. Please note that there is no C +for C. + +=back + +This function will preserve the original version of dots. The following +characters are recognized as dots: U+002E (full stop), U+3002 (ideographic full +stop), U+FF0E (fullwidth full stop), U+FF61 (halfwidth ideographic full stop). + +=item email_to_ascii( $email, %param ) + +Converts the domain part (right hand side, separated by an at sign) of an S/2822 email address to ASCII, using C. May throw an +exception on invalid input. + +It takes the same parameters as C. + +This function currently does not handle internationalization of the local-part +(left hand side). Future versions of this module might implement an ASCII +conversion for the local-part, should one be standardized. + +This function will convert the at sign to ASCII, i.e. to U+0040 (commercial +at), as well as label separators. The following characters are recognized as at +signs: U+0040 (commercial at), U+FE6B (small commercial at) and U+FF20 +(fullwidth commercial at). + +=item email_to_unicode( $email, %param ) + +Converts the domain part (right hand side, separated by an at sign) of an S/2822 email address to Unicode, using C. May throw an +exception on invalid input. + +It takes the same parameters as C. + +This function currently does not handle internationalization of the local-part +(left hand side). Future versions of this module might implement a conversion +from ASCII for the local-part, should one be standardized. + +This function will preserve the original version of at signs (and label +separators). The following characters are recognized as at signs: U+0040 +(commercial at), U+FE6B (small commercial at) and U+FF20 (fullwidth commercial +at). + +=back + +=head1 AUTHOR + +Claus FErber + +=head1 LICENSE + +Copyright 2007-2014 Claus FErber. + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself. + +=head1 SEE ALSO + +L, L, L, +L, S (L), +S (L). + +=cut diff --git a/lib/Net/IDN/Overview.pod b/lib/Net/IDN/Overview.pod new file mode 100644 index 0000000..505c501 --- /dev/null +++ b/lib/Net/IDN/Overview.pod @@ -0,0 +1,160 @@ +=encoding utf8 + +=head1 NAME + +Net::IDN::Overwiew - Internationalized Domain Names for Applications (IDNA) + +=head1 DESCRIPTION + +The C modules provide a framework for the handling of +Internationalized Domain Names for Applications (IDNA) in perl programmes. + +This document provides an overview of the available modules in order to +allow you to choose the best module for the task at hand. + +=head2 AVAILABLE MODULES + +=head3 HIGH-LEVEL (USE THIS) + +=over + +=item L + +provides a high-level interface for converting domain names (and +for convenience, email addresses). + +Use this module if you just want to convert domain names and don't +care about how this is done internally. + +Currently, this module uses L. However, this +might change in the future if another specification (e.g. a +revision of IDNA2008) becomes more appropriate. + +The author aims for Net::IDN::Encode to always use the specification that will +provide the "least surprising" results. + +=back + +=head3 STANDARD-SPECIFIC + +These modules implement different versions of the the IDNA +specifications. Use one of these modules only if you require +compatibility with a specific incarnation of IDNA. + +=over + +=item L + +implements the original IDNA specification, released in 2003 +(IDNA2003), which is now obsolete. + +IDNA2003 is defined in RFC 3490 L +and related documents. + +=begin comment + +=item L + +implements the current IDNA specification, released in early 2010 +(IDNA2008 or IDNAbis). + +Please note that this module will not allow you to convert some +domain names, such as C<√.com> or C, which were allowed +in IDNA2003 but are disallowed in IDNA2008. + +IDNA2008 is defined in RFC 5890 L +and related documents. + +=end comment + +=item L + +implements Unicode Technical Standard #46 (UTS #46 +L), Unicode IDNA Compatibility +Processing. This specification supports all domain names allowed +under either IDNA2003 or IDNA2008. + +=back + +=head3 ENCODING + +=over + +=item L + +performs the actual conversion between the ASCII and Unicode form +of strings. Punycode is defined in RFC 3492 +L and related documents. + +Usually, it is not a good idea to use this module directly. If you +convert domain labels (or other strings) without proper +preparation, you may end up with an ASCII encoding that is not +interoperable or poses security issues due to spoofing. + +Even if you think that your domain names are valid and in +already-mapped format, you might be fooled by different Unicode +normalization forms (for example, some environments might +automatically convert your data to NFD, which breaks IDNA). + +=back + +=head3 DEPRECATED/COMPATIBILITY + +These modules are only maintained in order to not break +applications that might rely on them + +=over + +=item L + +provides an L plugin for Punycode. As Punycode is not a +general-purpose encoding, there are limited applications. + +=item L + +has an API depending on global variables. Don't use this module. + +=back + +=head2 DISTRIBUTIONS + +=over + +=item Net-IDN-Encode + +is the main distribution covering the most common cases for +converting domain names between ASCII and Unicode. + +The author tries to keep the dependency chain as small as possible; currently +this distribution only depends on perl 5.8.5 (including the core module +L ). + +=item Net-IDN-IDNA2003 + +provides the L module. This is separate +because it has an dependency on L (through +L). + +=begin comment + +=item Net-IDN-IDNA2008 + +provides the L module. This is separate because it has an +dependency on perl 5.10 or higher (through L). + +=end comment + +=item Encode-Punycode + +=item IDNA-Punycode + +are separate because they are of limited use to the average +user/perl programmer. + +=back + +=head1 AUTHOR + +Claus FErber + +=cut diff --git a/lib/Net/IDN/Punycode.pm b/lib/Net/IDN/Punycode.pm new file mode 100644 index 0000000..2de2575 --- /dev/null +++ b/lib/Net/IDN/Punycode.pm @@ -0,0 +1,117 @@ +package Net::IDN::Punycode; + +use 5.006; + +use strict; +use utf8; +use warnings; + +use Exporter; + +our $VERSION = "1.102"; +$VERSION = eval $VERSION; + +our @ISA = qw(Exporter); +our @EXPORT = (); +our @EXPORT_OK = (); +our %EXPORT_TAGS = ( 'all' => [ qw(encode_punycode decode_punycode) ], ); +Exporter::export_ok_tags(keys %EXPORT_TAGS); +our $_NO_XS; + +eval { + die if $_NO_XS; + require XSLoader; + XSLoader::load('Net::IDN::Punycode'); +}; + +if (!defined(&encode_punycode)) { + require Net::IDN::Punycode::PP; + Net::IDN::Punycode::PP->import(qw(:all)); +} + +1; +__END__ + +=head1 NAME + +Net::IDN::Punycode - A Bootstring encoding of Unicode for IDNA (S) + +=head1 SYNOPSIS + + use Net::IDN::Punycode qw(:all); + $punycode = encode_punycode($unicode); + $unicode = decode_punycode($punycode); + +=head1 DESCRIPTION + +This module implements the Punycode encoding, and only the Punycode encoding. + +This module does not implement any other steps required for converting +internationalized domain names (IDNs) to and from ASCII. In particular, it does +not do any string preparation as specified by I/I/I +and does not add nor remove the ACE prefix (C). Thus, use +L if you want to convert domain names. + +Punycode is an instance of a more general algorithm called Bootstring, which +allows strings composed from a small set of "basic" code points to uniquely +represent any string of code points drawn from a larger set. Punycode is +Bootstring with particular parameter values appropriate for IDNA. + +=head1 WARNING + +You may be tempted to use this module directly and add/remove the ACE prefix +(C) in your code for performance reasons. Usually, this is not a good +idea. If you convert domain labels (or other strings) without proper +preparation, you may end up with an ASCII encoding that is not interoperable or +even poses security issues due to spoofing. + +Even if you think that your domain names are valid and already mapped to the +correct form, this may not be true. For example, some environments might +automatically convert your perfectly valid domain names to a different but +equivalent Unicode normalization form (e.g., NFD instead of NFC), which already +breaks IDNA. + +=head1 FUNCTIONS + +No functions are exported by default. You can use the tag C<:all> +or import them individually. + +The following functions are available: + +=over + +=item encode_punycode($input) + +Encodes C<$input> with Punycode and returns the result. + +This function will throw an exception on invalid/unencodable input. + +=item decode_punycode($input) + +Decodes C<$input> with Punycode and returns the result. + +This function will throw an exception on invalid input. + +=back + +=head1 AUTHORS + +Tatsuhiko Miyagawa Emiyagawa@bulknews.netE (versions 0.01 to 0.02) + +Claus FErber ECFAERBER@cpan.orgE (versions 1.000 and higher) + +=head1 LICENSE + +Copyright 2002-2004 Tatsuhiko Miyagawa Emiyagawa@bulknews.netE + +Copyright 2007-2014 Claus FErber ECFAERBER@cpan.orgE + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself. + +=head1 SEE ALSO + +S (L), +L, L + +=cut diff --git a/lib/Net/IDN/Punycode.xs b/lib/Net/IDN/Punycode.xs new file mode 100644 index 0000000..44b9422 --- /dev/null +++ b/lib/Net/IDN/Punycode.xs @@ -0,0 +1,264 @@ +#include "EXTERN.h" +#include "perl.h" +#include "XSUB.h" + +#ifdef XS_VERSION +#undef XS_VERSION +#endif +#define XS_VERSION "1.102" + +#define BASE 36 +#define TMIN 1 +#define TMAX 26 +#define SKEW 38 +#define DAMP 700 +#define INITIAL_BIAS 72 +#define INITIAL_N 128 + +#define isBASE(x) UTF8_IS_INVARIANT((unsigned char)x) +#define DELIM '-' + +#define TMIN_MAX(t) (((t) < TMIN) ? (TMIN) : ((t) > TMAX) ? (TMAX) : (t)) + +#ifndef utf8_to_uvchr_buf +#define utf8_to_uvchr_buf(in_p,in_e,u8) utf8_to_uvchr(in_p,u8); +#endif + +static char enc_digit[BASE] = { + 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', + 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', + '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', +}; + +static IV dec_digit[0x80] = { + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 00..0F */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 10..1F */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 20..2F */ + 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, -1, -1, -1, -1, -1, -1, /* 30..3F */ + -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, /* 40..4F */ + 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, -1, -1, -1, -1, -1, /* 50..5F */ + -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, /* 60..6F */ + 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, -1, -1, -1, -1, -1, /* 70..7F */ +}; + +static int adapt(int delta, int numpoints, int first) { + int k; + + delta /= first ? DAMP : 2; + delta += delta/numpoints; + + for(k=0; delta > ((BASE-TMIN) * TMAX)/2; k += BASE) + delta /= BASE-TMIN; + + return k + (((BASE-TMIN+1) * delta) / (delta+SKEW)); +}; + +static void +grow_string(SV *const sv, char **start, char **current, char **end, STRLEN add) +{ + STRLEN len; + + if(*current + add <= *end) + return; + + len = (*current - *start); + *start = SvGROW(sv, (len + add + 15) & ~15); + *current = *start + len; + *end = *start + SvLEN(sv); +} + +MODULE = Net::IDN::Punycode PACKAGE = Net::IDN::Punycode + +SV* +encode_punycode(input) + SV * input + PREINIT: + UV c, m, n = INITIAL_N; + int k, q, t; + int bias = INITIAL_BIAS; + int delta = 0, skip_delta; + + const char *in_s, *in_p, *in_e, *skip_p; + char *re_s, *re_p, *re_e; + int first = 1; + STRLEN length_guess, len, h, u8; + + CODE: + in_s = in_p = SvPVutf8(input, len); + in_e = in_s + len; + + length_guess = len; + if(length_guess < 64) length_guess = 64; /* optimise for maximum length of domain names */ + length_guess += 2; /* plus DELIM + '\0' */ + + RETVAL = NEWSV('P',length_guess); + SvPOK_only(RETVAL); + re_s = re_p = SvPV_nolen(RETVAL); + re_e = re_s + SvLEN(RETVAL); + h = 0; + + /* copy basic code points */ + while(in_p < in_e) { + if( isBASE(*in_p) ) { + grow_string(RETVAL, &re_s, &re_p, &re_e, sizeof(char)); + *re_p++ = *in_p; + h++; + } + in_p++; + } + + /* add DELIM if needed */ + if(h) { + grow_string(RETVAL, &re_s, &re_p, &re_e, sizeof(char)); + *re_p++ = DELIM; + } + + for(;;) { + /* find smallest code point not yet handled */ + m = UV_MAX; + q = skip_delta = 0; + + for(in_p = skip_p = in_s; in_p < in_e;) { + c = utf8_to_uvchr_buf((U8*)in_p, (U8*)in_e, &u8); + c = NATIVE_TO_UNI(c); + + if(c >= n && c < m) { + m = c; + skip_p = in_p; + skip_delta = q; + } + if(c < n) + ++q; + in_p += u8; + } + if(m == UV_MAX) + break; + + /* increase delta to the state corresponding to + the m code point at the beginning of the string */ + delta += (m-n) * (h+1); + n = m; + + /* now find the chars to be encoded in this round */ + + delta += skip_delta; + for(in_p = skip_p; in_p < in_e;) { + c = utf8_to_uvchr_buf((U8*)in_p, (U8*)in_e, &u8); + c = NATIVE_TO_UNI(c); + + if(c < n) { + ++delta; + } else if( c == n ) { + q = delta; + + for(k = BASE;; k += BASE) { + t = TMIN_MAX(k - bias); + if(q < t) break; + grow_string(RETVAL, &re_s, &re_p, &re_e, sizeof(char)); + *re_p++ = enc_digit[t + ((q-t) % (BASE-t))]; + q = (q-t) / (BASE-t); + } + if(q > BASE) croak("input exceeds punycode limit"); + grow_string(RETVAL, &re_s, &re_p, &re_e, sizeof(char)); + *re_p++ = enc_digit[q]; + bias = adapt(delta, h+1, first); + delta = first = 0; + ++h; + } + in_p += u8; + } + ++delta; + ++n; + } + grow_string(RETVAL, &re_s, &re_p, &re_e, sizeof(char)); + *re_p = 0; + SvCUR_set(RETVAL, re_p - re_s); + OUTPUT: + RETVAL + +SV* +decode_punycode(input) + SV * input + PREINIT: + UV c, n = INITIAL_N; + IV dc; + int i = 0, oldi, j, k, t, w; + + int bias = INITIAL_BIAS; + int delta = 0, skip_delta; + + const char *in_s, *in_p, *in_e, *skip_p; + char *re_s, *re_p, *re_e; + int first = 1; + STRLEN length_guess, len, h, u8; + + CODE: + in_s = in_p = SvPV_nolen(input); + in_e = SvEND(input); + + length_guess = SvCUR(input) * 2; + if(length_guess < 256) length_guess = 256; + + RETVAL = NEWSV('D',length_guess); + SvPOK_only(RETVAL); + re_s = re_p = SvPV_nolen(RETVAL); + re_e = re_s + SvLEN(RETVAL); + + skip_p = NULL; + for(in_p = in_s; in_p < in_e; in_p++) { + c = *in_p; /* we don't care whether it's UTF-8 */ + if(!isBASE(c)) croak("non-base character in input for decode_punycode"); + if(c == DELIM) skip_p = in_p; + grow_string(RETVAL, &re_s, &re_p, &re_e, 1); + *re_p++ = c; /* copy it */ + } + + if(skip_p) { + h = skip_p - in_s; /* base chars handled */ + re_p = re_s + h; /* points to end of base chars */ + skip_p++; /* skip over DELIM */ + } else { + h = 0; /* no base chars */ + re_p = re_s; + skip_p = in_s; /* read everything */ + } + + for(in_p = skip_p; in_p < in_e; i++) { + oldi = i; + w = 1; + + for(k = BASE;; k+= BASE) { + if(!(in_p < in_e)) croak("incomplete encoded code point in decode_punycode"); + dc = dec_digit[*in_p++]; /* we already know it's in 0..127 */ + if(dc < 0) croak("invalid digit in input for decode_punycode"); + c = (UV)dc; + i += c * w; + t = TMIN_MAX(k - bias); + if(c < t) break; + w *= BASE-t; + } + h++; + bias = adapt(i-oldi, h, first); + first = 0; + n += i / h; /* code point n to insert */ + i = i % h; /* at position i */ + + u8 = UNISKIP(n); /* how many bytes we need */ + + j = i; + for(skip_p = re_s; j > 0; j--) /* find position in UTF-8 */ + skip_p+=UTF8SKIP(skip_p); + + grow_string(RETVAL, &re_s, &re_p, &re_e, u8); + if(skip_p < re_p) /* move succeeding chars */ + Move(skip_p, skip_p + u8, re_p - skip_p, char); + re_p += u8; + uvuni_to_utf8_flags((U8*)skip_p, n, UNICODE_ALLOW_ANY); + } + + if(!first) SvUTF8_on(RETVAL); /* UTF-8 chars have been inserted */ + grow_string(RETVAL, &re_s, &re_p, &re_e, 1); + *re_p = 0; + SvCUR_set(RETVAL, re_p - re_s); + OUTPUT: + RETVAL diff --git a/lib/Net/IDN/Punycode/PP.pm b/lib/Net/IDN/Punycode/PP.pm new file mode 100644 index 0000000..49e4780 --- /dev/null +++ b/lib/Net/IDN/Punycode/PP.pm @@ -0,0 +1,193 @@ +package Net::IDN::Punycode::PP; + +use 5.006; + +use strict; +use utf8; +use warnings; + +use Carp; +use Exporter; + +our $VERSION = "1.101"; + +our @ISA = qw(Exporter); +our @EXPORT = (); +our @EXPORT_OK = qw(encode_punycode decode_punycode); +our %EXPORT_TAGS = ( 'all' => \@EXPORT_OK ); + +use integer; + +use constant BASE => 36; +use constant TMIN => 1; +use constant TMAX => 26; +use constant SKEW => 38; +use constant DAMP => 700; +use constant INITIAL_BIAS => 72; +use constant INITIAL_N => 128; + +use constant UNICODE_MIN => 0; +use constant UNICODE_MAX => 0x10FFFF; + +my $Delimiter = chr 0x2D; +my $BasicRE = "\x00-\x7f"; +my $PunyRE = "A-Za-z0-9"; + +sub _adapt { + my($delta, $numpoints, $firsttime) = @_; + $delta = int($firsttime ? $delta / DAMP : $delta / 2); + $delta += int($delta / $numpoints); + my $k = 0; + while ($delta > int(((BASE - TMIN) * TMAX) / 2)) { + $delta /= BASE - TMIN; + $k += BASE; + } + return $k + (((BASE - TMIN + 1) * $delta) / ($delta + SKEW)); +} + +sub decode_punycode { + die("Usage: Net::IDN::Punycode::decode_punycode(input)") unless @_; + + my $input = shift; + + my $n = INITIAL_N; + my $i = 0; + my $bias = INITIAL_BIAS; + my @output; + + return undef unless defined $input; + return '' unless length $input; + + if($input =~ s/(.*)$Delimiter//os) { + my $base_chars = $1; + croak("non-base character in input for decode_punycode") + if $base_chars =~ m/[^$BasicRE]/os; + push @output, split //, $base_chars; + } + my $code = $input; + + croak('invalid digit in input for decode_punycode') if $code =~ m/[^$PunyRE]/os; + + utf8::downgrade($input); ## handling failure of downgrade is more expensive than + ## doing the above regexp w/ utf8 semantics + + while(length $code) + { + my $oldi = $i; + my $w = 1; + LOOP: + for (my $k = BASE; 1; $k += BASE) { + my $cp = substr($code, 0, 1, ''); + croak("incomplete encoded code point in decode_punycode") if !defined $cp; + my $digit = ord $cp; + + ## NB: this depends on the PunyRE catching invalid digit characters + ## before they turn up here + ## + $digit = $digit < 0x40 ? $digit + (26-0x30) : ($digit & 0x1f) -1; + + $i += $digit * $w; + my $t = $k - $bias; + $t = $t < TMIN ? TMIN : $t > TMAX ? TMAX : $t; + + last LOOP if $digit < $t; + $w *= (BASE - $t); + } + $bias = _adapt($i - $oldi, @output + 1, $oldi == 0); + $n += $i / (@output + 1); + $i = $i % (@output + 1); + croak('invalid code point') if $n < UNICODE_MIN or $n > UNICODE_MAX; + splice(@output, $i, 0, chr($n)); + $i++; + } + return join '', @output; +} + +sub encode_punycode { + die("Usage: Net::IDN::Punycode::encode_punycode(input)") unless @_; + + my $input = shift; + my $input_length = length $input; + + ## my $output = join '', $input =~ m/([$BasicRE]+)/og; ## slower + my $output = $input; $output =~ s/[^$BasicRE]+//ogs; + + my $h = my $bb = length $output; + $output .= $Delimiter if $bb > 0; + utf8::downgrade($output); ## no unnecessary use of utf8 semantics + + my @input = map ord, split //, $input; + my @chars = sort { $a<=> $b } grep { $_ >= INITIAL_N } @input; + + my $n = INITIAL_N; + my $delta = 0; + my $bias = INITIAL_BIAS; + + foreach my $m (@chars) { + next if $m < $n; + $delta += ($m - $n) * ($h + 1); + $n = $m; + for(my $i = 0; $i < $input_length; $i++) + { + my $c = $input[$i]; + $delta++ if $c < $n; + if ($c == $n) { + my $q = $delta; + LOOP: + for (my $k = BASE; 1; $k += BASE) { + my $t = $k - $bias; + $t = $t < TMIN ? TMIN : $t > TMAX ? TMAX : $t; + + last LOOP if $q < $t; + + my $o = $t + (($q - $t) % (BASE - $t)); + $output .= chr $o + ($o < 26 ? 0x61 : 0x30-26); + + $q = int(($q - $t) / (BASE - $t)); + } + croak("input exceeds punycode limit") if $q > BASE; + $output .= chr $q + ($q < 26 ? 0x61 : 0x30-26); + + $bias = _adapt($delta, $h + 1, $h == $bb); + $delta = 0; + $h++; + } + } + $delta++; + $n++; + } + return $output; +} + +1; +__END__ + +=head1 NAME + +Net::IDN::Punycode::PP - pure-perl implementation of Net::IDN::Punycode + +=head1 DESCRIPTION + +See L. + +=head1 AUTHORS + +Tatsuhiko Miyagawa Emiyagawa@bulknews.netE (versions 0.01 to 0.02) + +Claus FErber ECFAERBER@cpan.orgE (from version 1.00) + +=head1 LICENSE + +Copyright 2002-2004 Tatsuhiko Miyagawa Emiyagawa@bulknews.netE + +Copyright 2007-2010 Claus FErber ECFAERBER@cpan.orgE + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself. + +=head1 SEE ALSO + +S (L), +L, L + +=cut diff --git a/lib/Net/IDN/Standards.pod b/lib/Net/IDN/Standards.pod new file mode 100755 index 0000000..55fb07c --- /dev/null +++ b/lib/Net/IDN/Standards.pod @@ -0,0 +1,96 @@ +=encoding utf8 + +=head1 NAME + +Net::IDN::Standards -- Internationalized Domain Names for Applications (IDNA) + +=head1 INTRODUCTION + +Historically, domain names and host names were restricted to a +limited repertoire of ASCII characters, i.e. letters, digits and +the hyphen (i.e. C). Words and names from languages +that require additional characters (such as diacritics or special +characters) or other scripts could not be used. + +Internationalized Domain Names (IDNs) extend the character +repertoire for domain names from ASCII to Unicode while +maintaining backwards compatibility with software that only +expects and handles ASCII characters. + +In order to do so, Unicode domain names are converted to ASCII +using an ASCII-compatible encoding (ACE) called Punycode. On the +wire, converted domain names start with C, followed by the +ASCII encoding of the Unicode string. The Unicode version is +typically only shown in applications presenting the domain to the +user (hence Internationalized Domain Names for Applications, +IDNA). Internationalized Resource Identifiers (IRIs), the +Unicode version of URLs, may also include domain names in their +Unicode form. + +The IDNA specifications, however, do not only cover the actual +Punycode conversion but also include extensive rules for +preparation (mapping and/or validation) of input strings. They +typically define two functions, C and C, which +prepare and convert a domain name to the ACE version or the +Unicode version. + +=head1 DIFFERENT STANDARDS + + "The nice thing about standards is that you have so many to + choose from." + -- Andrew S. Tanenbaum + +While the actual Punycode conversion is stable, there are different +specifications regarding mapping and/or validation (preparation): + +=head2 IDNA2003 + +IDNA2003, which is defined in S +(L) and related documents, was +the original specification for the internationalization of domain +names. + +However, some issues were subsequently identified with IDNA2003: +The specification was tied to Unicode 3.2 and therefore did not +allow characters added in newer versions of Unicode (without +updating the specifications). + +Furthermore, a few characters were mapped to other characters or +deleted although they would carry meaning in some languages (i.e. +'ß' and 'ς' were mapped to 'ss' and 'σ'; ZWJ and ZWNJ were always +mapped to nothing, although some scripts like Arabic require them +for correct display). + +=head2 IDNA2008 + +IDNA2008, which is defined in S +(L) and related documents, resolves the +issues found in IDNA2003. + +This was done by allowing some characters that would either be +mapped to other characters, mapped to zero and/or cause the +preparation to fail. The new domain names would not be accessible +by IDNA2003 implementations, of course. + +However, IDNA2008 also disallowed a large number of characters +that had been allowed in IDNA2003 (mostly symbols). An +implementation of IDNA2008 would therefore no longer be able to +access domain names such as C<√.com>, which had been registered +under IDNA2003. + +=head2 UTS #46 + +Unicode Technical Standard #46 (UTS #46, +L) solves this problem by +allowing domain names that are valid in either IDNA2003 or +IDNA2008. + +This makes UTS #46 the perfect fit for domain lookup (be liberal +in what you accept) but unsuitable for validating domain names +prior to registration (be conservative in what you send). + +=head1 AUTHOR + +Claus FErber + +=cut diff --git a/lib/Net/IDN/UTS46.pm b/lib/Net/IDN/UTS46.pm new file mode 100644 index 0000000..21c48b9 --- /dev/null +++ b/lib/Net/IDN/UTS46.pm @@ -0,0 +1,442 @@ +package Net::IDN::UTS46; + +require 5.008005; # Unicode BiDi classes + +use strict; +use utf8; +use warnings; + +use Carp; + +our $VERSION = "1.001"; +$VERSION = eval $VERSION; + +our @ISA = ('Exporter'); +our @EXPORT = (); +our @EXPORT_OK = ('uts46_to_ascii', 'uts46_to_unicode'); +our %EXPORT_TAGS = ( 'all' => \@EXPORT_OK ); + +use Unicode::Normalize (); + +use Net::IDN::Punycode 1.1 (':all'); +use Net::IDN::Encode 2.100 (':_var'); +use Net::IDN::UTS46::_Mapping 5.002 ('/^(Is|Map).*/'); # UTS #46 is only defined from Unicode 5.2.0 + +sub uts46_to_unicode { + my ($label, %param) = @_; + croak "Transitional processing is not defined for ToUnicode" if $param{'TransitionalProcessing'}; + + splice @_, 1, 0, undef; + goto &_process; +} + +sub uts46_to_ascii { + my ($label, %param) = @_; + + splice @_, 1, 0, sub { + local $_ = shift; + if(m/\P{ASCII}/) { + eval { $_ = $IDNA_PREFIX . encode_punycode($_) }; + croak "$@ [A3]" if $@; + } + return $_; + }; + goto &_process; +} + +*to_unicode = \&uts46_to_unicode; +*to_ascii = \&uts46_to_ascii; + +sub _process { + my ($label, $to_ascii, %param) = @_; + no warnings 'utf8'; + croak "The following parameter is invalid: $_" + foreach(grep { !m/^(?:TransitionalProcessing|UseSTD3ASCIIRules|AllowUnassigned)$/ } keys %param); + + $param{'TransitionalProcessing'} = 0 unless exists $param{'TransitionalProcessing'}; + $param{'UseSTD3ASCIIRules'} = 1 unless exists $param{'UseSTD3ASCIIRules'}; + $param{'AllowUnassigned'} = 0 unless exists $param{'AllowUnassigned'}; + +# 1. Map +# - disallowed +# + if($param{'AllowUnassigned'}) { + $label =~ m/^(\P{IsDisallowed}}|\P{Assigned})*$/ and croak sprintf('disallowed character U+%04X', ord($1)); + } else { + $label =~ m/(\p{IsDisallowed})/ and croak sprintf('disallowed character U+%04X', ord($1)); + $label =~ m/(\P{Assigned})/ and croak sprintf('unassigned character U+%04X (in this version of perl)', ord($1)); + } + + if($param{'UseSTD3ASCIIRules'}) { + $label =~ m/(\p{IsDisallowedSTD3Valid})/ and croak sprintf('disallowed_STD3_valid character U+%04X', ord($1)); + $label =~ m/(\p{IsDisallowedSTD3Mapped})/ and croak sprintf('disallowed_STD3_mapped character U+%04X', ord($1)); + }; + +# - ignored +# + $label = MapIgnored($label); + ## $label = MapDisallowedSTD3Ignored($label) if(!$param{'UseSTD3ASCIIRules'}); + +# - mapped +# + $label = MapMapped($label); + $label = MapDisallowedSTD3Mapped($label) if(!$param{'UseSTD3ASCIIRules'}); + +# - deviation + $label = MapDeviation($label) if($param{'TransitionalProcessing'}); + +# 2. Normalize +# + $label = Unicode::Normalize::NFC($label); + +# 3. Break +# + my @ll = split /\./, $label, -1; + + ## Note: leading dots must be ignored (IDNA test vectors) + ## + shift @ll while @ll and (length $ll[0] <= 0); + + ## IDNA test vectors: an empty label at the end (separating the root domain + ## "", if present) must be preserved. It is not checked for + ## the minumum length criteria and the dot separting it is + ## not included in the maximum length of the domain. + ## + my $rooted = @ll && length($ll[$#ll]) < 1; pop @ll if $rooted; + +# 4. Convert/Validate +# + foreach my $l (@ll) { + if($l =~ m/^(?:(?i)$IDNA_PREFIX)(\p{ASCII}+)$/o) { + eval { $l = decode_punycode($1); }; + croak 'Invalid Punycode sequence [P4]' if $@; + + _validate_label($l, %param, + 'TransitionalProcessing' => 0, + 'AllowUnassigned' => 0, ## keep the Punycode version + ) unless $@; + } else { + _validate_label($l,%param,'_AssumeNFC' => 1); + } + + _validate_bidi($l,%param); + _validate_contextj($l,%param); + + if(defined $to_ascii) { + $l = $to_ascii->($l, %param); + } + + ## IDNA test vectors: labels have to be checked for the minimum length of 1 (but not for the + ## maximum length of 63) even in to_unicode. + ## + croak "empty label [A4_2]" if length($l) < 1; + croak "label too long [A4_2]" if length($l) > 63 and defined $to_ascii; + } + + my $domain = join('.', @ll); + + ## IDNA test vectors: domains have to be checked for the minimum length of 1 (but not for the + ## maximum length of 253 excluding a final dot) even in to_unicode. + ## + croak "empty domain name [A4_1]" if length($domain) < 1; + croak "domain name too long [A4_1]" if length($domain) > 253 and defined $to_ascii; + + $domain .= '.' if $rooted; + + return $domain; +} + +sub _validate_label { + my($l,%param) = @_; + no warnings 'utf8'; + + $l eq Unicode::Normalize::NFC($l) or croak "not in Unicode Normalization Form NFC [V1]" unless $param{'_AssumeNFC'}; + + $l =~ m/^..--/ and croak "contains U+002D HYPHEN-MINUS in both third and forth position [V2]"; + $l =~ m/^-/ and croak "begins with U+002D HYPHEN-MINUS [V3]"; + $l =~ m/-$/ and croak "ends with U+002D HYPHEN-MINUS [V3]"; + $l =~ m/\./ and croak "contains U+0023 FULL STOP [V4]"; + $l =~ m/^\p{IsMark}/ and croak "begins with General_Category=Mark [V5]"; + + unless($param{'AllowUnassigned'}) { + $l =~m/(\p{Unassigned})/ and croak sprintf "contains unassigned character U+%04X [V6]", ord $1; + } + + if($param{'UseSTD3ASCIIRules'}) { + $l =~m/(\p{IsDisallowedSTD3Valid})/ and croak sprintf "contains disallowed_STD3_valid character U+%04X [V6]", ord $1; + } + + if($param{'TransitionalProcessing'}) { + $l =~m/(\p{IsDeviation})/ and croak sprintf "contains deviation character U+%04X [V6]", ord $1; + } + + $l =~ m/(\p{IsDisallowed})/ and croak sprintf "contains disallowed character U+%04X [V6]", ord $1; + + return 1; +} + +sub _validate_bidi { + my($l,%param) = @_; + no warnings 'utf8'; + + ## IDNA test vectors: _labels_ that don't contain RTL characters are skipped + ## (RFC 5893 mandates checks for _all_ labels if the + ## _domain_ contains RTL characters in any label) + return 1 unless length($l); + return 1 unless $l =~ m/[\p{Bc:R}\p{Bc:AL}\p{Bc:AN}]/; + + + ## IDNA test vectors: LTR labels may start with "neutral" characters of + ## BidiClass NSM or EN (RFC 5893 says LTR labels must + ## start with BidiClass L) + ## + if( $l =~ m/^[\p{Bc:NSM}\p{Bc:EN}]*\p{Bc:L}/ ) { # LTR (left-to-right) + $l =~ m/[^\p{Bc:L}\p{Bc:EN}\p{Bc:ES}\p{Bc:CS}\p{Bc:ET}\p{Bc:BN}\p{Bc:ON}\p{Bc:NSM}]/ and croak 'contains characters with wrong bidi class for LTR [B5]'; + $l =~ m/[\p{Bc:L}\p{Bc:EN}][\p{Bc:NSM}\P{Assigned}]*$/ or croak 'ends with character of wrong bidi class for LTR [B6]'; + return 1; + } + + if( $l =~ m/^[\p{Bc:R}\p{Bc:AL}]/ ) { # RTL (right-to-left) + $l =~ m/[^\p{Bc:R}\p{Bc:AL}\p{Bc:AN}\p{Bc:EN}\p{Bc:ES}\p{Bc:CS}\p{Bc:ET}\p{Bc:ON}\p{Bc:BN}\p{Bc:NSM}]/ and croak 'contains characters with wrong bidi class for RTL [B2]'; + $l =~ m/[\p{Bc:R}\p{Bc:AL}\p{Bc:EN}\p{Bc:AN}][\p{Bc:NSM}\P{Assigned}]*$/ or croak 'ends with character of wrong bidi class for RTL [B3]'; + $l =~ m/\p{Bc:EN}.*\p{Bc:AN}|\p{Bc:AN}.*\p{Bc:EN}/ and croak 'contains characters with both bidi class EN and AN [B4]'; + return 1; + } + + croak 'starts with character of wrong bidi class [B1]'; +} + +# For perl versions < 5.11, we use a conrete list of characters; this is safe +# because the Unicode version supported by theses perl versions will not be +# updated. For newer perl versions, we use the Unicode property (which is +# supported from 5.11), so we will always be up-to-date with the Unicode +# version supported by our underlying perl. +# +my $_RE_Ccc_Virama = $] >= 5.011 ? qr/\p{Ccc:Virama}/ : qr/[\x{094D}\x{09CD}\x{0A4D}\x{0ACD}\x{0B4D}\x{0BCD}\x{0C4D}\x{0CCD}\x{0D4D}\x{0DCA}\x{0E3A}\x{0F84}\x{1039}\x{103A}\x{1714}\x{1734}\x{17D2}\x{1A60}\x{1B44}\x{1BAA}\x{1BF2}\x{1BF3}\x{2D7F}\x{A806}\x{A8C4}\x{A953}\x{A9C0}\x{ABED}\x{00010A3F}\x{00011046}\x{000110B9}]/; +my $_RE_JoiningType_L = $] >= 5.011 ? qr/\p{Joining_Type:L}/ : qr/(?!)/; +my $_RE_JoiningType_R = $] >= 5.011 ? qr/\p{Joining_Type:R}/ : qr/[\x{0622}-\x{0625}\x{0627}\x{0629}\x{062F}-\x{0632}\x{0648}\x{0671}-\x{0673}\x{0675}-\x{0677}\x{0688}-\x{0699}\x{06C0}\x{06C3}-\x{06CB}\x{06CD}\x{06CF}\x{06D2}\x{06D3}\x{06D5}\x{06EE}\x{06EF}\x{0710}\x{0715}-\x{0719}\x{071E}\x{0728}\x{072A}\x{072C}\x{072F}\x{074D}\x{0759}-\x{075B}\x{076B}\x{076C}\x{0771}\x{0773}\x{0774}\x{0778}\x{0779}]/; +my $_RE_JoiningType_D = $] >= 5.011 ? qr/\p{Joining_Type:D}/ : qr/[\x{0620}\x{0626}\x{0628}\x{062A}-\x{062E}\x{0633}-\x{063F}\x{0641}-\x{0647}\x{0649}\x{064A}\x{066E}\x{066F}\x{0678}-\x{0687}\x{069A}-\x{06BF}\x{06C1}\x{06C2}\x{06CC}\x{06CE}\x{06D0}\x{06D1}\x{06FA}-\x{06FC}\x{06FF}\x{0712}-\x{0714}\x{071A}-\x{071D}\x{071F}-\x{0727}\x{0729}\x{072B}\x{072D}\x{072E}\x{074E}-\x{0758}\x{075C}-\x{076A}\x{076D}-\x{0770}\x{0772}\x{0775}-\x{0777}\x{077A}-\x{077F}\x{07CA}-\x{07EA}]/; +my $_RE_JoiningType_T = $] >= 5.011 ? qr/\p{Joining_Type:T}/ : qr/[\x{00AD}\x{0300}-\x{036F}\x{0483}-\x{0489}\x{0591}-\x{05BD}\x{05BF}\x{05C1}\x{05C2}\x{05C4}\x{05C5}\x{05C7}\x{0610}-\x{061A}\x{064B}-\x{065F}\x{0670}\x{06D6}-\x{06DC}\x{06DF}-\x{06E4}\x{06E7}\x{06E8}\x{06EA}-\x{06ED}\x{070F}\x{0711}\x{0730}-\x{074A}\x{07A6}-\x{07B0}\x{07EB}-\x{07F3}\x{0816}-\x{0819}\x{081B}-\x{0823}\x{0825}-\x{0827}\x{0829}-\x{082D}\x{0859}-\x{085B}\x{0900}-\x{0902}\x{093A}\x{093C}\x{0941}-\x{0948}\x{094D}\x{0951}-\x{0957}\x{0962}\x{0963}\x{0981}\x{09BC}\x{09C1}-\x{09C4}\x{09CD}\x{09E2}\x{09E3}\x{0A01}\x{0A02}\x{0A3C}\x{0A41}\x{0A42}\x{0A47}\x{0A48}\x{0A4B}-\x{0A4D}\x{0A51}\x{0A70}\x{0A71}\x{0A75}\x{0A81}\x{0A82}\x{0ABC}\x{0AC1}-\x{0AC5}\x{0AC7}\x{0AC8}\x{0ACD}\x{0AE2}\x{0AE3}\x{0B01}\x{0B3C}\x{0B3F}\x{0B41}-\x{0B44}\x{0B4D}\x{0B56}\x{0B62}\x{0B63}\x{0B82}\x{0BC0}\x{0BCD}\x{0C3E}-\x{0C40}\x{0C46}-\x{0C48}\x{0C4A}-\x{0C4D}\x{0C55}\x{0C56}\x{0C62}\x{0C63}\x{0CBC}\x{0CBF}\x{0CC6}\x{0CCC}\x{0CCD}\x{0CE2}\x{0CE3}\x{0D41}-\x{0D44}\x{0D4D}\x{0D62}\x{0D63}\x{0DCA}\x{0DD2}-\x{0DD4}\x{0DD6}\x{0E31}\x{0E34}-\x{0E3A}\x{0E47}-\x{0E4E}\x{0EB1}\x{0EB4}-\x{0EB9}\x{0EBB}\x{0EBC}\x{0EC8}-\x{0ECD}\x{0F18}\x{0F19}\x{0F35}\x{0F37}\x{0F39}\x{0F71}-\x{0F7E}\x{0F80}-\x{0F84}\x{0F86}\x{0F87}\x{0F8D}-\x{0F97}\x{0F99}-\x{0FBC}\x{0FC6}\x{102D}-\x{1030}\x{1032}-\x{1037}\x{1039}\x{103A}\x{103D}\x{103E}\x{1058}\x{1059}\x{105E}-\x{1060}\x{1071}-\x{1074}\x{1082}\x{1085}\x{1086}\x{108D}\x{109D}\x{135D}-\x{135F}\x{1712}-\x{1714}\x{1732}-\x{1734}\x{1752}\x{1753}\x{1772}\x{1773}\x{17B4}\x{17B5}\x{17B7}-\x{17BD}\x{17C6}\x{17C9}-\x{17D3}\x{17DD}\x{180B}-\x{180D}\x{18A9}\x{1920}-\x{1922}\x{1927}\x{1928}\x{1932}\x{1939}-\x{193B}\x{1A17}\x{1A18}\x{1A56}\x{1A58}-\x{1A5E}\x{1A60}\x{1A62}\x{1A65}-\x{1A6C}\x{1A73}-\x{1A7C}\x{1A7F}\x{1B00}-\x{1B03}\x{1B34}\x{1B36}-\x{1B3A}\x{1B3C}\x{1B42}\x{1B6B}-\x{1B73}\x{1B80}\x{1B81}\x{1BA2}-\x{1BA5}\x{1BA8}\x{1BA9}\x{1BE6}\x{1BE8}\x{1BE9}\x{1BED}\x{1BEF}-\x{1BF1}\x{1C2C}-\x{1C33}\x{1C36}\x{1C37}\x{1CD0}-\x{1CD2}\x{1CD4}-\x{1CE0}\x{1CE2}-\x{1CE8}\x{1CED}\x{1DC0}-\x{1DE6}\x{1DFC}-\x{1DFF}\x{200B}\x{200E}\x{200F}\x{202A}-\x{202E}\x{2060}-\x{2064}\x{206A}-\x{206F}\x{20D0}-\x{20F0}\x{2CEF}-\x{2CF1}\x{2D7F}\x{2DE0}-\x{2DFF}\x{302A}-\x{302F}\x{3099}\x{309A}\x{A66F}-\x{A672}\x{A67C}\x{A67D}\x{A6F0}\x{A6F1}\x{A802}\x{A806}\x{A80B}\x{A825}\x{A826}\x{A8C4}\x{A8E0}-\x{A8F1}\x{A926}-\x{A92D}\x{A947}-\x{A951}\x{A980}-\x{A982}\x{A9B3}\x{A9B6}-\x{A9B9}\x{A9BC}\x{AA29}-\x{AA2E}\x{AA31}\x{AA32}\x{AA35}\x{AA36}\x{AA43}\x{AA4C}\x{AAB0}\x{AAB2}-\x{AAB4}\x{AAB7}\x{AAB8}\x{AABE}\x{AABF}\x{AAC1}\x{ABE5}\x{ABE8}\x{ABED}\x{FB1E}\x{FE00}-\x{FE0F}\x{FE20}-\x{FE26}\x{FEFF}\x{FFF9}-\x{FFFB}\x{101FD}\x{10A01}-\x{10A03}\x{10A05}\x{10A06}\x{10A0C}-\x{10A0F}\x{10A38}-\x{10A3A}\x{10A3F}\x{11001}\x{11038}-\x{11046}\x{11080}\x{11081}\x{110B3}-\x{110B6}\x{110B9}\x{110BA}\x{110BD}\x{1D167}-\x{1D169}\x{1D173}-\x{1D182}\x{1D185}-\x{1D18B}\x{1D1AA}-\x{1D1AD}\x{1D242}-\x{1D244}\x{E0001}\x{E0020}-\x{E007F}\x{E0100}-\x{E01EF}]/; + +sub _validate_contextj { + my($l,%param) = @_; + no warnings 'utf8'; + return 1 unless defined($l) && length($l); + +# catch ContextJ characters without defined rule (as of Unicode 6.0.0, this cannot match) +# + $l =~ m/([^\x{200C}\x{200D}\P{Join_Control}])/ and croak sprintf "contains CONTEXTJ character U+%04X without defined rule [C1]", ord($1); + +# RFC 5892, Appendix A.1. ZERO WIDTH NON-JOINER +# Code point: +# U+200C +# +# Overview: +# This may occur in a formally cursive script (such as Arabic) in a +# context where it breaks a cursive connection as required for +# orthographic rules, as in the Persian language, for example. It +# also may occur in Indic scripts in a consonant-conjunct context +# (immediately following a virama), to control required display of +# such conjuncts. +# +# +# Lookup: +# True +# +# Rule Set: +# False; +# If Canonical_Combining_Class(Before(cp)) .eq. Virama Then True; +# If RegExpMatch((Joining_Type:{L,D})(Joining_Type:T)*\u200C +# (Joining_Type:T)*(Joining_Type:{R,D})) Then True; + + $l =~ m/ + $_RE_Ccc_Virama + \x{200C} + | + (?: $_RE_JoiningType_L | $_RE_JoiningType_D) $_RE_JoiningType_T* + \x{200C} + $_RE_JoiningType_T*(?: $_RE_JoiningType_R | $_RE_JoiningType_D) + | + (\x{200C}) + /xo and defined($1) and croak sprintf "rule for CONTEXTJ character U+%04X not satisfied [C2]", ord($1); + +# RFC 5892, Appendix A.2. ZERO WIDTH JOINER +# +# Code point: +# U+200D +# +# Overview: +# This may occur in Indic scripts in a consonant-conjunct context +# (immediately following a virama), to control required display of +# such conjuncts. +# +# Lookup: +# True + +# Rule Set: +# False; +# If Canonical_Combining_Class(Before(cp)) .eq. Virama Then True; + + $l =~ m/ + $_RE_Ccc_Virama + \x{200D} + | + (\x{200D}) + /xo and defined($1) and croak sprintf "rule for CONTEXTJ character U+%04X not satisfied [C2]", ord($1); +} + +1; + +__END__ + +=encoding utf8 + +=head1 NAME + +Net::IDN::UTS46 - Unicode IDNA Compatibility Processing (S) + +=head1 SYNOPSIS + + use Net::IDN:: ':all'; + my $a = uts46_to_ascii("müller.example.org"); + my $b = Net::IDN::UTS46::to_unicode('EXAMPLE.XN--11B5BS3A9AJ6G'); + + $domain =~ m/\P{Net::IDN::UTS46::IsDisallowed} and die 'oops'; + +=head1 DESCRIPTION + +This module implements the Unicode Technical Standard #46 (Unicode IDNA +Compatibility Processing). UTS #46 is one variant of Internationalized Domain +Names (IDN), which aims to be compatible with domain names registered under +either IDNA2003 or IDNA2008. + +You should use this module if you want an exact implementation of the UTS #46 +specification. + +However, if you just want to convert domain names and don't care which standard +is used internally, you should use L instead. + +=head1 FUNCTIONS + +By default, this module does not export any subroutines. You may use the +C<:all> tag to import everything. + +You can omit the C<'uts46_'> prefix when accessing the functions with a +full-qualified module name (e.g. you can access C as +C or C. + +The following functions are available: + +=over + +=item uts46_to_ascii( $domain, %param ) + +Implements the "ToASCII" function from UTS #46, section 4.2. It converts a domain name to +ASCII and throws an exception on invalid input. + +This function takes the following optional parameters (C<%param>): + +=over + +=item AllowUnassigned + +(boolean) If set to a true value, unassigned code points in the label are +allowed. This is an extension over UTS #46. + +The default is false. + +=item UseSTD3ASCIIRules + +(boolean) If set to a true value, checks the label for compliance with S +(S) syntax for host name parts. + +The default is true. + +=item TransitionalProcessing + +(boolean) If set to true, the conversion will be compatible with IDNA2003. This +only affects four characters: C<'ß'> (U+00DF), 'ς' (U+03C2), ZWJ (U+200D) and +ZWNJ (U+200C). Usually, you will want to set this to false. + +The default is false. + +=back + +=item uts46_to_unicode( $label, %param ) + +Implements the "ToUnicode" function from UTS #46, section 4.3. It converts a domain name to +Unicode and throws an exception on invalid input. + +This function takes the following optional parameters (C<%param>): + +=over + +=item AllowUnassigned + + see above. + +=item UseSTD3ASCIIRules + + see above. + +=item TransitionalProcessing + +(boolean) If given, this parameter must be false. The UTS #46 specification +does not define transitional processing for ToUnicode. + +=back + +=back + +=head1 UNICODE CHARACTER PROPERTIES + +This module also defines the character properties listed below. + +Each character has exactly one of the following properties: + +=over + +=item C<\p{Net::IDN::UTS46::IsValid}> + +The code point is valid, and not modified (i.e. a deviation character) in UTS #46. + +=item C<\p{Net::IDN::UTS46::IsIgnored}> + +The code point is removed (i.e. mapped to an empty string) in UTS #46. + +=item C<\p{Net::IDN::UTS46::IsMapped}> + +The code point is replaced by another string in UTS #46. + +=item C<\p{Net::IDN::UTS46::IsDeviation}> + +The code point is either mapped or valid, depending on whether the processing is transitional or not. + +=item C<\p{Net::IDN::UTS46::IsDisallowed}> + +The code point is not allowed in UTS #46. + +=item C<\p{Net::IDN::UTS46::IsDisallowedSTD3Ignored}> + +The code point is not allowed in UTS #46 if C are used but would be ignored otherwise. + +=item C<\p{Net::IDN::UTS46::IsDisallowedSTD3Mapped}> + +The code point is not allowed in UTS #46 if C are used but would be mapped otherwise. + +=back + +=head1 AUTHOR + +Claus FErber + +=head1 LICENSE + +Copyright 2011-2014 Claus FErber. + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself. + +=head1 SEE ALSO + +L, L, S (L) diff --git a/lib/Net/IDN/UTS46/_Mapping.pm b/lib/Net/IDN/UTS46/_Mapping.pm new file mode 100644 index 0000000..ea96dcb --- /dev/null +++ b/lib/Net/IDN/UTS46/_Mapping.pm @@ -0,0 +1,1240 @@ +# *** DO NOT EDIT *** generated file *** DO NOT EDIT *** +# +# generated by lib/Net/IDN/UTS46/_Mapping.PL from data/IdnaMappingTable.txt +# see repository at http://github.com/cfaerber/Net-IDN-Encode for source files +# +package Net::IDN::UTS46::_Mapping; + +require 5.006; + +use strict; +use utf8; +use warnings; + +our $VERSION = 9.000_000_000; + +our $UNICODE_VERSION = 9.000_000; +our $UNICODE_DATE = "20160616"; +our @ISA = qw(Exporter); +our @EXPORT = (); +our @EXPORT_OK = qw(IsDeviation IsDisallowed IsDisallowedSTD3Mapped IsDisallowedSTD3Valid IsIgnored IsMapped IsValid MapDeviation MapDisallowedSTD3Mapped MapIgnored MapMapped); + +sub _mk_prop { + my @ll; while( my(@c) = splice(@_,0,2) ) { + push @ll, join ' ', map { sprintf "%04X", $_ } grep { defined $_ } @c; + } + return join "\n", @ll; +} + +1; + +our @DISALLOWED = ( + 0x0080, 0x009F, 0x0378, 0x0379, 0x0380, 0x0383, 0x038B, undef, 0x038D, undef, 0x03A2, undef, 0x04C0, undef, 0x0530, undef, + 0x0557, 0x0558, 0x0560, undef, 0x0588, undef, 0x058B, 0x058C, 0x0590, undef, 0x05C8, 0x05CF, 0x05EB, 0x05EF, 0x05F5, 0x0605, + 0x061C, 0x061D, 0x06DD, undef, 0x070E, 0x070F, 0x074B, 0x074C, 0x07B2, 0x07BF, 0x07FB, 0x07FF, 0x082E, 0x082F, 0x083F, undef, + 0x085C, 0x085D, 0x085F, 0x089F, 0x08B5, undef, 0x08BE, 0x08D3, 0x08E2, undef, 0x0984, undef, 0x098D, 0x098E, 0x0991, 0x0992, + 0x09A9, undef, 0x09B1, undef, 0x09B3, 0x09B5, 0x09BA, 0x09BB, 0x09C5, 0x09C6, 0x09C9, 0x09CA, 0x09CF, 0x09D6, 0x09D8, 0x09DB, + 0x09DE, undef, 0x09E4, 0x09E5, 0x09FC, 0x0A00, 0x0A04, undef, 0x0A0B, 0x0A0E, 0x0A11, 0x0A12, 0x0A29, undef, 0x0A31, undef, + 0x0A34, undef, 0x0A37, undef, 0x0A3A, 0x0A3B, 0x0A3D, undef, 0x0A43, 0x0A46, 0x0A49, 0x0A4A, 0x0A4E, 0x0A50, 0x0A52, 0x0A58, + 0x0A5D, undef, 0x0A5F, 0x0A65, 0x0A76, 0x0A80, 0x0A84, undef, 0x0A8E, undef, 0x0A92, undef, 0x0AA9, undef, 0x0AB1, undef, + 0x0AB4, undef, 0x0ABA, 0x0ABB, 0x0AC6, undef, 0x0ACA, undef, 0x0ACE, 0x0ACF, 0x0AD1, 0x0ADF, 0x0AE4, 0x0AE5, 0x0AF2, 0x0AF8, + 0x0AFA, 0x0B00, 0x0B04, undef, 0x0B0D, 0x0B0E, 0x0B11, 0x0B12, 0x0B29, undef, 0x0B31, undef, 0x0B34, undef, 0x0B3A, 0x0B3B, + 0x0B45, 0x0B46, 0x0B49, 0x0B4A, 0x0B4E, 0x0B55, 0x0B58, 0x0B5B, 0x0B5E, undef, 0x0B64, 0x0B65, 0x0B78, 0x0B81, 0x0B84, undef, + 0x0B8B, 0x0B8D, 0x0B91, undef, 0x0B96, 0x0B98, 0x0B9B, undef, 0x0B9D, undef, 0x0BA0, 0x0BA2, 0x0BA5, 0x0BA7, 0x0BAB, 0x0BAD, + 0x0BBA, 0x0BBD, 0x0BC3, 0x0BC5, 0x0BC9, undef, 0x0BCE, 0x0BCF, 0x0BD1, 0x0BD6, 0x0BD8, 0x0BE5, 0x0BFB, 0x0BFF, 0x0C04, undef, + 0x0C0D, undef, 0x0C11, undef, 0x0C29, undef, 0x0C3A, 0x0C3C, 0x0C45, undef, 0x0C49, undef, 0x0C4E, 0x0C54, 0x0C57, undef, + 0x0C5B, 0x0C5F, 0x0C64, 0x0C65, 0x0C70, 0x0C77, 0x0C84, undef, 0x0C8D, undef, 0x0C91, undef, 0x0CA9, undef, 0x0CB4, undef, + 0x0CBA, 0x0CBB, 0x0CC5, undef, 0x0CC9, undef, 0x0CCE, 0x0CD4, 0x0CD7, 0x0CDD, 0x0CDF, undef, 0x0CE4, 0x0CE5, 0x0CF0, undef, + 0x0CF3, 0x0D00, 0x0D04, undef, 0x0D0D, undef, 0x0D11, undef, 0x0D3B, 0x0D3C, 0x0D45, undef, 0x0D49, undef, 0x0D50, 0x0D53, + 0x0D64, 0x0D65, 0x0D80, 0x0D81, 0x0D84, undef, 0x0D97, 0x0D99, 0x0DB2, undef, 0x0DBC, undef, 0x0DBE, 0x0DBF, 0x0DC7, 0x0DC9, + 0x0DCB, 0x0DCE, 0x0DD5, undef, 0x0DD7, undef, 0x0DE0, 0x0DE5, 0x0DF0, 0x0DF1, 0x0DF5, 0x0E00, 0x0E3B, 0x0E3E, 0x0E5C, 0x0E80, + 0x0E83, undef, 0x0E85, 0x0E86, 0x0E89, undef, 0x0E8B, 0x0E8C, 0x0E8E, 0x0E93, 0x0E98, undef, 0x0EA0, undef, 0x0EA4, undef, + 0x0EA6, undef, 0x0EA8, 0x0EA9, 0x0EAC, undef, 0x0EBA, undef, 0x0EBE, 0x0EBF, 0x0EC5, undef, 0x0EC7, undef, 0x0ECE, 0x0ECF, + 0x0EDA, 0x0EDB, 0x0EE0, 0x0EFF, 0x0F48, undef, 0x0F6D, 0x0F70, 0x0F98, undef, 0x0FBD, undef, 0x0FCD, undef, 0x0FDB, 0x0FFF, + 0x10A0, 0x10C6, 0x10C8, 0x10CC, 0x10CE, 0x10CF, 0x115F, 0x1160, 0x1249, undef, 0x124E, 0x124F, 0x1257, undef, 0x1259, undef, + 0x125E, 0x125F, 0x1289, undef, 0x128E, 0x128F, 0x12B1, undef, 0x12B6, 0x12B7, 0x12BF, undef, 0x12C1, undef, 0x12C6, 0x12C7, + 0x12D7, undef, 0x1311, undef, 0x1316, 0x1317, 0x135B, 0x135C, 0x137D, 0x137F, 0x139A, 0x139F, 0x13F6, 0x13F7, 0x13FE, 0x13FF, + 0x1680, undef, 0x169D, 0x169F, 0x16F9, 0x16FF, 0x170D, undef, 0x1715, 0x171F, 0x1737, 0x173F, 0x1754, 0x175F, 0x176D, undef, + 0x1771, undef, 0x1774, 0x177F, 0x17B4, 0x17B5, 0x17DE, 0x17DF, 0x17EA, 0x17EF, 0x17FA, 0x17FF, 0x1806, undef, 0x180E, 0x180F, + 0x181A, 0x181F, 0x1878, 0x187F, 0x18AB, 0x18AF, 0x18F6, 0x18FF, 0x191F, undef, 0x192C, 0x192F, 0x193C, 0x193F, 0x1941, 0x1943, + 0x196E, 0x196F, 0x1975, 0x197F, 0x19AC, 0x19AF, 0x19CA, 0x19CF, 0x19DB, 0x19DD, 0x1A1C, 0x1A1D, 0x1A5F, undef, 0x1A7D, 0x1A7E, + 0x1A8A, 0x1A8F, 0x1A9A, 0x1A9F, 0x1AAE, 0x1AAF, 0x1ABF, 0x1AFF, 0x1B4C, 0x1B4F, 0x1B7D, 0x1B7F, 0x1BF4, 0x1BFB, 0x1C38, 0x1C3A, + 0x1C4A, 0x1C4C, 0x1C89, 0x1CBF, 0x1CC8, 0x1CCF, 0x1CF7, undef, 0x1CFA, 0x1CFF, 0x1DF6, 0x1DFA, 0x1F16, 0x1F17, 0x1F1E, 0x1F1F, + 0x1F46, 0x1F47, 0x1F4E, 0x1F4F, 0x1F58, undef, 0x1F5A, undef, 0x1F5C, undef, 0x1F5E, undef, 0x1F7E, 0x1F7F, 0x1FB5, undef, + 0x1FC5, undef, 0x1FD4, 0x1FD5, 0x1FDC, undef, 0x1FF0, 0x1FF1, 0x1FF5, undef, 0x1FFF, undef, 0x200E, 0x200F, 0x2024, 0x2026, + 0x2028, 0x202E, 0x2061, 0x2063, 0x2065, 0x206F, 0x2072, 0x2073, 0x208F, undef, 0x209D, 0x209F, 0x20BF, 0x20CF, 0x20F1, 0x20FF, + 0x2132, undef, 0x2183, undef, 0x218C, 0x218F, 0x23FF, undef, 0x2427, 0x243F, 0x244B, 0x245F, 0x2488, 0x249B, 0x2B74, 0x2B75, + 0x2B96, 0x2B97, 0x2BBA, 0x2BBC, 0x2BC9, undef, 0x2BD2, 0x2BEB, 0x2BF0, 0x2BFF, 0x2C2F, undef, 0x2C5F, undef, 0x2CF4, 0x2CF8, + 0x2D26, undef, 0x2D28, 0x2D2C, 0x2D2E, 0x2D2F, 0x2D68, 0x2D6E, 0x2D71, 0x2D7E, 0x2D97, 0x2D9F, 0x2DA7, undef, 0x2DAF, undef, + 0x2DB7, undef, 0x2DBF, undef, 0x2DC7, undef, 0x2DCF, undef, 0x2DD7, undef, 0x2DDF, undef, 0x2E45, 0x2E7F, 0x2E9A, undef, + 0x2EF4, 0x2EFF, 0x2FD6, 0x2FFF, 0x3040, undef, 0x3097, 0x3098, 0x3100, 0x3104, 0x312E, 0x3130, 0x3164, undef, 0x318F, undef, + 0x31BB, 0x31BF, 0x31E4, 0x31EF, 0x321F, undef, 0x32FF, undef, 0x33C2, undef, 0x33C7, undef, 0x33D8, undef, 0x4DB6, 0x4DBF, + 0x9FD6, 0x9FFF, 0xA48D, 0xA48F, 0xA4C7, 0xA4CF, 0xA62C, 0xA63F, 0xA6F8, 0xA6FF, 0xA7AF, undef, 0xA7B8, 0xA7F6, 0xA82C, 0xA82F, + 0xA83A, 0xA83F, 0xA878, 0xA87F, 0xA8C6, 0xA8CD, 0xA8DA, 0xA8DF, 0xA8FE, 0xA8FF, 0xA954, 0xA95E, 0xA97D, 0xA97F, 0xA9CE, undef, + 0xA9DA, 0xA9DD, 0xA9FF, undef, 0xAA37, 0xAA3F, 0xAA4E, 0xAA4F, 0xAA5A, 0xAA5B, 0xAAC3, 0xAADA, 0xAAF7, 0xAB00, 0xAB07, 0xAB08, + 0xAB0F, 0xAB10, 0xAB17, 0xAB1F, 0xAB27, undef, 0xAB2F, undef, 0xAB66, 0xAB6F, 0xABEE, 0xABEF, 0xABFA, 0xABFF, 0xD7A4, 0xD7AF, + 0xD7C7, 0xD7CA, 0xD7FC, 0xF8FF, 0xFA6E, 0xFA6F, 0xFADA, 0xFAFF, 0xFB07, 0xFB12, 0xFB18, 0xFB1C, 0xFB37, undef, 0xFB3D, undef, + 0xFB3F, undef, 0xFB42, undef, 0xFB45, undef, 0xFBC2, 0xFBD2, 0xFD40, 0xFD4F, 0xFD90, 0xFD91, 0xFDC8, 0xFDEF, 0xFDFE, 0xFDFF, + 0xFE12, undef, 0xFE19, 0xFE1F, 0xFE30, undef, 0xFE52, 0xFE53, 0xFE67, undef, 0xFE6C, 0xFE6F, 0xFE75, undef, 0xFEFD, 0xFEFE, + 0xFF00, undef, 0xFFA0, undef, 0xFFBF, 0xFFC1, 0xFFC8, 0xFFC9, 0xFFD0, 0xFFD1, 0xFFD8, 0xFFD9, 0xFFDD, 0xFFDF, 0xFFE7, undef, + 0xFFEF, 0xFFFF, 0x1000C, undef, 0x10027, undef, 0x1003B, undef, 0x1003E, undef, 0x1004E, 0x1004F, 0x1005E, 0x1007F, 0x100FB, 0x100FF, + 0x10103, 0x10106, 0x10134, 0x10136, 0x1018F, undef, 0x1019C, 0x1019F, 0x101A1, 0x101CF, 0x101FE, 0x1027F, 0x1029D, 0x1029F, 0x102D1, 0x102DF, + 0x102FC, 0x102FF, 0x10324, 0x1032F, 0x1034B, 0x1034F, 0x1037B, 0x1037F, 0x1039E, undef, 0x103C4, 0x103C7, 0x103D6, 0x103FF, 0x1049E, 0x1049F, + 0x104AA, 0x104AF, 0x104D4, 0x104D7, 0x104FC, 0x104FF, 0x10528, 0x1052F, 0x10564, 0x1056E, 0x10570, 0x105FF, 0x10737, 0x1073F, 0x10756, 0x1075F, + 0x10768, 0x107FF, 0x10806, 0x10807, 0x10809, undef, 0x10836, undef, 0x10839, 0x1083B, 0x1083D, 0x1083E, 0x10856, undef, 0x1089F, 0x108A6, + 0x108B0, 0x108DF, 0x108F3, undef, 0x108F6, 0x108FA, 0x1091C, 0x1091E, 0x1093A, 0x1093E, 0x10940, 0x1097F, 0x109B8, 0x109BB, 0x109D0, 0x109D1, + 0x10A04, undef, 0x10A07, 0x10A0B, 0x10A14, undef, 0x10A18, undef, 0x10A34, 0x10A37, 0x10A3B, 0x10A3E, 0x10A48, 0x10A4F, 0x10A59, 0x10A5F, + 0x10AA0, 0x10ABF, 0x10AE7, 0x10AEA, 0x10AF7, 0x10AFF, 0x10B36, 0x10B38, 0x10B56, 0x10B57, 0x10B73, 0x10B77, 0x10B92, 0x10B98, 0x10B9D, 0x10BA8, + 0x10BB0, 0x10BFF, 0x10C49, 0x10C7F, 0x10CB3, 0x10CBF, 0x10CF3, 0x10CF9, 0x10D00, 0x10E5F, 0x10E7F, 0x10FFF, 0x1104E, 0x11051, 0x11070, 0x1107E, + 0x110BD, undef, 0x110C2, 0x110CF, 0x110E9, 0x110EF, 0x110FA, 0x110FF, 0x11135, undef, 0x11144, 0x1114F, 0x11177, 0x1117F, 0x111CE, 0x111CF, + 0x111E0, undef, 0x111F5, 0x111FF, 0x11212, undef, 0x1123F, 0x1127F, 0x11287, undef, 0x11289, undef, 0x1128E, undef, 0x1129E, undef, + 0x112AA, 0x112AF, 0x112EB, 0x112EF, 0x112FA, 0x112FF, 0x11304, undef, 0x1130D, 0x1130E, 0x11311, 0x11312, 0x11329, undef, 0x11331, undef, + 0x11334, undef, 0x1133A, 0x1133B, 0x11345, 0x11346, 0x11349, 0x1134A, 0x1134E, 0x1134F, 0x11351, 0x11356, 0x11358, 0x1135C, 0x11364, 0x11365, + 0x1136D, 0x1136F, 0x11375, 0x113FF, 0x1145A, undef, 0x1145C, undef, 0x1145E, 0x1147F, 0x114C8, 0x114CF, 0x114DA, 0x1157F, 0x115B6, 0x115B7, + 0x115DE, 0x115FF, 0x11645, 0x1164F, 0x1165A, 0x1165F, 0x1166D, 0x1167F, 0x116B8, 0x116BF, 0x116CA, 0x116FF, 0x1171A, 0x1171C, 0x1172C, 0x1172F, + 0x11740, 0x1189F, 0x118F3, 0x118FE, 0x11900, 0x11ABF, 0x11AF9, 0x11BFF, 0x11C09, undef, 0x11C37, undef, 0x11C46, 0x11C4F, 0x11C6D, 0x11C6F, + 0x11C90, 0x11C91, 0x11CA8, undef, 0x11CB7, 0x11FFF, 0x1239A, 0x123FF, 0x1246F, undef, 0x12475, 0x1247F, 0x12544, 0x12FFF, 0x1342F, 0x143FF, + 0x14647, 0x167FF, 0x16A39, 0x16A3F, 0x16A5F, undef, 0x16A6A, 0x16A6D, 0x16A70, 0x16ACF, 0x16AEE, 0x16AEF, 0x16AF6, 0x16AFF, 0x16B46, 0x16B4F, + 0x16B5A, undef, 0x16B62, undef, 0x16B78, 0x16B7C, 0x16B90, 0x16EFF, 0x16F45, 0x16F4F, 0x16F7F, 0x16F8E, 0x16FA0, 0x16FDF, 0x16FE1, 0x16FFF, + 0x187ED, 0x187FF, 0x18AF3, 0x1AFFF, 0x1B002, 0x1BBFF, 0x1BC6B, 0x1BC6F, 0x1BC7D, 0x1BC7F, 0x1BC89, 0x1BC8F, 0x1BC9A, 0x1BC9B, 0x1BCA4, 0x1CFFF, + 0x1D0F6, 0x1D0FF, 0x1D127, 0x1D128, 0x1D173, 0x1D17A, 0x1D1E9, 0x1D1FF, 0x1D246, 0x1D2FF, 0x1D357, 0x1D35F, 0x1D372, 0x1D3FF, 0x1D455, undef, + 0x1D49D, undef, 0x1D4A0, 0x1D4A1, 0x1D4A3, 0x1D4A4, 0x1D4A7, 0x1D4A8, 0x1D4AD, undef, 0x1D4BA, undef, 0x1D4BC, undef, 0x1D4C4, undef, + 0x1D506, undef, 0x1D50B, 0x1D50C, 0x1D515, undef, 0x1D51D, undef, 0x1D53A, undef, 0x1D53F, undef, 0x1D545, undef, 0x1D547, 0x1D549, + 0x1D551, undef, 0x1D6A6, 0x1D6A7, 0x1D7CC, 0x1D7CD, 0x1DA8C, 0x1DA9A, 0x1DAA0, undef, 0x1DAB0, 0x1DFFF, 0x1E007, undef, 0x1E019, 0x1E01A, + 0x1E022, undef, 0x1E025, undef, 0x1E02B, 0x1E7FF, 0x1E8C5, 0x1E8C6, 0x1E8D7, 0x1E8FF, 0x1E94B, 0x1E94F, 0x1E95A, 0x1E95D, 0x1E960, 0x1EDFF, + 0x1EE04, undef, 0x1EE20, undef, 0x1EE23, undef, 0x1EE25, 0x1EE26, 0x1EE28, undef, 0x1EE33, undef, 0x1EE38, undef, 0x1EE3A, undef, + 0x1EE3C, 0x1EE41, 0x1EE43, 0x1EE46, 0x1EE48, undef, 0x1EE4A, undef, 0x1EE4C, undef, 0x1EE50, undef, 0x1EE53, undef, 0x1EE55, 0x1EE56, + 0x1EE58, undef, 0x1EE5A, undef, 0x1EE5C, undef, 0x1EE5E, undef, 0x1EE60, undef, 0x1EE63, undef, 0x1EE65, 0x1EE66, 0x1EE6B, undef, + 0x1EE73, undef, 0x1EE78, undef, 0x1EE7D, undef, 0x1EE7F, undef, 0x1EE8A, undef, 0x1EE9C, 0x1EEA0, 0x1EEA4, undef, 0x1EEAA, undef, + 0x1EEBC, 0x1EEEF, 0x1EEF2, 0x1EFFF, 0x1F02C, 0x1F02F, 0x1F094, 0x1F09F, 0x1F0AF, 0x1F0B0, 0x1F0C0, undef, 0x1F0D0, undef, 0x1F0F6, 0x1F100, + 0x1F10D, 0x1F10F, 0x1F12F, undef, 0x1F16C, 0x1F16F, 0x1F1AD, 0x1F1E5, 0x1F203, 0x1F20F, 0x1F23C, 0x1F23F, 0x1F249, 0x1F24F, 0x1F252, 0x1F2FF, + 0x1F6D3, 0x1F6DF, 0x1F6ED, 0x1F6EF, 0x1F6F7, 0x1F6FF, 0x1F774, 0x1F77F, 0x1F7D5, 0x1F7FF, 0x1F80C, 0x1F80F, 0x1F848, 0x1F84F, 0x1F85A, 0x1F85F, + 0x1F888, 0x1F88F, 0x1F8AE, 0x1F90F, 0x1F91F, undef, 0x1F928, 0x1F92F, 0x1F931, 0x1F932, 0x1F93F, undef, 0x1F94C, 0x1F94F, 0x1F95F, 0x1F97F, + 0x1F992, 0x1F9BF, 0x1F9C1, 0x1FFFF, 0x2A6D7, 0x2A6FF, 0x2B735, 0x2B73F, 0x2B81E, 0x2B81F, 0x2CEA2, 0x2F7FF, 0x2F868, undef, 0x2F874, undef, + 0x2F91F, undef, 0x2F95F, undef, 0x2F9BF, undef, 0x2FA1E, 0xE00FF, 0xE01F0, 0x10FFFF, +); +sub IsDisallowed { return _mk_prop(@DISALLOWED); }; + +our @DISALLOWEDSTD3VALID = ( + 0x0000, 0x002C, 0x002F, undef, 0x003A, 0x0040, 0x005B, 0x0060, 0x007B, 0x007F, 0x2260, undef, 0x226E, 0x226F, +); +sub IsDisallowedSTD3Valid { return _mk_prop(@DISALLOWEDSTD3VALID); }; + +our @VALID = ( + 0x002D, 0x002E, 0x0030, 0x0039, 0x0061, 0x007A, 0x00A1, 0x00A7, 0x00A9, undef, 0x00AB, 0x00AC, 0x00AE, undef, 0x00B0, 0x00B1, + 0x00B6, 0x00B7, 0x00BB, undef, 0x00BF, undef, 0x00D7, undef, 0x00E0, 0x00FF, 0x0101, undef, 0x0103, undef, 0x0105, undef, + 0x0107, undef, 0x0109, undef, 0x010B, undef, 0x010D, undef, 0x010F, undef, 0x0111, undef, 0x0113, undef, 0x0115, undef, + 0x0117, undef, 0x0119, undef, 0x011B, undef, 0x011D, undef, 0x011F, undef, 0x0121, undef, 0x0123, undef, 0x0125, undef, + 0x0127, undef, 0x0129, undef, 0x012B, undef, 0x012D, undef, 0x012F, undef, 0x0131, undef, 0x0135, undef, 0x0137, 0x0138, + 0x013A, undef, 0x013C, undef, 0x013E, undef, 0x0142, undef, 0x0144, undef, 0x0146, undef, 0x0148, undef, 0x014B, undef, + 0x014D, undef, 0x014F, undef, 0x0151, undef, 0x0153, undef, 0x0155, undef, 0x0157, undef, 0x0159, undef, 0x015B, undef, + 0x015D, undef, 0x015F, undef, 0x0161, undef, 0x0163, undef, 0x0165, undef, 0x0167, undef, 0x0169, undef, 0x016B, undef, + 0x016D, undef, 0x016F, undef, 0x0171, undef, 0x0173, undef, 0x0175, undef, 0x0177, undef, 0x017A, undef, 0x017C, undef, + 0x017E, undef, 0x0180, undef, 0x0183, undef, 0x0185, undef, 0x0188, undef, 0x018C, 0x018D, 0x0192, undef, 0x0195, undef, + 0x0199, 0x019B, 0x019E, undef, 0x01A1, undef, 0x01A3, undef, 0x01A5, undef, 0x01A8, undef, 0x01AA, 0x01AB, 0x01AD, undef, + 0x01B0, undef, 0x01B4, undef, 0x01B6, undef, 0x01B9, 0x01BB, 0x01BD, 0x01C3, 0x01CE, undef, 0x01D0, undef, 0x01D2, undef, + 0x01D4, undef, 0x01D6, undef, 0x01D8, undef, 0x01DA, undef, 0x01DC, 0x01DD, 0x01DF, undef, 0x01E1, undef, 0x01E3, undef, + 0x01E5, undef, 0x01E7, undef, 0x01E9, undef, 0x01EB, undef, 0x01ED, undef, 0x01EF, 0x01F0, 0x01F5, undef, 0x01F9, undef, + 0x01FB, undef, 0x01FD, undef, 0x01FF, undef, 0x0201, undef, 0x0203, undef, 0x0205, undef, 0x0207, undef, 0x0209, undef, + 0x020B, undef, 0x020D, undef, 0x020F, undef, 0x0211, undef, 0x0213, undef, 0x0215, undef, 0x0217, undef, 0x0219, undef, + 0x021B, undef, 0x021D, undef, 0x021F, undef, 0x0221, undef, 0x0223, undef, 0x0225, undef, 0x0227, undef, 0x0229, undef, + 0x022B, undef, 0x022D, undef, 0x022F, undef, 0x0231, undef, 0x0233, 0x0239, 0x023C, undef, 0x023F, 0x0240, 0x0242, undef, + 0x0247, undef, 0x0249, undef, 0x024B, undef, 0x024D, undef, 0x024F, 0x02AF, 0x02B9, 0x02D7, 0x02DE, 0x02DF, 0x02E5, 0x033F, + 0x0342, undef, 0x0346, 0x034E, 0x0350, 0x036F, 0x0371, undef, 0x0373, undef, 0x0375, undef, 0x0377, undef, 0x037B, 0x037D, + 0x0390, undef, 0x03AC, 0x03C1, 0x03C3, 0x03CE, 0x03D7, undef, 0x03D9, undef, 0x03DB, undef, 0x03DD, undef, 0x03DF, undef, + 0x03E1, undef, 0x03E3, undef, 0x03E5, undef, 0x03E7, undef, 0x03E9, undef, 0x03EB, undef, 0x03ED, undef, 0x03EF, undef, + 0x03F3, undef, 0x03F6, undef, 0x03F8, undef, 0x03FB, 0x03FC, 0x0430, 0x045F, 0x0461, undef, 0x0463, undef, 0x0465, undef, + 0x0467, undef, 0x0469, undef, 0x046B, undef, 0x046D, undef, 0x046F, undef, 0x0471, undef, 0x0473, undef, 0x0475, undef, + 0x0477, undef, 0x0479, undef, 0x047B, undef, 0x047D, undef, 0x047F, undef, 0x0481, 0x0489, 0x048B, undef, 0x048D, undef, + 0x048F, undef, 0x0491, undef, 0x0493, undef, 0x0495, undef, 0x0497, undef, 0x0499, undef, 0x049B, undef, 0x049D, undef, + 0x049F, undef, 0x04A1, undef, 0x04A3, undef, 0x04A5, undef, 0x04A7, undef, 0x04A9, undef, 0x04AB, undef, 0x04AD, undef, + 0x04AF, undef, 0x04B1, undef, 0x04B3, undef, 0x04B5, undef, 0x04B7, undef, 0x04B9, undef, 0x04BB, undef, 0x04BD, undef, + 0x04BF, undef, 0x04C2, undef, 0x04C4, undef, 0x04C6, undef, 0x04C8, undef, 0x04CA, undef, 0x04CC, undef, 0x04CE, 0x04CF, + 0x04D1, undef, 0x04D3, undef, 0x04D5, undef, 0x04D7, undef, 0x04D9, undef, 0x04DB, undef, 0x04DD, undef, 0x04DF, undef, + 0x04E1, undef, 0x04E3, undef, 0x04E5, undef, 0x04E7, undef, 0x04E9, undef, 0x04EB, undef, 0x04ED, undef, 0x04EF, undef, + 0x04F1, undef, 0x04F3, undef, 0x04F5, undef, 0x04F7, undef, 0x04F9, undef, 0x04FB, undef, 0x04FD, undef, 0x04FF, undef, + 0x0501, undef, 0x0503, undef, 0x0505, undef, 0x0507, undef, 0x0509, undef, 0x050B, undef, 0x050D, undef, 0x050F, undef, + 0x0511, undef, 0x0513, undef, 0x0515, undef, 0x0517, undef, 0x0519, undef, 0x051B, undef, 0x051D, undef, 0x051F, undef, + 0x0521, undef, 0x0523, undef, 0x0525, undef, 0x0527, undef, 0x0529, undef, 0x052B, undef, 0x052D, undef, 0x052F, undef, + 0x0559, 0x055F, 0x0561, 0x0586, 0x0589, 0x058A, 0x058D, 0x058F, 0x0591, 0x05C7, 0x05D0, 0x05EA, 0x05F0, 0x05F4, 0x0606, 0x061B, + 0x061E, 0x0674, 0x0679, 0x06DC, 0x06DE, 0x070D, 0x0710, 0x074A, 0x074D, 0x07B1, 0x07C0, 0x07FA, 0x0800, 0x082D, 0x0830, 0x083E, + 0x0840, 0x085B, 0x085E, undef, 0x08A0, 0x08B4, 0x08B6, 0x08BD, 0x08D4, 0x08E1, 0x08E3, 0x0957, 0x0960, 0x0983, 0x0985, 0x098C, + 0x098F, 0x0990, 0x0993, 0x09A8, 0x09AA, 0x09B0, 0x09B2, undef, 0x09B6, 0x09B9, 0x09BC, 0x09C4, 0x09C7, 0x09C8, 0x09CB, 0x09CE, + 0x09D7, undef, 0x09E0, 0x09E3, 0x09E6, 0x09FB, 0x0A01, 0x0A03, 0x0A05, 0x0A0A, 0x0A0F, 0x0A10, 0x0A13, 0x0A28, 0x0A2A, 0x0A30, + 0x0A32, undef, 0x0A35, undef, 0x0A38, 0x0A39, 0x0A3C, undef, 0x0A3E, 0x0A42, 0x0A47, 0x0A48, 0x0A4B, 0x0A4D, 0x0A51, undef, + 0x0A5C, undef, 0x0A66, 0x0A75, 0x0A81, 0x0A83, 0x0A85, 0x0A8D, 0x0A8F, 0x0A91, 0x0A93, 0x0AA8, 0x0AAA, 0x0AB0, 0x0AB2, 0x0AB3, + 0x0AB5, 0x0AB9, 0x0ABC, 0x0AC5, 0x0AC7, 0x0AC9, 0x0ACB, 0x0ACD, 0x0AD0, undef, 0x0AE0, 0x0AE3, 0x0AE6, 0x0AF1, 0x0AF9, undef, + 0x0B01, 0x0B03, 0x0B05, 0x0B0C, 0x0B0F, 0x0B10, 0x0B13, 0x0B28, 0x0B2A, 0x0B30, 0x0B32, 0x0B33, 0x0B35, 0x0B39, 0x0B3C, 0x0B44, + 0x0B47, 0x0B48, 0x0B4B, 0x0B4D, 0x0B56, 0x0B57, 0x0B5F, 0x0B63, 0x0B66, 0x0B77, 0x0B82, 0x0B83, 0x0B85, 0x0B8A, 0x0B8E, 0x0B90, + 0x0B92, 0x0B95, 0x0B99, 0x0B9A, 0x0B9C, undef, 0x0B9E, 0x0B9F, 0x0BA3, 0x0BA4, 0x0BA8, 0x0BAA, 0x0BAE, 0x0BB9, 0x0BBE, 0x0BC2, + 0x0BC6, 0x0BC8, 0x0BCA, 0x0BCD, 0x0BD0, undef, 0x0BD7, undef, 0x0BE6, 0x0BFA, 0x0C00, 0x0C03, 0x0C05, 0x0C0C, 0x0C0E, 0x0C10, + 0x0C12, 0x0C28, 0x0C2A, 0x0C39, 0x0C3D, 0x0C44, 0x0C46, 0x0C48, 0x0C4A, 0x0C4D, 0x0C55, 0x0C56, 0x0C58, 0x0C5A, 0x0C60, 0x0C63, + 0x0C66, 0x0C6F, 0x0C78, 0x0C83, 0x0C85, 0x0C8C, 0x0C8E, 0x0C90, 0x0C92, 0x0CA8, 0x0CAA, 0x0CB3, 0x0CB5, 0x0CB9, 0x0CBC, 0x0CC4, + 0x0CC6, 0x0CC8, 0x0CCA, 0x0CCD, 0x0CD5, 0x0CD6, 0x0CDE, undef, 0x0CE0, 0x0CE3, 0x0CE6, 0x0CEF, 0x0CF1, 0x0CF2, 0x0D01, 0x0D03, + 0x0D05, 0x0D0C, 0x0D0E, 0x0D10, 0x0D12, 0x0D3A, 0x0D3D, 0x0D44, 0x0D46, 0x0D48, 0x0D4A, 0x0D4F, 0x0D54, 0x0D63, 0x0D66, 0x0D7F, + 0x0D82, 0x0D83, 0x0D85, 0x0D96, 0x0D9A, 0x0DB1, 0x0DB3, 0x0DBB, 0x0DBD, undef, 0x0DC0, 0x0DC6, 0x0DCA, undef, 0x0DCF, 0x0DD4, + 0x0DD6, undef, 0x0DD8, 0x0DDF, 0x0DE6, 0x0DEF, 0x0DF2, 0x0DF4, 0x0E01, 0x0E32, 0x0E34, 0x0E3A, 0x0E3F, 0x0E5B, 0x0E81, 0x0E82, + 0x0E84, undef, 0x0E87, 0x0E88, 0x0E8A, undef, 0x0E8D, undef, 0x0E94, 0x0E97, 0x0E99, 0x0E9F, 0x0EA1, 0x0EA3, 0x0EA5, undef, + 0x0EA7, undef, 0x0EAA, 0x0EAB, 0x0EAD, 0x0EB2, 0x0EB4, 0x0EB9, 0x0EBB, 0x0EBD, 0x0EC0, 0x0EC4, 0x0EC6, undef, 0x0EC8, 0x0ECD, + 0x0ED0, 0x0ED9, 0x0EDE, 0x0EDF, 0x0F00, 0x0F0B, 0x0F0D, 0x0F42, 0x0F44, 0x0F47, 0x0F49, 0x0F4C, 0x0F4E, 0x0F51, 0x0F53, 0x0F56, + 0x0F58, 0x0F5B, 0x0F5D, 0x0F68, 0x0F6A, 0x0F6C, 0x0F71, 0x0F72, 0x0F74, undef, 0x0F7A, 0x0F80, 0x0F82, 0x0F92, 0x0F94, 0x0F97, + 0x0F99, 0x0F9C, 0x0F9E, 0x0FA1, 0x0FA3, 0x0FA6, 0x0FA8, 0x0FAB, 0x0FAD, 0x0FB8, 0x0FBA, 0x0FBC, 0x0FBE, 0x0FCC, 0x0FCE, 0x0FDA, + 0x1000, 0x109F, 0x10D0, 0x10FB, 0x10FD, 0x115E, 0x1161, 0x1248, 0x124A, 0x124D, 0x1250, 0x1256, 0x1258, undef, 0x125A, 0x125D, + 0x1260, 0x1288, 0x128A, 0x128D, 0x1290, 0x12B0, 0x12B2, 0x12B5, 0x12B8, 0x12BE, 0x12C0, undef, 0x12C2, 0x12C5, 0x12C8, 0x12D6, + 0x12D8, 0x1310, 0x1312, 0x1315, 0x1318, 0x135A, 0x135D, 0x137C, 0x1380, 0x1399, 0x13A0, 0x13F5, 0x1400, 0x167F, 0x1681, 0x169C, + 0x16A0, 0x16F8, 0x1700, 0x170C, 0x170E, 0x1714, 0x1720, 0x1736, 0x1740, 0x1753, 0x1760, 0x176C, 0x176E, 0x1770, 0x1772, 0x1773, + 0x1780, 0x17B3, 0x17B6, 0x17DD, 0x17E0, 0x17E9, 0x17F0, 0x17F9, 0x1800, 0x1805, 0x1807, 0x180A, 0x1810, 0x1819, 0x1820, 0x1877, + 0x1880, 0x18AA, 0x18B0, 0x18F5, 0x1900, 0x191E, 0x1920, 0x192B, 0x1930, 0x193B, 0x1940, undef, 0x1944, 0x196D, 0x1970, 0x1974, + 0x1980, 0x19AB, 0x19B0, 0x19C9, 0x19D0, 0x19DA, 0x19DE, 0x1A1B, 0x1A1E, 0x1A5E, 0x1A60, 0x1A7C, 0x1A7F, 0x1A89, 0x1A90, 0x1A99, + 0x1AA0, 0x1AAD, 0x1AB0, 0x1ABE, 0x1B00, 0x1B4B, 0x1B50, 0x1B7C, 0x1B80, 0x1BF3, 0x1BFC, 0x1C37, 0x1C3B, 0x1C49, 0x1C4D, 0x1C7F, + 0x1CC0, 0x1CC7, 0x1CD0, 0x1CF6, 0x1CF8, 0x1CF9, 0x1D00, 0x1D2B, 0x1D2F, undef, 0x1D3B, undef, 0x1D4E, undef, 0x1D6B, 0x1D77, + 0x1D79, 0x1D9A, 0x1DC0, 0x1DF5, 0x1DFB, 0x1DFF, 0x1E01, undef, 0x1E03, undef, 0x1E05, undef, 0x1E07, undef, 0x1E09, undef, + 0x1E0B, undef, 0x1E0D, undef, 0x1E0F, undef, 0x1E11, undef, 0x1E13, undef, 0x1E15, undef, 0x1E17, undef, 0x1E19, undef, + 0x1E1B, undef, 0x1E1D, undef, 0x1E1F, undef, 0x1E21, undef, 0x1E23, undef, 0x1E25, undef, 0x1E27, undef, 0x1E29, undef, + 0x1E2B, undef, 0x1E2D, undef, 0x1E2F, undef, 0x1E31, undef, 0x1E33, undef, 0x1E35, undef, 0x1E37, undef, 0x1E39, undef, + 0x1E3B, undef, 0x1E3D, undef, 0x1E3F, undef, 0x1E41, undef, 0x1E43, undef, 0x1E45, undef, 0x1E47, undef, 0x1E49, undef, + 0x1E4B, undef, 0x1E4D, undef, 0x1E4F, undef, 0x1E51, undef, 0x1E53, undef, 0x1E55, undef, 0x1E57, undef, 0x1E59, undef, + 0x1E5B, undef, 0x1E5D, undef, 0x1E5F, undef, 0x1E61, undef, 0x1E63, undef, 0x1E65, undef, 0x1E67, undef, 0x1E69, undef, + 0x1E6B, undef, 0x1E6D, undef, 0x1E6F, undef, 0x1E71, undef, 0x1E73, undef, 0x1E75, undef, 0x1E77, undef, 0x1E79, undef, + 0x1E7B, undef, 0x1E7D, undef, 0x1E7F, undef, 0x1E81, undef, 0x1E83, undef, 0x1E85, undef, 0x1E87, undef, 0x1E89, undef, + 0x1E8B, undef, 0x1E8D, undef, 0x1E8F, undef, 0x1E91, undef, 0x1E93, undef, 0x1E95, 0x1E99, 0x1E9C, 0x1E9D, 0x1E9F, undef, + 0x1EA1, undef, 0x1EA3, undef, 0x1EA5, undef, 0x1EA7, undef, 0x1EA9, undef, 0x1EAB, undef, 0x1EAD, undef, 0x1EAF, undef, + 0x1EB1, undef, 0x1EB3, undef, 0x1EB5, undef, 0x1EB7, undef, 0x1EB9, undef, 0x1EBB, undef, 0x1EBD, undef, 0x1EBF, undef, + 0x1EC1, undef, 0x1EC3, undef, 0x1EC5, undef, 0x1EC7, undef, 0x1EC9, undef, 0x1ECB, undef, 0x1ECD, undef, 0x1ECF, undef, + 0x1ED1, undef, 0x1ED3, undef, 0x1ED5, undef, 0x1ED7, undef, 0x1ED9, undef, 0x1EDB, undef, 0x1EDD, undef, 0x1EDF, undef, + 0x1EE1, undef, 0x1EE3, undef, 0x1EE5, undef, 0x1EE7, undef, 0x1EE9, undef, 0x1EEB, undef, 0x1EED, undef, 0x1EEF, undef, + 0x1EF1, undef, 0x1EF3, undef, 0x1EF5, undef, 0x1EF7, undef, 0x1EF9, undef, 0x1EFB, undef, 0x1EFD, undef, 0x1EFF, 0x1F07, + 0x1F10, 0x1F15, 0x1F20, 0x1F27, 0x1F30, 0x1F37, 0x1F40, 0x1F45, 0x1F50, 0x1F57, 0x1F60, 0x1F67, 0x1F70, undef, 0x1F72, undef, + 0x1F74, undef, 0x1F76, undef, 0x1F78, undef, 0x1F7A, undef, 0x1F7C, undef, 0x1FB0, 0x1FB1, 0x1FB6, undef, 0x1FC6, undef, + 0x1FD0, 0x1FD2, 0x1FD6, 0x1FD7, 0x1FE0, 0x1FE2, 0x1FE4, 0x1FE7, 0x1FF6, undef, 0x2010, undef, 0x2012, 0x2016, 0x2018, 0x2023, + 0x2027, undef, 0x2030, 0x2032, 0x2035, undef, 0x2038, 0x203B, 0x203D, undef, 0x203F, 0x2046, 0x204A, 0x2056, 0x2058, 0x205E, + 0x20A0, 0x20A7, 0x20A9, 0x20BE, 0x20D0, 0x20F0, 0x2104, undef, 0x2108, undef, 0x2114, undef, 0x2117, 0x2118, 0x211E, 0x211F, + 0x2123, undef, 0x2125, undef, 0x2127, undef, 0x2129, undef, 0x212E, undef, 0x213A, undef, 0x2141, 0x2144, 0x214A, 0x214F, + 0x2180, 0x2182, 0x2184, 0x2188, 0x218A, 0x218B, 0x2190, 0x222B, 0x222E, undef, 0x2231, 0x225F, 0x2261, 0x226D, 0x2270, 0x2328, + 0x232B, 0x23FE, 0x2400, 0x2426, 0x2440, 0x244A, 0x24EB, 0x2A0B, 0x2A0D, 0x2A73, 0x2A77, 0x2ADB, 0x2ADD, 0x2B73, 0x2B76, 0x2B95, + 0x2B98, 0x2BB9, 0x2BBD, 0x2BC8, 0x2BCA, 0x2BD1, 0x2BEC, 0x2BEF, 0x2C30, 0x2C5E, 0x2C61, undef, 0x2C65, 0x2C66, 0x2C68, undef, + 0x2C6A, undef, 0x2C6C, undef, 0x2C71, undef, 0x2C73, 0x2C74, 0x2C76, 0x2C7B, 0x2C81, undef, 0x2C83, undef, 0x2C85, undef, + 0x2C87, undef, 0x2C89, undef, 0x2C8B, undef, 0x2C8D, undef, 0x2C8F, undef, 0x2C91, undef, 0x2C93, undef, 0x2C95, undef, + 0x2C97, undef, 0x2C99, undef, 0x2C9B, undef, 0x2C9D, undef, 0x2C9F, undef, 0x2CA1, undef, 0x2CA3, undef, 0x2CA5, undef, + 0x2CA7, undef, 0x2CA9, undef, 0x2CAB, undef, 0x2CAD, undef, 0x2CAF, undef, 0x2CB1, undef, 0x2CB3, undef, 0x2CB5, undef, + 0x2CB7, undef, 0x2CB9, undef, 0x2CBB, undef, 0x2CBD, undef, 0x2CBF, undef, 0x2CC1, undef, 0x2CC3, undef, 0x2CC5, undef, + 0x2CC7, undef, 0x2CC9, undef, 0x2CCB, undef, 0x2CCD, undef, 0x2CCF, undef, 0x2CD1, undef, 0x2CD3, undef, 0x2CD5, undef, + 0x2CD7, undef, 0x2CD9, undef, 0x2CDB, undef, 0x2CDD, undef, 0x2CDF, undef, 0x2CE1, undef, 0x2CE3, 0x2CEA, 0x2CEC, undef, + 0x2CEE, 0x2CF1, 0x2CF3, undef, 0x2CF9, 0x2D25, 0x2D27, undef, 0x2D2D, undef, 0x2D30, 0x2D67, 0x2D70, undef, 0x2D7F, 0x2D96, + 0x2DA0, 0x2DA6, 0x2DA8, 0x2DAE, 0x2DB0, 0x2DB6, 0x2DB8, 0x2DBE, 0x2DC0, 0x2DC6, 0x2DC8, 0x2DCE, 0x2DD0, 0x2DD6, 0x2DD8, 0x2DDE, + 0x2DE0, 0x2E44, 0x2E80, 0x2E99, 0x2E9B, 0x2E9E, 0x2EA0, 0x2EF2, 0x3001, undef, 0x3003, 0x3035, 0x3037, undef, 0x303B, 0x303F, + 0x3041, 0x3096, 0x3099, 0x309A, 0x309D, 0x309E, 0x30A0, 0x30FE, 0x3105, 0x312D, 0x3190, 0x3191, 0x31A0, 0x31BA, 0x31C0, 0x31E3, + 0x31F0, 0x31FF, 0x3248, 0x324F, 0x327F, undef, 0x3400, 0x4DB5, 0x4DC0, 0x9FD5, 0xA000, 0xA48C, 0xA490, 0xA4C6, 0xA4D0, 0xA62B, + 0xA641, undef, 0xA643, undef, 0xA645, undef, 0xA647, undef, 0xA649, undef, 0xA64B, undef, 0xA64D, undef, 0xA64F, undef, + 0xA651, undef, 0xA653, undef, 0xA655, undef, 0xA657, undef, 0xA659, undef, 0xA65B, undef, 0xA65D, undef, 0xA65F, undef, + 0xA661, undef, 0xA663, undef, 0xA665, undef, 0xA667, undef, 0xA669, undef, 0xA66B, undef, 0xA66D, 0xA67F, 0xA681, undef, + 0xA683, undef, 0xA685, undef, 0xA687, undef, 0xA689, undef, 0xA68B, undef, 0xA68D, undef, 0xA68F, undef, 0xA691, undef, + 0xA693, undef, 0xA695, undef, 0xA697, undef, 0xA699, undef, 0xA69B, undef, 0xA69E, 0xA6F7, 0xA700, 0xA721, 0xA723, undef, + 0xA725, undef, 0xA727, undef, 0xA729, undef, 0xA72B, undef, 0xA72D, undef, 0xA72F, 0xA731, 0xA733, undef, 0xA735, undef, + 0xA737, undef, 0xA739, undef, 0xA73B, undef, 0xA73D, undef, 0xA73F, undef, 0xA741, undef, 0xA743, undef, 0xA745, undef, + 0xA747, undef, 0xA749, undef, 0xA74B, undef, 0xA74D, undef, 0xA74F, undef, 0xA751, undef, 0xA753, undef, 0xA755, undef, + 0xA757, undef, 0xA759, undef, 0xA75B, undef, 0xA75D, undef, 0xA75F, undef, 0xA761, undef, 0xA763, undef, 0xA765, undef, + 0xA767, undef, 0xA769, undef, 0xA76B, undef, 0xA76D, undef, 0xA76F, undef, 0xA771, 0xA778, 0xA77A, undef, 0xA77C, undef, + 0xA77F, undef, 0xA781, undef, 0xA783, undef, 0xA785, undef, 0xA787, 0xA78A, 0xA78C, undef, 0xA78E, 0xA78F, 0xA791, undef, + 0xA793, 0xA795, 0xA797, undef, 0xA799, undef, 0xA79B, undef, 0xA79D, undef, 0xA79F, undef, 0xA7A1, undef, 0xA7A3, undef, + 0xA7A5, undef, 0xA7A7, undef, 0xA7A9, undef, 0xA7B5, undef, 0xA7B7, undef, 0xA7F7, undef, 0xA7FA, 0xA82B, 0xA830, 0xA839, + 0xA840, 0xA877, 0xA880, 0xA8C5, 0xA8CE, 0xA8D9, 0xA8E0, 0xA8FD, 0xA900, 0xA953, 0xA95F, 0xA97C, 0xA980, 0xA9CD, 0xA9CF, 0xA9D9, + 0xA9DE, 0xA9FE, 0xAA00, 0xAA36, 0xAA40, 0xAA4D, 0xAA50, 0xAA59, 0xAA5C, 0xAAC2, 0xAADB, 0xAAF6, 0xAB01, 0xAB06, 0xAB09, 0xAB0E, + 0xAB11, 0xAB16, 0xAB20, 0xAB26, 0xAB28, 0xAB2E, 0xAB30, 0xAB5B, 0xAB60, 0xAB65, 0xABC0, 0xABED, 0xABF0, 0xABF9, 0xAC00, 0xD7A3, + 0xD7B0, 0xD7C6, 0xD7CB, 0xD7FB, 0xFA0E, 0xFA0F, 0xFA11, undef, 0xFA13, 0xFA14, 0xFA1F, undef, 0xFA21, undef, 0xFA23, 0xFA24, + 0xFA27, 0xFA29, 0xFB1E, undef, 0xFBB2, 0xFBC1, 0xFD3E, 0xFD3F, 0xFDFD, undef, 0xFE20, 0xFE2F, 0xFE45, 0xFE46, 0xFE73, undef, + 0x10000, 0x1000B, 0x1000D, 0x10026, 0x10028, 0x1003A, 0x1003C, 0x1003D, 0x1003F, 0x1004D, 0x10050, 0x1005D, 0x10080, 0x100FA, 0x10100, 0x10102, + 0x10107, 0x10133, 0x10137, 0x1018E, 0x10190, 0x1019B, 0x101A0, undef, 0x101D0, 0x101FD, 0x10280, 0x1029C, 0x102A0, 0x102D0, 0x102E0, 0x102FB, + 0x10300, 0x10323, 0x10330, 0x1034A, 0x10350, 0x1037A, 0x10380, 0x1039D, 0x1039F, 0x103C3, 0x103C8, 0x103D5, 0x10428, 0x1049D, 0x104A0, 0x104A9, + 0x104D8, 0x104FB, 0x10500, 0x10527, 0x10530, 0x10563, 0x1056F, undef, 0x10600, 0x10736, 0x10740, 0x10755, 0x10760, 0x10767, 0x10800, 0x10805, + 0x10808, undef, 0x1080A, 0x10835, 0x10837, 0x10838, 0x1083C, undef, 0x1083F, 0x10855, 0x10857, 0x1089E, 0x108A7, 0x108AF, 0x108E0, 0x108F2, + 0x108F4, 0x108F5, 0x108FB, 0x1091B, 0x1091F, 0x10939, 0x1093F, undef, 0x10980, 0x109B7, 0x109BC, 0x109CF, 0x109D2, 0x10A03, 0x10A05, 0x10A06, + 0x10A0C, 0x10A13, 0x10A15, 0x10A17, 0x10A19, 0x10A33, 0x10A38, 0x10A3A, 0x10A3F, 0x10A47, 0x10A50, 0x10A58, 0x10A60, 0x10A9F, 0x10AC0, 0x10AE6, + 0x10AEB, 0x10AF6, 0x10B00, 0x10B35, 0x10B39, 0x10B55, 0x10B58, 0x10B72, 0x10B78, 0x10B91, 0x10B99, 0x10B9C, 0x10BA9, 0x10BAF, 0x10C00, 0x10C48, + 0x10CC0, 0x10CF2, 0x10CFA, 0x10CFF, 0x10E60, 0x10E7E, 0x11000, 0x1104D, 0x11052, 0x1106F, 0x1107F, 0x110BC, 0x110BE, 0x110C1, 0x110D0, 0x110E8, + 0x110F0, 0x110F9, 0x11100, 0x11134, 0x11136, 0x11143, 0x11150, 0x11176, 0x11180, 0x111CD, 0x111D0, 0x111DF, 0x111E1, 0x111F4, 0x11200, 0x11211, + 0x11213, 0x1123E, 0x11280, 0x11286, 0x11288, undef, 0x1128A, 0x1128D, 0x1128F, 0x1129D, 0x1129F, 0x112A9, 0x112B0, 0x112EA, 0x112F0, 0x112F9, + 0x11300, 0x11303, 0x11305, 0x1130C, 0x1130F, 0x11310, 0x11313, 0x11328, 0x1132A, 0x11330, 0x11332, 0x11333, 0x11335, 0x11339, 0x1133C, 0x11344, + 0x11347, 0x11348, 0x1134B, 0x1134D, 0x11350, undef, 0x11357, undef, 0x1135D, 0x11363, 0x11366, 0x1136C, 0x11370, 0x11374, 0x11400, 0x11459, + 0x1145B, undef, 0x1145D, undef, 0x11480, 0x114C7, 0x114D0, 0x114D9, 0x11580, 0x115B5, 0x115B8, 0x115DD, 0x11600, 0x11644, 0x11650, 0x11659, + 0x11660, 0x1166C, 0x11680, 0x116B7, 0x116C0, 0x116C9, 0x11700, 0x11719, 0x1171D, 0x1172B, 0x11730, 0x1173F, 0x118C0, 0x118F2, 0x118FF, undef, + 0x11AC0, 0x11AF8, 0x11C00, 0x11C08, 0x11C0A, 0x11C36, 0x11C38, 0x11C45, 0x11C50, 0x11C6C, 0x11C70, 0x11C8F, 0x11C92, 0x11CA7, 0x11CA9, 0x11CB6, + 0x12000, 0x12399, 0x12400, 0x1246E, 0x12470, 0x12474, 0x12480, 0x12543, 0x13000, 0x1342E, 0x14400, 0x14646, 0x16800, 0x16A38, 0x16A40, 0x16A5E, + 0x16A60, 0x16A69, 0x16A6E, 0x16A6F, 0x16AD0, 0x16AED, 0x16AF0, 0x16AF5, 0x16B00, 0x16B45, 0x16B50, 0x16B59, 0x16B5B, 0x16B61, 0x16B63, 0x16B77, + 0x16B7D, 0x16B8F, 0x16F00, 0x16F44, 0x16F50, 0x16F7E, 0x16F8F, 0x16F9F, 0x16FE0, undef, 0x17000, 0x187EC, 0x18800, 0x18AF2, 0x1B000, 0x1B001, + 0x1BC00, 0x1BC6A, 0x1BC70, 0x1BC7C, 0x1BC80, 0x1BC88, 0x1BC90, 0x1BC99, 0x1BC9C, 0x1BC9F, 0x1D000, 0x1D0F5, 0x1D100, 0x1D126, 0x1D129, 0x1D15D, + 0x1D165, 0x1D172, 0x1D17B, 0x1D1BA, 0x1D1C1, 0x1D1E8, 0x1D200, 0x1D245, 0x1D300, 0x1D356, 0x1D360, 0x1D371, 0x1D800, 0x1DA8B, 0x1DA9B, 0x1DA9F, + 0x1DAA1, 0x1DAAF, 0x1E000, 0x1E006, 0x1E008, 0x1E018, 0x1E01B, 0x1E021, 0x1E023, 0x1E024, 0x1E026, 0x1E02A, 0x1E800, 0x1E8C4, 0x1E8C7, 0x1E8D6, + 0x1E922, 0x1E94A, 0x1E950, 0x1E959, 0x1E95E, 0x1E95F, 0x1EEF0, 0x1EEF1, 0x1F000, 0x1F02B, 0x1F030, 0x1F093, 0x1F0A0, 0x1F0AE, 0x1F0B1, 0x1F0BF, + 0x1F0C1, 0x1F0CF, 0x1F0D1, 0x1F0F5, 0x1F10B, 0x1F10C, 0x1F150, 0x1F169, 0x1F170, 0x1F18F, 0x1F191, 0x1F1AC, 0x1F1E6, 0x1F1FF, 0x1F300, 0x1F6D2, + 0x1F6E0, 0x1F6EC, 0x1F6F0, 0x1F6F6, 0x1F700, 0x1F773, 0x1F780, 0x1F7D4, 0x1F800, 0x1F80B, 0x1F810, 0x1F847, 0x1F850, 0x1F859, 0x1F860, 0x1F887, + 0x1F890, 0x1F8AD, 0x1F910, 0x1F91E, 0x1F920, 0x1F927, 0x1F930, undef, 0x1F933, 0x1F93E, 0x1F940, 0x1F94B, 0x1F950, 0x1F95E, 0x1F980, 0x1F991, + 0x1F9C0, undef, 0x20000, 0x2A6D6, 0x2A700, 0x2B734, 0x2B740, 0x2B81D, 0x2B820, 0x2CEA1, +); +sub IsValid { return _mk_prop(@VALID); }; + +our %DEVIATION = ( + 0x00DF => "ss", 0x03C2 => "σ", 0x200C => "", 0x200D => "",); + +our @DEVIATION = ( + 0x00DF, undef, 0x03C2, undef, 0x200C, 0x200D, +); +sub IsDeviation { return _mk_prop(@DEVIATION); }; +sub MapDeviation { my $l = shift; + $l =~ s/[\x{200C}\x{200D}]//g; + $l =~ s/ß/ss/g; + $l =~ s/ς/σ/g; + return $l; +}; + +our %DISALLOWEDSTD3MAPPED = ( + 0x00A0 => " ", 0x00A8 => " \x{0308}", 0x00AF => " \x{0304}", 0x00B4 => " \x{0301}", 0x00B8 => " \x{0327}", 0x02D8 => " \x{0306}", 0x02D9 => " \x{0307}", 0x02DA => " \x{030A}", + 0x02DB => " \x{0328}", 0x02DC => " \x{0303}", 0x02DD => " \x{030B}", 0x037A => " ι", 0x037E => "\;", 0x0384 => " \x{0301}", 0x0385 => " \x{0308}\x{0301}", 0x1FBD => " \x{0313}", + 0x1FBF => " \x{0313}", 0x1FC0 => " \x{0342}", 0x1FC1 => " \x{0308}\x{0342}", 0x1FCD => " \x{0313}\x{0300}", 0x1FCE => " \x{0313}\x{0301}", 0x1FCF => " \x{0313}\x{0342}", 0x1FDD => " \x{0314}\x{0300}", 0x1FDE => " \x{0314}\x{0301}", + 0x1FDF => " \x{0314}\x{0342}", 0x1FED => " \x{0308}\x{0300}", 0x1FEE => " \x{0308}\x{0301}", 0x1FEF => "\`", 0x1FFD => " \x{0301}", 0x1FFE => " \x{0314}", 0x2000 => " ", 0x2001 => " ", + 0x2002 => " ", 0x2003 => " ", 0x2004 => " ", 0x2005 => " ", 0x2006 => " ", 0x2007 => " ", 0x2008 => " ", 0x2009 => " ", + 0x200A => " ", 0x2017 => " \x{0333}", 0x202F => " ", 0x203C => "\!\!", 0x203E => " \x{0305}", 0x2047 => "\?\?", 0x2048 => "\?\!", 0x2049 => "\!\?", + 0x205F => " ", 0x207A => "\+", 0x207C => "\=", 0x207D => "\(", 0x207E => "\)", 0x208A => "\+", 0x208C => "\=", 0x208D => "\(", + 0x208E => "\)", 0x2100 => "a\/c", 0x2101 => "a\/s", 0x2105 => "c\/o", 0x2106 => "c\/u", 0x2474 => "\(1\)", 0x2475 => "\(2\)", 0x2476 => "\(3\)", + 0x2477 => "\(4\)", 0x2478 => "\(5\)", 0x2479 => "\(6\)", 0x247A => "\(7\)", 0x247B => "\(8\)", 0x247C => "\(9\)", 0x247D => "\(10\)", 0x247E => "\(11\)", + 0x247F => "\(12\)", 0x2480 => "\(13\)", 0x2481 => "\(14\)", 0x2482 => "\(15\)", 0x2483 => "\(16\)", 0x2484 => "\(17\)", 0x2485 => "\(18\)", 0x2486 => "\(19\)", + 0x2487 => "\(20\)", 0x249C => "\(a\)", 0x249D => "\(b\)", 0x249E => "\(c\)", 0x249F => "\(d\)", 0x24A0 => "\(e\)", 0x24A1 => "\(f\)", 0x24A2 => "\(g\)", + 0x24A3 => "\(h\)", 0x24A4 => "\(i\)", 0x24A5 => "\(j\)", 0x24A6 => "\(k\)", 0x24A7 => "\(l\)", 0x24A8 => "\(m\)", 0x24A9 => "\(n\)", 0x24AA => "\(o\)", + 0x24AB => "\(p\)", 0x24AC => "\(q\)", 0x24AD => "\(r\)", 0x24AE => "\(s\)", 0x24AF => "\(t\)", 0x24B0 => "\(u\)", 0x24B1 => "\(v\)", 0x24B2 => "\(w\)", + 0x24B3 => "\(x\)", 0x24B4 => "\(y\)", 0x24B5 => "\(z\)", 0x2A74 => "\:\:\=", 0x2A75 => "\=\=", 0x2A76 => "\=\=\=", 0x3000 => " ", 0x309B => " \x{3099}", + 0x309C => " \x{309A}", 0x3200 => "\(ᄀ\)", 0x3201 => "\(ᄂ\)", 0x3202 => "\(ᄃ\)", 0x3203 => "\(ᄅ\)", 0x3204 => "\(ᄆ\)", 0x3205 => "\(ᄇ\)", 0x3206 => "\(ᄉ\)", + 0x3207 => "\(ᄋ\)", 0x3208 => "\(ᄌ\)", 0x3209 => "\(ᄎ\)", 0x320A => "\(ᄏ\)", 0x320B => "\(ᄐ\)", 0x320C => "\(ᄑ\)", 0x320D => "\(ᄒ\)", 0x320E => "\(가\)", + 0x320F => "\(나\)", 0x3210 => "\(다\)", 0x3211 => "\(라\)", 0x3212 => "\(마\)", 0x3213 => "\(바\)", 0x3214 => "\(사\)", 0x3215 => "\(아\)", 0x3216 => "\(자\)", + 0x3217 => "\(차\)", 0x3218 => "\(카\)", 0x3219 => "\(타\)", 0x321A => "\(파\)", 0x321B => "\(하\)", 0x321C => "\(주\)", 0x321D => "\(오전\)", 0x321E => "\(오후\)", + 0x3220 => "\(一\)", 0x3221 => "\(二\)", 0x3222 => "\(三\)", 0x3223 => "\(四\)", 0x3224 => "\(五\)", 0x3225 => "\(六\)", 0x3226 => "\(七\)", 0x3227 => "\(八\)", + 0x3228 => "\(九\)", 0x3229 => "\(十\)", 0x322A => "\(月\)", 0x322B => "\(火\)", 0x322C => "\(水\)", 0x322D => "\(木\)", 0x322E => "\(金\)", 0x322F => "\(土\)", + 0x3230 => "\(日\)", 0x3231 => "\(株\)", 0x3232 => "\(有\)", 0x3233 => "\(社\)", 0x3234 => "\(名\)", 0x3235 => "\(特\)", 0x3236 => "\(財\)", 0x3237 => "\(祝\)", + 0x3238 => "\(労\)", 0x3239 => "\(代\)", 0x323A => "\(呼\)", 0x323B => "\(学\)", 0x323C => "\(監\)", 0x323D => "\(企\)", 0x323E => "\(資\)", 0x323F => "\(協\)", + 0x3240 => "\(祭\)", 0x3241 => "\(休\)", 0x3242 => "\(自\)", 0x3243 => "\(至\)", 0xFB29 => "\+", 0xFC5E => " ٌّ", 0xFC5F => " ٍّ", 0xFC60 => " َّ", + 0xFC61 => " ُّ", 0xFC62 => " ِّ", 0xFC63 => " ّٰ", 0xFDFA => "صلى الله عليه وسلم", 0xFDFB => "جل جلاله", 0xFE10 => "\,", 0xFE13 => "\:", 0xFE14 => "\;", + 0xFE15 => "\!", 0xFE16 => "\?", 0xFE33 => "_", 0xFE34 => "_", 0xFE35 => "\(", 0xFE36 => "\)", 0xFE37 => "\{", 0xFE38 => "\}", + 0xFE47 => "\[", 0xFE48 => "\]", 0xFE49 => " \x{0305}", 0xFE4A => " \x{0305}", 0xFE4B => " \x{0305}", 0xFE4C => " \x{0305}", 0xFE4D => "_", 0xFE4E => "_", + 0xFE4F => "_", 0xFE50 => "\,", 0xFE54 => "\;", 0xFE55 => "\:", 0xFE56 => "\?", 0xFE57 => "\!", 0xFE59 => "\(", 0xFE5A => "\)", + 0xFE5B => "\{", 0xFE5C => "\}", 0xFE5F => "\#", 0xFE60 => "\&", 0xFE61 => "\*", 0xFE62 => "\+", 0xFE64 => "\<", 0xFE65 => "\>", + 0xFE66 => "\=", 0xFE68 => "\\", 0xFE69 => "\$", 0xFE6A => "\%", 0xFE6B => "\@", 0xFE70 => " ً", 0xFE72 => " ٌ", 0xFE74 => " ٍ", + 0xFE76 => " َ", 0xFE78 => " ُ", 0xFE7A => " ِ", 0xFE7C => " ّ", 0xFE7E => " ْ", 0xFF01 => "\!", 0xFF02 => "\"", 0xFF03 => "\#", + 0xFF04 => "\$", 0xFF05 => "\%", 0xFF06 => "\&", 0xFF07 => "\'", 0xFF08 => "\(", 0xFF09 => "\)", 0xFF0A => "\*", 0xFF0B => "\+", + 0xFF0C => "\,", 0xFF0F => "\/", 0xFF1A => "\:", 0xFF1B => "\;", 0xFF1C => "\<", 0xFF1D => "\=", 0xFF1E => "\>", 0xFF1F => "\?", + 0xFF20 => "\@", 0xFF3B => "\[", 0xFF3C => "\\", 0xFF3D => "\]", 0xFF3E => "\^", 0xFF3F => "_", 0xFF40 => "\`", 0xFF5B => "\{", + 0xFF5C => "\|", 0xFF5D => "\}", 0xFF5E => "\~", 0xFFE3 => " \x{0304}", 0x1F101 => "0\,", 0x1F102 => "1\,", 0x1F103 => "2\,", 0x1F104 => "3\,", + 0x1F105 => "4\,", 0x1F106 => "5\,", 0x1F107 => "6\,", 0x1F108 => "7\,", 0x1F109 => "8\,", 0x1F10A => "9\,", 0x1F110 => "\(a\)", 0x1F111 => "\(b\)", + 0x1F112 => "\(c\)", 0x1F113 => "\(d\)", 0x1F114 => "\(e\)", 0x1F115 => "\(f\)", 0x1F116 => "\(g\)", 0x1F117 => "\(h\)", 0x1F118 => "\(i\)", 0x1F119 => "\(j\)", + 0x1F11A => "\(k\)", 0x1F11B => "\(l\)", 0x1F11C => "\(m\)", 0x1F11D => "\(n\)", 0x1F11E => "\(o\)", 0x1F11F => "\(p\)", 0x1F120 => "\(q\)", 0x1F121 => "\(r\)", + 0x1F122 => "\(s\)", 0x1F123 => "\(t\)", 0x1F124 => "\(u\)", 0x1F125 => "\(v\)", 0x1F126 => "\(w\)", 0x1F127 => "\(x\)", 0x1F128 => "\(y\)", 0x1F129 => "\(z\)",); + +our @DISALLOWEDSTD3MAPPED = ( + 0x00A0, undef, 0x00A8, undef, 0x00AF, undef, 0x00B4, undef, 0x00B8, undef, 0x02D8, 0x02DD, 0x037A, undef, 0x037E, undef, + 0x0384, 0x0385, 0x1FBD, undef, 0x1FBF, 0x1FC1, 0x1FCD, 0x1FCF, 0x1FDD, 0x1FDF, 0x1FED, 0x1FEF, 0x1FFD, 0x1FFE, 0x2000, 0x200A, + 0x2017, undef, 0x202F, undef, 0x203C, undef, 0x203E, undef, 0x2047, 0x2049, 0x205F, undef, 0x207A, undef, 0x207C, 0x207E, + 0x208A, undef, 0x208C, 0x208E, 0x2100, 0x2101, 0x2105, 0x2106, 0x2474, 0x2487, 0x249C, 0x24B5, 0x2A74, 0x2A76, 0x3000, undef, + 0x309B, 0x309C, 0x3200, 0x321E, 0x3220, 0x3243, 0xFB29, undef, 0xFC5E, 0xFC63, 0xFDFA, 0xFDFB, 0xFE10, undef, 0xFE13, 0xFE16, + 0xFE33, 0xFE38, 0xFE47, 0xFE50, 0xFE54, 0xFE57, 0xFE59, 0xFE5C, 0xFE5F, 0xFE62, 0xFE64, 0xFE66, 0xFE68, 0xFE6B, 0xFE70, undef, + 0xFE72, undef, 0xFE74, undef, 0xFE76, undef, 0xFE78, undef, 0xFE7A, undef, 0xFE7C, undef, 0xFE7E, undef, 0xFF01, 0xFF0C, + 0xFF0F, undef, 0xFF1A, 0xFF20, 0xFF3B, 0xFF40, 0xFF5B, 0xFF5E, 0xFFE3, undef, 0x1F101, 0x1F10A, 0x1F110, 0x1F129, +); +sub IsDisallowedSTD3Mapped { return _mk_prop(@DISALLOWEDSTD3MAPPED); }; +sub MapDisallowedSTD3Mapped { my $l = shift; + $l =~ tr/\x{00A0}\x{037E}\x{1FEF}\x{2000}\x{2001}\x{2002}\x{2003}\x{2004}\x{2005}\x{2006}\x{2007}\x{2008}\x{2009}\x{200A}\x{202F}\x{205F}\x{207A}\x{207C}\x{207D}\x{207E}\x{208A}\x{208C}\x{208D}\x{208E}\x{3000}\x{FB29}\x{FE10}\x{FE13}\x{FE14}\x{FE15}\x{FE16}\x{FE33}\x{FE34}\x{FE35}\x{FE36}\x{FE37}\x{FE38}\x{FE47}\x{FE48}\x{FE4D}\x{FE4E}\x{FE4F}\x{FE50}\x{FE54}\x{FE55}\x{FE56}\x{FE57}\x{FE59}\x{FE5A}\x{FE5B}\x{FE5C}\x{FE5F}\x{FE60}\x{FE61}\x{FE62}\x{FE64}\x{FE65}\x{FE66}\x{FE68}\x{FE69}\x{FE6A}\x{FE6B}\x{FF01}\x{FF02}\x{FF03}\x{FF04}\x{FF05}\x{FF06}\x{FF07}\x{FF08}\x{FF09}\x{FF0A}\x{FF0B}\x{FF0C}\x{FF0F}\x{FF1A}\x{FF1B}\x{FF1C}\x{FF1D}\x{FF1E}\x{FF1F}\x{FF20}\x{FF3B}\x{FF3C}\x{FF3D}\x{FF3E}\x{FF3F}\x{FF40}\x{FF5B}\x{FF5C}\x{FF5D}\x{FF5E}/ \;\` \+\=\(\)\+\=\(\) \+\,\:\;\!\?__\(\)\{\}\[\]___\,\;\:\?\!\(\)\{\}\#\&\*\+\<\>\=\\\$\%\@\!\"\#\$\%\&\'\(\)\*\+\,\/\:\;\<\=\>\?\@\[\\\]\^_\`\{\|\}\~/; + $l =~ s/([\x{00A8}\x{00AF}\x{00B4}\x{00B8}\x{02D8}\x{02D9}\x{02DA}\x{02DB}\x{02DC}\x{02DD}ͺ\x{0384}\x{0385}\x{1FBD}\x{1FBF}\x{1FC0}\x{1FC1}\x{1FCD}\x{1FCE}\x{1FCF}\x{1FDD}\x{1FDE}\x{1FDF}\x{1FED}\x{1FEE}\x{1FFD}\x{1FFE}\x{2017}\x{203C}\x{203E}\x{2047}\x{2048}\x{2049}\x{2100}\x{2101}\x{2105}\x{2106}\x{2474}\x{2475}\x{2476}\x{2477}\x{2478}\x{2479}\x{247A}\x{247B}\x{247C}\x{247D}\x{247E}\x{247F}\x{2480}\x{2481}\x{2482}\x{2483}\x{2484}\x{2485}\x{2486}\x{2487}\x{249C}\x{249D}\x{249E}\x{249F}\x{24A0}\x{24A1}\x{24A2}\x{24A3}\x{24A4}\x{24A5}\x{24A6}\x{24A7}\x{24A8}\x{24A9}\x{24AA}\x{24AB}\x{24AC}\x{24AD}\x{24AE}\x{24AF}\x{24B0}\x{24B1}\x{24B2}\x{24B3}\x{24B4}\x{24B5}\x{2A74}\x{2A75}\x{2A76}\x{309B}\x{309C}\x{3200}\x{3201}\x{3202}\x{3203}\x{3204}\x{3205}\x{3206}\x{3207}\x{3208}\x{3209}\x{320A}\x{320B}\x{320C}\x{320D}\x{320E}\x{320F}\x{3210}\x{3211}\x{3212}\x{3213}\x{3214}\x{3215}\x{3216}\x{3217}\x{3218}\x{3219}\x{321A}\x{321B}\x{321C}\x{321D}\x{321E}\x{3220}\x{3221}\x{3222}\x{3223}\x{3224}\x{3225}\x{3226}\x{3227}\x{3228}\x{3229}\x{322A}\x{322B}\x{322C}\x{322D}\x{322E}\x{322F}\x{3230}\x{3231}\x{3232}\x{3233}\x{3234}\x{3235}\x{3236}\x{3237}\x{3238}\x{3239}\x{323A}\x{323B}\x{323C}\x{323D}\x{323E}\x{323F}\x{3240}\x{3241}\x{3242}\x{3243}ﱞﱟﱠﱡﱢﱣﷺﷻ\x{FE49}\x{FE4A}\x{FE4B}\x{FE4C}ﹰﹲﹴﹶﹸﹺﹼﹾ\x{FFE3}\x{1F101}\x{1F102}\x{1F103}\x{1F104}\x{1F105}\x{1F106}\x{1F107}\x{1F108}\x{1F109}\x{1F10A}\x{1F110}\x{1F111}\x{1F112}\x{1F113}\x{1F114}\x{1F115}\x{1F116}\x{1F117}\x{1F118}\x{1F119}\x{1F11A}\x{1F11B}\x{1F11C}\x{1F11D}\x{1F11E}\x{1F11F}\x{1F120}\x{1F121}\x{1F122}\x{1F123}\x{1F124}\x{1F125}\x{1F126}\x{1F127}\x{1F128}\x{1F129}])/$DISALLOWEDSTD3MAPPED{ord($1)}/eg; + return $l; +}; + +our %IGNORED = ( + 0x00AD => "", 0x034F => "", 0x180B => "", 0x180C => "", 0x180D => "", 0x200B => "", 0x2060 => "", 0x2064 => "", + 0xFE00 => "", 0xFE01 => "", 0xFE02 => "", 0xFE03 => "", 0xFE04 => "", 0xFE05 => "", 0xFE06 => "", 0xFE07 => "", + 0xFE08 => "", 0xFE09 => "", 0xFE0A => "", 0xFE0B => "", 0xFE0C => "", 0xFE0D => "", 0xFE0E => "", 0xFE0F => "", + 0xFEFF => "", 0x1BCA0 => "", 0x1BCA1 => "", 0x1BCA2 => "", 0x1BCA3 => "", 0xE0100 => "", 0xE0101 => "", 0xE0102 => "", + 0xE0103 => "", 0xE0104 => "", 0xE0105 => "", 0xE0106 => "", 0xE0107 => "", 0xE0108 => "", 0xE0109 => "", 0xE010A => "", + 0xE010B => "", 0xE010C => "", 0xE010D => "", 0xE010E => "", 0xE010F => "", 0xE0110 => "", 0xE0111 => "", 0xE0112 => "", + 0xE0113 => "", 0xE0114 => "", 0xE0115 => "", 0xE0116 => "", 0xE0117 => "", 0xE0118 => "", 0xE0119 => "", 0xE011A => "", + 0xE011B => "", 0xE011C => "", 0xE011D => "", 0xE011E => "", 0xE011F => "", 0xE0120 => "", 0xE0121 => "", 0xE0122 => "", + 0xE0123 => "", 0xE0124 => "", 0xE0125 => "", 0xE0126 => "", 0xE0127 => "", 0xE0128 => "", 0xE0129 => "", 0xE012A => "", + 0xE012B => "", 0xE012C => "", 0xE012D => "", 0xE012E => "", 0xE012F => "", 0xE0130 => "", 0xE0131 => "", 0xE0132 => "", + 0xE0133 => "", 0xE0134 => "", 0xE0135 => "", 0xE0136 => "", 0xE0137 => "", 0xE0138 => "", 0xE0139 => "", 0xE013A => "", + 0xE013B => "", 0xE013C => "", 0xE013D => "", 0xE013E => "", 0xE013F => "", 0xE0140 => "", 0xE0141 => "", 0xE0142 => "", + 0xE0143 => "", 0xE0144 => "", 0xE0145 => "", 0xE0146 => "", 0xE0147 => "", 0xE0148 => "", 0xE0149 => "", 0xE014A => "", + 0xE014B => "", 0xE014C => "", 0xE014D => "", 0xE014E => "", 0xE014F => "", 0xE0150 => "", 0xE0151 => "", 0xE0152 => "", + 0xE0153 => "", 0xE0154 => "", 0xE0155 => "", 0xE0156 => "", 0xE0157 => "", 0xE0158 => "", 0xE0159 => "", 0xE015A => "", + 0xE015B => "", 0xE015C => "", 0xE015D => "", 0xE015E => "", 0xE015F => "", 0xE0160 => "", 0xE0161 => "", 0xE0162 => "", + 0xE0163 => "", 0xE0164 => "", 0xE0165 => "", 0xE0166 => "", 0xE0167 => "", 0xE0168 => "", 0xE0169 => "", 0xE016A => "", + 0xE016B => "", 0xE016C => "", 0xE016D => "", 0xE016E => "", 0xE016F => "", 0xE0170 => "", 0xE0171 => "", 0xE0172 => "", + 0xE0173 => "", 0xE0174 => "", 0xE0175 => "", 0xE0176 => "", 0xE0177 => "", 0xE0178 => "", 0xE0179 => "", 0xE017A => "", + 0xE017B => "", 0xE017C => "", 0xE017D => "", 0xE017E => "", 0xE017F => "", 0xE0180 => "", 0xE0181 => "", 0xE0182 => "", + 0xE0183 => "", 0xE0184 => "", 0xE0185 => "", 0xE0186 => "", 0xE0187 => "", 0xE0188 => "", 0xE0189 => "", 0xE018A => "", + 0xE018B => "", 0xE018C => "", 0xE018D => "", 0xE018E => "", 0xE018F => "", 0xE0190 => "", 0xE0191 => "", 0xE0192 => "", + 0xE0193 => "", 0xE0194 => "", 0xE0195 => "", 0xE0196 => "", 0xE0197 => "", 0xE0198 => "", 0xE0199 => "", 0xE019A => "", + 0xE019B => "", 0xE019C => "", 0xE019D => "", 0xE019E => "", 0xE019F => "", 0xE01A0 => "", 0xE01A1 => "", 0xE01A2 => "", + 0xE01A3 => "", 0xE01A4 => "", 0xE01A5 => "", 0xE01A6 => "", 0xE01A7 => "", 0xE01A8 => "", 0xE01A9 => "", 0xE01AA => "", + 0xE01AB => "", 0xE01AC => "", 0xE01AD => "", 0xE01AE => "", 0xE01AF => "", 0xE01B0 => "", 0xE01B1 => "", 0xE01B2 => "", + 0xE01B3 => "", 0xE01B4 => "", 0xE01B5 => "", 0xE01B6 => "", 0xE01B7 => "", 0xE01B8 => "", 0xE01B9 => "", 0xE01BA => "", + 0xE01BB => "", 0xE01BC => "", 0xE01BD => "", 0xE01BE => "", 0xE01BF => "", 0xE01C0 => "", 0xE01C1 => "", 0xE01C2 => "", + 0xE01C3 => "", 0xE01C4 => "", 0xE01C5 => "", 0xE01C6 => "", 0xE01C7 => "", 0xE01C8 => "", 0xE01C9 => "", 0xE01CA => "", + 0xE01CB => "", 0xE01CC => "", 0xE01CD => "", 0xE01CE => "", 0xE01CF => "", 0xE01D0 => "", 0xE01D1 => "", 0xE01D2 => "", + 0xE01D3 => "", 0xE01D4 => "", 0xE01D5 => "", 0xE01D6 => "", 0xE01D7 => "", 0xE01D8 => "", 0xE01D9 => "", 0xE01DA => "", + 0xE01DB => "", 0xE01DC => "", 0xE01DD => "", 0xE01DE => "", 0xE01DF => "", 0xE01E0 => "", 0xE01E1 => "", 0xE01E2 => "", + 0xE01E3 => "", 0xE01E4 => "", 0xE01E5 => "", 0xE01E6 => "", 0xE01E7 => "", 0xE01E8 => "", 0xE01E9 => "", 0xE01EA => "", + 0xE01EB => "", 0xE01EC => "", 0xE01ED => "", 0xE01EE => "", 0xE01EF => "",); + +our @IGNORED = ( + 0x00AD, undef, 0x034F, undef, 0x180B, 0x180D, 0x200B, undef, 0x2060, undef, 0x2064, undef, 0xFE00, 0xFE0F, 0xFEFF, undef, + 0x1BCA0, 0x1BCA3, 0xE0100, 0xE01EF, +); +sub IsIgnored { return _mk_prop(@IGNORED); }; +sub MapIgnored { my $l = shift; + $l =~ s/\p{IsIgnored}//g; + return $l; +}; + +our %MAPPED = ( + 0x0041 => "a", 0x0042 => "b", 0x0043 => "c", 0x0044 => "d", 0x0045 => "e", 0x0046 => "f", 0x0047 => "g", 0x0048 => "h", + 0x0049 => "i", 0x004A => "j", 0x004B => "k", 0x004C => "l", 0x004D => "m", 0x004E => "n", 0x004F => "o", 0x0050 => "p", + 0x0051 => "q", 0x0052 => "r", 0x0053 => "s", 0x0054 => "t", 0x0055 => "u", 0x0056 => "v", 0x0057 => "w", 0x0058 => "x", + 0x0059 => "y", 0x005A => "z", 0x00AA => "a", 0x00B2 => "2", 0x00B3 => "3", 0x00B5 => "μ", 0x00B9 => "1", 0x00BA => "o", + 0x00BC => "1\x{2044}4", 0x00BD => "1\x{2044}2", 0x00BE => "3\x{2044}4", 0x00C0 => "à", 0x00C1 => "á", 0x00C2 => "â", 0x00C3 => "ã", 0x00C4 => "ä", + 0x00C5 => "å", 0x00C6 => "æ", 0x00C7 => "ç", 0x00C8 => "è", 0x00C9 => "é", 0x00CA => "ê", 0x00CB => "ë", 0x00CC => "ì", + 0x00CD => "í", 0x00CE => "î", 0x00CF => "ï", 0x00D0 => "ð", 0x00D1 => "ñ", 0x00D2 => "ò", 0x00D3 => "ó", 0x00D4 => "ô", + 0x00D5 => "õ", 0x00D6 => "ö", 0x00D8 => "ø", 0x00D9 => "ù", 0x00DA => "ú", 0x00DB => "û", 0x00DC => "ü", 0x00DD => "ý", + 0x00DE => "þ", 0x0100 => "ā", 0x0102 => "ă", 0x0104 => "ą", 0x0106 => "ć", 0x0108 => "ĉ", 0x010A => "ċ", 0x010C => "č", + 0x010E => "ď", 0x0110 => "đ", 0x0112 => "ē", 0x0114 => "ĕ", 0x0116 => "ė", 0x0118 => "ę", 0x011A => "ě", 0x011C => "ĝ", + 0x011E => "ğ", 0x0120 => "ġ", 0x0122 => "ģ", 0x0124 => "ĥ", 0x0126 => "ħ", 0x0128 => "ĩ", 0x012A => "ī", 0x012C => "ĭ", + 0x012E => "į", 0x0130 => "i\x{0307}", 0x0132 => "ij", 0x0133 => "ij", 0x0134 => "ĵ", 0x0136 => "ķ", 0x0139 => "ĺ", 0x013B => "ļ", + 0x013D => "ľ", 0x013F => "l\x{00B7}", 0x0140 => "l\x{00B7}", 0x0141 => "ł", 0x0143 => "ń", 0x0145 => "ņ", 0x0147 => "ň", 0x0149 => "ʼn", + 0x014A => "ŋ", 0x014C => "ō", 0x014E => "ŏ", 0x0150 => "ő", 0x0152 => "œ", 0x0154 => "ŕ", 0x0156 => "ŗ", 0x0158 => "ř", + 0x015A => "ś", 0x015C => "ŝ", 0x015E => "ş", 0x0160 => "š", 0x0162 => "ţ", 0x0164 => "ť", 0x0166 => "ŧ", 0x0168 => "ũ", + 0x016A => "ū", 0x016C => "ŭ", 0x016E => "ů", 0x0170 => "ű", 0x0172 => "ų", 0x0174 => "ŵ", 0x0176 => "ŷ", 0x0178 => "ÿ", + 0x0179 => "ź", 0x017B => "ż", 0x017D => "ž", 0x017F => "s", 0x0181 => "ɓ", 0x0182 => "ƃ", 0x0184 => "ƅ", 0x0186 => "ɔ", + 0x0187 => "ƈ", 0x0189 => "ɖ", 0x018A => "ɗ", 0x018B => "ƌ", 0x018E => "ǝ", 0x018F => "ə", 0x0190 => "ɛ", 0x0191 => "ƒ", + 0x0193 => "ɠ", 0x0194 => "ɣ", 0x0196 => "ɩ", 0x0197 => "ɨ", 0x0198 => "ƙ", 0x019C => "ɯ", 0x019D => "ɲ", 0x019F => "ɵ", + 0x01A0 => "ơ", 0x01A2 => "ƣ", 0x01A4 => "ƥ", 0x01A6 => "ʀ", 0x01A7 => "ƨ", 0x01A9 => "ʃ", 0x01AC => "ƭ", 0x01AE => "ʈ", + 0x01AF => "ư", 0x01B1 => "ʊ", 0x01B2 => "ʋ", 0x01B3 => "ƴ", 0x01B5 => "ƶ", 0x01B7 => "ʒ", 0x01B8 => "ƹ", 0x01BC => "ƽ", + 0x01C4 => "dž", 0x01C5 => "dž", 0x01C6 => "dž", 0x01C7 => "lj", 0x01C8 => "lj", 0x01C9 => "lj", 0x01CA => "nj", 0x01CB => "nj", + 0x01CC => "nj", 0x01CD => "ǎ", 0x01CF => "ǐ", 0x01D1 => "ǒ", 0x01D3 => "ǔ", 0x01D5 => "ǖ", 0x01D7 => "ǘ", 0x01D9 => "ǚ", + 0x01DB => "ǜ", 0x01DE => "ǟ", 0x01E0 => "ǡ", 0x01E2 => "ǣ", 0x01E4 => "ǥ", 0x01E6 => "ǧ", 0x01E8 => "ǩ", 0x01EA => "ǫ", + 0x01EC => "ǭ", 0x01EE => "ǯ", 0x01F1 => "dz", 0x01F2 => "dz", 0x01F3 => "dz", 0x01F4 => "ǵ", 0x01F6 => "ƕ", 0x01F7 => "ƿ", + 0x01F8 => "ǹ", 0x01FA => "ǻ", 0x01FC => "ǽ", 0x01FE => "ǿ", 0x0200 => "ȁ", 0x0202 => "ȃ", 0x0204 => "ȅ", 0x0206 => "ȇ", + 0x0208 => "ȉ", 0x020A => "ȋ", 0x020C => "ȍ", 0x020E => "ȏ", 0x0210 => "ȑ", 0x0212 => "ȓ", 0x0214 => "ȕ", 0x0216 => "ȗ", + 0x0218 => "ș", 0x021A => "ț", 0x021C => "ȝ", 0x021E => "ȟ", 0x0220 => "ƞ", 0x0222 => "ȣ", 0x0224 => "ȥ", 0x0226 => "ȧ", + 0x0228 => "ȩ", 0x022A => "ȫ", 0x022C => "ȭ", 0x022E => "ȯ", 0x0230 => "ȱ", 0x0232 => "ȳ", 0x023A => "ⱥ", 0x023B => "ȼ", + 0x023D => "ƚ", 0x023E => "ⱦ", 0x0241 => "ɂ", 0x0243 => "ƀ", 0x0244 => "ʉ", 0x0245 => "ʌ", 0x0246 => "ɇ", 0x0248 => "ɉ", + 0x024A => "ɋ", 0x024C => "ɍ", 0x024E => "ɏ", 0x02B0 => "h", 0x02B1 => "ɦ", 0x02B2 => "j", 0x02B3 => "r", 0x02B4 => "ɹ", + 0x02B5 => "ɻ", 0x02B6 => "ʁ", 0x02B7 => "w", 0x02B8 => "y", 0x02E0 => "ɣ", 0x02E1 => "l", 0x02E2 => "s", 0x02E3 => "x", + 0x02E4 => "ʕ", 0x0340 => "\x{0300}", 0x0341 => "\x{0301}", 0x0343 => "\x{0313}", 0x0344 => "\x{0308}\x{0301}", 0x0345 => "ι", 0x0370 => "ͱ", 0x0372 => "ͳ", + 0x0374 => "ʹ", 0x0376 => "ͷ", 0x037F => "ϳ", 0x0386 => "ά", 0x0387 => "\x{00B7}", 0x0388 => "έ", 0x0389 => "ή", 0x038A => "ί", + 0x038C => "ό", 0x038E => "ύ", 0x038F => "ώ", 0x0391 => "α", 0x0392 => "β", 0x0393 => "γ", 0x0394 => "δ", 0x0395 => "ε", + 0x0396 => "ζ", 0x0397 => "η", 0x0398 => "θ", 0x0399 => "ι", 0x039A => "κ", 0x039B => "λ", 0x039C => "μ", 0x039D => "ν", + 0x039E => "ξ", 0x039F => "ο", 0x03A0 => "π", 0x03A1 => "ρ", 0x03A3 => "σ", 0x03A4 => "τ", 0x03A5 => "υ", 0x03A6 => "φ", + 0x03A7 => "χ", 0x03A8 => "ψ", 0x03A9 => "ω", 0x03AA => "ϊ", 0x03AB => "ϋ", 0x03CF => "ϗ", 0x03D0 => "β", 0x03D1 => "θ", + 0x03D2 => "υ", 0x03D3 => "ύ", 0x03D4 => "ϋ", 0x03D5 => "φ", 0x03D6 => "π", 0x03D8 => "ϙ", 0x03DA => "ϛ", 0x03DC => "ϝ", + 0x03DE => "ϟ", 0x03E0 => "ϡ", 0x03E2 => "ϣ", 0x03E4 => "ϥ", 0x03E6 => "ϧ", 0x03E8 => "ϩ", 0x03EA => "ϫ", 0x03EC => "ϭ", + 0x03EE => "ϯ", 0x03F0 => "κ", 0x03F1 => "ρ", 0x03F2 => "σ", 0x03F4 => "θ", 0x03F5 => "ε", 0x03F7 => "ϸ", 0x03F9 => "σ", + 0x03FA => "ϻ", 0x03FD => "ͻ", 0x03FE => "ͼ", 0x03FF => "ͽ", 0x0400 => "ѐ", 0x0401 => "ё", 0x0402 => "ђ", 0x0403 => "ѓ", + 0x0404 => "є", 0x0405 => "ѕ", 0x0406 => "і", 0x0407 => "ї", 0x0408 => "ј", 0x0409 => "љ", 0x040A => "њ", 0x040B => "ћ", + 0x040C => "ќ", 0x040D => "ѝ", 0x040E => "ў", 0x040F => "џ", 0x0410 => "а", 0x0411 => "б", 0x0412 => "в", 0x0413 => "г", + 0x0414 => "д", 0x0415 => "е", 0x0416 => "ж", 0x0417 => "з", 0x0418 => "и", 0x0419 => "й", 0x041A => "к", 0x041B => "л", + 0x041C => "м", 0x041D => "н", 0x041E => "о", 0x041F => "п", 0x0420 => "р", 0x0421 => "с", 0x0422 => "т", 0x0423 => "у", + 0x0424 => "ф", 0x0425 => "х", 0x0426 => "ц", 0x0427 => "ч", 0x0428 => "ш", 0x0429 => "щ", 0x042A => "ъ", 0x042B => "ы", + 0x042C => "ь", 0x042D => "э", 0x042E => "ю", 0x042F => "я", 0x0460 => "ѡ", 0x0462 => "ѣ", 0x0464 => "ѥ", 0x0466 => "ѧ", + 0x0468 => "ѩ", 0x046A => "ѫ", 0x046C => "ѭ", 0x046E => "ѯ", 0x0470 => "ѱ", 0x0472 => "ѳ", 0x0474 => "ѵ", 0x0476 => "ѷ", + 0x0478 => "ѹ", 0x047A => "ѻ", 0x047C => "ѽ", 0x047E => "ѿ", 0x0480 => "ҁ", 0x048A => "ҋ", 0x048C => "ҍ", 0x048E => "ҏ", + 0x0490 => "ґ", 0x0492 => "ғ", 0x0494 => "ҕ", 0x0496 => "җ", 0x0498 => "ҙ", 0x049A => "қ", 0x049C => "ҝ", 0x049E => "ҟ", + 0x04A0 => "ҡ", 0x04A2 => "ң", 0x04A4 => "ҥ", 0x04A6 => "ҧ", 0x04A8 => "ҩ", 0x04AA => "ҫ", 0x04AC => "ҭ", 0x04AE => "ү", + 0x04B0 => "ұ", 0x04B2 => "ҳ", 0x04B4 => "ҵ", 0x04B6 => "ҷ", 0x04B8 => "ҹ", 0x04BA => "һ", 0x04BC => "ҽ", 0x04BE => "ҿ", + 0x04C1 => "ӂ", 0x04C3 => "ӄ", 0x04C5 => "ӆ", 0x04C7 => "ӈ", 0x04C9 => "ӊ", 0x04CB => "ӌ", 0x04CD => "ӎ", 0x04D0 => "ӑ", + 0x04D2 => "ӓ", 0x04D4 => "ӕ", 0x04D6 => "ӗ", 0x04D8 => "ә", 0x04DA => "ӛ", 0x04DC => "ӝ", 0x04DE => "ӟ", 0x04E0 => "ӡ", + 0x04E2 => "ӣ", 0x04E4 => "ӥ", 0x04E6 => "ӧ", 0x04E8 => "ө", 0x04EA => "ӫ", 0x04EC => "ӭ", 0x04EE => "ӯ", 0x04F0 => "ӱ", + 0x04F2 => "ӳ", 0x04F4 => "ӵ", 0x04F6 => "ӷ", 0x04F8 => "ӹ", 0x04FA => "ӻ", 0x04FC => "ӽ", 0x04FE => "ӿ", 0x0500 => "ԁ", + 0x0502 => "ԃ", 0x0504 => "ԅ", 0x0506 => "ԇ", 0x0508 => "ԉ", 0x050A => "ԋ", 0x050C => "ԍ", 0x050E => "ԏ", 0x0510 => "ԑ", + 0x0512 => "ԓ", 0x0514 => "ԕ", 0x0516 => "ԗ", 0x0518 => "ԙ", 0x051A => "ԛ", 0x051C => "ԝ", 0x051E => "ԟ", 0x0520 => "ԡ", + 0x0522 => "ԣ", 0x0524 => "ԥ", 0x0526 => "ԧ", 0x0528 => "ԩ", 0x052A => "ԫ", 0x052C => "ԭ", 0x052E => "ԯ", 0x0531 => "ա", + 0x0532 => "բ", 0x0533 => "գ", 0x0534 => "դ", 0x0535 => "ե", 0x0536 => "զ", 0x0537 => "է", 0x0538 => "ը", 0x0539 => "թ", + 0x053A => "ժ", 0x053B => "ի", 0x053C => "լ", 0x053D => "խ", 0x053E => "ծ", 0x053F => "կ", 0x0540 => "հ", 0x0541 => "ձ", + 0x0542 => "ղ", 0x0543 => "ճ", 0x0544 => "մ", 0x0545 => "յ", 0x0546 => "ն", 0x0547 => "շ", 0x0548 => "ո", 0x0549 => "չ", + 0x054A => "պ", 0x054B => "ջ", 0x054C => "ռ", 0x054D => "ս", 0x054E => "վ", 0x054F => "տ", 0x0550 => "ր", 0x0551 => "ց", + 0x0552 => "ւ", 0x0553 => "փ", 0x0554 => "ք", 0x0555 => "օ", 0x0556 => "ֆ", 0x0587 => "եւ", 0x0675 => "اٴ", 0x0676 => "وٴ", + 0x0677 => "ۇٴ", 0x0678 => "يٴ", 0x0958 => "क\x{093C}", 0x0959 => "ख\x{093C}", 0x095A => "ग\x{093C}", 0x095B => "ज\x{093C}", 0x095C => "ड\x{093C}", 0x095D => "ढ\x{093C}", + 0x095E => "फ\x{093C}", 0x095F => "य\x{093C}", 0x09DC => "ড\x{09BC}", 0x09DD => "ঢ\x{09BC}", 0x09DF => "য\x{09BC}", 0x0A33 => "ਲ\x{0A3C}", 0x0A36 => "ਸ\x{0A3C}", 0x0A59 => "ਖ\x{0A3C}", + 0x0A5A => "ਗ\x{0A3C}", 0x0A5B => "ਜ\x{0A3C}", 0x0A5E => "ਫ\x{0A3C}", 0x0B5C => "ଡ\x{0B3C}", 0x0B5D => "ଢ\x{0B3C}", 0x0E33 => "ํา", 0x0EB3 => "ໍາ", 0x0EDC => "ຫນ", + 0x0EDD => "ຫມ", 0x0F0C => "\x{0F0B}", 0x0F43 => "གྷ", 0x0F4D => "ཌྷ", 0x0F52 => "དྷ", 0x0F57 => "བྷ", 0x0F5C => "ཛྷ", 0x0F69 => "ཀྵ", + 0x0F73 => "ཱི", 0x0F75 => "ཱུ", 0x0F76 => "ྲྀ", 0x0F77 => "ྲཱྀ", 0x0F78 => "ླྀ", 0x0F79 => "ླཱྀ", 0x0F81 => "ཱྀ", 0x0F93 => "ྒྷ", + 0x0F9D => "ྜྷ", 0x0FA2 => "ྡྷ", 0x0FA7 => "ྦྷ", 0x0FAC => "ྫྷ", 0x0FB9 => "ྐྵ", 0x10C7 => "ⴧ", 0x10CD => "ⴭ", 0x10FC => "ნ", + 0x13F8 => "Ᏸ", 0x13F9 => "Ᏹ", 0x13FA => "Ᏺ", 0x13FB => "Ᏻ", 0x13FC => "Ᏼ", 0x13FD => "Ᏽ", 0x1C80 => "в", 0x1C81 => "д", + 0x1C82 => "о", 0x1C83 => "с", 0x1C84 => "т", 0x1C85 => "т", 0x1C86 => "ъ", 0x1C87 => "ѣ", 0x1C88 => "ꙋ", 0x1D2C => "a", + 0x1D2D => "æ", 0x1D2E => "b", 0x1D30 => "d", 0x1D31 => "e", 0x1D32 => "ǝ", 0x1D33 => "g", 0x1D34 => "h", 0x1D35 => "i", + 0x1D36 => "j", 0x1D37 => "k", 0x1D38 => "l", 0x1D39 => "m", 0x1D3A => "n", 0x1D3C => "o", 0x1D3D => "ȣ", 0x1D3E => "p", + 0x1D3F => "r", 0x1D40 => "t", 0x1D41 => "u", 0x1D42 => "w", 0x1D43 => "a", 0x1D44 => "ɐ", 0x1D45 => "ɑ", 0x1D46 => "ᴂ", + 0x1D47 => "b", 0x1D48 => "d", 0x1D49 => "e", 0x1D4A => "ə", 0x1D4B => "ɛ", 0x1D4C => "ɜ", 0x1D4D => "g", 0x1D4F => "k", + 0x1D50 => "m", 0x1D51 => "ŋ", 0x1D52 => "o", 0x1D53 => "ɔ", 0x1D54 => "ᴖ", 0x1D55 => "ᴗ", 0x1D56 => "p", 0x1D57 => "t", + 0x1D58 => "u", 0x1D59 => "ᴝ", 0x1D5A => "ɯ", 0x1D5B => "v", 0x1D5C => "ᴥ", 0x1D5D => "β", 0x1D5E => "γ", 0x1D5F => "δ", + 0x1D60 => "φ", 0x1D61 => "χ", 0x1D62 => "i", 0x1D63 => "r", 0x1D64 => "u", 0x1D65 => "v", 0x1D66 => "β", 0x1D67 => "γ", + 0x1D68 => "ρ", 0x1D69 => "φ", 0x1D6A => "χ", 0x1D78 => "н", 0x1D9B => "ɒ", 0x1D9C => "c", 0x1D9D => "ɕ", 0x1D9E => "ð", + 0x1D9F => "ɜ", 0x1DA0 => "f", 0x1DA1 => "ɟ", 0x1DA2 => "ɡ", 0x1DA3 => "ɥ", 0x1DA4 => "ɨ", 0x1DA5 => "ɩ", 0x1DA6 => "ɪ", + 0x1DA7 => "ᵻ", 0x1DA8 => "ʝ", 0x1DA9 => "ɭ", 0x1DAA => "ᶅ", 0x1DAB => "ʟ", 0x1DAC => "ɱ", 0x1DAD => "ɰ", 0x1DAE => "ɲ", + 0x1DAF => "ɳ", 0x1DB0 => "ɴ", 0x1DB1 => "ɵ", 0x1DB2 => "ɸ", 0x1DB3 => "ʂ", 0x1DB4 => "ʃ", 0x1DB5 => "ƫ", 0x1DB6 => "ʉ", + 0x1DB7 => "ʊ", 0x1DB8 => "ᴜ", 0x1DB9 => "ʋ", 0x1DBA => "ʌ", 0x1DBB => "z", 0x1DBC => "ʐ", 0x1DBD => "ʑ", 0x1DBE => "ʒ", + 0x1DBF => "θ", 0x1E00 => "ḁ", 0x1E02 => "ḃ", 0x1E04 => "ḅ", 0x1E06 => "ḇ", 0x1E08 => "ḉ", 0x1E0A => "ḋ", 0x1E0C => "ḍ", + 0x1E0E => "ḏ", 0x1E10 => "ḑ", 0x1E12 => "ḓ", 0x1E14 => "ḕ", 0x1E16 => "ḗ", 0x1E18 => "ḙ", 0x1E1A => "ḛ", 0x1E1C => "ḝ", + 0x1E1E => "ḟ", 0x1E20 => "ḡ", 0x1E22 => "ḣ", 0x1E24 => "ḥ", 0x1E26 => "ḧ", 0x1E28 => "ḩ", 0x1E2A => "ḫ", 0x1E2C => "ḭ", + 0x1E2E => "ḯ", 0x1E30 => "ḱ", 0x1E32 => "ḳ", 0x1E34 => "ḵ", 0x1E36 => "ḷ", 0x1E38 => "ḹ", 0x1E3A => "ḻ", 0x1E3C => "ḽ", + 0x1E3E => "ḿ", 0x1E40 => "ṁ", 0x1E42 => "ṃ", 0x1E44 => "ṅ", 0x1E46 => "ṇ", 0x1E48 => "ṉ", 0x1E4A => "ṋ", 0x1E4C => "ṍ", + 0x1E4E => "ṏ", 0x1E50 => "ṑ", 0x1E52 => "ṓ", 0x1E54 => "ṕ", 0x1E56 => "ṗ", 0x1E58 => "ṙ", 0x1E5A => "ṛ", 0x1E5C => "ṝ", + 0x1E5E => "ṟ", 0x1E60 => "ṡ", 0x1E62 => "ṣ", 0x1E64 => "ṥ", 0x1E66 => "ṧ", 0x1E68 => "ṩ", 0x1E6A => "ṫ", 0x1E6C => "ṭ", + 0x1E6E => "ṯ", 0x1E70 => "ṱ", 0x1E72 => "ṳ", 0x1E74 => "ṵ", 0x1E76 => "ṷ", 0x1E78 => "ṹ", 0x1E7A => "ṻ", 0x1E7C => "ṽ", + 0x1E7E => "ṿ", 0x1E80 => "ẁ", 0x1E82 => "ẃ", 0x1E84 => "ẅ", 0x1E86 => "ẇ", 0x1E88 => "ẉ", 0x1E8A => "ẋ", 0x1E8C => "ẍ", + 0x1E8E => "ẏ", 0x1E90 => "ẑ", 0x1E92 => "ẓ", 0x1E94 => "ẕ", 0x1E9A => "aʾ", 0x1E9B => "ṡ", 0x1E9E => "ss", 0x1EA0 => "ạ", + 0x1EA2 => "ả", 0x1EA4 => "ấ", 0x1EA6 => "ầ", 0x1EA8 => "ẩ", 0x1EAA => "ẫ", 0x1EAC => "ậ", 0x1EAE => "ắ", 0x1EB0 => "ằ", + 0x1EB2 => "ẳ", 0x1EB4 => "ẵ", 0x1EB6 => "ặ", 0x1EB8 => "ẹ", 0x1EBA => "ẻ", 0x1EBC => "ẽ", 0x1EBE => "ế", 0x1EC0 => "ề", + 0x1EC2 => "ể", 0x1EC4 => "ễ", 0x1EC6 => "ệ", 0x1EC8 => "ỉ", 0x1ECA => "ị", 0x1ECC => "ọ", 0x1ECE => "ỏ", 0x1ED0 => "ố", + 0x1ED2 => "ồ", 0x1ED4 => "ổ", 0x1ED6 => "ỗ", 0x1ED8 => "ộ", 0x1EDA => "ớ", 0x1EDC => "ờ", 0x1EDE => "ở", 0x1EE0 => "ỡ", + 0x1EE2 => "ợ", 0x1EE4 => "ụ", 0x1EE6 => "ủ", 0x1EE8 => "ứ", 0x1EEA => "ừ", 0x1EEC => "ử", 0x1EEE => "ữ", 0x1EF0 => "ự", + 0x1EF2 => "ỳ", 0x1EF4 => "ỵ", 0x1EF6 => "ỷ", 0x1EF8 => "ỹ", 0x1EFA => "ỻ", 0x1EFC => "ỽ", 0x1EFE => "ỿ", 0x1F08 => "ἀ", + 0x1F09 => "ἁ", 0x1F0A => "ἂ", 0x1F0B => "ἃ", 0x1F0C => "ἄ", 0x1F0D => "ἅ", 0x1F0E => "ἆ", 0x1F0F => "ἇ", 0x1F18 => "ἐ", + 0x1F19 => "ἑ", 0x1F1A => "ἒ", 0x1F1B => "ἓ", 0x1F1C => "ἔ", 0x1F1D => "ἕ", 0x1F28 => "ἠ", 0x1F29 => "ἡ", 0x1F2A => "ἢ", + 0x1F2B => "ἣ", 0x1F2C => "ἤ", 0x1F2D => "ἥ", 0x1F2E => "ἦ", 0x1F2F => "ἧ", 0x1F38 => "ἰ", 0x1F39 => "ἱ", 0x1F3A => "ἲ", + 0x1F3B => "ἳ", 0x1F3C => "ἴ", 0x1F3D => "ἵ", 0x1F3E => "ἶ", 0x1F3F => "ἷ", 0x1F48 => "ὀ", 0x1F49 => "ὁ", 0x1F4A => "ὂ", + 0x1F4B => "ὃ", 0x1F4C => "ὄ", 0x1F4D => "ὅ", 0x1F59 => "ὑ", 0x1F5B => "ὓ", 0x1F5D => "ὕ", 0x1F5F => "ὗ", 0x1F68 => "ὠ", + 0x1F69 => "ὡ", 0x1F6A => "ὢ", 0x1F6B => "ὣ", 0x1F6C => "ὤ", 0x1F6D => "ὥ", 0x1F6E => "ὦ", 0x1F6F => "ὧ", 0x1F71 => "ά", + 0x1F73 => "έ", 0x1F75 => "ή", 0x1F77 => "ί", 0x1F79 => "ό", 0x1F7B => "ύ", 0x1F7D => "ώ", 0x1F80 => "ἀι", 0x1F81 => "ἁι", + 0x1F82 => "ἂι", 0x1F83 => "ἃι", 0x1F84 => "ἄι", 0x1F85 => "ἅι", 0x1F86 => "ἆι", 0x1F87 => "ἇι", 0x1F88 => "ἀι", 0x1F89 => "ἁι", + 0x1F8A => "ἂι", 0x1F8B => "ἃι", 0x1F8C => "ἄι", 0x1F8D => "ἅι", 0x1F8E => "ἆι", 0x1F8F => "ἇι", 0x1F90 => "ἠι", 0x1F91 => "ἡι", + 0x1F92 => "ἢι", 0x1F93 => "ἣι", 0x1F94 => "ἤι", 0x1F95 => "ἥι", 0x1F96 => "ἦι", 0x1F97 => "ἧι", 0x1F98 => "ἠι", 0x1F99 => "ἡι", + 0x1F9A => "ἢι", 0x1F9B => "ἣι", 0x1F9C => "ἤι", 0x1F9D => "ἥι", 0x1F9E => "ἦι", 0x1F9F => "ἧι", 0x1FA0 => "ὠι", 0x1FA1 => "ὡι", + 0x1FA2 => "ὢι", 0x1FA3 => "ὣι", 0x1FA4 => "ὤι", 0x1FA5 => "ὥι", 0x1FA6 => "ὦι", 0x1FA7 => "ὧι", 0x1FA8 => "ὠι", 0x1FA9 => "ὡι", + 0x1FAA => "ὢι", 0x1FAB => "ὣι", 0x1FAC => "ὤι", 0x1FAD => "ὥι", 0x1FAE => "ὦι", 0x1FAF => "ὧι", 0x1FB2 => "ὰι", 0x1FB3 => "αι", + 0x1FB4 => "άι", 0x1FB7 => "ᾶι", 0x1FB8 => "ᾰ", 0x1FB9 => "ᾱ", 0x1FBA => "ὰ", 0x1FBB => "ά", 0x1FBC => "αι", 0x1FBE => "ι", + 0x1FC2 => "ὴι", 0x1FC3 => "ηι", 0x1FC4 => "ήι", 0x1FC7 => "ῆι", 0x1FC8 => "ὲ", 0x1FC9 => "έ", 0x1FCA => "ὴ", 0x1FCB => "ή", + 0x1FCC => "ηι", 0x1FD3 => "ΐ", 0x1FD8 => "ῐ", 0x1FD9 => "ῑ", 0x1FDA => "ὶ", 0x1FDB => "ί", 0x1FE3 => "ΰ", 0x1FE8 => "ῠ", + 0x1FE9 => "ῡ", 0x1FEA => "ὺ", 0x1FEB => "ύ", 0x1FEC => "ῥ", 0x1FF2 => "ὼι", 0x1FF3 => "ωι", 0x1FF4 => "ώι", 0x1FF7 => "ῶι", + 0x1FF8 => "ὸ", 0x1FF9 => "ό", 0x1FFA => "ὼ", 0x1FFB => "ώ", 0x1FFC => "ωι", 0x2011 => "\x{2010}", 0x2033 => "\x{2032}\x{2032}", 0x2034 => "\x{2032}\x{2032}\x{2032}", + 0x2036 => "\x{2035}\x{2035}", 0x2037 => "\x{2035}\x{2035}\x{2035}", 0x2057 => "\x{2032}\x{2032}\x{2032}\x{2032}", 0x2070 => "0", 0x2071 => "i", 0x2074 => "4", 0x2075 => "5", 0x2076 => "6", + 0x2077 => "7", 0x2078 => "8", 0x2079 => "9", 0x207B => "\x{2212}", 0x207F => "n", 0x2080 => "0", 0x2081 => "1", 0x2082 => "2", + 0x2083 => "3", 0x2084 => "4", 0x2085 => "5", 0x2086 => "6", 0x2087 => "7", 0x2088 => "8", 0x2089 => "9", 0x208B => "\x{2212}", + 0x2090 => "a", 0x2091 => "e", 0x2092 => "o", 0x2093 => "x", 0x2094 => "ə", 0x2095 => "h", 0x2096 => "k", 0x2097 => "l", + 0x2098 => "m", 0x2099 => "n", 0x209A => "p", 0x209B => "s", 0x209C => "t", 0x20A8 => "rs", 0x2102 => "c", 0x2103 => "\x{00B0}c", + 0x2107 => "ɛ", 0x2109 => "\x{00B0}f", 0x210A => "g", 0x210B => "h", 0x210C => "h", 0x210D => "h", 0x210E => "h", 0x210F => "ħ", + 0x2110 => "i", 0x2111 => "i", 0x2112 => "l", 0x2113 => "l", 0x2115 => "n", 0x2116 => "no", 0x2119 => "p", 0x211A => "q", + 0x211B => "r", 0x211C => "r", 0x211D => "r", 0x2120 => "sm", 0x2121 => "tel", 0x2122 => "tm", 0x2124 => "z", 0x2126 => "ω", + 0x2128 => "z", 0x212A => "k", 0x212B => "å", 0x212C => "b", 0x212D => "c", 0x212F => "e", 0x2130 => "e", 0x2131 => "f", + 0x2133 => "m", 0x2134 => "o", 0x2135 => "א", 0x2136 => "ב", 0x2137 => "ג", 0x2138 => "ד", 0x2139 => "i", 0x213B => "fax", + 0x213C => "π", 0x213D => "γ", 0x213E => "γ", 0x213F => "π", 0x2140 => "\x{2211}", 0x2145 => "d", 0x2146 => "d", 0x2147 => "e", + 0x2148 => "i", 0x2149 => "j", 0x2150 => "1\x{2044}7", 0x2151 => "1\x{2044}9", 0x2152 => "1\x{2044}10", 0x2153 => "1\x{2044}3", 0x2154 => "2\x{2044}3", 0x2155 => "1\x{2044}5", + 0x2156 => "2\x{2044}5", 0x2157 => "3\x{2044}5", 0x2158 => "4\x{2044}5", 0x2159 => "1\x{2044}6", 0x215A => "5\x{2044}6", 0x215B => "1\x{2044}8", 0x215C => "3\x{2044}8", 0x215D => "5\x{2044}8", + 0x215E => "7\x{2044}8", 0x215F => "1\x{2044}", 0x2160 => "i", 0x2161 => "ii", 0x2162 => "iii", 0x2163 => "iv", 0x2164 => "v", 0x2165 => "vi", + 0x2166 => "vii", 0x2167 => "viii", 0x2168 => "ix", 0x2169 => "x", 0x216A => "xi", 0x216B => "xii", 0x216C => "l", 0x216D => "c", + 0x216E => "d", 0x216F => "m", 0x2170 => "i", 0x2171 => "ii", 0x2172 => "iii", 0x2173 => "iv", 0x2174 => "v", 0x2175 => "vi", + 0x2176 => "vii", 0x2177 => "viii", 0x2178 => "ix", 0x2179 => "x", 0x217A => "xi", 0x217B => "xii", 0x217C => "l", 0x217D => "c", + 0x217E => "d", 0x217F => "m", 0x2189 => "0\x{2044}3", 0x222C => "\x{222B}\x{222B}", 0x222D => "\x{222B}\x{222B}\x{222B}", 0x222F => "\x{222E}\x{222E}", 0x2230 => "\x{222E}\x{222E}\x{222E}", 0x2329 => "\x{3008}", + 0x232A => "\x{3009}", 0x2460 => "1", 0x2461 => "2", 0x2462 => "3", 0x2463 => "4", 0x2464 => "5", 0x2465 => "6", 0x2466 => "7", + 0x2467 => "8", 0x2468 => "9", 0x2469 => "10", 0x246A => "11", 0x246B => "12", 0x246C => "13", 0x246D => "14", 0x246E => "15", + 0x246F => "16", 0x2470 => "17", 0x2471 => "18", 0x2472 => "19", 0x2473 => "20", 0x24B6 => "a", 0x24B7 => "b", 0x24B8 => "c", + 0x24B9 => "d", 0x24BA => "e", 0x24BB => "f", 0x24BC => "g", 0x24BD => "h", 0x24BE => "i", 0x24BF => "j", 0x24C0 => "k", + 0x24C1 => "l", 0x24C2 => "m", 0x24C3 => "n", 0x24C4 => "o", 0x24C5 => "p", 0x24C6 => "q", 0x24C7 => "r", 0x24C8 => "s", + 0x24C9 => "t", 0x24CA => "u", 0x24CB => "v", 0x24CC => "w", 0x24CD => "x", 0x24CE => "y", 0x24CF => "z", 0x24D0 => "a", + 0x24D1 => "b", 0x24D2 => "c", 0x24D3 => "d", 0x24D4 => "e", 0x24D5 => "f", 0x24D6 => "g", 0x24D7 => "h", 0x24D8 => "i", + 0x24D9 => "j", 0x24DA => "k", 0x24DB => "l", 0x24DC => "m", 0x24DD => "n", 0x24DE => "o", 0x24DF => "p", 0x24E0 => "q", + 0x24E1 => "r", 0x24E2 => "s", 0x24E3 => "t", 0x24E4 => "u", 0x24E5 => "v", 0x24E6 => "w", 0x24E7 => "x", 0x24E8 => "y", + 0x24E9 => "z", 0x24EA => "0", 0x2A0C => "\x{222B}\x{222B}\x{222B}\x{222B}", 0x2ADC => "\x{2ADD}\x{0338}", 0x2C00 => "ⰰ", 0x2C01 => "ⰱ", 0x2C02 => "ⰲ", 0x2C03 => "ⰳ", + 0x2C04 => "ⰴ", 0x2C05 => "ⰵ", 0x2C06 => "ⰶ", 0x2C07 => "ⰷ", 0x2C08 => "ⰸ", 0x2C09 => "ⰹ", 0x2C0A => "ⰺ", 0x2C0B => "ⰻ", + 0x2C0C => "ⰼ", 0x2C0D => "ⰽ", 0x2C0E => "ⰾ", 0x2C0F => "ⰿ", 0x2C10 => "ⱀ", 0x2C11 => "ⱁ", 0x2C12 => "ⱂ", 0x2C13 => "ⱃ", + 0x2C14 => "ⱄ", 0x2C15 => "ⱅ", 0x2C16 => "ⱆ", 0x2C17 => "ⱇ", 0x2C18 => "ⱈ", 0x2C19 => "ⱉ", 0x2C1A => "ⱊ", 0x2C1B => "ⱋ", + 0x2C1C => "ⱌ", 0x2C1D => "ⱍ", 0x2C1E => "ⱎ", 0x2C1F => "ⱏ", 0x2C20 => "ⱐ", 0x2C21 => "ⱑ", 0x2C22 => "ⱒ", 0x2C23 => "ⱓ", + 0x2C24 => "ⱔ", 0x2C25 => "ⱕ", 0x2C26 => "ⱖ", 0x2C27 => "ⱗ", 0x2C28 => "ⱘ", 0x2C29 => "ⱙ", 0x2C2A => "ⱚ", 0x2C2B => "ⱛ", + 0x2C2C => "ⱜ", 0x2C2D => "ⱝ", 0x2C2E => "ⱞ", 0x2C60 => "ⱡ", 0x2C62 => "ɫ", 0x2C63 => "ᵽ", 0x2C64 => "ɽ", 0x2C67 => "ⱨ", + 0x2C69 => "ⱪ", 0x2C6B => "ⱬ", 0x2C6D => "ɑ", 0x2C6E => "ɱ", 0x2C6F => "ɐ", 0x2C70 => "ɒ", 0x2C72 => "ⱳ", 0x2C75 => "ⱶ", + 0x2C7C => "j", 0x2C7D => "v", 0x2C7E => "ȿ", 0x2C7F => "ɀ", 0x2C80 => "ⲁ", 0x2C82 => "ⲃ", 0x2C84 => "ⲅ", 0x2C86 => "ⲇ", + 0x2C88 => "ⲉ", 0x2C8A => "ⲋ", 0x2C8C => "ⲍ", 0x2C8E => "ⲏ", 0x2C90 => "ⲑ", 0x2C92 => "ⲓ", 0x2C94 => "ⲕ", 0x2C96 => "ⲗ", + 0x2C98 => "ⲙ", 0x2C9A => "ⲛ", 0x2C9C => "ⲝ", 0x2C9E => "ⲟ", 0x2CA0 => "ⲡ", 0x2CA2 => "ⲣ", 0x2CA4 => "ⲥ", 0x2CA6 => "ⲧ", + 0x2CA8 => "ⲩ", 0x2CAA => "ⲫ", 0x2CAC => "ⲭ", 0x2CAE => "ⲯ", 0x2CB0 => "ⲱ", 0x2CB2 => "ⲳ", 0x2CB4 => "ⲵ", 0x2CB6 => "ⲷ", + 0x2CB8 => "ⲹ", 0x2CBA => "ⲻ", 0x2CBC => "ⲽ", 0x2CBE => "ⲿ", 0x2CC0 => "ⳁ", 0x2CC2 => "ⳃ", 0x2CC4 => "ⳅ", 0x2CC6 => "ⳇ", + 0x2CC8 => "ⳉ", 0x2CCA => "ⳋ", 0x2CCC => "ⳍ", 0x2CCE => "ⳏ", 0x2CD0 => "ⳑ", 0x2CD2 => "ⳓ", 0x2CD4 => "ⳕ", 0x2CD6 => "ⳗ", + 0x2CD8 => "ⳙ", 0x2CDA => "ⳛ", 0x2CDC => "ⳝ", 0x2CDE => "ⳟ", 0x2CE0 => "ⳡ", 0x2CE2 => "ⳣ", 0x2CEB => "ⳬ", 0x2CED => "ⳮ", + 0x2CF2 => "ⳳ", 0x2D6F => "ⵡ", 0x2E9F => "母", 0x2EF3 => "龟", 0x2F00 => "一", 0x2F01 => "丨", 0x2F02 => "丶", 0x2F03 => "丿", + 0x2F04 => "乙", 0x2F05 => "亅", 0x2F06 => "二", 0x2F07 => "亠", 0x2F08 => "人", 0x2F09 => "儿", 0x2F0A => "入", 0x2F0B => "八", + 0x2F0C => "冂", 0x2F0D => "冖", 0x2F0E => "冫", 0x2F0F => "几", 0x2F10 => "凵", 0x2F11 => "刀", 0x2F12 => "力", 0x2F13 => "勹", + 0x2F14 => "匕", 0x2F15 => "匚", 0x2F16 => "匸", 0x2F17 => "十", 0x2F18 => "卜", 0x2F19 => "卩", 0x2F1A => "厂", 0x2F1B => "厶", + 0x2F1C => "又", 0x2F1D => "口", 0x2F1E => "囗", 0x2F1F => "土", 0x2F20 => "士", 0x2F21 => "夂", 0x2F22 => "夊", 0x2F23 => "夕", + 0x2F24 => "大", 0x2F25 => "女", 0x2F26 => "子", 0x2F27 => "宀", 0x2F28 => "寸", 0x2F29 => "小", 0x2F2A => "尢", 0x2F2B => "尸", + 0x2F2C => "屮", 0x2F2D => "山", 0x2F2E => "巛", 0x2F2F => "工", 0x2F30 => "己", 0x2F31 => "巾", 0x2F32 => "干", 0x2F33 => "幺", + 0x2F34 => "广", 0x2F35 => "廴", 0x2F36 => "廾", 0x2F37 => "弋", 0x2F38 => "弓", 0x2F39 => "彐", 0x2F3A => "彡", 0x2F3B => "彳", + 0x2F3C => "心", 0x2F3D => "戈", 0x2F3E => "戶", 0x2F3F => "手", 0x2F40 => "支", 0x2F41 => "攴", 0x2F42 => "文", 0x2F43 => "斗", + 0x2F44 => "斤", 0x2F45 => "方", 0x2F46 => "无", 0x2F47 => "日", 0x2F48 => "曰", 0x2F49 => "月", 0x2F4A => "木", 0x2F4B => "欠", + 0x2F4C => "止", 0x2F4D => "歹", 0x2F4E => "殳", 0x2F4F => "毋", 0x2F50 => "比", 0x2F51 => "毛", 0x2F52 => "氏", 0x2F53 => "气", + 0x2F54 => "水", 0x2F55 => "火", 0x2F56 => "爪", 0x2F57 => "父", 0x2F58 => "爻", 0x2F59 => "爿", 0x2F5A => "片", 0x2F5B => "牙", + 0x2F5C => "牛", 0x2F5D => "犬", 0x2F5E => "玄", 0x2F5F => "玉", 0x2F60 => "瓜", 0x2F61 => "瓦", 0x2F62 => "甘", 0x2F63 => "生", + 0x2F64 => "用", 0x2F65 => "田", 0x2F66 => "疋", 0x2F67 => "疒", 0x2F68 => "癶", 0x2F69 => "白", 0x2F6A => "皮", 0x2F6B => "皿", + 0x2F6C => "目", 0x2F6D => "矛", 0x2F6E => "矢", 0x2F6F => "石", 0x2F70 => "示", 0x2F71 => "禸", 0x2F72 => "禾", 0x2F73 => "穴", + 0x2F74 => "立", 0x2F75 => "竹", 0x2F76 => "米", 0x2F77 => "糸", 0x2F78 => "缶", 0x2F79 => "网", 0x2F7A => "羊", 0x2F7B => "羽", + 0x2F7C => "老", 0x2F7D => "而", 0x2F7E => "耒", 0x2F7F => "耳", 0x2F80 => "聿", 0x2F81 => "肉", 0x2F82 => "臣", 0x2F83 => "自", + 0x2F84 => "至", 0x2F85 => "臼", 0x2F86 => "舌", 0x2F87 => "舛", 0x2F88 => "舟", 0x2F89 => "艮", 0x2F8A => "色", 0x2F8B => "艸", + 0x2F8C => "虍", 0x2F8D => "虫", 0x2F8E => "血", 0x2F8F => "行", 0x2F90 => "衣", 0x2F91 => "襾", 0x2F92 => "見", 0x2F93 => "角", + 0x2F94 => "言", 0x2F95 => "谷", 0x2F96 => "豆", 0x2F97 => "豕", 0x2F98 => "豸", 0x2F99 => "貝", 0x2F9A => "赤", 0x2F9B => "走", + 0x2F9C => "足", 0x2F9D => "身", 0x2F9E => "車", 0x2F9F => "辛", 0x2FA0 => "辰", 0x2FA1 => "辵", 0x2FA2 => "邑", 0x2FA3 => "酉", + 0x2FA4 => "釆", 0x2FA5 => "里", 0x2FA6 => "金", 0x2FA7 => "長", 0x2FA8 => "門", 0x2FA9 => "阜", 0x2FAA => "隶", 0x2FAB => "隹", + 0x2FAC => "雨", 0x2FAD => "靑", 0x2FAE => "非", 0x2FAF => "面", 0x2FB0 => "革", 0x2FB1 => "韋", 0x2FB2 => "韭", 0x2FB3 => "音", + 0x2FB4 => "頁", 0x2FB5 => "風", 0x2FB6 => "飛", 0x2FB7 => "食", 0x2FB8 => "首", 0x2FB9 => "香", 0x2FBA => "馬", 0x2FBB => "骨", + 0x2FBC => "高", 0x2FBD => "髟", 0x2FBE => "鬥", 0x2FBF => "鬯", 0x2FC0 => "鬲", 0x2FC1 => "鬼", 0x2FC2 => "魚", 0x2FC3 => "鳥", + 0x2FC4 => "鹵", 0x2FC5 => "鹿", 0x2FC6 => "麥", 0x2FC7 => "麻", 0x2FC8 => "黃", 0x2FC9 => "黍", 0x2FCA => "黑", 0x2FCB => "黹", + 0x2FCC => "黽", 0x2FCD => "鼎", 0x2FCE => "鼓", 0x2FCF => "鼠", 0x2FD0 => "鼻", 0x2FD1 => "齊", 0x2FD2 => "齒", 0x2FD3 => "龍", + 0x2FD4 => "龜", 0x2FD5 => "龠", 0x3002 => "\.", 0x3036 => "\x{3012}", 0x3038 => "十", 0x3039 => "卄", 0x303A => "卅", 0x309F => "より", + 0x30FF => "コト", 0x3131 => "ᄀ", 0x3132 => "ᄁ", 0x3133 => "ᆪ", 0x3134 => "ᄂ", 0x3135 => "ᆬ", 0x3136 => "ᆭ", 0x3137 => "ᄃ", + 0x3138 => "ᄄ", 0x3139 => "ᄅ", 0x313A => "ᆰ", 0x313B => "ᆱ", 0x313C => "ᆲ", 0x313D => "ᆳ", 0x313E => "ᆴ", 0x313F => "ᆵ", + 0x3140 => "ᄚ", 0x3141 => "ᄆ", 0x3142 => "ᄇ", 0x3143 => "ᄈ", 0x3144 => "ᄡ", 0x3145 => "ᄉ", 0x3146 => "ᄊ", 0x3147 => "ᄋ", + 0x3148 => "ᄌ", 0x3149 => "ᄍ", 0x314A => "ᄎ", 0x314B => "ᄏ", 0x314C => "ᄐ", 0x314D => "ᄑ", 0x314E => "ᄒ", 0x314F => "ᅡ", + 0x3150 => "ᅢ", 0x3151 => "ᅣ", 0x3152 => "ᅤ", 0x3153 => "ᅥ", 0x3154 => "ᅦ", 0x3155 => "ᅧ", 0x3156 => "ᅨ", 0x3157 => "ᅩ", + 0x3158 => "ᅪ", 0x3159 => "ᅫ", 0x315A => "ᅬ", 0x315B => "ᅭ", 0x315C => "ᅮ", 0x315D => "ᅯ", 0x315E => "ᅰ", 0x315F => "ᅱ", + 0x3160 => "ᅲ", 0x3161 => "ᅳ", 0x3162 => "ᅴ", 0x3163 => "ᅵ", 0x3165 => "ᄔ", 0x3166 => "ᄕ", 0x3167 => "ᇇ", 0x3168 => "ᇈ", + 0x3169 => "ᇌ", 0x316A => "ᇎ", 0x316B => "ᇓ", 0x316C => "ᇗ", 0x316D => "ᇙ", 0x316E => "ᄜ", 0x316F => "ᇝ", 0x3170 => "ᇟ", + 0x3171 => "ᄝ", 0x3172 => "ᄞ", 0x3173 => "ᄠ", 0x3174 => "ᄢ", 0x3175 => "ᄣ", 0x3176 => "ᄧ", 0x3177 => "ᄩ", 0x3178 => "ᄫ", + 0x3179 => "ᄬ", 0x317A => "ᄭ", 0x317B => "ᄮ", 0x317C => "ᄯ", 0x317D => "ᄲ", 0x317E => "ᄶ", 0x317F => "ᅀ", 0x3180 => "ᅇ", + 0x3181 => "ᅌ", 0x3182 => "ᇱ", 0x3183 => "ᇲ", 0x3184 => "ᅗ", 0x3185 => "ᅘ", 0x3186 => "ᅙ", 0x3187 => "ᆄ", 0x3188 => "ᆅ", + 0x3189 => "ᆈ", 0x318A => "ᆑ", 0x318B => "ᆒ", 0x318C => "ᆔ", 0x318D => "ᆞ", 0x318E => "ᆡ", 0x3192 => "一", 0x3193 => "二", + 0x3194 => "三", 0x3195 => "四", 0x3196 => "上", 0x3197 => "中", 0x3198 => "下", 0x3199 => "甲", 0x319A => "乙", 0x319B => "丙", + 0x319C => "丁", 0x319D => "天", 0x319E => "地", 0x319F => "人", 0x3244 => "問", 0x3245 => "幼", 0x3246 => "文", 0x3247 => "箏", + 0x3250 => "pte", 0x3251 => "21", 0x3252 => "22", 0x3253 => "23", 0x3254 => "24", 0x3255 => "25", 0x3256 => "26", 0x3257 => "27", + 0x3258 => "28", 0x3259 => "29", 0x325A => "30", 0x325B => "31", 0x325C => "32", 0x325D => "33", 0x325E => "34", 0x325F => "35", + 0x3260 => "ᄀ", 0x3261 => "ᄂ", 0x3262 => "ᄃ", 0x3263 => "ᄅ", 0x3264 => "ᄆ", 0x3265 => "ᄇ", 0x3266 => "ᄉ", 0x3267 => "ᄋ", + 0x3268 => "ᄌ", 0x3269 => "ᄎ", 0x326A => "ᄏ", 0x326B => "ᄐ", 0x326C => "ᄑ", 0x326D => "ᄒ", 0x326E => "가", 0x326F => "나", + 0x3270 => "다", 0x3271 => "라", 0x3272 => "마", 0x3273 => "바", 0x3274 => "사", 0x3275 => "아", 0x3276 => "자", 0x3277 => "차", + 0x3278 => "카", 0x3279 => "타", 0x327A => "파", 0x327B => "하", 0x327C => "참고", 0x327D => "주의", 0x327E => "우", 0x3280 => "一", + 0x3281 => "二", 0x3282 => "三", 0x3283 => "四", 0x3284 => "五", 0x3285 => "六", 0x3286 => "七", 0x3287 => "八", 0x3288 => "九", + 0x3289 => "十", 0x328A => "月", 0x328B => "火", 0x328C => "水", 0x328D => "木", 0x328E => "金", 0x328F => "土", 0x3290 => "日", + 0x3291 => "株", 0x3292 => "有", 0x3293 => "社", 0x3294 => "名", 0x3295 => "特", 0x3296 => "財", 0x3297 => "祝", 0x3298 => "労", + 0x3299 => "秘", 0x329A => "男", 0x329B => "女", 0x329C => "適", 0x329D => "優", 0x329E => "印", 0x329F => "注", 0x32A0 => "項", + 0x32A1 => "休", 0x32A2 => "写", 0x32A3 => "正", 0x32A4 => "上", 0x32A5 => "中", 0x32A6 => "下", 0x32A7 => "左", 0x32A8 => "右", + 0x32A9 => "医", 0x32AA => "宗", 0x32AB => "学", 0x32AC => "監", 0x32AD => "企", 0x32AE => "資", 0x32AF => "協", 0x32B0 => "夜", + 0x32B1 => "36", 0x32B2 => "37", 0x32B3 => "38", 0x32B4 => "39", 0x32B5 => "40", 0x32B6 => "41", 0x32B7 => "42", 0x32B8 => "43", + 0x32B9 => "44", 0x32BA => "45", 0x32BB => "46", 0x32BC => "47", 0x32BD => "48", 0x32BE => "49", 0x32BF => "50", 0x32C0 => "1月", + 0x32C1 => "2月", 0x32C2 => "3月", 0x32C3 => "4月", 0x32C4 => "5月", 0x32C5 => "6月", 0x32C6 => "7月", 0x32C7 => "8月", 0x32C8 => "9月", + 0x32C9 => "10月", 0x32CA => "11月", 0x32CB => "12月", 0x32CC => "hg", 0x32CD => "erg", 0x32CE => "ev", 0x32CF => "ltd", 0x32D0 => "ア", + 0x32D1 => "イ", 0x32D2 => "ウ", 0x32D3 => "エ", 0x32D4 => "オ", 0x32D5 => "カ", 0x32D6 => "キ", 0x32D7 => "ク", 0x32D8 => "ケ", + 0x32D9 => "コ", 0x32DA => "サ", 0x32DB => "シ", 0x32DC => "ス", 0x32DD => "セ", 0x32DE => "ソ", 0x32DF => "タ", 0x32E0 => "チ", + 0x32E1 => "ツ", 0x32E2 => "テ", 0x32E3 => "ト", 0x32E4 => "ナ", 0x32E5 => "ニ", 0x32E6 => "ヌ", 0x32E7 => "ネ", 0x32E8 => "ノ", + 0x32E9 => "ハ", 0x32EA => "ヒ", 0x32EB => "フ", 0x32EC => "ヘ", 0x32ED => "ホ", 0x32EE => "マ", 0x32EF => "ミ", 0x32F0 => "ム", + 0x32F1 => "メ", 0x32F2 => "モ", 0x32F3 => "ヤ", 0x32F4 => "ユ", 0x32F5 => "ヨ", 0x32F6 => "ラ", 0x32F7 => "リ", 0x32F8 => "ル", + 0x32F9 => "レ", 0x32FA => "ロ", 0x32FB => "ワ", 0x32FC => "ヰ", 0x32FD => "ヱ", 0x32FE => "ヲ", 0x3300 => "アパート", 0x3301 => "アルファ", + 0x3302 => "アンペア", 0x3303 => "アール", 0x3304 => "イニング", 0x3305 => "インチ", 0x3306 => "ウォン", 0x3307 => "エスクード", 0x3308 => "エーカー", 0x3309 => "オンス", + 0x330A => "オーム", 0x330B => "カイリ", 0x330C => "カラット", 0x330D => "カロリー", 0x330E => "ガロン", 0x330F => "ガンマ", 0x3310 => "ギガ", 0x3311 => "ギニー", + 0x3312 => "キュリー", 0x3313 => "ギルダー", 0x3314 => "キロ", 0x3315 => "キログラム", 0x3316 => "キロメートル", 0x3317 => "キロワット", 0x3318 => "グラム", 0x3319 => "グラムトン", + 0x331A => "クルゼイロ", 0x331B => "クローネ", 0x331C => "ケース", 0x331D => "コルナ", 0x331E => "コーポ", 0x331F => "サイクル", 0x3320 => "サンチーム", 0x3321 => "シリング", + 0x3322 => "センチ", 0x3323 => "セント", 0x3324 => "ダース", 0x3325 => "デシ", 0x3326 => "ドル", 0x3327 => "トン", 0x3328 => "ナノ", 0x3329 => "ノット", + 0x332A => "ハイツ", 0x332B => "パーセント", 0x332C => "パーツ", 0x332D => "バーレル", 0x332E => "ピアストル", 0x332F => "ピクル", 0x3330 => "ピコ", 0x3331 => "ビル", + 0x3332 => "ファラッド", 0x3333 => "フィート", 0x3334 => "ブッシェル", 0x3335 => "フラン", 0x3336 => "ヘクタール", 0x3337 => "ペソ", 0x3338 => "ペニヒ", 0x3339 => "ヘルツ", + 0x333A => "ペンス", 0x333B => "ページ", 0x333C => "ベータ", 0x333D => "ポイント", 0x333E => "ボルト", 0x333F => "ホン", 0x3340 => "ポンド", 0x3341 => "ホール", + 0x3342 => "ホーン", 0x3343 => "マイクロ", 0x3344 => "マイル", 0x3345 => "マッハ", 0x3346 => "マルク", 0x3347 => "マンション", 0x3348 => "ミクロン", 0x3349 => "ミリ", + 0x334A => "ミリバール", 0x334B => "メガ", 0x334C => "メガトン", 0x334D => "メートル", 0x334E => "ヤード", 0x334F => "ヤール", 0x3350 => "ユアン", 0x3351 => "リットル", + 0x3352 => "リラ", 0x3353 => "ルピー", 0x3354 => "ルーブル", 0x3355 => "レム", 0x3356 => "レントゲン", 0x3357 => "ワット", 0x3358 => "0点", 0x3359 => "1点", + 0x335A => "2点", 0x335B => "3点", 0x335C => "4点", 0x335D => "5点", 0x335E => "6点", 0x335F => "7点", 0x3360 => "8点", 0x3361 => "9点", + 0x3362 => "10点", 0x3363 => "11点", 0x3364 => "12点", 0x3365 => "13点", 0x3366 => "14点", 0x3367 => "15点", 0x3368 => "16点", 0x3369 => "17点", + 0x336A => "18点", 0x336B => "19点", 0x336C => "20点", 0x336D => "21点", 0x336E => "22点", 0x336F => "23点", 0x3370 => "24点", 0x3371 => "hpa", + 0x3372 => "da", 0x3373 => "au", 0x3374 => "bar", 0x3375 => "ov", 0x3376 => "pc", 0x3377 => "dm", 0x3378 => "dm2", 0x3379 => "dm3", + 0x337A => "iu", 0x337B => "平成", 0x337C => "昭和", 0x337D => "大正", 0x337E => "明治", 0x337F => "株式会社", 0x3380 => "pa", 0x3381 => "na", + 0x3382 => "μa", 0x3383 => "ma", 0x3384 => "ka", 0x3385 => "kb", 0x3386 => "mb", 0x3387 => "gb", 0x3388 => "cal", 0x3389 => "kcal", + 0x338A => "pf", 0x338B => "nf", 0x338C => "μf", 0x338D => "μg", 0x338E => "mg", 0x338F => "kg", 0x3390 => "hz", 0x3391 => "khz", + 0x3392 => "mhz", 0x3393 => "ghz", 0x3394 => "thz", 0x3395 => "μl", 0x3396 => "ml", 0x3397 => "dl", 0x3398 => "kl", 0x3399 => "fm", + 0x339A => "nm", 0x339B => "μm", 0x339C => "mm", 0x339D => "cm", 0x339E => "km", 0x339F => "mm2", 0x33A0 => "cm2", 0x33A1 => "m2", + 0x33A2 => "km2", 0x33A3 => "mm3", 0x33A4 => "cm3", 0x33A5 => "m3", 0x33A6 => "km3", 0x33A7 => "m\x{2215}s", 0x33A8 => "m\x{2215}s2", 0x33A9 => "pa", + 0x33AA => "kpa", 0x33AB => "mpa", 0x33AC => "gpa", 0x33AD => "rad", 0x33AE => "rad\x{2215}s", 0x33AF => "rad\x{2215}s2", 0x33B0 => "ps", 0x33B1 => "ns", + 0x33B2 => "μs", 0x33B3 => "ms", 0x33B4 => "pv", 0x33B5 => "nv", 0x33B6 => "μv", 0x33B7 => "mv", 0x33B8 => "kv", 0x33B9 => "mv", + 0x33BA => "pw", 0x33BB => "nw", 0x33BC => "μw", 0x33BD => "mw", 0x33BE => "kw", 0x33BF => "mw", 0x33C0 => "kω", 0x33C1 => "mω", + 0x33C3 => "bq", 0x33C4 => "cc", 0x33C5 => "cd", 0x33C6 => "c\x{2215}kg", 0x33C8 => "db", 0x33C9 => "gy", 0x33CA => "ha", 0x33CB => "hp", + 0x33CC => "in", 0x33CD => "kk", 0x33CE => "km", 0x33CF => "kt", 0x33D0 => "lm", 0x33D1 => "ln", 0x33D2 => "log", 0x33D3 => "lx", + 0x33D4 => "mb", 0x33D5 => "mil", 0x33D6 => "mol", 0x33D7 => "ph", 0x33D9 => "ppm", 0x33DA => "pr", 0x33DB => "sr", 0x33DC => "sv", + 0x33DD => "wb", 0x33DE => "v\x{2215}m", 0x33DF => "a\x{2215}m", 0x33E0 => "1日", 0x33E1 => "2日", 0x33E2 => "3日", 0x33E3 => "4日", 0x33E4 => "5日", + 0x33E5 => "6日", 0x33E6 => "7日", 0x33E7 => "8日", 0x33E8 => "9日", 0x33E9 => "10日", 0x33EA => "11日", 0x33EB => "12日", 0x33EC => "13日", + 0x33ED => "14日", 0x33EE => "15日", 0x33EF => "16日", 0x33F0 => "17日", 0x33F1 => "18日", 0x33F2 => "19日", 0x33F3 => "20日", 0x33F4 => "21日", + 0x33F5 => "22日", 0x33F6 => "23日", 0x33F7 => "24日", 0x33F8 => "25日", 0x33F9 => "26日", 0x33FA => "27日", 0x33FB => "28日", 0x33FC => "29日", + 0x33FD => "30日", 0x33FE => "31日", 0x33FF => "gal", 0xA640 => "ꙁ", 0xA642 => "ꙃ", 0xA644 => "ꙅ", 0xA646 => "ꙇ", 0xA648 => "ꙉ", + 0xA64A => "ꙋ", 0xA64C => "ꙍ", 0xA64E => "ꙏ", 0xA650 => "ꙑ", 0xA652 => "ꙓ", 0xA654 => "ꙕ", 0xA656 => "ꙗ", 0xA658 => "ꙙ", + 0xA65A => "ꙛ", 0xA65C => "ꙝ", 0xA65E => "ꙟ", 0xA660 => "ꙡ", 0xA662 => "ꙣ", 0xA664 => "ꙥ", 0xA666 => "ꙧ", 0xA668 => "ꙩ", + 0xA66A => "ꙫ", 0xA66C => "ꙭ", 0xA680 => "ꚁ", 0xA682 => "ꚃ", 0xA684 => "ꚅ", 0xA686 => "ꚇ", 0xA688 => "ꚉ", 0xA68A => "ꚋ", + 0xA68C => "ꚍ", 0xA68E => "ꚏ", 0xA690 => "ꚑ", 0xA692 => "ꚓ", 0xA694 => "ꚕ", 0xA696 => "ꚗ", 0xA698 => "ꚙ", 0xA69A => "ꚛ", + 0xA69C => "ъ", 0xA69D => "ь", 0xA722 => "ꜣ", 0xA724 => "ꜥ", 0xA726 => "ꜧ", 0xA728 => "ꜩ", 0xA72A => "ꜫ", 0xA72C => "ꜭ", + 0xA72E => "ꜯ", 0xA732 => "ꜳ", 0xA734 => "ꜵ", 0xA736 => "ꜷ", 0xA738 => "ꜹ", 0xA73A => "ꜻ", 0xA73C => "ꜽ", 0xA73E => "ꜿ", + 0xA740 => "ꝁ", 0xA742 => "ꝃ", 0xA744 => "ꝅ", 0xA746 => "ꝇ", 0xA748 => "ꝉ", 0xA74A => "ꝋ", 0xA74C => "ꝍ", 0xA74E => "ꝏ", + 0xA750 => "ꝑ", 0xA752 => "ꝓ", 0xA754 => "ꝕ", 0xA756 => "ꝗ", 0xA758 => "ꝙ", 0xA75A => "ꝛ", 0xA75C => "ꝝ", 0xA75E => "ꝟ", + 0xA760 => "ꝡ", 0xA762 => "ꝣ", 0xA764 => "ꝥ", 0xA766 => "ꝧ", 0xA768 => "ꝩ", 0xA76A => "ꝫ", 0xA76C => "ꝭ", 0xA76E => "ꝯ", + 0xA770 => "ꝯ", 0xA779 => "ꝺ", 0xA77B => "ꝼ", 0xA77D => "ᵹ", 0xA77E => "ꝿ", 0xA780 => "ꞁ", 0xA782 => "ꞃ", 0xA784 => "ꞅ", + 0xA786 => "ꞇ", 0xA78B => "ꞌ", 0xA78D => "ɥ", 0xA790 => "ꞑ", 0xA792 => "ꞓ", 0xA796 => "ꞗ", 0xA798 => "ꞙ", 0xA79A => "ꞛ", + 0xA79C => "ꞝ", 0xA79E => "ꞟ", 0xA7A0 => "ꞡ", 0xA7A2 => "ꞣ", 0xA7A4 => "ꞥ", 0xA7A6 => "ꞧ", 0xA7A8 => "ꞩ", 0xA7AA => "ɦ", + 0xA7AB => "ɜ", 0xA7AC => "ɡ", 0xA7AD => "ɬ", 0xA7AE => "ɪ", 0xA7B0 => "ʞ", 0xA7B1 => "ʇ", 0xA7B2 => "ʝ", 0xA7B3 => "ꭓ", + 0xA7B4 => "ꞵ", 0xA7B6 => "ꞷ", 0xA7F8 => "ħ", 0xA7F9 => "œ", 0xAB5C => "ꜧ", 0xAB5D => "ꬷ", 0xAB5E => "ɫ", 0xAB5F => "ꭒ", + 0xAB70 => "Ꭰ", 0xAB71 => "Ꭱ", 0xAB72 => "Ꭲ", 0xAB73 => "Ꭳ", 0xAB74 => "Ꭴ", 0xAB75 => "Ꭵ", 0xAB76 => "Ꭶ", 0xAB77 => "Ꭷ", + 0xAB78 => "Ꭸ", 0xAB79 => "Ꭹ", 0xAB7A => "Ꭺ", 0xAB7B => "Ꭻ", 0xAB7C => "Ꭼ", 0xAB7D => "Ꭽ", 0xAB7E => "Ꭾ", 0xAB7F => "Ꭿ", + 0xAB80 => "Ꮀ", 0xAB81 => "Ꮁ", 0xAB82 => "Ꮂ", 0xAB83 => "Ꮃ", 0xAB84 => "Ꮄ", 0xAB85 => "Ꮅ", 0xAB86 => "Ꮆ", 0xAB87 => "Ꮇ", + 0xAB88 => "Ꮈ", 0xAB89 => "Ꮉ", 0xAB8A => "Ꮊ", 0xAB8B => "Ꮋ", 0xAB8C => "Ꮌ", 0xAB8D => "Ꮍ", 0xAB8E => "Ꮎ", 0xAB8F => "Ꮏ", + 0xAB90 => "Ꮐ", 0xAB91 => "Ꮑ", 0xAB92 => "Ꮒ", 0xAB93 => "Ꮓ", 0xAB94 => "Ꮔ", 0xAB95 => "Ꮕ", 0xAB96 => "Ꮖ", 0xAB97 => "Ꮗ", + 0xAB98 => "Ꮘ", 0xAB99 => "Ꮙ", 0xAB9A => "Ꮚ", 0xAB9B => "Ꮛ", 0xAB9C => "Ꮜ", 0xAB9D => "Ꮝ", 0xAB9E => "Ꮞ", 0xAB9F => "Ꮟ", + 0xABA0 => "Ꮠ", 0xABA1 => "Ꮡ", 0xABA2 => "Ꮢ", 0xABA3 => "Ꮣ", 0xABA4 => "Ꮤ", 0xABA5 => "Ꮥ", 0xABA6 => "Ꮦ", 0xABA7 => "Ꮧ", + 0xABA8 => "Ꮨ", 0xABA9 => "Ꮩ", 0xABAA => "Ꮪ", 0xABAB => "Ꮫ", 0xABAC => "Ꮬ", 0xABAD => "Ꮭ", 0xABAE => "Ꮮ", 0xABAF => "Ꮯ", + 0xABB0 => "Ꮰ", 0xABB1 => "Ꮱ", 0xABB2 => "Ꮲ", 0xABB3 => "Ꮳ", 0xABB4 => "Ꮴ", 0xABB5 => "Ꮵ", 0xABB6 => "Ꮶ", 0xABB7 => "Ꮷ", + 0xABB8 => "Ꮸ", 0xABB9 => "Ꮹ", 0xABBA => "Ꮺ", 0xABBB => "Ꮻ", 0xABBC => "Ꮼ", 0xABBD => "Ꮽ", 0xABBE => "Ꮾ", 0xABBF => "Ꮿ", + 0xF900 => "豈", 0xF901 => "更", 0xF902 => "車", 0xF903 => "賈", 0xF904 => "滑", 0xF905 => "串", 0xF906 => "句", 0xF907 => "龜", + 0xF908 => "龜", 0xF909 => "契", 0xF90A => "金", 0xF90B => "喇", 0xF90C => "奈", 0xF90D => "懶", 0xF90E => "癩", 0xF90F => "羅", + 0xF910 => "蘿", 0xF911 => "螺", 0xF912 => "裸", 0xF913 => "邏", 0xF914 => "樂", 0xF915 => "洛", 0xF916 => "烙", 0xF917 => "珞", + 0xF918 => "落", 0xF919 => "酪", 0xF91A => "駱", 0xF91B => "亂", 0xF91C => "卵", 0xF91D => "欄", 0xF91E => "爛", 0xF91F => "蘭", + 0xF920 => "鸞", 0xF921 => "嵐", 0xF922 => "濫", 0xF923 => "藍", 0xF924 => "襤", 0xF925 => "拉", 0xF926 => "臘", 0xF927 => "蠟", + 0xF928 => "廊", 0xF929 => "朗", 0xF92A => "浪", 0xF92B => "狼", 0xF92C => "郎", 0xF92D => "來", 0xF92E => "冷", 0xF92F => "勞", + 0xF930 => "擄", 0xF931 => "櫓", 0xF932 => "爐", 0xF933 => "盧", 0xF934 => "老", 0xF935 => "蘆", 0xF936 => "虜", 0xF937 => "路", + 0xF938 => "露", 0xF939 => "魯", 0xF93A => "鷺", 0xF93B => "碌", 0xF93C => "祿", 0xF93D => "綠", 0xF93E => "菉", 0xF93F => "錄", + 0xF940 => "鹿", 0xF941 => "論", 0xF942 => "壟", 0xF943 => "弄", 0xF944 => "籠", 0xF945 => "聾", 0xF946 => "牢", 0xF947 => "磊", + 0xF948 => "賂", 0xF949 => "雷", 0xF94A => "壘", 0xF94B => "屢", 0xF94C => "樓", 0xF94D => "淚", 0xF94E => "漏", 0xF94F => "累", + 0xF950 => "縷", 0xF951 => "陋", 0xF952 => "勒", 0xF953 => "肋", 0xF954 => "凜", 0xF955 => "凌", 0xF956 => "稜", 0xF957 => "綾", + 0xF958 => "菱", 0xF959 => "陵", 0xF95A => "讀", 0xF95B => "拏", 0xF95C => "樂", 0xF95D => "諾", 0xF95E => "丹", 0xF95F => "寧", + 0xF960 => "怒", 0xF961 => "率", 0xF962 => "異", 0xF963 => "北", 0xF964 => "磻", 0xF965 => "便", 0xF966 => "復", 0xF967 => "不", + 0xF968 => "泌", 0xF969 => "數", 0xF96A => "索", 0xF96B => "參", 0xF96C => "塞", 0xF96D => "省", 0xF96E => "葉", 0xF96F => "說", + 0xF970 => "殺", 0xF971 => "辰", 0xF972 => "沈", 0xF973 => "拾", 0xF974 => "若", 0xF975 => "掠", 0xF976 => "略", 0xF977 => "亮", + 0xF978 => "兩", 0xF979 => "凉", 0xF97A => "梁", 0xF97B => "糧", 0xF97C => "良", 0xF97D => "諒", 0xF97E => "量", 0xF97F => "勵", + 0xF980 => "呂", 0xF981 => "女", 0xF982 => "廬", 0xF983 => "旅", 0xF984 => "濾", 0xF985 => "礪", 0xF986 => "閭", 0xF987 => "驪", + 0xF988 => "麗", 0xF989 => "黎", 0xF98A => "力", 0xF98B => "曆", 0xF98C => "歷", 0xF98D => "轢", 0xF98E => "年", 0xF98F => "憐", + 0xF990 => "戀", 0xF991 => "撚", 0xF992 => "漣", 0xF993 => "煉", 0xF994 => "璉", 0xF995 => "秊", 0xF996 => "練", 0xF997 => "聯", + 0xF998 => "輦", 0xF999 => "蓮", 0xF99A => "連", 0xF99B => "鍊", 0xF99C => "列", 0xF99D => "劣", 0xF99E => "咽", 0xF99F => "烈", + 0xF9A0 => "裂", 0xF9A1 => "說", 0xF9A2 => "廉", 0xF9A3 => "念", 0xF9A4 => "捻", 0xF9A5 => "殮", 0xF9A6 => "簾", 0xF9A7 => "獵", + 0xF9A8 => "令", 0xF9A9 => "囹", 0xF9AA => "寧", 0xF9AB => "嶺", 0xF9AC => "怜", 0xF9AD => "玲", 0xF9AE => "瑩", 0xF9AF => "羚", + 0xF9B0 => "聆", 0xF9B1 => "鈴", 0xF9B2 => "零", 0xF9B3 => "靈", 0xF9B4 => "領", 0xF9B5 => "例", 0xF9B6 => "禮", 0xF9B7 => "醴", + 0xF9B8 => "隸", 0xF9B9 => "惡", 0xF9BA => "了", 0xF9BB => "僚", 0xF9BC => "寮", 0xF9BD => "尿", 0xF9BE => "料", 0xF9BF => "樂", + 0xF9C0 => "燎", 0xF9C1 => "療", 0xF9C2 => "蓼", 0xF9C3 => "遼", 0xF9C4 => "龍", 0xF9C5 => "暈", 0xF9C6 => "阮", 0xF9C7 => "劉", + 0xF9C8 => "杻", 0xF9C9 => "柳", 0xF9CA => "流", 0xF9CB => "溜", 0xF9CC => "琉", 0xF9CD => "留", 0xF9CE => "硫", 0xF9CF => "紐", + 0xF9D0 => "類", 0xF9D1 => "六", 0xF9D2 => "戮", 0xF9D3 => "陸", 0xF9D4 => "倫", 0xF9D5 => "崙", 0xF9D6 => "淪", 0xF9D7 => "輪", + 0xF9D8 => "律", 0xF9D9 => "慄", 0xF9DA => "栗", 0xF9DB => "率", 0xF9DC => "隆", 0xF9DD => "利", 0xF9DE => "吏", 0xF9DF => "履", + 0xF9E0 => "易", 0xF9E1 => "李", 0xF9E2 => "梨", 0xF9E3 => "泥", 0xF9E4 => "理", 0xF9E5 => "痢", 0xF9E6 => "罹", 0xF9E7 => "裏", + 0xF9E8 => "裡", 0xF9E9 => "里", 0xF9EA => "離", 0xF9EB => "匿", 0xF9EC => "溺", 0xF9ED => "吝", 0xF9EE => "燐", 0xF9EF => "璘", + 0xF9F0 => "藺", 0xF9F1 => "隣", 0xF9F2 => "鱗", 0xF9F3 => "麟", 0xF9F4 => "林", 0xF9F5 => "淋", 0xF9F6 => "臨", 0xF9F7 => "立", + 0xF9F8 => "笠", 0xF9F9 => "粒", 0xF9FA => "狀", 0xF9FB => "炙", 0xF9FC => "識", 0xF9FD => "什", 0xF9FE => "茶", 0xF9FF => "刺", + 0xFA00 => "切", 0xFA01 => "度", 0xFA02 => "拓", 0xFA03 => "糖", 0xFA04 => "宅", 0xFA05 => "洞", 0xFA06 => "暴", 0xFA07 => "輻", + 0xFA08 => "行", 0xFA09 => "降", 0xFA0A => "見", 0xFA0B => "廓", 0xFA0C => "兀", 0xFA0D => "嗀", 0xFA10 => "塚", 0xFA12 => "晴", + 0xFA15 => "凞", 0xFA16 => "猪", 0xFA17 => "益", 0xFA18 => "礼", 0xFA19 => "神", 0xFA1A => "祥", 0xFA1B => "福", 0xFA1C => "靖", + 0xFA1D => "精", 0xFA1E => "羽", 0xFA20 => "蘒", 0xFA22 => "諸", 0xFA25 => "逸", 0xFA26 => "都", 0xFA2A => "飯", 0xFA2B => "飼", + 0xFA2C => "館", 0xFA2D => "鶴", 0xFA2E => "郞", 0xFA2F => "隷", 0xFA30 => "侮", 0xFA31 => "僧", 0xFA32 => "免", 0xFA33 => "勉", + 0xFA34 => "勤", 0xFA35 => "卑", 0xFA36 => "喝", 0xFA37 => "嘆", 0xFA38 => "器", 0xFA39 => "塀", 0xFA3A => "墨", 0xFA3B => "層", + 0xFA3C => "屮", 0xFA3D => "悔", 0xFA3E => "慨", 0xFA3F => "憎", 0xFA40 => "懲", 0xFA41 => "敏", 0xFA42 => "既", 0xFA43 => "暑", + 0xFA44 => "梅", 0xFA45 => "海", 0xFA46 => "渚", 0xFA47 => "漢", 0xFA48 => "煮", 0xFA49 => "爫", 0xFA4A => "琢", 0xFA4B => "碑", + 0xFA4C => "社", 0xFA4D => "祉", 0xFA4E => "祈", 0xFA4F => "祐", 0xFA50 => "祖", 0xFA51 => "祝", 0xFA52 => "禍", 0xFA53 => "禎", + 0xFA54 => "穀", 0xFA55 => "突", 0xFA56 => "節", 0xFA57 => "練", 0xFA58 => "縉", 0xFA59 => "繁", 0xFA5A => "署", 0xFA5B => "者", + 0xFA5C => "臭", 0xFA5D => "艹", 0xFA5E => "艹", 0xFA5F => "著", 0xFA60 => "褐", 0xFA61 => "視", 0xFA62 => "謁", 0xFA63 => "謹", + 0xFA64 => "賓", 0xFA65 => "贈", 0xFA66 => "辶", 0xFA67 => "逸", 0xFA68 => "難", 0xFA69 => "響", 0xFA6A => "頻", 0xFA6B => "恵", + 0xFA6C => "𤋮", 0xFA6D => "舘", 0xFA70 => "並", 0xFA71 => "况", 0xFA72 => "全", 0xFA73 => "侀", 0xFA74 => "充", 0xFA75 => "冀", + 0xFA76 => "勇", 0xFA77 => "勺", 0xFA78 => "喝", 0xFA79 => "啕", 0xFA7A => "喙", 0xFA7B => "嗢", 0xFA7C => "塚", 0xFA7D => "墳", + 0xFA7E => "奄", 0xFA7F => "奔", 0xFA80 => "婢", 0xFA81 => "嬨", 0xFA82 => "廒", 0xFA83 => "廙", 0xFA84 => "彩", 0xFA85 => "徭", + 0xFA86 => "惘", 0xFA87 => "慎", 0xFA88 => "愈", 0xFA89 => "憎", 0xFA8A => "慠", 0xFA8B => "懲", 0xFA8C => "戴", 0xFA8D => "揄", + 0xFA8E => "搜", 0xFA8F => "摒", 0xFA90 => "敖", 0xFA91 => "晴", 0xFA92 => "朗", 0xFA93 => "望", 0xFA94 => "杖", 0xFA95 => "歹", + 0xFA96 => "殺", 0xFA97 => "流", 0xFA98 => "滛", 0xFA99 => "滋", 0xFA9A => "漢", 0xFA9B => "瀞", 0xFA9C => "煮", 0xFA9D => "瞧", + 0xFA9E => "爵", 0xFA9F => "犯", 0xFAA0 => "猪", 0xFAA1 => "瑱", 0xFAA2 => "甆", 0xFAA3 => "画", 0xFAA4 => "瘝", 0xFAA5 => "瘟", + 0xFAA6 => "益", 0xFAA7 => "盛", 0xFAA8 => "直", 0xFAA9 => "睊", 0xFAAA => "着", 0xFAAB => "磌", 0xFAAC => "窱", 0xFAAD => "節", + 0xFAAE => "类", 0xFAAF => "絛", 0xFAB0 => "練", 0xFAB1 => "缾", 0xFAB2 => "者", 0xFAB3 => "荒", 0xFAB4 => "華", 0xFAB5 => "蝹", + 0xFAB6 => "襁", 0xFAB7 => "覆", 0xFAB8 => "視", 0xFAB9 => "調", 0xFABA => "諸", 0xFABB => "請", 0xFABC => "謁", 0xFABD => "諾", + 0xFABE => "諭", 0xFABF => "謹", 0xFAC0 => "變", 0xFAC1 => "贈", 0xFAC2 => "輸", 0xFAC3 => "遲", 0xFAC4 => "醙", 0xFAC5 => "鉶", + 0xFAC6 => "陼", 0xFAC7 => "難", 0xFAC8 => "靖", 0xFAC9 => "韛", 0xFACA => "響", 0xFACB => "頋", 0xFACC => "頻", 0xFACD => "鬒", + 0xFACE => "龜", 0xFACF => "𢡊", 0xFAD0 => "𢡄", 0xFAD1 => "𣏕", 0xFAD2 => "㮝", 0xFAD3 => "䀘", 0xFAD4 => "䀹", 0xFAD5 => "𥉉", + 0xFAD6 => "𥳐", 0xFAD7 => "𧻓", 0xFAD8 => "齃", 0xFAD9 => "龎", 0xFB00 => "ff", 0xFB01 => "fi", 0xFB02 => "fl", 0xFB03 => "ffi", + 0xFB04 => "ffl", 0xFB05 => "st", 0xFB06 => "st", 0xFB13 => "մն", 0xFB14 => "մե", 0xFB15 => "մի", 0xFB16 => "վն", 0xFB17 => "մխ", + 0xFB1D => "יִ", 0xFB1F => "ײַ", 0xFB20 => "ע", 0xFB21 => "א", 0xFB22 => "ד", 0xFB23 => "ה", 0xFB24 => "כ", 0xFB25 => "ל", + 0xFB26 => "ם", 0xFB27 => "ר", 0xFB28 => "ת", 0xFB2A => "שׁ", 0xFB2B => "שׂ", 0xFB2C => "שּׁ", 0xFB2D => "שּׂ", 0xFB2E => "אַ", + 0xFB2F => "אָ", 0xFB30 => "אּ", 0xFB31 => "בּ", 0xFB32 => "גּ", 0xFB33 => "דּ", 0xFB34 => "הּ", 0xFB35 => "וּ", 0xFB36 => "זּ", + 0xFB38 => "טּ", 0xFB39 => "יּ", 0xFB3A => "ךּ", 0xFB3B => "כּ", 0xFB3C => "לּ", 0xFB3E => "מּ", 0xFB40 => "נּ", 0xFB41 => "סּ", + 0xFB43 => "ףּ", 0xFB44 => "פּ", 0xFB46 => "צּ", 0xFB47 => "קּ", 0xFB48 => "רּ", 0xFB49 => "שּ", 0xFB4A => "תּ", 0xFB4B => "וֹ", + 0xFB4C => "בֿ", 0xFB4D => "כֿ", 0xFB4E => "פֿ", 0xFB4F => "אל", 0xFB50 => "ٱ", 0xFB51 => "ٱ", 0xFB52 => "ٻ", 0xFB53 => "ٻ", + 0xFB54 => "ٻ", 0xFB55 => "ٻ", 0xFB56 => "پ", 0xFB57 => "پ", 0xFB58 => "پ", 0xFB59 => "پ", 0xFB5A => "ڀ", 0xFB5B => "ڀ", + 0xFB5C => "ڀ", 0xFB5D => "ڀ", 0xFB5E => "ٺ", 0xFB5F => "ٺ", 0xFB60 => "ٺ", 0xFB61 => "ٺ", 0xFB62 => "ٿ", 0xFB63 => "ٿ", + 0xFB64 => "ٿ", 0xFB65 => "ٿ", 0xFB66 => "ٹ", 0xFB67 => "ٹ", 0xFB68 => "ٹ", 0xFB69 => "ٹ", 0xFB6A => "ڤ", 0xFB6B => "ڤ", + 0xFB6C => "ڤ", 0xFB6D => "ڤ", 0xFB6E => "ڦ", 0xFB6F => "ڦ", 0xFB70 => "ڦ", 0xFB71 => "ڦ", 0xFB72 => "ڄ", 0xFB73 => "ڄ", + 0xFB74 => "ڄ", 0xFB75 => "ڄ", 0xFB76 => "ڃ", 0xFB77 => "ڃ", 0xFB78 => "ڃ", 0xFB79 => "ڃ", 0xFB7A => "چ", 0xFB7B => "چ", + 0xFB7C => "چ", 0xFB7D => "چ", 0xFB7E => "ڇ", 0xFB7F => "ڇ", 0xFB80 => "ڇ", 0xFB81 => "ڇ", 0xFB82 => "ڍ", 0xFB83 => "ڍ", + 0xFB84 => "ڌ", 0xFB85 => "ڌ", 0xFB86 => "ڎ", 0xFB87 => "ڎ", 0xFB88 => "ڈ", 0xFB89 => "ڈ", 0xFB8A => "ژ", 0xFB8B => "ژ", + 0xFB8C => "ڑ", 0xFB8D => "ڑ", 0xFB8E => "ک", 0xFB8F => "ک", 0xFB90 => "ک", 0xFB91 => "ک", 0xFB92 => "گ", 0xFB93 => "گ", + 0xFB94 => "گ", 0xFB95 => "گ", 0xFB96 => "ڳ", 0xFB97 => "ڳ", 0xFB98 => "ڳ", 0xFB99 => "ڳ", 0xFB9A => "ڱ", 0xFB9B => "ڱ", + 0xFB9C => "ڱ", 0xFB9D => "ڱ", 0xFB9E => "ں", 0xFB9F => "ں", 0xFBA0 => "ڻ", 0xFBA1 => "ڻ", 0xFBA2 => "ڻ", 0xFBA3 => "ڻ", + 0xFBA4 => "ۀ", 0xFBA5 => "ۀ", 0xFBA6 => "ہ", 0xFBA7 => "ہ", 0xFBA8 => "ہ", 0xFBA9 => "ہ", 0xFBAA => "ھ", 0xFBAB => "ھ", + 0xFBAC => "ھ", 0xFBAD => "ھ", 0xFBAE => "ے", 0xFBAF => "ے", 0xFBB0 => "ۓ", 0xFBB1 => "ۓ", 0xFBD3 => "ڭ", 0xFBD4 => "ڭ", + 0xFBD5 => "ڭ", 0xFBD6 => "ڭ", 0xFBD7 => "ۇ", 0xFBD8 => "ۇ", 0xFBD9 => "ۆ", 0xFBDA => "ۆ", 0xFBDB => "ۈ", 0xFBDC => "ۈ", + 0xFBDD => "ۇٴ", 0xFBDE => "ۋ", 0xFBDF => "ۋ", 0xFBE0 => "ۅ", 0xFBE1 => "ۅ", 0xFBE2 => "ۉ", 0xFBE3 => "ۉ", 0xFBE4 => "ې", + 0xFBE5 => "ې", 0xFBE6 => "ې", 0xFBE7 => "ې", 0xFBE8 => "ى", 0xFBE9 => "ى", 0xFBEA => "ئا", 0xFBEB => "ئا", 0xFBEC => "ئە", + 0xFBED => "ئە", 0xFBEE => "ئو", 0xFBEF => "ئو", 0xFBF0 => "ئۇ", 0xFBF1 => "ئۇ", 0xFBF2 => "ئۆ", 0xFBF3 => "ئۆ", 0xFBF4 => "ئۈ", + 0xFBF5 => "ئۈ", 0xFBF6 => "ئې", 0xFBF7 => "ئې", 0xFBF8 => "ئې", 0xFBF9 => "ئى", 0xFBFA => "ئى", 0xFBFB => "ئى", 0xFBFC => "ی", + 0xFBFD => "ی", 0xFBFE => "ی", 0xFBFF => "ی", 0xFC00 => "ئج", 0xFC01 => "ئح", 0xFC02 => "ئم", 0xFC03 => "ئى", 0xFC04 => "ئي", + 0xFC05 => "بج", 0xFC06 => "بح", 0xFC07 => "بخ", 0xFC08 => "بم", 0xFC09 => "بى", 0xFC0A => "بي", 0xFC0B => "تج", 0xFC0C => "تح", + 0xFC0D => "تخ", 0xFC0E => "تم", 0xFC0F => "تى", 0xFC10 => "تي", 0xFC11 => "ثج", 0xFC12 => "ثم", 0xFC13 => "ثى", 0xFC14 => "ثي", + 0xFC15 => "جح", 0xFC16 => "جم", 0xFC17 => "حج", 0xFC18 => "حم", 0xFC19 => "خج", 0xFC1A => "خح", 0xFC1B => "خم", 0xFC1C => "سج", + 0xFC1D => "سح", 0xFC1E => "سخ", 0xFC1F => "سم", 0xFC20 => "صح", 0xFC21 => "صم", 0xFC22 => "ضج", 0xFC23 => "ضح", 0xFC24 => "ضخ", + 0xFC25 => "ضم", 0xFC26 => "طح", 0xFC27 => "طم", 0xFC28 => "ظم", 0xFC29 => "عج", 0xFC2A => "عم", 0xFC2B => "غج", 0xFC2C => "غم", + 0xFC2D => "فج", 0xFC2E => "فح", 0xFC2F => "فخ", 0xFC30 => "فم", 0xFC31 => "فى", 0xFC32 => "في", 0xFC33 => "قح", 0xFC34 => "قم", + 0xFC35 => "قى", 0xFC36 => "قي", 0xFC37 => "كا", 0xFC38 => "كج", 0xFC39 => "كح", 0xFC3A => "كخ", 0xFC3B => "كل", 0xFC3C => "كم", + 0xFC3D => "كى", 0xFC3E => "كي", 0xFC3F => "لج", 0xFC40 => "لح", 0xFC41 => "لخ", 0xFC42 => "لم", 0xFC43 => "لى", 0xFC44 => "لي", + 0xFC45 => "مج", 0xFC46 => "مح", 0xFC47 => "مخ", 0xFC48 => "مم", 0xFC49 => "مى", 0xFC4A => "مي", 0xFC4B => "نج", 0xFC4C => "نح", + 0xFC4D => "نخ", 0xFC4E => "نم", 0xFC4F => "نى", 0xFC50 => "ني", 0xFC51 => "هج", 0xFC52 => "هم", 0xFC53 => "هى", 0xFC54 => "هي", + 0xFC55 => "يج", 0xFC56 => "يح", 0xFC57 => "يخ", 0xFC58 => "يم", 0xFC59 => "يى", 0xFC5A => "يي", 0xFC5B => "ذٰ", 0xFC5C => "رٰ", + 0xFC5D => "ىٰ", 0xFC64 => "ئر", 0xFC65 => "ئز", 0xFC66 => "ئم", 0xFC67 => "ئن", 0xFC68 => "ئى", 0xFC69 => "ئي", 0xFC6A => "بر", + 0xFC6B => "بز", 0xFC6C => "بم", 0xFC6D => "بن", 0xFC6E => "بى", 0xFC6F => "بي", 0xFC70 => "تر", 0xFC71 => "تز", 0xFC72 => "تم", + 0xFC73 => "تن", 0xFC74 => "تى", 0xFC75 => "تي", 0xFC76 => "ثر", 0xFC77 => "ثز", 0xFC78 => "ثم", 0xFC79 => "ثن", 0xFC7A => "ثى", + 0xFC7B => "ثي", 0xFC7C => "فى", 0xFC7D => "في", 0xFC7E => "قى", 0xFC7F => "قي", 0xFC80 => "كا", 0xFC81 => "كل", 0xFC82 => "كم", + 0xFC83 => "كى", 0xFC84 => "كي", 0xFC85 => "لم", 0xFC86 => "لى", 0xFC87 => "لي", 0xFC88 => "ما", 0xFC89 => "مم", 0xFC8A => "نر", + 0xFC8B => "نز", 0xFC8C => "نم", 0xFC8D => "نن", 0xFC8E => "نى", 0xFC8F => "ني", 0xFC90 => "ىٰ", 0xFC91 => "ير", 0xFC92 => "يز", + 0xFC93 => "يم", 0xFC94 => "ين", 0xFC95 => "يى", 0xFC96 => "يي", 0xFC97 => "ئج", 0xFC98 => "ئح", 0xFC99 => "ئخ", 0xFC9A => "ئم", + 0xFC9B => "ئه", 0xFC9C => "بج", 0xFC9D => "بح", 0xFC9E => "بخ", 0xFC9F => "بم", 0xFCA0 => "به", 0xFCA1 => "تج", 0xFCA2 => "تح", + 0xFCA3 => "تخ", 0xFCA4 => "تم", 0xFCA5 => "ته", 0xFCA6 => "ثم", 0xFCA7 => "جح", 0xFCA8 => "جم", 0xFCA9 => "حج", 0xFCAA => "حم", + 0xFCAB => "خج", 0xFCAC => "خم", 0xFCAD => "سج", 0xFCAE => "سح", 0xFCAF => "سخ", 0xFCB0 => "سم", 0xFCB1 => "صح", 0xFCB2 => "صخ", + 0xFCB3 => "صم", 0xFCB4 => "ضج", 0xFCB5 => "ضح", 0xFCB6 => "ضخ", 0xFCB7 => "ضم", 0xFCB8 => "طح", 0xFCB9 => "ظم", 0xFCBA => "عج", + 0xFCBB => "عم", 0xFCBC => "غج", 0xFCBD => "غم", 0xFCBE => "فج", 0xFCBF => "فح", 0xFCC0 => "فخ", 0xFCC1 => "فم", 0xFCC2 => "قح", + 0xFCC3 => "قم", 0xFCC4 => "كج", 0xFCC5 => "كح", 0xFCC6 => "كخ", 0xFCC7 => "كل", 0xFCC8 => "كم", 0xFCC9 => "لج", 0xFCCA => "لح", + 0xFCCB => "لخ", 0xFCCC => "لم", 0xFCCD => "له", 0xFCCE => "مج", 0xFCCF => "مح", 0xFCD0 => "مخ", 0xFCD1 => "مم", 0xFCD2 => "نج", + 0xFCD3 => "نح", 0xFCD4 => "نخ", 0xFCD5 => "نم", 0xFCD6 => "نه", 0xFCD7 => "هج", 0xFCD8 => "هم", 0xFCD9 => "هٰ", 0xFCDA => "يج", + 0xFCDB => "يح", 0xFCDC => "يخ", 0xFCDD => "يم", 0xFCDE => "يه", 0xFCDF => "ئم", 0xFCE0 => "ئه", 0xFCE1 => "بم", 0xFCE2 => "به", + 0xFCE3 => "تم", 0xFCE4 => "ته", 0xFCE5 => "ثم", 0xFCE6 => "ثه", 0xFCE7 => "سم", 0xFCE8 => "سه", 0xFCE9 => "شم", 0xFCEA => "شه", + 0xFCEB => "كل", 0xFCEC => "كم", 0xFCED => "لم", 0xFCEE => "نم", 0xFCEF => "نه", 0xFCF0 => "يم", 0xFCF1 => "يه", 0xFCF2 => "ـَّ", + 0xFCF3 => "ـُّ", 0xFCF4 => "ـِّ", 0xFCF5 => "طى", 0xFCF6 => "طي", 0xFCF7 => "عى", 0xFCF8 => "عي", 0xFCF9 => "غى", 0xFCFA => "غي", + 0xFCFB => "سى", 0xFCFC => "سي", 0xFCFD => "شى", 0xFCFE => "شي", 0xFCFF => "حى", 0xFD00 => "حي", 0xFD01 => "جى", 0xFD02 => "جي", + 0xFD03 => "خى", 0xFD04 => "خي", 0xFD05 => "صى", 0xFD06 => "صي", 0xFD07 => "ضى", 0xFD08 => "ضي", 0xFD09 => "شج", 0xFD0A => "شح", + 0xFD0B => "شخ", 0xFD0C => "شم", 0xFD0D => "شر", 0xFD0E => "سر", 0xFD0F => "صر", 0xFD10 => "ضر", 0xFD11 => "طى", 0xFD12 => "طي", + 0xFD13 => "عى", 0xFD14 => "عي", 0xFD15 => "غى", 0xFD16 => "غي", 0xFD17 => "سى", 0xFD18 => "سي", 0xFD19 => "شى", 0xFD1A => "شي", + 0xFD1B => "حى", 0xFD1C => "حي", 0xFD1D => "جى", 0xFD1E => "جي", 0xFD1F => "خى", 0xFD20 => "خي", 0xFD21 => "صى", 0xFD22 => "صي", + 0xFD23 => "ضى", 0xFD24 => "ضي", 0xFD25 => "شج", 0xFD26 => "شح", 0xFD27 => "شخ", 0xFD28 => "شم", 0xFD29 => "شر", 0xFD2A => "سر", + 0xFD2B => "صر", 0xFD2C => "ضر", 0xFD2D => "شج", 0xFD2E => "شح", 0xFD2F => "شخ", 0xFD30 => "شم", 0xFD31 => "سه", 0xFD32 => "شه", + 0xFD33 => "طم", 0xFD34 => "سج", 0xFD35 => "سح", 0xFD36 => "سخ", 0xFD37 => "شج", 0xFD38 => "شح", 0xFD39 => "شخ", 0xFD3A => "طم", + 0xFD3B => "ظم", 0xFD3C => "اً", 0xFD3D => "اً", 0xFD50 => "تجم", 0xFD51 => "تحج", 0xFD52 => "تحج", 0xFD53 => "تحم", 0xFD54 => "تخم", + 0xFD55 => "تمج", 0xFD56 => "تمح", 0xFD57 => "تمخ", 0xFD58 => "جمح", 0xFD59 => "جمح", 0xFD5A => "حمي", 0xFD5B => "حمى", 0xFD5C => "سحج", + 0xFD5D => "سجح", 0xFD5E => "سجى", 0xFD5F => "سمح", 0xFD60 => "سمح", 0xFD61 => "سمج", 0xFD62 => "سمم", 0xFD63 => "سمم", 0xFD64 => "صحح", + 0xFD65 => "صحح", 0xFD66 => "صمم", 0xFD67 => "شحم", 0xFD68 => "شحم", 0xFD69 => "شجي", 0xFD6A => "شمخ", 0xFD6B => "شمخ", 0xFD6C => "شمم", + 0xFD6D => "شمم", 0xFD6E => "ضحى", 0xFD6F => "ضخم", 0xFD70 => "ضخم", 0xFD71 => "طمح", 0xFD72 => "طمح", 0xFD73 => "طمم", 0xFD74 => "طمي", + 0xFD75 => "عجم", 0xFD76 => "عمم", 0xFD77 => "عمم", 0xFD78 => "عمى", 0xFD79 => "غمم", 0xFD7A => "غمي", 0xFD7B => "غمى", 0xFD7C => "فخم", + 0xFD7D => "فخم", 0xFD7E => "قمح", 0xFD7F => "قمم", 0xFD80 => "لحم", 0xFD81 => "لحي", 0xFD82 => "لحى", 0xFD83 => "لجج", 0xFD84 => "لجج", + 0xFD85 => "لخم", 0xFD86 => "لخم", 0xFD87 => "لمح", 0xFD88 => "لمح", 0xFD89 => "محج", 0xFD8A => "محم", 0xFD8B => "محي", 0xFD8C => "مجح", + 0xFD8D => "مجم", 0xFD8E => "مخج", 0xFD8F => "مخم", 0xFD92 => "مجخ", 0xFD93 => "همج", 0xFD94 => "همم", 0xFD95 => "نحم", 0xFD96 => "نحى", + 0xFD97 => "نجم", 0xFD98 => "نجم", 0xFD99 => "نجى", 0xFD9A => "نمي", 0xFD9B => "نمى", 0xFD9C => "يمم", 0xFD9D => "يمم", 0xFD9E => "بخي", + 0xFD9F => "تجي", 0xFDA0 => "تجى", 0xFDA1 => "تخي", 0xFDA2 => "تخى", 0xFDA3 => "تمي", 0xFDA4 => "تمى", 0xFDA5 => "جمي", 0xFDA6 => "جحى", + 0xFDA7 => "جمى", 0xFDA8 => "سخى", 0xFDA9 => "صحي", 0xFDAA => "شحي", 0xFDAB => "ضحي", 0xFDAC => "لجي", 0xFDAD => "لمي", 0xFDAE => "يحي", + 0xFDAF => "يجي", 0xFDB0 => "يمي", 0xFDB1 => "ممي", 0xFDB2 => "قمي", 0xFDB3 => "نحي", 0xFDB4 => "قمح", 0xFDB5 => "لحم", 0xFDB6 => "عمي", + 0xFDB7 => "كمي", 0xFDB8 => "نجح", 0xFDB9 => "مخي", 0xFDBA => "لجم", 0xFDBB => "كمم", 0xFDBC => "لجم", 0xFDBD => "نجح", 0xFDBE => "جحي", + 0xFDBF => "حجي", 0xFDC0 => "مجي", 0xFDC1 => "فمي", 0xFDC2 => "بحي", 0xFDC3 => "كمم", 0xFDC4 => "عجم", 0xFDC5 => "صمم", 0xFDC6 => "سخي", + 0xFDC7 => "نجي", 0xFDF0 => "صلے", 0xFDF1 => "قلے", 0xFDF2 => "الله", 0xFDF3 => "اكبر", 0xFDF4 => "محمد", 0xFDF5 => "صلعم", 0xFDF6 => "رسول", + 0xFDF7 => "عليه", 0xFDF8 => "وسلم", 0xFDF9 => "صلى", 0xFDFC => "ریال", 0xFE11 => "\x{3001}", 0xFE17 => "\x{3016}", 0xFE18 => "\x{3017}", 0xFE31 => "\x{2014}", + 0xFE32 => "\x{2013}", 0xFE39 => "\x{3014}", 0xFE3A => "\x{3015}", 0xFE3B => "\x{3010}", 0xFE3C => "\x{3011}", 0xFE3D => "\x{300A}", 0xFE3E => "\x{300B}", 0xFE3F => "\x{3008}", + 0xFE40 => "\x{3009}", 0xFE41 => "\x{300C}", 0xFE42 => "\x{300D}", 0xFE43 => "\x{300E}", 0xFE44 => "\x{300F}", 0xFE51 => "\x{3001}", 0xFE58 => "\x{2014}", 0xFE5D => "\x{3014}", + 0xFE5E => "\x{3015}", 0xFE63 => "\-", 0xFE71 => "ـً", 0xFE77 => "ـَ", 0xFE79 => "ـُ", 0xFE7B => "ـِ", 0xFE7D => "ـّ", 0xFE7F => "ـْ", + 0xFE80 => "ء", 0xFE81 => "آ", 0xFE82 => "آ", 0xFE83 => "أ", 0xFE84 => "أ", 0xFE85 => "ؤ", 0xFE86 => "ؤ", 0xFE87 => "إ", + 0xFE88 => "إ", 0xFE89 => "ئ", 0xFE8A => "ئ", 0xFE8B => "ئ", 0xFE8C => "ئ", 0xFE8D => "ا", 0xFE8E => "ا", 0xFE8F => "ب", + 0xFE90 => "ب", 0xFE91 => "ب", 0xFE92 => "ب", 0xFE93 => "ة", 0xFE94 => "ة", 0xFE95 => "ت", 0xFE96 => "ت", 0xFE97 => "ت", + 0xFE98 => "ت", 0xFE99 => "ث", 0xFE9A => "ث", 0xFE9B => "ث", 0xFE9C => "ث", 0xFE9D => "ج", 0xFE9E => "ج", 0xFE9F => "ج", + 0xFEA0 => "ج", 0xFEA1 => "ح", 0xFEA2 => "ح", 0xFEA3 => "ح", 0xFEA4 => "ح", 0xFEA5 => "خ", 0xFEA6 => "خ", 0xFEA7 => "خ", + 0xFEA8 => "خ", 0xFEA9 => "د", 0xFEAA => "د", 0xFEAB => "ذ", 0xFEAC => "ذ", 0xFEAD => "ر", 0xFEAE => "ر", 0xFEAF => "ز", + 0xFEB0 => "ز", 0xFEB1 => "س", 0xFEB2 => "س", 0xFEB3 => "س", 0xFEB4 => "س", 0xFEB5 => "ش", 0xFEB6 => "ش", 0xFEB7 => "ش", + 0xFEB8 => "ش", 0xFEB9 => "ص", 0xFEBA => "ص", 0xFEBB => "ص", 0xFEBC => "ص", 0xFEBD => "ض", 0xFEBE => "ض", 0xFEBF => "ض", + 0xFEC0 => "ض", 0xFEC1 => "ط", 0xFEC2 => "ط", 0xFEC3 => "ط", 0xFEC4 => "ط", 0xFEC5 => "ظ", 0xFEC6 => "ظ", 0xFEC7 => "ظ", + 0xFEC8 => "ظ", 0xFEC9 => "ع", 0xFECA => "ع", 0xFECB => "ع", 0xFECC => "ع", 0xFECD => "غ", 0xFECE => "غ", 0xFECF => "غ", + 0xFED0 => "غ", 0xFED1 => "ف", 0xFED2 => "ف", 0xFED3 => "ف", 0xFED4 => "ف", 0xFED5 => "ق", 0xFED6 => "ق", 0xFED7 => "ق", + 0xFED8 => "ق", 0xFED9 => "ك", 0xFEDA => "ك", 0xFEDB => "ك", 0xFEDC => "ك", 0xFEDD => "ل", 0xFEDE => "ل", 0xFEDF => "ل", + 0xFEE0 => "ل", 0xFEE1 => "م", 0xFEE2 => "م", 0xFEE3 => "م", 0xFEE4 => "م", 0xFEE5 => "ن", 0xFEE6 => "ن", 0xFEE7 => "ن", + 0xFEE8 => "ن", 0xFEE9 => "ه", 0xFEEA => "ه", 0xFEEB => "ه", 0xFEEC => "ه", 0xFEED => "و", 0xFEEE => "و", 0xFEEF => "ى", + 0xFEF0 => "ى", 0xFEF1 => "ي", 0xFEF2 => "ي", 0xFEF3 => "ي", 0xFEF4 => "ي", 0xFEF5 => "لآ", 0xFEF6 => "لآ", 0xFEF7 => "لأ", + 0xFEF8 => "لأ", 0xFEF9 => "لإ", 0xFEFA => "لإ", 0xFEFB => "لا", 0xFEFC => "لا", 0xFF0D => "\-", 0xFF0E => "\.", 0xFF10 => "0", + 0xFF11 => "1", 0xFF12 => "2", 0xFF13 => "3", 0xFF14 => "4", 0xFF15 => "5", 0xFF16 => "6", 0xFF17 => "7", 0xFF18 => "8", + 0xFF19 => "9", 0xFF21 => "a", 0xFF22 => "b", 0xFF23 => "c", 0xFF24 => "d", 0xFF25 => "e", 0xFF26 => "f", 0xFF27 => "g", + 0xFF28 => "h", 0xFF29 => "i", 0xFF2A => "j", 0xFF2B => "k", 0xFF2C => "l", 0xFF2D => "m", 0xFF2E => "n", 0xFF2F => "o", + 0xFF30 => "p", 0xFF31 => "q", 0xFF32 => "r", 0xFF33 => "s", 0xFF34 => "t", 0xFF35 => "u", 0xFF36 => "v", 0xFF37 => "w", + 0xFF38 => "x", 0xFF39 => "y", 0xFF3A => "z", 0xFF41 => "a", 0xFF42 => "b", 0xFF43 => "c", 0xFF44 => "d", 0xFF45 => "e", + 0xFF46 => "f", 0xFF47 => "g", 0xFF48 => "h", 0xFF49 => "i", 0xFF4A => "j", 0xFF4B => "k", 0xFF4C => "l", 0xFF4D => "m", + 0xFF4E => "n", 0xFF4F => "o", 0xFF50 => "p", 0xFF51 => "q", 0xFF52 => "r", 0xFF53 => "s", 0xFF54 => "t", 0xFF55 => "u", + 0xFF56 => "v", 0xFF57 => "w", 0xFF58 => "x", 0xFF59 => "y", 0xFF5A => "z", 0xFF5F => "\x{2985}", 0xFF60 => "\x{2986}", 0xFF61 => "\.", + 0xFF62 => "\x{300C}", 0xFF63 => "\x{300D}", 0xFF64 => "\x{3001}", 0xFF65 => "\x{30FB}", 0xFF66 => "ヲ", 0xFF67 => "ァ", 0xFF68 => "ィ", 0xFF69 => "ゥ", + 0xFF6A => "ェ", 0xFF6B => "ォ", 0xFF6C => "ャ", 0xFF6D => "ュ", 0xFF6E => "ョ", 0xFF6F => "ッ", 0xFF70 => "ー", 0xFF71 => "ア", + 0xFF72 => "イ", 0xFF73 => "ウ", 0xFF74 => "エ", 0xFF75 => "オ", 0xFF76 => "カ", 0xFF77 => "キ", 0xFF78 => "ク", 0xFF79 => "ケ", + 0xFF7A => "コ", 0xFF7B => "サ", 0xFF7C => "シ", 0xFF7D => "ス", 0xFF7E => "セ", 0xFF7F => "ソ", 0xFF80 => "タ", 0xFF81 => "チ", + 0xFF82 => "ツ", 0xFF83 => "テ", 0xFF84 => "ト", 0xFF85 => "ナ", 0xFF86 => "ニ", 0xFF87 => "ヌ", 0xFF88 => "ネ", 0xFF89 => "ノ", + 0xFF8A => "ハ", 0xFF8B => "ヒ", 0xFF8C => "フ", 0xFF8D => "ヘ", 0xFF8E => "ホ", 0xFF8F => "マ", 0xFF90 => "ミ", 0xFF91 => "ム", + 0xFF92 => "メ", 0xFF93 => "モ", 0xFF94 => "ヤ", 0xFF95 => "ユ", 0xFF96 => "ヨ", 0xFF97 => "ラ", 0xFF98 => "リ", 0xFF99 => "ル", + 0xFF9A => "レ", 0xFF9B => "ロ", 0xFF9C => "ワ", 0xFF9D => "ン", 0xFF9E => "\x{3099}", 0xFF9F => "\x{309A}", 0xFFA1 => "ᄀ", 0xFFA2 => "ᄁ", + 0xFFA3 => "ᆪ", 0xFFA4 => "ᄂ", 0xFFA5 => "ᆬ", 0xFFA6 => "ᆭ", 0xFFA7 => "ᄃ", 0xFFA8 => "ᄄ", 0xFFA9 => "ᄅ", 0xFFAA => "ᆰ", + 0xFFAB => "ᆱ", 0xFFAC => "ᆲ", 0xFFAD => "ᆳ", 0xFFAE => "ᆴ", 0xFFAF => "ᆵ", 0xFFB0 => "ᄚ", 0xFFB1 => "ᄆ", 0xFFB2 => "ᄇ", + 0xFFB3 => "ᄈ", 0xFFB4 => "ᄡ", 0xFFB5 => "ᄉ", 0xFFB6 => "ᄊ", 0xFFB7 => "ᄋ", 0xFFB8 => "ᄌ", 0xFFB9 => "ᄍ", 0xFFBA => "ᄎ", + 0xFFBB => "ᄏ", 0xFFBC => "ᄐ", 0xFFBD => "ᄑ", 0xFFBE => "ᄒ", 0xFFC2 => "ᅡ", 0xFFC3 => "ᅢ", 0xFFC4 => "ᅣ", 0xFFC5 => "ᅤ", + 0xFFC6 => "ᅥ", 0xFFC7 => "ᅦ", 0xFFCA => "ᅧ", 0xFFCB => "ᅨ", 0xFFCC => "ᅩ", 0xFFCD => "ᅪ", 0xFFCE => "ᅫ", 0xFFCF => "ᅬ", + 0xFFD2 => "ᅭ", 0xFFD3 => "ᅮ", 0xFFD4 => "ᅯ", 0xFFD5 => "ᅰ", 0xFFD6 => "ᅱ", 0xFFD7 => "ᅲ", 0xFFDA => "ᅳ", 0xFFDB => "ᅴ", + 0xFFDC => "ᅵ", 0xFFE0 => "\x{00A2}", 0xFFE1 => "\x{00A3}", 0xFFE2 => "\x{00AC}", 0xFFE4 => "\x{00A6}", 0xFFE5 => "\x{00A5}", 0xFFE6 => "\x{20A9}", 0xFFE8 => "\x{2502}", + 0xFFE9 => "\x{2190}", 0xFFEA => "\x{2191}", 0xFFEB => "\x{2192}", 0xFFEC => "\x{2193}", 0xFFED => "\x{25A0}", 0xFFEE => "\x{25CB}", 0x10400 => "𐐨", 0x10401 => "𐐩", + 0x10402 => "𐐪", 0x10403 => "𐐫", 0x10404 => "𐐬", 0x10405 => "𐐭", 0x10406 => "𐐮", 0x10407 => "𐐯", 0x10408 => "𐐰", 0x10409 => "𐐱", + 0x1040A => "𐐲", 0x1040B => "𐐳", 0x1040C => "𐐴", 0x1040D => "𐐵", 0x1040E => "𐐶", 0x1040F => "𐐷", 0x10410 => "𐐸", 0x10411 => "𐐹", + 0x10412 => "𐐺", 0x10413 => "𐐻", 0x10414 => "𐐼", 0x10415 => "𐐽", 0x10416 => "𐐾", 0x10417 => "𐐿", 0x10418 => "𐑀", 0x10419 => "𐑁", + 0x1041A => "𐑂", 0x1041B => "𐑃", 0x1041C => "𐑄", 0x1041D => "𐑅", 0x1041E => "𐑆", 0x1041F => "𐑇", 0x10420 => "𐑈", 0x10421 => "𐑉", + 0x10422 => "𐑊", 0x10423 => "𐑋", 0x10424 => "𐑌", 0x10425 => "𐑍", 0x10426 => "𐑎", 0x10427 => "𐑏", 0x104B0 => "\x{104D8}", 0x104B1 => "\x{104D9}", + 0x104B2 => "\x{104DA}", 0x104B3 => "\x{104DB}", 0x104B4 => "\x{104DC}", 0x104B5 => "\x{104DD}", 0x104B6 => "\x{104DE}", 0x104B7 => "\x{104DF}", 0x104B8 => "\x{104E0}", 0x104B9 => "\x{104E1}", + 0x104BA => "\x{104E2}", 0x104BB => "\x{104E3}", 0x104BC => "\x{104E4}", 0x104BD => "\x{104E5}", 0x104BE => "\x{104E6}", 0x104BF => "\x{104E7}", 0x104C0 => "\x{104E8}", 0x104C1 => "\x{104E9}", + 0x104C2 => "\x{104EA}", 0x104C3 => "\x{104EB}", 0x104C4 => "\x{104EC}", 0x104C5 => "\x{104ED}", 0x104C6 => "\x{104EE}", 0x104C7 => "\x{104EF}", 0x104C8 => "\x{104F0}", 0x104C9 => "\x{104F1}", + 0x104CA => "\x{104F2}", 0x104CB => "\x{104F3}", 0x104CC => "\x{104F4}", 0x104CD => "\x{104F5}", 0x104CE => "\x{104F6}", 0x104CF => "\x{104F7}", 0x104D0 => "\x{104F8}", 0x104D1 => "\x{104F9}", + 0x104D2 => "\x{104FA}", 0x104D3 => "\x{104FB}", 0x10C80 => "𐳀", 0x10C81 => "𐳁", 0x10C82 => "𐳂", 0x10C83 => "𐳃", 0x10C84 => "𐳄", 0x10C85 => "𐳅", + 0x10C86 => "𐳆", 0x10C87 => "𐳇", 0x10C88 => "𐳈", 0x10C89 => "𐳉", 0x10C8A => "𐳊", 0x10C8B => "𐳋", 0x10C8C => "𐳌", 0x10C8D => "𐳍", + 0x10C8E => "𐳎", 0x10C8F => "𐳏", 0x10C90 => "𐳐", 0x10C91 => "𐳑", 0x10C92 => "𐳒", 0x10C93 => "𐳓", 0x10C94 => "𐳔", 0x10C95 => "𐳕", + 0x10C96 => "𐳖", 0x10C97 => "𐳗", 0x10C98 => "𐳘", 0x10C99 => "𐳙", 0x10C9A => "𐳚", 0x10C9B => "𐳛", 0x10C9C => "𐳜", 0x10C9D => "𐳝", + 0x10C9E => "𐳞", 0x10C9F => "𐳟", 0x10CA0 => "𐳠", 0x10CA1 => "𐳡", 0x10CA2 => "𐳢", 0x10CA3 => "𐳣", 0x10CA4 => "𐳤", 0x10CA5 => "𐳥", + 0x10CA6 => "𐳦", 0x10CA7 => "𐳧", 0x10CA8 => "𐳨", 0x10CA9 => "𐳩", 0x10CAA => "𐳪", 0x10CAB => "𐳫", 0x10CAC => "𐳬", 0x10CAD => "𐳭", + 0x10CAE => "𐳮", 0x10CAF => "𐳯", 0x10CB0 => "𐳰", 0x10CB1 => "𐳱", 0x10CB2 => "𐳲", 0x118A0 => "𑣀", 0x118A1 => "𑣁", 0x118A2 => "𑣂", + 0x118A3 => "𑣃", 0x118A4 => "𑣄", 0x118A5 => "𑣅", 0x118A6 => "𑣆", 0x118A7 => "𑣇", 0x118A8 => "𑣈", 0x118A9 => "𑣉", 0x118AA => "𑣊", + 0x118AB => "𑣋", 0x118AC => "𑣌", 0x118AD => "𑣍", 0x118AE => "𑣎", 0x118AF => "𑣏", 0x118B0 => "𑣐", 0x118B1 => "𑣑", 0x118B2 => "𑣒", + 0x118B3 => "𑣓", 0x118B4 => "𑣔", 0x118B5 => "𑣕", 0x118B6 => "𑣖", 0x118B7 => "𑣗", 0x118B8 => "𑣘", 0x118B9 => "𑣙", 0x118BA => "𑣚", + 0x118BB => "𑣛", 0x118BC => "𑣜", 0x118BD => "𑣝", 0x118BE => "𑣞", 0x118BF => "𑣟", 0x1D15E => "\x{1D157}\x{1D165}", 0x1D15F => "\x{1D158}\x{1D165}", 0x1D160 => "\x{1D158}\x{1D165}\x{1D16E}", + 0x1D161 => "\x{1D158}\x{1D165}\x{1D16F}", 0x1D162 => "\x{1D158}\x{1D165}\x{1D170}", 0x1D163 => "\x{1D158}\x{1D165}\x{1D171}", 0x1D164 => "\x{1D158}\x{1D165}\x{1D172}", 0x1D1BB => "\x{1D1B9}\x{1D165}", 0x1D1BC => "\x{1D1BA}\x{1D165}", 0x1D1BD => "\x{1D1B9}\x{1D165}\x{1D16E}", 0x1D1BE => "\x{1D1BA}\x{1D165}\x{1D16E}", + 0x1D1BF => "\x{1D1B9}\x{1D165}\x{1D16F}", 0x1D1C0 => "\x{1D1BA}\x{1D165}\x{1D16F}", 0x1D400 => "a", 0x1D401 => "b", 0x1D402 => "c", 0x1D403 => "d", 0x1D404 => "e", 0x1D405 => "f", + 0x1D406 => "g", 0x1D407 => "h", 0x1D408 => "i", 0x1D409 => "j", 0x1D40A => "k", 0x1D40B => "l", 0x1D40C => "m", 0x1D40D => "n", + 0x1D40E => "o", 0x1D40F => "p", 0x1D410 => "q", 0x1D411 => "r", 0x1D412 => "s", 0x1D413 => "t", 0x1D414 => "u", 0x1D415 => "v", + 0x1D416 => "w", 0x1D417 => "x", 0x1D418 => "y", 0x1D419 => "z", 0x1D41A => "a", 0x1D41B => "b", 0x1D41C => "c", 0x1D41D => "d", + 0x1D41E => "e", 0x1D41F => "f", 0x1D420 => "g", 0x1D421 => "h", 0x1D422 => "i", 0x1D423 => "j", 0x1D424 => "k", 0x1D425 => "l", + 0x1D426 => "m", 0x1D427 => "n", 0x1D428 => "o", 0x1D429 => "p", 0x1D42A => "q", 0x1D42B => "r", 0x1D42C => "s", 0x1D42D => "t", + 0x1D42E => "u", 0x1D42F => "v", 0x1D430 => "w", 0x1D431 => "x", 0x1D432 => "y", 0x1D433 => "z", 0x1D434 => "a", 0x1D435 => "b", + 0x1D436 => "c", 0x1D437 => "d", 0x1D438 => "e", 0x1D439 => "f", 0x1D43A => "g", 0x1D43B => "h", 0x1D43C => "i", 0x1D43D => "j", + 0x1D43E => "k", 0x1D43F => "l", 0x1D440 => "m", 0x1D441 => "n", 0x1D442 => "o", 0x1D443 => "p", 0x1D444 => "q", 0x1D445 => "r", + 0x1D446 => "s", 0x1D447 => "t", 0x1D448 => "u", 0x1D449 => "v", 0x1D44A => "w", 0x1D44B => "x", 0x1D44C => "y", 0x1D44D => "z", + 0x1D44E => "a", 0x1D44F => "b", 0x1D450 => "c", 0x1D451 => "d", 0x1D452 => "e", 0x1D453 => "f", 0x1D454 => "g", 0x1D456 => "i", + 0x1D457 => "j", 0x1D458 => "k", 0x1D459 => "l", 0x1D45A => "m", 0x1D45B => "n", 0x1D45C => "o", 0x1D45D => "p", 0x1D45E => "q", + 0x1D45F => "r", 0x1D460 => "s", 0x1D461 => "t", 0x1D462 => "u", 0x1D463 => "v", 0x1D464 => "w", 0x1D465 => "x", 0x1D466 => "y", + 0x1D467 => "z", 0x1D468 => "a", 0x1D469 => "b", 0x1D46A => "c", 0x1D46B => "d", 0x1D46C => "e", 0x1D46D => "f", 0x1D46E => "g", + 0x1D46F => "h", 0x1D470 => "i", 0x1D471 => "j", 0x1D472 => "k", 0x1D473 => "l", 0x1D474 => "m", 0x1D475 => "n", 0x1D476 => "o", + 0x1D477 => "p", 0x1D478 => "q", 0x1D479 => "r", 0x1D47A => "s", 0x1D47B => "t", 0x1D47C => "u", 0x1D47D => "v", 0x1D47E => "w", + 0x1D47F => "x", 0x1D480 => "y", 0x1D481 => "z", 0x1D482 => "a", 0x1D483 => "b", 0x1D484 => "c", 0x1D485 => "d", 0x1D486 => "e", + 0x1D487 => "f", 0x1D488 => "g", 0x1D489 => "h", 0x1D48A => "i", 0x1D48B => "j", 0x1D48C => "k", 0x1D48D => "l", 0x1D48E => "m", + 0x1D48F => "n", 0x1D490 => "o", 0x1D491 => "p", 0x1D492 => "q", 0x1D493 => "r", 0x1D494 => "s", 0x1D495 => "t", 0x1D496 => "u", + 0x1D497 => "v", 0x1D498 => "w", 0x1D499 => "x", 0x1D49A => "y", 0x1D49B => "z", 0x1D49C => "a", 0x1D49E => "c", 0x1D49F => "d", + 0x1D4A2 => "g", 0x1D4A5 => "j", 0x1D4A6 => "k", 0x1D4A9 => "n", 0x1D4AA => "o", 0x1D4AB => "p", 0x1D4AC => "q", 0x1D4AE => "s", + 0x1D4AF => "t", 0x1D4B0 => "u", 0x1D4B1 => "v", 0x1D4B2 => "w", 0x1D4B3 => "x", 0x1D4B4 => "y", 0x1D4B5 => "z", 0x1D4B6 => "a", + 0x1D4B7 => "b", 0x1D4B8 => "c", 0x1D4B9 => "d", 0x1D4BB => "f", 0x1D4BD => "h", 0x1D4BE => "i", 0x1D4BF => "j", 0x1D4C0 => "k", + 0x1D4C1 => "l", 0x1D4C2 => "m", 0x1D4C3 => "n", 0x1D4C5 => "p", 0x1D4C6 => "q", 0x1D4C7 => "r", 0x1D4C8 => "s", 0x1D4C9 => "t", + 0x1D4CA => "u", 0x1D4CB => "v", 0x1D4CC => "w", 0x1D4CD => "x", 0x1D4CE => "y", 0x1D4CF => "z", 0x1D4D0 => "a", 0x1D4D1 => "b", + 0x1D4D2 => "c", 0x1D4D3 => "d", 0x1D4D4 => "e", 0x1D4D5 => "f", 0x1D4D6 => "g", 0x1D4D7 => "h", 0x1D4D8 => "i", 0x1D4D9 => "j", + 0x1D4DA => "k", 0x1D4DB => "l", 0x1D4DC => "m", 0x1D4DD => "n", 0x1D4DE => "o", 0x1D4DF => "p", 0x1D4E0 => "q", 0x1D4E1 => "r", + 0x1D4E2 => "s", 0x1D4E3 => "t", 0x1D4E4 => "u", 0x1D4E5 => "v", 0x1D4E6 => "w", 0x1D4E7 => "x", 0x1D4E8 => "y", 0x1D4E9 => "z", + 0x1D4EA => "a", 0x1D4EB => "b", 0x1D4EC => "c", 0x1D4ED => "d", 0x1D4EE => "e", 0x1D4EF => "f", 0x1D4F0 => "g", 0x1D4F1 => "h", + 0x1D4F2 => "i", 0x1D4F3 => "j", 0x1D4F4 => "k", 0x1D4F5 => "l", 0x1D4F6 => "m", 0x1D4F7 => "n", 0x1D4F8 => "o", 0x1D4F9 => "p", + 0x1D4FA => "q", 0x1D4FB => "r", 0x1D4FC => "s", 0x1D4FD => "t", 0x1D4FE => "u", 0x1D4FF => "v", 0x1D500 => "w", 0x1D501 => "x", + 0x1D502 => "y", 0x1D503 => "z", 0x1D504 => "a", 0x1D505 => "b", 0x1D507 => "d", 0x1D508 => "e", 0x1D509 => "f", 0x1D50A => "g", + 0x1D50D => "j", 0x1D50E => "k", 0x1D50F => "l", 0x1D510 => "m", 0x1D511 => "n", 0x1D512 => "o", 0x1D513 => "p", 0x1D514 => "q", + 0x1D516 => "s", 0x1D517 => "t", 0x1D518 => "u", 0x1D519 => "v", 0x1D51A => "w", 0x1D51B => "x", 0x1D51C => "y", 0x1D51E => "a", + 0x1D51F => "b", 0x1D520 => "c", 0x1D521 => "d", 0x1D522 => "e", 0x1D523 => "f", 0x1D524 => "g", 0x1D525 => "h", 0x1D526 => "i", + 0x1D527 => "j", 0x1D528 => "k", 0x1D529 => "l", 0x1D52A => "m", 0x1D52B => "n", 0x1D52C => "o", 0x1D52D => "p", 0x1D52E => "q", + 0x1D52F => "r", 0x1D530 => "s", 0x1D531 => "t", 0x1D532 => "u", 0x1D533 => "v", 0x1D534 => "w", 0x1D535 => "x", 0x1D536 => "y", + 0x1D537 => "z", 0x1D538 => "a", 0x1D539 => "b", 0x1D53B => "d", 0x1D53C => "e", 0x1D53D => "f", 0x1D53E => "g", 0x1D540 => "i", + 0x1D541 => "j", 0x1D542 => "k", 0x1D543 => "l", 0x1D544 => "m", 0x1D546 => "o", 0x1D54A => "s", 0x1D54B => "t", 0x1D54C => "u", + 0x1D54D => "v", 0x1D54E => "w", 0x1D54F => "x", 0x1D550 => "y", 0x1D552 => "a", 0x1D553 => "b", 0x1D554 => "c", 0x1D555 => "d", + 0x1D556 => "e", 0x1D557 => "f", 0x1D558 => "g", 0x1D559 => "h", 0x1D55A => "i", 0x1D55B => "j", 0x1D55C => "k", 0x1D55D => "l", + 0x1D55E => "m", 0x1D55F => "n", 0x1D560 => "o", 0x1D561 => "p", 0x1D562 => "q", 0x1D563 => "r", 0x1D564 => "s", 0x1D565 => "t", + 0x1D566 => "u", 0x1D567 => "v", 0x1D568 => "w", 0x1D569 => "x", 0x1D56A => "y", 0x1D56B => "z", 0x1D56C => "a", 0x1D56D => "b", + 0x1D56E => "c", 0x1D56F => "d", 0x1D570 => "e", 0x1D571 => "f", 0x1D572 => "g", 0x1D573 => "h", 0x1D574 => "i", 0x1D575 => "j", + 0x1D576 => "k", 0x1D577 => "l", 0x1D578 => "m", 0x1D579 => "n", 0x1D57A => "o", 0x1D57B => "p", 0x1D57C => "q", 0x1D57D => "r", + 0x1D57E => "s", 0x1D57F => "t", 0x1D580 => "u", 0x1D581 => "v", 0x1D582 => "w", 0x1D583 => "x", 0x1D584 => "y", 0x1D585 => "z", + 0x1D586 => "a", 0x1D587 => "b", 0x1D588 => "c", 0x1D589 => "d", 0x1D58A => "e", 0x1D58B => "f", 0x1D58C => "g", 0x1D58D => "h", + 0x1D58E => "i", 0x1D58F => "j", 0x1D590 => "k", 0x1D591 => "l", 0x1D592 => "m", 0x1D593 => "n", 0x1D594 => "o", 0x1D595 => "p", + 0x1D596 => "q", 0x1D597 => "r", 0x1D598 => "s", 0x1D599 => "t", 0x1D59A => "u", 0x1D59B => "v", 0x1D59C => "w", 0x1D59D => "x", + 0x1D59E => "y", 0x1D59F => "z", 0x1D5A0 => "a", 0x1D5A1 => "b", 0x1D5A2 => "c", 0x1D5A3 => "d", 0x1D5A4 => "e", 0x1D5A5 => "f", + 0x1D5A6 => "g", 0x1D5A7 => "h", 0x1D5A8 => "i", 0x1D5A9 => "j", 0x1D5AA => "k", 0x1D5AB => "l", 0x1D5AC => "m", 0x1D5AD => "n", + 0x1D5AE => "o", 0x1D5AF => "p", 0x1D5B0 => "q", 0x1D5B1 => "r", 0x1D5B2 => "s", 0x1D5B3 => "t", 0x1D5B4 => "u", 0x1D5B5 => "v", + 0x1D5B6 => "w", 0x1D5B7 => "x", 0x1D5B8 => "y", 0x1D5B9 => "z", 0x1D5BA => "a", 0x1D5BB => "b", 0x1D5BC => "c", 0x1D5BD => "d", + 0x1D5BE => "e", 0x1D5BF => "f", 0x1D5C0 => "g", 0x1D5C1 => "h", 0x1D5C2 => "i", 0x1D5C3 => "j", 0x1D5C4 => "k", 0x1D5C5 => "l", + 0x1D5C6 => "m", 0x1D5C7 => "n", 0x1D5C8 => "o", 0x1D5C9 => "p", 0x1D5CA => "q", 0x1D5CB => "r", 0x1D5CC => "s", 0x1D5CD => "t", + 0x1D5CE => "u", 0x1D5CF => "v", 0x1D5D0 => "w", 0x1D5D1 => "x", 0x1D5D2 => "y", 0x1D5D3 => "z", 0x1D5D4 => "a", 0x1D5D5 => "b", + 0x1D5D6 => "c", 0x1D5D7 => "d", 0x1D5D8 => "e", 0x1D5D9 => "f", 0x1D5DA => "g", 0x1D5DB => "h", 0x1D5DC => "i", 0x1D5DD => "j", + 0x1D5DE => "k", 0x1D5DF => "l", 0x1D5E0 => "m", 0x1D5E1 => "n", 0x1D5E2 => "o", 0x1D5E3 => "p", 0x1D5E4 => "q", 0x1D5E5 => "r", + 0x1D5E6 => "s", 0x1D5E7 => "t", 0x1D5E8 => "u", 0x1D5E9 => "v", 0x1D5EA => "w", 0x1D5EB => "x", 0x1D5EC => "y", 0x1D5ED => "z", + 0x1D5EE => "a", 0x1D5EF => "b", 0x1D5F0 => "c", 0x1D5F1 => "d", 0x1D5F2 => "e", 0x1D5F3 => "f", 0x1D5F4 => "g", 0x1D5F5 => "h", + 0x1D5F6 => "i", 0x1D5F7 => "j", 0x1D5F8 => "k", 0x1D5F9 => "l", 0x1D5FA => "m", 0x1D5FB => "n", 0x1D5FC => "o", 0x1D5FD => "p", + 0x1D5FE => "q", 0x1D5FF => "r", 0x1D600 => "s", 0x1D601 => "t", 0x1D602 => "u", 0x1D603 => "v", 0x1D604 => "w", 0x1D605 => "x", + 0x1D606 => "y", 0x1D607 => "z", 0x1D608 => "a", 0x1D609 => "b", 0x1D60A => "c", 0x1D60B => "d", 0x1D60C => "e", 0x1D60D => "f", + 0x1D60E => "g", 0x1D60F => "h", 0x1D610 => "i", 0x1D611 => "j", 0x1D612 => "k", 0x1D613 => "l", 0x1D614 => "m", 0x1D615 => "n", + 0x1D616 => "o", 0x1D617 => "p", 0x1D618 => "q", 0x1D619 => "r", 0x1D61A => "s", 0x1D61B => "t", 0x1D61C => "u", 0x1D61D => "v", + 0x1D61E => "w", 0x1D61F => "x", 0x1D620 => "y", 0x1D621 => "z", 0x1D622 => "a", 0x1D623 => "b", 0x1D624 => "c", 0x1D625 => "d", + 0x1D626 => "e", 0x1D627 => "f", 0x1D628 => "g", 0x1D629 => "h", 0x1D62A => "i", 0x1D62B => "j", 0x1D62C => "k", 0x1D62D => "l", + 0x1D62E => "m", 0x1D62F => "n", 0x1D630 => "o", 0x1D631 => "p", 0x1D632 => "q", 0x1D633 => "r", 0x1D634 => "s", 0x1D635 => "t", + 0x1D636 => "u", 0x1D637 => "v", 0x1D638 => "w", 0x1D639 => "x", 0x1D63A => "y", 0x1D63B => "z", 0x1D63C => "a", 0x1D63D => "b", + 0x1D63E => "c", 0x1D63F => "d", 0x1D640 => "e", 0x1D641 => "f", 0x1D642 => "g", 0x1D643 => "h", 0x1D644 => "i", 0x1D645 => "j", + 0x1D646 => "k", 0x1D647 => "l", 0x1D648 => "m", 0x1D649 => "n", 0x1D64A => "o", 0x1D64B => "p", 0x1D64C => "q", 0x1D64D => "r", + 0x1D64E => "s", 0x1D64F => "t", 0x1D650 => "u", 0x1D651 => "v", 0x1D652 => "w", 0x1D653 => "x", 0x1D654 => "y", 0x1D655 => "z", + 0x1D656 => "a", 0x1D657 => "b", 0x1D658 => "c", 0x1D659 => "d", 0x1D65A => "e", 0x1D65B => "f", 0x1D65C => "g", 0x1D65D => "h", + 0x1D65E => "i", 0x1D65F => "j", 0x1D660 => "k", 0x1D661 => "l", 0x1D662 => "m", 0x1D663 => "n", 0x1D664 => "o", 0x1D665 => "p", + 0x1D666 => "q", 0x1D667 => "r", 0x1D668 => "s", 0x1D669 => "t", 0x1D66A => "u", 0x1D66B => "v", 0x1D66C => "w", 0x1D66D => "x", + 0x1D66E => "y", 0x1D66F => "z", 0x1D670 => "a", 0x1D671 => "b", 0x1D672 => "c", 0x1D673 => "d", 0x1D674 => "e", 0x1D675 => "f", + 0x1D676 => "g", 0x1D677 => "h", 0x1D678 => "i", 0x1D679 => "j", 0x1D67A => "k", 0x1D67B => "l", 0x1D67C => "m", 0x1D67D => "n", + 0x1D67E => "o", 0x1D67F => "p", 0x1D680 => "q", 0x1D681 => "r", 0x1D682 => "s", 0x1D683 => "t", 0x1D684 => "u", 0x1D685 => "v", + 0x1D686 => "w", 0x1D687 => "x", 0x1D688 => "y", 0x1D689 => "z", 0x1D68A => "a", 0x1D68B => "b", 0x1D68C => "c", 0x1D68D => "d", + 0x1D68E => "e", 0x1D68F => "f", 0x1D690 => "g", 0x1D691 => "h", 0x1D692 => "i", 0x1D693 => "j", 0x1D694 => "k", 0x1D695 => "l", + 0x1D696 => "m", 0x1D697 => "n", 0x1D698 => "o", 0x1D699 => "p", 0x1D69A => "q", 0x1D69B => "r", 0x1D69C => "s", 0x1D69D => "t", + 0x1D69E => "u", 0x1D69F => "v", 0x1D6A0 => "w", 0x1D6A1 => "x", 0x1D6A2 => "y", 0x1D6A3 => "z", 0x1D6A4 => "ı", 0x1D6A5 => "ȷ", + 0x1D6A8 => "α", 0x1D6A9 => "β", 0x1D6AA => "γ", 0x1D6AB => "δ", 0x1D6AC => "ε", 0x1D6AD => "ζ", 0x1D6AE => "η", 0x1D6AF => "θ", + 0x1D6B0 => "ι", 0x1D6B1 => "κ", 0x1D6B2 => "λ", 0x1D6B3 => "μ", 0x1D6B4 => "ν", 0x1D6B5 => "ξ", 0x1D6B6 => "ο", 0x1D6B7 => "π", + 0x1D6B8 => "ρ", 0x1D6B9 => "θ", 0x1D6BA => "σ", 0x1D6BB => "τ", 0x1D6BC => "υ", 0x1D6BD => "φ", 0x1D6BE => "χ", 0x1D6BF => "ψ", + 0x1D6C0 => "ω", 0x1D6C1 => "\x{2207}", 0x1D6C2 => "α", 0x1D6C3 => "β", 0x1D6C4 => "γ", 0x1D6C5 => "δ", 0x1D6C6 => "ε", 0x1D6C7 => "ζ", + 0x1D6C8 => "η", 0x1D6C9 => "θ", 0x1D6CA => "ι", 0x1D6CB => "κ", 0x1D6CC => "λ", 0x1D6CD => "μ", 0x1D6CE => "ν", 0x1D6CF => "ξ", + 0x1D6D0 => "ο", 0x1D6D1 => "π", 0x1D6D2 => "ρ", 0x1D6D3 => "σ", 0x1D6D4 => "σ", 0x1D6D5 => "τ", 0x1D6D6 => "υ", 0x1D6D7 => "φ", + 0x1D6D8 => "χ", 0x1D6D9 => "ψ", 0x1D6DA => "ω", 0x1D6DB => "\x{2202}", 0x1D6DC => "ε", 0x1D6DD => "θ", 0x1D6DE => "κ", 0x1D6DF => "φ", + 0x1D6E0 => "ρ", 0x1D6E1 => "π", 0x1D6E2 => "α", 0x1D6E3 => "β", 0x1D6E4 => "γ", 0x1D6E5 => "δ", 0x1D6E6 => "ε", 0x1D6E7 => "ζ", + 0x1D6E8 => "η", 0x1D6E9 => "θ", 0x1D6EA => "ι", 0x1D6EB => "κ", 0x1D6EC => "λ", 0x1D6ED => "μ", 0x1D6EE => "ν", 0x1D6EF => "ξ", + 0x1D6F0 => "ο", 0x1D6F1 => "π", 0x1D6F2 => "ρ", 0x1D6F3 => "θ", 0x1D6F4 => "σ", 0x1D6F5 => "τ", 0x1D6F6 => "υ", 0x1D6F7 => "φ", + 0x1D6F8 => "χ", 0x1D6F9 => "ψ", 0x1D6FA => "ω", 0x1D6FB => "\x{2207}", 0x1D6FC => "α", 0x1D6FD => "β", 0x1D6FE => "γ", 0x1D6FF => "δ", + 0x1D700 => "ε", 0x1D701 => "ζ", 0x1D702 => "η", 0x1D703 => "θ", 0x1D704 => "ι", 0x1D705 => "κ", 0x1D706 => "λ", 0x1D707 => "μ", + 0x1D708 => "ν", 0x1D709 => "ξ", 0x1D70A => "ο", 0x1D70B => "π", 0x1D70C => "ρ", 0x1D70D => "σ", 0x1D70E => "σ", 0x1D70F => "τ", + 0x1D710 => "υ", 0x1D711 => "φ", 0x1D712 => "χ", 0x1D713 => "ψ", 0x1D714 => "ω", 0x1D715 => "\x{2202}", 0x1D716 => "ε", 0x1D717 => "θ", + 0x1D718 => "κ", 0x1D719 => "φ", 0x1D71A => "ρ", 0x1D71B => "π", 0x1D71C => "α", 0x1D71D => "β", 0x1D71E => "γ", 0x1D71F => "δ", + 0x1D720 => "ε", 0x1D721 => "ζ", 0x1D722 => "η", 0x1D723 => "θ", 0x1D724 => "ι", 0x1D725 => "κ", 0x1D726 => "λ", 0x1D727 => "μ", + 0x1D728 => "ν", 0x1D729 => "ξ", 0x1D72A => "ο", 0x1D72B => "π", 0x1D72C => "ρ", 0x1D72D => "θ", 0x1D72E => "σ", 0x1D72F => "τ", + 0x1D730 => "υ", 0x1D731 => "φ", 0x1D732 => "χ", 0x1D733 => "ψ", 0x1D734 => "ω", 0x1D735 => "\x{2207}", 0x1D736 => "α", 0x1D737 => "β", + 0x1D738 => "γ", 0x1D739 => "δ", 0x1D73A => "ε", 0x1D73B => "ζ", 0x1D73C => "η", 0x1D73D => "θ", 0x1D73E => "ι", 0x1D73F => "κ", + 0x1D740 => "λ", 0x1D741 => "μ", 0x1D742 => "ν", 0x1D743 => "ξ", 0x1D744 => "ο", 0x1D745 => "π", 0x1D746 => "ρ", 0x1D747 => "σ", + 0x1D748 => "σ", 0x1D749 => "τ", 0x1D74A => "υ", 0x1D74B => "φ", 0x1D74C => "χ", 0x1D74D => "ψ", 0x1D74E => "ω", 0x1D74F => "\x{2202}", + 0x1D750 => "ε", 0x1D751 => "θ", 0x1D752 => "κ", 0x1D753 => "φ", 0x1D754 => "ρ", 0x1D755 => "π", 0x1D756 => "α", 0x1D757 => "β", + 0x1D758 => "γ", 0x1D759 => "δ", 0x1D75A => "ε", 0x1D75B => "ζ", 0x1D75C => "η", 0x1D75D => "θ", 0x1D75E => "ι", 0x1D75F => "κ", + 0x1D760 => "λ", 0x1D761 => "μ", 0x1D762 => "ν", 0x1D763 => "ξ", 0x1D764 => "ο", 0x1D765 => "π", 0x1D766 => "ρ", 0x1D767 => "θ", + 0x1D768 => "σ", 0x1D769 => "τ", 0x1D76A => "υ", 0x1D76B => "φ", 0x1D76C => "χ", 0x1D76D => "ψ", 0x1D76E => "ω", 0x1D76F => "\x{2207}", + 0x1D770 => "α", 0x1D771 => "β", 0x1D772 => "γ", 0x1D773 => "δ", 0x1D774 => "ε", 0x1D775 => "ζ", 0x1D776 => "η", 0x1D777 => "θ", + 0x1D778 => "ι", 0x1D779 => "κ", 0x1D77A => "λ", 0x1D77B => "μ", 0x1D77C => "ν", 0x1D77D => "ξ", 0x1D77E => "ο", 0x1D77F => "π", + 0x1D780 => "ρ", 0x1D781 => "σ", 0x1D782 => "σ", 0x1D783 => "τ", 0x1D784 => "υ", 0x1D785 => "φ", 0x1D786 => "χ", 0x1D787 => "ψ", + 0x1D788 => "ω", 0x1D789 => "\x{2202}", 0x1D78A => "ε", 0x1D78B => "θ", 0x1D78C => "κ", 0x1D78D => "φ", 0x1D78E => "ρ", 0x1D78F => "π", + 0x1D790 => "α", 0x1D791 => "β", 0x1D792 => "γ", 0x1D793 => "δ", 0x1D794 => "ε", 0x1D795 => "ζ", 0x1D796 => "η", 0x1D797 => "θ", + 0x1D798 => "ι", 0x1D799 => "κ", 0x1D79A => "λ", 0x1D79B => "μ", 0x1D79C => "ν", 0x1D79D => "ξ", 0x1D79E => "ο", 0x1D79F => "π", + 0x1D7A0 => "ρ", 0x1D7A1 => "θ", 0x1D7A2 => "σ", 0x1D7A3 => "τ", 0x1D7A4 => "υ", 0x1D7A5 => "φ", 0x1D7A6 => "χ", 0x1D7A7 => "ψ", + 0x1D7A8 => "ω", 0x1D7A9 => "\x{2207}", 0x1D7AA => "α", 0x1D7AB => "β", 0x1D7AC => "γ", 0x1D7AD => "δ", 0x1D7AE => "ε", 0x1D7AF => "ζ", + 0x1D7B0 => "η", 0x1D7B1 => "θ", 0x1D7B2 => "ι", 0x1D7B3 => "κ", 0x1D7B4 => "λ", 0x1D7B5 => "μ", 0x1D7B6 => "ν", 0x1D7B7 => "ξ", + 0x1D7B8 => "ο", 0x1D7B9 => "π", 0x1D7BA => "ρ", 0x1D7BB => "σ", 0x1D7BC => "σ", 0x1D7BD => "τ", 0x1D7BE => "υ", 0x1D7BF => "φ", + 0x1D7C0 => "χ", 0x1D7C1 => "ψ", 0x1D7C2 => "ω", 0x1D7C3 => "\x{2202}", 0x1D7C4 => "ε", 0x1D7C5 => "θ", 0x1D7C6 => "κ", 0x1D7C7 => "φ", + 0x1D7C8 => "ρ", 0x1D7C9 => "π", 0x1D7CA => "ϝ", 0x1D7CB => "ϝ", 0x1D7CE => "0", 0x1D7CF => "1", 0x1D7D0 => "2", 0x1D7D1 => "3", + 0x1D7D2 => "4", 0x1D7D3 => "5", 0x1D7D4 => "6", 0x1D7D5 => "7", 0x1D7D6 => "8", 0x1D7D7 => "9", 0x1D7D8 => "0", 0x1D7D9 => "1", + 0x1D7DA => "2", 0x1D7DB => "3", 0x1D7DC => "4", 0x1D7DD => "5", 0x1D7DE => "6", 0x1D7DF => "7", 0x1D7E0 => "8", 0x1D7E1 => "9", + 0x1D7E2 => "0", 0x1D7E3 => "1", 0x1D7E4 => "2", 0x1D7E5 => "3", 0x1D7E6 => "4", 0x1D7E7 => "5", 0x1D7E8 => "6", 0x1D7E9 => "7", + 0x1D7EA => "8", 0x1D7EB => "9", 0x1D7EC => "0", 0x1D7ED => "1", 0x1D7EE => "2", 0x1D7EF => "3", 0x1D7F0 => "4", 0x1D7F1 => "5", + 0x1D7F2 => "6", 0x1D7F3 => "7", 0x1D7F4 => "8", 0x1D7F5 => "9", 0x1D7F6 => "0", 0x1D7F7 => "1", 0x1D7F8 => "2", 0x1D7F9 => "3", + 0x1D7FA => "4", 0x1D7FB => "5", 0x1D7FC => "6", 0x1D7FD => "7", 0x1D7FE => "8", 0x1D7FF => "9", 0x1E900 => "\x{1E922}", 0x1E901 => "\x{1E923}", + 0x1E902 => "\x{1E924}", 0x1E903 => "\x{1E925}", 0x1E904 => "\x{1E926}", 0x1E905 => "\x{1E927}", 0x1E906 => "\x{1E928}", 0x1E907 => "\x{1E929}", 0x1E908 => "\x{1E92A}", 0x1E909 => "\x{1E92B}", + 0x1E90A => "\x{1E92C}", 0x1E90B => "\x{1E92D}", 0x1E90C => "\x{1E92E}", 0x1E90D => "\x{1E92F}", 0x1E90E => "\x{1E930}", 0x1E90F => "\x{1E931}", 0x1E910 => "\x{1E932}", 0x1E911 => "\x{1E933}", + 0x1E912 => "\x{1E934}", 0x1E913 => "\x{1E935}", 0x1E914 => "\x{1E936}", 0x1E915 => "\x{1E937}", 0x1E916 => "\x{1E938}", 0x1E917 => "\x{1E939}", 0x1E918 => "\x{1E93A}", 0x1E919 => "\x{1E93B}", + 0x1E91A => "\x{1E93C}", 0x1E91B => "\x{1E93D}", 0x1E91C => "\x{1E93E}", 0x1E91D => "\x{1E93F}", 0x1E91E => "\x{1E940}", 0x1E91F => "\x{1E941}", 0x1E920 => "\x{1E942}", 0x1E921 => "\x{1E943}", + 0x1EE00 => "ا", 0x1EE01 => "ب", 0x1EE02 => "ج", 0x1EE03 => "د", 0x1EE05 => "و", 0x1EE06 => "ز", 0x1EE07 => "ح", 0x1EE08 => "ط", + 0x1EE09 => "ي", 0x1EE0A => "ك", 0x1EE0B => "ل", 0x1EE0C => "م", 0x1EE0D => "ن", 0x1EE0E => "س", 0x1EE0F => "ع", 0x1EE10 => "ف", + 0x1EE11 => "ص", 0x1EE12 => "ق", 0x1EE13 => "ر", 0x1EE14 => "ش", 0x1EE15 => "ت", 0x1EE16 => "ث", 0x1EE17 => "خ", 0x1EE18 => "ذ", + 0x1EE19 => "ض", 0x1EE1A => "ظ", 0x1EE1B => "غ", 0x1EE1C => "ٮ", 0x1EE1D => "ں", 0x1EE1E => "ڡ", 0x1EE1F => "ٯ", 0x1EE21 => "ب", + 0x1EE22 => "ج", 0x1EE24 => "ه", 0x1EE27 => "ح", 0x1EE29 => "ي", 0x1EE2A => "ك", 0x1EE2B => "ل", 0x1EE2C => "م", 0x1EE2D => "ن", + 0x1EE2E => "س", 0x1EE2F => "ع", 0x1EE30 => "ف", 0x1EE31 => "ص", 0x1EE32 => "ق", 0x1EE34 => "ش", 0x1EE35 => "ت", 0x1EE36 => "ث", + 0x1EE37 => "خ", 0x1EE39 => "ض", 0x1EE3B => "غ", 0x1EE42 => "ج", 0x1EE47 => "ح", 0x1EE49 => "ي", 0x1EE4B => "ل", 0x1EE4D => "ن", + 0x1EE4E => "س", 0x1EE4F => "ع", 0x1EE51 => "ص", 0x1EE52 => "ق", 0x1EE54 => "ش", 0x1EE57 => "خ", 0x1EE59 => "ض", 0x1EE5B => "غ", + 0x1EE5D => "ں", 0x1EE5F => "ٯ", 0x1EE61 => "ب", 0x1EE62 => "ج", 0x1EE64 => "ه", 0x1EE67 => "ح", 0x1EE68 => "ط", 0x1EE69 => "ي", + 0x1EE6A => "ك", 0x1EE6C => "م", 0x1EE6D => "ن", 0x1EE6E => "س", 0x1EE6F => "ع", 0x1EE70 => "ف", 0x1EE71 => "ص", 0x1EE72 => "ق", + 0x1EE74 => "ش", 0x1EE75 => "ت", 0x1EE76 => "ث", 0x1EE77 => "خ", 0x1EE79 => "ض", 0x1EE7A => "ظ", 0x1EE7B => "غ", 0x1EE7C => "ٮ", + 0x1EE7E => "ڡ", 0x1EE80 => "ا", 0x1EE81 => "ب", 0x1EE82 => "ج", 0x1EE83 => "د", 0x1EE84 => "ه", 0x1EE85 => "و", 0x1EE86 => "ز", + 0x1EE87 => "ح", 0x1EE88 => "ط", 0x1EE89 => "ي", 0x1EE8B => "ل", 0x1EE8C => "م", 0x1EE8D => "ن", 0x1EE8E => "س", 0x1EE8F => "ع", + 0x1EE90 => "ف", 0x1EE91 => "ص", 0x1EE92 => "ق", 0x1EE93 => "ر", 0x1EE94 => "ش", 0x1EE95 => "ت", 0x1EE96 => "ث", 0x1EE97 => "خ", + 0x1EE98 => "ذ", 0x1EE99 => "ض", 0x1EE9A => "ظ", 0x1EE9B => "غ", 0x1EEA1 => "ب", 0x1EEA2 => "ج", 0x1EEA3 => "د", 0x1EEA5 => "و", + 0x1EEA6 => "ز", 0x1EEA7 => "ح", 0x1EEA8 => "ط", 0x1EEA9 => "ي", 0x1EEAB => "ل", 0x1EEAC => "م", 0x1EEAD => "ن", 0x1EEAE => "س", + 0x1EEAF => "ع", 0x1EEB0 => "ف", 0x1EEB1 => "ص", 0x1EEB2 => "ق", 0x1EEB3 => "ر", 0x1EEB4 => "ش", 0x1EEB5 => "ت", 0x1EEB6 => "ث", + 0x1EEB7 => "خ", 0x1EEB8 => "ذ", 0x1EEB9 => "ض", 0x1EEBA => "ظ", 0x1EEBB => "غ", 0x1F12A => "\x{3014}s\x{3015}", 0x1F12B => "c", 0x1F12C => "r", + 0x1F12D => "cd", 0x1F12E => "wz", 0x1F130 => "a", 0x1F131 => "b", 0x1F132 => "c", 0x1F133 => "d", 0x1F134 => "e", 0x1F135 => "f", + 0x1F136 => "g", 0x1F137 => "h", 0x1F138 => "i", 0x1F139 => "j", 0x1F13A => "k", 0x1F13B => "l", 0x1F13C => "m", 0x1F13D => "n", + 0x1F13E => "o", 0x1F13F => "p", 0x1F140 => "q", 0x1F141 => "r", 0x1F142 => "s", 0x1F143 => "t", 0x1F144 => "u", 0x1F145 => "v", + 0x1F146 => "w", 0x1F147 => "x", 0x1F148 => "y", 0x1F149 => "z", 0x1F14A => "hv", 0x1F14B => "mv", 0x1F14C => "sd", 0x1F14D => "ss", + 0x1F14E => "ppv", 0x1F14F => "wc", 0x1F16A => "mc", 0x1F16B => "md", 0x1F190 => "dj", 0x1F200 => "ほか", 0x1F201 => "ココ", 0x1F202 => "サ", + 0x1F210 => "手", 0x1F211 => "字", 0x1F212 => "双", 0x1F213 => "デ", 0x1F214 => "二", 0x1F215 => "多", 0x1F216 => "解", 0x1F217 => "天", + 0x1F218 => "交", 0x1F219 => "映", 0x1F21A => "無", 0x1F21B => "料", 0x1F21C => "前", 0x1F21D => "後", 0x1F21E => "再", 0x1F21F => "新", + 0x1F220 => "初", 0x1F221 => "終", 0x1F222 => "生", 0x1F223 => "販", 0x1F224 => "声", 0x1F225 => "吹", 0x1F226 => "演", 0x1F227 => "投", + 0x1F228 => "捕", 0x1F229 => "一", 0x1F22A => "三", 0x1F22B => "遊", 0x1F22C => "左", 0x1F22D => "中", 0x1F22E => "右", 0x1F22F => "指", + 0x1F230 => "走", 0x1F231 => "打", 0x1F232 => "禁", 0x1F233 => "空", 0x1F234 => "合", 0x1F235 => "満", 0x1F236 => "有", 0x1F237 => "月", + 0x1F238 => "申", 0x1F239 => "割", 0x1F23A => "営", 0x1F23B => "配", 0x1F240 => "\x{3014}本\x{3015}", 0x1F241 => "\x{3014}三\x{3015}", 0x1F242 => "\x{3014}二\x{3015}", 0x1F243 => "\x{3014}安\x{3015}", + 0x1F244 => "\x{3014}点\x{3015}", 0x1F245 => "\x{3014}打\x{3015}", 0x1F246 => "\x{3014}盗\x{3015}", 0x1F247 => "\x{3014}勝\x{3015}", 0x1F248 => "\x{3014}敗\x{3015}", 0x1F250 => "得", 0x1F251 => "可", 0x2F800 => "丽", + 0x2F801 => "丸", 0x2F802 => "乁", 0x2F803 => "𠄢", 0x2F804 => "你", 0x2F805 => "侮", 0x2F806 => "侻", 0x2F807 => "倂", 0x2F808 => "偺", + 0x2F809 => "備", 0x2F80A => "僧", 0x2F80B => "像", 0x2F80C => "㒞", 0x2F80D => "𠘺", 0x2F80E => "免", 0x2F80F => "兔", 0x2F810 => "兤", + 0x2F811 => "具", 0x2F812 => "𠔜", 0x2F813 => "㒹", 0x2F814 => "內", 0x2F815 => "再", 0x2F816 => "𠕋", 0x2F817 => "冗", 0x2F818 => "冤", + 0x2F819 => "仌", 0x2F81A => "冬", 0x2F81B => "况", 0x2F81C => "𩇟", 0x2F81D => "凵", 0x2F81E => "刃", 0x2F81F => "㓟", 0x2F820 => "刻", + 0x2F821 => "剆", 0x2F822 => "割", 0x2F823 => "剷", 0x2F824 => "㔕", 0x2F825 => "勇", 0x2F826 => "勉", 0x2F827 => "勤", 0x2F828 => "勺", + 0x2F829 => "包", 0x2F82A => "匆", 0x2F82B => "北", 0x2F82C => "卉", 0x2F82D => "卑", 0x2F82E => "博", 0x2F82F => "即", 0x2F830 => "卽", + 0x2F831 => "卿", 0x2F832 => "卿", 0x2F833 => "卿", 0x2F834 => "𠨬", 0x2F835 => "灰", 0x2F836 => "及", 0x2F837 => "叟", 0x2F838 => "𠭣", + 0x2F839 => "叫", 0x2F83A => "叱", 0x2F83B => "吆", 0x2F83C => "咞", 0x2F83D => "吸", 0x2F83E => "呈", 0x2F83F => "周", 0x2F840 => "咢", + 0x2F841 => "哶", 0x2F842 => "唐", 0x2F843 => "啓", 0x2F844 => "啣", 0x2F845 => "善", 0x2F846 => "善", 0x2F847 => "喙", 0x2F848 => "喫", + 0x2F849 => "喳", 0x2F84A => "嗂", 0x2F84B => "圖", 0x2F84C => "嘆", 0x2F84D => "圗", 0x2F84E => "噑", 0x2F84F => "噴", 0x2F850 => "切", + 0x2F851 => "壮", 0x2F852 => "城", 0x2F853 => "埴", 0x2F854 => "堍", 0x2F855 => "型", 0x2F856 => "堲", 0x2F857 => "報", 0x2F858 => "墬", + 0x2F859 => "𡓤", 0x2F85A => "売", 0x2F85B => "壷", 0x2F85C => "夆", 0x2F85D => "多", 0x2F85E => "夢", 0x2F85F => "奢", 0x2F860 => "𡚨", + 0x2F861 => "𡛪", 0x2F862 => "姬", 0x2F863 => "娛", 0x2F864 => "娧", 0x2F865 => "姘", 0x2F866 => "婦", 0x2F867 => "㛮", 0x2F869 => "嬈", + 0x2F86A => "嬾", 0x2F86B => "嬾", 0x2F86C => "𡧈", 0x2F86D => "寃", 0x2F86E => "寘", 0x2F86F => "寧", 0x2F870 => "寳", 0x2F871 => "𡬘", + 0x2F872 => "寿", 0x2F873 => "将", 0x2F875 => "尢", 0x2F876 => "㞁", 0x2F877 => "屠", 0x2F878 => "屮", 0x2F879 => "峀", 0x2F87A => "岍", + 0x2F87B => "𡷤", 0x2F87C => "嵃", 0x2F87D => "𡷦", 0x2F87E => "嵮", 0x2F87F => "嵫", 0x2F880 => "嵼", 0x2F881 => "巡", 0x2F882 => "巢", + 0x2F883 => "㠯", 0x2F884 => "巽", 0x2F885 => "帨", 0x2F886 => "帽", 0x2F887 => "幩", 0x2F888 => "㡢", 0x2F889 => "𢆃", 0x2F88A => "㡼", + 0x2F88B => "庰", 0x2F88C => "庳", 0x2F88D => "庶", 0x2F88E => "廊", 0x2F88F => "𪎒", 0x2F890 => "廾", 0x2F891 => "𢌱", 0x2F892 => "𢌱", + 0x2F893 => "舁", 0x2F894 => "弢", 0x2F895 => "弢", 0x2F896 => "㣇", 0x2F897 => "𣊸", 0x2F898 => "𦇚", 0x2F899 => "形", 0x2F89A => "彫", + 0x2F89B => "㣣", 0x2F89C => "徚", 0x2F89D => "忍", 0x2F89E => "志", 0x2F89F => "忹", 0x2F8A0 => "悁", 0x2F8A1 => "㤺", 0x2F8A2 => "㤜", + 0x2F8A3 => "悔", 0x2F8A4 => "𢛔", 0x2F8A5 => "惇", 0x2F8A6 => "慈", 0x2F8A7 => "慌", 0x2F8A8 => "慎", 0x2F8A9 => "慌", 0x2F8AA => "慺", + 0x2F8AB => "憎", 0x2F8AC => "憲", 0x2F8AD => "憤", 0x2F8AE => "憯", 0x2F8AF => "懞", 0x2F8B0 => "懲", 0x2F8B1 => "懶", 0x2F8B2 => "成", + 0x2F8B3 => "戛", 0x2F8B4 => "扝", 0x2F8B5 => "抱", 0x2F8B6 => "拔", 0x2F8B7 => "捐", 0x2F8B8 => "𢬌", 0x2F8B9 => "挽", 0x2F8BA => "拼", + 0x2F8BB => "捨", 0x2F8BC => "掃", 0x2F8BD => "揤", 0x2F8BE => "𢯱", 0x2F8BF => "搢", 0x2F8C0 => "揅", 0x2F8C1 => "掩", 0x2F8C2 => "㨮", + 0x2F8C3 => "摩", 0x2F8C4 => "摾", 0x2F8C5 => "撝", 0x2F8C6 => "摷", 0x2F8C7 => "㩬", 0x2F8C8 => "敏", 0x2F8C9 => "敬", 0x2F8CA => "𣀊", + 0x2F8CB => "旣", 0x2F8CC => "書", 0x2F8CD => "晉", 0x2F8CE => "㬙", 0x2F8CF => "暑", 0x2F8D0 => "㬈", 0x2F8D1 => "㫤", 0x2F8D2 => "冒", + 0x2F8D3 => "冕", 0x2F8D4 => "最", 0x2F8D5 => "暜", 0x2F8D6 => "肭", 0x2F8D7 => "䏙", 0x2F8D8 => "朗", 0x2F8D9 => "望", 0x2F8DA => "朡", + 0x2F8DB => "杞", 0x2F8DC => "杓", 0x2F8DD => "𣏃", 0x2F8DE => "㭉", 0x2F8DF => "柺", 0x2F8E0 => "枅", 0x2F8E1 => "桒", 0x2F8E2 => "梅", + 0x2F8E3 => "𣑭", 0x2F8E4 => "梎", 0x2F8E5 => "栟", 0x2F8E6 => "椔", 0x2F8E7 => "㮝", 0x2F8E8 => "楂", 0x2F8E9 => "榣", 0x2F8EA => "槪", + 0x2F8EB => "檨", 0x2F8EC => "𣚣", 0x2F8ED => "櫛", 0x2F8EE => "㰘", 0x2F8EF => "次", 0x2F8F0 => "𣢧", 0x2F8F1 => "歔", 0x2F8F2 => "㱎", + 0x2F8F3 => "歲", 0x2F8F4 => "殟", 0x2F8F5 => "殺", 0x2F8F6 => "殻", 0x2F8F7 => "𣪍", 0x2F8F8 => "𡴋", 0x2F8F9 => "𣫺", 0x2F8FA => "汎", + 0x2F8FB => "𣲼", 0x2F8FC => "沿", 0x2F8FD => "泍", 0x2F8FE => "汧", 0x2F8FF => "洖", 0x2F900 => "派", 0x2F901 => "海", 0x2F902 => "流", + 0x2F903 => "浩", 0x2F904 => "浸", 0x2F905 => "涅", 0x2F906 => "𣴞", 0x2F907 => "洴", 0x2F908 => "港", 0x2F909 => "湮", 0x2F90A => "㴳", + 0x2F90B => "滋", 0x2F90C => "滇", 0x2F90D => "𣻑", 0x2F90E => "淹", 0x2F90F => "潮", 0x2F910 => "𣽞", 0x2F911 => "𣾎", 0x2F912 => "濆", + 0x2F913 => "瀹", 0x2F914 => "瀞", 0x2F915 => "瀛", 0x2F916 => "㶖", 0x2F917 => "灊", 0x2F918 => "災", 0x2F919 => "灷", 0x2F91A => "炭", + 0x2F91B => "𠔥", 0x2F91C => "煅", 0x2F91D => "𤉣", 0x2F91E => "熜", 0x2F920 => "爨", 0x2F921 => "爵", 0x2F922 => "牐", 0x2F923 => "𤘈", + 0x2F924 => "犀", 0x2F925 => "犕", 0x2F926 => "𤜵", 0x2F927 => "𤠔", 0x2F928 => "獺", 0x2F929 => "王", 0x2F92A => "㺬", 0x2F92B => "玥", + 0x2F92C => "㺸", 0x2F92D => "㺸", 0x2F92E => "瑇", 0x2F92F => "瑜", 0x2F930 => "瑱", 0x2F931 => "璅", 0x2F932 => "瓊", 0x2F933 => "㼛", + 0x2F934 => "甤", 0x2F935 => "𤰶", 0x2F936 => "甾", 0x2F937 => "𤲒", 0x2F938 => "異", 0x2F939 => "𢆟", 0x2F93A => "瘐", 0x2F93B => "𤾡", + 0x2F93C => "𤾸", 0x2F93D => "𥁄", 0x2F93E => "㿼", 0x2F93F => "䀈", 0x2F940 => "直", 0x2F941 => "𥃳", 0x2F942 => "𥃲", 0x2F943 => "𥄙", + 0x2F944 => "𥄳", 0x2F945 => "眞", 0x2F946 => "真", 0x2F947 => "真", 0x2F948 => "睊", 0x2F949 => "䀹", 0x2F94A => "瞋", 0x2F94B => "䁆", + 0x2F94C => "䂖", 0x2F94D => "𥐝", 0x2F94E => "硎", 0x2F94F => "碌", 0x2F950 => "磌", 0x2F951 => "䃣", 0x2F952 => "𥘦", 0x2F953 => "祖", + 0x2F954 => "𥚚", 0x2F955 => "𥛅", 0x2F956 => "福", 0x2F957 => "秫", 0x2F958 => "䄯", 0x2F959 => "穀", 0x2F95A => "穊", 0x2F95B => "穏", + 0x2F95C => "𥥼", 0x2F95D => "𥪧", 0x2F95E => "𥪧", 0x2F960 => "䈂", 0x2F961 => "𥮫", 0x2F962 => "篆", 0x2F963 => "築", 0x2F964 => "䈧", + 0x2F965 => "𥲀", 0x2F966 => "糒", 0x2F967 => "䊠", 0x2F968 => "糨", 0x2F969 => "糣", 0x2F96A => "紀", 0x2F96B => "𥾆", 0x2F96C => "絣", + 0x2F96D => "䌁", 0x2F96E => "緇", 0x2F96F => "縂", 0x2F970 => "繅", 0x2F971 => "䌴", 0x2F972 => "𦈨", 0x2F973 => "𦉇", 0x2F974 => "䍙", + 0x2F975 => "𦋙", 0x2F976 => "罺", 0x2F977 => "𦌾", 0x2F978 => "羕", 0x2F979 => "翺", 0x2F97A => "者", 0x2F97B => "𦓚", 0x2F97C => "𦔣", + 0x2F97D => "聠", 0x2F97E => "𦖨", 0x2F97F => "聰", 0x2F980 => "𣍟", 0x2F981 => "䏕", 0x2F982 => "育", 0x2F983 => "脃", 0x2F984 => "䐋", + 0x2F985 => "脾", 0x2F986 => "媵", 0x2F987 => "𦞧", 0x2F988 => "𦞵", 0x2F989 => "𣎓", 0x2F98A => "𣎜", 0x2F98B => "舁", 0x2F98C => "舄", + 0x2F98D => "辞", 0x2F98E => "䑫", 0x2F98F => "芑", 0x2F990 => "芋", 0x2F991 => "芝", 0x2F992 => "劳", 0x2F993 => "花", 0x2F994 => "芳", + 0x2F995 => "芽", 0x2F996 => "苦", 0x2F997 => "𦬼", 0x2F998 => "若", 0x2F999 => "茝", 0x2F99A => "荣", 0x2F99B => "莭", 0x2F99C => "茣", + 0x2F99D => "莽", 0x2F99E => "菧", 0x2F99F => "著", 0x2F9A0 => "荓", 0x2F9A1 => "菊", 0x2F9A2 => "菌", 0x2F9A3 => "菜", 0x2F9A4 => "𦰶", + 0x2F9A5 => "𦵫", 0x2F9A6 => "𦳕", 0x2F9A7 => "䔫", 0x2F9A8 => "蓱", 0x2F9A9 => "蓳", 0x2F9AA => "蔖", 0x2F9AB => "𧏊", 0x2F9AC => "蕤", + 0x2F9AD => "𦼬", 0x2F9AE => "䕝", 0x2F9AF => "䕡", 0x2F9B0 => "𦾱", 0x2F9B1 => "𧃒", 0x2F9B2 => "䕫", 0x2F9B3 => "虐", 0x2F9B4 => "虜", + 0x2F9B5 => "虧", 0x2F9B6 => "虩", 0x2F9B7 => "蚩", 0x2F9B8 => "蚈", 0x2F9B9 => "蜎", 0x2F9BA => "蛢", 0x2F9BB => "蝹", 0x2F9BC => "蜨", + 0x2F9BD => "蝫", 0x2F9BE => "螆", 0x2F9C0 => "蟡", 0x2F9C1 => "蠁", 0x2F9C2 => "䗹", 0x2F9C3 => "衠", 0x2F9C4 => "衣", 0x2F9C5 => "𧙧", + 0x2F9C6 => "裗", 0x2F9C7 => "裞", 0x2F9C8 => "䘵", 0x2F9C9 => "裺", 0x2F9CA => "㒻", 0x2F9CB => "𧢮", 0x2F9CC => "𧥦", 0x2F9CD => "䚾", + 0x2F9CE => "䛇", 0x2F9CF => "誠", 0x2F9D0 => "諭", 0x2F9D1 => "變", 0x2F9D2 => "豕", 0x2F9D3 => "𧲨", 0x2F9D4 => "貫", 0x2F9D5 => "賁", + 0x2F9D6 => "贛", 0x2F9D7 => "起", 0x2F9D8 => "𧼯", 0x2F9D9 => "𠠄", 0x2F9DA => "跋", 0x2F9DB => "趼", 0x2F9DC => "跰", 0x2F9DD => "𠣞", + 0x2F9DE => "軔", 0x2F9DF => "輸", 0x2F9E0 => "𨗒", 0x2F9E1 => "𨗭", 0x2F9E2 => "邔", 0x2F9E3 => "郱", 0x2F9E4 => "鄑", 0x2F9E5 => "𨜮", + 0x2F9E6 => "鄛", 0x2F9E7 => "鈸", 0x2F9E8 => "鋗", 0x2F9E9 => "鋘", 0x2F9EA => "鉼", 0x2F9EB => "鏹", 0x2F9EC => "鐕", 0x2F9ED => "𨯺", + 0x2F9EE => "開", 0x2F9EF => "䦕", 0x2F9F0 => "閷", 0x2F9F1 => "𨵷", 0x2F9F2 => "䧦", 0x2F9F3 => "雃", 0x2F9F4 => "嶲", 0x2F9F5 => "霣", + 0x2F9F6 => "𩅅", 0x2F9F7 => "𩈚", 0x2F9F8 => "䩮", 0x2F9F9 => "䩶", 0x2F9FA => "韠", 0x2F9FB => "𩐊", 0x2F9FC => "䪲", 0x2F9FD => "𩒖", + 0x2F9FE => "頋", 0x2F9FF => "頋", 0x2FA00 => "頩", 0x2FA01 => "𩖶", 0x2FA02 => "飢", 0x2FA03 => "䬳", 0x2FA04 => "餩", 0x2FA05 => "馧", + 0x2FA06 => "駂", 0x2FA07 => "駾", 0x2FA08 => "䯎", 0x2FA09 => "𩬰", 0x2FA0A => "鬒", 0x2FA0B => "鱀", 0x2FA0C => "鳽", 0x2FA0D => "䳎", + 0x2FA0E => "䳭", 0x2FA0F => "鵧", 0x2FA10 => "𪃎", 0x2FA11 => "䳸", 0x2FA12 => "𪄅", 0x2FA13 => "𪈎", 0x2FA14 => "𪊑", 0x2FA15 => "麻", + 0x2FA16 => "䵖", 0x2FA17 => "黹", 0x2FA18 => "黾", 0x2FA19 => "鼅", 0x2FA1A => "鼏", 0x2FA1B => "鼖", 0x2FA1C => "鼻", 0x2FA1D => "𪘀",); + +our @MAPPED = ( + 0x0041, 0x005A, 0x00AA, undef, 0x00B2, 0x00B3, 0x00B5, undef, 0x00B9, 0x00BA, 0x00BC, 0x00BE, 0x00C0, 0x00D6, 0x00D8, 0x00DE, + 0x0100, undef, 0x0102, undef, 0x0104, undef, 0x0106, undef, 0x0108, undef, 0x010A, undef, 0x010C, undef, 0x010E, undef, + 0x0110, undef, 0x0112, undef, 0x0114, undef, 0x0116, undef, 0x0118, undef, 0x011A, undef, 0x011C, undef, 0x011E, undef, + 0x0120, undef, 0x0122, undef, 0x0124, undef, 0x0126, undef, 0x0128, undef, 0x012A, undef, 0x012C, undef, 0x012E, undef, + 0x0130, undef, 0x0132, 0x0134, 0x0136, undef, 0x0139, undef, 0x013B, undef, 0x013D, undef, 0x013F, 0x0141, 0x0143, undef, + 0x0145, undef, 0x0147, undef, 0x0149, 0x014A, 0x014C, undef, 0x014E, undef, 0x0150, undef, 0x0152, undef, 0x0154, undef, + 0x0156, undef, 0x0158, undef, 0x015A, undef, 0x015C, undef, 0x015E, undef, 0x0160, undef, 0x0162, undef, 0x0164, undef, + 0x0166, undef, 0x0168, undef, 0x016A, undef, 0x016C, undef, 0x016E, undef, 0x0170, undef, 0x0172, undef, 0x0174, undef, + 0x0176, undef, 0x0178, 0x0179, 0x017B, undef, 0x017D, undef, 0x017F, undef, 0x0181, 0x0182, 0x0184, undef, 0x0186, 0x0187, + 0x0189, 0x018B, 0x018E, 0x0191, 0x0193, 0x0194, 0x0196, 0x0198, 0x019C, 0x019D, 0x019F, 0x01A0, 0x01A2, undef, 0x01A4, undef, + 0x01A6, 0x01A7, 0x01A9, undef, 0x01AC, undef, 0x01AE, 0x01AF, 0x01B1, 0x01B3, 0x01B5, undef, 0x01B7, 0x01B8, 0x01BC, undef, + 0x01C4, 0x01CD, 0x01CF, undef, 0x01D1, undef, 0x01D3, undef, 0x01D5, undef, 0x01D7, undef, 0x01D9, undef, 0x01DB, undef, + 0x01DE, undef, 0x01E0, undef, 0x01E2, undef, 0x01E4, undef, 0x01E6, undef, 0x01E8, undef, 0x01EA, undef, 0x01EC, undef, + 0x01EE, undef, 0x01F1, 0x01F4, 0x01F6, 0x01F8, 0x01FA, undef, 0x01FC, undef, 0x01FE, undef, 0x0200, undef, 0x0202, undef, + 0x0204, undef, 0x0206, undef, 0x0208, undef, 0x020A, undef, 0x020C, undef, 0x020E, undef, 0x0210, undef, 0x0212, undef, + 0x0214, undef, 0x0216, undef, 0x0218, undef, 0x021A, undef, 0x021C, undef, 0x021E, undef, 0x0220, undef, 0x0222, undef, + 0x0224, undef, 0x0226, undef, 0x0228, undef, 0x022A, undef, 0x022C, undef, 0x022E, undef, 0x0230, undef, 0x0232, undef, + 0x023A, 0x023B, 0x023D, 0x023E, 0x0241, undef, 0x0243, 0x0246, 0x0248, undef, 0x024A, undef, 0x024C, undef, 0x024E, undef, + 0x02B0, 0x02B8, 0x02E0, 0x02E4, 0x0340, 0x0341, 0x0343, 0x0345, 0x0370, undef, 0x0372, undef, 0x0374, undef, 0x0376, undef, + 0x037F, undef, 0x0386, 0x038A, 0x038C, undef, 0x038E, 0x038F, 0x0391, 0x03A1, 0x03A3, 0x03AB, 0x03CF, 0x03D6, 0x03D8, undef, + 0x03DA, undef, 0x03DC, undef, 0x03DE, undef, 0x03E0, undef, 0x03E2, undef, 0x03E4, undef, 0x03E6, undef, 0x03E8, undef, + 0x03EA, undef, 0x03EC, undef, 0x03EE, undef, 0x03F0, 0x03F2, 0x03F4, 0x03F5, 0x03F7, undef, 0x03F9, 0x03FA, 0x03FD, 0x042F, + 0x0460, undef, 0x0462, undef, 0x0464, undef, 0x0466, undef, 0x0468, undef, 0x046A, undef, 0x046C, undef, 0x046E, undef, + 0x0470, undef, 0x0472, undef, 0x0474, undef, 0x0476, undef, 0x0478, undef, 0x047A, undef, 0x047C, undef, 0x047E, undef, + 0x0480, undef, 0x048A, undef, 0x048C, undef, 0x048E, undef, 0x0490, undef, 0x0492, undef, 0x0494, undef, 0x0496, undef, + 0x0498, undef, 0x049A, undef, 0x049C, undef, 0x049E, undef, 0x04A0, undef, 0x04A2, undef, 0x04A4, undef, 0x04A6, undef, + 0x04A8, undef, 0x04AA, undef, 0x04AC, undef, 0x04AE, undef, 0x04B0, undef, 0x04B2, undef, 0x04B4, undef, 0x04B6, undef, + 0x04B8, undef, 0x04BA, undef, 0x04BC, undef, 0x04BE, undef, 0x04C1, undef, 0x04C3, undef, 0x04C5, undef, 0x04C7, undef, + 0x04C9, undef, 0x04CB, undef, 0x04CD, undef, 0x04D0, undef, 0x04D2, undef, 0x04D4, undef, 0x04D6, undef, 0x04D8, undef, + 0x04DA, undef, 0x04DC, undef, 0x04DE, undef, 0x04E0, undef, 0x04E2, undef, 0x04E4, undef, 0x04E6, undef, 0x04E8, undef, + 0x04EA, undef, 0x04EC, undef, 0x04EE, undef, 0x04F0, undef, 0x04F2, undef, 0x04F4, undef, 0x04F6, undef, 0x04F8, undef, + 0x04FA, undef, 0x04FC, undef, 0x04FE, undef, 0x0500, undef, 0x0502, undef, 0x0504, undef, 0x0506, undef, 0x0508, undef, + 0x050A, undef, 0x050C, undef, 0x050E, undef, 0x0510, undef, 0x0512, undef, 0x0514, undef, 0x0516, undef, 0x0518, undef, + 0x051A, undef, 0x051C, undef, 0x051E, undef, 0x0520, undef, 0x0522, undef, 0x0524, undef, 0x0526, undef, 0x0528, undef, + 0x052A, undef, 0x052C, undef, 0x052E, undef, 0x0531, 0x0556, 0x0587, undef, 0x0675, 0x0678, 0x0958, 0x095F, 0x09DC, 0x09DD, + 0x09DF, undef, 0x0A33, undef, 0x0A36, undef, 0x0A59, 0x0A5B, 0x0A5E, undef, 0x0B5C, 0x0B5D, 0x0E33, undef, 0x0EB3, undef, + 0x0EDC, 0x0EDD, 0x0F0C, undef, 0x0F43, undef, 0x0F4D, undef, 0x0F52, undef, 0x0F57, undef, 0x0F5C, undef, 0x0F69, undef, + 0x0F73, undef, 0x0F75, 0x0F79, 0x0F81, undef, 0x0F93, undef, 0x0F9D, undef, 0x0FA2, undef, 0x0FA7, undef, 0x0FAC, undef, + 0x0FB9, undef, 0x10C7, undef, 0x10CD, undef, 0x10FC, undef, 0x13F8, 0x13FD, 0x1C80, 0x1C88, 0x1D2C, 0x1D2E, 0x1D30, 0x1D3A, + 0x1D3C, 0x1D4D, 0x1D4F, 0x1D6A, 0x1D78, undef, 0x1D9B, 0x1DBF, 0x1E00, undef, 0x1E02, undef, 0x1E04, undef, 0x1E06, undef, + 0x1E08, undef, 0x1E0A, undef, 0x1E0C, undef, 0x1E0E, undef, 0x1E10, undef, 0x1E12, undef, 0x1E14, undef, 0x1E16, undef, + 0x1E18, undef, 0x1E1A, undef, 0x1E1C, undef, 0x1E1E, undef, 0x1E20, undef, 0x1E22, undef, 0x1E24, undef, 0x1E26, undef, + 0x1E28, undef, 0x1E2A, undef, 0x1E2C, undef, 0x1E2E, undef, 0x1E30, undef, 0x1E32, undef, 0x1E34, undef, 0x1E36, undef, + 0x1E38, undef, 0x1E3A, undef, 0x1E3C, undef, 0x1E3E, undef, 0x1E40, undef, 0x1E42, undef, 0x1E44, undef, 0x1E46, undef, + 0x1E48, undef, 0x1E4A, undef, 0x1E4C, undef, 0x1E4E, undef, 0x1E50, undef, 0x1E52, undef, 0x1E54, undef, 0x1E56, undef, + 0x1E58, undef, 0x1E5A, undef, 0x1E5C, undef, 0x1E5E, undef, 0x1E60, undef, 0x1E62, undef, 0x1E64, undef, 0x1E66, undef, + 0x1E68, undef, 0x1E6A, undef, 0x1E6C, undef, 0x1E6E, undef, 0x1E70, undef, 0x1E72, undef, 0x1E74, undef, 0x1E76, undef, + 0x1E78, undef, 0x1E7A, undef, 0x1E7C, undef, 0x1E7E, undef, 0x1E80, undef, 0x1E82, undef, 0x1E84, undef, 0x1E86, undef, + 0x1E88, undef, 0x1E8A, undef, 0x1E8C, undef, 0x1E8E, undef, 0x1E90, undef, 0x1E92, undef, 0x1E94, undef, 0x1E9A, 0x1E9B, + 0x1E9E, undef, 0x1EA0, undef, 0x1EA2, undef, 0x1EA4, undef, 0x1EA6, undef, 0x1EA8, undef, 0x1EAA, undef, 0x1EAC, undef, + 0x1EAE, undef, 0x1EB0, undef, 0x1EB2, undef, 0x1EB4, undef, 0x1EB6, undef, 0x1EB8, undef, 0x1EBA, undef, 0x1EBC, undef, + 0x1EBE, undef, 0x1EC0, undef, 0x1EC2, undef, 0x1EC4, undef, 0x1EC6, undef, 0x1EC8, undef, 0x1ECA, undef, 0x1ECC, undef, + 0x1ECE, undef, 0x1ED0, undef, 0x1ED2, undef, 0x1ED4, undef, 0x1ED6, undef, 0x1ED8, undef, 0x1EDA, undef, 0x1EDC, undef, + 0x1EDE, undef, 0x1EE0, undef, 0x1EE2, undef, 0x1EE4, undef, 0x1EE6, undef, 0x1EE8, undef, 0x1EEA, undef, 0x1EEC, undef, + 0x1EEE, undef, 0x1EF0, undef, 0x1EF2, undef, 0x1EF4, undef, 0x1EF6, undef, 0x1EF8, undef, 0x1EFA, undef, 0x1EFC, undef, + 0x1EFE, undef, 0x1F08, 0x1F0F, 0x1F18, 0x1F1D, 0x1F28, 0x1F2F, 0x1F38, 0x1F3F, 0x1F48, 0x1F4D, 0x1F59, undef, 0x1F5B, undef, + 0x1F5D, undef, 0x1F5F, undef, 0x1F68, 0x1F6F, 0x1F71, undef, 0x1F73, undef, 0x1F75, undef, 0x1F77, undef, 0x1F79, undef, + 0x1F7B, undef, 0x1F7D, undef, 0x1F80, 0x1FAF, 0x1FB2, 0x1FB4, 0x1FB7, 0x1FBC, 0x1FBE, undef, 0x1FC2, 0x1FC4, 0x1FC7, 0x1FCC, + 0x1FD3, undef, 0x1FD8, 0x1FDB, 0x1FE3, undef, 0x1FE8, 0x1FEC, 0x1FF2, 0x1FF4, 0x1FF7, 0x1FFC, 0x2011, undef, 0x2033, 0x2034, + 0x2036, 0x2037, 0x2057, undef, 0x2070, 0x2071, 0x2074, 0x2079, 0x207B, undef, 0x207F, 0x2089, 0x208B, undef, 0x2090, 0x209C, + 0x20A8, undef, 0x2102, 0x2103, 0x2107, undef, 0x2109, 0x2113, 0x2115, 0x2116, 0x2119, 0x211D, 0x2120, 0x2122, 0x2124, undef, + 0x2126, undef, 0x2128, undef, 0x212A, 0x212D, 0x212F, 0x2131, 0x2133, 0x2139, 0x213B, 0x2140, 0x2145, 0x2149, 0x2150, 0x217F, + 0x2189, undef, 0x222C, 0x222D, 0x222F, 0x2230, 0x2329, 0x232A, 0x2460, 0x2473, 0x24B6, 0x24EA, 0x2A0C, undef, 0x2ADC, undef, + 0x2C00, 0x2C2E, 0x2C60, undef, 0x2C62, 0x2C64, 0x2C67, undef, 0x2C69, undef, 0x2C6B, undef, 0x2C6D, 0x2C70, 0x2C72, undef, + 0x2C75, undef, 0x2C7C, 0x2C80, 0x2C82, undef, 0x2C84, undef, 0x2C86, undef, 0x2C88, undef, 0x2C8A, undef, 0x2C8C, undef, + 0x2C8E, undef, 0x2C90, undef, 0x2C92, undef, 0x2C94, undef, 0x2C96, undef, 0x2C98, undef, 0x2C9A, undef, 0x2C9C, undef, + 0x2C9E, undef, 0x2CA0, undef, 0x2CA2, undef, 0x2CA4, undef, 0x2CA6, undef, 0x2CA8, undef, 0x2CAA, undef, 0x2CAC, undef, + 0x2CAE, undef, 0x2CB0, undef, 0x2CB2, undef, 0x2CB4, undef, 0x2CB6, undef, 0x2CB8, undef, 0x2CBA, undef, 0x2CBC, undef, + 0x2CBE, undef, 0x2CC0, undef, 0x2CC2, undef, 0x2CC4, undef, 0x2CC6, undef, 0x2CC8, undef, 0x2CCA, undef, 0x2CCC, undef, + 0x2CCE, undef, 0x2CD0, undef, 0x2CD2, undef, 0x2CD4, undef, 0x2CD6, undef, 0x2CD8, undef, 0x2CDA, undef, 0x2CDC, undef, + 0x2CDE, undef, 0x2CE0, undef, 0x2CE2, undef, 0x2CEB, undef, 0x2CED, undef, 0x2CF2, undef, 0x2D6F, undef, 0x2E9F, undef, + 0x2EF3, undef, 0x2F00, 0x2FD5, 0x3002, undef, 0x3036, undef, 0x3038, 0x303A, 0x309F, undef, 0x30FF, undef, 0x3131, 0x3163, + 0x3165, 0x318E, 0x3192, 0x319F, 0x3244, 0x3247, 0x3250, 0x327E, 0x3280, 0x32FE, 0x3300, 0x33C1, 0x33C3, 0x33C6, 0x33C8, 0x33D7, + 0x33D9, 0x33FF, 0xA640, undef, 0xA642, undef, 0xA644, undef, 0xA646, undef, 0xA648, undef, 0xA64A, undef, 0xA64C, undef, + 0xA64E, undef, 0xA650, undef, 0xA652, undef, 0xA654, undef, 0xA656, undef, 0xA658, undef, 0xA65A, undef, 0xA65C, undef, + 0xA65E, undef, 0xA660, undef, 0xA662, undef, 0xA664, undef, 0xA666, undef, 0xA668, undef, 0xA66A, undef, 0xA66C, undef, + 0xA680, undef, 0xA682, undef, 0xA684, undef, 0xA686, undef, 0xA688, undef, 0xA68A, undef, 0xA68C, undef, 0xA68E, undef, + 0xA690, undef, 0xA692, undef, 0xA694, undef, 0xA696, undef, 0xA698, undef, 0xA69A, undef, 0xA69C, 0xA69D, 0xA722, undef, + 0xA724, undef, 0xA726, undef, 0xA728, undef, 0xA72A, undef, 0xA72C, undef, 0xA72E, undef, 0xA732, undef, 0xA734, undef, + 0xA736, undef, 0xA738, undef, 0xA73A, undef, 0xA73C, undef, 0xA73E, undef, 0xA740, undef, 0xA742, undef, 0xA744, undef, + 0xA746, undef, 0xA748, undef, 0xA74A, undef, 0xA74C, undef, 0xA74E, undef, 0xA750, undef, 0xA752, undef, 0xA754, undef, + 0xA756, undef, 0xA758, undef, 0xA75A, undef, 0xA75C, undef, 0xA75E, undef, 0xA760, undef, 0xA762, undef, 0xA764, undef, + 0xA766, undef, 0xA768, undef, 0xA76A, undef, 0xA76C, undef, 0xA76E, undef, 0xA770, undef, 0xA779, undef, 0xA77B, undef, + 0xA77D, 0xA77E, 0xA780, undef, 0xA782, undef, 0xA784, undef, 0xA786, undef, 0xA78B, undef, 0xA78D, undef, 0xA790, undef, + 0xA792, undef, 0xA796, undef, 0xA798, undef, 0xA79A, undef, 0xA79C, undef, 0xA79E, undef, 0xA7A0, undef, 0xA7A2, undef, + 0xA7A4, undef, 0xA7A6, undef, 0xA7A8, undef, 0xA7AA, 0xA7AE, 0xA7B0, 0xA7B4, 0xA7B6, undef, 0xA7F8, 0xA7F9, 0xAB5C, 0xAB5F, + 0xAB70, 0xABBF, 0xF900, 0xFA0D, 0xFA10, undef, 0xFA12, undef, 0xFA15, 0xFA1E, 0xFA20, undef, 0xFA22, undef, 0xFA25, 0xFA26, + 0xFA2A, 0xFA6D, 0xFA70, 0xFAD9, 0xFB00, 0xFB06, 0xFB13, 0xFB17, 0xFB1D, undef, 0xFB1F, 0xFB28, 0xFB2A, 0xFB36, 0xFB38, 0xFB3C, + 0xFB3E, undef, 0xFB40, 0xFB41, 0xFB43, 0xFB44, 0xFB46, 0xFBB1, 0xFBD3, 0xFC5D, 0xFC64, 0xFD3D, 0xFD50, 0xFD8F, 0xFD92, 0xFDC7, + 0xFDF0, 0xFDF9, 0xFDFC, undef, 0xFE11, undef, 0xFE17, 0xFE18, 0xFE31, 0xFE32, 0xFE39, 0xFE44, 0xFE51, undef, 0xFE58, undef, + 0xFE5D, 0xFE5E, 0xFE63, undef, 0xFE71, undef, 0xFE77, undef, 0xFE79, undef, 0xFE7B, undef, 0xFE7D, undef, 0xFE7F, 0xFEFC, + 0xFF0D, 0xFF0E, 0xFF10, 0xFF19, 0xFF21, 0xFF3A, 0xFF41, 0xFF5A, 0xFF5F, 0xFF9F, 0xFFA1, 0xFFBE, 0xFFC2, 0xFFC7, 0xFFCA, 0xFFCF, + 0xFFD2, 0xFFD7, 0xFFDA, 0xFFDC, 0xFFE0, 0xFFE2, 0xFFE4, 0xFFE6, 0xFFE8, 0xFFEE, 0x10400, 0x10427, 0x104B0, 0x104D3, 0x10C80, 0x10CB2, + 0x118A0, 0x118BF, 0x1D15E, 0x1D164, 0x1D1BB, 0x1D1C0, 0x1D400, 0x1D454, 0x1D456, 0x1D49C, 0x1D49E, 0x1D49F, 0x1D4A2, undef, 0x1D4A5, 0x1D4A6, + 0x1D4A9, 0x1D4AC, 0x1D4AE, 0x1D4B9, 0x1D4BB, undef, 0x1D4BD, 0x1D4C3, 0x1D4C5, 0x1D505, 0x1D507, 0x1D50A, 0x1D50D, 0x1D514, 0x1D516, 0x1D51C, + 0x1D51E, 0x1D539, 0x1D53B, 0x1D53E, 0x1D540, 0x1D544, 0x1D546, undef, 0x1D54A, 0x1D550, 0x1D552, 0x1D6A5, 0x1D6A8, 0x1D7CB, 0x1D7CE, 0x1D7FF, + 0x1E900, 0x1E921, 0x1EE00, 0x1EE03, 0x1EE05, 0x1EE1F, 0x1EE21, 0x1EE22, 0x1EE24, undef, 0x1EE27, undef, 0x1EE29, 0x1EE32, 0x1EE34, 0x1EE37, + 0x1EE39, undef, 0x1EE3B, undef, 0x1EE42, undef, 0x1EE47, undef, 0x1EE49, undef, 0x1EE4B, undef, 0x1EE4D, 0x1EE4F, 0x1EE51, 0x1EE52, + 0x1EE54, undef, 0x1EE57, undef, 0x1EE59, undef, 0x1EE5B, undef, 0x1EE5D, undef, 0x1EE5F, undef, 0x1EE61, 0x1EE62, 0x1EE64, undef, + 0x1EE67, 0x1EE6A, 0x1EE6C, 0x1EE72, 0x1EE74, 0x1EE77, 0x1EE79, 0x1EE7C, 0x1EE7E, undef, 0x1EE80, 0x1EE89, 0x1EE8B, 0x1EE9B, 0x1EEA1, 0x1EEA3, + 0x1EEA5, 0x1EEA9, 0x1EEAB, 0x1EEBB, 0x1F12A, 0x1F12E, 0x1F130, 0x1F14F, 0x1F16A, 0x1F16B, 0x1F190, undef, 0x1F200, 0x1F202, 0x1F210, 0x1F23B, + 0x1F240, 0x1F248, 0x1F250, 0x1F251, 0x2F800, 0x2F867, 0x2F869, 0x2F873, 0x2F875, 0x2F91E, 0x2F920, 0x2F95E, 0x2F960, 0x2F9BE, 0x2F9C0, 0x2FA1D, +); +sub IsMapped { return _mk_prop(@MAPPED); }; +sub MapMapped { my $l = shift; + $l =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZª\x{00B2}\x{00B3}µ\x{00B9}ºÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞĀĂĄĆĈĊČĎĐĒĔĖĘĚĜĞĠĢĤĦĨĪĬĮĴĶĹĻĽŁŃŅŇŊŌŎŐŒŔŖŘŚŜŞŠŢŤŦŨŪŬŮŰŲŴŶŸŹŻŽſƁƂƄƆƇƉƊƋƎƏƐƑƓƔƖƗƘƜƝƟƠƢƤƦƧƩƬƮƯƱƲƳƵƷƸƼǍǏǑǓǕǗǙǛǞǠǢǤǦǨǪǬǮǴǶǷǸǺǼǾȀȂȄȆȈȊȌȎȐȒȔȖȘȚȜȞȠȢȤȦȨȪȬȮȰȲȺȻȽȾɁɃɄɅɆɈɊɌɎʰʱʲʳʴʵʶʷʸˠˡˢˣˤ\x{0340}\x{0341}\x{0343}ͅͰͲʹͶͿΆ\x{0387}ΈΉΊΌΎΏΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩΪΫϏϐϑϒϓϔϕϖϘϚϜϞϠϢϤϦϨϪϬϮϰϱϲϴϵϷϹϺϽϾϿЀЁЂЃЄЅІЇЈЉЊЋЌЍЎЏАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯѠѢѤѦѨѪѬѮѰѲѴѶѸѺѼѾҀҊҌҎҐҒҔҖҘҚҜҞҠҢҤҦҨҪҬҮҰҲҴҶҸҺҼҾӁӃӅӇӉӋӍӐӒӔӖӘӚӜӞӠӢӤӦӨӪӬӮӰӲӴӶӸӺӼӾԀԂԄԆԈԊԌԎԐԒԔԖԘԚԜԞԠԢԤԦԨԪԬԮԱԲԳԴԵԶԷԸԹԺԻԼԽԾԿՀՁՂՃՄՅՆՇՈՉՊՋՌՍՎՏՐՑՒՓՔՕՖ\x{0F0C}ჇჍჼᏸᏹᏺᏻᏼᏽ\x{1C80}\x{1C81}\x{1C82}\x{1C83}\x{1C84}\x{1C85}\x{1C86}\x{1C87}\x{1C88}ᴬᴭᴮᴰᴱᴲᴳᴴᴵᴶᴷᴸᴹᴺᴼᴽᴾᴿᵀᵁᵂᵃᵄᵅᵆᵇᵈᵉᵊᵋᵌᵍᵏᵐᵑᵒᵓᵔᵕᵖᵗᵘᵙᵚᵛᵜᵝᵞᵟᵠᵡᵢᵣᵤᵥᵦᵧᵨᵩᵪᵸᶛᶜᶝᶞᶟᶠᶡᶢᶣᶤᶥᶦᶧᶨᶩᶪᶫᶬᶭᶮᶯᶰᶱᶲᶳᶴᶵᶶᶷᶸᶹᶺᶻᶼᶽᶾᶿḀḂḄḆḈḊḌḎḐḒḔḖḘḚḜḞḠḢḤḦḨḪḬḮḰḲḴḶḸḺḼḾṀṂṄṆṈṊṌṎṐṒṔṖṘṚṜṞṠṢṤṦṨṪṬṮṰṲṴṶṸṺṼṾẀẂẄẆẈẊẌẎẐẒẔẛẠẢẤẦẨẪẬẮẰẲẴẶẸẺẼẾỀỂỄỆỈỊỌỎỐỒỔỖỘỚỜỞỠỢỤỦỨỪỬỮỰỲỴỶỸỺỼỾἈἉἊἋἌἍἎἏἘἙἚἛἜἝἨἩἪἫἬἭἮἯἸἹἺἻἼἽἾἿὈὉὊὋὌὍὙὛὝὟὨὩὪὫὬὭὮὯάέήίόύώᾸᾹᾺΆιῈΈῊΉΐῘῙῚΊΰῨῩῪΎῬῸΌῺΏ\x{2011}\x{2070}ⁱ\x{2074}\x{2075}\x{2076}\x{2077}\x{2078}\x{2079}\x{207B}ⁿ\x{2080}\x{2081}\x{2082}\x{2083}\x{2084}\x{2085}\x{2086}\x{2087}\x{2088}\x{2089}\x{208B}ₐₑₒₓₔₕₖₗₘₙₚₛₜℂℇℊℋℌℍℎℏℐℑℒℓℕℙℚℛℜℝℤΩℨKÅℬℭℯℰℱℳℴℵℶℷℸℹℼℽℾℿ\x{2140}ⅅⅆⅇⅈⅉⅠⅤⅩⅬⅭⅮⅯⅰⅴⅹⅼⅽⅾⅿ\x{2329}\x{232A}\x{2460}\x{2461}\x{2462}\x{2463}\x{2464}\x{2465}\x{2466}\x{2467}\x{2468}ⒶⒷⒸⒹⒺⒻⒼⒽⒾⒿⓀⓁⓂⓃⓄⓅⓆⓇⓈⓉⓊⓋⓌⓍⓎⓏⓐⓑⓒⓓⓔⓕⓖⓗⓘⓙⓚⓛⓜⓝⓞⓟⓠⓡⓢⓣⓤⓥⓦⓧⓨⓩ\x{24EA}ⰀⰁⰂⰃⰄⰅⰆⰇⰈⰉⰊⰋⰌⰍⰎⰏⰐⰑⰒⰓⰔⰕⰖⰗⰘⰙⰚⰛⰜⰝⰞⰟⰠⰡⰢⰣⰤⰥⰦⰧⰨⰩⰪⰫⰬⰭⰮⱠⱢⱣⱤⱧⱩⱫⱭⱮⱯⱰⱲⱵⱼⱽⱾⱿⲀⲂⲄⲆⲈⲊⲌⲎⲐⲒⲔⲖⲘⲚⲜⲞⲠⲢⲤⲦⲨⲪⲬⲮⲰⲲⲴⲶⲸⲺⲼⲾⳀⳂⳄⳆⳈⳊⳌⳎⳐⳒⳔⳖⳘⳚⳜⳞⳠⳢⳫⳭⳲⵯ\x{2E9F}\x{2EF3}\x{2F00}\x{2F01}\x{2F02}\x{2F03}\x{2F04}\x{2F05}\x{2F06}\x{2F07}\x{2F08}\x{2F09}\x{2F0A}\x{2F0B}\x{2F0C}\x{2F0D}\x{2F0E}\x{2F0F}\x{2F10}\x{2F11}\x{2F12}\x{2F13}\x{2F14}\x{2F15}\x{2F16}\x{2F17}\x{2F18}\x{2F19}\x{2F1A}\x{2F1B}\x{2F1C}\x{2F1D}\x{2F1E}\x{2F1F}\x{2F20}\x{2F21}\x{2F22}\x{2F23}\x{2F24}\x{2F25}\x{2F26}\x{2F27}\x{2F28}\x{2F29}\x{2F2A}\x{2F2B}\x{2F2C}\x{2F2D}\x{2F2E}\x{2F2F}\x{2F30}\x{2F31}\x{2F32}\x{2F33}\x{2F34}\x{2F35}\x{2F36}\x{2F37}\x{2F38}\x{2F39}\x{2F3A}\x{2F3B}\x{2F3C}\x{2F3D}\x{2F3E}\x{2F3F}\x{2F40}\x{2F41}\x{2F42}\x{2F43}\x{2F44}\x{2F45}\x{2F46}\x{2F47}\x{2F48}\x{2F49}\x{2F4A}\x{2F4B}\x{2F4C}\x{2F4D}\x{2F4E}\x{2F4F}\x{2F50}\x{2F51}\x{2F52}\x{2F53}\x{2F54}\x{2F55}\x{2F56}\x{2F57}\x{2F58}\x{2F59}\x{2F5A}\x{2F5B}\x{2F5C}\x{2F5D}\x{2F5E}\x{2F5F}\x{2F60}\x{2F61}\x{2F62}\x{2F63}\x{2F64}\x{2F65}\x{2F66}\x{2F67}\x{2F68}\x{2F69}\x{2F6A}\x{2F6B}\x{2F6C}\x{2F6D}\x{2F6E}\x{2F6F}\x{2F70}\x{2F71}\x{2F72}\x{2F73}\x{2F74}\x{2F75}\x{2F76}\x{2F77}\x{2F78}\x{2F79}\x{2F7A}\x{2F7B}\x{2F7C}\x{2F7D}\x{2F7E}\x{2F7F}\x{2F80}\x{2F81}\x{2F82}\x{2F83}\x{2F84}\x{2F85}\x{2F86}\x{2F87}\x{2F88}\x{2F89}\x{2F8A}\x{2F8B}\x{2F8C}\x{2F8D}\x{2F8E}\x{2F8F}\x{2F90}\x{2F91}\x{2F92}\x{2F93}\x{2F94}\x{2F95}\x{2F96}\x{2F97}\x{2F98}\x{2F99}\x{2F9A}\x{2F9B}\x{2F9C}\x{2F9D}\x{2F9E}\x{2F9F}\x{2FA0}\x{2FA1}\x{2FA2}\x{2FA3}\x{2FA4}\x{2FA5}\x{2FA6}\x{2FA7}\x{2FA8}\x{2FA9}\x{2FAA}\x{2FAB}\x{2FAC}\x{2FAD}\x{2FAE}\x{2FAF}\x{2FB0}\x{2FB1}\x{2FB2}\x{2FB3}\x{2FB4}\x{2FB5}\x{2FB6}\x{2FB7}\x{2FB8}\x{2FB9}\x{2FBA}\x{2FBB}\x{2FBC}\x{2FBD}\x{2FBE}\x{2FBF}\x{2FC0}\x{2FC1}\x{2FC2}\x{2FC3}\x{2FC4}\x{2FC5}\x{2FC6}\x{2FC7}\x{2FC8}\x{2FC9}\x{2FCA}\x{2FCB}\x{2FCC}\x{2FCD}\x{2FCE}\x{2FCF}\x{2FD0}\x{2FD1}\x{2FD2}\x{2FD3}\x{2FD4}\x{2FD5}\x{3002}\x{3036}〸〹〺ㄱㄲㄳㄴㄵㄶㄷㄸㄹㄺㄻㄼㄽㄾㄿㅀㅁㅂㅃㅄㅅㅆㅇㅈㅉㅊㅋㅌㅍㅎㅏㅐㅑㅒㅓㅔㅕㅖㅗㅘㅙㅚㅛㅜㅝㅞㅟㅠㅡㅢㅣㅥㅦㅧㅨㅩㅪㅫㅬㅭㅮㅯㅰㅱㅲㅳㅴㅵㅶㅷㅸㅹㅺㅻㅼㅽㅾㅿㆀㆁㆂㆃㆄㆅㆆㆇㆈㆉㆊㆋㆌㆍㆎ\x{3192}\x{3193}\x{3194}\x{3195}\x{3196}\x{3197}\x{3198}\x{3199}\x{319A}\x{319B}\x{319C}\x{319D}\x{319E}\x{319F}\x{3244}\x{3245}\x{3246}\x{3247}\x{3260}\x{3261}\x{3262}\x{3263}\x{3264}\x{3265}\x{3266}\x{3267}\x{3268}\x{3269}\x{326A}\x{326B}\x{326C}\x{326D}\x{326E}\x{326F}\x{3270}\x{3271}\x{3272}\x{3273}\x{3274}\x{3275}\x{3276}\x{3277}\x{3278}\x{3279}\x{327A}\x{327B}\x{327E}\x{3280}\x{3281}\x{3282}\x{3283}\x{3284}\x{3285}\x{3286}\x{3287}\x{3288}\x{3289}\x{328A}\x{328B}\x{328C}\x{328D}\x{328E}\x{328F}\x{3290}\x{3291}\x{3292}\x{3293}\x{3294}\x{3295}\x{3296}\x{3297}\x{3298}\x{3299}\x{329A}\x{329B}\x{329C}\x{329D}\x{329E}\x{329F}\x{32A0}\x{32A1}\x{32A2}\x{32A3}\x{32A4}\x{32A5}\x{32A6}\x{32A7}\x{32A8}\x{32A9}\x{32AA}\x{32AB}\x{32AC}\x{32AD}\x{32AE}\x{32AF}\x{32B0}\x{32D0}\x{32D1}\x{32D2}\x{32D3}\x{32D4}\x{32D5}\x{32D6}\x{32D7}\x{32D8}\x{32D9}\x{32DA}\x{32DB}\x{32DC}\x{32DD}\x{32DE}\x{32DF}\x{32E0}\x{32E1}\x{32E2}\x{32E3}\x{32E4}\x{32E5}\x{32E6}\x{32E7}\x{32E8}\x{32E9}\x{32EA}\x{32EB}\x{32EC}\x{32ED}\x{32EE}\x{32EF}\x{32F0}\x{32F1}\x{32F2}\x{32F3}\x{32F4}\x{32F5}\x{32F6}\x{32F7}\x{32F8}\x{32F9}\x{32FA}\x{32FB}\x{32FC}\x{32FD}\x{32FE}ꙀꙂꙄꙆꙈꙊꙌꙎꙐꙒꙔꙖꙘꙚꙜꙞꙠꙢꙤꙦꙨꙪꙬꚀꚂꚄꚆꚈꚊꚌꚎꚐꚒꚔꚖꚘꚚꚜꚝꜢꜤꜦꜨꜪꜬꜮꜲꜴꜶꜸꜺꜼꜾꝀꝂꝄꝆꝈꝊꝌꝎꝐꝒꝔꝖꝘꝚꝜꝞꝠꝢꝤꝦꝨꝪꝬꝮꝰꝹꝻꝽꝾꞀꞂꞄꞆꞋꞍꞐꞒꞖꞘꞚꞜꞞꞠꞢꞤꞦꞨꞪꞫꞬꞭ\x{A7AE}ꞰꞱꞲꞳꞴꞶꟸꟹꭜꭝꭞꭟꭰꭱꭲꭳꭴꭵꭶꭷꭸꭹꭺꭻꭼꭽꭾꭿꮀꮁꮂꮃꮄꮅꮆꮇꮈꮉꮊꮋꮌꮍꮎꮏꮐꮑꮒꮓꮔꮕꮖꮗꮘꮙꮚꮛꮜꮝꮞꮟꮠꮡꮢꮣꮤꮥꮦꮧꮨꮩꮪꮫꮬꮭꮮꮯꮰꮱꮲꮳꮴꮵꮶꮷꮸꮹꮺꮻꮼꮽꮾꮿ豈更車賈滑串句龜龜契金喇奈懶癩羅蘿螺裸邏樂洛烙珞落酪駱亂卵欄爛蘭鸞嵐濫藍襤拉臘蠟廊朗浪狼郎來冷勞擄櫓爐盧老蘆虜路露魯鷺碌祿綠菉錄鹿論壟弄籠聾牢磊賂雷壘屢樓淚漏累縷陋勒肋凜凌稜綾菱陵讀拏樂諾丹寧怒率異北磻便復不泌數索參塞省葉說殺辰沈拾若掠略亮兩凉梁糧良諒量勵呂女廬旅濾礪閭驪麗黎力曆歷轢年憐戀撚漣煉璉秊練聯輦蓮連鍊列劣咽烈裂說廉念捻殮簾獵令囹寧嶺怜玲瑩羚聆鈴零靈領例禮醴隸惡了僚寮尿料樂燎療蓼遼龍暈阮劉杻柳流溜琉留硫紐類六戮陸倫崙淪輪律慄栗率隆利吏履易李梨泥理痢罹裏裡里離匿溺吝燐璘藺隣鱗麟林淋臨立笠粒狀炙識什茶刺切度拓糖宅洞暴輻行降見廓兀嗀塚晴凞猪益礼神祥福靖精羽蘒諸逸都飯飼館鶴郞隷侮僧免勉勤卑喝嘆器塀墨層屮悔慨憎懲敏既暑梅海渚漢煮爫琢碑社祉祈祐祖祝禍禎穀突節練縉繁署者臭艹艹著褐視謁謹賓贈辶逸難響頻恵𤋮舘並况全侀充冀勇勺喝啕喙嗢塚墳奄奔婢嬨廒廙彩徭惘慎愈憎慠懲戴揄搜摒敖晴朗望杖歹殺流滛滋漢瀞煮瞧爵犯猪瑱甆画瘝瘟益盛直睊着磌窱節类絛練缾者荒華蝹襁覆視調諸請謁諾諭謹變贈輸遲醙鉶陼難靖韛響頋頻鬒龜𢡊𢡄𣏕㮝䀘䀹𥉉𥳐𧻓齃龎ﬠﬡﬢﬣﬤﬥﬦﬧﬨﭐﭑﭒﭓﭔﭕﭖﭗﭘﭙﭚﭛﭜﭝﭞﭟﭠﭡﭢﭣﭤﭥﭦﭧﭨﭩﭪﭫﭬﭭﭮﭯﭰﭱﭲﭳﭴﭵﭶﭷﭸﭹﭺﭻﭼﭽﭾﭿﮀﮁﮂﮃﮄﮅﮆﮇﮈﮉﮊﮋﮌﮍﮎﮏﮐﮑﮒﮓﮔﮕﮖﮗﮘﮙﮚﮛﮜﮝﮞﮟﮠﮡﮢﮣﮤﮥﮦﮧﮨﮩﮪﮫﮬﮭﮮﮯﮰﮱﯓﯔﯕﯖﯗﯘﯙﯚﯛﯜﯞﯟﯠﯡﯢﯣﯤﯥﯦﯧﯨﯩﯼﯽﯾﯿ\x{FE11}\x{FE17}\x{FE18}\x{FE31}\x{FE32}\x{FE39}\x{FE3A}\x{FE3B}\x{FE3C}\x{FE3D}\x{FE3E}\x{FE3F}\x{FE40}\x{FE41}\x{FE42}\x{FE43}\x{FE44}\x{FE51}\x{FE58}\x{FE5D}\x{FE5E}\x{FE63}ﺀﺁﺂﺃﺄﺅﺆﺇﺈﺉﺊﺋﺌﺍﺎﺏﺐﺑﺒﺓﺔﺕﺖﺗﺘﺙﺚﺛﺜﺝﺞﺟﺠﺡﺢﺣﺤﺥﺦﺧﺨﺩﺪﺫﺬﺭﺮﺯﺰﺱﺲﺳﺴﺵﺶﺷﺸﺹﺺﺻﺼﺽﺾﺿﻀﻁﻂﻃﻄﻅﻆﻇﻈﻉﻊﻋﻌﻍﻎﻏﻐﻑﻒﻓﻔﻕﻖﻗﻘﻙﻚﻛﻜﻝﻞﻟﻠﻡﻢﻣﻤﻥﻦﻧﻨﻩﻪﻫﻬﻭﻮﻯﻰﻱﻲﻳﻴ\x{FF0D}\x{FF0E}０１２３４５６７８９ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ\x{FF5F}\x{FF60}\x{FF61}\x{FF62}\x{FF63}\x{FF64}\x{FF65}ｦｧｨｩｪｫｬｭｮｯｰｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝﾞﾟﾡﾢﾣﾤﾥﾦﾧﾨﾩﾪﾫﾬﾭﾮﾯﾰﾱﾲﾳﾴﾵﾶﾷﾸﾹﾺﾻﾼﾽﾾￂￃￄￅￆￇￊￋￌￍￎￏￒￓￔￕￖￗￚￛￜ\x{FFE0}\x{FFE1}\x{FFE2}\x{FFE4}\x{FFE5}\x{FFE6}\x{FFE8}\x{FFE9}\x{FFEA}\x{FFEB}\x{FFEC}\x{FFED}\x{FFEE}𐐀𐐁𐐂𐐃𐐄𐐅𐐆𐐇𐐈𐐉𐐊𐐋𐐌𐐍𐐎𐐏𐐐𐐑𐐒𐐓𐐔𐐕𐐖𐐗𐐘𐐙𐐚𐐛𐐜𐐝𐐞𐐟𐐠𐐡𐐢𐐣𐐤𐐥𐐦𐐧\x{104B0}\x{104B1}\x{104B2}\x{104B3}\x{104B4}\x{104B5}\x{104B6}\x{104B7}\x{104B8}\x{104B9}\x{104BA}\x{104BB}\x{104BC}\x{104BD}\x{104BE}\x{104BF}\x{104C0}\x{104C1}\x{104C2}\x{104C3}\x{104C4}\x{104C5}\x{104C6}\x{104C7}\x{104C8}\x{104C9}\x{104CA}\x{104CB}\x{104CC}\x{104CD}\x{104CE}\x{104CF}\x{104D0}\x{104D1}\x{104D2}\x{104D3}𐲀𐲁𐲂𐲃𐲄𐲅𐲆𐲇𐲈𐲉𐲊𐲋𐲌𐲍𐲎𐲏𐲐𐲑𐲒𐲓𐲔𐲕𐲖𐲗𐲘𐲙𐲚𐲛𐲜𐲝𐲞𐲟𐲠𐲡𐲢𐲣𐲤𐲥𐲦𐲧𐲨𐲩𐲪𐲫𐲬𐲭𐲮𐲯𐲰𐲱𐲲𑢠𑢡𑢢𑢣𑢤𑢥𑢦𑢧𑢨𑢩𑢪𑢫𑢬𑢭𑢮𑢯𑢰𑢱𑢲𑢳𑢴𑢵𑢶𑢷𑢸𑢹𑢺𑢻𑢼𑢽𑢾𑢿𝐀𝐁𝐂𝐃𝐄𝐅𝐆𝐇𝐈𝐉𝐊𝐋𝐌𝐍𝐎𝐏𝐐𝐑𝐒𝐓𝐔𝐕𝐖𝐗𝐘𝐙𝐚𝐛𝐜𝐝𝐞𝐟𝐠𝐡𝐢𝐣𝐤𝐥𝐦𝐧𝐨𝐩𝐪𝐫𝐬𝐭𝐮𝐯𝐰𝐱𝐲𝐳𝐴𝐵𝐶𝐷𝐸𝐹𝐺𝐻𝐼𝐽𝐾𝐿𝑀𝑁𝑂𝑃𝑄𝑅𝑆𝑇𝑈𝑉𝑊𝑋𝑌𝑍𝑎𝑏𝑐𝑑𝑒𝑓𝑔𝑖𝑗𝑘𝑙𝑚𝑛𝑜𝑝𝑞𝑟𝑠𝑡𝑢𝑣𝑤𝑥𝑦𝑧𝑨𝑩𝑪𝑫𝑬𝑭𝑮𝑯𝑰𝑱𝑲𝑳𝑴𝑵𝑶𝑷𝑸𝑹𝑺𝑻𝑼𝑽𝑾𝑿𝒀𝒁𝒂𝒃𝒄𝒅𝒆𝒇𝒈𝒉𝒊𝒋𝒌𝒍𝒎𝒏𝒐𝒑𝒒𝒓𝒔𝒕𝒖𝒗𝒘𝒙𝒚𝒛𝒜𝒞𝒟𝒢𝒥𝒦𝒩𝒪𝒫𝒬𝒮𝒯𝒰𝒱𝒲𝒳𝒴𝒵𝒶𝒷𝒸𝒹𝒻𝒽𝒾𝒿𝓀𝓁𝓂𝓃𝓅𝓆𝓇𝓈𝓉𝓊𝓋𝓌𝓍𝓎𝓏𝓐𝓑𝓒𝓓𝓔𝓕𝓖𝓗𝓘𝓙𝓚𝓛𝓜𝓝𝓞𝓟𝓠𝓡𝓢𝓣𝓤𝓥𝓦𝓧𝓨𝓩𝓪𝓫𝓬𝓭𝓮𝓯𝓰𝓱𝓲𝓳𝓴𝓵𝓶𝓷𝓸𝓹𝓺𝓻𝓼𝓽𝓾𝓿𝔀𝔁𝔂𝔃𝔄𝔅𝔇𝔈𝔉𝔊𝔍𝔎𝔏𝔐𝔑𝔒𝔓𝔔𝔖𝔗𝔘𝔙𝔚𝔛𝔜𝔞𝔟𝔠𝔡𝔢𝔣𝔤𝔥𝔦𝔧𝔨𝔩𝔪𝔫𝔬𝔭𝔮𝔯𝔰𝔱𝔲𝔳𝔴𝔵𝔶𝔷𝔸𝔹𝔻𝔼𝔽𝔾𝕀𝕁𝕂𝕃𝕄𝕆𝕊𝕋𝕌𝕍𝕎𝕏𝕐𝕒𝕓𝕔𝕕𝕖𝕗𝕘𝕙𝕚𝕛𝕜𝕝𝕞𝕟𝕠𝕡𝕢𝕣𝕤𝕥𝕦𝕧𝕨𝕩𝕪𝕫𝕬𝕭𝕮𝕯𝕰𝕱𝕲𝕳𝕴𝕵𝕶𝕷𝕸𝕹𝕺𝕻𝕼𝕽𝕾𝕿𝖀𝖁𝖂𝖃𝖄𝖅𝖆𝖇𝖈𝖉𝖊𝖋𝖌𝖍𝖎𝖏𝖐𝖑𝖒𝖓𝖔𝖕𝖖𝖗𝖘𝖙𝖚𝖛𝖜𝖝𝖞𝖟𝖠𝖡𝖢𝖣𝖤𝖥𝖦𝖧𝖨𝖩𝖪𝖫𝖬𝖭𝖮𝖯𝖰𝖱𝖲𝖳𝖴𝖵𝖶𝖷𝖸𝖹𝖺𝖻𝖼𝖽𝖾𝖿𝗀𝗁𝗂𝗃𝗄𝗅𝗆𝗇𝗈𝗉𝗊𝗋𝗌𝗍𝗎𝗏𝗐𝗑𝗒𝗓𝗔𝗕𝗖𝗗𝗘𝗙𝗚𝗛𝗜𝗝𝗞𝗟𝗠𝗡𝗢𝗣𝗤𝗥𝗦𝗧𝗨𝗩𝗪𝗫𝗬𝗭𝗮𝗯𝗰𝗱𝗲𝗳𝗴𝗵𝗶𝗷𝗸𝗹𝗺𝗻𝗼𝗽𝗾𝗿𝘀𝘁𝘂𝘃𝘄𝘅𝘆𝘇𝘈𝘉𝘊𝘋𝘌𝘍𝘎𝘏𝘐𝘑𝘒𝘓𝘔𝘕𝘖𝘗𝘘𝘙𝘚𝘛𝘜𝘝𝘞𝘟𝘠𝘡𝘢𝘣𝘤𝘥𝘦𝘧𝘨𝘩𝘪𝘫𝘬𝘭𝘮𝘯𝘰𝘱𝘲𝘳𝘴𝘵𝘶𝘷𝘸𝘹𝘺𝘻𝘼𝘽𝘾𝘿𝙀𝙁𝙂𝙃𝙄𝙅𝙆𝙇𝙈𝙉𝙊𝙋𝙌𝙍𝙎𝙏𝙐𝙑𝙒𝙓𝙔𝙕𝙖𝙗𝙘𝙙𝙚𝙛𝙜𝙝𝙞𝙟𝙠𝙡𝙢𝙣𝙤𝙥𝙦𝙧𝙨𝙩𝙪𝙫𝙬𝙭𝙮𝙯𝙰𝙱𝙲𝙳𝙴𝙵𝙶𝙷𝙸𝙹𝙺𝙻𝙼𝙽𝙾𝙿𝚀𝚁𝚂𝚃𝚄𝚅𝚆𝚇𝚈𝚉𝚊𝚋𝚌𝚍𝚎𝚏𝚐𝚑𝚒𝚓𝚔𝚕𝚖𝚗𝚘𝚙𝚚𝚛𝚜𝚝𝚞𝚟𝚠𝚡𝚢𝚣𝚤𝚥𝚨𝚩𝚪𝚫𝚬𝚭𝚮𝚯𝚰𝚱𝚲𝚳𝚴𝚵𝚶𝚷𝚸𝚹𝚺𝚻𝚼𝚽𝚾𝚿𝛀\x{1D6C1}𝛂𝛃𝛄𝛅𝛆𝛇𝛈𝛉𝛊𝛋𝛌𝛍𝛎𝛏𝛐𝛑𝛒𝛓𝛔𝛕𝛖𝛗𝛘𝛙𝛚\x{1D6DB}𝛜𝛝𝛞𝛟𝛠𝛡𝛢𝛣𝛤𝛥𝛦𝛧𝛨𝛩𝛪𝛫𝛬𝛭𝛮𝛯𝛰𝛱𝛲𝛳𝛴𝛵𝛶𝛷𝛸𝛹𝛺\x{1D6FB}𝛼𝛽𝛾𝛿𝜀𝜁𝜂𝜃𝜄𝜅𝜆𝜇𝜈𝜉𝜊𝜋𝜌𝜍𝜎𝜏𝜐𝜑𝜒𝜓𝜔\x{1D715}𝜖𝜗𝜘𝜙𝜚𝜛𝜜𝜝𝜞𝜟𝜠𝜡𝜢𝜣𝜤𝜥𝜦𝜧𝜨𝜩𝜪𝜫𝜬𝜭𝜮𝜯𝜰𝜱𝜲𝜳𝜴\x{1D735}𝜶𝜷𝜸𝜹𝜺𝜻𝜼𝜽𝜾𝜿𝝀𝝁𝝂𝝃𝝄𝝅𝝆𝝇𝝈𝝉𝝊𝝋𝝌𝝍𝝎\x{1D74F}𝝐𝝑𝝒𝝓𝝔𝝕𝝖𝝗𝝘𝝙𝝚𝝛𝝜𝝝𝝞𝝟𝝠𝝡𝝢𝝣𝝤𝝥𝝦𝝧𝝨𝝩𝝪𝝫𝝬𝝭𝝮\x{1D76F}𝝰𝝱𝝲𝝳𝝴𝝵𝝶𝝷𝝸𝝹𝝺𝝻𝝼𝝽𝝾𝝿𝞀𝞁𝞂𝞃𝞄𝞅𝞆𝞇𝞈\x{1D789}𝞊𝞋𝞌𝞍𝞎𝞏𝞐𝞑𝞒𝞓𝞔𝞕𝞖𝞗𝞘𝞙𝞚𝞛𝞜𝞝𝞞𝞟𝞠𝞡𝞢𝞣𝞤𝞥𝞦𝞧𝞨\x{1D7A9}𝞪𝞫𝞬𝞭𝞮𝞯𝞰𝞱𝞲𝞳𝞴𝞵𝞶𝞷𝞸𝞹𝞺𝞻𝞼𝞽𝞾𝞿𝟀𝟁𝟂\x{1D7C3}𝟄𝟅𝟆𝟇𝟈𝟉𝟊𝟋𝟎𝟏𝟐𝟑𝟒𝟓𝟔𝟕𝟖𝟗𝟘𝟙𝟚𝟛𝟜𝟝𝟞𝟟𝟠𝟡𝟢𝟣𝟤𝟥𝟦𝟧𝟨𝟩𝟪𝟫𝟬𝟭𝟮𝟯𝟰𝟱𝟲𝟳𝟴𝟵𝟶𝟷𝟸𝟹𝟺𝟻𝟼𝟽𝟾𝟿\x{1E900}\x{1E901}\x{1E902}\x{1E903}\x{1E904}\x{1E905}\x{1E906}\x{1E907}\x{1E908}\x{1E909}\x{1E90A}\x{1E90B}\x{1E90C}\x{1E90D}\x{1E90E}\x{1E90F}\x{1E910}\x{1E911}\x{1E912}\x{1E913}\x{1E914}\x{1E915}\x{1E916}\x{1E917}\x{1E918}\x{1E919}\x{1E91A}\x{1E91B}\x{1E91C}\x{1E91D}\x{1E91E}\x{1E91F}\x{1E920}\x{1E921}𞸀𞸁𞸂𞸃𞸅𞸆𞸇𞸈𞸉𞸊𞸋𞸌𞸍𞸎𞸏𞸐𞸑𞸒𞸓𞸔𞸕𞸖𞸗𞸘𞸙𞸚𞸛𞸜𞸝𞸞𞸟𞸡𞸢𞸤𞸧𞸩𞸪𞸫𞸬𞸭𞸮𞸯𞸰𞸱𞸲𞸴𞸵𞸶𞸷𞸹𞸻𞹂𞹇𞹉𞹋𞹍𞹎𞹏𞹑𞹒𞹔𞹗𞹙𞹛𞹝𞹟𞹡𞹢𞹤𞹧𞹨𞹩𞹪𞹬𞹭𞹮𞹯𞹰𞹱𞹲𞹴𞹵𞹶𞹷𞹹𞹺𞹻𞹼𞹾𞺀𞺁𞺂𞺃𞺄𞺅𞺆𞺇𞺈𞺉𞺋𞺌𞺍𞺎𞺏𞺐𞺑𞺒𞺓𞺔𞺕𞺖𞺗𞺘𞺙𞺚𞺛𞺡𞺢𞺣𞺥𞺦𞺧𞺨𞺩𞺫𞺬𞺭𞺮𞺯𞺰𞺱𞺲𞺳𞺴𞺵𞺶𞺷𞺸𞺹𞺺𞺻\x{1F12B}\x{1F12C}🄰🄱🄲🄳🄴🄵🄶🄷🄸🄹🄺🄻🄼🄽🄾🄿🅀🅁🅂🅃🅄🅅🅆🅇🅈🅉\x{1F202}\x{1F210}\x{1F211}\x{1F212}\x{1F213}\x{1F214}\x{1F215}\x{1F216}\x{1F217}\x{1F218}\x{1F219}\x{1F21A}\x{1F21B}\x{1F21C}\x{1F21D}\x{1F21E}\x{1F21F}\x{1F220}\x{1F221}\x{1F222}\x{1F223}\x{1F224}\x{1F225}\x{1F226}\x{1F227}\x{1F228}\x{1F229}\x{1F22A}\x{1F22B}\x{1F22C}\x{1F22D}\x{1F22E}\x{1F22F}\x{1F230}\x{1F231}\x{1F232}\x{1F233}\x{1F234}\x{1F235}\x{1F236}\x{1F237}\x{1F238}\x{1F239}\x{1F23A}\x{1F23B}\x{1F250}\x{1F251}丽丸乁𠄢你侮侻倂偺備僧像㒞𠘺免兔兤具𠔜㒹內再𠕋冗冤仌冬况𩇟凵刃㓟刻剆割剷㔕勇勉勤勺包匆北卉卑博即卽卿卿卿𠨬灰及叟𠭣叫叱吆咞吸呈周咢哶唐啓啣善善喙喫喳嗂圖嘆圗噑噴切壮城埴堍型堲報墬𡓤売壷夆多夢奢𡚨𡛪姬娛娧姘婦㛮嬈嬾嬾𡧈寃寘寧寳𡬘寿将尢㞁屠屮峀岍𡷤嵃𡷦嵮嵫嵼巡巢㠯巽帨帽幩㡢𢆃㡼庰庳庶廊𪎒廾𢌱𢌱舁弢弢㣇𣊸𦇚形彫㣣徚忍志忹悁㤺㤜悔𢛔惇慈慌慎慌慺憎憲憤憯懞懲懶成戛扝抱拔捐𢬌挽拼捨掃揤𢯱搢揅掩㨮摩摾撝摷㩬敏敬𣀊旣書晉㬙暑㬈㫤冒冕最暜肭䏙朗望朡杞杓𣏃㭉柺枅桒梅𣑭梎栟椔㮝楂榣槪檨𣚣櫛㰘次𣢧歔㱎歲殟殺殻𣪍𡴋𣫺汎𣲼沿泍汧洖派海流浩浸涅𣴞洴港湮㴳滋滇𣻑淹潮𣽞𣾎濆瀹瀞瀛㶖灊災灷炭𠔥煅𤉣熜爨爵牐𤘈犀犕𤜵𤠔獺王㺬玥㺸㺸瑇瑜瑱璅瓊㼛甤𤰶甾𤲒異𢆟瘐𤾡𤾸𥁄㿼䀈直𥃳𥃲𥄙𥄳眞真真睊䀹瞋䁆䂖𥐝硎碌磌䃣𥘦祖𥚚𥛅福秫䄯穀穊穏𥥼𥪧𥪧䈂𥮫篆築䈧𥲀糒䊠糨糣紀𥾆絣䌁緇縂繅䌴𦈨𦉇䍙𦋙罺𦌾羕翺者𦓚𦔣聠𦖨聰𣍟䏕育脃䐋脾媵𦞧𦞵𣎓𣎜舁舄辞䑫芑芋芝劳花芳芽苦𦬼若茝荣莭茣莽菧著荓菊菌菜𦰶𦵫𦳕䔫蓱蓳蔖𧏊蕤𦼬䕝䕡𦾱𧃒䕫虐虜虧虩蚩蚈蜎蛢蝹蜨蝫螆蟡蠁䗹衠衣𧙧裗裞䘵裺㒻𧢮𧥦䚾䛇誠諭變豕𧲨貫賁贛起𧼯𠠄跋趼跰𠣞軔輸𨗒𨗭邔郱鄑𨜮鄛鈸鋗鋘鉼鏹鐕𨯺開䦕閷𨵷䧦雃嶲霣𩅅𩈚䩮䩶韠𩐊䪲𩒖頋頋頩𩖶飢䬳餩馧駂駾䯎𩬰鬒鱀鳽䳎䳭鵧𪃎䳸𪄅𪈎𪊑麻䵖黹黾鼅鼏鼖鼻𪘀/abcdefghijklmnopqrstuvwxyza23μ1oàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþāăąćĉċčďđēĕėęěĝğġģĥħĩīĭįĵķĺļľłńņňŋōŏőœŕŗřśŝşšţťŧũūŭůűųŵŷÿźżžsɓƃƅɔƈɖɗƌǝəɛƒɠɣɩɨƙɯɲɵơƣƥʀƨʃƭʈưʊʋƴƶʒƹƽǎǐǒǔǖǘǚǜǟǡǣǥǧǩǫǭǯǵƕƿǹǻǽǿȁȃȅȇȉȋȍȏȑȓȕȗșțȝȟƞȣȥȧȩȫȭȯȱȳⱥȼƚⱦɂƀʉʌɇɉɋɍɏhɦjrɹɻʁwyɣlsxʕ\x{0300}\x{0301}\x{0313}ιͱͳʹͷϳά\x{00B7}έήίόύώαβγδεζηθικλμνξοπρστυφχψωϊϋϗβθυύϋφπϙϛϝϟϡϣϥϧϩϫϭϯκρσθεϸσϻͻͼͽѐёђѓєѕіїјљњћќѝўџабвгдежзийклмнопрстуфхцчшщъыьэюяѡѣѥѧѩѫѭѯѱѳѵѷѹѻѽѿҁҋҍҏґғҕҗҙқҝҟҡңҥҧҩҫҭүұҳҵҷҹһҽҿӂӄӆӈӊӌӎӑӓӕӗәӛӝӟӡӣӥӧөӫӭӯӱӳӵӷӹӻӽӿԁԃԅԇԉԋԍԏԑԓԕԗԙԛԝԟԡԣԥԧԩԫԭԯաբգդեզէըթժիլխծկհձղճմյնշոչպջռսվտրցւփքօֆ\x{0F0B}ⴧⴭნᏰᏱᏲᏳᏴᏵвдосттъѣꙋaæbdeǝghijklmnoȣprtuwaɐɑᴂbdeəɛɜgkmŋoɔᴖᴗptuᴝɯvᴥβγδφχiruvβγρφχнɒcɕðɜfɟɡɥɨɩɪᵻʝɭᶅʟɱɰɲɳɴɵɸʂʃƫʉʊᴜʋʌzʐʑʒθḁḃḅḇḉḋḍḏḑḓḕḗḙḛḝḟḡḣḥḧḩḫḭḯḱḳḵḷḹḻḽḿṁṃṅṇṉṋṍṏṑṓṕṗṙṛṝṟṡṣṥṧṩṫṭṯṱṳṵṷṹṻṽṿẁẃẅẇẉẋẍẏẑẓẕṡạảấầẩẫậắằẳẵặẹẻẽếềểễệỉịọỏốồổỗộớờởỡợụủứừửữựỳỵỷỹỻỽỿἀἁἂἃἄἅἆἇἐἑἒἓἔἕἠἡἢἣἤἥἦἧἰἱἲἳἴἵἶἷὀὁὂὃὄὅὑὓὕὗὠὡὢὣὤὥὦὧάέήίόύώᾰᾱὰάιὲέὴήΐῐῑὶίΰῠῡὺύῥὸόὼώ\x{2010}0i456789\x{2212}n0123456789\x{2212}aeoxəhklmnpstcɛghhhhħiillnpqrrrzωzkåbceefmoאבגדiπγγπ\x{2211}ddeijivxlcdmivxlcdm\x{3008}\x{3009}123456789abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz0ⰰⰱⰲⰳⰴⰵⰶⰷⰸⰹⰺⰻⰼⰽⰾⰿⱀⱁⱂⱃⱄⱅⱆⱇⱈⱉⱊⱋⱌⱍⱎⱏⱐⱑⱒⱓⱔⱕⱖⱗⱘⱙⱚⱛⱜⱝⱞⱡɫᵽɽⱨⱪⱬɑɱɐɒⱳⱶjvȿɀⲁⲃⲅⲇⲉⲋⲍⲏⲑⲓⲕⲗⲙⲛⲝⲟⲡⲣⲥⲧⲩⲫⲭⲯⲱⲳⲵⲷⲹⲻⲽⲿⳁⳃⳅⳇⳉⳋⳍⳏⳑⳓⳕⳗⳙⳛⳝⳟⳡⳣⳬⳮⳳⵡ母龟一丨丶丿乙亅二亠人儿入八冂冖冫几凵刀力勹匕匚匸十卜卩厂厶又口囗土士夂夊夕大女子宀寸小尢尸屮山巛工己巾干幺广廴廾弋弓彐彡彳心戈戶手支攴文斗斤方无日曰月木欠止歹殳毋比毛氏气水火爪父爻爿片牙牛犬玄玉瓜瓦甘生用田疋疒癶白皮皿目矛矢石示禸禾穴立竹米糸缶网羊羽老而耒耳聿肉臣自至臼舌舛舟艮色艸虍虫血行衣襾見角言谷豆豕豸貝赤走足身車辛辰辵邑酉釆里金長門阜隶隹雨靑非面革韋韭音頁風飛食首香馬骨高髟鬥鬯鬲鬼魚鳥鹵鹿麥麻黃黍黑黹黽鼎鼓鼠鼻齊齒龍龜龠\.\x{3012}十卄卅ᄀᄁᆪᄂᆬᆭᄃᄄᄅᆰᆱᆲᆳᆴᆵᄚᄆᄇᄈᄡᄉᄊᄋᄌᄍᄎᄏᄐᄑ하ᅢᅣᅤᅥᅦᅧᅨᅩᅪᅫᅬᅭᅮᅯᅰᅱᅲᅳᅴᅵᄔᄕᇇᇈᇌᇎᇓᇗᇙᄜᇝᇟᄝᄞᄠᄢᄣᄧᄩᄫᄬᄭᄮᄯᄲᄶᅀᅇᅌᇱᇲᅗᅘᅙᆄᆅᆈᆑᆒᆔᆞᆡ一二三四上中下甲乙丙丁天地人問幼文箏ᄀᄂᄃᄅᄆᄇᄉᄋᄌᄎᄏᄐᄑᄒ가나다라마바사아자차카타파하우一二三四五六七八九十月火水木金土日株有社名特財祝労秘男女適優印注項休写正上中下左右医宗学監企資協夜アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヰヱヲꙁꙃꙅꙇꙉꙋꙍꙏꙑꙓꙕꙗꙙꙛꙝꙟꙡꙣꙥꙧꙩꙫꙭꚁꚃꚅꚇꚉꚋꚍꚏꚑꚓꚕꚗꚙꚛъьꜣꜥꜧꜩꜫꜭꜯꜳꜵꜷꜹꜻꜽꜿꝁꝃꝅꝇꝉꝋꝍꝏꝑꝓꝕꝗꝙꝛꝝꝟꝡꝣꝥꝧꝩꝫꝭꝯꝯꝺꝼᵹꝿꞁꞃꞅꞇꞌɥꞑꞓꞗꞙꞛꞝꞟꞡꞣꞥꞧꞩɦɜɡɬɪʞʇʝꭓꞵꞷħœꜧꬷɫꭒᎠᎡᎢᎣᎤᎥᎦᎧᎨᎩᎪᎫᎬᎭᎮᎯᎰᎱᎲᎳᎴᎵᎶᎷᎸᎹᎺᎻᎼᎽᎾᎿᏀᏁᏂᏃᏄᏅᏆᏇᏈᏉᏊᏋᏌᏍᏎᏏᏐᏑᏒᏓᏔᏕᏖᏗᏘᏙᏚᏛᏜᏝᏞᏟᏠᏡᏢᏣᏤᏥᏦᏧᏨᏩᏪᏫᏬᏭᏮᏯ豈更車賈滑串句龜龜契金喇奈懶癩羅蘿螺裸邏樂洛烙珞落酪駱亂卵欄爛蘭鸞嵐濫藍襤拉臘蠟廊朗浪狼郎來冷勞擄櫓爐盧老蘆虜路露魯鷺碌祿綠菉錄鹿論壟弄籠聾牢磊賂雷壘屢樓淚漏累縷陋勒肋凜凌稜綾菱陵讀拏樂諾丹寧怒率異北磻便復不泌數索參塞省葉說殺辰沈拾若掠略亮兩凉梁糧良諒量勵呂女廬旅濾礪閭驪麗黎力曆歷轢年憐戀撚漣煉璉秊練聯輦蓮連鍊列劣咽烈裂說廉念捻殮簾獵令囹寧嶺怜玲瑩羚聆鈴零靈領例禮醴隸惡了僚寮尿料樂燎療蓼遼龍暈阮劉杻柳流溜琉留硫紐類六戮陸倫崙淪輪律慄栗率隆利吏履易李梨泥理痢罹裏裡里離匿溺吝燐璘藺隣鱗麟林淋臨立笠粒狀炙識什茶刺切度拓糖宅洞暴輻行降見廓兀嗀塚晴凞猪益礼神祥福靖精羽蘒諸逸都飯飼館鶴郞隷侮僧免勉勤卑喝嘆器塀墨層屮悔慨憎懲敏既暑梅海渚漢煮爫琢碑社祉祈祐祖祝禍禎穀突節練縉繁署者臭艹艹著褐視謁謹賓贈辶逸難響頻恵𤋮舘並况全侀充冀勇勺喝啕喙嗢塚墳奄奔婢嬨廒廙彩徭惘慎愈憎慠懲戴揄搜摒敖晴朗望杖歹殺流滛滋漢瀞煮瞧爵犯猪瑱甆画瘝瘟益盛直睊着磌窱節类絛練缾者荒華蝹襁覆視調諸請謁諾諭謹變贈輸遲醙鉶陼難靖韛響頋頻鬒龜𢡊𢡄𣏕㮝䀘䀹𥉉𥳐𧻓齃龎עאדהכלםרתٱٱٻٻٻٻپپپپڀڀڀڀٺٺٺٺٿٿٿٿٹٹٹٹڤڤڤڤڦڦڦڦڄڄڄڄڃڃڃڃچچچچڇڇڇڇڍڍڌڌڎڎڈڈژژڑڑککککگگگگڳڳڳڳڱڱڱڱںںڻڻڻڻۀۀہہہہھھھھےےۓۓڭڭڭڭۇۇۆۆۈۈۋۋۅۅۉۉېېېېىىیییی\x{3001}\x{3016}\x{3017}\x{2014}\x{2013}\x{3014}\x{3015}\x{3010}\x{3011}\x{300A}\x{300B}\x{3008}\x{3009}\x{300C}\x{300D}\x{300E}\x{300F}\x{3001}\x{2014}\x{3014}\x{3015}\-ءآآأأؤؤإإئئئئااببببةةتتتتثثثثججججححححخخخخددذذررززسسسسششششصصصصضضضضططططظظظظععععغغغغففففققققككككللللممممننننههههووىىيييي\-\.0123456789abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz\x{2985}\x{2986}\.\x{300C}\x{300D}\x{3001}\x{30FB}ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン\x{3099}\x{309A}ᄀᄁᆪᄂᆬᆭᄃᄄᄅᆰᆱᆲᆳᆴᆵᄚᄆᄇᄈᄡᄉᄊᄋᄌᄍᄎᄏᄐᄑ하ᅢᅣᅤᅥᅦᅧᅨᅩᅪᅫᅬᅭᅮᅯᅰᅱᅲᅳᅴᅵ\x{00A2}\x{00A3}\x{00AC}\x{00A6}\x{00A5}\x{20A9}\x{2502}\x{2190}\x{2191}\x{2192}\x{2193}\x{25A0}\x{25CB}𐐨𐐩𐐪𐐫𐐬𐐭𐐮𐐯𐐰𐐱𐐲𐐳𐐴𐐵𐐶𐐷𐐸𐐹𐐺𐐻𐐼𐐽𐐾𐐿𐑀𐑁𐑂𐑃𐑄𐑅𐑆𐑇𐑈𐑉𐑊𐑋𐑌𐑍𐑎𐑏\x{104D8}\x{104D9}\x{104DA}\x{104DB}\x{104DC}\x{104DD}\x{104DE}\x{104DF}\x{104E0}\x{104E1}\x{104E2}\x{104E3}\x{104E4}\x{104E5}\x{104E6}\x{104E7}\x{104E8}\x{104E9}\x{104EA}\x{104EB}\x{104EC}\x{104ED}\x{104EE}\x{104EF}\x{104F0}\x{104F1}\x{104F2}\x{104F3}\x{104F4}\x{104F5}\x{104F6}\x{104F7}\x{104F8}\x{104F9}\x{104FA}\x{104FB}𐳀𐳁𐳂𐳃𐳄𐳅𐳆𐳇𐳈𐳉𐳊𐳋𐳌𐳍𐳎𐳏𐳐𐳑𐳒𐳓𐳔𐳕𐳖𐳗𐳘𐳙𐳚𐳛𐳜𐳝𐳞𐳟𐳠𐳡𐳢𐳣𐳤𐳥𐳦𐳧𐳨𐳩𐳪𐳫𐳬𐳭𐳮𐳯𐳰𐳱𐳲𑣀𑣁𑣂𑣃𑣄𑣅𑣆𑣇𑣈𑣉𑣊𑣋𑣌𑣍𑣎𑣏𑣐𑣑𑣒𑣓𑣔𑣕𑣖𑣗𑣘𑣙𑣚𑣛𑣜𑣝𑣞𑣟abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefgijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzacdgjknopqstuvwxyzabcdfhijklmnpqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabdefgjklmnopqstuvwxyabcdefghijklmnopqrstuvwxyzabdefgijklmostuvwxyabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzıȷαβγδεζηθικλμνξοπρθστυφχψω\x{2207}αβγδεζηθικλμνξοπρσστυφχψω\x{2202}εθκφρπαβγδεζηθικλμνξοπρθστυφχψω\x{2207}αβγδεζηθικλμνξοπρσστυφχψω\x{2202}εθκφρπαβγδεζηθικλμνξοπρθστυφχψω\x{2207}αβγδεζηθικλμνξοπρσστυφχψω\x{2202}εθκφρπαβγδεζηθικλμνξοπρθστυφχψω\x{2207}αβγδεζηθικλμνξοπρσστυφχψω\x{2202}εθκφρπαβγδεζηθικλμνξοπρθστυφχψω\x{2207}αβγδεζηθικλμνξοπρσστυφχψω\x{2202}εθκφρπϝϝ01234567890123456789012345678901234567890123456789\x{1E922}\x{1E923}\x{1E924}\x{1E925}\x{1E926}\x{1E927}\x{1E928}\x{1E929}\x{1E92A}\x{1E92B}\x{1E92C}\x{1E92D}\x{1E92E}\x{1E92F}\x{1E930}\x{1E931}\x{1E932}\x{1E933}\x{1E934}\x{1E935}\x{1E936}\x{1E937}\x{1E938}\x{1E939}\x{1E93A}\x{1E93B}\x{1E93C}\x{1E93D}\x{1E93E}\x{1E93F}\x{1E940}\x{1E941}\x{1E942}\x{1E943}ابجدوزحطيكلمنسعفصقرشتثخذضظغٮںڡٯبجهحيكلمنسعفصقشتثخضغجحيلنسعصقشخضغںٯبجهحطيكمنسعفصقشتثخضظغٮڡابجدهوزحطيلمنسعفصقرشتثخذضظغبجدوزحطيلمنسعفصقرشتثخذضظغcrabcdefghijklmnopqrstuvwxyzサ手字双デ二多解天交映無料前後再新初終生販声吹演投捕一三遊左中右指走打禁空合満有月申割営配得可丽丸乁𠄢你侮侻倂偺備僧像㒞𠘺免兔兤具𠔜㒹內再𠕋冗冤仌冬况𩇟凵刃㓟刻剆割剷㔕勇勉勤勺包匆北卉卑博即卽卿卿卿𠨬灰及叟𠭣叫叱吆咞吸呈周咢哶唐啓啣善善喙喫喳嗂圖嘆圗噑噴切壮城埴堍型堲報墬𡓤売壷夆多夢奢𡚨𡛪姬娛娧姘婦㛮嬈嬾嬾𡧈寃寘寧寳𡬘寿将尢㞁屠屮峀岍𡷤嵃𡷦嵮嵫嵼巡巢㠯巽帨帽幩㡢𢆃㡼庰庳庶廊𪎒廾𢌱𢌱舁弢弢㣇𣊸𦇚形彫㣣徚忍志忹悁㤺㤜悔𢛔惇慈慌慎慌慺憎憲憤憯懞懲懶成戛扝抱拔捐𢬌挽拼捨掃揤𢯱搢揅掩㨮摩摾撝摷㩬敏敬𣀊旣書晉㬙暑㬈㫤冒冕最暜肭䏙朗望朡杞杓𣏃㭉柺枅桒梅𣑭梎栟椔㮝楂榣槪檨𣚣櫛㰘次𣢧歔㱎歲殟殺殻𣪍𡴋𣫺汎𣲼沿泍汧洖派海流浩浸涅𣴞洴港湮㴳滋滇𣻑淹潮𣽞𣾎濆瀹瀞瀛㶖灊災灷炭𠔥煅𤉣熜爨爵牐𤘈犀犕𤜵𤠔獺王㺬玥㺸㺸瑇瑜瑱璅瓊㼛甤𤰶甾𤲒異𢆟瘐𤾡𤾸𥁄㿼䀈直𥃳𥃲𥄙𥄳眞真真睊䀹瞋䁆䂖𥐝硎碌磌䃣𥘦祖𥚚𥛅福秫䄯穀穊穏𥥼𥪧𥪧䈂𥮫篆築䈧𥲀糒䊠糨糣紀𥾆絣䌁緇縂繅䌴𦈨𦉇䍙𦋙罺𦌾羕翺者𦓚𦔣聠𦖨聰𣍟䏕育脃䐋脾媵𦞧𦞵𣎓𣎜舁舄辞䑫芑芋芝劳花芳芽苦𦬼若茝荣莭茣莽菧著荓菊菌菜𦰶𦵫𦳕䔫蓱蓳蔖𧏊蕤𦼬䕝䕡𦾱𧃒䕫虐虜虧虩蚩蚈蜎蛢蝹蜨蝫螆蟡蠁䗹衠衣𧙧裗裞䘵裺㒻𧢮𧥦䚾䛇誠諭變豕𧲨貫賁贛起𧼯𠠄跋趼跰𠣞軔輸𨗒𨗭邔郱鄑𨜮鄛鈸鋗鋘鉼鏹鐕𨯺開䦕閷𨵷䧦雃嶲霣𩅅𩈚䩮䩶韠𩐊䪲𩒖頋頋頩𩖶飢䬳餩馧駂駾䯎𩬰鬒鱀鳽䳎䳭鵧𪃎䳸𪄅𪈎𪊑麻䵖黹黾鼅鼏鼖鼻𪘀/; + $l =~ s/([\x{00BC}\x{00BD}\x{00BE}İIJijĿŀʼnDŽDždžLJLjljNJNjnjDZDzdz\x{0344}ևٵٶٷٸक़ख़ग़ज़ड़ढ़फ़य़ড়ঢ়য়ਲ਼ਸ਼ਖ਼ਗ਼ਜ਼ਫ਼ଡ଼ଢ଼ำຳໜໝགྷཌྷདྷབྷཛྷཀྵཱཱིུྲྀཷླྀཹཱྀྒྷྜྷྡྷྦྷྫྷྐྵẚẞᾀᾁᾂᾃᾄᾅᾆᾇᾈᾉᾊᾋᾌᾍᾎᾏᾐᾑᾒᾓᾔᾕᾖᾗᾘᾙᾚᾛᾜᾝᾞᾟᾠᾡᾢᾣᾤᾥᾦᾧᾨᾩᾪᾫᾬᾭᾮᾯᾲᾳᾴᾷᾼῂῃῄῇῌῲῳῴῷῼ\x{2033}\x{2034}\x{2036}\x{2037}\x{2057}\x{20A8}\x{2103}\x{2109}\x{2116}\x{2120}\x{2121}\x{2122}\x{213B}\x{2150}\x{2151}\x{2152}\x{2153}\x{2154}\x{2155}\x{2156}\x{2157}\x{2158}\x{2159}\x{215A}\x{215B}\x{215C}\x{215D}\x{215E}\x{215F}ⅡⅢⅣⅥⅦⅧⅨⅪⅫⅱⅲⅳⅵⅶⅷⅸⅺⅻ\x{2189}\x{222C}\x{222D}\x{222F}\x{2230}\x{2469}\x{246A}\x{246B}\x{246C}\x{246D}\x{246E}\x{246F}\x{2470}\x{2471}\x{2472}\x{2473}\x{2A0C}\x{2ADC}ゟヿ\x{3250}\x{3251}\x{3252}\x{3253}\x{3254}\x{3255}\x{3256}\x{3257}\x{3258}\x{3259}\x{325A}\x{325B}\x{325C}\x{325D}\x{325E}\x{325F}\x{327C}\x{327D}\x{32B1}\x{32B2}\x{32B3}\x{32B4}\x{32B5}\x{32B6}\x{32B7}\x{32B8}\x{32B9}\x{32BA}\x{32BB}\x{32BC}\x{32BD}\x{32BE}\x{32BF}\x{32C0}\x{32C1}\x{32C2}\x{32C3}\x{32C4}\x{32C5}\x{32C6}\x{32C7}\x{32C8}\x{32C9}\x{32CA}\x{32CB}\x{32CC}\x{32CD}\x{32CE}\x{32CF}\x{3300}\x{3301}\x{3302}\x{3303}\x{3304}\x{3305}\x{3306}\x{3307}\x{3308}\x{3309}\x{330A}\x{330B}\x{330C}\x{330D}\x{330E}\x{330F}\x{3310}\x{3311}\x{3312}\x{3313}\x{3314}\x{3315}\x{3316}\x{3317}\x{3318}\x{3319}\x{331A}\x{331B}\x{331C}\x{331D}\x{331E}\x{331F}\x{3320}\x{3321}\x{3322}\x{3323}\x{3324}\x{3325}\x{3326}\x{3327}\x{3328}\x{3329}\x{332A}\x{332B}\x{332C}\x{332D}\x{332E}\x{332F}\x{3330}\x{3331}\x{3332}\x{3333}\x{3334}\x{3335}\x{3336}\x{3337}\x{3338}\x{3339}\x{333A}\x{333B}\x{333C}\x{333D}\x{333E}\x{333F}\x{3340}\x{3341}\x{3342}\x{3343}\x{3344}\x{3345}\x{3346}\x{3347}\x{3348}\x{3349}\x{334A}\x{334B}\x{334C}\x{334D}\x{334E}\x{334F}\x{3350}\x{3351}\x{3352}\x{3353}\x{3354}\x{3355}\x{3356}\x{3357}\x{3358}\x{3359}\x{335A}\x{335B}\x{335C}\x{335D}\x{335E}\x{335F}\x{3360}\x{3361}\x{3362}\x{3363}\x{3364}\x{3365}\x{3366}\x{3367}\x{3368}\x{3369}\x{336A}\x{336B}\x{336C}\x{336D}\x{336E}\x{336F}\x{3370}\x{3371}\x{3372}\x{3373}\x{3374}\x{3375}\x{3376}\x{3377}\x{3378}\x{3379}\x{337A}\x{337B}\x{337C}\x{337D}\x{337E}\x{337F}\x{3380}\x{3381}\x{3382}\x{3383}\x{3384}\x{3385}\x{3386}\x{3387}\x{3388}\x{3389}\x{338A}\x{338B}\x{338C}\x{338D}\x{338E}\x{338F}\x{3390}\x{3391}\x{3392}\x{3393}\x{3394}\x{3395}\x{3396}\x{3397}\x{3398}\x{3399}\x{339A}\x{339B}\x{339C}\x{339D}\x{339E}\x{339F}\x{33A0}\x{33A1}\x{33A2}\x{33A3}\x{33A4}\x{33A5}\x{33A6}\x{33A7}\x{33A8}\x{33A9}\x{33AA}\x{33AB}\x{33AC}\x{33AD}\x{33AE}\x{33AF}\x{33B0}\x{33B1}\x{33B2}\x{33B3}\x{33B4}\x{33B5}\x{33B6}\x{33B7}\x{33B8}\x{33B9}\x{33BA}\x{33BB}\x{33BC}\x{33BD}\x{33BE}\x{33BF}\x{33C0}\x{33C1}\x{33C3}\x{33C4}\x{33C5}\x{33C6}\x{33C8}\x{33C9}\x{33CA}\x{33CB}\x{33CC}\x{33CD}\x{33CE}\x{33CF}\x{33D0}\x{33D1}\x{33D2}\x{33D3}\x{33D4}\x{33D5}\x{33D6}\x{33D7}\x{33D9}\x{33DA}\x{33DB}\x{33DC}\x{33DD}\x{33DE}\x{33DF}\x{33E0}\x{33E1}\x{33E2}\x{33E3}\x{33E4}\x{33E5}\x{33E6}\x{33E7}\x{33E8}\x{33E9}\x{33EA}\x{33EB}\x{33EC}\x{33ED}\x{33EE}\x{33EF}\x{33F0}\x{33F1}\x{33F2}\x{33F3}\x{33F4}\x{33F5}\x{33F6}\x{33F7}\x{33F8}\x{33F9}\x{33FA}\x{33FB}\x{33FC}\x{33FD}\x{33FE}\x{33FF}fffiflffifflſtstﬓﬔﬕﬖﬗיִײַשׁשׂשּׁשּׂאַאָאּבּגּדּהּוּזּטּיּךּכּלּמּנּסּףּפּצּקּרּשּתּוֹבֿכֿפֿﭏﯝﯪﯫﯬﯭﯮﯯﯰﯱﯲﯳﯴﯵﯶﯷﯸﯹﯺﯻﰀﰁﰂﰃﰄﰅﰆﰇﰈﰉﰊﰋﰌﰍﰎﰏﰐﰑﰒﰓﰔﰕﰖﰗﰘﰙﰚﰛﰜﰝﰞﰟﰠﰡﰢﰣﰤﰥﰦﰧﰨﰩﰪﰫﰬﰭﰮﰯﰰﰱﰲﰳﰴﰵﰶﰷﰸﰹﰺﰻﰼﰽﰾﰿﱀﱁﱂﱃﱄﱅﱆﱇﱈﱉﱊﱋﱌﱍﱎﱏﱐﱑﱒﱓﱔﱕﱖﱗﱘﱙﱚﱛﱜﱝﱤﱥﱦﱧﱨﱩﱪﱫﱬﱭﱮﱯﱰﱱﱲﱳﱴﱵﱶﱷﱸﱹﱺﱻﱼﱽﱾﱿﲀﲁﲂﲃﲄﲅﲆﲇﲈﲉﲊﲋﲌﲍﲎﲏﲐﲑﲒﲓﲔﲕﲖﲗﲘﲙﲚﲛﲜﲝﲞﲟﲠﲡﲢﲣﲤﲥﲦﲧﲨﲩﲪﲫﲬﲭﲮﲯﲰﲱﲲﲳﲴﲵﲶﲷﲸﲹﲺﲻﲼﲽﲾﲿﳀﳁﳂﳃﳄﳅﳆﳇﳈﳉﳊﳋﳌﳍﳎﳏﳐﳑﳒﳓﳔﳕﳖﳗﳘﳙﳚﳛﳜﳝﳞﳟﳠﳡﳢﳣﳤﳥﳦﳧﳨﳩﳪﳫﳬﳭﳮﳯﳰﳱﳲﳳﳴﳵﳶﳷﳸﳹﳺﳻﳼﳽﳾﳿﴀﴁﴂﴃﴄﴅﴆﴇﴈﴉﴊﴋﴌﴍﴎﴏﴐﴑﴒﴓﴔﴕﴖﴗﴘﴙﴚﴛﴜﴝﴞﴟﴠﴡﴢﴣﴤﴥﴦﴧﴨﴩﴪﴫﴬﴭﴮﴯﴰﴱﴲﴳﴴﴵﴶﴷﴸﴹﴺﴻﴼﴽﵐﵑﵒﵓﵔﵕﵖﵗﵘﵙﵚﵛﵜﵝﵞﵟﵠﵡﵢﵣﵤﵥﵦﵧﵨﵩﵪﵫﵬﵭﵮﵯﵰﵱﵲﵳﵴﵵﵶﵷﵸﵹﵺﵻﵼﵽﵾﵿﶀﶁﶂﶃﶄﶅﶆﶇﶈﶉﶊﶋﶌﶍﶎﶏﶒﶓﶔﶕﶖﶗﶘﶙﶚﶛﶜﶝﶞﶟﶠﶡﶢﶣﶤﶥﶦﶧﶨﶩﶪﶫﶬﶭﶮﶯﶰﶱﶲﶳﶴﶵﶶﶷﶸﶹﶺﶻﶼﶽﶾﶿﷀﷁﷂﷃﷄﷅﷆﷇﷰﷱﷲﷳﷴﷵﷶﷷﷸﷹ\x{FDFC}ﹱﹷﹹﹻﹽﹿﻵﻶﻷﻸﻹﻺﻻﻼ\x{1D15E}\x{1D15F}\x{1D160}\x{1D161}\x{1D162}\x{1D163}\x{1D164}\x{1D1BB}\x{1D1BC}\x{1D1BD}\x{1D1BE}\x{1D1BF}\x{1D1C0}\x{1F12A}\x{1F12D}\x{1F12E}\x{1F14A}\x{1F14B}\x{1F14C}\x{1F14D}\x{1F14E}\x{1F14F}\x{1F16A}\x{1F16B}\x{1F190}\x{1F200}\x{1F201}\x{1F240}\x{1F241}\x{1F242}\x{1F243}\x{1F244}\x{1F245}\x{1F246}\x{1F247}\x{1F248}])/$MAPPED{ord($1)}/eg; + return $l; +}; +__END__ + +=encoding utf8 + +=head1 NAME + +Net::IDN::UTS46::_Mapping - Tables from Unicode Technical Standard #46 (S) + +=head1 DESCRIPTION + +This module contains tables and private functions used by L. +The interface may change without further notice. + +=head1 AUTHOR + +Claus FErber + +=head1 LICENSE + +Copyright 2011-2014 Claus FErber. + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself. + +=head1 SEE ALSO + + diff --git a/t/00use.t b/t/00use.t new file mode 100644 index 0000000..b6b5eff --- /dev/null +++ b/t/00use.t @@ -0,0 +1,12 @@ +use strict; +use Test::More tests => 1 + 5; +use Test::NoWarnings; + +use_ok 'Net::IDN::Encode'; +use_ok 'Net::IDN::Punycode'; +use_ok 'Net::IDN::Punycode::PP'; + +use_ok 'Net::IDN::UTS46'; +use_ok 'Net::IDN::UTS46::_Mapping'; + +exit(0); diff --git a/t/domain_to_ascii.t b/t/domain_to_ascii.t new file mode 100755 index 0000000..90a025f --- /dev/null +++ b/t/domain_to_ascii.t @@ -0,0 +1,27 @@ +use utf8; +use strict; + +BEGIN { binmode STDOUT, ':utf8'; binmode STDERR, ':utf8'; } + +use Net::IDN::Encode qw(:all); + +use Test::More tests => 1 + 12; +use Test::NoWarnings; + +use Net::IDN::Encode qw(:all); + +is(eval{domain_to_ascii('müller')} || $@, 'xn--mller-kva', 'single label (to_ascii)'); +is(eval{domain_to_ascii('XN--MLLER-KVA')} || $@, 'XN--MLLER-KVA', 'single uppercase label (to_ascii)'); + +is(eval{domain_to_ascii('www.jürg.xn--mller-kva.com', )} || $@, 'www.xn--jrg-hoa.xn--mller-kva.com', 'mixed utf8/ace/ascii'); +is(eval{domain_to_ascii('www.a.b。c．d｡com', )} || $@, 'www.a.b.c.d.com', 'mixed dots'); + +is(eval{domain_to_ascii('www.ä ö ü ß.example', 'UseSTD3ASCIIRules' => 0)}, 'www.xn-- -7kav3ivb.example', 'blank (without STD3 rules) (to_unicode)') or diag $@; +is(eval{domain_to_ascii('www.ä ö ü ß.example', 'UseSTD3ASCIIRules' => 1)}, undef, 'blank (with STD3 rules) (to_unicode)') or diag $@; +is(eval{domain_to_ascii('www.xn-- -7kav3ivb.example', 'UseSTD3ASCIIRules' => 0)}, 'www.xn-- -7kav3ivb.example', 'blank (without STD3 rules) (to_unicode pass-through)') or diag $@; +is(eval{domain_to_ascii('www.xn-- -7kav3ivb.example', 'UseSTD3ASCIIRules' => 1)}, 'www.xn-- -7kav3ivb.example', 'blank (with STD3 rules) (to_unicode pass-through)') or diag $@; + +is(eval{domain_to_ascii("I.\x{2665}.Perl.invalid")}, 'I.xn--g6h.Perl.invalid', 'mixed case'); +is(eval{domain_to_ascii("I.xn--g6h.Perl.invalid")}, 'I.xn--g6h.Perl.invalid', 'mixed case'); +is(eval{domain_to_ascii('www.xn--garbage')}, 'www.xn--garbage', 'Invalid A-label'); +is(eval{domain_to_ascii('_test._srv.müller.example.com')}, '_test._srv.xn--mller-kva.example.com', 'SRV record'); diff --git a/t/domain_to_unicode.t b/t/domain_to_unicode.t new file mode 100755 index 0000000..609484a --- /dev/null +++ b/t/domain_to_unicode.t @@ -0,0 +1,29 @@ +use utf8; +use strict; + +BEGIN { binmode STDOUT, ':utf8'; binmode STDERR, ':utf8'; } + +use Test::More tests => 1 + 14; +use Test::NoWarnings; + +use Net::IDN::Encode qw(:all); + +is(eval{domain_to_unicode('xn--mller-kva')} || $@, 'müller', 'single label (to_unicode)'); +is(eval{domain_to_unicode('XN--MLLER-KVA')} || $@, 'müller', 'single uppercase label (to_unicode)'); + +is(eval{domain_to_unicode('www.jürg.xn--mller-kva.com', )} || $@, 'www.jürg.müller.com', 'mixed utf8/ace/ascii (to_unicode)'); +is(eval{domain_to_unicode('www.a.b。c．d｡com', )} || $@, 'www.a.b。c．d｡com', 'mixed dots (to_unicode)'); + +is(eval{domain_to_unicode('www.ä ö ü ß.example', 'UseSTD3ASCIIRules' => 0)}, 'www.ä ö ü ß.example', 'blank (without STD3 rules) (to_unicode)') or diag $@; +is(eval{domain_to_unicode('www.ä ö ü ß.example', 'UseSTD3ASCIIRules' => 1)}, undef, 'blank (without STD3 rules) (to_unicode pass-through)') or diag $@; +is(eval{domain_to_unicode('www.xn-- -7kav3ivb.example', 'UseSTD3ASCIIRules' => 0)}, 'www.ä ö ü ß.example', 'blank (with STD3 rules) (to_unicode)') or diag $@; +is(eval{domain_to_unicode('www.xn-- -7kav3ivb.example', 'UseSTD3ASCIIRules' => 1)}, undef, 'blank (with STD3 rules) (to_unicode pass-through)') or diag $@; + +is(eval{domain_to_unicode("EXAMPLE.XN--11B5BS3A9AJ6G")}, 'EXAMPLE.परीक्षा', 'lowercase IDNA prefix') or diag $@; +is(eval{domain_to_unicode("EXAMPLE.xn--11B5BS3A9AJ6G")}, 'EXAMPLE.परीक्षा', 'uppercase IDNA prefix') or diag $@; + +is(eval{domain_to_unicode("I.\x{2665}.Perl.invalid")}, "I.\x{2665}.Perl.invalid", 'mixed case'); +is(eval{domain_to_unicode('I.xn--g6h.Perl.invalid')}, "I.\x{2665}.Perl.invalid", 'mixed case'); +is(eval{domain_to_unicode('_test._srv.xn--mller-kva.example.com')}, '_test._srv.müller.example.com', 'SRV record'); + +is(eval{domain_to_unicode('xn--zcaa.de')}, 'ßß.de', 'bare ßß'); diff --git a/t/encode_bytes.t b/t/encode_bytes.t new file mode 100644 index 0000000..2461502 --- /dev/null +++ b/t/encode_bytes.t @@ -0,0 +1,36 @@ +use bytes; +use strict; + +use Test::More tests => 24; +use Test::NoWarnings; + +use Net::IDN::Encode qw(:all); + +is(to_ascii('mueller'),'mueller'); +is(to_ascii('xn--mller-kva'),'xn--mller-kva'); +is(to_ascii('m�ller'),'xn--mller-kva'); + +is(to_unicode('mueller'),'mueller'); +is(to_unicode('xn--mller-kva'),'m�ller'); +is(to_unicode('m�ller'),'m�ller'); + +is(domain_to_ascii('mueller.example.com'),'mueller.example.com'); +is(domain_to_ascii('xn--mller-kva.example.com'),'xn--mller-kva.example.com'); +is(domain_to_ascii('m�ller.example.com'),'xn--mller-kva.example.com'); + +is(domain_to_unicode('mueller.example.com'),'mueller.example.com'); +is(domain_to_unicode('xn--mller-kva.example.com'),'m�ller.example.com'); +is(domain_to_unicode('m�ller.example.com'),'m�ller.example.com'); + +is(email_to_ascii('hans@mueller.example.com'),'hans@mueller.example.com'); +is(email_to_ascii('hans@xn--mller-kva.example.com'),'hans@xn--mller-kva.example.com'); +is(email_to_ascii('hans@m�ller.example.com'),'hans@xn--mller-kva.example.com'); +is(email_to_ascii(''), ''); +is(email_to_ascii(undef), undef); +is(email_to_ascii('test'), 'test'); + +is(email_to_unicode('hans@mueller.example.com'),'hans@mueller.example.com'); +is(email_to_unicode('hans@xn--mller-kva.example.com'),'hans@m�ller.example.com'); +is(email_to_unicode(''),''); +is(email_to_unicode(undef), undef); +is(email_to_unicode('test'),'test'); diff --git a/t/encode_utf8.t b/t/encode_utf8.t new file mode 100644 index 0000000..d96b8e6 --- /dev/null +++ b/t/encode_utf8.t @@ -0,0 +1,46 @@ +use utf8; +use strict; + +BEGIN { binmode STDOUT, ':utf8'; binmode STDERR, ':utf8'; } + +use Test::More tests => 32; +use Test::NoWarnings; + +use Net::IDN::Encode qw(:all); + +is(to_ascii('mueller'),'mueller'); +is(to_ascii('xn--mller-kva'),'xn--mller-kva'); +is(to_ascii('müller'),'xn--mller-kva'); +is(to_ascii('中央大学'),'xn--fiq80yua78t'); + +is(to_unicode('mueller'),'mueller'); +is(to_unicode('xn--mller-kva'),'müller'); +is(to_unicode('müller'),'müller'); +is(to_unicode('xn--fiq80yua78t'),'中央大学'); + +is(domain_to_ascii('mueller.example.com'),'mueller.example.com'); +is(domain_to_ascii('xn--mller-kva.example.com'),'xn--mller-kva.example.com'); +is(domain_to_ascii('müller.example.com'),'xn--mller-kva.example.com'); +is(domain_to_ascii('中央大学.tw'),'xn--fiq80yua78t.tw'); + +is(domain_to_unicode('mueller.example.com'),'mueller.example.com'); +is(domain_to_unicode('xn--mller-kva.example.com'),'müller.example.com'); +is(domain_to_unicode('müller.example.com'),'müller.example.com'); +is(domain_to_unicode('xn--fiq80yua78t.tw'),'中央大学.tw'); + +is(email_to_ascii('hans@mueller.example.com'),'hans@mueller.example.com'); +is(email_to_ascii('hans@xn--mller-kva.example.com'),'hans@xn--mller-kva.example.com'); +is(email_to_ascii('hans@müller.example.com'),'hans@xn--mller-kva.example.com'); +is(email_to_ascii('test＠中央大学.tw'),'test@xn--fiq80yua78t.tw'); +is(email_to_ascii(''), ''); +is(email_to_ascii(undef), undef); +is(email_to_ascii('test'), 'test'); + +is(email_to_unicode('hans@mueller.example.com'),'hans@mueller.example.com'); +is(email_to_unicode('hans＠mueller.example.com'),'hans＠mueller.example.com'); +is(email_to_unicode('hans@xn--mller-kva.example.com'),'hans@müller.example.com'); +is(email_to_unicode('hans＠xn--mller-kva.example.com'),'hans＠müller.example.com'); +is(email_to_unicode('test@xn--fiq80yua78t.tw'),'test@中央大学.tw'); +is(email_to_unicode(''),''); +is(email_to_unicode(undef), undef); +is(email_to_unicode('test'),'test'); diff --git a/t/punycode_vec-pp.t b/t/punycode_vec-pp.t new file mode 100644 index 0000000..2701c5f --- /dev/null +++ b/t/punycode_vec-pp.t @@ -0,0 +1,144 @@ +use strict; +use utf8; + +BEGIN { binmode STDOUT, ':utf8'; binmode STDERR, ':utf8'; } + +use Test::More; +use Test::NoWarnings; + +use Net::IDN::Punycode::PP ':all'; + +our @idna = ( + ["Arabic (Egyptian)", + "\x{0644}\x{064A}\x{0647}\x{0645}\x{0627}\x{0628}\x{062A}\x{0643}". + "\x{0644}\x{0645}\x{0648}\x{0634}\x{0639}\x{0631}\x{0628}\x{064A}\x{061F}", + "egbpdaj6bu4bxfgehfvwxn", 0, 0, 1, 1 ], + ["Chinese (simplified)", + "\x{4ED6}\x{4EEC}\x{4E3A}\x{4EC0}\x{4E48}\x{4E0D}\x{8BF4}\x{4E2D}". + "\x{6587}", + "ihqwcrb4cv8a8dqg056pqjye", 0, 0, 1, 1 ], + ["Chinese (traditional)", + "\x{4ED6}\x{5011}\x{7232}\x{4EC0}\x{9EBD}\x{4E0D}\x{8AAA}\x{4E2D}". + "\x{6587}", + "ihqwctvzc91f659drss3x8bo0yb", 0, 0, 1, 1 ], + ["Czech", + "\x{0050}\x{0072}\x{006F}\x{010D}\x{0070}\x{0072}\x{006F}\x{0073}". + "\x{0074}\x{011B}\x{006E}\x{0065}\x{006D}\x{006C}\x{0075}\x{0076}\x{00ED}". + "\x{010D}\x{0065}\x{0073}\x{006B}\x{0079}", + "Proprostnemluvesky-uyb24dma41a", 0, 0, 1, 1 ], + ["Hebrew", + "\x{05DC}\x{05DE}\x{05D4}\x{05D4}\x{05DD}\x{05E4}\x{05E9}\x{05D5}". + "\x{05D8}\x{05DC}\x{05D0}\x{05DE}\x{05D3}\x{05D1}\x{05E8}\x{05D9}\x{05DD}". + "\x{05E2}\x{05D1}\x{05E8}\x{05D9}\x{05EA}", + "4dbcagdahymbxekheh6e0a7fei0b", 0, 0, 1, 1 ], + ["Hindi (Devanagari)", + "\x{092F}\x{0939}\x{0932}\x{094B}\x{0917}\x{0939}\x{093F}\x{0928}". + "\x{094D}\x{0926}\x{0940}\x{0915}\x{094D}\x{092F}\x{094B}\x{0902}\x{0928}". + "\x{0939}\x{0940}\x{0902}\x{092C}\x{094B}\x{0932}\x{0938}\x{0915}\x{0924}". + "\x{0947}\x{0939}\x{0948}\x{0902}", + "i1baa7eci9glrd9b2ae1bj0hfcgg6iyaf8o0a1dig0cd", 0, 0, 1 ], + ["Japanese (kanji and hiragana)", + "\x{306A}\x{305C}\x{307F}\x{3093}\x{306A}\x{65E5}\x{672C}\x{8A9E}". + "\x{3092}\x{8A71}\x{3057}\x{3066}\x{304F}\x{308C}\x{306A}\x{3044}\x{306E}". + "\x{304B}", + "n8jok5ay5dzabd5bym9f0cm5685rrjetr6pdxa", 0, 0, 1 ], + ["Russian (Cyrillic)", + "\x{043F}\x{043E}\x{0447}\x{0435}\x{043C}\x{0443}\x{0436}\x{0435}". + "\x{043E}\x{043D}\x{0438}\x{043D}\x{0435}\x{0433}\x{043E}\x{0432}\x{043E}". + "\x{0440}\x{044F}\x{0442}\x{043F}\x{043E}\x{0440}\x{0443}\x{0441}\x{0441}". + "\x{043A}\x{0438}", + "b1abfaaepdrnnbgefbadotcwatmq2g4l", 0, 0, 1, 1 ], + ["Spanish", + "\x{0050}\x{006F}\x{0072}\x{0071}\x{0075}\x{00E9}\x{006E}\x{006F}". + "\x{0070}\x{0075}\x{0065}\x{0064}\x{0065}\x{006E}\x{0073}\x{0069}\x{006D}". + "\x{0070}\x{006C}\x{0065}\x{006D}\x{0065}\x{006E}\x{0074}\x{0065}\x{0068}". + "\x{0061}\x{0062}\x{006C}\x{0061}\x{0072}\x{0065}\x{006E}\x{0045}\x{0073}". + "\x{0070}\x{0061}\x{00F1}\x{006F}\x{006C}", + "PorqunopuedensimplementehablarenEspaol-fmd56a", 0, 0, 1 ], + ["Vietnamese", + "\x{0054}\x{1EA1}\x{0069}\x{0073}\x{0061}\x{006F}\x{0068}\x{1ECD}". + "\x{006B}\x{0068}\x{00F4}\x{006E}\x{0067}\x{0074}\x{0068}\x{1EC3}\x{0063}". + "\x{0068}\x{1EC9}\x{006E}\x{00F3}\x{0069}\x{0074}\x{0069}\x{1EBF}\x{006E}". + "\x{0067}\x{0056}\x{0069}\x{1EC7}\x{0074}", + "TisaohkhngthchnitingVit-kjcr8268qyxafd2f1b9g", 0, 0, 1 ], + ["Japanese", + "\x{0033}\x{5E74}\x{0042}\x{7D44}\x{91D1}\x{516B}\x{5148}\x{751F}", + "3B-ww4c5e180e575a65lsy2b", 0, 0, 1, 1 ], + ["Japanese", + "\x{5B89}\x{5BA4}\x{5948}\x{7F8E}\x{6075}\x{002D}\x{0077}\x{0069}". + "\x{0074}\x{0068}\x{002D}\x{0053}\x{0055}\x{0050}\x{0045}\x{0052}\x{002D}". + "\x{004D}\x{004F}\x{004E}\x{004B}\x{0045}\x{0059}\x{0053}", + "-with-SUPER-MONKEYS-pc58ag80a8qai00g7n9n", 0, 0, 1 ], + ["Japanese", + "\x{0048}\x{0065}\x{006C}\x{006C}\x{006F}\x{002D}\x{0041}\x{006E}". + "\x{006F}\x{0074}\x{0068}\x{0065}\x{0072}\x{002D}\x{0057}\x{0061}\x{0079}". + "\x{002D}\x{305D}\x{308C}\x{305E}\x{308C}\x{306E}\x{5834}\x{6240}", + "Hello-Another-Way--fc4qua05auwb3674vfr0b", 0, 0, 1 ], + ["Japanese", + "\x{3072}\x{3068}\x{3064}\x{5C4B}\x{6839}\x{306E}\x{4E0B}\x{0032}", + "2-u9tlzr9756bt3uc0v", 0, 0, 1, 1 ], + ["Japanese", + "\x{004D}\x{0061}\x{006A}\x{0069}\x{3067}\x{004B}\x{006F}\x{0069}". + "\x{3059}\x{308B}\x{0035}\x{79D2}\x{524D}", + "MajiKoi5-783gue6qz075azm5e", 0, 0, 1, 1 ], + ["Japanese", + "\x{30D1}\x{30D5}\x{30A3}\x{30FC}\x{0064}\x{0065}\x{30EB}\x{30F3}". + "\x{30D0}", + "de-jg4avhby1noc0d", 0, 0, 1, 1 ], + ["Japanese", + "\x{305D}\x{306E}\x{30B9}\x{30D4}\x{30FC}\x{30C9}\x{3067}", + "d9juau41awczczp", 0, 0, 1, 1 ], + ["Greek", + "\x{03b5}\x{03bb}\x{03bb}\x{03b7}\x{03bd}\x{03b9}\x{03ba}\x{03ac}", + "hxargifdar", 0, 0, 1, 1 ], + ["Maltese (Malti)", + "\x{0062}\x{006f}\x{006e}\x{0121}\x{0075}\x{0073}\x{0061}\x{0127}". + "\x{0127}\x{0061}", + "bonusaa-5bb1da", 0, 0, 1, 1 ], + ["Russian (Cyrillic)", + "\x{043f}\x{043e}\x{0447}\x{0435}\x{043c}\x{0443}\x{0436}\x{0435}". + "\x{043e}\x{043d}\x{0438}\x{043d}\x{0435}\x{0433}\x{043e}\x{0432}\x{043e}". + "\x{0440}\x{044f}\x{0442}\x{043f}\x{043e}\x{0440}\x{0443}\x{0441}\x{0441}". + "\x{043a}\x{0438}", + "b1abfaaepdrnnbgefbadotcwatmq2g4l", 0, 0, 1, 1 ], + +## Test vector from IdnaTest.txt + + ["Hebrew (combining)", + "\x{05D0}\x{0308}", + "ssa73l", + ] + + ); + +plan tests => ($#idna+1)*2 + 1; + + +foreach my $test (@idna) +{ + my ($comment,$in,$out,$allowunassigned,$usestd3asciirules,$toascii,$tounicode) = @{$test}; + + is(encode_punycode($in), $out, $comment.' (encode_punycode)'); + is(decode_punycode($out), $in, $comment.' (decode_punycode)'); +} + +# Test vectors extracted from: +# +# Nameprep and IDNA Test Vectors +# draft-josefsson-idn-test-vectors +# +# Copyright (C) The Internet Society (2003). All Rights Reserved. +# +# This document and translations of it may be copied and furnished +# to others, and derivative works that comment on or otherwise +# explain it or assist in its implementation may be prepared, +# copied, published and distributed, in whole or in part, without +# restriction of any kind, provided that the above copyright +# notice and this paragraph are included on all such copies and +# derivative works. However, this document itself may not be +# modified in any way, such as by removing the copyright notice or +# references to the Internet Society or other Internet +# organizations, except as needed for the purpose of developing +# Internet standards in which case the procedures for copyrights +# defined in the Internet Standards process must be followed, or +# as required to translate it into languages other than English. diff --git a/t/punycode_vec-xs.t b/t/punycode_vec-xs.t new file mode 100644 index 0000000..7c92b2d --- /dev/null +++ b/t/punycode_vec-xs.t @@ -0,0 +1,153 @@ +use strict; +use utf8; + +BEGIN { binmode STDOUT, ':utf8'; binmode STDERR, ':utf8'; } + +use Test::More; +use Net::IDN::Punycode ':all'; + +BEGIN { + plan skip_all => 'no XS version' if eval { + \&Net::IDN::Punycode::encode_punycode == + \&Net::IDN::Punycode::PP::encode_punycode; } +} + +use Test::NoWarnings; + +our @idna = ( + ["Arabic (Egyptian)", + "\x{0644}\x{064A}\x{0647}\x{0645}\x{0627}\x{0628}\x{062A}\x{0643}". + "\x{0644}\x{0645}\x{0648}\x{0634}\x{0639}\x{0631}\x{0628}\x{064A}\x{061F}", + "egbpdaj6bu4bxfgehfvwxn", 0, 0, 1, 1 ], + ["Chinese (simplified)", + "\x{4ED6}\x{4EEC}\x{4E3A}\x{4EC0}\x{4E48}\x{4E0D}\x{8BF4}\x{4E2D}". + "\x{6587}", + "ihqwcrb4cv8a8dqg056pqjye", 0, 0, 1, 1 ], + ["Chinese (traditional)", + "\x{4ED6}\x{5011}\x{7232}\x{4EC0}\x{9EBD}\x{4E0D}\x{8AAA}\x{4E2D}". + "\x{6587}", + "ihqwctvzc91f659drss3x8bo0yb", 0, 0, 1, 1 ], + ["Czech", + "\x{0050}\x{0072}\x{006F}\x{010D}\x{0070}\x{0072}\x{006F}\x{0073}". + "\x{0074}\x{011B}\x{006E}\x{0065}\x{006D}\x{006C}\x{0075}\x{0076}\x{00ED}". + "\x{010D}\x{0065}\x{0073}\x{006B}\x{0079}", + "Proprostnemluvesky-uyb24dma41a", 0, 0, 1, 1 ], + ["Hebrew", + "\x{05DC}\x{05DE}\x{05D4}\x{05D4}\x{05DD}\x{05E4}\x{05E9}\x{05D5}". + "\x{05D8}\x{05DC}\x{05D0}\x{05DE}\x{05D3}\x{05D1}\x{05E8}\x{05D9}\x{05DD}". + "\x{05E2}\x{05D1}\x{05E8}\x{05D9}\x{05EA}", + "4dbcagdahymbxekheh6e0a7fei0b", 0, 0, 1, 1 ], + ["Hindi (Devanagari)", + "\x{092F}\x{0939}\x{0932}\x{094B}\x{0917}\x{0939}\x{093F}\x{0928}". + "\x{094D}\x{0926}\x{0940}\x{0915}\x{094D}\x{092F}\x{094B}\x{0902}\x{0928}". + "\x{0939}\x{0940}\x{0902}\x{092C}\x{094B}\x{0932}\x{0938}\x{0915}\x{0924}". + "\x{0947}\x{0939}\x{0948}\x{0902}", + "i1baa7eci9glrd9b2ae1bj0hfcgg6iyaf8o0a1dig0cd", 0, 0, 1 ], + ["Japanese (kanji and hiragana)", + "\x{306A}\x{305C}\x{307F}\x{3093}\x{306A}\x{65E5}\x{672C}\x{8A9E}". + "\x{3092}\x{8A71}\x{3057}\x{3066}\x{304F}\x{308C}\x{306A}\x{3044}\x{306E}". + "\x{304B}", + "n8jok5ay5dzabd5bym9f0cm5685rrjetr6pdxa", 0, 0, 1 ], + ["Russian (Cyrillic)", + "\x{043F}\x{043E}\x{0447}\x{0435}\x{043C}\x{0443}\x{0436}\x{0435}". + "\x{043E}\x{043D}\x{0438}\x{043D}\x{0435}\x{0433}\x{043E}\x{0432}\x{043E}". + "\x{0440}\x{044F}\x{0442}\x{043F}\x{043E}\x{0440}\x{0443}\x{0441}\x{0441}". + "\x{043A}\x{0438}", + "b1abfaaepdrnnbgefbadotcwatmq2g4l", 0, 0, 1, 1 ], + ["Spanish", + "\x{0050}\x{006F}\x{0072}\x{0071}\x{0075}\x{00E9}\x{006E}\x{006F}". + "\x{0070}\x{0075}\x{0065}\x{0064}\x{0065}\x{006E}\x{0073}\x{0069}\x{006D}". + "\x{0070}\x{006C}\x{0065}\x{006D}\x{0065}\x{006E}\x{0074}\x{0065}\x{0068}". + "\x{0061}\x{0062}\x{006C}\x{0061}\x{0072}\x{0065}\x{006E}\x{0045}\x{0073}". + "\x{0070}\x{0061}\x{00F1}\x{006F}\x{006C}", + "PorqunopuedensimplementehablarenEspaol-fmd56a", 0, 0, 1 ], + ["Vietnamese", + "\x{0054}\x{1EA1}\x{0069}\x{0073}\x{0061}\x{006F}\x{0068}\x{1ECD}". + "\x{006B}\x{0068}\x{00F4}\x{006E}\x{0067}\x{0074}\x{0068}\x{1EC3}\x{0063}". + "\x{0068}\x{1EC9}\x{006E}\x{00F3}\x{0069}\x{0074}\x{0069}\x{1EBF}\x{006E}". + "\x{0067}\x{0056}\x{0069}\x{1EC7}\x{0074}", + "TisaohkhngthchnitingVit-kjcr8268qyxafd2f1b9g", 0, 0, 1 ], + ["Japanese", + "\x{0033}\x{5E74}\x{0042}\x{7D44}\x{91D1}\x{516B}\x{5148}\x{751F}", + "3B-ww4c5e180e575a65lsy2b", 0, 0, 1, 1 ], + ["Japanese", + "\x{5B89}\x{5BA4}\x{5948}\x{7F8E}\x{6075}\x{002D}\x{0077}\x{0069}". + "\x{0074}\x{0068}\x{002D}\x{0053}\x{0055}\x{0050}\x{0045}\x{0052}\x{002D}". + "\x{004D}\x{004F}\x{004E}\x{004B}\x{0045}\x{0059}\x{0053}", + "-with-SUPER-MONKEYS-pc58ag80a8qai00g7n9n", 0, 0, 1 ], + ["Japanese", + "\x{0048}\x{0065}\x{006C}\x{006C}\x{006F}\x{002D}\x{0041}\x{006E}". + "\x{006F}\x{0074}\x{0068}\x{0065}\x{0072}\x{002D}\x{0057}\x{0061}\x{0079}". + "\x{002D}\x{305D}\x{308C}\x{305E}\x{308C}\x{306E}\x{5834}\x{6240}", + "Hello-Another-Way--fc4qua05auwb3674vfr0b", 0, 0, 1 ], + ["Japanese", + "\x{3072}\x{3068}\x{3064}\x{5C4B}\x{6839}\x{306E}\x{4E0B}\x{0032}", + "2-u9tlzr9756bt3uc0v", 0, 0, 1, 1 ], + ["Japanese", + "\x{004D}\x{0061}\x{006A}\x{0069}\x{3067}\x{004B}\x{006F}\x{0069}". + "\x{3059}\x{308B}\x{0035}\x{79D2}\x{524D}", + "MajiKoi5-783gue6qz075azm5e", 0, 0, 1, 1 ], + ["Japanese", + "\x{30D1}\x{30D5}\x{30A3}\x{30FC}\x{0064}\x{0065}\x{30EB}\x{30F3}". + "\x{30D0}", + "de-jg4avhby1noc0d", 0, 0, 1, 1 ], + ["Japanese", + "\x{305D}\x{306E}\x{30B9}\x{30D4}\x{30FC}\x{30C9}\x{3067}", + "d9juau41awczczp", 0, 0, 1, 1 ], + ["Greek", + "\x{03b5}\x{03bb}\x{03bb}\x{03b7}\x{03bd}\x{03b9}\x{03ba}\x{03ac}", + "hxargifdar", 0, 0, 1, 1 ], + ["Maltese (Malti)", + "\x{0062}\x{006f}\x{006e}\x{0121}\x{0075}\x{0073}\x{0061}\x{0127}". + "\x{0127}\x{0061}", + "bonusaa-5bb1da", 0, 0, 1, 1 ], + ["Russian (Cyrillic)", + "\x{043f}\x{043e}\x{0447}\x{0435}\x{043c}\x{0443}\x{0436}\x{0435}". + "\x{043e}\x{043d}\x{0438}\x{043d}\x{0435}\x{0433}\x{043e}\x{0432}\x{043e}". + "\x{0440}\x{044f}\x{0442}\x{043f}\x{043e}\x{0440}\x{0443}\x{0441}\x{0441}". + "\x{043a}\x{0438}", + "b1abfaaepdrnnbgefbadotcwatmq2g4l", 0, 0, 1, 1 ], + +## Test vector from IdnaTest.txt + + ["Hebrew (combining)", + "\x{05D0}\x{0308}", + "ssa73l", + ], + ['U+094D', + "a\x{094D}b", + "ab-fsf", + ], +); + +my $tests = 2 * (scalar @idna); +plan tests => 1 + $tests; + +foreach my $test (@idna) +{ + my ($comment,$in,$out,$allowunassigned,$usestd3asciirules,$toascii,$tounicode) = @{$test}; + + is(encode_punycode($in), $out, $comment.' (encode_punycode)'); + is(decode_punycode($out), $in, $comment.' (decode_punycode)'); +} + +# Test vectors extracted from: +# +# Nameprep and IDNA Test Vectors +# draft-josefsson-idn-test-vectors +# +# Copyright (C) The Internet Society (2003). All Rights Reserved. +# +# This document and translations of it may be copied and furnished +# to others, and derivative works that comment on or otherwise +# explain it or assist in its implementation may be prepared, +# copied, published and distributed, in whole or in part, without +# restriction of any kind, provided that the above copyright +# notice and this paragraph are included on all such copies and +# derivative works. However, this document itself may not be +# modified in any way, such as by removing the copyright notice or +# references to the Internet Society or other Internet +# organizations, except as needed for the purpose of developing +# Internet standards in which case the procedures for copyrights +# defined in the Internet Standards process must be followed, or +# as required to translate it into languages other than English. diff --git a/t/uts46_api_call.t b/t/uts46_api_call.t new file mode 100644 index 0000000..c12a57f --- /dev/null +++ b/t/uts46_api_call.t @@ -0,0 +1,15 @@ +use bytes; +use strict; + +use Test::More tests => 1+6; +use Test::NoWarnings; + +use Net::IDN::UTS46 qw(:all); + +is(uts46_to_ascii('m�ller'),'xn--mller-kva'); +is(Net::IDN::UTS46::to_ascii('m�ller'),'xn--mller-kva'); +is(Net::IDN::UTS46::uts46_to_ascii('m�ller'),'xn--mller-kva'); + +is(uts46_to_unicode('xn--mller-kva'),'m�ller'); +is(Net::IDN::UTS46::to_unicode('xn--mller-kva'),'m�ller'); +is(Net::IDN::UTS46::uts46_to_unicode('xn--mller-kva'),'m�ller'); diff --git a/t/uts46_encode_bytes.t b/t/uts46_encode_bytes.t new file mode 100644 index 0000000..67951e3 --- /dev/null +++ b/t/uts46_encode_bytes.t @@ -0,0 +1,16 @@ +use bytes; +use strict; + +use Test::More tests => 1 + 6; +use Test::NoWarnings; + +use Net::IDN::UTS46 qw(:all); + +is(uts46_to_ascii('mueller'),'mueller'); +is(uts46_to_ascii('xn--mller-kva'),'xn--mller-kva'); +is(uts46_to_ascii('m�ller'),'xn--mller-kva'); + +is(uts46_to_unicode('mueller'),'mueller'); +is(uts46_to_unicode('xn--mller-kva'),'m�ller'); +is(uts46_to_unicode('m�ller'),'m�ller'); + diff --git a/t/uts46_encode_utf8.t b/t/uts46_encode_utf8.t new file mode 100644 index 0000000..1a127c1 --- /dev/null +++ b/t/uts46_encode_utf8.t @@ -0,0 +1,19 @@ +use utf8; +use strict; + +BEGIN { binmode STDOUT, ':utf8'; binmode STDERR, ':utf8'; } + +use Test::More tests => 1+8; +use Test::NoWarnings; + +use Net::IDN::UTS46 qw(:all); + +is(uts46_to_ascii('mueller'),'mueller'); +is(uts46_to_ascii('xn--mller-kva'),'xn--mller-kva'); +is(uts46_to_ascii('müller'),'xn--mller-kva'); +is(uts46_to_ascii('中央大学'),'xn--fiq80yua78t'); + +is(uts46_to_unicode('mueller'),'mueller'); +is(uts46_to_unicode('xn--mller-kva'),'müller'); +is(uts46_to_unicode('müller'),'müller'); +is(uts46_to_unicode('xn--fiq80yua78t'),'中央大学'); diff --git a/t/uts46_to_ascii-trans.t b/t/uts46_to_ascii-trans.t new file mode 100644 index 0000000..66d9cec --- /dev/null +++ b/t/uts46_to_ascii-trans.t @@ -0,0 +1,3813 @@ +# *** DO NOT EDIT *** generated file *** DO NOT EDIT *** +# +# generated by lib/Net/IDN/UTS46/GenTests.PL from data/IdnaTest.txt +# see repository at http://github.com/cfaerber/Net-IDN-Encode for source files +# +use strict; +use utf8; +use open ':std', ':utf8'; +use warnings; + +use Test::More tests => 3788 + 1; +use Test::NoWarnings; + +use Unicode::UCD; +use Net::IDN::UTS46 (':all'); + +no warnings 'utf8'; + +our $UCD_VERSION = eval('v'.(Unicode::UCD::UnicodeVersion())); + +my %p = ("TransitionalProcessing" => "1"); + +is(eval{uts46_to_ascii("fass.de", %p)}, "fass.de", "to_ascii\(\'fass\.de\'\)\ \[data\/IdnaTest\.txt\:61\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("faß.de", %p)}, "fass.de", "to_ascii\(\'faß\.de\'\)\ \[data\/IdnaTest\.txt\:62\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Faß.de", %p)}, "fass.de", "to_ascii\(\'Faß\.de\'\)\ \[data\/IdnaTest\.txt\:64\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--fa-hia.de", %p)}, "xn--fa-hia.de", "to_ascii\(\'xn\-\-fa\-hia\.de\'\)\ \[data\/IdnaTest\.txt\:66\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("à\x{05D0}", %p)}, undef, "to_ascii\(\'à\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:70\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0300}\x{05D0}", %p)}, undef, "to_ascii\(\'a\\u0300\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:71\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0300}\x{05D0}", %p)}, undef, "to_ascii\(\'A\\u0300\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:72\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("À\x{05D0}", %p)}, undef, "to_ascii\(\'À\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:73\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0à.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0à\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:74\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0a\x{0300}.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0a\\u0300\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:75\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0A\x{0300}.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0A\\u0300\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:76\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0À.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0À\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:77\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--0-sfa.xn--4db", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'xn\-\-0\-sfa\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:78\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("à.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'à\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:79\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0300}.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'a\\u0300\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:80\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0300}.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'A\\u0300\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:81\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("À.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'À\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:82\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--0ca.xn--ssa73l", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'xn\-\-0ca\.xn\-\-ssa73l\'\)\ \[data\/IdnaTest\.txt\:83\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("à.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_ascii\(\'à\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:84\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0300}.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_ascii\(\'a\\u0300\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:85\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0300}.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_ascii\(\'A\\u0300\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:86\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("À.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_ascii\(\'À\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:87\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0308}.\x{05D0}", %p)}, undef, "to_ascii\(\'\\u0308\.\\u05D0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:88\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("à.\x{05D0}0\x{0660}", %p)}, undef, "to_ascii\(\'à\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:89\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0300}.\x{05D0}0\x{0660}", %p)}, undef, "to_ascii\(\'a\\u0300\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:90\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0300}.\x{05D0}0\x{0660}", %p)}, undef, "to_ascii\(\'A\\u0300\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:91\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("À.\x{05D0}0\x{0660}", %p)}, undef, "to_ascii\(\'À\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:92\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("àˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'àˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:93\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0300}ˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'a\\u0300ˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:94\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0300}ˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'A\\u0300ˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:95\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Àˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'Àˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:96\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--0ca88g.xn--4db", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'xn\-\-0ca88g\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:97\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("à\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'à\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:98\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0300}\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'a\\u0300\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:99\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0300}\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'A\\u0300\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:100\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("À\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'À\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:101\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--0ca81i.xn--4db", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'xn\-\-0ca81i\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:102\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{200C}b", %p)}, "ab", "to_ascii\(\'a\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:106\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{200C}B", %p)}, "ab", "to_ascii\(\'A\\u200CB\'\)\ \[data\/IdnaTest\.txt\:108\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{200C}b", %p)}, "ab", "to_ascii\(\'A\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:110\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ab", %p)}, "ab", "to_ascii\(\'ab\'\)\ \[data\/IdnaTest\.txt\:112\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{094D}\x{200C}b", %p)}, "xn--ab-fsf", "to_ascii\(\'a\\u094D\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:113\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{094D}\x{200C}B", %p)}, "xn--ab-fsf", "to_ascii\(\'A\\u094D\\u200CB\'\)\ \[data\/IdnaTest\.txt\:115\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{094D}\x{200C}b", %p)}, "xn--ab-fsf", "to_ascii\(\'A\\u094D\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:117\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ab-fsf", %p)}, "xn--ab-fsf", "to_ascii\(\'xn\-\-ab\-fsf\'\)\ \[data\/IdnaTest\.txt\:119\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{094D}b", %p)}, "xn--ab-fsf", "to_ascii\(\'a\\u094Db\'\)\ \[data\/IdnaTest\.txt\:120\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{094D}B", %p)}, "xn--ab-fsf", "to_ascii\(\'A\\u094DB\'\)\ \[data\/IdnaTest\.txt\:121\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{094D}b", %p)}, "xn--ab-fsf", "to_ascii\(\'A\\u094Db\'\)\ \[data\/IdnaTest\.txt\:122\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ab-fsf604u", %p)}, "xn--ab-fsf604u", "to_ascii\(\'xn\-\-ab\-fsf604u\'\)\ \[data\/IdnaTest\.txt\:123\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:124\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0308}\x{200C}\x{0308}\x{0628}B", %p)}, undef, "to_ascii\(\'\\u0308\\u200C\\u0308\\u0628B\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:126\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0628}\x{0308}\x{200C}\x{0308}", %p)}, undef, "to_ascii\(\'a\\u0628\\u0308\\u200C\\u0308\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:128\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200C}\x{0308}", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200C\\u0308\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:130\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0628}\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'a\\u0628\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:132\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200C}\x{0308}\x{0628}B", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200C\\u0308\\u0628B\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:133\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:134\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{200D}b", %p)}, "ab", "to_ascii\(\'a\\u200Db\'\)\ \[data\/IdnaTest\.txt\:135\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{200D}B", %p)}, "ab", "to_ascii\(\'A\\u200DB\'\)\ \[data\/IdnaTest\.txt\:137\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{200D}b", %p)}, "ab", "to_ascii\(\'A\\u200Db\'\)\ \[data\/IdnaTest\.txt\:139\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{094D}\x{200D}b", %p)}, "xn--ab-fsf", "to_ascii\(\'a\\u094D\\u200Db\'\)\ \[data\/IdnaTest\.txt\:141\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{094D}\x{200D}B", %p)}, "xn--ab-fsf", "to_ascii\(\'A\\u094D\\u200DB\'\)\ \[data\/IdnaTest\.txt\:143\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{094D}\x{200D}b", %p)}, "xn--ab-fsf", "to_ascii\(\'A\\u094D\\u200Db\'\)\ \[data\/IdnaTest\.txt\:145\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ab-fsf014u", %p)}, "xn--ab-fsf014u", "to_ascii\(\'xn\-\-ab\-fsf014u\'\)\ \[data\/IdnaTest\.txt\:147\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:148\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0308}\x{200D}\x{0308}\x{0628}B", %p)}, undef, "to_ascii\(\'\\u0308\\u200D\\u0308\\u0628B\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:150\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0628}\x{0308}\x{200D}\x{0308}", %p)}, undef, "to_ascii\(\'a\\u0628\\u0308\\u200D\\u0308\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:152\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200D}\x{0308}", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200D\\u0308\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:154\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'a\\u0628\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:156\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}B", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200D\\u0308\\u0628B\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:158\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:160\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("¡", %p)}, "xn--7a", "to_ascii\(\'\¡\'\)\ \[data\/IdnaTest\.txt\:165\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--7a", %p)}, "xn--7a", "to_ascii\(\'xn\-\-7a\'\)\ \[data\/IdnaTest\.txt\:166\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("᧚", %p)}, "xn--pkf", "to_ascii\(\'᧚\'\)\ \[data\/IdnaTest\.txt\:167\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("xn--pkf", %p)}, "xn--pkf", "to_ascii\(\'xn\-\-pkf\'\)\ \[data\/IdnaTest\.txt\:168\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("。", %p)}, undef, "to_ascii\(\'\。\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:169\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("ꭠ", %p)}, "xn--3y9a", "to_ascii\(\'ꭠ\'\)\ \[data\/IdnaTest\.txt\:170\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("xn--3y9a", %p)}, "xn--3y9a", "to_ascii\(\'xn\-\-3y9a\'\)\ \[data\/IdnaTest\.txt\:171\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("1234567890ä1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890ä1234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:172\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1234567890a\x{0308}1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890a\\u03081234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:173\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1234567890A\x{0308}1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890A\\u03081234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:174\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1234567890Ä1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890Ä1234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:175\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("www.eXample.cOm", %p)}, "www.example.com", "to_ascii\(\'www\.eXample\.cOm\'\)\ \[data\/IdnaTest\.txt\:176\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Bücher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'Bücher\.de\'\)\ \[data\/IdnaTest\.txt\:177\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Bu\x{0308}cher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'Bu\\u0308cher\.de\'\)\ \[data\/IdnaTest\.txt\:178\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("bu\x{0308}cher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'bu\\u0308cher\.de\'\)\ \[data\/IdnaTest\.txt\:179\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("bücher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'bücher\.de\'\)\ \[data\/IdnaTest\.txt\:180\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("BÜCHER.DE", %p)}, "xn--bcher-kva.de", "to_ascii\(\'BÜCHER\.DE\'\)\ \[data\/IdnaTest\.txt\:181\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("BU\x{0308}CHER.DE", %p)}, "xn--bcher-kva.de", "to_ascii\(\'BU\\u0308CHER\.DE\'\)\ \[data\/IdnaTest\.txt\:182\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--bcher-kva.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'xn\-\-bcher\-kva\.de\'\)\ \[data\/IdnaTest\.txt\:183\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ÖBB", %p)}, "xn--bb-eka", "to_ascii\(\'ÖBB\'\)\ \[data\/IdnaTest\.txt\:184\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("O\x{0308}BB", %p)}, "xn--bb-eka", "to_ascii\(\'O\\u0308BB\'\)\ \[data\/IdnaTest\.txt\:185\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("o\x{0308}bb", %p)}, "xn--bb-eka", "to_ascii\(\'o\\u0308bb\'\)\ \[data\/IdnaTest\.txt\:186\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("öbb", %p)}, "xn--bb-eka", "to_ascii\(\'öbb\'\)\ \[data\/IdnaTest\.txt\:187\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Öbb", %p)}, "xn--bb-eka", "to_ascii\(\'Öbb\'\)\ \[data\/IdnaTest\.txt\:188\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("O\x{0308}bb", %p)}, "xn--bb-eka", "to_ascii\(\'O\\u0308bb\'\)\ \[data\/IdnaTest\.txt\:189\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--bb-eka", %p)}, "xn--bb-eka", "to_ascii\(\'xn\-\-bb\-eka\'\)\ \[data\/IdnaTest\.txt\:190\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("βόλος.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:191\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("βο\x{0301}λος.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:193\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ΒΟ\x{0301}ΛΟΣ.COM", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'ΒΟ\\u0301ΛΟΣ\.COM\'\)\ \[data\/IdnaTest\.txt\:195\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ΒΌΛΟΣ.COM", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'ΒΌΛΟΣ\.COM\'\)\ \[data\/IdnaTest\.txt\:196\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("βόλοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'βόλοσ\.com\'\)\ \[data\/IdnaTest\.txt\:197\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("βο\x{0301}λοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'βο\\u0301λοσ\.com\'\)\ \[data\/IdnaTest\.txt\:198\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Βο\x{0301}λοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'Βο\\u0301λοσ\.com\'\)\ \[data\/IdnaTest\.txt\:199\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Βόλοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'Βόλοσ\.com\'\)\ \[data\/IdnaTest\.txt\:200\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--nxasmq6b.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'xn\-\-nxasmq6b\.com\'\)\ \[data\/IdnaTest\.txt\:201\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Βο\x{0301}λος.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'Βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:202\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Βόλος.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'Βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:204\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--nxasmm1c.com", %p)}, "xn--nxasmm1c.com", "to_ascii\(\'xn\-\-nxasmm1c\.com\'\)\ \[data\/IdnaTest\.txt\:206\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--nxasmm1c", %p)}, "xn--nxasmm1c", "to_ascii\(\'xn\-\-nxasmm1c\'\)\ \[data\/IdnaTest\.txt\:207\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("βόλος", %p)}, "xn--nxasmq6b", "to_ascii\(\'βόλος\'\)\ \[data\/IdnaTest\.txt\:208\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("βο\x{0301}λος", %p)}, "xn--nxasmq6b", "to_ascii\(\'βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:210\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ΒΟ\x{0301}ΛΟΣ", %p)}, "xn--nxasmq6b", "to_ascii\(\'ΒΟ\\u0301ΛΟΣ\'\)\ \[data\/IdnaTest\.txt\:212\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ΒΌΛΟΣ", %p)}, "xn--nxasmq6b", "to_ascii\(\'ΒΌΛΟΣ\'\)\ \[data\/IdnaTest\.txt\:213\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("βόλοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'βόλοσ\'\)\ \[data\/IdnaTest\.txt\:214\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("βο\x{0301}λοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'βο\\u0301λοσ\'\)\ \[data\/IdnaTest\.txt\:215\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Βο\x{0301}λοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'Βο\\u0301λοσ\'\)\ \[data\/IdnaTest\.txt\:216\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Βόλοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'Βόλοσ\'\)\ \[data\/IdnaTest\.txt\:217\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--nxasmq6b", %p)}, "xn--nxasmq6b", "to_ascii\(\'xn\-\-nxasmq6b\'\)\ \[data\/IdnaTest\.txt\:218\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Βόλος", %p)}, "xn--nxasmq6b", "to_ascii\(\'Βόλος\'\)\ \[data\/IdnaTest\.txt\:219\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Βο\x{0301}λος", %p)}, "xn--nxasmq6b", "to_ascii\(\'Βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:221\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("www.ශ\x{0DCA}\x{200D}ර\x{0DD3}.com", %p)}, "www.xn--10cl1a0b.com", "to_ascii\(\'www\.ශ\\u0DCA\\u200Dර\\u0DD3\.com\'\)\ \[data\/IdnaTest\.txt\:223\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("www.xn--10cl1a0b.com", %p)}, "www.xn--10cl1a0b.com", "to_ascii\(\'www\.xn\-\-10cl1a0b\.com\'\)\ \[data\/IdnaTest\.txt\:225\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("www.ශ\x{0DCA}ර\x{0DD3}.com", %p)}, "www.xn--10cl1a0b.com", "to_ascii\(\'www\.ශ\\u0DCAර\\u0DD3\.com\'\)\ \[data\/IdnaTest\.txt\:226\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("www.xn--10cl1a0b660p.com", %p)}, "www.xn--10cl1a0b660p.com", "to_ascii\(\'www\.xn\-\-10cl1a0b660p\.com\'\)\ \[data\/IdnaTest\.txt\:227\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}", %p)}, "xn--mgba3gch31f", "to_ascii\(\'\\u0646\\u0627\\u0645\\u0647\\u200C\\u0627\\u06CC\'\)\ \[data\/IdnaTest\.txt\:228\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--mgba3gch31f", %p)}, "xn--mgba3gch31f", "to_ascii\(\'xn\-\-mgba3gch31f\'\)\ \[data\/IdnaTest\.txt\:230\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}", %p)}, "xn--mgba3gch31f", "to_ascii\(\'\\u0646\\u0627\\u0645\\u0647\\u0627\\u06CC\'\)\ \[data\/IdnaTest\.txt\:231\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--mgba3gch31f060k", %p)}, "xn--mgba3gch31f060k", "to_ascii\(\'xn\-\-mgba3gch31f060k\'\)\ \[data\/IdnaTest\.txt\:232\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--mgba3gch31f060k.com", %p)}, "xn--mgba3gch31f060k.com", "to_ascii\(\'xn\-\-mgba3gch31f060k\.com\'\)\ \[data\/IdnaTest\.txt\:233\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}.com", %p)}, "xn--mgba3gch31f.com", "to_ascii\(\'\\u0646\\u0627\\u0645\\u0647\\u200C\\u0627\\u06CC\.com\'\)\ \[data\/IdnaTest\.txt\:234\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--mgba3gch31f.com", %p)}, "xn--mgba3gch31f.com", "to_ascii\(\'xn\-\-mgba3gch31f\.com\'\)\ \[data\/IdnaTest\.txt\:236\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}.com", %p)}, "xn--mgba3gch31f.com", "to_ascii\(\'\\u0646\\u0627\\u0645\\u0647\\u0627\\u06CC\.com\'\)\ \[data\/IdnaTest\.txt\:237\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b．c。d｡", %p)}, "a.b.c.d.", "to_ascii\(\'a\.b．c\。d｡\'\)\ \[data\/IdnaTest\.txt\:238\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b.c。d。", %p)}, "a.b.c.d.", "to_ascii\(\'a\.b\.c\。d\。\'\)\ \[data\/IdnaTest\.txt\:239\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b.c.d.", %p)}, "a.b.c.d.", "to_ascii\(\'a\.b\.c\.d\.\'\)\ \[data\/IdnaTest\.txt\:240\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("U\x{0308}.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'U\\u0308\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:241\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ü.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'Ü\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:242\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ü.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'ü\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:243\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("u\x{0308}.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'u\\u0308\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:244\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--tda.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'xn\-\-tda\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:245\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ü.ü", %p)}, "xn--tda.xn--tda", "to_ascii\(\'ü\.ü\'\)\ \[data\/IdnaTest\.txt\:246\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("u\x{0308}.u\x{0308}", %p)}, "xn--tda.xn--tda", "to_ascii\(\'u\\u0308\.u\\u0308\'\)\ \[data\/IdnaTest\.txt\:247\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("U\x{0308}.U\x{0308}", %p)}, "xn--tda.xn--tda", "to_ascii\(\'U\\u0308\.U\\u0308\'\)\ \[data\/IdnaTest\.txt\:248\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ü.Ü", %p)}, "xn--tda.xn--tda", "to_ascii\(\'Ü\.Ü\'\)\ \[data\/IdnaTest\.txt\:249\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ü.ü", %p)}, "xn--tda.xn--tda", "to_ascii\(\'Ü\.ü\'\)\ \[data\/IdnaTest\.txt\:250\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("U\x{0308}.u\x{0308}", %p)}, "xn--tda.xn--tda", "to_ascii\(\'U\\u0308\.u\\u0308\'\)\ \[data\/IdnaTest\.txt\:251\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--u-ccb", %p)}, undef, "to_ascii\(\'xn\-\-u\-ccb\'\)\ throws\ error\ V1\ \[data\/IdnaTest\.txt\:252\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a⒈com", %p)}, undef, "to_ascii\(\'a⒈com\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:253\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a1.com", %p)}, "a1.com", "to_ascii\(\'a1\.com\'\)\ \[data\/IdnaTest\.txt\:254\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A⒈COM", %p)}, undef, "to_ascii\(\'A⒈COM\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:255\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A⒈Com", %p)}, undef, "to_ascii\(\'A⒈Com\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:256\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--a-ecp.ru", %p)}, undef, "to_ascii\(\'xn\-\-a\-ecp\.ru\'\)\ throws\ error\ V6\ \[data\/IdnaTest\.txt\:257\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--0.pt", %p)}, undef, "to_ascii\(\'xn\-\-0\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:258\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--a.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\.pt\'\)\ throws\ error\ V6\ \[data\/IdnaTest\.txt\:259\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--a-Ä.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-Ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:260\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--a-A\x{0308}.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-A\\u0308\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:261\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--a-a\x{0308}.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-a\\u0308\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:262\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--a-ä.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:263\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("XN--A-Ä.PT", %p)}, undef, "to_ascii\(\'XN\-\-A\-Ä\.PT\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:264\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("XN--A-A\x{0308}.PT", %p)}, undef, "to_ascii\(\'XN\-\-A\-A\\u0308\.PT\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:265\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Xn--A-A\x{0308}.pt", %p)}, undef, "to_ascii\(\'Xn\-\-A\-A\\u0308\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:266\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Xn--A-Ä.pt", %p)}, undef, "to_ascii\(\'Xn\-\-A\-Ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:267\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("日本語。ＪＰ", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。ＪＰ\'\)\ \[data\/IdnaTest\.txt\:268\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("日本語。JP", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。JP\'\)\ \[data\/IdnaTest\.txt\:269\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--wgv71a119e.jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'xn\-\-wgv71a119e\.jp\'\)\ \[data\/IdnaTest\.txt\:270\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("日本語.jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\.jp\'\)\ \[data\/IdnaTest\.txt\:271\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("日本語。ｊｐ", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。ｊｐ\'\)\ \[data\/IdnaTest\.txt\:272\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("日本語。Ｊｐ", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。Ｊｐ\'\)\ \[data\/IdnaTest\.txt\:273\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("☕", %p)}, "xn--53h", "to_ascii\(\'\☕\'\)\ \[data\/IdnaTest\.txt\:274\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--53h", %p)}, "xn--53h", "to_ascii\(\'xn\-\-53h\'\)\ \[data\/IdnaTest\.txt\:275\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.aß\x{200C}\x{200D}b\x{200C}\x{200D}cßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\x{0302}ßz", %p)}, undef, "to_ascii\(\'1\.aß\\u200C\\u200Db\\u200C\\u200Dcßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\\u0302ßz\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:276\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.ASS\x{200C}\x{200D}B\x{200C}\x{200D}CSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSS\x{0302}SSZ", %p)}, undef, "to_ascii\(\'1\.ASS\\u200C\\u200DB\\u200C\\u200DCSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSS\\u0302SSZ\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:278\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.ASS\x{200C}\x{200D}B\x{200C}\x{200D}CSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSŜSSZ", %p)}, undef, "to_ascii\(\'1\.ASS\\u200C\\u200DB\\u200C\\u200DCSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSŜSSZ\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:280\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz", %p)}, undef, "to_ascii\(\'1\.ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:282\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_ascii\(\'1\.ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:284\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.Ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_ascii\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:286\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.Ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz", %p)}, undef, "to_ascii\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:288\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.Aß\x{200C}\x{200D}b\x{200C}\x{200D}cßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\x{0302}ßz", %p)}, undef, "to_ascii\(\'1\.Aß\\u200C\\u200Db\\u200C\\u200Dcßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\\u0302ßz\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:290\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}x\x{200D}n\x{200C}-\x{200D}-bß", %p)}, "xn--bss", "to_ascii\(\'\\u200Cx\\u200Dn\\u200C\-\\u200D\-bß\'\)\ \[data\/IdnaTest\.txt\:292\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}X\x{200D}N\x{200C}-\x{200D}-BSS", %p)}, "xn--bss", "to_ascii\(\'\\u200CX\\u200DN\\u200C\-\\u200D\-BSS\'\)\ \[data\/IdnaTest\.txt\:294\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}x\x{200D}n\x{200C}-\x{200D}-bss", %p)}, "xn--bss", "to_ascii\(\'\\u200Cx\\u200Dn\\u200C\-\\u200D\-bss\'\)\ \[data\/IdnaTest\.txt\:296\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}X\x{200D}n\x{200C}-\x{200D}-Bss", %p)}, "xn--bss", "to_ascii\(\'\\u200CX\\u200Dn\\u200C\-\\u200D\-Bss\'\)\ \[data\/IdnaTest\.txt\:298\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--bss", %p)}, "xn--bss", "to_ascii\(\'xn\-\-bss\'\)\ \[data\/IdnaTest\.txt\:300\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("夙", %p)}, "xn--bss", "to_ascii\(\'夙\'\)\ \[data\/IdnaTest\.txt\:301\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}X\x{200D}n\x{200C}-\x{200D}-Bß", %p)}, "xn--bss", "to_ascii\(\'\\u200CX\\u200Dn\\u200C\-\\u200D\-Bß\'\)\ \[data\/IdnaTest\.txt\:302\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ˣ\x{034F}ℕ\x{200B}﹣\x{00AD}－\x{180C}ℬ\x{FE00}ſ\x{2064}𝔰󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD－\\u180Cℬ\\uFE00ſ\\u2064𝔰\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:304\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("x\x{034F}N\x{200B}-\x{00AD}-\x{180C}B\x{FE00}s\x{2064}s󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'x\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00s\\u2064s\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:305\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("x\x{034F}n\x{200B}-\x{00AD}-\x{180C}b\x{FE00}s\x{2064}s󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'x\\u034Fn\\u200B\-\\u00AD\-\\u180Cb\\uFE00s\\u2064s\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:306\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("X\x{034F}N\x{200B}-\x{00AD}-\x{180C}B\x{FE00}S\x{2064}S󠇯FFL", %p)}, "xn--bssffl", "to_ascii\(\'X\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00S\\u2064S\󠇯FFL\'\)\ \[data\/IdnaTest\.txt\:307\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("X\x{034F}n\x{200B}-\x{00AD}-\x{180C}B\x{FE00}s\x{2064}s󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'X\\u034Fn\\u200B\-\\u00AD\-\\u180CB\\uFE00s\\u2064s\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:308\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("xn--bssffl", %p)}, "xn--bssffl", "to_ascii\(\'xn\-\-bssffl\'\)\ \[data\/IdnaTest\.txt\:309\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("夡夞夜夙", %p)}, "xn--bssffl", "to_ascii\(\'夡夞夜夙\'\)\ \[data\/IdnaTest\.txt\:310\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ˣ\x{034F}ℕ\x{200B}﹣\x{00AD}－\x{180C}ℬ\x{FE00}S\x{2064}𝔰󠇯FFL", %p)}, "xn--bssffl", "to_ascii\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD－\\u180Cℬ\\uFE00S\\u2064𝔰\󠇯FFL\'\)\ \[data\/IdnaTest\.txt\:311\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("x\x{034F}N\x{200B}-\x{00AD}-\x{180C}B\x{FE00}S\x{2064}s󠇯FFL", %p)}, "xn--bssffl", "to_ascii\(\'x\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00S\\u2064s\󠇯FFL\'\)\ \[data\/IdnaTest\.txt\:312\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ˣ\x{034F}ℕ\x{200B}﹣\x{00AD}－\x{180C}ℬ\x{FE00}s\x{2064}𝔰󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD－\\u180Cℬ\\uFE00s\\u2064𝔰\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:313\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:314\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:315\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:316\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901234\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:317\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901234\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:318\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901234\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:319\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ä1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'ä1234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:320\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0308}1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'a\\u03081234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:321\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0308}1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'A\\u03081234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:322\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ä1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'Ä1234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:323\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--1234567890123456789012345678901234567890123456789012345-9te", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'xn\-\-1234567890123456789012345678901234567890123456789012345\-9te\'\)\ \[data\/IdnaTest\.txt\:324\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:325\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:326\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:327\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:328\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.xn\-\-1234567890123456789012345678901234567890123456789012345\-kue\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:329\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:330\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:331\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:332\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:333\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.xn\-\-1234567890123456789012345678901234567890123456789012345\-kue\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:334\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:335\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:336\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:337\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:338\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:339\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:340\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:341\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:342\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:343\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:344\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:345\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:346\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:347\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:348\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:349\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:350\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b..-q--a-.e", %p)}, undef, "to_ascii\(\'a\.b\.\.\-q\-\-a\-\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:351\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b..-q--ä-.e", %p)}, undef, "to_ascii\(\'a\.b\.\.\-q\-\-ä\-\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:352\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b..-q--a\x{0308}-.e", %p)}, undef, "to_ascii\(\'a\.b\.\.\-q\-\-a\\u0308\-\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:353\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A.B..-Q--A\x{0308}-.E", %p)}, undef, "to_ascii\(\'A\.B\.\.\-Q\-\-A\\u0308\-\.E\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:354\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A.B..-Q--Ä-.E", %p)}, undef, "to_ascii\(\'A\.B\.\.\-Q\-\-Ä\-\.E\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:355\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b..xn---q----jra.e", %p)}, undef, "to_ascii\(\'a\.b\.\.xn\-\-\-q\-\-\-\-jra\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:356\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a..c", %p)}, undef, "to_ascii\(\'a\.\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:357\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.-b.", %p)}, undef, "to_ascii\(\'a\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:358\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b-.c", %p)}, undef, "to_ascii\(\'a\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:359\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.-.c", %p)}, undef, "to_ascii\(\'a\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:360\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.bc--de.f", %p)}, undef, "to_ascii\(\'a\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:361\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ä.\x{00AD}.c", %p)}, undef, "to_ascii\(\'ä\.\\u00AD\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:362\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0308}.\x{00AD}.c", %p)}, undef, "to_ascii\(\'a\\u0308\.\\u00AD\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:363\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0308}.\x{00AD}.C", %p)}, undef, "to_ascii\(\'A\\u0308\.\\u00AD\.C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:364\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ä.\x{00AD}.C", %p)}, undef, "to_ascii\(\'Ä\.\\u00AD\.C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:365\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ä.-b.", %p)}, undef, "to_ascii\(\'ä\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:366\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0308}.-b.", %p)}, undef, "to_ascii\(\'a\\u0308\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:367\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0308}.-B.", %p)}, undef, "to_ascii\(\'A\\u0308\.\-B\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:368\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ä.-B.", %p)}, undef, "to_ascii\(\'Ä\.\-B\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:369\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ä.b-.c", %p)}, undef, "to_ascii\(\'ä\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:370\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0308}.b-.c", %p)}, undef, "to_ascii\(\'a\\u0308\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:371\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0308}.B-.C", %p)}, undef, "to_ascii\(\'A\\u0308\.B\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:372\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ä.B-.C", %p)}, undef, "to_ascii\(\'Ä\.B\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:373\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ä.-.c", %p)}, undef, "to_ascii\(\'ä\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:374\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0308}.-.c", %p)}, undef, "to_ascii\(\'a\\u0308\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:375\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0308}.-.C", %p)}, undef, "to_ascii\(\'A\\u0308\.\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:376\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ä.-.C", %p)}, undef, "to_ascii\(\'Ä\.\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:377\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ä.bc--de.f", %p)}, undef, "to_ascii\(\'ä\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:378\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0308}.bc--de.f", %p)}, undef, "to_ascii\(\'a\\u0308\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:379\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0308}.BC--DE.F", %p)}, undef, "to_ascii\(\'A\\u0308\.BC\-\-DE\.F\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:380\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ä.BC--DE.F", %p)}, undef, "to_ascii\(\'Ä\.BC\-\-DE\.F\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:381\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b.\x{0308}c.d", %p)}, undef, "to_ascii\(\'a\.b\.\\u0308c\.d\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:382\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A.B.\x{0308}C.D", %p)}, undef, "to_ascii\(\'A\.B\.\\u0308C\.D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:383\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b.xn--c-bcb.d", %p)}, undef, "to_ascii\(\'a\.b\.xn\-\-c\-bcb\.d\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:384\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A0", %p)}, "a0", "to_ascii\(\'A0\'\)\ \[data\/IdnaTest\.txt\:385\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0A", %p)}, "0a", "to_ascii\(\'0A\'\)\ \[data\/IdnaTest\.txt\:386\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0A.\x{05D0}", %p)}, "0a.xn--4db", "to_ascii\(\'0A\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:387\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0a.xn--4db", %p)}, "0a.xn--4db", "to_ascii\(\'0a\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:388\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("c.xn--0-eha.xn--4db", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'c\.xn\-\-0\-eha\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:389\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("c.0ü.\x{05D0}", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'c\.0ü\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:390\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("c.0u\x{0308}.\x{05D0}", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'c\.0u\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:391\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("C.0U\x{0308}.\x{05D0}", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'C\.0U\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:392\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("C.0Ü.\x{05D0}", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'C\.0Ü\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:393\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("b-.\x{05D0}", %p)}, undef, "to_ascii\(\'b\-\.\\u05D0\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:394\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("d.xn----dha.xn--4db", %p)}, undef, "to_ascii\(\'d\.xn\-\-\-\-dha\.xn\-\-4db\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:395\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{05D0}", %p)}, undef, "to_ascii\(\'a\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:396\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{05D0}", %p)}, undef, "to_ascii\(\'A\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:397\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{05D0}\x{05C7}", %p)}, "xn--vdbr", "to_ascii\(\'\\u05D0\\u05C7\'\)\ \[data\/IdnaTest\.txt\:398\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--vdbr", %p)}, "xn--vdbr", "to_ascii\(\'xn\-\-vdbr\'\)\ \[data\/IdnaTest\.txt\:399\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{05D0}9\x{05C7}", %p)}, "xn--9-ihcz", "to_ascii\(\'\\u05D09\\u05C7\'\)\ \[data\/IdnaTest\.txt\:400\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--9-ihcz", %p)}, "xn--9-ihcz", "to_ascii\(\'xn\-\-9\-ihcz\'\)\ \[data\/IdnaTest\.txt\:401\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{05D0}a\x{05C7}", %p)}, undef, "to_ascii\(\'\\u05D0a\\u05C7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:402\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{05D0}A\x{05C7}", %p)}, undef, "to_ascii\(\'\\u05D0A\\u05C7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:403\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{05D0}\x{05EA}", %p)}, "xn--4db6c", "to_ascii\(\'\\u05D0\\u05EA\'\)\ \[data\/IdnaTest\.txt\:404\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--4db6c", %p)}, "xn--4db6c", "to_ascii\(\'xn\-\-4db6c\'\)\ \[data\/IdnaTest\.txt\:405\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05D0}\x{05F3}\x{05EA}", %p)}, "xn--4db6c0a", "to_ascii\(\'\\u05D0\\u05F3\\u05EA\'\)\ \[data\/IdnaTest\.txt\:406\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--4db6c0a", %p)}, "xn--4db6c0a", "to_ascii\(\'xn\-\-4db6c0a\'\)\ \[data\/IdnaTest\.txt\:407\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{05D0}Tz", %p)}, undef, "to_ascii\(\'a\\u05D0Tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:408\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{05D0}tz", %p)}, undef, "to_ascii\(\'a\\u05D0tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:409\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{05D0}TZ", %p)}, undef, "to_ascii\(\'A\\u05D0TZ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:410\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{05D0}tz", %p)}, undef, "to_ascii\(\'A\\u05D0tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:411\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05D0}T\x{05EA}", %p)}, undef, "to_ascii\(\'\\u05D0T\\u05EA\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:412\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05D0}t\x{05EA}", %p)}, undef, "to_ascii\(\'\\u05D0t\\u05EA\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:413\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05D0}7\x{05EA}", %p)}, "xn--7-zhc3f", "to_ascii\(\'\\u05D07\\u05EA\'\)\ \[data\/IdnaTest\.txt\:414\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--7-zhc3f", %p)}, "xn--7-zhc3f", "to_ascii\(\'xn\-\-7\-zhc3f\'\)\ \[data\/IdnaTest\.txt\:415\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05D0}\x{0667}\x{05EA}", %p)}, "xn--4db6c6t", "to_ascii\(\'\\u05D0\\u0667\\u05EA\'\)\ \[data\/IdnaTest\.txt\:416\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--4db6c6t", %p)}, "xn--4db6c6t", "to_ascii\(\'xn\-\-4db6c6t\'\)\ \[data\/IdnaTest\.txt\:417\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a7\x{0667}z", %p)}, undef, "to_ascii\(\'a7\\u0667z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:418\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A7\x{0667}Z", %p)}, undef, "to_ascii\(\'A7\\u0667Z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:419\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A7\x{0667}z", %p)}, undef, "to_ascii\(\'A7\\u0667z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:420\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05D0}7\x{0667}\x{05EA}", %p)}, undef, "to_ascii\(\'\\u05D07\\u0667\\u05EA\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:421\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ஹ\x{0BCD}\x{200D}", %p)}, "xn--dmc4b", "to_ascii\(\'ஹ\\u0BCD\\u200D\'\)\ \[data\/IdnaTest\.txt\:422\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--dmc4b", %p)}, "xn--dmc4b", "to_ascii\(\'xn\-\-dmc4b\'\)\ \[data\/IdnaTest\.txt\:424\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ஹ\x{0BCD}", %p)}, "xn--dmc4b", "to_ascii\(\'ஹ\\u0BCD\'\)\ \[data\/IdnaTest\.txt\:425\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--dmc4b194h", %p)}, "xn--dmc4b194h", "to_ascii\(\'xn\-\-dmc4b194h\'\)\ \[data\/IdnaTest\.txt\:426\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ஹ\x{200D}", %p)}, "xn--dmc", "to_ascii\(\'ஹ\\u200D\'\)\ \[data\/IdnaTest\.txt\:427\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--dmc", %p)}, "xn--dmc", "to_ascii\(\'xn\-\-dmc\'\)\ \[data\/IdnaTest\.txt\:429\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ஹ", %p)}, "xn--dmc", "to_ascii\(\'ஹ\'\)\ \[data\/IdnaTest\.txt\:430\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:431\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ஹ\x{0BCD}\x{200C}", %p)}, "xn--dmc4b", "to_ascii\(\'ஹ\\u0BCD\\u200C\'\)\ \[data\/IdnaTest\.txt\:433\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--dmc4by94h", %p)}, "xn--dmc4by94h", "to_ascii\(\'xn\-\-dmc4by94h\'\)\ \[data\/IdnaTest\.txt\:435\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ஹ\x{200C}", %p)}, "xn--dmc", "to_ascii\(\'ஹ\\u200C\'\)\ \[data\/IdnaTest\.txt\:436\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}", %p)}, undef, "to_ascii\(\'\\u200C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:438\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{200C}\x{06ED}\x{06EF}", %p)}, "xn--ghb2gxqia", "to_ascii\(\'\\u0644\\u0670\\u200C\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:440\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb2gxqia", %p)}, "xn--ghb2gxqia", "to_ascii\(\'xn\-\-ghb2gxqia\'\)\ \[data\/IdnaTest\.txt\:442\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{06ED}\x{06EF}", %p)}, "xn--ghb2gxqia", "to_ascii\(\'\\u0644\\u0670\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:443\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb2gxqia7523a", %p)}, "xn--ghb2gxqia7523a", "to_ascii\(\'xn\-\-ghb2gxqia7523a\'\)\ \[data\/IdnaTest\.txt\:444\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{200C}\x{06EF}", %p)}, "xn--ghb2g3q", "to_ascii\(\'\\u0644\\u0670\\u200C\\u06EF\'\)\ \[data\/IdnaTest\.txt\:445\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb2g3q", %p)}, "xn--ghb2g3q", "to_ascii\(\'xn\-\-ghb2g3q\'\)\ \[data\/IdnaTest\.txt\:447\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{06EF}", %p)}, "xn--ghb2g3q", "to_ascii\(\'\\u0644\\u0670\\u06EF\'\)\ \[data\/IdnaTest\.txt\:448\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb2g3qq34f", %p)}, "xn--ghb2g3qq34f", "to_ascii\(\'xn\-\-ghb2g3qq34f\'\)\ \[data\/IdnaTest\.txt\:449\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{200C}\x{06ED}\x{06EF}", %p)}, "xn--ghb25aga", "to_ascii\(\'\\u0644\\u200C\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:450\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb25aga", %p)}, "xn--ghb25aga", "to_ascii\(\'xn\-\-ghb25aga\'\)\ \[data\/IdnaTest\.txt\:452\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{06ED}\x{06EF}", %p)}, "xn--ghb25aga", "to_ascii\(\'\\u0644\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:453\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb25aga828w", %p)}, "xn--ghb25aga828w", "to_ascii\(\'xn\-\-ghb25aga828w\'\)\ \[data\/IdnaTest\.txt\:454\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{200C}\x{06EF}", %p)}, "xn--ghb65a", "to_ascii\(\'\\u0644\\u200C\\u06EF\'\)\ \[data\/IdnaTest\.txt\:455\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb65a", %p)}, "xn--ghb65a", "to_ascii\(\'xn\-\-ghb65a\'\)\ \[data\/IdnaTest\.txt\:457\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{06EF}", %p)}, "xn--ghb65a", "to_ascii\(\'\\u0644\\u06EF\'\)\ \[data\/IdnaTest\.txt\:458\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb65a953d", %p)}, "xn--ghb65a953d", "to_ascii\(\'xn\-\-ghb65a953d\'\)\ \[data\/IdnaTest\.txt\:459\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{200C}\x{06ED}", %p)}, "xn--ghb2gxq", "to_ascii\(\'\\u0644\\u0670\\u200C\\u06ED\'\)\ \[data\/IdnaTest\.txt\:460\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb2gxq", %p)}, "xn--ghb2gxq", "to_ascii\(\'xn\-\-ghb2gxq\'\)\ \[data\/IdnaTest\.txt\:462\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{06ED}", %p)}, "xn--ghb2gxq", "to_ascii\(\'\\u0644\\u0670\\u06ED\'\)\ \[data\/IdnaTest\.txt\:463\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06EF}\x{200C}\x{06EF}", %p)}, "xn--cmba", "to_ascii\(\'\\u06EF\\u200C\\u06EF\'\)\ \[data\/IdnaTest\.txt\:464\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--cmba", %p)}, "xn--cmba", "to_ascii\(\'xn\-\-cmba\'\)\ \[data\/IdnaTest\.txt\:466\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06EF}\x{06EF}", %p)}, "xn--cmba", "to_ascii\(\'\\u06EF\\u06EF\'\)\ \[data\/IdnaTest\.txt\:467\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{200C}", %p)}, "xn--ghb", "to_ascii\(\'\\u0644\\u200C\'\)\ \[data\/IdnaTest\.txt\:468\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb", %p)}, "xn--ghb", "to_ascii\(\'xn\-\-ghb\'\)\ \[data\/IdnaTest\.txt\:470\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}", %p)}, "xn--ghb", "to_ascii\(\'\\u0644\'\)\ \[data\/IdnaTest\.txt\:471\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒕∝\x{065F}򓤦．-󠄯", %p)}, undef, "to_ascii\(\'⒕\∝\\u065F\?．\-\󠄯\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:475\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("14.∝\x{065F}򓤦.-󠄯", %p)}, undef, "to_ascii\(\'14\.\∝\\u065F\?\.\-\󠄯\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:476\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ꡣ.\x{07CF}", %p)}, "xn--8c9a.xn--qsb", "to_ascii\(\'ꡣ\.\\u07CF\'\)\ \[data\/IdnaTest\.txt\:477\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("xn--8c9a.xn--qsb", %p)}, "xn--8c9a.xn--qsb", "to_ascii\(\'xn\-\-8c9a\.xn\-\-qsb\'\)\ \[data\/IdnaTest\.txt\:478\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("≯\x{0603}｡-", %p)}, undef, "to_ascii\(\'\≯\\u0603｡\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:479\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}\x{0603}｡-", %p)}, undef, "to_ascii\(\'\>\\u0338\\u0603｡\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:480\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯\x{0603}。-", %p)}, undef, "to_ascii\(\'\≯\\u0603\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:481\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}\x{0603}。-", %p)}, undef, "to_ascii\(\'\>\\u0338\\u0603\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:482\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾛𐹧⾕.\x{115F}󠗰ςႭ", %p)}, undef, "to_ascii\(\'⾛𐹧⾕\.\\u115F\?ςႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:483\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("走𐹧谷.\x{115F}󠗰ςႭ", %p)}, undef, "to_ascii\(\'走𐹧谷\.\\u115F\?ςႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:484\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("走𐹧谷.\x{115F}󠗰ςⴍ", %p)}, undef, "to_ascii\(\'走𐹧谷\.\\u115F\?ςⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:485\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("走𐹧谷.\x{115F}󠗰ΣႭ", %p)}, undef, "to_ascii\(\'走𐹧谷\.\\u115F\?ΣႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:486\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("走𐹧谷.\x{115F}󠗰σⴍ", %p)}, undef, "to_ascii\(\'走𐹧谷\.\\u115F\?σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:487\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("走𐹧谷.\x{115F}󠗰Σⴍ", %p)}, undef, "to_ascii\(\'走𐹧谷\.\\u115F\?Σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:488\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾛𐹧⾕.\x{115F}󠗰ςⴍ", %p)}, undef, "to_ascii\(\'⾛𐹧⾕\.\\u115F\?ςⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:489\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾛𐹧⾕.\x{115F}󠗰ΣႭ", %p)}, undef, "to_ascii\(\'⾛𐹧⾕\.\\u115F\?ΣႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:490\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾛𐹧⾕.\x{115F}󠗰σⴍ", %p)}, undef, "to_ascii\(\'⾛𐹧⾕\.\\u115F\?σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:491\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾛𐹧⾕.\x{115F}󠗰Σⴍ", %p)}, undef, "to_ascii\(\'⾛𐹧⾕\.\\u115F\?Σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:492\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}≠ᢙ≯.솣-ᡴႠ", %p)}, undef, "to_ascii\(\'\\u200D\≠ᢙ\≯\.솣\-ᡴႠ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:493\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}=\x{0338}ᢙ>\x{0338}.솣-ᡴႠ", %p)}, undef, "to_ascii\(\'\\u200D\=\\u0338ᢙ\>\\u0338\.솣\-ᡴႠ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:495\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}=\x{0338}ᢙ>\x{0338}.솣-ᡴⴀ", %p)}, undef, "to_ascii\(\'\\u200D\=\\u0338ᢙ\>\\u0338\.솣\-ᡴⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:497\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}≠ᢙ≯.솣-ᡴⴀ", %p)}, undef, "to_ascii\(\'\\u200D\≠ᢙ\≯\.솣\-ᡴⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:499\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񯞜．𐿇\x{0FA2}\x{077D}\x{0600}", %p)}, undef, "to_ascii\(\'\?．\?\\u0FA2\\u077D\\u0600\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:501\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񯞜．𐿇\x{0FA1}\x{0FB7}\x{077D}\x{0600}", %p)}, undef, "to_ascii\(\'\?．\?\\u0FA1\\u0FB7\\u077D\\u0600\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:502\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񯞜.𐿇\x{0FA1}\x{0FB7}\x{077D}\x{0600}", %p)}, undef, "to_ascii\(\'\?\.\?\\u0FA1\\u0FB7\\u077D\\u0600\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:503\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𣳔\x{0303}.𑓂", %p)}, undef, "to_ascii\(\'𣳔\\u0303\.𑓂\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:504\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞤀𞥅񘐱。󠄌Ⴣꡥ", %p)}, undef, "to_ascii\(\'\?\?\?\。\󠄌Ⴣꡥ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:505\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤀𞥅񘐱。󠄌ⴣꡥ", %p)}, undef, "to_ascii\(\'\?\?\?\。\󠄌ⴣꡥ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:506\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08E2}𑁿ς𖬱。󠅡렧", %p)}, undef, "to_ascii\(\'\\u08E2𑁿ς𖬱\。\󠅡렧\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:507\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08E2}𑁿ς𖬱。󠅡렧", %p)}, undef, "to_ascii\(\'\\u08E2𑁿ς𖬱\。\󠅡렧\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:508\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08E2}𑁿Σ𖬱。󠅡렧", %p)}, undef, "to_ascii\(\'\\u08E2𑁿Σ𖬱\。\󠅡렧\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:509\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08E2}𑁿Σ𖬱。󠅡렧", %p)}, undef, "to_ascii\(\'\\u08E2𑁿Σ𖬱\。\󠅡렧\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:510\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08E2}𑁿σ𖬱。󠅡렧", %p)}, undef, "to_ascii\(\'\\u08E2𑁿σ𖬱\。\󠅡렧\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:511\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08E2}𑁿σ𖬱。󠅡렧", %p)}, undef, "to_ascii\(\'\\u08E2𑁿σ𖬱\。\󠅡렧\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:512\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{200D}。𞤍\x{200C}\x{200D}⒈", %p)}, undef, "to_ascii\(\'\-\\u200D\。\?\\u200C\\u200D⒈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:513\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("-\x{200D}。𞤍\x{200C}\x{200D}1.", %p)}, undef, "to_ascii\(\'\-\\u200D\。\?\\u200C\\u200D1\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:515\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}򅎭.Ⴒ𑇀", %p)}, undef, "to_ascii\(\'\\u200C\?\.Ⴒ𑇀\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:517\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}򅎭.ⴒ𑇀", %p)}, undef, "to_ascii\(\'\\u200C\?\.ⴒ𑇀\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:519\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("繱𑖿\x{200D}.８︒", %p)}, undef, "to_ascii\(\'繱𑖿\\u200D\.８︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:521\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("繱𑖿\x{200D}.8。", %p)}, "xn--gl0as212a.8.", "to_ascii\(\'繱𑖿\\u200D\.8\。\'\)\ \[data\/IdnaTest\.txt\:522\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--gl0as212a.8.", %p)}, "xn--gl0as212a.8.", "to_ascii\(\'xn\-\-gl0as212a\.8\.\'\)\ \[data\/IdnaTest\.txt\:524\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("繱𑖿.8.", %p)}, "xn--gl0as212a.8.", "to_ascii\(\'繱𑖿\.8\.\'\)\ \[data\/IdnaTest\.txt\:525\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--1ug6928ac48e.8.", %p)}, "xn--1ug6928ac48e.8.", "to_ascii\(\'xn\-\-1ug6928ac48e\.8\.\'\)\ \[data\/IdnaTest\.txt\:526\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("繱𑖿\x{200D}.8.", %p)}, "xn--gl0as212a.8.", "to_ascii\(\'繱𑖿\\u200D\.8\.\'\)\ \[data\/IdnaTest\.txt\:527\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("󠆾．𞀈", %p)}, undef, "to_ascii\(\'\󠆾．\?\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:529\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("󠆾.𞀈", %p)}, undef, "to_ascii\(\'\󠆾\.\?\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:530\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ß\x{06EB}。\x{200D}", %p)}, "xn--ss-59d.", "to_ascii\(\'ß\\u06EB\。\\u200D\'\)\ \[data\/IdnaTest\.txt\:531\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS\x{06EB}。\x{200D}", %p)}, "xn--ss-59d.", "to_ascii\(\'SS\\u06EB\。\\u200D\'\)\ \[data\/IdnaTest\.txt\:533\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss\x{06EB}。\x{200D}", %p)}, "xn--ss-59d.", "to_ascii\(\'ss\\u06EB\。\\u200D\'\)\ \[data\/IdnaTest\.txt\:535\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss\x{06EB}。\x{200D}", %p)}, "xn--ss-59d.", "to_ascii\(\'Ss\\u06EB\。\\u200D\'\)\ \[data\/IdnaTest\.txt\:537\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ss-59d.", %p)}, "xn--ss-59d.", "to_ascii\(\'xn\-\-ss\-59d\.\'\)\ \[data\/IdnaTest\.txt\:539\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss\x{06EB}.", %p)}, "xn--ss-59d.", "to_ascii\(\'ss\\u06EB\.\'\)\ \[data\/IdnaTest\.txt\:540\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS\x{06EB}.", %p)}, "xn--ss-59d.", "to_ascii\(\'SS\\u06EB\.\'\)\ \[data\/IdnaTest\.txt\:541\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss\x{06EB}.", %p)}, "xn--ss-59d.", "to_ascii\(\'Ss\\u06EB\.\'\)\ \[data\/IdnaTest\.txt\:542\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠐵\x{200C}⒈．󠎇", %p)}, undef, "to_ascii\(\'\?\\u200C⒈．\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:543\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠐵\x{200C}1..󠎇", %p)}, undef, "to_ascii\(\'\?\\u200C1\.\.\?\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:545\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󟈣\x{065F}\x{AAB2}ß。󌓧", %p)}, undef, "to_ascii\(\'\?\\u065F\\uAAB2ß\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:547\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󟈣\x{065F}\x{AAB2}SS。󌓧", %p)}, undef, "to_ascii\(\'\?\\u065F\\uAAB2SS\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:548\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󟈣\x{065F}\x{AAB2}ss。󌓧", %p)}, undef, "to_ascii\(\'\?\\u065F\\uAAB2ss\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:549\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󟈣\x{065F}\x{AAB2}Ss。󌓧", %p)}, undef, "to_ascii\(\'\?\\u065F\\uAAB2Ss\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:550\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0774}\x{200C}𞤿。𽘐䉜\x{200D}񿤼", %p)}, undef, "to_ascii\(\'\\u0774\\u200C\?\。\?䉜\\u200D\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:551\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜ςᡱ⒈.≮𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?ςᡱ⒈\.\≮𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:553\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜ςᡱ⒈.<\x{0338}𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?ςᡱ⒈\.\<\\u0338𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:554\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜ςᡱ1..≮𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?ςᡱ1\.\.\≮𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:555\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜ςᡱ1..<\x{0338}𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?ςᡱ1\.\.\<\\u0338𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:556\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜Σᡱ1..<\x{0338}𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?Σᡱ1\.\.\<\\u0338𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:557\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜Σᡱ1..≮𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?Σᡱ1\.\.\≮𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:558\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜σᡱ1..≮𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?σᡱ1\.\.\≮𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:559\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜σᡱ1..<\x{0338}𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?σᡱ1\.\.\<\\u0338𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:560\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜Σᡱ⒈.<\x{0338}𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?Σᡱ⒈\.\<\\u0338𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:561\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜Σᡱ⒈.≮𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?Σᡱ⒈\.\≮𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:562\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜σᡱ⒈.≮𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?σᡱ⒈\.\≮𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:563\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜σᡱ⒈.<\x{0338}𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?σᡱ⒈\.\<\\u0338𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:564\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{3164}\x{094D}Ⴀ\x{17D0}.\x{180B}", %p)}, undef, "to_ascii\(\'\\u3164\\u094DႠ\\u17D0\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:565\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1160}\x{094D}Ⴀ\x{17D0}.\x{180B}", %p)}, undef, "to_ascii\(\'\\u1160\\u094DႠ\\u17D0\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:566\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1160}\x{094D}ⴀ\x{17D0}.\x{180B}", %p)}, undef, "to_ascii\(\'\\u1160\\u094Dⴀ\\u17D0\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:567\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{3164}\x{094D}ⴀ\x{17D0}.\x{180B}", %p)}, undef, "to_ascii\(\'\\u3164\\u094Dⴀ\\u17D0\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:568\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("❣\x{200D}．\x{09CD}𑰽\x{0612}\x{A929}", %p)}, undef, "to_ascii\(\'\❣\\u200D．\\u09CD\?\\u0612\\uA929\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:569\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("❣\x{200D}.\x{09CD}𑰽\x{0612}\x{A929}", %p)}, undef, "to_ascii\(\'\❣\\u200D\.\\u09CD\?\\u0612\\uA929\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:571\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("≮𐳺𐹄.≯񪮸ꡅ", %p)}, undef, "to_ascii\(\'\≮𐳺\?\.\≯\?ꡅ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:573\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𐳺𐹄.>\x{0338}񪮸ꡅ", %p)}, undef, "to_ascii\(\'\<\\u0338𐳺\?\.\>\\u0338\?ꡅ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:574\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0CCC}𐧅𐳏󠲺｡\x{0CCD}ᠦ", %p)}, undef, "to_ascii\(\'\\u0CCC𐧅𐳏\?｡\\u0CCDᠦ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:575\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0CCC}𐧅𐳏󠲺。\x{0CCD}ᠦ", %p)}, undef, "to_ascii\(\'\\u0CCC𐧅𐳏\?\。\\u0CCDᠦ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:576\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0CCC}𐧅𐲏󠲺。\x{0CCD}ᠦ", %p)}, undef, "to_ascii\(\'\\u0CCC𐧅𐲏\?\。\\u0CCDᠦ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:577\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0CCC}𐧅𐲏󠲺｡\x{0CCD}ᠦ", %p)}, undef, "to_ascii\(\'\\u0CCC𐧅𐲏\?｡\\u0CCDᠦ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:578\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0349}。𧡫", %p)}, undef, "to_ascii\(\'\\u0349\。𧡫\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:579\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰿󠅦．\x{1160}", %p)}, undef, "to_ascii\(\'\?\󠅦．\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:580\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰿󠅦.\x{1160}", %p)}, undef, "to_ascii\(\'\?\󠅦\.\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:581\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𞤆\x{200D}。󸼄𞳒", %p)}, undef, "to_ascii\(\'\-\?\\u200D\。\?\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:582\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡏ󠇶≯𳾽。\x{1DFD}⾇滸𐹰", %p)}, undef, "to_ascii\(\'ꡏ\?\≯\?\。\\u1DFD⾇滸𐹰\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:584\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡏ󠇶>\x{0338}𳾽。\x{1DFD}⾇滸𐹰", %p)}, undef, "to_ascii\(\'ꡏ\?\>\\u0338\?\。\\u1DFD⾇滸𐹰\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:585\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡏ󠇶≯𳾽。\x{1DFD}舛滸𐹰", %p)}, undef, "to_ascii\(\'ꡏ\?\≯\?\。\\u1DFD舛滸𐹰\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:586\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡏ󠇶>\x{0338}𳾽。\x{1DFD}舛滸𐹰", %p)}, undef, "to_ascii\(\'ꡏ\?\>\\u0338\?\。\\u1DFD舛滸𐹰\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:587\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("蔏｡𑰺", %p)}, undef, "to_ascii\(\'蔏｡\?\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:588\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("蔏。𑰺", %p)}, undef, "to_ascii\(\'蔏\。\?\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:589\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𝟿𐮋。󠄊", %p)}, undef, "to_ascii\(\'𝟿𐮋\。\󠄊\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:590\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("9𐮋。󠄊", %p)}, undef, "to_ascii\(\'9𐮋\。\󠄊\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:591\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󟇇-䟖F。\x{07CB}⒈\x{0662}", %p)}, undef, "to_ascii\(\'\?\-䟖F\。\\u07CB⒈\\u0662\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:592\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󟇇-䟖F。\x{07CB}1.\x{0662}", %p)}, undef, "to_ascii\(\'\?\-䟖F\。\\u07CB1\.\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:593\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󟇇-䟖f。\x{07CB}1.\x{0662}", %p)}, undef, "to_ascii\(\'\?\-䟖f\。\\u07CB1\.\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:594\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󟇇-䟖f。\x{07CB}⒈\x{0662}", %p)}, undef, "to_ascii\(\'\?\-䟖f\。\\u07CB⒈\\u0662\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:595\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}｡𐹺", %p)}, undef, "to_ascii\(\'\\u200C｡𐹺\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:596\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}。𐹺", %p)}, undef, "to_ascii\(\'\\u200C\。𐹺\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:598\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐡆.≯\x{200C}-𞥀", %p)}, undef, "to_ascii\(\'𐡆\.\≯\\u200C\-\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:600\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐡆.>\x{0338}\x{200C}-𞥀", %p)}, undef, "to_ascii\(\'𐡆\.\>\\u0338\\u200C\-\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:602\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠁀-。≠\x{FCD7}", %p)}, undef, "to_ascii\(\'\?\-\。\≠\\uFCD7\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:604\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠁀-。=\x{0338}\x{FCD7}", %p)}, undef, "to_ascii\(\'\?\-\。\=\\u0338\\uFCD7\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:605\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠁀-。≠\x{0647}\x{062C}", %p)}, undef, "to_ascii\(\'\?\-\。\≠\\u0647\\u062C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:606\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠁀-。=\x{0338}\x{0647}\x{062C}", %p)}, undef, "to_ascii\(\'\?\-\。\=\\u0338\\u0647\\u062C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:607\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻬹𑈵。\x{200D}𞨶", %p)}, undef, "to_ascii\(\'\?𑈵\。\\u200D\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:608\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑋧\x{A9C0}2｡㧉򒖄", %p)}, undef, "to_ascii\(\'𑋧\\uA9C02｡㧉\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:610\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑋧\x{A9C0}2。㧉򒖄", %p)}, undef, "to_ascii\(\'𑋧\\uA9C02\。㧉\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:611\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𽬄𐹴𞩥。≯6", %p)}, undef, "to_ascii\(\'\\u200C\?𐹴\?\。\≯6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:612\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𽬄𐹴𞩥。>\x{0338}6", %p)}, undef, "to_ascii\(\'\\u200C\?𐹴\?\。\>\\u03386\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:614\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑁿．𐹦𻞵-\x{200D}", %p)}, undef, "to_ascii\(\'𑁿．𐹦\?\-\\u200D\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:616\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑁿.𐹦𻞵-\x{200D}", %p)}, undef, "to_ascii\(\'𑁿\.𐹦\?\-\\u200D\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:618\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⤸ς𺱀｡\x{FFA0}", %p)}, undef, "to_ascii\(\'\⤸ς\?｡\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:620\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⤸ς𺱀。\x{1160}", %p)}, undef, "to_ascii\(\'\⤸ς\?\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:621\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⤸Σ𺱀。\x{1160}", %p)}, undef, "to_ascii\(\'\⤸Σ\?\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:622\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⤸σ𺱀。\x{1160}", %p)}, undef, "to_ascii\(\'\⤸σ\?\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:623\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⤸Σ𺱀｡\x{FFA0}", %p)}, undef, "to_ascii\(\'\⤸Σ\?｡\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:624\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⤸σ𺱀｡\x{FFA0}", %p)}, undef, "to_ascii\(\'\⤸σ\?｡\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:625\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0765}\x{1035}𐫔\x{06D5}.𐦬𑋪Ⴃ", %p)}, undef, "to_ascii\(\'\\u0765\\u1035𐫔\\u06D5\.𐦬𑋪Ⴃ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:626\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0765}\x{1035}𐫔\x{06D5}.𐦬𑋪ⴃ", %p)}, undef, "to_ascii\(\'\\u0765\\u1035𐫔\\u06D5\.𐦬𑋪ⴃ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:627\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0661}\x{1B44}-킼.\x{1BAA}\x{0616}\x{066C}≯", %p)}, undef, "to_ascii\(\'\\u0661\\u1B44\-킼\.\\u1BAA\\u0616\\u066C\≯\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:628\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0661}\x{1B44}-킼.\x{1BAA}\x{0616}\x{066C}>\x{0338}", %p)}, undef, "to_ascii\(\'\\u0661\\u1B44\-킼\.\\u1BAA\\u0616\\u066C\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:629\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-。\x{06C2}\x{0604}򅖡𑓂", %p)}, undef, "to_ascii\(\'\-\。\\u06C2\\u0604\?𑓂\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:630\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-。\x{06C1}\x{0654}\x{0604}򅖡𑓂", %p)}, undef, "to_ascii\(\'\-\。\\u06C1\\u0654\\u0604\?𑓂\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:631\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}󯑖󠁐．\x{05BD}𙮰ꡝ𐋡", %p)}, undef, "to_ascii\(\'\\u200D\?\?．\\u05BD\?ꡝ𐋡\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:632\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}󯑖󠁐.\x{05BD}𙮰ꡝ𐋡", %p)}, undef, "to_ascii\(\'\\u200D\?\?\.\\u05BD\?ꡝ𐋡\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:634\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒􃈵ς񀠇｡𐮈", %p)}, undef, "to_ascii\(\'︒\?ς\?｡𐮈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:636\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。􃈵ς񀠇。𐮈", %p)}, undef, "to_ascii\(\'\。\?ς\?\。𐮈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:637\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。􃈵Σ񀠇。𐮈", %p)}, undef, "to_ascii\(\'\。\?Σ\?\。𐮈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:638\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。􃈵σ񀠇。𐮈", %p)}, undef, "to_ascii\(\'\。\?σ\?\。𐮈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:639\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒􃈵Σ񀠇｡𐮈", %p)}, undef, "to_ascii\(\'︒\?Σ\?｡𐮈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:640\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒􃈵σ񀠇｡𐮈", %p)}, undef, "to_ascii\(\'︒\?σ\?｡𐮈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:641\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07D9}．\x{06EE}󆾃≯󠅲", %p)}, undef, "to_ascii\(\'\\u07D9．\\u06EE\?\≯\󠅲\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:642\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07D9}．\x{06EE}󆾃>\x{0338}󠅲", %p)}, undef, "to_ascii\(\'\\u07D9．\\u06EE\?\>\\u0338\󠅲\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:643\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07D9}.\x{06EE}󆾃≯󠅲", %p)}, undef, "to_ascii\(\'\\u07D9\.\\u06EE\?\≯\󠅲\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:644\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07D9}.\x{06EE}󆾃>\x{0338}󠅲", %p)}, undef, "to_ascii\(\'\\u07D9\.\\u06EE\?\>\\u0338\󠅲\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:645\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1A73}󚙸.𐭍", %p)}, undef, "to_ascii\(\'\\u1A73\?\.𐭍\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:646\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒉󠊓≠｡Ⴟ⬣Ⴈ", %p)}, undef, "to_ascii\(\'⒉\?\≠｡Ⴟ\⬣Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:647\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒉󠊓=\x{0338}｡Ⴟ⬣Ⴈ", %p)}, undef, "to_ascii\(\'⒉\?\=\\u0338｡Ⴟ\⬣Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:648\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("2.󠊓≠。Ⴟ⬣Ⴈ", %p)}, undef, "to_ascii\(\'2\.\?\≠\。Ⴟ\⬣Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:649\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("2.󠊓=\x{0338}。Ⴟ⬣Ⴈ", %p)}, undef, "to_ascii\(\'2\.\?\=\\u0338\。Ⴟ\⬣Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:650\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("2.󠊓=\x{0338}。ⴟ⬣ⴈ", %p)}, undef, "to_ascii\(\'2\.\?\=\\u0338\。ⴟ\⬣ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:651\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("2.󠊓≠。ⴟ⬣ⴈ", %p)}, undef, "to_ascii\(\'2\.\?\≠\。ⴟ\⬣ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:652\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒉󠊓=\x{0338}｡ⴟ⬣ⴈ", %p)}, undef, "to_ascii\(\'⒉\?\=\\u0338｡ⴟ\⬣ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:653\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒉󠊓≠｡ⴟ⬣ⴈ", %p)}, undef, "to_ascii\(\'⒉\?\≠｡ⴟ\⬣ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:654\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-󠉱\x{0FB8}Ⴥ。-𐹽\x{0774}𞣑", %p)}, undef, "to_ascii\(\'\-\?\\u0FB8Ⴥ\。\-𐹽\\u0774𞣑\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:655\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-󠉱\x{0FB8}ⴥ。-𐹽\x{0774}𞣑", %p)}, undef, "to_ascii\(\'\-\?\\u0FB8ⴥ\。\-𐹽\\u0774𞣑\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:656\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0659}。𑄴︒\x{0627}\x{07DD}", %p)}, undef, "to_ascii\(\'\\u0659\。𑄴︒\\u0627\\u07DD\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:657\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{0659}。𑄴。\x{0627}\x{07DD}", %p)}, undef, "to_ascii\(\'\\u0659\。𑄴\。\\u0627\\u07DD\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:658\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴙ\x{0638}.󠆓\x{200D}", %p)}, undef, "to_ascii\(\'Ⴙ\\u0638\.\󠆓\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:659\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴙ\x{0638}.󠆓\x{200D}", %p)}, undef, "to_ascii\(\'ⴙ\\u0638\.\󠆓\\u200D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:661\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󠆸｡₆０𐺧\x{0756}", %p)}, undef, "to_ascii\(\'\󠆸｡₆０\?\\u0756\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:663\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠆸。60𐺧\x{0756}", %p)}, undef, "to_ascii\(\'\󠆸\。60\?\\u0756\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:664\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("6\x{084F}｡-𑈴", %p)}, undef, "to_ascii\(\'6\\u084F｡\-𑈴\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:665\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("6\x{084F}。-𑈴", %p)}, undef, "to_ascii\(\'6\\u084F\。\-𑈴\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:666\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}񋌿𐹰｡\x{0ACD}ς𞰎\x{08D6}", %p)}, undef, "to_ascii\(\'\\u200D\?𐹰｡\\u0ACDς\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:667\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}񋌿𐹰。\x{0ACD}ς𞰎\x{08D6}", %p)}, undef, "to_ascii\(\'\\u200D\?𐹰\。\\u0ACDς\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:669\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}񋌿𐹰。\x{0ACD}Σ𞰎\x{08D6}", %p)}, undef, "to_ascii\(\'\\u200D\?𐹰\。\\u0ACDΣ\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:671\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}񋌿𐹰。\x{0ACD}σ𞰎\x{08D6}", %p)}, undef, "to_ascii\(\'\\u200D\?𐹰\。\\u0ACDσ\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:673\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}񋌿𐹰｡\x{0ACD}Σ𞰎\x{08D6}", %p)}, undef, "to_ascii\(\'\\u200D\?𐹰｡\\u0ACDΣ\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:675\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}񋌿𐹰｡\x{0ACD}σ𞰎\x{08D6}", %p)}, undef, "to_ascii\(\'\\u200D\?𐹰｡\\u0ACDσ\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:677\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈񟄜Ⴓ⒪．\x{0DCA}򘘶\x{088B}𐹢", %p)}, undef, "to_ascii\(\'⒈\?Ⴓ⒪．\\u0DCA\?\\u088B𐹢\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:679\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.񟄜Ⴓ(o).\x{0DCA}򘘶\x{088B}𐹢", %p)}, undef, "to_ascii\(\'1\.\?Ⴓ\(o\)\.\\u0DCA\?\\u088B𐹢\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:680\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.񟄜ⴓ(o).\x{0DCA}򘘶\x{088B}𐹢", %p)}, undef, "to_ascii\(\'1\.\?ⴓ\(o\)\.\\u0DCA\?\\u088B𐹢\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:681\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.񟄜Ⴓ(O).\x{0DCA}򘘶\x{088B}𐹢", %p)}, undef, "to_ascii\(\'1\.\?Ⴓ\(O\)\.\\u0DCA\?\\u088B𐹢\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:682\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈񟄜ⴓ⒪．\x{0DCA}򘘶\x{088B}𐹢", %p)}, undef, "to_ascii\(\'⒈\?ⴓ⒪．\\u0DCA\?\\u088B𐹢\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:683\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤷.𐮐𞢁𐹠\x{0624}", %p)}, "xn--ve6h.xn--jgb1694kz0b2176a", "to_ascii\(\'\?\.𐮐𞢁𐹠\\u0624\'\)\ \[data\/IdnaTest\.txt\:684\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤷.𐮐𞢁𐹠\x{0648}\x{0654}", %p)}, "xn--ve6h.xn--jgb1694kz0b2176a", "to_ascii\(\'\?\.𐮐𞢁𐹠\\u0648\\u0654\'\)\ \[data\/IdnaTest\.txt\:685\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--ve6h.xn--jgb1694kz0b2176a", %p)}, "xn--ve6h.xn--jgb1694kz0b2176a", "to_ascii\(\'xn\-\-ve6h\.xn\-\-jgb1694kz0b2176a\'\)\ \[data\/IdnaTest\.txt\:686\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐲈-｡𑄳񢌻", %p)}, undef, "to_ascii\(\'𐲈\-｡𑄳\?\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:687\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐲈-。𑄳񢌻", %p)}, undef, "to_ascii\(\'𐲈\-\。𑄳\?\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:688\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐳈-。𑄳񢌻", %p)}, undef, "to_ascii\(\'𐳈\-\。𑄳\?\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:689\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐳈-｡𑄳񢌻", %p)}, undef, "to_ascii\(\'𐳈\-｡𑄳\?\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:690\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-󠉖ꡧ．󠊂񇆃🄉", %p)}, undef, "to_ascii\(\'\-\?ꡧ．\?\?🄉\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:691\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-󠉖ꡧ.󠊂񇆃8,", %p)}, undef, "to_ascii\(\'\-\?ꡧ\.\?\?8\,\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:692\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠾛󠈴臯𧔤.\x{0768}𝟝", %p)}, undef, "to_ascii\(\'\?\?臯𧔤\.\\u0768𝟝\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:693\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠾛󠈴臯𧔤.\x{0768}5", %p)}, undef, "to_ascii\(\'\?\?臯𧔤\.\\u07685\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:694\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮𐹣．𝨿", %p)}, undef, "to_ascii\(\'\≮𐹣．𝨿\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:695\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𐹣．𝨿", %p)}, undef, "to_ascii\(\'\<\\u0338𐹣．𝨿\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:696\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮𐹣.𝨿", %p)}, undef, "to_ascii\(\'\≮𐹣\.𝨿\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:697\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𐹣.𝨿", %p)}, undef, "to_ascii\(\'\<\\u0338𐹣\.𝨿\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:698\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("𐹯ᯛ\x{0A4D}｡脥", %p)}, undef, "to_ascii\(\'𐹯ᯛ\\u0A4D｡脥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:699\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("𐹯ᯛ\x{0A4D}。脥", %p)}, undef, "to_ascii\(\'𐹯ᯛ\\u0A4D\。脥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:700\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{1B44}\x{115F}𞷿򃀍.-", %p)}, undef, "to_ascii\(\'\\u1B44\\u115F\?\?\.\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:701\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}｡\x{0354}", %p)}, undef, "to_ascii\(\'\\u200C｡\\u0354\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:702\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}。\x{0354}", %p)}, undef, "to_ascii\(\'\\u200C\。\\u0354\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:704\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤥󠅮．ᡄႮ", %p)}, undef, "to_ascii\(\'\?\󠅮．ᡄႮ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:706\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤥󠅮.ᡄႮ", %p)}, undef, "to_ascii\(\'\?\󠅮\.ᡄႮ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:707\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤥󠅮.ᡄⴎ", %p)}, "xn--de6h.xn--37e857h", "to_ascii\(\'\?\󠅮\.ᡄⴎ\'\)\ \[data\/IdnaTest\.txt\:708\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--de6h.xn--37e857h", %p)}, "xn--de6h.xn--37e857h", "to_ascii\(\'xn\-\-de6h\.xn\-\-37e857h\'\)\ \[data\/IdnaTest\.txt\:709\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤥.ᡄⴎ", %p)}, "xn--de6h.xn--37e857h", "to_ascii\(\'\?\.ᡄⴎ\'\)\ \[data\/IdnaTest\.txt\:710\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞤥.ᡄႮ", %p)}, undef, "to_ascii\(\'\?\.ᡄႮ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:711\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤥󠅮．ᡄⴎ", %p)}, "xn--de6h.xn--37e857h", "to_ascii\(\'\?\󠅮．ᡄⴎ\'\)\ \[data\/IdnaTest\.txt\:712\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤧𝨨Ξ．𪺏㛨❸", %p)}, undef, "to_ascii\(\'\?𝨨Ξ．𪺏㛨❸\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:713\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤧𝨨Ξ.𪺏㛨❸", %p)}, undef, "to_ascii\(\'\?𝨨Ξ\.𪺏㛨❸\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:714\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤧𝨨ξ.𪺏㛨❸", %p)}, undef, "to_ascii\(\'\?𝨨ξ\.𪺏㛨❸\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:715\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤧𝨨ξ．𪺏㛨❸", %p)}, undef, "to_ascii\(\'\?𝨨ξ．𪺏㛨❸\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:716\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("᠆몆\x{200C}-｡Ⴛ𐦅︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-｡Ⴛ𐦅︒\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:717\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("᠆몆\x{200C}-｡Ⴛ𐦅︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-｡Ⴛ𐦅︒\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:719\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ𐦅。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。Ⴛ𐦅\。\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:721\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ𐦅。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。Ⴛ𐦅\。\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:723\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ𐦅。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。ⴛ𐦅\。\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:725\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ𐦅。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。ⴛ𐦅\。\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:727\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("᠆몆\x{200C}-｡ⴛ𐦅︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-｡ⴛ𐦅︒\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:729\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("᠆몆\x{200C}-｡ⴛ𐦅︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-｡ⴛ𐦅︒\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:731\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠾳.︒⥱\x{200C}𐹬", %p)}, undef, "to_ascii\(\'\?\.︒\⥱\\u200C𐹬\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:733\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠾳.。⥱\x{200C}𐹬", %p)}, undef, "to_ascii\(\'\?\.\。\⥱\\u200C𐹬\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:735\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐯖.𐹠Ⴑ񚇜𐫊", %p)}, undef, "to_ascii\(\'\?\.𐹠Ⴑ\?𐫊\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:737\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐯖.𐹠ⴑ񚇜𐫊", %p)}, undef, "to_ascii\(\'\?\.𐹠ⴑ\?𐫊\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:738\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0FA4}񱤯．𝟭Ⴛ", %p)}, undef, "to_ascii\(\'\\u0FA4\?．𝟭Ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:739\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0FA4}񱤯.1Ⴛ", %p)}, undef, "to_ascii\(\'\\u0FA4\?\.1Ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:740\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0FA4}񱤯.1ⴛ", %p)}, undef, "to_ascii\(\'\\u0FA4\?\.1ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:741\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0FA4}񱤯．𝟭ⴛ", %p)}, undef, "to_ascii\(\'\\u0FA4\?．𝟭ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:742\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{0826}齀。릿𐸋", %p)}, undef, "to_ascii\(\'\-\\u0826齀\。릿\?\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:743\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{0826}齀。릿𐸋", %p)}, undef, "to_ascii\(\'\-\\u0826齀\。릿\?\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:744\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠔊\x{071C}鹝꾗。񾵐\x{200D}\x{200D}⏃", %p)}, undef, "to_ascii\(\'\?\\u071C鹝꾗\。\?\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:745\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠔊\x{071C}鹝꾗。񾵐\x{200D}\x{200D}⏃", %p)}, undef, "to_ascii\(\'\?\\u071C鹝꾗\。\?\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:747\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮．-\x{0708}--", %p)}, undef, "to_ascii\(\'\≮．\-\\u0708\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:749\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}．-\x{0708}--", %p)}, undef, "to_ascii\(\'\<\\u0338．\-\\u0708\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:750\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮.-\x{0708}--", %p)}, undef, "to_ascii\(\'\≮\.\-\\u0708\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:751\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}.-\x{0708}--", %p)}, undef, "to_ascii\(\'\<\\u0338\.\-\\u0708\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:752\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹸󠋳。\x{200D}ς𝟩", %p)}, undef, "to_ascii\(\'𐹸\?\。\\u200Dς𝟩\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:753\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹸󠋳。\x{200D}ς7", %p)}, undef, "to_ascii\(\'𐹸\?\。\\u200Dς7\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:755\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹸󠋳。\x{200D}Σ7", %p)}, undef, "to_ascii\(\'𐹸\?\。\\u200DΣ7\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:757\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹸󠋳。\x{200D}σ7", %p)}, undef, "to_ascii\(\'𐹸\?\。\\u200Dσ7\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:759\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹸󠋳。\x{200D}Σ𝟩", %p)}, undef, "to_ascii\(\'𐹸\?\。\\u200DΣ𝟩\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:761\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹸󠋳。\x{200D}σ𝟩", %p)}, undef, "to_ascii\(\'𐹸\?\。\\u200Dσ𝟩\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:763\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς򅜌８.𞭤", %p)}, undef, "to_ascii\(\'ς\?８\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:765\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς򅜌8.𞭤", %p)}, undef, "to_ascii\(\'ς\?8\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:766\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ򅜌8.𞭤", %p)}, undef, "to_ascii\(\'Σ\?8\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:767\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ򅜌8.𞭤", %p)}, undef, "to_ascii\(\'σ\?8\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:768\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ򅜌８.𞭤", %p)}, undef, "to_ascii\(\'Σ\?８\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:769\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ򅜌８.𞭤", %p)}, undef, "to_ascii\(\'σ\?８\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:770\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ᡑ🄀\x{0684}．-𐫄𑲤", %p)}, undef, "to_ascii\(\'\\u200Cᡑ🄀\\u0684．\-𐫄\?\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:771\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{200C}ᡑ0.\x{0684}.-𐫄𑲤", %p)}, undef, "to_ascii\(\'\\u200Cᡑ0\.\\u0684\.\-𐫄\?\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:773\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𖠍。𐪿넯򞵲", %p)}, undef, "to_ascii\(\'𖠍\。\?넯\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:775\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𖠍。𐪿넯򞵲", %p)}, undef, "to_ascii\(\'𖠍\。\?넯\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:776\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("᠇Ⴘ。\x{0603}Ⴈ𝆊", %p)}, undef, "to_ascii\(\'᠇Ⴘ\。\\u0603Ⴈ𝆊\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:777\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("᠇ⴘ。\x{0603}ⴈ𝆊", %p)}, undef, "to_ascii\(\'᠇ⴘ\。\\u0603ⴈ𝆊\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:778\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒚󠋑𞤰。牣\x{0667}Ⴜᣥ", %p)}, undef, "to_ascii\(\'⒚\?\?\。牣\\u0667Ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:779\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("19.󠋑𞤰。牣\x{0667}Ⴜᣥ", %p)}, undef, "to_ascii\(\'19\.\?\?\。牣\\u0667Ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:780\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("19.󠋑𞤰。牣\x{0667}ⴜᣥ", %p)}, undef, "to_ascii\(\'19\.\?\?\。牣\\u0667ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:781\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒚󠋑𞤰。牣\x{0667}ⴜᣥ", %p)}, undef, "to_ascii\(\'⒚\?\?\。牣\\u0667ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:782\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𐋱𐰽⒈.Ⴓ", %p)}, undef, "to_ascii\(\'\-𐋱𐰽⒈\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:783\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𐋱𐰽1..Ⴓ", %p)}, undef, "to_ascii\(\'\-𐋱𐰽1\.\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ A4_2\ \[data\/IdnaTest\.txt\:784\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-𐋱𐰽1..ⴓ", %p)}, undef, "to_ascii\(\'\-𐋱𐰽1\.\.ⴓ\'\)\ throws\ error\ V3\ B1\ A4_2\ \[data\/IdnaTest\.txt\:785\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-𐋱𐰽⒈.ⴓ", %p)}, undef, "to_ascii\(\'\-𐋱𐰽⒈\.ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:786\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}긃.榶-", %p)}, undef, "to_ascii\(\'\\u200C긃\.榶\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:787\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}긃.榶-", %p)}, undef, "to_ascii\(\'\\u200C긃\.榶\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:789\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("뉓泓𜵽.\x{09CD}\x{200D}", %p)}, undef, "to_ascii\(\'뉓泓\?\.\\u09CD\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:791\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("뉓泓𜵽.\x{09CD}\x{200D}", %p)}, undef, "to_ascii\(\'뉓泓\?\.\\u09CD\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:792\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹴ß｡\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_ascii\(\'\\u200D𐹴ß｡\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:793\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹴ß。\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_ascii\(\'\\u200D𐹴ß\。\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:795\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹴SS。\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_ascii\(\'\\u200D𐹴SS\。\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:797\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹴ss。\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_ascii\(\'\\u200D𐹴ss\。\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:799\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹴Ss。\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_ascii\(\'\\u200D𐹴Ss\。\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:801\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹴SS｡\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_ascii\(\'\\u200D𐹴SS｡\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:803\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹴ss｡\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_ascii\(\'\\u200D𐹴ss｡\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:805\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹴Ss｡\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_ascii\(\'\\u200D𐹴Ss｡\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:807\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1B44}．\x{1BAA}-≮≠", %p)}, undef, "to_ascii\(\'\\u1B44．\\u1BAA\-\≮\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:809\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1B44}．\x{1BAA}-<\x{0338}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u1B44．\\u1BAA\-\<\\u0338\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:810\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1B44}.\x{1BAA}-≮≠", %p)}, undef, "to_ascii\(\'\\u1B44\.\\u1BAA\-\≮\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:811\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1B44}.\x{1BAA}-<\x{0338}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u1B44\.\\u1BAA\-\<\\u0338\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:812\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}Ⴑ\x{115F}．𑄴Ⅎ", %p)}, undef, "to_ascii\(\'\\u1BF3Ⴑ\\u115F．𑄴Ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:813\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}Ⴑ\x{115F}.𑄴Ⅎ", %p)}, undef, "to_ascii\(\'\\u1BF3Ⴑ\\u115F\.𑄴Ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:814\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}ⴑ\x{115F}.𑄴ⅎ", %p)}, undef, "to_ascii\(\'\\u1BF3ⴑ\\u115F\.𑄴ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:815\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}Ⴑ\x{115F}.𑄴ⅎ", %p)}, undef, "to_ascii\(\'\\u1BF3Ⴑ\\u115F\.𑄴ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:816\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}ⴑ\x{115F}．𑄴ⅎ", %p)}, undef, "to_ascii\(\'\\u1BF3ⴑ\\u115F．𑄴ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:817\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}Ⴑ\x{115F}．𑄴ⅎ", %p)}, undef, "to_ascii\(\'\\u1BF3Ⴑ\\u115F．𑄴ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:818\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𜉆。Ⴃ𐴣𐹹똯", %p)}, undef, "to_ascii\(\'\?\。Ⴃ\?𐹹똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:819\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𜉆。Ⴃ𐴣𐹹똯", %p)}, undef, "to_ascii\(\'\?\。Ⴃ\?𐹹똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:820\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𜉆。ⴃ𐴣𐹹똯", %p)}, undef, "to_ascii\(\'\?\。ⴃ\?𐹹똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:821\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𜉆。ⴃ𐴣𐹹똯", %p)}, undef, "to_ascii\(\'\?\。ⴃ\?𐹹똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:822\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫀｡⳻󠙾󠄷\x{3164}", %p)}, undef, "to_ascii\(\'𐫀｡⳻\?\󠄷\\u3164\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:823\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫀。⳻󠙾󠄷\x{1160}", %p)}, undef, "to_ascii\(\'𐫀\。⳻\?\󠄷\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:824\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{079A}⾇．\x{071E}-𐋰", %p)}, undef, "to_ascii\(\'\\u079A⾇．\\u071E\-𐋰\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:825\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{079A}舛.\x{071E}-𐋰", %p)}, undef, "to_ascii\(\'\\u079A舛\.\\u071E\-𐋰\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:826\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴉ猕󹛫≮．︒", %p)}, undef, "to_ascii\(\'Ⴉ猕\?\≮．︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:827\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴉ猕󹛫<\x{0338}．︒", %p)}, undef, "to_ascii\(\'Ⴉ猕\?\<\\u0338．︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:828\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴉ猕󹛫≮.。", %p)}, undef, "to_ascii\(\'Ⴉ猕\?\≮\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:829\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴉ猕󹛫<\x{0338}.。", %p)}, undef, "to_ascii\(\'Ⴉ猕\?\<\\u0338\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:830\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴉ猕󹛫<\x{0338}.。", %p)}, undef, "to_ascii\(\'ⴉ猕\?\<\\u0338\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:831\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴉ猕󹛫≮.。", %p)}, undef, "to_ascii\(\'ⴉ猕\?\≮\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:832\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴉ猕󹛫<\x{0338}．︒", %p)}, undef, "to_ascii\(\'ⴉ猕\?\<\\u0338．︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:833\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴉ猕󹛫≮．︒", %p)}, undef, "to_ascii\(\'ⴉ猕\?\≮．︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:834\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("🏮｡\x{062B}鳳\x{07E2}󠅉", %p)}, undef, "to_ascii\(\'🏮｡\\u062B鳳\\u07E2\󠅉\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:835\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("🏮。\x{062B}鳳\x{07E2}󠅉", %p)}, undef, "to_ascii\(\'🏮\。\\u062B鳳\\u07E2\󠅉\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:836\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200D}𐹶。ß", %p)}, undef, "to_ascii\(\'\\u200D𐹶\。ß\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:837\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200D}𐹶。SS", %p)}, undef, "to_ascii\(\'\\u200D𐹶\。SS\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:839\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Å둄-．\x{200C}", %p)}, undef, "to_ascii\(\'Å둄\-．\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:841\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{030A}둄-．\x{200C}", %p)}, undef, "to_ascii\(\'A\\u030A둄\-．\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:843\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Å둄-.\x{200C}", %p)}, undef, "to_ascii\(\'Å둄\-\.\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:845\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{030A}둄-.\x{200C}", %p)}, undef, "to_ascii\(\'A\\u030A둄\-\.\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:847\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{030A}둄-.\x{200C}", %p)}, undef, "to_ascii\(\'a\\u030A둄\-\.\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:849\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("å둄-.\x{200C}", %p)}, undef, "to_ascii\(\'å둄\-\.\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:851\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{030A}둄-．\x{200C}", %p)}, undef, "to_ascii\(\'a\\u030A둄\-．\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:853\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("å둄-．\x{200C}", %p)}, undef, "to_ascii\(\'å둄\-．\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:855\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{3099}򬎑\x{1DD7}𞤀.򱲢-\x{0953}", %p)}, undef, "to_ascii\(\'\\u3099\?\\u1DD7\?\.\?\-\\u0953\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:857\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς.ß񴱄\x{06DD}\x{2D7F}", %p)}, undef, "to_ascii\(\'ς\.ß\?\\u06DD\\u2D7F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:858\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ.SS񴱄\x{06DD}\x{2D7F}", %p)}, undef, "to_ascii\(\'Σ\.SS\?\\u06DD\\u2D7F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:859\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ.ss񴱄\x{06DD}\x{2D7F}", %p)}, undef, "to_ascii\(\'σ\.ss\?\\u06DD\\u2D7F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:860\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ.ss񴱄\x{06DD}\x{2D7F}", %p)}, undef, "to_ascii\(\'Σ\.ss\?\\u06DD\\u2D7F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:861\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ.ß񴱄\x{06DD}\x{2D7F}", %p)}, undef, "to_ascii\(\'Σ\.ß\?\\u06DD\\u2D7F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:862\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ.ß񴱄\x{06DD}\x{2D7F}", %p)}, undef, "to_ascii\(\'σ\.ß\?\\u06DD\\u2D7F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:863\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ꡀ𞀟｡\x{066B}\x{0599}", %p)}, undef, "to_ascii\(\'ꡀ\?｡\\u066B\\u0599\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:864\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ꡀ𞀟。\x{066B}\x{0599}", %p)}, undef, "to_ascii\(\'ꡀ\?\。\\u066B\\u0599\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:865\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򈛉\x{200C}\x{08A9}｡⧅񘘡-𐭡", %p)}, undef, "to_ascii\(\'\?\\u200C\\u08A9｡\⧅\?\-𐭡\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:866\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򈛉\x{200C}\x{08A9}。⧅񘘡-𐭡", %p)}, undef, "to_ascii\(\'\?\\u200C\\u08A9\。\⧅\?\-𐭡\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:868\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("룱\x{200D}𰍨\x{200C}。𝨖︒", %p)}, undef, "to_ascii\(\'룱\\u200D\?\\u200C\。𝨖︒\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:870\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("룱\x{200D}𰍨\x{200C}。𝨖︒", %p)}, undef, "to_ascii\(\'룱\\u200D\?\\u200C\。𝨖︒\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:872\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("룱\x{200D}𰍨\x{200C}。𝨖。", %p)}, undef, "to_ascii\(\'룱\\u200D\?\\u200C\。𝨖\。\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:874\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("룱\x{200D}𰍨\x{200C}。𝨖。", %p)}, undef, "to_ascii\(\'룱\\u200D\?\\u200C\。𝨖\。\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:876\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄄．\x{1CDC}⒈ß", %p)}, undef, "to_ascii\(\'🄄．\\u1CDC⒈ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:878\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("3,.\x{1CDC}1.ß", %p)}, undef, "to_ascii\(\'3\,\.\\u1CDC1\.ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:879\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("3,.\x{1CDC}1.SS", %p)}, undef, "to_ascii\(\'3\,\.\\u1CDC1\.SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:880\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄄．\x{1CDC}⒈SS", %p)}, undef, "to_ascii\(\'🄄．\\u1CDC⒈SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:881\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄄．\x{1CDC}⒈ss", %p)}, undef, "to_ascii\(\'🄄．\\u1CDC⒈ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:882\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄄．\x{1CDC}⒈Ss", %p)}, undef, "to_ascii\(\'🄄．\\u1CDC⒈Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:883\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񇌍\x{2D7F}｡𞼓򡄨𑐺", %p)}, undef, "to_ascii\(\'\?\\u2D7F｡\?\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:884\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񇌍\x{2D7F}。𞼓򡄨𑐺", %p)}, undef, "to_ascii\(\'\?\\u2D7F\。\?\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:885\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DFD}\x{103A}\x{094D}．≠\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u1DFD\\u103A\\u094D．\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:886\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{103A}\x{094D}\x{1DFD}．≠\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u103A\\u094D\\u1DFD．\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:888\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{103A}\x{094D}\x{1DFD}．=\x{0338}\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u103A\\u094D\\u1DFD．\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:890\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{103A}\x{094D}\x{1DFD}.≠\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u103A\\u094D\\u1DFD\.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:892\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{103A}\x{094D}\x{1DFD}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u103A\\u094D\\u1DFD\.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:894\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴁ𐋨娤.\x{200D}\x{033C}\x{0662}𑖿", %p)}, undef, "to_ascii\(\'Ⴁ𐋨娤\.\\u200D\\u033C\\u0662𑖿\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:896\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ⴁ𐋨娤.\x{200D}\x{033C}\x{0662}𑖿", %p)}, undef, "to_ascii\(\'ⴁ𐋨娤\.\\u200D\\u033C\\u0662𑖿\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:898\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("🄀Ⴄ\x{0669}\x{0820}。⒈\x{0FB6}ß", %p)}, undef, "to_ascii\(\'🄀Ⴄ\\u0669\\u0820\。⒈\\u0FB6ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:900\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0.Ⴄ\x{0669}\x{0820}。1.\x{0FB6}ß", %p)}, undef, "to_ascii\(\'0\.Ⴄ\\u0669\\u0820\。1\.\\u0FB6ß\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:901\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("0.ⴄ\x{0669}\x{0820}。1.\x{0FB6}ß", %p)}, undef, "to_ascii\(\'0\.ⴄ\\u0669\\u0820\。1\.\\u0FB6ß\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:902\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("0.Ⴄ\x{0669}\x{0820}。1.\x{0FB6}SS", %p)}, undef, "to_ascii\(\'0\.Ⴄ\\u0669\\u0820\。1\.\\u0FB6SS\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:903\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("0.ⴄ\x{0669}\x{0820}。1.\x{0FB6}ss", %p)}, undef, "to_ascii\(\'0\.ⴄ\\u0669\\u0820\。1\.\\u0FB6ss\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:904\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("0.Ⴄ\x{0669}\x{0820}。1.\x{0FB6}Ss", %p)}, undef, "to_ascii\(\'0\.Ⴄ\\u0669\\u0820\。1\.\\u0FB6Ss\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:905\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄀ⴄ\x{0669}\x{0820}。⒈\x{0FB6}ß", %p)}, undef, "to_ascii\(\'🄀ⴄ\\u0669\\u0820\。⒈\\u0FB6ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:906\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄀Ⴄ\x{0669}\x{0820}。⒈\x{0FB6}SS", %p)}, undef, "to_ascii\(\'🄀Ⴄ\\u0669\\u0820\。⒈\\u0FB6SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:907\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄀ⴄ\x{0669}\x{0820}。⒈\x{0FB6}ss", %p)}, undef, "to_ascii\(\'🄀ⴄ\\u0669\\u0820\。⒈\\u0FB6ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:908\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄀Ⴄ\x{0669}\x{0820}。⒈\x{0FB6}Ss", %p)}, undef, "to_ascii\(\'🄀Ⴄ\\u0669\\u0820\。⒈\\u0FB6Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:909\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠.\x{200C}-\x{066B}", %p)}, undef, "to_ascii\(\'\≠\.\\u200C\-\\u066B\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:910\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}.\x{200C}-\x{066B}", %p)}, undef, "to_ascii\(\'\=\\u0338\.\\u200C\-\\u066B\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:912\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0660}۱｡󠳶𞠁\x{0665}", %p)}, undef, "to_ascii\(\'\\u0660۱｡\?𞠁\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:914\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0660}۱。󠳶𞠁\x{0665}", %p)}, undef, "to_ascii\(\'\\u0660۱\。\?𞠁\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:915\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{0663}⒖。󱅉𽷛\x{1BF3}", %p)}, undef, "to_ascii\(\'\\u200C\\u0663⒖\。\?\?\\u1BF3\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:916\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{0663}15.。󱅉𽷛\x{1BF3}", %p)}, undef, "to_ascii\(\'\\u200C\\u066315\.\。\?\?\\u1BF3\'\)\ throws\ error\ P1\ V6\ B1\ A4_2\ \[data\/IdnaTest\.txt\:918\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}.-逋񳦭󙙮", %p)}, undef, "to_ascii\(\'\\u1BF3\.\-逋\?\?\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:920\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0756}。\x{3164}\x{200D}ς", %p)}, undef, "to_ascii\(\'\\u0756\。\\u3164\\u200Dς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:921\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0756}。\x{1160}\x{200D}ς", %p)}, undef, "to_ascii\(\'\\u0756\。\\u1160\\u200Dς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:923\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0756}。\x{1160}\x{200D}Σ", %p)}, undef, "to_ascii\(\'\\u0756\。\\u1160\\u200DΣ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:925\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0756}。\x{1160}\x{200D}σ", %p)}, undef, "to_ascii\(\'\\u0756\。\\u1160\\u200Dσ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:927\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0756}。\x{3164}\x{200D}Σ", %p)}, undef, "to_ascii\(\'\\u0756\。\\u3164\\u200DΣ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:929\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0756}。\x{3164}\x{200D}σ", %p)}, undef, "to_ascii\(\'\\u0756\。\\u3164\\u200Dσ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:931\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡆႣ｡󞢧\x{0315}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'ᡆႣ｡\?\\u0315\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:933\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡆႣ。󞢧\x{0315}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'ᡆႣ\。\?\\u0315\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:935\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡆⴃ。󞢧\x{0315}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'ᡆⴃ\。\?\\u0315\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:937\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡆⴃ｡󞢧\x{0315}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'ᡆⴃ｡\?\\u0315\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:939\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("㭄\x{200D}\x{084F}𑚵．ς𐮮\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200D\\u084F𑚵．ς𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:941\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("㭄\x{200D}\x{084F}𑚵.ς𐮮\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200D\\u084F𑚵\.ς𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:943\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("㭄\x{200D}\x{084F}𑚵.Σ𐮮\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200D\\u084F𑚵\.Σ𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:945\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("㭄\x{200D}\x{084F}𑚵.σ𐮮\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200D\\u084F𑚵\.σ𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:947\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("㭄\x{200D}\x{084F}𑚵．Σ𐮮\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200D\\u084F𑚵．Σ𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:949\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("㭄\x{200D}\x{084F}𑚵．σ𐮮\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200D\\u084F𑚵．σ𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:951\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{17B5}。𞯸ꡀ🄋", %p)}, undef, "to_ascii\(\'\\u17B5\。\?ꡀ🄋\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:953\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󐪺暑．⾑\x{0668}", %p)}, undef, "to_ascii\(\'\?暑．⾑\\u0668\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:954\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󐪺暑.襾\x{0668}", %p)}, undef, "to_ascii\(\'\?暑\.襾\\u0668\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:955\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄚≯ꡢ。\x{0891}\x{1DFF}", %p)}, undef, "to_ascii\(\'\󠄚\≯ꡢ\。\\u0891\\u1DFF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:956\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄚>\x{0338}ꡢ。\x{0891}\x{1DFF}", %p)}, undef, "to_ascii\(\'\󠄚\>\\u0338ꡢ\。\\u0891\\u1DFF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:957\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FDC3}𮁱\x{0B4D}𐨿.󐧤Ⴗ", %p)}, undef, "to_ascii\(\'\\uFDC3\?\\u0B4D𐨿\.\?Ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:958\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0643}\x{0645}\x{0645}𮁱\x{0B4D}𐨿.󐧤Ⴗ", %p)}, undef, "to_ascii\(\'\\u0643\\u0645\\u0645\?\\u0B4D𐨿\.\?Ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:959\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0643}\x{0645}\x{0645}𮁱\x{0B4D}𐨿.󐧤ⴗ", %p)}, undef, "to_ascii\(\'\\u0643\\u0645\\u0645\?\\u0B4D𐨿\.\?ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:960\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FDC3}𮁱\x{0B4D}𐨿.󐧤ⴗ", %p)}, undef, "to_ascii\(\'\\uFDC3\?\\u0B4D𐨿\.\?ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:961\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞀨｡\x{1B44}򡛨𞎇", %p)}, undef, "to_ascii\(\'\?｡\\u1B44\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:962\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞀨。\x{1B44}򡛨𞎇", %p)}, undef, "to_ascii\(\'\?\。\\u1B44\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:963\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠣼\x{200C}．𐺰\x{200C}ᡟ", %p)}, undef, "to_ascii\(\'\?\\u200C．\?\\u200Cᡟ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:964\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠣼\x{200C}.𐺰\x{200C}ᡟ", %p)}, undef, "to_ascii\(\'\?\\u200C\.\?\\u200Cᡟ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:966\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢛ󨅟ß.ጧ", %p)}, undef, "to_ascii\(\'ᢛ\?ß\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:968\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢛ󨅟SS.ጧ", %p)}, undef, "to_ascii\(\'ᢛ\?SS\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:969\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢛ󨅟ss.ጧ", %p)}, undef, "to_ascii\(\'ᢛ\?ss\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:970\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢛ󨅟Ss.ጧ", %p)}, undef, "to_ascii\(\'ᢛ\?Ss\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:971\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⮒\x{200C}.񒚗\x{200C}", %p)}, undef, "to_ascii\(\'\⮒\\u200C\.\?\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:972\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤂񹞁𐹯。Ⴜ", %p)}, undef, "to_ascii\(\'\?\?𐹯\。Ⴜ\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:974\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤂񹞁𐹯。ⴜ", %p)}, undef, "to_ascii\(\'\?\?𐹯\。ⴜ\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:975\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹵⮣\x{200C}𑄰｡񷴿\x{FCB7}", %p)}, undef, "to_ascii\(\'𐹵\⮣\\u200C𑄰｡\?\\uFCB7\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:976\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹵⮣\x{200C}𑄰。񷴿\x{0636}\x{0645}", %p)}, undef, "to_ascii\(\'𐹵\⮣\\u200C𑄰\。\?\\u0636\\u0645\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:978\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴒ。デß𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'Ⴒ\。デß\?\\u0C4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:980\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴒ。テ\x{3099}ß𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'Ⴒ\。テ\\u3099ß\?\\u0C4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:981\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ⴒ。テ\x{3099}ß𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'ⴒ\。テ\\u3099ß\?\\u0C4D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:982\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ⴒ。デß𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'ⴒ\。デß\?\\u0C4D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:983\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴒ。デSS𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'Ⴒ\。デSS\?\\u0C4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:984\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴒ。テ\x{3099}SS𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'Ⴒ\。テ\\u3099SS\?\\u0C4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:985\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ⴒ。テ\x{3099}ss𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'ⴒ\。テ\\u3099ss\?\\u0C4D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:986\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ⴒ。デss𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'ⴒ\。デss\?\\u0C4D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:987\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴒ。デSs𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'Ⴒ\。デSs\?\\u0C4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:988\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴒ。テ\x{3099}Ss𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'Ⴒ\。テ\\u3099Ss\?\\u0C4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:989\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑁿\x{0D4D}．７-\x{07D2}", %p)}, undef, "to_ascii\(\'𑁿\\u0D4D．７\-\\u07D2\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:990\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑁿\x{0D4D}.7-\x{07D2}", %p)}, undef, "to_ascii\(\'𑁿\\u0D4D\.7\-\\u07D2\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:991\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("≯𑜫󠭇.\x{1734}񒞤𑍬ᢧ", %p)}, undef, "to_ascii\(\'\≯𑜫\?\.\\u1734\?𑍬ᢧ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:992\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}𑜫󠭇.\x{1734}񒞤𑍬ᢧ", %p)}, undef, "to_ascii\(\'\>\\u0338𑜫\?\.\\u1734\?𑍬ᢧ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:993\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DDB}򎐙Ⴗ쏔。\x{0781}", %p)}, undef, "to_ascii\(\'\\u1DDB\?Ⴗ쏔\。\\u0781\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:994\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DDB}򎐙Ⴗ쏔。\x{0781}", %p)}, undef, "to_ascii\(\'\\u1DDB\?Ⴗ쏔\。\\u0781\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:995\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DDB}򎐙ⴗ쏔。\x{0781}", %p)}, undef, "to_ascii\(\'\\u1DDB\?ⴗ쏔\。\\u0781\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:996\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DDB}򎐙ⴗ쏔。\x{0781}", %p)}, undef, "to_ascii\(\'\\u1DDB\?ⴗ쏔\。\\u0781\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:997\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß｡𐋳Ⴌ\x{0FB8}", %p)}, undef, "to_ascii\(\'ß｡𐋳Ⴌ\\u0FB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:998\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß。𐋳Ⴌ\x{0FB8}", %p)}, undef, "to_ascii\(\'ß\。𐋳Ⴌ\\u0FB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:999\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß。𐋳ⴌ\x{0FB8}", %p)}, "ss.xn--lgd921mvv0m", "to_ascii\(\'ß\。𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1000\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("SS。𐋳Ⴌ\x{0FB8}", %p)}, undef, "to_ascii\(\'SS\。𐋳Ⴌ\\u0FB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1002\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss。𐋳ⴌ\x{0FB8}", %p)}, "ss.xn--lgd921mvv0m", "to_ascii\(\'ss\。𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1003\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss.xn--lgd921mvv0m", %p)}, "ss.xn--lgd921mvv0m", "to_ascii\(\'ss\.xn\-\-lgd921mvv0m\'\)\ \[data\/IdnaTest\.txt\:1004\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss.𐋳ⴌ\x{0FB8}", %p)}, "ss.xn--lgd921mvv0m", "to_ascii\(\'ss\.𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1005\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("SS.𐋳Ⴌ\x{0FB8}", %p)}, undef, "to_ascii\(\'SS\.𐋳Ⴌ\\u0FB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1006\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--zca.xn--lgd921mvv0m", %p)}, "xn--zca.xn--lgd921mvv0m", "to_ascii\(\'xn\-\-zca\.xn\-\-lgd921mvv0m\'\)\ \[data\/IdnaTest\.txt\:1007\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß.𐋳ⴌ\x{0FB8}", %p)}, "ss.xn--lgd921mvv0m", "to_ascii\(\'ß\.𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1008\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß｡𐋳ⴌ\x{0FB8}", %p)}, "ss.xn--lgd921mvv0m", "to_ascii\(\'ß｡𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1010\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("SS｡𐋳Ⴌ\x{0FB8}", %p)}, undef, "to_ascii\(\'SS｡𐋳Ⴌ\\u0FB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1012\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss｡𐋳ⴌ\x{0FB8}", %p)}, "ss.xn--lgd921mvv0m", "to_ascii\(\'ss｡𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1013\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-\x{069E}𐶡.\x{200C}⾝\x{09CD}", %p)}, undef, "to_ascii\(\'\-\\u069E\?\.\\u200C⾝\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1014\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{069E}𐶡.\x{200C}身\x{09CD}", %p)}, undef, "to_ascii\(\'\-\\u069E\?\.\\u200C身\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1016\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("😮\x{0764}𑈵𞀖.💅\x{200D}", %p)}, undef, "to_ascii\(\'😮\\u0764\?𑈵\.💅\\u200D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1018\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("😮\x{0764}𑈵𞀖.💅\x{200D}", %p)}, undef, "to_ascii\(\'😮\\u0764𑈵\?\.💅\\u200D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1020\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{08F2}\x{200D}꙳\x{0712}.ᢏ\x{200C}󠍄", %p)}, undef, "to_ascii\(\'\\u08F2\\u200D꙳\\u0712\.ᢏ\\u200C\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1022\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴑ．\x{06BF}𞯓ᠲ", %p)}, undef, "to_ascii\(\'Ⴑ．\\u06BF\?ᠲ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1024\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴑ.\x{06BF}𞯓ᠲ", %p)}, undef, "to_ascii\(\'Ⴑ\.\\u06BF\?ᠲ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1025\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴑ.\x{06BF}𞯓ᠲ", %p)}, undef, "to_ascii\(\'ⴑ\.\\u06BF\?ᠲ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1026\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴑ．\x{06BF}𞯓ᠲ", %p)}, undef, "to_ascii\(\'ⴑ．\\u06BF\?ᠲ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1027\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1A5A}𛦝\x{0C4D}。𚝬𝟵", %p)}, undef, "to_ascii\(\'\\u1A5A\?\\u0C4D\。\?𝟵\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1028\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1A5A}𛦝\x{0C4D}。𚝬9", %p)}, undef, "to_ascii\(\'\\u1A5A\?\\u0C4D\。\?9\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1029\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{06A0}𿺆𝟗｡Ⴣ꒘\x{FCD0}񐘖", %p)}, undef, "to_ascii\(\'\\u200C\\u06A0\?𝟗｡Ⴣ꒘\\uFCD0\?\'\)\ throws\ error\ P1\ V6\ B2\ B5\ \[data\/IdnaTest\.txt\:1030\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{06A0}𿺆9。Ⴣ꒘\x{0645}\x{062E}񐘖", %p)}, undef, "to_ascii\(\'\\u200C\\u06A0\?9\。Ⴣ꒘\\u0645\\u062E\?\'\)\ throws\ error\ P1\ V6\ B2\ B5\ \[data\/IdnaTest\.txt\:1032\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{06A0}𿺆9。ⴣ꒘\x{0645}\x{062E}񐘖", %p)}, undef, "to_ascii\(\'\\u200C\\u06A0\?9\。ⴣ꒘\\u0645\\u062E\?\'\)\ throws\ error\ P1\ V6\ B2\ B5\ \[data\/IdnaTest\.txt\:1034\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{06A0}𿺆𝟗｡ⴣ꒘\x{FCD0}񐘖", %p)}, undef, "to_ascii\(\'\\u200C\\u06A0\?𝟗｡ⴣ꒘\\uFCD0\?\'\)\ throws\ error\ P1\ V6\ B2\ B5\ \[data\/IdnaTest\.txt\:1036\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡖ｡\x{031F}񗛨\x{0B82}-", %p)}, undef, "to_ascii\(\'ᡖ｡\\u031F\?\\u0B82\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1038\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡖ。\x{031F}񗛨\x{0B82}-", %p)}, undef, "to_ascii\(\'ᡖ\。\\u031F\?\\u0B82\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1039\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞠠浘。絧𞀀", %p)}, undef, "to_ascii\(\'𞠠浘\。絧\?\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1040\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0596}Ⴋ．𝟳≯︒\x{FE0A}", %p)}, undef, "to_ascii\(\'\\u0596Ⴋ．𝟳\≯︒\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1041\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0596}Ⴋ．𝟳>\x{0338}︒\x{FE0A}", %p)}, undef, "to_ascii\(\'\\u0596Ⴋ．𝟳\>\\u0338︒\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1042\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0596}Ⴋ.7≯。\x{FE0A}", %p)}, undef, "to_ascii\(\'\\u0596Ⴋ\.7\≯\。\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1043\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0596}Ⴋ.7>\x{0338}。\x{FE0A}", %p)}, undef, "to_ascii\(\'\\u0596Ⴋ\.7\>\\u0338\。\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1044\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0596}ⴋ.7>\x{0338}。\x{FE0A}", %p)}, undef, "to_ascii\(\'\\u0596ⴋ\.7\>\\u0338\。\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1045\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0596}ⴋ.7≯。\x{FE0A}", %p)}, undef, "to_ascii\(\'\\u0596ⴋ\.7\≯\。\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1046\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0596}ⴋ．𝟳>\x{0338}︒\x{FE0A}", %p)}, undef, "to_ascii\(\'\\u0596ⴋ．𝟳\>\\u0338︒\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1047\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0596}ⴋ．𝟳≯︒\x{FE0A}", %p)}, undef, "to_ascii\(\'\\u0596ⴋ．𝟳\≯︒\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1048\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}F𑓂。󠺨︒\x{077E}𐹢", %p)}, undef, "to_ascii\(\'\\u200DF𑓂\。\?︒\\u077E𐹢\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1049\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}F𑓂。󠺨。\x{077E}𐹢", %p)}, undef, "to_ascii\(\'\\u200DF𑓂\。\?\。\\u077E𐹢\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1051\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}f𑓂。󠺨。\x{077E}𐹢", %p)}, undef, "to_ascii\(\'\\u200Df𑓂\。\?\。\\u077E𐹢\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1053\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}f𑓂。󠺨︒\x{077E}𐹢", %p)}, undef, "to_ascii\(\'\\u200Df𑓂\。\?︒\\u077E𐹢\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1055\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0845}🄇𐼗︒｡𐹻𑜫", %p)}, undef, "to_ascii\(\'\\u0845🄇\?︒｡𐹻𑜫\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:1057\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0845}6,𐼗。。𐹻𑜫", %p)}, undef, "to_ascii\(\'\\u08456\,\?\。\。𐹻𑜫\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1058\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹈.\x{1DC0}𑈱𐦭", %p)}, undef, "to_ascii\(\'\?\.\\u1DC0𑈱𐦭\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1059\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴂ䠺。𞤃񅏎󙮦\x{0693}", %p)}, undef, "to_ascii\(\'Ⴂ䠺\。\?\?\?\\u0693\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1060\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴂ䠺。𞤃񅏎󙮦\x{0693}", %p)}, undef, "to_ascii\(\'ⴂ䠺\。\?\?\?\\u0693\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1061\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄇伐︒.𜙚\x{A8C4}", %p)}, undef, "to_ascii\(\'🄇伐︒\.\?\\uA8C4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1062\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("6,伐。.𜙚\x{A8C4}", %p)}, undef, "to_ascii\(\'6\,伐\。\.\?\\uA8C4\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1063\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹠\x{ABED}\x{FFFB}。\x{200D}𐫓Ⴚ𑂹", %p)}, undef, "to_ascii\(\'\\u200D𐹠\\uABED\\uFFFB\。\\u200D𐫓Ⴚ𑂹\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1064\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹠\x{ABED}\x{FFFB}。\x{200D}𐫓ⴚ𑂹", %p)}, undef, "to_ascii\(\'\\u200D𐹠\\uABED\\uFFFB\。\\u200D𐫓ⴚ𑂹\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1066\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠆠．񷐴󌟈", %p)}, undef, "to_ascii\(\'\󠆠．\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1068\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠆠.񷐴󌟈", %p)}, undef, "to_ascii\(\'\󠆠\.\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1069\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫃\x{200C}Ⴆ.≠𞷙", %p)}, undef, "to_ascii\(\'𐫃\\u200CႦ\.\≠\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1070\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫃\x{200C}Ⴆ.=\x{0338}𞷙", %p)}, undef, "to_ascii\(\'𐫃\\u200CႦ\.\=\\u0338\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1072\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫃\x{200C}ⴆ.=\x{0338}𞷙", %p)}, undef, "to_ascii\(\'𐫃\\u200Cⴆ\.\=\\u0338\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1074\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫃\x{200C}ⴆ.≠𞷙", %p)}, undef, "to_ascii\(\'𐫃\\u200Cⴆ\.\≠\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1076\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠁲𙩢𝟥ꘌ．\x{0841}", %p)}, undef, "to_ascii\(\'\?\?𝟥ꘌ．\\u0841\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1078\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠁲𙩢3ꘌ.\x{0841}", %p)}, undef, "to_ascii\(\'\?\?3ꘌ\.\\u0841\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1079\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-.\x{1886}󡲣-", %p)}, undef, "to_ascii\(\'\-\.\\u1886\?\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1080\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󲚗\x{200C}｡\x{200C}𞰆ς", %p)}, undef, "to_ascii\(\'\?\\u200C｡\\u200C\?ς\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1081\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󲚗\x{200C}。\x{200C}𞰆ς", %p)}, undef, "to_ascii\(\'\?\\u200C\。\\u200C\?ς\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1083\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󲚗\x{200C}。\x{200C}𞰆Σ", %p)}, undef, "to_ascii\(\'\?\\u200C\。\\u200C\?Σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1085\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󲚗\x{200C}。\x{200C}𞰆σ", %p)}, undef, "to_ascii\(\'\?\\u200C\。\\u200C\?σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1087\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󲚗\x{200C}｡\x{200C}𞰆Σ", %p)}, undef, "to_ascii\(\'\?\\u200C｡\\u200C\?Σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1089\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󲚗\x{200C}｡\x{200C}𞰆σ", %p)}, undef, "to_ascii\(\'\?\\u200C｡\\u200C\?σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1091\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("堕𑓂\x{1B02}。𐮇𞤽\x{200C}-", %p)}, undef, "to_ascii\(\'堕𑓂\\u1B02\。𐮇\?\\u200C\-\'\)\ throws\ error\ V3\ B3\ \[data\/IdnaTest\.txt\:1093\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢｡ᡥς\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?｡ᡥς\\u062Aς\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1095\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢。ᡥς\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?\。ᡥς\\u062Aς\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1096\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢。ᡥΣ\x{062A}Σ", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?\。ᡥΣ\\u062AΣ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1097\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢。ᡥσ\x{062A}σ", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?\。ᡥσ\\u062Aσ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1098\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢。ᡥΣ\x{062A}σ", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?\。ᡥΣ\\u062Aσ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1099\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢。ᡥΣ\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?\。ᡥΣ\\u062Aς\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1100\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢。ᡥσ\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?\。ᡥσ\\u062Aς\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1101\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢｡ᡥΣ\x{062A}Σ", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?｡ᡥΣ\\u062AΣ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1102\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢｡ᡥσ\x{062A}σ", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?｡ᡥσ\\u062Aσ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1103\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢｡ᡥΣ\x{062A}σ", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?｡ᡥΣ\\u062Aσ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1104\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢｡ᡥΣ\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?｡ᡥΣ\\u062Aς\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1105\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢｡ᡥσ\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?｡ᡥσ\\u062Aς\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1106\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󏒰．-𝟻ß", %p)}, undef, "to_ascii\(\'\?．\-𝟻ß\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1107\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󏒰.-5ß", %p)}, undef, "to_ascii\(\'\?\.\-5ß\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1108\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󏒰.-5SS", %p)}, undef, "to_ascii\(\'\?\.\-5SS\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1109\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󏒰．-𝟻SS", %p)}, undef, "to_ascii\(\'\?．\-𝟻SS\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1110\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󏒰．-𝟻ss", %p)}, undef, "to_ascii\(\'\?．\-𝟻ss\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1111\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󏒰．-𝟻Ss", %p)}, undef, "to_ascii\(\'\?．\-𝟻Ss\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1112\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐨿.🤒Ⴥ򑮶", %p)}, undef, "to_ascii\(\'\\u200D𐨿\.🤒Ⴥ\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1113\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐨿.🤒ⴥ򑮶", %p)}, undef, "to_ascii\(\'\\u200D𐨿\.🤒ⴥ\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1115\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𵋅。ß𬵩\x{200D}", %p)}, undef, "to_ascii\(\'\?\。ß𬵩\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1117\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𵋅。SS𬵩\x{200D}", %p)}, undef, "to_ascii\(\'\?\。SS𬵩\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1119\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𵋅。ss𬵩\x{200D}", %p)}, undef, "to_ascii\(\'\?\。ss𬵩\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1121\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𵋅。Ss𬵩\x{200D}", %p)}, undef, "to_ascii\(\'\?\。Ss𬵩\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1123\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𭉝。\x{07F1}\x{0301}𞹻", %p)}, undef, "to_ascii\(\'\\u200C\?\。\\u07F1\\u0301𞹻\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1125\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𭉝。\x{07F1}\x{0301}\x{063A}", %p)}, undef, "to_ascii\(\'\\u200C\?\。\\u07F1\\u0301\\u063A\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1127\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞼌\x{200C}𑈶。𐹡", %p)}, undef, "to_ascii\(\'\?\\u200C𑈶\。𐹡\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1129\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}ς≠", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBς\≠\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1131\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}ς=\x{0338}", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBς\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1133\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}ς≠", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBς\≠\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1135\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}ς=\x{0338}", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBς\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1137\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}Σ=\x{0338}", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBΣ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1139\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}Σ≠", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBΣ\≠\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1141\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}σ≠", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBσ\≠\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1143\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}σ=\x{0338}", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBσ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1145\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}Σ=\x{0338}", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBΣ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1147\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}Σ≠", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBΣ\≠\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1149\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}σ≠", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBσ\≠\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1151\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}σ=\x{0338}", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBσ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1153\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒋｡⒈\x{200D}򳴢", %p)}, undef, "to_ascii\(\'⒋｡⒈\\u200D\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1155\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4.。1.\x{200D}򳴢", %p)}, undef, "to_ascii\(\'4\.\。1\.\\u200D\?\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1157\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}ß｡𐇽\x{1A60}򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644ß｡𐇽\\u1A60\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1159\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}ß｡\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644ß｡\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1160\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}ß。\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644ß\。\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1161\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}SS。\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644SS\。\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1162\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}ss。\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644ss\。\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1163\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}Ss。\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644Ss\。\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1164\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}SS｡\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644SS｡\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1165\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}ss｡\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644ss｡\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1166\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}Ss｡\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644Ss｡\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1167\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}SS｡𐇽\x{1A60}򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644SS｡𐇽\\u1A60\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1168\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}ss｡𐇽\x{1A60}򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644ss｡𐇽\\u1A60\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1169\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}Ss｡𐇽\x{1A60}򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644Ss｡𐇽\\u1A60\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1170\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹽𑄳񼜲.\x{1DDF}\x{17B8}\x{A806}𑜫", %p)}, undef, "to_ascii\(\'𐹽𑄳\?\.\\u1DDF\\u17B8\\uA806𑜫\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1171\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴓ𑜫\x{200D}򗭓．\x{06A7}𑰶", %p)}, undef, "to_ascii\(\'Ⴓ𑜫\\u200D\?．\\u06A7\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1172\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴓ𑜫\x{200D}򗭓.\x{06A7}𑰶", %p)}, undef, "to_ascii\(\'Ⴓ𑜫\\u200D\?\.\\u06A7\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1173\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴓ𑜫\x{200D}򗭓.\x{06A7}𑰶", %p)}, undef, "to_ascii\(\'ⴓ𑜫\\u200D\?\.\\u06A7\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1174\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴓ𑜫\x{200D}򗭓．\x{06A7}𑰶", %p)}, undef, "to_ascii\(\'ⴓ𑜫\\u200D\?．\\u06A7\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1175\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐨿.🄆—", %p)}, undef, "to_ascii\(\'𐨿\.🄆\—\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1176\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐨿.5,—", %p)}, undef, "to_ascii\(\'𐨿\.5\,\—\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1177\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔊱񁦮۸。󠾭-", %p)}, undef, "to_ascii\(\'\?\?۸\。\?\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1178\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼗸\x{07CD}𐹮。\x{06DD}ᡎᠴ", %p)}, undef, "to_ascii\(\'\?\\u07CD𐹮\。\\u06DDᡎᠴ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1179\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}ᠮႾ🄂.🚗\x{0841}𮹌\x{200C}", %p)}, undef, "to_ascii\(\'\\u200DᠮႾ🄂\.🚗\\u0841\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1180\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}ᠮႾ1,.🚗\x{0841}𮹌\x{200C}", %p)}, undef, "to_ascii\(\'\\u200DᠮႾ1\,\.🚗\\u0841\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1182\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}ᠮⴞ1,.🚗\x{0841}𮹌\x{200C}", %p)}, undef, "to_ascii\(\'\\u200Dᠮⴞ1\,\.🚗\\u0841\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1184\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}ᠮⴞ🄂.🚗\x{0841}𮹌\x{200C}", %p)}, undef, "to_ascii\(\'\\u200Dᠮⴞ🄂\.🚗\\u0841\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1186\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0601}\x{0697}．𑚶񼡷⾆", %p)}, undef, "to_ascii\(\'\\u0601\\u0697．𑚶\?⾆\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1188\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0601}\x{0697}.𑚶񼡷舌", %p)}, undef, "to_ascii\(\'\\u0601\\u0697\.𑚶\?舌\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1189\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🞅󠳡󜍙.񲖷", %p)}, undef, "to_ascii\(\'🞅\?\?\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1190\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{20E7}񯡎-򫣝.4Ⴄ\x{200C}", %p)}, undef, "to_ascii\(\'\\u20E7\?\-\?\.4Ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1191\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{20E7}񯡎-򫣝.4ⴄ\x{200C}", %p)}, undef, "to_ascii\(\'\\u20E7\?\-\?\.4ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1193\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ｡𝌠ß𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ｡𝌠ß𖫱\'\)\ \[data\/IdnaTest\.txt\:1195\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ。𝌠ß𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ\。𝌠ß𖫱\'\)\ \[data\/IdnaTest\.txt\:1197\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ。𝌠SS𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ\。𝌠SS𖫱\'\)\ \[data\/IdnaTest\.txt\:1199\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ。𝌠ss𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ\。𝌠ss𖫱\'\)\ \[data\/IdnaTest\.txt\:1200\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ。𝌠Ss𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ\。𝌠Ss𖫱\'\)\ \[data\/IdnaTest\.txt\:1201\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--hwe.xn--ss-ci1ub261a", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'xn\-\-hwe\.xn\-\-ss\-ci1ub261a\'\)\ \[data\/IdnaTest\.txt\:1202\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ.𝌠ss𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ\.𝌠ss𖫱\'\)\ \[data\/IdnaTest\.txt\:1203\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ.𝌠SS𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ\.𝌠SS𖫱\'\)\ \[data\/IdnaTest\.txt\:1204\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ.𝌠Ss𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ\.𝌠Ss𖫱\'\)\ \[data\/IdnaTest\.txt\:1205\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--hwe.xn--zca4946pblnc", %p)}, "xn--hwe.xn--zca4946pblnc", "to_ascii\(\'xn\-\-hwe\.xn\-\-zca4946pblnc\'\)\ \[data\/IdnaTest\.txt\:1206\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ.𝌠ß𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ\.𝌠ß𖫱\'\)\ \[data\/IdnaTest\.txt\:1207\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ｡𝌠SS𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ｡𝌠SS𖫱\'\)\ \[data\/IdnaTest\.txt\:1209\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ｡𝌠ss𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ｡𝌠ss𖫱\'\)\ \[data\/IdnaTest\.txt\:1210\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ｡𝌠Ss𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ｡𝌠Ss𖫱\'\)\ \[data\/IdnaTest\.txt\:1211\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("₁｡𞤫ꡪ", %p)}, undef, "to_ascii\(\'₁｡\?ꡪ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1212\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("1。𞤫ꡪ", %p)}, undef, "to_ascii\(\'1\。\?ꡪ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1213\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𯻼\x{200C}.𞶞򻙤񥘇", %p)}, undef, "to_ascii\(\'\?\\u200C\.\?\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1214\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑑄≯｡𑜤", %p)}, undef, "to_ascii\(\'\?\≯｡𑜤\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1216\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑑄>\x{0338}｡𑜤", %p)}, undef, "to_ascii\(\'\?\>\\u0338｡𑜤\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1217\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑑄≯。𑜤", %p)}, undef, "to_ascii\(\'\?\≯\。𑜤\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1218\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑑄>\x{0338}。𑜤", %p)}, undef, "to_ascii\(\'\?\>\\u0338\。𑜤\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1219\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴋ≮𱲆。\x{200D}\x{07A7}𐋣", %p)}, undef, "to_ascii\(\'Ⴋ\≮\?\。\\u200D\\u07A7𐋣\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1220\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴋ<\x{0338}𱲆。\x{200D}\x{07A7}𐋣", %p)}, undef, "to_ascii\(\'Ⴋ\<\\u0338\?\。\\u200D\\u07A7𐋣\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1222\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴋ<\x{0338}𱲆。\x{200D}\x{07A7}𐋣", %p)}, undef, "to_ascii\(\'ⴋ\<\\u0338\?\。\\u200D\\u07A7𐋣\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1224\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴋ≮𱲆。\x{200D}\x{07A7}𐋣", %p)}, undef, "to_ascii\(\'ⴋ\≮\?\。\\u200D\\u07A7𐋣\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1226\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17D2}.򆽒≯", %p)}, undef, "to_ascii\(\'\\u17D2\.\?\≯\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1228\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17D2}.򆽒>\x{0338}", %p)}, undef, "to_ascii\(\'\\u17D2\.\?\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1229\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񏁇\x{1734}．𐨺É⬓𑄴", %p)}, undef, "to_ascii\(\'\?\\u1734．𐨺É\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1230\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񏁇\x{1734}．𐨺E\x{0301}⬓𑄴", %p)}, undef, "to_ascii\(\'\?\\u1734．𐨺E\\u0301\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1231\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񏁇\x{1734}.𐨺É⬓𑄴", %p)}, undef, "to_ascii\(\'\?\\u1734\.𐨺É\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1232\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񏁇\x{1734}.𐨺E\x{0301}⬓𑄴", %p)}, undef, "to_ascii\(\'\?\\u1734\.𐨺E\\u0301\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1233\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񏁇\x{1734}.𐨺e\x{0301}⬓𑄴", %p)}, undef, "to_ascii\(\'\?\\u1734\.𐨺e\\u0301\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1234\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񏁇\x{1734}.𐨺é⬓𑄴", %p)}, undef, "to_ascii\(\'\?\\u1734\.𐨺é\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1235\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񏁇\x{1734}．𐨺e\x{0301}⬓𑄴", %p)}, undef, "to_ascii\(\'\?\\u1734．𐨺e\\u0301\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1236\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񏁇\x{1734}．𐨺é⬓𑄴", %p)}, undef, "to_ascii\(\'\?\\u1734．𐨺é\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1237\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢇ\x{200D}\x{A8C4}｡︒𞤺", %p)}, undef, "to_ascii\(\'ᢇ\\u200D\\uA8C4｡︒\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1238\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ᢇ\x{200D}\x{A8C4}。。𞤺", %p)}, undef, "to_ascii\(\'ᢇ\\u200D\\uA8C4\。\。\?\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:1240\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞩬򖙱\x{1714}\x{200C}｡\x{0631}\x{07AA}≮", %p)}, undef, "to_ascii\(\'\?\?\\u1714\\u200C｡\\u0631\\u07AA\≮\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1242\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞩬򖙱\x{1714}\x{200C}｡\x{0631}\x{07AA}<\x{0338}", %p)}, undef, "to_ascii\(\'\?\?\\u1714\\u200C｡\\u0631\\u07AA\<\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1243\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞩬򖙱\x{1714}\x{200C}。\x{0631}\x{07AA}≮", %p)}, undef, "to_ascii\(\'\?\?\\u1714\\u200C\。\\u0631\\u07AA\≮\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1244\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞩬򖙱\x{1714}\x{200C}。\x{0631}\x{07AA}<\x{0338}", %p)}, undef, "to_ascii\(\'\?\?\\u1714\\u200C\。\\u0631\\u07AA\<\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1245\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴣ．\x{0653}ᢤ", %p)}, undef, "to_ascii\(\'Ⴣ．\\u0653ᢤ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1246\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴣ.\x{0653}ᢤ", %p)}, undef, "to_ascii\(\'Ⴣ\.\\u0653ᢤ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1247\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴣ.\x{0653}ᢤ", %p)}, undef, "to_ascii\(\'ⴣ\.\\u0653ᢤ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1248\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴣ．\x{0653}ᢤ", %p)}, undef, "to_ascii\(\'ⴣ．\\u0653ᢤ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1249\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󠄈\x{0813}．싉򄆻Ⴤ򂡐", %p)}, undef, "to_ascii\(\'\󠄈\\u0813．싉\?Ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1250\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄈\x{0813}．싉򄆻Ⴤ򂡐", %p)}, undef, "to_ascii\(\'\󠄈\\u0813．싉\?Ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1251\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄈\x{0813}.싉򄆻Ⴤ򂡐", %p)}, undef, "to_ascii\(\'\󠄈\\u0813\.싉\?Ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1252\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄈\x{0813}.싉򄆻Ⴤ򂡐", %p)}, undef, "to_ascii\(\'\󠄈\\u0813\.싉\?Ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1253\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄈\x{0813}.싉򄆻ⴤ򂡐", %p)}, undef, "to_ascii\(\'\󠄈\\u0813\.싉\?ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1254\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄈\x{0813}.싉򄆻ⴤ򂡐", %p)}, undef, "to_ascii\(\'\󠄈\\u0813\.싉\?ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1255\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄈\x{0813}．싉򄆻ⴤ򂡐", %p)}, undef, "to_ascii\(\'\󠄈\\u0813．싉\?ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1256\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄈\x{0813}．싉򄆻ⴤ򂡐", %p)}, undef, "to_ascii\(\'\󠄈\\u0813．싉\?ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1257\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{AA2C}𑲫≮．⤂", %p)}, undef, "to_ascii\(\'\\uAA2C\?\≮．\⤂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1258\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{AA2C}𑲫<\x{0338}．⤂", %p)}, undef, "to_ascii\(\'\\uAA2C\?\<\\u0338．\⤂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1259\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{AA2C}𑲫≮.⤂", %p)}, undef, "to_ascii\(\'\\uAA2C\?\≮\.\⤂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1260\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{AA2C}𑲫<\x{0338}.⤂", %p)}, undef, "to_ascii\(\'\\uAA2C\?\<\\u0338\.\⤂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1261\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔≮Ⴢ．Ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\≮Ⴢ．Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1262\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔<\x{0338}Ⴢ．Ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\<\\u0338Ⴢ．Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1263\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔≮Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\≮Ⴢ\.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1264\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔<\x{0338}Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\<\\u0338Ⴢ\.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1265\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔<\x{0338}ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\<\\u0338ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1266\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔≮ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\≮ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1267\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔≮Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\≮Ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1268\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔<\x{0338}Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\<\\u0338Ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1269\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔<\x{0338}ⴢ．ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\<\\u0338ⴢ．ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1270\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔≮ⴢ．ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\≮ⴢ．ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1271\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔≮Ⴢ．ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\≮Ⴢ．ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1272\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔<\x{0338}Ⴢ．ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\<\\u0338Ⴢ．ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1273\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("𑁅。-", %p)}, undef, "to_ascii\(\'𑁅\。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1274\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0DCA}򕸽󠧱｡饈≠\x{0664}", %p)}, undef, "to_ascii\(\'\\u0DCA\?\?｡饈\≠\\u0664\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1275\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0DCA}򕸽󠧱｡饈=\x{0338}\x{0664}", %p)}, undef, "to_ascii\(\'\\u0DCA\?\?｡饈\=\\u0338\\u0664\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1276\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0DCA}򕸽󠧱。饈≠\x{0664}", %p)}, undef, "to_ascii\(\'\\u0DCA\?\?\。饈\≠\\u0664\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1277\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0DCA}򕸽󠧱。饈=\x{0338}\x{0664}", %p)}, undef, "to_ascii\(\'\\u0DCA\?\?\。饈\=\\u0338\\u0664\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1278\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞥃ᠠ⁷｡≯邅⬻4", %p)}, undef, "to_ascii\(\'\?ᠠ⁷｡\≯邅\⬻4\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1279\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞥃ᠠ⁷｡>\x{0338}邅⬻4", %p)}, undef, "to_ascii\(\'\?ᠠ⁷｡\>\\u0338邅\⬻4\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1280\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞥃ᠠ7。≯邅⬻4", %p)}, undef, "to_ascii\(\'\?ᠠ7\。\≯邅\⬻4\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1281\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞥃ᠠ7。>\x{0338}邅⬻4", %p)}, undef, "to_ascii\(\'\?ᠠ7\。\>\\u0338邅\⬻4\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1282\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򠿯ᡳ-𑐻.𐹴𐋫\x{0605}󑎳", %p)}, undef, "to_ascii\(\'\?ᡳ\-\?\.𐹴𐋫\\u0605\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1283\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򠶆\x{0845}\x{0A51}.넨-󶧈", %p)}, undef, "to_ascii\(\'\?\\u0845\\u0A51\.넨\-\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1284\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򠶆\x{0845}\x{0A51}.넨-󶧈", %p)}, undef, "to_ascii\(\'\?\\u0845\\u0A51\.넨\-\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1285\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡦᡑ\x{200D}⒈。𐋣-", %p)}, undef, "to_ascii\(\'ꡦᡑ\\u200D⒈\。𐋣\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1286\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ꡦᡑ\x{200D}1.。𐋣-", %p)}, undef, "to_ascii\(\'ꡦᡑ\\u200D1\.\。𐋣\-\'\)\ throws\ error\ V3\ A4_2\ \[data\/IdnaTest\.txt\:1288\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴌ。􍼠\x{FB69}", %p)}, undef, "to_ascii\(\'Ⴌ\。\?\\uFB69\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1290\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴌ。􍼠\x{0679}", %p)}, undef, "to_ascii\(\'Ⴌ\。\?\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1291\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴌ。􍼠\x{0679}", %p)}, undef, "to_ascii\(\'ⴌ\。\?\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1292\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴌ。􍼠\x{FB69}", %p)}, undef, "to_ascii\(\'ⴌ\。\?\\uFB69\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1293\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐮁𐭱.\x{0F84}\x{135E}-\x{1CFA}", %p)}, undef, "to_ascii\(\'𐮁𐭱\.\\u0F84\\u135E\-\\u1CFA\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1294\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈䰹\x{200D}-。웈", %p)}, undef, "to_ascii\(\'⒈䰹\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1295\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈䰹\x{200D}-。웈", %p)}, undef, "to_ascii\(\'⒈䰹\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1297\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.䰹\x{200D}-。웈", %p)}, undef, "to_ascii\(\'1\.䰹\\u200D\-\。웈\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1299\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.䰹\x{200D}-。웈", %p)}, undef, "to_ascii\(\'1\.䰹\\u200D\-\。웈\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1301\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("て。\x{200C}󠳽\x{07F3}", %p)}, undef, "to_ascii\(\'て\。\\u200C\?\\u07F3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1303\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ς｡\x{A9C0}\x{06E7}", %p)}, undef, "to_ascii\(\'ς｡\\uA9C0\\u06E7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1305\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ς。\x{A9C0}\x{06E7}", %p)}, undef, "to_ascii\(\'ς\。\\uA9C0\\u06E7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1306\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("Σ。\x{A9C0}\x{06E7}", %p)}, undef, "to_ascii\(\'Σ\。\\uA9C0\\u06E7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1307\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("σ。\x{A9C0}\x{06E7}", %p)}, undef, "to_ascii\(\'σ\。\\uA9C0\\u06E7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1308\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("Σ｡\x{A9C0}\x{06E7}", %p)}, undef, "to_ascii\(\'Σ｡\\uA9C0\\u06E7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1309\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("σ｡\x{A9C0}\x{06E7}", %p)}, undef, "to_ascii\(\'σ｡\\uA9C0\\u06E7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1310\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0BCD}󥫅򌉑.ႢႵ", %p)}, undef, "to_ascii\(\'\\u0BCD\?\?\.ႢႵ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1311\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0BCD}󥫅򌉑.ⴂⴕ", %p)}, undef, "to_ascii\(\'\\u0BCD\?\?\.ⴂⴕ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1312\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0BCD}󥫅򌉑.Ⴂⴕ", %p)}, undef, "to_ascii\(\'\\u0BCD\?\?\.Ⴂⴕ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1313\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1C32}🄈⾛\x{05A6}．\x{200D}򯥤\x{07FD}", %p)}, undef, "to_ascii\(\'\\u1C32🄈⾛\\u05A6．\\u200D\?\\u07FD\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1314\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1C32}7,走\x{05A6}.\x{200D}򯥤\x{07FD}", %p)}, undef, "to_ascii\(\'\\u1C327\,走\\u05A6\.\\u200D\?\\u07FD\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1316\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢗ｡Ӏ񝄻", %p)}, undef, "to_ascii\(\'ᢗ｡Ӏ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1318\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢗ。Ӏ񝄻", %p)}, undef, "to_ascii\(\'ᢗ\。Ӏ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1319\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢗ。ӏ񝄻", %p)}, undef, "to_ascii\(\'ᢗ\。ӏ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1320\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢗ｡ӏ񝄻", %p)}, undef, "to_ascii\(\'ᢗ｡ӏ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1321\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0668}-。񠏇🝆ᄾ", %p)}, undef, "to_ascii\(\'\\u0668\-\。\?🝆ᄾ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1322\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-𐋷𖾑。󠆬", %p)}, undef, "to_ascii\(\'\-𐋷𖾑\。\󠆬\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1323\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}𐹳🐴멈.\x{ABED}񐡼", %p)}, undef, "to_ascii\(\'\\u200C𐹳🐴멈\.\\uABED\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1324\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𐹳🐴멈.\x{ABED}񐡼", %p)}, undef, "to_ascii\(\'\\u200C𐹳🐴멈\.\\uABED\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1326\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮.\x{0769}\x{0603}", %p)}, undef, "to_ascii\(\'\≮\.\\u0769\\u0603\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1328\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}.\x{0769}\x{0603}", %p)}, undef, "to_ascii\(\'\<\\u0338\.\\u0769\\u0603\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1329\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐶭⾆｡\x{200C}𑚶򟱃𞰘", %p)}, undef, "to_ascii\(\'\?⾆｡\\u200C𑚶\?\?\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:1330\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐶭舌。\x{200C}𑚶򟱃𞰘", %p)}, undef, "to_ascii\(\'\?舌\。\\u200C𑚶\?\?\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:1332\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴠ-.𝟷ς𞴺ς", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.𝟷ς\?ς\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1334\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴠ-.1ς𞴺ς", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.1ς\?ς\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1336\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ⴠ-.1ς𞴺ς", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.1ς\?ς\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1338\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴠ-.1Σ𞴺Σ", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.1Σ\?Σ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1340\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ⴠ-.1σ𞴺σ", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.1σ\?σ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1342\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ⴠ-.𝟷ς𞴺ς", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.𝟷ς\?ς\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1344\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴠ-.𝟷Σ𞴺Σ", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.𝟷Σ\?Σ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1346\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ⴠ-.𝟷σ𞴺σ", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.𝟷σ\?σ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1348\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑲘󠄒𓑡｡𝟪Ⴜ", %p)}, undef, "to_ascii\(\'\?\󠄒\?｡𝟪Ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1350\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑲘󠄒𓑡。8Ⴜ", %p)}, undef, "to_ascii\(\'\?\󠄒\?\。8Ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1351\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑲘󠄒𓑡。8ⴜ", %p)}, undef, "to_ascii\(\'\?\󠄒\?\。8ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1352\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑲘󠄒𓑡｡𝟪ⴜ", %p)}, undef, "to_ascii\(\'\?\󠄒\?｡𝟪ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1353\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("䪏\x{06AB}\x{07E0}\x{0941}｡뭕ᢝ\x{17B9}", %p)}, undef, "to_ascii\(\'䪏\\u06AB\\u07E0\\u0941｡뭕ᢝ\\u17B9\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1354\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("䪏\x{06AB}\x{07E0}\x{0941}｡뭕ᢝ\x{17B9}", %p)}, undef, "to_ascii\(\'䪏\\u06AB\\u07E0\\u0941｡뭕ᢝ\\u17B9\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1355\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("䪏\x{06AB}\x{07E0}\x{0941}。뭕ᢝ\x{17B9}", %p)}, undef, "to_ascii\(\'䪏\\u06AB\\u07E0\\u0941\。뭕ᢝ\\u17B9\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1356\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("䪏\x{06AB}\x{07E0}\x{0941}。뭕ᢝ\x{17B9}", %p)}, undef, "to_ascii\(\'䪏\\u06AB\\u07E0\\u0941\。뭕ᢝ\\u17B9\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1357\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{1BAB}｡🂉󠁰", %p)}, undef, "to_ascii\(\'\\u1BAB｡🂉\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1358\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BAB}。🂉󠁰", %p)}, undef, "to_ascii\(\'\\u1BAB\。🂉\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1359\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󩎃\x{0AC4}。ς\x{200D}𐹮𑈵", %p)}, undef, "to_ascii\(\'\?\\u0AC4\。ς\\u200D𐹮𑈵\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1360\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󩎃\x{0AC4}。Σ\x{200D}𐹮𑈵", %p)}, undef, "to_ascii\(\'\?\\u0AC4\。Σ\\u200D𐹮𑈵\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1362\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󩎃\x{0AC4}。σ\x{200D}𐹮𑈵", %p)}, undef, "to_ascii\(\'\?\\u0AC4\。σ\\u200D𐹮𑈵\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1364\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𐫀ᡂ𑜫．𑘿", %p)}, undef, "to_ascii\(\'𐫀ᡂ𑜫．𑘿\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1366\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𐫀ᡂ𑜫.𑘿", %p)}, undef, "to_ascii\(\'𐫀ᡂ𑜫\.𑘿\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1367\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󬚶󸋖򖩰-。\x{200C}", %p)}, undef, "to_ascii\(\'\?\?\?\-\。\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1368\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣．\x{07C2}", %p)}, undef, "to_ascii\(\'𐹣．\\u07C2\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1370\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣.\x{07C2}", %p)}, undef, "to_ascii\(\'𐹣\.\\u07C2\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1371\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-\x{07E1}｡Ↄ", %p)}, undef, "to_ascii\(\'\-\\u07E1｡Ↄ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1372\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{07E1}。Ↄ", %p)}, undef, "to_ascii\(\'\-\\u07E1\。Ↄ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1373\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("-\x{07E1}。ↄ", %p)}, undef, "to_ascii\(\'\-\\u07E1\。ↄ\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1374\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("-\x{07E1}｡ↄ", %p)}, undef, "to_ascii\(\'\-\\u07E1｡ↄ\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1375\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}-︒󠄄。ß哑\x{200C}𐵿", %p)}, undef, "to_ascii\(\'\\u200D\-︒\󠄄\。ß哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1376\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}-。󠄄。ß哑\x{200C}𐵿", %p)}, undef, "to_ascii\(\'\\u200D\-\。\󠄄\。ß哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:1378\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}-。󠄄。SS哑\x{200C}𐵿", %p)}, undef, "to_ascii\(\'\\u200D\-\。\󠄄\。SS哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:1380\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}-。󠄄。ss哑\x{200C}𐵿", %p)}, undef, "to_ascii\(\'\\u200D\-\。\󠄄\。ss哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:1382\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}-。󠄄。Ss哑\x{200C}𐵿", %p)}, undef, "to_ascii\(\'\\u200D\-\。\󠄄\。Ss哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:1384\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}-︒󠄄。SS哑\x{200C}𐵿", %p)}, undef, "to_ascii\(\'\\u200D\-︒\󠄄\。SS哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1386\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}-︒󠄄。ss哑\x{200C}𐵿", %p)}, undef, "to_ascii\(\'\\u200D\-︒\󠄄\。ss哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1388\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}-︒󠄄。Ss哑\x{200C}𐵿", %p)}, undef, "to_ascii\(\'\\u200D\-︒\󠄄\。Ss哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1390\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒．\x{FE2F}𑑂", %p)}, undef, "to_ascii\(\'︒．\\uFE2F\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1392\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒．𑑂\x{FE2F}", %p)}, undef, "to_ascii\(\'︒．\?\\uFE2F\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1393\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("。.𑑂\x{FE2F}", %p)}, undef, "to_ascii\(\'\。\.\?\\uFE2F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1394\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{A92C}。\x{200D}", %p)}, undef, "to_ascii\(\'\\uA92C\。\\u200D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1395\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}󠸡｡\x{FCD7}", %p)}, undef, "to_ascii\(\'\\u200D\?｡\\uFCD7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1397\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}󠸡。\x{0647}\x{062C}", %p)}, undef, "to_ascii\(\'\\u200D\?\。\\u0647\\u062C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1399\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-Ⴄ𝟢\x{0663}．𑍴ς", %p)}, undef, "to_ascii\(\'\-Ⴄ𝟢\\u0663．𑍴ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1401\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-Ⴄ0\x{0663}.𑍴ς", %p)}, undef, "to_ascii\(\'\-Ⴄ0\\u0663\.𑍴ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1402\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-ⴄ0\x{0663}.𑍴ς", %p)}, undef, "to_ascii\(\'\-ⴄ0\\u0663\.𑍴ς\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1403\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-Ⴄ0\x{0663}.𑍴Σ", %p)}, undef, "to_ascii\(\'\-Ⴄ0\\u0663\.𑍴Σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1404\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-ⴄ0\x{0663}.𑍴σ", %p)}, undef, "to_ascii\(\'\-ⴄ0\\u0663\.𑍴σ\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1405\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-ⴄ𝟢\x{0663}．𑍴ς", %p)}, undef, "to_ascii\(\'\-ⴄ𝟢\\u0663．𑍴ς\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1406\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-Ⴄ𝟢\x{0663}．𑍴Σ", %p)}, undef, "to_ascii\(\'\-Ⴄ𝟢\\u0663．𑍴Σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1407\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-ⴄ𝟢\x{0663}．𑍴σ", %p)}, undef, "to_ascii\(\'\-ⴄ𝟢\\u0663．𑍴σ\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1408\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󦈄。-", %p)}, undef, "to_ascii\(\'\?\。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1409\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⋠𐋮．򶈮\x{0F18}ß≯", %p)}, undef, "to_ascii\(\'\⋠𐋮．\?\\u0F18ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1410\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≼\x{0338}𐋮．򶈮\x{0F18}ß>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338𐋮．\?\\u0F18ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1411\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⋠𐋮.򶈮\x{0F18}ß≯", %p)}, undef, "to_ascii\(\'\⋠𐋮\.\?\\u0F18ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1412\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≼\x{0338}𐋮.򶈮\x{0F18}ß>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338𐋮\.\?\\u0F18ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1413\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≼\x{0338}𐋮.򶈮\x{0F18}SS>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338𐋮\.\?\\u0F18SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1414\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⋠𐋮.򶈮\x{0F18}SS≯", %p)}, undef, "to_ascii\(\'\⋠𐋮\.\?\\u0F18SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1415\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⋠𐋮.򶈮\x{0F18}ss≯", %p)}, undef, "to_ascii\(\'\⋠𐋮\.\?\\u0F18ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1416\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≼\x{0338}𐋮.򶈮\x{0F18}ss>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338𐋮\.\?\\u0F18ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1417\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≼\x{0338}𐋮.򶈮\x{0F18}Ss>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338𐋮\.\?\\u0F18Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1418\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⋠𐋮.򶈮\x{0F18}Ss≯", %p)}, undef, "to_ascii\(\'\⋠𐋮\.\?\\u0F18Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1419\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≼\x{0338}𐋮．򶈮\x{0F18}SS>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338𐋮．\?\\u0F18SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1420\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⋠𐋮．򶈮\x{0F18}SS≯", %p)}, undef, "to_ascii\(\'\⋠𐋮．\?\\u0F18SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1421\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⋠𐋮．򶈮\x{0F18}ss≯", %p)}, undef, "to_ascii\(\'\⋠𐋮．\?\\u0F18ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1422\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≼\x{0338}𐋮．򶈮\x{0F18}ss>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338𐋮．\?\\u0F18ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1423\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≼\x{0338}𐋮．򶈮\x{0F18}Ss>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338𐋮．\?\\u0F18Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1424\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⋠𐋮．򶈮\x{0F18}Ss≯", %p)}, undef, "to_ascii\(\'\⋠𐋮．\?\\u0F18Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1425\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1𐋸\x{0664}｡󠢮\x{FBA4}񷝊", %p)}, undef, "to_ascii\(\'1𐋸\\u0664｡\?\\uFBA4\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1426\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1𐋸\x{0664}。󠢮\x{06C0}񷝊", %p)}, undef, "to_ascii\(\'1𐋸\\u0664\。\?\\u06C0\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1427\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1𐋸\x{0664}。󠢮\x{06D5}\x{0654}񷝊", %p)}, undef, "to_ascii\(\'1𐋸\\u0664\。\?\\u06D5\\u0654\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1428\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("儭-｡𐹴Ⴢ񥳠\x{200C}", %p)}, undef, "to_ascii\(\'儭\-｡𐹴Ⴢ\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1429\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("儭-。𐹴Ⴢ񥳠\x{200C}", %p)}, undef, "to_ascii\(\'儭\-\。𐹴Ⴢ\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1431\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("儭-。𐹴ⴢ񥳠\x{200C}", %p)}, undef, "to_ascii\(\'儭\-\。𐹴ⴢ\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1433\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("儭-｡𐹴ⴢ񥳠\x{200C}", %p)}, undef, "to_ascii\(\'儭\-｡𐹴ⴢ\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1435\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟺𐋷\x{06B9}．𞤭򿍡", %p)}, undef, "to_ascii\(\'𝟺𐋷\\u06B9．\?\?\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1437\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4𐋷\x{06B9}.𞤭򿍡", %p)}, undef, "to_ascii\(\'4𐋷\\u06B9\.\?\?\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1438\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯-ꡋ𑲣.⒈𐹭", %p)}, undef, "to_ascii\(\'\≯\-ꡋ\?\.⒈𐹭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1439\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}-ꡋ𑲣.⒈𐹭", %p)}, undef, "to_ascii\(\'\>\\u0338\-ꡋ\?\.⒈𐹭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1440\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯-ꡋ𑲣.1.𐹭", %p)}, undef, "to_ascii\(\'\≯\-ꡋ\?\.1\.𐹭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1441\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}-ꡋ𑲣.1.𐹭", %p)}, undef, "to_ascii\(\'\>\\u0338\-ꡋ\?\.1\.𐹭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1442\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0330}．󰜱蚀", %p)}, undef, "to_ascii\(\'\\u0330．\?蚀\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1443\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0330}.󰜱蚀", %p)}, undef, "to_ascii\(\'\\u0330\.\?蚀\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1444\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FB39}Ⴘ.𞡼𑇀ß\x{20D7}", %p)}, undef, "to_ascii\(\'\\uFB39Ⴘ\.𞡼𑇀ß\\u20D7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1445\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05D9}\x{05BC}Ⴘ.𞡼𑇀ß\x{20D7}", %p)}, undef, "to_ascii\(\'\\u05D9\\u05BCႸ\.𞡼𑇀ß\\u20D7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1446\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{05D9}\x{05BC}ⴘ.𞡼𑇀ß\x{20D7}", %p)}, undef, "to_ascii\(\'\\u05D9\\u05BCⴘ\.𞡼𑇀ß\\u20D7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1447\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{05D9}\x{05BC}Ⴘ.𞡼𑇀SS\x{20D7}", %p)}, undef, "to_ascii\(\'\\u05D9\\u05BCႸ\.𞡼𑇀SS\\u20D7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1448\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{05D9}\x{05BC}ⴘ.𞡼𑇀ss\x{20D7}", %p)}, undef, "to_ascii\(\'\\u05D9\\u05BCⴘ\.𞡼𑇀ss\\u20D7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1449\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{05D9}\x{05BC}Ⴘ.𞡼𑇀ss\x{20D7}", %p)}, undef, "to_ascii\(\'\\u05D9\\u05BCႸ\.𞡼𑇀ss\\u20D7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1450\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{FB39}ⴘ.𞡼𑇀ß\x{20D7}", %p)}, undef, "to_ascii\(\'\\uFB39ⴘ\.𞡼𑇀ß\\u20D7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1451\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{FB39}Ⴘ.𞡼𑇀SS\x{20D7}", %p)}, undef, "to_ascii\(\'\\uFB39Ⴘ\.𞡼𑇀SS\\u20D7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1452\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{FB39}ⴘ.𞡼𑇀ss\x{20D7}", %p)}, undef, "to_ascii\(\'\\uFB39ⴘ\.𞡼𑇀ss\\u20D7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1453\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{FB39}Ⴘ.𞡼𑇀ss\x{20D7}", %p)}, undef, "to_ascii\(\'\\uFB39Ⴘ\.𞡼𑇀ss\\u20D7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1454\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BA3}𐹰򁱓｡凬", %p)}, undef, "to_ascii\(\'\\u1BA3𐹰\?｡凬\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1455\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BA3}𐹰򁱓。凬", %p)}, undef, "to_ascii\(\'\\u1BA3𐹰\?\。凬\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1456\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🢟🄈\x{200D}ꡎ｡\x{0F84}", %p)}, undef, "to_ascii\(\'🢟🄈\\u200Dꡎ｡\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1457\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🢟7,\x{200D}ꡎ。\x{0F84}", %p)}, undef, "to_ascii\(\'🢟7\,\\u200Dꡎ\。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1459\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ꡔ。\x{1039}ᢇ", %p)}, undef, "to_ascii\(\'ꡔ\。\\u1039ᢇ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1461\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{20EB}≮.𝨖", %p)}, undef, "to_ascii\(\'\\u20EB\≮\.𝨖\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1462\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{20EB}<\x{0338}.𝨖", %p)}, undef, "to_ascii\(\'\\u20EB\<\\u0338\.𝨖\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1463\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴢ≯褦．ᠪ\x{07EA}Ⴞ\x{0767}", %p)}, undef, "to_ascii\(\'Ⴢ\≯褦．ᠪ\\u07EAႾ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1464\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴢ>\x{0338}褦．ᠪ\x{07EA}Ⴞ\x{0767}", %p)}, undef, "to_ascii\(\'Ⴢ\>\\u0338褦．ᠪ\\u07EAႾ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1465\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴢ≯褦.ᠪ\x{07EA}Ⴞ\x{0767}", %p)}, undef, "to_ascii\(\'Ⴢ\≯褦\.ᠪ\\u07EAႾ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1466\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴢ>\x{0338}褦.ᠪ\x{07EA}Ⴞ\x{0767}", %p)}, undef, "to_ascii\(\'Ⴢ\>\\u0338褦\.ᠪ\\u07EAႾ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1467\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴢ>\x{0338}褦.ᠪ\x{07EA}ⴞ\x{0767}", %p)}, undef, "to_ascii\(\'ⴢ\>\\u0338褦\.ᠪ\\u07EAⴞ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1468\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴢ≯褦.ᠪ\x{07EA}ⴞ\x{0767}", %p)}, undef, "to_ascii\(\'ⴢ\≯褦\.ᠪ\\u07EAⴞ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1469\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴢ>\x{0338}褦．ᠪ\x{07EA}ⴞ\x{0767}", %p)}, undef, "to_ascii\(\'ⴢ\>\\u0338褦．ᠪ\\u07EAⴞ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1470\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴢ≯褦．ᠪ\x{07EA}ⴞ\x{0767}", %p)}, undef, "to_ascii\(\'ⴢ\≯褦．ᠪ\\u07EAⴞ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1471\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򊉆󠆒\x{200C}\x{A953}。𞤙\x{067B}ꡘ", %p)}, undef, "to_ascii\(\'\?\󠆒\\u200C\\uA953\。\?\\u067Bꡘ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1472\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.≯", %p)}, undef, "to_ascii\(\'\\u200C\.\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1474\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1476\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𰅧񣩠-．\x{ABED}-悜", %p)}, undef, "to_ascii\(\'\?\?\-．\\uABED\-悜\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1478\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𰅧񣩠-.\x{ABED}-悜", %p)}, undef, "to_ascii\(\'\?\?\-\.\\uABED\-悜\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1479\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡉ𶓧⬞ᢜ.-\x{200D}𞣑\x{202E}", %p)}, undef, "to_ascii\(\'ᡉ\?\⬞ᢜ\.\-\\u200D𞣑\\u202E\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1480\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒐\x{200C}衃Ⴝ.\x{0682}Ⴔ", %p)}, undef, "to_ascii\(\'⒐\\u200C衃Ⴝ\.\\u0682Ⴔ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1482\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("9.\x{200C}衃Ⴝ.\x{0682}Ⴔ", %p)}, undef, "to_ascii\(\'9\.\\u200C衃Ⴝ\.\\u0682Ⴔ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1484\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("9.\x{200C}衃ⴝ.\x{0682}ⴔ", %p)}, undef, "to_ascii\(\'9\.\\u200C衃ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1486\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("9.\x{200C}衃Ⴝ.\x{0682}ⴔ", %p)}, undef, "to_ascii\(\'9\.\\u200C衃Ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1488\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒐\x{200C}衃ⴝ.\x{0682}ⴔ", %p)}, undef, "to_ascii\(\'⒐\\u200C衃ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1490\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒐\x{200C}衃Ⴝ.\x{0682}ⴔ", %p)}, undef, "to_ascii\(\'⒐\\u200C衃Ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1492\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{07E1}\x{200C}。--⸬", %p)}, undef, "to_ascii\(\'\\u07E1\\u200C\。\-\-\⸬\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1494\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞥓．\x{0718}", %p)}, "xn--of6h.xn--inb", "to_ascii\(\'\?．\\u0718\'\)\ \[data\/IdnaTest\.txt\:1496\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞥓.\x{0718}", %p)}, "xn--of6h.xn--inb", "to_ascii\(\'\?\.\\u0718\'\)\ \[data\/IdnaTest\.txt\:1497\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--of6h.xn--inb", %p)}, "xn--of6h.xn--inb", "to_ascii\(\'xn\-\-of6h\.xn\-\-inb\'\)\ \[data\/IdnaTest\.txt\:1498\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󠄽-．-\x{0DCA}", %p)}, undef, "to_ascii\(\'\󠄽\-．\-\\u0DCA\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1499\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄽-.-\x{0DCA}", %p)}, undef, "to_ascii\(\'\󠄽\-\.\-\\u0DCA\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1500\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("󠇝\x{075B}-.\x{1927}", %p)}, undef, "to_ascii\(\'\󠇝\\u075B\-\.\\u1927\'\)\ throws\ error\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1501\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞤴󠆹⦉𐹺.\x{A806}⒌󘤸", %p)}, undef, "to_ascii\(\'\?\󠆹\⦉𐹺\.\\uA806⒌\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1502\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤴󠆹⦉𐹺.\x{A806}5.󘤸", %p)}, undef, "to_ascii\(\'\?\󠆹\⦉𐹺\.\\uA8065\.\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1503\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("󠄸₀。𑖿\x{200C}𐦂\x{200D}", %p)}, undef, "to_ascii\(\'\󠄸₀\。𑖿\\u200C𐦂\\u200D\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1504\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("󠄸0。𑖿\x{200C}𐦂\x{200D}", %p)}, undef, "to_ascii\(\'\󠄸0\。𑖿\\u200C𐦂\\u200D\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1506\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴚ𐋸󠄄。𝟝ퟶ\x{103A}", %p)}, undef, "to_ascii\(\'Ⴚ𐋸\󠄄\。𝟝ퟶ\\u103A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1508\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴚ𐋸󠄄。5ퟶ\x{103A}", %p)}, undef, "to_ascii\(\'Ⴚ𐋸\󠄄\。5ퟶ\\u103A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1509\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ⴚ𐋸󠄄。5ퟶ\x{103A}", %p)}, "xn--ilj2659d.xn--5-dug9054m", "to_ascii\(\'ⴚ𐋸\󠄄\。5ퟶ\\u103A\'\)\ \[data\/IdnaTest\.txt\:1510\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--ilj2659d.xn--5-dug9054m", %p)}, "xn--ilj2659d.xn--5-dug9054m", "to_ascii\(\'xn\-\-ilj2659d\.xn\-\-5\-dug9054m\'\)\ \[data\/IdnaTest\.txt\:1511\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ⴚ𐋸.5ퟶ\x{103A}", %p)}, "xn--ilj2659d.xn--5-dug9054m", "to_ascii\(\'ⴚ𐋸\.5ퟶ\\u103A\'\)\ \[data\/IdnaTest\.txt\:1512\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴚ𐋸.5ퟶ\x{103A}", %p)}, undef, "to_ascii\(\'Ⴚ𐋸\.5ퟶ\\u103A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1513\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ⴚ𐋸󠄄。𝟝ퟶ\x{103A}", %p)}, "xn--ilj2659d.xn--5-dug9054m", "to_ascii\(\'ⴚ𐋸\󠄄\。𝟝ퟶ\\u103A\'\)\ \[data\/IdnaTest\.txt\:1514\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}-ᠹ﹪.\x{1DE1}\x{1922}", %p)}, undef, "to_ascii\(\'\\u200D\-ᠹ﹪\.\\u1DE1\\u1922\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1515\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}-ᠹ%.\x{1DE1}\x{1922}", %p)}, undef, "to_ascii\(\'\\u200D\-ᠹ\%\.\\u1DE1\\u1922\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1517\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠.ᠿ", %p)}, undef, "to_ascii\(\'\≠\.ᠿ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1519\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}.ᠿ", %p)}, undef, "to_ascii\(\'\=\\u0338\.ᠿ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1520\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0723}\x{05A3}｡㌪", %p)}, "xn--ucb18e.xn--eck4c5a", "to_ascii\(\'\\u0723\\u05A3｡㌪\'\)\ \[data\/IdnaTest\.txt\:1521\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0723}\x{05A3}。ハイツ", %p)}, "xn--ucb18e.xn--eck4c5a", "to_ascii\(\'\\u0723\\u05A3\。ハイツ\'\)\ \[data\/IdnaTest\.txt\:1522\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ucb18e.xn--eck4c5a", %p)}, "xn--ucb18e.xn--eck4c5a", "to_ascii\(\'xn\-\-ucb18e\.xn\-\-eck4c5a\'\)\ \[data\/IdnaTest\.txt\:1523\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0723}\x{05A3}.ハイツ", %p)}, "xn--ucb18e.xn--eck4c5a", "to_ascii\(\'\\u0723\\u05A3\.ハイツ\'\)\ \[data\/IdnaTest\.txt\:1524\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞷥󠆀≮.\x{2D7F}-", %p)}, undef, "to_ascii\(\'\?\󠆀\≮\.\\u2D7F\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1525\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞷥󠆀<\x{0338}.\x{2D7F}-", %p)}, undef, "to_ascii\(\'\?\󠆀\<\\u0338\.\\u2D7F\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1526\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("₆榎򦖎\x{0D4D}｡𞤅\x{06ED}\x{FC5A}󠮨", %p)}, undef, "to_ascii\(\'₆榎\?\\u0D4D｡\?\\u06ED\\uFC5A\?\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:1527\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("6榎򦖎\x{0D4D}。𞤅\x{06ED}\x{064A}\x{064A}󠮨", %p)}, undef, "to_ascii\(\'6榎\?\\u0D4D\。\?\\u06ED\\u064A\\u064A\?\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:1528\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𣩫．򌑲", %p)}, undef, "to_ascii\(\'𣩫．\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1529\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𣩫.򌑲", %p)}, undef, "to_ascii\(\'𣩫\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1530\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}︒｡\x{06B9}\x{200C}", %p)}, undef, "to_ascii\(\'\\u200D︒｡\\u06B9\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1531\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。。\x{06B9}\x{200C}", %p)}, "xn--skb", "to_ascii\(\'\\u200D\。\。\\u06B9\\u200C\'\)\ \[data\/IdnaTest\.txt\:1533\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--skb", %p)}, "xn--skb", "to_ascii\(\'xn\-\-skb\'\)\ \[data\/IdnaTest\.txt\:1535\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06B9}", %p)}, "xn--skb", "to_ascii\(\'\\u06B9\'\)\ \[data\/IdnaTest\.txt\:1536\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹦\x{200C}𐹶。\x{206D}", %p)}, undef, "to_ascii\(\'𐹦\\u200C𐹶\。\\u206D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1537\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("\x{0C4D}𝨾\x{05A9}𝟭。-𑜨", %p)}, undef, "to_ascii\(\'\\u0C4D𝨾\\u05A9𝟭\。\-𑜨\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1539\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("\x{0C4D}𝨾\x{05A9}1。-𑜨", %p)}, undef, "to_ascii\(\'\\u0C4D𝨾\\u05A91\。\-𑜨\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1540\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򣿈。뙏", %p)}, undef, "to_ascii\(\'\?\。뙏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1541\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򣿈。뙏", %p)}, undef, "to_ascii\(\'\?\。뙏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1542\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񕨚󠄌󑽀ᡀ.\x{08B6}", %p)}, undef, "to_ascii\(\'\?\󠄌\?ᡀ\.\\u08B6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1543\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}｡񅁛", %p)}, undef, "to_ascii\(\'\\u200D｡\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1544\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。񅁛", %p)}, undef, "to_ascii\(\'\\u200D\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1546\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{084B}皥．-", %p)}, undef, "to_ascii\(\'\\u084B皥．\-\'\)\ throws\ error\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:1548\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{084B}皥.-", %p)}, undef, "to_ascii\(\'\\u084B皥\.\-\'\)\ throws\ error\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:1549\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐣸\x{0315}𐮇．⒈ꡦ", %p)}, undef, "to_ascii\(\'\?\\u0315𐮇．⒈ꡦ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1550\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐣸\x{0315}𐮇.1.ꡦ", %p)}, undef, "to_ascii\(\'\?\\u0315𐮇\.1\.ꡦ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1551\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}ā𐹦", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0ā𐹦\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1552\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}a\x{0304}𐹦", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0a\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1554\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}ā𐹦", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\u1160ā𐹦\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1556\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}a\x{0304}𐹦", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\u1160a\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1558\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}a\x{0304}𐹦", %p)}, undef, "to_ascii\(\'ⴛ\\u200C\\u05A2\\u200D\。\\u1160a\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1560\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}ā𐹦", %p)}, undef, "to_ascii\(\'ⴛ\\u200C\\u05A2\\u200D\。\\u1160ā𐹦\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1562\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}Ā𐹦", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\u1160Ā𐹦\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1564\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}A\x{0304}𐹦", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\u1160A\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1566\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}a\x{0304}𐹦", %p)}, undef, "to_ascii\(\'ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0a\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1568\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}ā𐹦", %p)}, undef, "to_ascii\(\'ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0ā𐹦\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1570\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}Ā𐹦", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0Ā𐹦\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1572\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}A\x{0304}𐹦", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0A\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1574\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FFF9}\x{200C}｡曳⾑𐋰≯", %p)}, undef, "to_ascii\(\'\\uFFF9\\u200C｡曳⾑𐋰\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1576\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FFF9}\x{200C}｡曳⾑𐋰>\x{0338}", %p)}, undef, "to_ascii\(\'\\uFFF9\\u200C｡曳⾑𐋰\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1578\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FFF9}\x{200C}。曳襾𐋰≯", %p)}, undef, "to_ascii\(\'\\uFFF9\\u200C\。曳襾𐋰\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1580\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FFF9}\x{200C}。曳襾𐋰>\x{0338}", %p)}, undef, "to_ascii\(\'\\uFFF9\\u200C\。曳襾𐋰\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1582\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯⒈。ß", %p)}, undef, "to_ascii\(\'\≯⒈\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1584\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}⒈。ß", %p)}, undef, "to_ascii\(\'\>\\u0338⒈\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1585\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯1.。ß", %p)}, undef, "to_ascii\(\'\≯1\.\。ß\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1586\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}1.。ß", %p)}, undef, "to_ascii\(\'\>\\u03381\.\。ß\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1587\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}1.。SS", %p)}, undef, "to_ascii\(\'\>\\u03381\.\。SS\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1588\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯1.。SS", %p)}, undef, "to_ascii\(\'\≯1\.\。SS\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1589\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}⒈。SS", %p)}, undef, "to_ascii\(\'\>\\u0338⒈\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1590\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯⒈。SS", %p)}, undef, "to_ascii\(\'\≯⒈\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1591\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0667}\x{200D}\x{FB96}｡\x{07DA}-₆Ⴙ", %p)}, undef, "to_ascii\(\'\\u0667\\u200D\\uFB96｡\\u07DA\-₆Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1592\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0667}\x{200D}\x{06B3}。\x{07DA}-6Ⴙ", %p)}, undef, "to_ascii\(\'\\u0667\\u200D\\u06B3\。\\u07DA\-6Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1594\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{0667}\x{200D}\x{06B3}。\x{07DA}-6ⴙ", %p)}, undef, "to_ascii\(\'\\u0667\\u200D\\u06B3\。\\u07DA\-6ⴙ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1596\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{0667}\x{200D}\x{FB96}｡\x{07DA}-₆ⴙ", %p)}, undef, "to_ascii\(\'\\u0667\\u200D\\uFB96｡\\u07DA\-₆ⴙ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1598\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}｡≠", %p)}, undef, "to_ascii\(\'\\u200C｡\≠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1600\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}｡=\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C｡\=\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1602\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}。≠", %p)}, undef, "to_ascii\(\'\\u200C\。\≠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1604\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}。=\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\。\=\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1606\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𑖿𝨔.ᡟ𑖿\x{1B42}\x{200C}", %p)}, undef, "to_ascii\(\'𑖿𝨔\.ᡟ𑖿\\u1B42\\u200C\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1608\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򔣳\x{200D}򑝱.𖬴Ↄ≠-", %p)}, undef, "to_ascii\(\'\?\\u200D\?\.𖬴Ↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:1610\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔣳\x{200D}򑝱.𖬴Ↄ=\x{0338}-", %p)}, undef, "to_ascii\(\'\?\\u200D\?\.𖬴Ↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:1612\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔣳\x{200D}򑝱.𖬴ↄ=\x{0338}-", %p)}, undef, "to_ascii\(\'\?\\u200D\?\.𖬴ↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:1614\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔣳\x{200D}򑝱.𖬴ↄ≠-", %p)}, undef, "to_ascii\(\'\?\\u200D\?\.𖬴ↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:1616\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07E2}ς\x{200D}𝟳。蔑򛖢", %p)}, undef, "to_ascii\(\'\\u07E2ς\\u200D𝟳\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1618\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07E2}ς\x{200D}7。蔑򛖢", %p)}, undef, "to_ascii\(\'\\u07E2ς\\u200D7\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1620\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07E2}Σ\x{200D}7。蔑򛖢", %p)}, undef, "to_ascii\(\'\\u07E2Σ\\u200D7\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1622\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07E2}σ\x{200D}7。蔑򛖢", %p)}, undef, "to_ascii\(\'\\u07E2σ\\u200D7\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1624\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07E2}Σ\x{200D}𝟳。蔑򛖢", %p)}, undef, "to_ascii\(\'\\u07E2Σ\\u200D𝟳\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1626\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07E2}σ\x{200D}𝟳。蔑򛖢", %p)}, undef, "to_ascii\(\'\\u07E2σ\\u200D𝟳\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1628\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹰.\x{0600}", %p)}, undef, "to_ascii\(\'𐹰\.\\u0600\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1630\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{08A8}.𱠖", %p)}, undef, "to_ascii\(\'\-\\u08A8\.\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1631\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯𞱸󠇀。誆⒈", %p)}, undef, "to_ascii\(\'\≯\?\󠇀\。誆⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1632\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}𞱸󠇀。誆⒈", %p)}, undef, "to_ascii\(\'\>\\u0338\?\󠇀\。誆⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1633\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯𞱸󠇀。誆1.", %p)}, undef, "to_ascii\(\'\≯\?\󠇀\。誆1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1634\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}𞱸󠇀。誆1.", %p)}, undef, "to_ascii\(\'\>\\u0338\?\󠇀\。誆1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1635\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0616}𞥙䐊\x{0650}．︒\x{0645}↺\x{069C}", %p)}, undef, "to_ascii\(\'\\u0616\?䐊\\u0650．︒\\u0645\↺\\u069C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1636\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{0616}𞥙䐊\x{0650}.。\x{0645}↺\x{069C}", %p)}, undef, "to_ascii\(\'\\u0616\?䐊\\u0650\.\。\\u0645\↺\\u069C\'\)\ throws\ error\ V5\ B1\ A4_2\ \[data\/IdnaTest\.txt\:1637\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("퀬-\x{DF7E}񶳒.\x{200C}\x{0AC5}󩸤۴", %p)}, undef, "to_ascii\(\'퀬\-\\uDF7E\?\.\\u200C\\u0AC5\?۴\'\)\ throws\ error\ P1\ V6\ V5\ A3\ \[data\/IdnaTest\.txt\:1638\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("퀬-\x{DF7E}񶳒.\x{200C}\x{0AC5}󩸤۴", %p)}, undef, "to_ascii\(\'퀬\-\\uDF7E\?\.\\u200C\\u0AC5\?۴\'\)\ throws\ error\ P1\ V6\ V5\ A3\ \[data\/IdnaTest\.txt\:1640\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴌ.𐹾︒𑁿𞾄", %p)}, undef, "to_ascii\(\'Ⴌ\.𐹾︒𑁿\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1642\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴌ.𐹾。𑁿𞾄", %p)}, undef, "to_ascii\(\'Ⴌ\.𐹾\。𑁿\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1643\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴌ.𐹾。𑁿𞾄", %p)}, undef, "to_ascii\(\'ⴌ\.𐹾\。𑁿\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1644\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴌ.𐹾︒𑁿𞾄", %p)}, undef, "to_ascii\(\'ⴌ\.𐹾︒𑁿\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1645\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񧞿╏。𞩕󠁾", %p)}, undef, "to_ascii\(\'\?\╏\。\?\?\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:1646\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}┮󠇐．\x{0C00}\x{0C4D}\x{1734}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D\┮\󠇐．\\u0C00\\u0C4D\\u1734\\u200D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1647\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}┮󠇐.\x{0C00}\x{0C4D}\x{1734}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D\┮\󠇐\.\\u0C00\\u0C4D\\u1734\\u200D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1649\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򹚪｡🄂", %p)}, undef, "to_ascii\(\'\?｡🄂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1651\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򹚪。1,", %p)}, undef, "to_ascii\(\'\?\。1\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1652\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑍨刍.🛦", %p)}, undef, "to_ascii\(\'𑍨刍\.🛦\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1653\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󠌏3｡\x{1BF1}𝟒", %p)}, undef, "to_ascii\(\'\?3｡\\u1BF1𝟒\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1654\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠌏3。\x{1BF1}4", %p)}, undef, "to_ascii\(\'\?3\。\\u1BF14\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1655\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0687}６Ⴔ辘.\x{FD22}\x{0687}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0687６Ⴔ辘\.\\uFD22\\u0687\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1656\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0687}6Ⴔ辘.\x{0635}\x{064A}\x{0687}\x{200C}", %p)}, undef, "to_ascii\(\'\\u06876Ⴔ辘\.\\u0635\\u064A\\u0687\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1658\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0687}6ⴔ辘.\x{0635}\x{064A}\x{0687}\x{200C}", %p)}, undef, "to_ascii\(\'\\u06876ⴔ辘\.\\u0635\\u064A\\u0687\\u200C\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1660\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0687}６ⴔ辘.\x{FD22}\x{0687}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0687６ⴔ辘\.\\uFD22\\u0687\\u200C\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1662\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󠄍.𐮭𞰬򻫞۹", %p)}, undef, "to_ascii\(\'\󠄍\.𐮭\?\?۹\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1664\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A87D}≯．򻲀򒳄", %p)}, undef, "to_ascii\(\'\\uA87D\≯．\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1665\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A87D}>\x{0338}．򻲀򒳄", %p)}, undef, "to_ascii\(\'\\uA87D\>\\u0338．\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1666\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A87D}≯.򻲀򒳄", %p)}, undef, "to_ascii\(\'\\uA87D\≯\.\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1667\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A87D}>\x{0338}.򻲀򒳄", %p)}, undef, "to_ascii\(\'\\uA87D\>\\u0338\.\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1668\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ςო\x{067B}.ς\x{0714}", %p)}, undef, "to_ascii\(\'ςო\\u067B\.ς\\u0714\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1669\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σო\x{067B}.Σ\x{0714}", %p)}, undef, "to_ascii\(\'Σო\\u067B\.Σ\\u0714\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1670\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σო\x{067B}.σ\x{0714}", %p)}, undef, "to_ascii\(\'σო\\u067B\.σ\\u0714\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1671\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σო\x{067B}.σ\x{0714}", %p)}, undef, "to_ascii\(\'Σო\\u067B\.σ\\u0714\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1672\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σო\x{067B}.ς\x{0714}", %p)}, undef, "to_ascii\(\'Σო\\u067B\.ς\\u0714\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1673\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σო\x{067B}.ς\x{0714}", %p)}, undef, "to_ascii\(\'σო\\u067B\.ς\\u0714\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1674\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򄖚\x{0748}𠄯\x{075F}｡󠛩", %p)}, undef, "to_ascii\(\'\?\\u0748𠄯\\u075F｡\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1675\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򄖚\x{0748}𠄯\x{075F}。󠛩", %p)}, undef, "to_ascii\(\'\?\\u0748𠄯\\u075F\。\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1676\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠳛．\x{200D}䤫≠Ⴞ", %p)}, undef, "to_ascii\(\'\?．\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1677\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠳛．\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_ascii\(\'\?．\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1679\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠳛.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_ascii\(\'\?\.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1681\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠳛.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_ascii\(\'\?\.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1683\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠳛.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_ascii\(\'\?\.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1685\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠳛.\x{200D}䤫≠ⴞ", %p)}, undef, "to_ascii\(\'\?\.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1687\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠳛．\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_ascii\(\'\?．\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1689\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠳛．\x{200D}䤫≠ⴞ", %p)}, undef, "to_ascii\(\'\?．\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1691\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐽘𑈵．𐹣🕥", %p)}, undef, "to_ascii\(\'\?𑈵．𐹣🕥\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1693\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐽘𑈵.𐹣🕥", %p)}, undef, "to_ascii\(\'\?𑈵\.𐹣🕥\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1694\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒊⒈𑁄。9", %p)}, undef, "to_ascii\(\'⒊⒈𑁄\。9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1695\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("3.1.𑁄。9", %p)}, undef, "to_ascii\(\'3\.1\.𑁄\。9\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1696\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-\x{200C}\x{2DF1}≮．𐹱򭏴4₉", %p)}, undef, "to_ascii\(\'\-\\u200C\\u2DF1\≮．𐹱\?4₉\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1697\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{200C}\x{2DF1}<\x{0338}．𐹱򭏴4₉", %p)}, undef, "to_ascii\(\'\-\\u200C\\u2DF1\<\\u0338．𐹱\?4₉\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1699\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{200C}\x{2DF1}≮.𐹱򭏴49", %p)}, undef, "to_ascii\(\'\-\\u200C\\u2DF1\≮\.𐹱\?49\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1701\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{200C}\x{2DF1}<\x{0338}.𐹱򭏴49", %p)}, undef, "to_ascii\(\'\-\\u200C\\u2DF1\<\\u0338\.𐹱\?49\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1703\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-≯딾｡\x{0847}", %p)}, undef, "to_ascii\(\'\-\≯딾｡\\u0847\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1705\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("->\x{0338}딾｡\x{0847}", %p)}, undef, "to_ascii\(\'\-\>\\u0338딾｡\\u0847\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1706\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-≯딾。\x{0847}", %p)}, undef, "to_ascii\(\'\-\≯딾\。\\u0847\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1707\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("->\x{0338}딾。\x{0847}", %p)}, undef, "to_ascii\(\'\-\>\\u0338딾\。\\u0847\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1708\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑙢⒈𐹠-｡󠗐\x{200C}", %p)}, undef, "to_ascii\(\'\?⒈𐹠\-｡\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1709\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑙢1.𐹠-。󠗐\x{200C}", %p)}, undef, "to_ascii\(\'\?1\.𐹠\-\。\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1711\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{034A}．𐨎", %p)}, undef, "to_ascii\(\'\\u034A．𐨎\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1713\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{034A}.𐨎", %p)}, undef, "to_ascii\(\'\\u034A\.𐨎\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1714\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("훉≮｡\x{0E34}", %p)}, undef, "to_ascii\(\'훉\≮｡\\u0E34\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1715\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("훉<\x{0338}｡\x{0E34}", %p)}, undef, "to_ascii\(\'훉\<\\u0338｡\\u0E34\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1716\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("훉≮。\x{0E34}", %p)}, undef, "to_ascii\(\'훉\≮\。\\u0E34\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1717\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("훉<\x{0338}。\x{0E34}", %p)}, undef, "to_ascii\(\'훉\<\\u0338\。\\u0E34\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1718\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2DF7}򞣉🃘．𴈇𝟸\x{0659}𞤯", %p)}, undef, "to_ascii\(\'\\u2DF7\?🃘．\?𝟸\\u0659\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1719\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2DF7}򞣉🃘.𴈇2\x{0659}𞤯", %p)}, undef, "to_ascii\(\'\\u2DF7\?🃘\.\?2\\u0659\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1720\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󗇩ßᢞ\x{200C}。\x{0660}𞷻\x{FCD4}-", %p)}, undef, "to_ascii\(\'\?ßᢞ\\u200C\。\\u0660\?\\uFCD4\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:1721\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󗇩ßᢞ\x{200C}。\x{0660}𞷻\x{0646}\x{062E}-", %p)}, undef, "to_ascii\(\'\?ßᢞ\\u200C\。\\u0660\?\\u0646\\u062E\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:1723\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󗇩SSᢞ\x{200C}。\x{0660}𞷻\x{0646}\x{062E}-", %p)}, undef, "to_ascii\(\'\?SSᢞ\\u200C\。\\u0660\?\\u0646\\u062E\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:1725\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󗇩ssᢞ\x{200C}。\x{0660}𞷻\x{0646}\x{062E}-", %p)}, undef, "to_ascii\(\'\?ssᢞ\\u200C\。\\u0660\?\\u0646\\u062E\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:1727\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󗇩Ssᢞ\x{200C}。\x{0660}𞷻\x{0646}\x{062E}-", %p)}, undef, "to_ascii\(\'\?Ssᢞ\\u200C\。\\u0660\?\\u0646\\u062E\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:1729\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󗇩SSᢞ\x{200C}。\x{0660}𞷻\x{FCD4}-", %p)}, undef, "to_ascii\(\'\?SSᢞ\\u200C\。\\u0660\?\\uFCD4\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:1731\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󗇩ssᢞ\x{200C}。\x{0660}𞷻\x{FCD4}-", %p)}, undef, "to_ascii\(\'\?ssᢞ\\u200C\。\\u0660\?\\uFCD4\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:1733\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󗇩Ssᢞ\x{200C}。\x{0660}𞷻\x{FCD4}-", %p)}, undef, "to_ascii\(\'\?Ssᢞ\\u200C\。\\u0660\?\\uFCD4\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:1735\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡆ。Ↄ\x{0FB5}놮-", %p)}, undef, "to_ascii\(\'ꡆ\。Ↄ\\u0FB5놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1737\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡆ。Ↄ\x{0FB5}놮-", %p)}, undef, "to_ascii\(\'ꡆ\。Ↄ\\u0FB5놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1738\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ꡆ。ↄ\x{0FB5}놮-", %p)}, undef, "to_ascii\(\'ꡆ\。ↄ\\u0FB5놮\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1739\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ꡆ。ↄ\x{0FB5}놮-", %p)}, undef, "to_ascii\(\'ꡆ\。ↄ\\u0FB5놮\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1740\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{FDAD}\x{200D}.񥰌\x{06A9}", %p)}, undef, "to_ascii\(\'\\uFDAD\\u200D\.\?\\u06A9\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1741\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{0645}\x{064A}\x{200D}.񥰌\x{06A9}", %p)}, undef, "to_ascii\(\'\\u0644\\u0645\\u064A\\u200D\.\?\\u06A9\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1743\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴜ\x{1C2F}𐳒≯。\x{06E0}\x{1732}\x{0FBA}", %p)}, undef, "to_ascii\(\'Ⴜ\\u1C2F𐳒\≯\。\\u06E0\\u1732\\u0FBA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1745\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴜ\x{1C2F}𐳒>\x{0338}。\x{06E0}\x{1732}\x{0FBA}", %p)}, undef, "to_ascii\(\'Ⴜ\\u1C2F𐳒\>\\u0338\。\\u06E0\\u1732\\u0FBA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1746\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴜ\x{1C2F}𐳒>\x{0338}。\x{06E0}\x{1732}\x{0FBA}", %p)}, undef, "to_ascii\(\'ⴜ\\u1C2F𐳒\>\\u0338\。\\u06E0\\u1732\\u0FBA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1747\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴜ\x{1C2F}𐳒≯。\x{06E0}\x{1732}\x{0FBA}", %p)}, undef, "to_ascii\(\'ⴜ\\u1C2F𐳒\≯\。\\u06E0\\u1732\\u0FBA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1748\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴜ\x{1C2F}𐲒≯。\x{06E0}\x{1732}\x{0FBA}", %p)}, undef, "to_ascii\(\'Ⴜ\\u1C2F𐲒\≯\。\\u06E0\\u1732\\u0FBA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1749\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴜ\x{1C2F}𐲒>\x{0338}。\x{06E0}\x{1732}\x{0FBA}", %p)}, undef, "to_ascii\(\'Ⴜ\\u1C2F𐲒\>\\u0338\。\\u06E0\\u1732\\u0FBA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1750\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋵。\x{FCEC}", %p)}, "xn--p97c.xn--fhbe", "to_ascii\(\'𐋵\。\\uFCEC\'\)\ \[data\/IdnaTest\.txt\:1751\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋵。\x{0643}\x{0645}", %p)}, "xn--p97c.xn--fhbe", "to_ascii\(\'𐋵\。\\u0643\\u0645\'\)\ \[data\/IdnaTest\.txt\:1752\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--p97c.xn--fhbe", %p)}, "xn--p97c.xn--fhbe", "to_ascii\(\'xn\-\-p97c\.xn\-\-fhbe\'\)\ \[data\/IdnaTest\.txt\:1753\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋵.\x{0643}\x{0645}", %p)}, "xn--p97c.xn--fhbe", "to_ascii\(\'𐋵\.\\u0643\\u0645\'\)\ \[data\/IdnaTest\.txt\:1754\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("≮𝅶．񱲁\x{AAEC}\x{2E48}󰥭", %p)}, undef, "to_ascii\(\'\≮\?．\?\\uAAEC\\u2E48\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1755\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𝅶．񱲁\x{AAEC}\x{2E48}󰥭", %p)}, undef, "to_ascii\(\'\<\\u0338\?．\?\\uAAEC\\u2E48\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1756\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮𝅶.񱲁\x{AAEC}\x{2E48}󰥭", %p)}, undef, "to_ascii\(\'\≮\?\.\?\\uAAEC\\u2E48\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1757\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𝅶.񱲁\x{AAEC}\x{2E48}󰥭", %p)}, undef, "to_ascii\(\'\<\\u0338\?\.\?\\uAAEC\\u2E48\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1758\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2DF0}\x{0358}ᢕ．\x{0361}𐹷󠴍", %p)}, undef, "to_ascii\(\'\\u2DF0\\u0358ᢕ．\\u0361𐹷\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1759\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2DF0}\x{0358}ᢕ.\x{0361}𐹷󠴍", %p)}, undef, "to_ascii\(\'\\u2DF0\\u0358ᢕ\.\\u0361𐹷\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1760\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{FD79}ᡐ\x{200C}\x{06AD}．𑋪\x{05C7}", %p)}, undef, "to_ascii\(\'\\uFD79ᡐ\\u200C\\u06AD．𑋪\\u05C7\'\)\ throws\ error\ V5\ B2\ \[data\/IdnaTest\.txt\:1761\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{063A}\x{0645}\x{0645}ᡐ\x{200C}\x{06AD}.𑋪\x{05C7}", %p)}, undef, "to_ascii\(\'\\u063A\\u0645\\u0645ᡐ\\u200C\\u06AD\.𑋪\\u05C7\'\)\ throws\ error\ V5\ B2\ \[data\/IdnaTest\.txt\:1762\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𑑂｡\x{200D}󥞀🞕򥁔", %p)}, undef, "to_ascii\(\'\?｡\\u200D\?🞕\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1763\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑑂。\x{200D}󥞀🞕򥁔", %p)}, undef, "to_ascii\(\'\?\。\\u200D\?🞕\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1765\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{05E9}。⒚", %p)}, undef, "to_ascii\(\'\-\\u05E9\。⒚\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1767\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{05E9}。19.", %p)}, undef, "to_ascii\(\'\-\\u05E9\。19\.\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1768\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("􊾻\x{0845}\x{200C}｡ᢎ\x{200D}", %p)}, undef, "to_ascii\(\'\?\\u0845\\u200C｡ᢎ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1769\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("􊾻\x{0845}\x{200C}。ᢎ\x{200D}", %p)}, undef, "to_ascii\(\'\?\\u0845\\u200C\。ᢎ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1771\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß\x{09C1}\x{1DED}。\x{0620}8₅", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'ß\\u09C1\\u1DED\。\\u06208₅\'\)\ \[data\/IdnaTest\.txt\:1773\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß\x{09C1}\x{1DED}。\x{0620}85", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'ß\\u09C1\\u1DED\。\\u062085\'\)\ \[data\/IdnaTest\.txt\:1775\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("SS\x{09C1}\x{1DED}。\x{0620}85", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'SS\\u09C1\\u1DED\。\\u062085\'\)\ \[data\/IdnaTest\.txt\:1777\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss\x{09C1}\x{1DED}。\x{0620}85", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'ss\\u09C1\\u1DED\。\\u062085\'\)\ \[data\/IdnaTest\.txt\:1778\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Ss\x{09C1}\x{1DED}。\x{0620}85", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'Ss\\u09C1\\u1DED\。\\u062085\'\)\ \[data\/IdnaTest\.txt\:1779\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--ss-e2f077r.xn--85-psd", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'xn\-\-ss\-e2f077r\.xn\-\-85\-psd\'\)\ \[data\/IdnaTest\.txt\:1780\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss\x{09C1}\x{1DED}.\x{0620}85", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'ss\\u09C1\\u1DED\.\\u062085\'\)\ \[data\/IdnaTest\.txt\:1781\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("SS\x{09C1}\x{1DED}.\x{0620}85", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'SS\\u09C1\\u1DED\.\\u062085\'\)\ \[data\/IdnaTest\.txt\:1782\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Ss\x{09C1}\x{1DED}.\x{0620}85", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'Ss\\u09C1\\u1DED\.\\u062085\'\)\ \[data\/IdnaTest\.txt\:1783\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--zca266bwrr.xn--85-psd", %p)}, "xn--zca266bwrr.xn--85-psd", "to_ascii\(\'xn\-\-zca266bwrr\.xn\-\-85\-psd\'\)\ \[data\/IdnaTest\.txt\:1784\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß\x{09C1}\x{1DED}.\x{0620}85", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'ß\\u09C1\\u1DED\.\\u062085\'\)\ \[data\/IdnaTest\.txt\:1785\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("SS\x{09C1}\x{1DED}。\x{0620}8₅", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'SS\\u09C1\\u1DED\。\\u06208₅\'\)\ \[data\/IdnaTest\.txt\:1787\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss\x{09C1}\x{1DED}。\x{0620}8₅", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'ss\\u09C1\\u1DED\。\\u06208₅\'\)\ \[data\/IdnaTest\.txt\:1788\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Ss\x{09C1}\x{1DED}。\x{0620}8₅", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'Ss\\u09C1\\u1DED\。\\u06208₅\'\)\ \[data\/IdnaTest\.txt\:1789\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0ACD}\x{0484}魅𝟣．₃𐹥ß", %p)}, undef, "to_ascii\(\'\\u0ACD\\u0484魅𝟣．₃𐹥ß\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1790\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0ACD}\x{0484}魅1.3𐹥ß", %p)}, undef, "to_ascii\(\'\\u0ACD\\u0484魅1\.3𐹥ß\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1791\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0ACD}\x{0484}魅1.3𐹥SS", %p)}, undef, "to_ascii\(\'\\u0ACD\\u0484魅1\.3𐹥SS\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1792\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0ACD}\x{0484}魅1.3𐹥ss", %p)}, undef, "to_ascii\(\'\\u0ACD\\u0484魅1\.3𐹥ss\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1793\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0ACD}\x{0484}魅1.3𐹥Ss", %p)}, undef, "to_ascii\(\'\\u0ACD\\u0484魅1\.3𐹥Ss\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1794\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0ACD}\x{0484}魅𝟣．₃𐹥SS", %p)}, undef, "to_ascii\(\'\\u0ACD\\u0484魅𝟣．₃𐹥SS\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1795\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0ACD}\x{0484}魅𝟣．₃𐹥ss", %p)}, undef, "to_ascii\(\'\\u0ACD\\u0484魅𝟣．₃𐹥ss\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1796\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0ACD}\x{0484}魅𝟣．₃𐹥Ss", %p)}, undef, "to_ascii\(\'\\u0ACD\\u0484魅𝟣．₃𐹥Ss\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1797\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{072B}｡𑓂⒈𑜫󠿻", %p)}, undef, "to_ascii\(\'\\u072B｡𑓂⒈𑜫\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1798\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{072B}。𑓂1.𑜫󠿻", %p)}, undef, "to_ascii\(\'\\u072B\。𑓂1\.𑜫\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1799\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FE0D}છ。嵨", %p)}, "xn--6dc.xn--tot", "to_ascii\(\'\\uFE0Dછ\。嵨\'\)\ \[data\/IdnaTest\.txt\:1800\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--6dc.xn--tot", %p)}, "xn--6dc.xn--tot", "to_ascii\(\'xn\-\-6dc\.xn\-\-tot\'\)\ \[data\/IdnaTest\.txt\:1801\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("છ.嵨", %p)}, "xn--6dc.xn--tot", "to_ascii\(\'છ\.嵨\'\)\ \[data\/IdnaTest\.txt\:1802\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴔ≠Ⴀ.𐹥𐹰", %p)}, undef, "to_ascii\(\'Ⴔ\≠Ⴀ\.𐹥𐹰\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1803\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴔ=\x{0338}Ⴀ.𐹥𐹰", %p)}, undef, "to_ascii\(\'Ⴔ\=\\u0338Ⴀ\.𐹥𐹰\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1804\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴔ=\x{0338}ⴀ.𐹥𐹰", %p)}, undef, "to_ascii\(\'ⴔ\=\\u0338ⴀ\.𐹥𐹰\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1805\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴔ≠ⴀ.𐹥𐹰", %p)}, undef, "to_ascii\(\'ⴔ\≠ⴀ\.𐹥𐹰\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1806\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{200C}⒙𐫥｡𝨵", %p)}, undef, "to_ascii\(\'\-\\u200C⒙𐫥｡𝨵\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1807\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("-\x{200C}18.𐫥。𝨵", %p)}, undef, "to_ascii\(\'\-\\u200C18\.𐫥\。𝨵\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1809\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("︒.ʌᠣ-𐹽", %p)}, undef, "to_ascii\(\'︒\.ʌᠣ\-𐹽\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1811\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("。.ʌᠣ-𐹽", %p)}, undef, "to_ascii\(\'\。\.ʌᠣ\-𐹽\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1812\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("。.Ʌᠣ-𐹽", %p)}, undef, "to_ascii\(\'\。\.Ʌᠣ\-𐹽\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1813\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("︒.Ʌᠣ-𐹽", %p)}, undef, "to_ascii\(\'︒\.Ʌᠣ\-𐹽\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1814\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FE05}︒。𦀾\x{1CE0}", %p)}, undef, "to_ascii\(\'\\uFE05︒\。𦀾\\u1CE0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1815\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{FE05}。。𦀾\x{1CE0}", %p)}, "xn--t6f5138v", "to_ascii\(\'\\uFE05\。\。𦀾\\u1CE0\'\)\ \[data\/IdnaTest\.txt\:1816\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("xn--t6f5138v", %p)}, "xn--t6f5138v", "to_ascii\(\'xn\-\-t6f5138v\'\)\ \[data\/IdnaTest\.txt\:1817\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𦀾\x{1CE0}", %p)}, "xn--t6f5138v", "to_ascii\(\'𦀾\\u1CE0\'\)\ \[data\/IdnaTest\.txt\:1818\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞮑ß􏞞。ᡁ", %p)}, undef, "to_ascii\(\'\?ß\?\。ᡁ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1819\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞮑SS􏞞。ᡁ", %p)}, undef, "to_ascii\(\'\?SS\?\。ᡁ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1820\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞮑ss􏞞。ᡁ", %p)}, undef, "to_ascii\(\'\?ss\?\。ᡁ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1821\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞮑Ss􏞞。ᡁ", %p)}, undef, "to_ascii\(\'\?Ss\?\。ᡁ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1822\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A953}\x{200D}\x{062C}\x{066C}。𱆎󻡟\x{200C}󠅆", %p)}, undef, "to_ascii\(\'\\uA953\\u200D\\u062C\\u066C\。\?\?\\u200C\󠅆\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1823\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏．-ß\x{200C}≠", %p)}, undef, "to_ascii\(\'\?．\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1825\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏．-ß\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\?．\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1827\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏.-ß\x{200C}≠", %p)}, undef, "to_ascii\(\'\?\.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1829\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏.-ß\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\?\.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1831\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏.-SS\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\?\.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1833\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏.-SS\x{200C}≠", %p)}, undef, "to_ascii\(\'\?\.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1835\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏.-ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\?\.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1837\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏.-ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\?\.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1839\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\?\.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1841\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏.-Ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\?\.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1843\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏．-SS\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\?．\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1845\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏．-SS\x{200C}≠", %p)}, undef, "to_ascii\(\'\?．\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1847\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏．-ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\?．\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1849\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏．-ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\?．\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1851\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏．-Ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\?．\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1853\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏．-Ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\?．\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1855\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡙ\x{200C}｡≯𐋲≠", %p)}, undef, "to_ascii\(\'ᡙ\\u200C｡\≯𐋲\≠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1857\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡙ\x{200C}｡>\x{0338}𐋲=\x{0338}", %p)}, undef, "to_ascii\(\'ᡙ\\u200C｡\>\\u0338𐋲\=\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1859\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡙ\x{200C}。≯𐋲≠", %p)}, undef, "to_ascii\(\'ᡙ\\u200C\。\≯𐋲\≠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1861\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡙ\x{200C}。>\x{0338}𐋲=\x{0338}", %p)}, undef, "to_ascii\(\'ᡙ\\u200C\。\>\\u0338𐋲\=\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1863\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹧𞲄󠁭񆼩。\x{034E}🄀", %p)}, undef, "to_ascii\(\'𐹧\?\?\?\。\\u034E🄀\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1865\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹧𞲄󠁭񆼩。\x{034E}0.", %p)}, undef, "to_ascii\(\'𐹧\?\?\?\。\\u034E0\.\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1866\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴄ．\x{200D}\x{0721}󻣋ς", %p)}, undef, "to_ascii\(\'Ⴄ．\\u200D\\u0721\?ς\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1867\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴄ.\x{200D}\x{0721}󻣋ς", %p)}, undef, "to_ascii\(\'Ⴄ\.\\u200D\\u0721\?ς\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1869\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴄ.\x{200D}\x{0721}󻣋ς", %p)}, undef, "to_ascii\(\'ⴄ\.\\u200D\\u0721\?ς\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1871\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴄ.\x{200D}\x{0721}󻣋Σ", %p)}, undef, "to_ascii\(\'Ⴄ\.\\u200D\\u0721\?Σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1873\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴄ.\x{200D}\x{0721}󻣋σ", %p)}, undef, "to_ascii\(\'ⴄ\.\\u200D\\u0721\?σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1875\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴄ．\x{200D}\x{0721}󻣋ς", %p)}, undef, "to_ascii\(\'ⴄ．\\u200D\\u0721\?ς\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1877\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴄ．\x{200D}\x{0721}󻣋Σ", %p)}, undef, "to_ascii\(\'Ⴄ．\\u200D\\u0721\?Σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1879\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴄ．\x{200D}\x{0721}󻣋σ", %p)}, undef, "to_ascii\(\'ⴄ．\\u200D\\u0721\?σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1881\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򮵛\x{0613}.Ⴕ", %p)}, undef, "to_ascii\(\'\?\\u0613\.Ⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1883\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򮵛\x{0613}.ⴕ", %p)}, undef, "to_ascii\(\'\?\\u0613\.ⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1884\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯\x{1DF3}𞤥。\x{200C}\x{A8C4}󠪉\x{200D}", %p)}, undef, "to_ascii\(\'\≯\\u1DF3\?\。\\u200C\\uA8C4\?\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1885\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}\x{1DF3}𞤥。\x{200C}\x{A8C4}󠪉\x{200D}", %p)}, undef, "to_ascii\(\'\>\\u0338\\u1DF3\?\。\\u200C\\uA8C4\?\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1887\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠄷｡򒑁", %p)}, undef, "to_ascii\(\'\\u200C\󠄷｡\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1889\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠄷。򒑁", %p)}, undef, "to_ascii\(\'\\u200C\󠄷\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1891\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈\x{0DD6}焅.󗡙\x{200D}ꡟ", %p)}, undef, "to_ascii\(\'⒈\\u0DD6焅\.\?\\u200Dꡟ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1893\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.\x{0DD6}焅.󗡙\x{200D}ꡟ", %p)}, undef, "to_ascii\(\'1\.\\u0DD6焅\.\?\\u200Dꡟ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1895\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DCD}ς≮.ς𝪦𞤕0", %p)}, undef, "to_ascii\(\'\\u1DCDς\≮\.ς𝪦\?0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1897\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DCD}ς<\x{0338}.ς𝪦𞤕0", %p)}, undef, "to_ascii\(\'\\u1DCDς\<\\u0338\.ς𝪦\?0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1898\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DCD}Σ<\x{0338}.Σ𝪦𞤕0", %p)}, undef, "to_ascii\(\'\\u1DCDΣ\<\\u0338\.Σ𝪦\?0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1899\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DCD}Σ≮.Σ𝪦𞤕0", %p)}, undef, "to_ascii\(\'\\u1DCDΣ\≮\.Σ𝪦\?0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1900\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DCD}σ≮.σ𝪦𞤕0", %p)}, undef, "to_ascii\(\'\\u1DCDσ\≮\.σ𝪦\?0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1901\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DCD}σ<\x{0338}.σ𝪦𞤕0", %p)}, undef, "to_ascii\(\'\\u1DCDσ\<\\u0338\.σ𝪦\?0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1902\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򢦾ß\x{05B9}𐫙.\x{05AD}\x{08A1}", %p)}, undef, "to_ascii\(\'\?ß\\u05B9𐫙\.\\u05AD\\u08A1\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1903\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򢦾SS\x{05B9}𐫙.\x{05AD}\x{08A1}", %p)}, undef, "to_ascii\(\'\?SS\\u05B9𐫙\.\\u05AD\\u08A1\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1904\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򢦾ss\x{05B9}𐫙.\x{05AD}\x{08A1}", %p)}, undef, "to_ascii\(\'\?ss\\u05B9𐫙\.\\u05AD\\u08A1\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1905\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򢦾Ss\x{05B9}𐫙.\x{05AD}\x{08A1}", %p)}, undef, "to_ascii\(\'\?Ss\\u05B9𐫙\.\\u05AD\\u08A1\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1906\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𞣄｡⒈", %p)}, undef, "to_ascii\(\'\-𞣄｡⒈\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1907\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-𞣄。1.", %p)}, undef, "to_ascii\(\'\-𞣄\。1\.\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1908\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񈠢𐫖𝟡。\x{063E}𑘿", %p)}, undef, "to_ascii\(\'\?𐫖𝟡\。\\u063E𑘿\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1909\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񈠢𐫖9。\x{063E}𑘿", %p)}, undef, "to_ascii\(\'\?𐫖9\。\\u063E𑘿\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1910\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0668}\x{FC8C}\x{0668}\x{1A5D}.\x{200D}", %p)}, undef, "to_ascii\(\'\\u0668\\uFC8C\\u0668\\u1A5D\.\\u200D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1911\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0668}\x{0646}\x{0645}\x{0668}\x{1A5D}.\x{200D}", %p)}, undef, "to_ascii\(\'\\u0668\\u0646\\u0645\\u0668\\u1A5D\.\\u200D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1913\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𝟘．Ⴇ󀳑\x{FD50}񫃱", %p)}, undef, "to_ascii\(\'𝟘．Ⴇ\?\\uFD50\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1915\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0.Ⴇ󀳑\x{062A}\x{062C}\x{0645}񫃱", %p)}, undef, "to_ascii\(\'0\.Ⴇ\?\\u062A\\u062C\\u0645\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1916\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0.ⴇ󀳑\x{062A}\x{062C}\x{0645}񫃱", %p)}, undef, "to_ascii\(\'0\.ⴇ\?\\u062A\\u062C\\u0645\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1917\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟘．ⴇ󀳑\x{FD50}񫃱", %p)}, undef, "to_ascii\(\'𝟘．ⴇ\?\\uFD50\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1918\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𑇀▍.⁞ᠰ", %p)}, undef, "to_ascii\(\'𑇀\▍\.\⁞ᠰ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1919\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}-\x{067A}.򏯩", %p)}, undef, "to_ascii\(\'\\u200D\-\\u067A\.\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1920\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᠢ𐮂𐫘寐｡\x{200C}≯✳", %p)}, undef, "to_ascii\(\'ᠢ𐮂𐫘寐｡\\u200C\≯\✳\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1922\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᠢ𐮂𐫘寐｡\x{200C}>\x{0338}✳", %p)}, undef, "to_ascii\(\'ᠢ𐮂𐫘寐｡\\u200C\>\\u0338\✳\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1924\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᠢ𐮂𐫘寐。\x{200C}≯✳", %p)}, undef, "to_ascii\(\'ᠢ𐮂𐫘寐\。\\u200C\≯\✳\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1926\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᠢ𐮂𐫘寐。\x{200C}>\x{0338}✳", %p)}, undef, "to_ascii\(\'ᠢ𐮂𐫘寐\。\\u200C\>\\u0338\✳\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1928\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}｡󸲜ႺႴ𞨇", %p)}, undef, "to_ascii\(\'\\u200D｡\?ႺႴ\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1930\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。󸲜ႺႴ𞨇", %p)}, undef, "to_ascii\(\'\\u200D\。\?ႺႴ\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1932\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。󸲜ⴚⴔ𞨇", %p)}, undef, "to_ascii\(\'\\u200D\。\?ⴚⴔ\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1934\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。󸲜Ⴚⴔ𞨇", %p)}, undef, "to_ascii\(\'\\u200D\。\?Ⴚⴔ\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1936\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}｡󸲜ⴚⴔ𞨇", %p)}, undef, "to_ascii\(\'\\u200D｡\?ⴚⴔ\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1938\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}｡󸲜Ⴚⴔ𞨇", %p)}, undef, "to_ascii\(\'\\u200D｡\?Ⴚⴔ\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1940\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-3.\x{200D}ヌᢕ", %p)}, undef, "to_ascii\(\'\-3\.\\u200Dヌᢕ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1942\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🂃\x{0666}ß\x{200D}。󠠂򭰍𞩒-", %p)}, undef, "to_ascii\(\'🂃\\u0666ß\\u200D\。\?\?\?\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1944\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🂃\x{0666}SS\x{200D}。󠠂򭰍𞩒-", %p)}, undef, "to_ascii\(\'🂃\\u0666SS\\u200D\。\?\?\?\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1946\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🂃\x{0666}ss\x{200D}。󠠂򭰍𞩒-", %p)}, undef, "to_ascii\(\'🂃\\u0666ss\\u200D\。\?\?\?\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1948\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🂃\x{0666}Ss\x{200D}。󠠂򭰍𞩒-", %p)}, undef, "to_ascii\(\'🂃\\u0666Ss\\u200D\。\?\?\?\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1950\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꇟ-𐾺\x{069F}。򰀺\x{200C}", %p)}, undef, "to_ascii\(\'ꇟ\-\?\\u069F\。\?\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1952\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0665}.\x{0484}𐨗𝩋𴤃", %p)}, undef, "to_ascii\(\'\\u0665\.\\u0484𐨗𝩋\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1954\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-.񱼓\x{0649}𐨿", %p)}, undef, "to_ascii\(\'\-\.\?\\u0649𐨿\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1955\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󾬨ς.𞶙녫ß", %p)}, undef, "to_ascii\(\'\?ς\.\?녫ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1956\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󾬨ς.𞶙녫ß", %p)}, undef, "to_ascii\(\'\?ς\.\?녫ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1957\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󾬨Σ.𞶙녫SS", %p)}, undef, "to_ascii\(\'\?Σ\.\?녫SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1958\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󾬨Σ.𞶙녫SS", %p)}, undef, "to_ascii\(\'\?Σ\.\?녫SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1959\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󾬨σ.𞶙녫ss", %p)}, undef, "to_ascii\(\'\?σ\.\?녫ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1960\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󾬨σ.𞶙녫ss", %p)}, undef, "to_ascii\(\'\?σ\.\?녫ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1961\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󾬨Σ.𞶙녫Ss", %p)}, undef, "to_ascii\(\'\?Σ\.\?녫Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1962\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󾬨Σ.𞶙녫Ss", %p)}, undef, "to_ascii\(\'\?Σ\.\?녫Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1963\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⅎ\x{17D2}\x{200D}｡≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ\\u17D2\\u200D｡\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1964\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⅎ\x{17D2}\x{200D}｡=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ\\u17D2\\u200D｡\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1966\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⅎ\x{17D2}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ\\u17D2\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1968\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⅎ\x{17D2}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ\\u17D2\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1970\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⅎ\x{17D2}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ\\u17D2\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1972\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⅎ\x{17D2}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ\\u17D2\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1974\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⅎ\x{17D2}\x{200D}｡=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ\\u17D2\\u200D｡\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1976\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⅎ\x{17D2}\x{200D}｡≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ\\u17D2\\u200D｡\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1978\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐋺\x{AAF6}\x{A953}󧦉．\x{200C}\x{1714}\x{068F}", %p)}, undef, "to_ascii\(\'𐋺\\uAAF6\\uA953\?．\\u200C\\u1714\\u068F\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1980\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐋺\x{AAF6}\x{A953}󧦉.\x{200C}\x{1714}\x{068F}", %p)}, undef, "to_ascii\(\'𐋺\\uAAF6\\uA953\?\.\\u200C\\u1714\\u068F\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1982\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񺔯\x{0FA8}．≯", %p)}, undef, "to_ascii\(\'\?\\u0FA8．\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1984\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񺔯\x{0FA8}．>\x{0338}", %p)}, undef, "to_ascii\(\'\?\\u0FA8．\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1985\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񺔯\x{0FA8}.≯", %p)}, undef, "to_ascii\(\'\?\\u0FA8\.\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1986\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񺔯\x{0FA8}.>\x{0338}", %p)}, undef, "to_ascii\(\'\?\\u0FA8\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1987\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𞡄Ⴓ．𐇽", %p)}, undef, "to_ascii\(\'\\u200D𞡄Ⴓ．𐇽\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1988\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𞡄Ⴓ.𐇽", %p)}, undef, "to_ascii\(\'\\u200D𞡄Ⴓ\.𐇽\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1990\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}𞡄ⴓ.𐇽", %p)}, undef, "to_ascii\(\'\\u200D𞡄ⴓ\.𐇽\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1992\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}𞡄ⴓ．𐇽", %p)}, undef, "to_ascii\(\'\\u200D𞡄ⴓ．𐇽\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1994\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪒ß\x{A8EA}．ᡤ", %p)}, undef, "to_ascii\(\'𐪒ß\\uA8EA．ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1996\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪒ß\x{A8EA}.ᡤ", %p)}, undef, "to_ascii\(\'𐪒ß\\uA8EA\.ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1997\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪒SS\x{A8EA}.ᡤ", %p)}, undef, "to_ascii\(\'𐪒SS\\uA8EA\.ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1998\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪒ss\x{A8EA}.ᡤ", %p)}, undef, "to_ascii\(\'𐪒ss\\uA8EA\.ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1999\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪒Ss\x{A8EA}.ᡤ", %p)}, undef, "to_ascii\(\'𐪒Ss\\uA8EA\.ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2000\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪒SS\x{A8EA}．ᡤ", %p)}, undef, "to_ascii\(\'𐪒SS\\uA8EA．ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2001\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪒ss\x{A8EA}．ᡤ", %p)}, undef, "to_ascii\(\'𐪒ss\\uA8EA．ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2002\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪒Ss\x{A8EA}．ᡤ", %p)}, undef, "to_ascii\(\'𐪒Ss\\uA8EA．ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2003\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𐨿󠆌鸮𑚶.ς", %p)}, undef, "to_ascii\(\'𐨿\󠆌鸮𑚶\.ς\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2004\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𐨿󠆌鸮𑚶.Σ", %p)}, undef, "to_ascii\(\'𐨿\󠆌鸮𑚶\.Σ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2005\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𐨿󠆌鸮𑚶.σ", %p)}, undef, "to_ascii\(\'𐨿\󠆌鸮𑚶\.σ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2006\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⒗𞤬。-𑚶", %p)}, undef, "to_ascii\(\'⒗\?\。\-𑚶\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2007\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("16.𞤬。-𑚶", %p)}, undef, "to_ascii\(\'16\.\?\。\-𑚶\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2008\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{08B3}𞤿⾫｡𐹣\x{068F}⒈", %p)}, undef, "to_ascii\(\'\\u08B3\?⾫｡𐹣\\u068F⒈\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2009\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{08B3}𞤿隹。𐹣\x{068F}1.", %p)}, undef, "to_ascii\(\'\\u08B3\?隹\。𐹣\\u068F1\.\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2010\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{2433}𚎛𝟧\x{0661}.ᡢ8\x{0F72}\x{0600}", %p)}, undef, "to_ascii\(\'\\u2433\?𝟧\\u0661\.ᡢ8\\u0F72\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2011\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2433}𚎛5\x{0661}.ᡢ8\x{0F72}\x{0600}", %p)}, undef, "to_ascii\(\'\\u2433\?5\\u0661\.ᡢ8\\u0F72\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2012\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹠.🄀⒒-󨰈", %p)}, undef, "to_ascii\(\'𐹠\.🄀⒒\-\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2013\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹠.0.11.-󨰈", %p)}, undef, "to_ascii\(\'𐹠\.0\.11\.\-\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2014\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς-。\x{200C}𝟭-", %p)}, undef, "to_ascii\(\'ς\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2015\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς-。\x{200C}1-", %p)}, undef, "to_ascii\(\'ς\-\。\\u200C1\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2017\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ-。\x{200C}1-", %p)}, undef, "to_ascii\(\'Σ\-\。\\u200C1\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2019\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ-。\x{200C}1-", %p)}, undef, "to_ascii\(\'σ\-\。\\u200C1\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2021\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ-。\x{200C}𝟭-", %p)}, undef, "to_ascii\(\'Σ\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2023\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ-。\x{200C}𝟭-", %p)}, undef, "to_ascii\(\'σ\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2025\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1734}-\x{0CE2}．󠄩Ⴄ", %p)}, undef, "to_ascii\(\'\\u1734\-\\u0CE2．\󠄩Ⴄ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2027\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1734}-\x{0CE2}.󠄩Ⴄ", %p)}, undef, "to_ascii\(\'\\u1734\-\\u0CE2\.\󠄩Ⴄ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2028\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{1734}-\x{0CE2}.󠄩ⴄ", %p)}, undef, "to_ascii\(\'\\u1734\-\\u0CE2\.\󠄩ⴄ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2029\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{1734}-\x{0CE2}．󠄩ⴄ", %p)}, undef, "to_ascii\(\'\\u1734\-\\u0CE2．\󠄩ⴄ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2030\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򭈗♋\x{06BB}𐦥｡\x{0954}⒈", %p)}, undef, "to_ascii\(\'\?\♋\\u06BB𐦥｡\\u0954⒈\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2031\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򭈗♋\x{06BB}𐦥。\x{0954}1.", %p)}, undef, "to_ascii\(\'\?\♋\\u06BB𐦥\。\\u09541\.\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2032\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{05A4}．\x{06C1}\x{1AB3}\x{200C}", %p)}, undef, "to_ascii\(\'\\u05A4．\\u06C1\\u1AB3\\u200C\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2033\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{05A4}.\x{06C1}\x{1AB3}\x{200C}", %p)}, undef, "to_ascii\(\'\\u05A4\.\\u06C1\\u1AB3\\u200C\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2035\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񢭏\x{0846}≮\x{0ACD}．𞦊", %p)}, undef, "to_ascii\(\'\?\\u0846\≮\\u0ACD．\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2037\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񢭏\x{0846}<\x{0338}\x{0ACD}．𞦊", %p)}, undef, "to_ascii\(\'\?\\u0846\<\\u0338\\u0ACD．\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2038\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񢭏\x{0846}≮\x{0ACD}.𞦊", %p)}, undef, "to_ascii\(\'\?\\u0846\≮\\u0ACD\.\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2039\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񢭏\x{0846}<\x{0338}\x{0ACD}.𞦊", %p)}, undef, "to_ascii\(\'\?\\u0846\<\\u0338\\u0ACD\.\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2040\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。𞀘⒈ꡍ擉", %p)}, undef, "to_ascii\(\'\\u200D\。\?⒈ꡍ擉\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2041\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{200D}。𞀘1.ꡍ擉", %p)}, undef, "to_ascii\(\'\\u200D\。\?1\.ꡍ擉\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2043\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("₈\x{07CB}．\x{FB64}≠", %p)}, undef, "to_ascii\(\'₈\\u07CB．\\uFB64\≠\'\)\ throws\ error\ P1\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2045\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("₈\x{07CB}．\x{FB64}=\x{0338}", %p)}, undef, "to_ascii\(\'₈\\u07CB．\\uFB64\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2046\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8\x{07CB}.\x{067F}≠", %p)}, undef, "to_ascii\(\'8\\u07CB\.\\u067F\≠\'\)\ throws\ error\ P1\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2047\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8\x{07CB}.\x{067F}=\x{0338}", %p)}, undef, "to_ascii\(\'8\\u07CB\.\\u067F\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2048\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢡ\x{07DE}򹐣.⒒\x{0642}𑍦", %p)}, undef, "to_ascii\(\'ᢡ\\u07DE\?\.⒒\\u0642𑍦\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:2049\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢡ\x{07DE}򹐣.11.\x{0642}𑍦", %p)}, undef, "to_ascii\(\'ᢡ\\u07DE\?\.11\.\\u0642𑍦\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2050\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0E48}-𐹺𝟜.\x{0363}\x{06E1}⒏", %p)}, undef, "to_ascii\(\'\\u0E48\-𐹺𝟜\.\\u0363\\u06E1⒏\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2051\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0E48}-𐹺4.\x{0363}\x{06E1}8.", %p)}, undef, "to_ascii\(\'\\u0E48\-𐹺4\.\\u0363\\u06E18\.\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2052\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⫐｡Ⴠ-󃐢", %p)}, undef, "to_ascii\(\'\⫐｡Ⴠ\-\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2053\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⫐。Ⴠ-󃐢", %p)}, undef, "to_ascii\(\'\⫐\。Ⴠ\-\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2054\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⫐。ⴠ-󃐢", %p)}, undef, "to_ascii\(\'\⫐\。ⴠ\-\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2055\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⫐｡ⴠ-󃐢", %p)}, undef, "to_ascii\(\'\⫐｡ⴠ\-\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2056\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𑑂◊．⦟∠", %p)}, undef, "to_ascii\(\'\?\◊．\⦟\∠\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2057\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𑑂◊.⦟∠", %p)}, undef, "to_ascii\(\'\?\◊\.\⦟\∠\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2058\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𿌰-\x{0662}。󋸛ꡂ", %p)}, undef, "to_ascii\(\'\?\-\\u0662\。\?ꡂ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2059\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0678}。󠏬\x{0741}𞪭𐹪", %p)}, undef, "to_ascii\(\'\\u0678\。\?\\u0741\?𐹪\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2060\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{064A}\x{0674}。󠏬\x{0741}𞪭𐹪", %p)}, undef, "to_ascii\(\'\\u064A\\u0674\。\?\\u0741\?𐹪\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2061\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫆ꌄ｡\x{200D}ᣬ", %p)}, undef, "to_ascii\(\'𐫆ꌄ｡\\u200Dᣬ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2062\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫆ꌄ。\x{200D}ᣬ", %p)}, undef, "to_ascii\(\'𐫆ꌄ\。\\u200Dᣬ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2064\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("₀\x{0662}。󅪞≯-", %p)}, undef, "to_ascii\(\'₀\\u0662\。\?\≯\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2066\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("₀\x{0662}。󅪞>\x{0338}-", %p)}, undef, "to_ascii\(\'₀\\u0662\。\?\>\\u0338\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2067\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0\x{0662}。󅪞≯-", %p)}, undef, "to_ascii\(\'0\\u0662\。\?\≯\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2068\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0\x{0662}。󅪞>\x{0338}-", %p)}, undef, "to_ascii\(\'0\\u0662\。\?\>\\u0338\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2069\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{031C}𐹫-𞯃.𐋤\x{0845}", %p)}, undef, "to_ascii\(\'\\u031C𐹫\-\?\.𐋤\\u0845\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2070\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠｡𝩑𐹩Ⴡ\x{0594}", %p)}, undef, "to_ascii\(\'\≠｡𝩑𐹩Ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2071\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}｡𝩑𐹩Ⴡ\x{0594}", %p)}, undef, "to_ascii\(\'\=\\u0338｡𝩑𐹩Ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2072\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠。𝩑𐹩Ⴡ\x{0594}", %p)}, undef, "to_ascii\(\'\≠\。𝩑𐹩Ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2073\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}。𝩑𐹩Ⴡ\x{0594}", %p)}, undef, "to_ascii\(\'\=\\u0338\。𝩑𐹩Ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2074\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}。𝩑𐹩ⴡ\x{0594}", %p)}, undef, "to_ascii\(\'\=\\u0338\。𝩑𐹩ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2075\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠。𝩑𐹩ⴡ\x{0594}", %p)}, undef, "to_ascii\(\'\≠\。𝩑𐹩ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2076\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}｡𝩑𐹩ⴡ\x{0594}", %p)}, undef, "to_ascii\(\'\=\\u0338｡𝩑𐹩ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2077\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠｡𝩑𐹩ⴡ\x{0594}", %p)}, undef, "to_ascii\(\'\≠｡𝩑𐹩ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2078\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𖫳≠.Ⴀ𐮀", %p)}, undef, "to_ascii\(\'𖫳\≠\.Ⴀ𐮀\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2079\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𖫳=\x{0338}.Ⴀ𐮀", %p)}, undef, "to_ascii\(\'𖫳\=\\u0338\.Ⴀ𐮀\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2080\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𖫳=\x{0338}.ⴀ𐮀", %p)}, undef, "to_ascii\(\'𖫳\=\\u0338\.ⴀ𐮀\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2081\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𖫳≠.ⴀ𐮀", %p)}, undef, "to_ascii\(\'𖫳\≠\.ⴀ𐮀\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2082\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅾\x{0736}\x{0726}．ᢚ閪\x{08E2}𝩟", %p)}, undef, "to_ascii\(\'\󠅾\\u0736\\u0726．ᢚ閪\\u08E2𝩟\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2083\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅾\x{0736}\x{0726}.ᢚ閪\x{08E2}𝩟", %p)}, undef, "to_ascii\(\'\󠅾\\u0736\\u0726\.ᢚ閪\\u08E2𝩟\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2084\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200D}󠇜\x{06CB}\x{A8E9}｡\x{20DD}\x{0FB0}-ᛟ", %p)}, undef, "to_ascii\(\'\\u200D\󠇜\\u06CB\\uA8E9｡\\u20DD\\u0FB0\-ᛟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2085\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200D}󠇜\x{06CB}\x{A8E9}。\x{20DD}\x{0FB0}-ᛟ", %p)}, undef, "to_ascii\(\'\\u200D\󠇜\\u06CB\\uA8E9\。\\u20DD\\u0FB0\-ᛟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2087\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("헁󘖙\x{0E3A}󚍚。\x{06BA}𝟜", %p)}, undef, "to_ascii\(\'헁\?\\u0E3A\?\。\\u06BA𝟜\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2089\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("헁󘖙\x{0E3A}󚍚。\x{06BA}𝟜", %p)}, undef, "to_ascii\(\'헁\?\\u0E3A\?\。\\u06BA𝟜\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2090\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("헁󘖙\x{0E3A}󚍚。\x{06BA}4", %p)}, undef, "to_ascii\(\'헁\?\\u0E3A\?\。\\u06BA4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2091\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("헁󘖙\x{0E3A}󚍚。\x{06BA}4", %p)}, undef, "to_ascii\(\'헁\?\\u0E3A\?\。\\u06BA4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2092\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹭｡󃱂\x{200C}Ⴞ", %p)}, undef, "to_ascii\(\'𐹭｡\?\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2093\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹭。󃱂\x{200C}Ⴞ", %p)}, undef, "to_ascii\(\'𐹭\。\?\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2095\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹭。󃱂\x{200C}ⴞ", %p)}, undef, "to_ascii\(\'𐹭\。\?\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2097\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹭｡󃱂\x{200C}ⴞ", %p)}, undef, "to_ascii\(\'𐹭｡\?\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2099\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A953}.\x{033D}𑂽馋", %p)}, undef, "to_ascii\(\'\\uA953\.\\u033D\?馋\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2101\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󈫝򪛸\x{200D}｡䜖", %p)}, undef, "to_ascii\(\'\?\?\\u200D｡䜖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2102\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󈫝򪛸\x{200D}。䜖", %p)}, undef, "to_ascii\(\'\?\?\\u200D\。䜖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2104\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡯ⚉姶🄉．۷\x{200D}🎪\x{200D}", %p)}, undef, "to_ascii\(\'ᡯ\⚉姶🄉．۷\\u200D🎪\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2106\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡯ⚉姶8,.۷\x{200D}🎪\x{200D}", %p)}, undef, "to_ascii\(\'ᡯ\⚉姶8\,\.۷\\u200D🎪\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2108\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞽀.𐹸🚖\x{0E3A}", %p)}, undef, "to_ascii\(\'\?\.𐹸🚖\\u0E3A\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2110\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴔᠵ｡𐹧\x{0747}۹", %p)}, undef, "to_ascii\(\'Ⴔᠵ｡𐹧\\u0747۹\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2111\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴔᠵ。𐹧\x{0747}۹", %p)}, undef, "to_ascii\(\'Ⴔᠵ\。𐹧\\u0747۹\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2112\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴔᠵ。𐹧\x{0747}۹", %p)}, undef, "to_ascii\(\'ⴔᠵ\。𐹧\\u0747۹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2113\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴔᠵ｡𐹧\x{0747}۹", %p)}, undef, "to_ascii\(\'ⴔᠵ｡𐹧\\u0747۹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2114\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{135F}ᡈ\x{200C}．︒-𖾐-", %p)}, undef, "to_ascii\(\'\\u135Fᡈ\\u200C．︒\-𖾐\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:2115\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{135F}ᡈ\x{200C}.。-𖾐-", %p)}, undef, "to_ascii\(\'\\u135Fᡈ\\u200C\.\。\-𖾐\-\'\)\ throws\ error\ V5\ V3\ A4_2\ \[data\/IdnaTest\.txt\:2117\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⒈\x{0601}⒖\x{200C}.\x{1DF0}\x{07DB}", %p)}, undef, "to_ascii\(\'⒈\\u0601⒖\\u200C\.\\u1DF0\\u07DB\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2119\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.\x{0601}15.\x{200C}.\x{1DF0}\x{07DB}", %p)}, undef, "to_ascii\(\'1\.\\u060115\.\\u200C\.\\u1DF0\\u07DB\'\)\ throws\ error\ P1\ V6\ V5\ B1\ A4_2\ \[data\/IdnaTest\.txt\:2121\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝩜。-\x{0B4D}Ⴋ", %p)}, undef, "to_ascii\(\'𝩜\。\-\\u0B4DႫ\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:2123\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𝩜。-\x{0B4D}ⴋ", %p)}, undef, "to_ascii\(\'𝩜\。\-\\u0B4Dⴋ\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:2124\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ßჀ.\x{0620}刯Ⴝ", %p)}, undef, "to_ascii\(\'ßჀ\.\\u0620刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2125\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("ßⴠ.\x{0620}刯ⴝ", %p)}, undef, "to_ascii\(\'ßⴠ\.\\u0620刯ⴝ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2126\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("SSჀ.\x{0620}刯Ⴝ", %p)}, undef, "to_ascii\(\'SSჀ\.\\u0620刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2127\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("ssⴠ.\x{0620}刯ⴝ", %p)}, undef, "to_ascii\(\'ssⴠ\.\\u0620刯ⴝ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2128\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ssⴠ.\x{0620}刯Ⴝ", %p)}, undef, "to_ascii\(\'Ssⴠ\.\\u0620刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2129\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BAA}ႣℲ｡ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAႣℲ｡ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2130\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BAA}ႣℲ｡ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAႣℲ｡ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2131\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BAA}ႣℲ。ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAႣℲ\。ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2132\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BAA}ႣℲ。ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAႣℲ\。ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2133\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{1BAA}ⴃⅎ。ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAⴃⅎ\。ᠳ툻\\u0673\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2134\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{1BAA}ⴃⅎ。ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAⴃⅎ\。ᠳ툻\\u0673\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2135\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{1BAA}Ⴃⅎ。ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAႣⅎ\。ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2136\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BAA}Ⴃⅎ。ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAႣⅎ\。ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2137\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{1BAA}ⴃⅎ｡ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAⴃⅎ｡ᠳ툻\\u0673\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2138\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{1BAA}ⴃⅎ｡ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAⴃⅎ｡ᠳ툻\\u0673\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2139\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{1BAA}Ⴃⅎ｡ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAႣⅎ｡ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2140\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BAA}Ⴃⅎ｡ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAႣⅎ｡ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2141\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{06EC}.\x{08A2}𐹫\x{067C}", %p)}, undef, "to_ascii\(\'\\u06EC\.\\u08A2𐹫\\u067C\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2142\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{06B6}\x{06DF}。₇\x{A806}", %p)}, "xn--pkb6f.xn--7-x93e", "to_ascii\(\'\\u06B6\\u06DF\。₇\\uA806\'\)\ \[data\/IdnaTest\.txt\:2143\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{06B6}\x{06DF}。7\x{A806}", %p)}, "xn--pkb6f.xn--7-x93e", "to_ascii\(\'\\u06B6\\u06DF\。7\\uA806\'\)\ \[data\/IdnaTest\.txt\:2144\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--pkb6f.xn--7-x93e", %p)}, "xn--pkb6f.xn--7-x93e", "to_ascii\(\'xn\-\-pkb6f\.xn\-\-7\-x93e\'\)\ \[data\/IdnaTest\.txt\:2145\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{06B6}\x{06DF}.7\x{A806}", %p)}, "xn--pkb6f.xn--7-x93e", "to_ascii\(\'\\u06B6\\u06DF\.7\\uA806\'\)\ \[data\/IdnaTest\.txt\:2146\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴣ𐹻.\x{200C}𝪣≮󠩉", %p)}, undef, "to_ascii\(\'Ⴣ𐹻\.\\u200C𝪣\≮\?\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2147\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴣ𐹻.\x{200C}𝪣<\x{0338}󠩉", %p)}, undef, "to_ascii\(\'Ⴣ𐹻\.\\u200C𝪣\<\\u0338\?\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2149\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴣ𐹻.\x{200C}𝪣<\x{0338}󠩉", %p)}, undef, "to_ascii\(\'ⴣ𐹻\.\\u200C𝪣\<\\u0338\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2151\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴣ𐹻.\x{200C}𝪣≮󠩉", %p)}, undef, "to_ascii\(\'ⴣ𐹻\.\\u200C𝪣\≮\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2153\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𝟵隁⯮．\x{180D}\x{200C}", %p)}, "xn--9-mfs8024b.", "to_ascii\(\'𝟵隁\⯮．\\u180D\\u200C\'\)\ \[data\/IdnaTest\.txt\:2155\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("9隁⯮.\x{180D}\x{200C}", %p)}, "xn--9-mfs8024b.", "to_ascii\(\'9隁\⯮\.\\u180D\\u200C\'\)\ \[data\/IdnaTest\.txt\:2157\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("xn--9-mfs8024b.", %p)}, "xn--9-mfs8024b.", "to_ascii\(\'xn\-\-9\-mfs8024b\.\'\)\ \[data\/IdnaTest\.txt\:2159\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("9隁⯮.", %p)}, "xn--9-mfs8024b.", "to_ascii\(\'9隁\⯮\.\'\)\ \[data\/IdnaTest\.txt\:2160\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⒏𐹧｡Ⴣ\x{0F84}彦", %p)}, undef, "to_ascii\(\'⒏𐹧｡Ⴣ\\u0F84彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2161\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8.𐹧。Ⴣ\x{0F84}彦", %p)}, undef, "to_ascii\(\'8\.𐹧\。Ⴣ\\u0F84彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2162\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("8.𐹧。ⴣ\x{0F84}彦", %p)}, undef, "to_ascii\(\'8\.𐹧\。ⴣ\\u0F84彦\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2163\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⒏𐹧｡ⴣ\x{0F84}彦", %p)}, undef, "to_ascii\(\'⒏𐹧｡ⴣ\\u0F84彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2164\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-问񬰔⒛。\x{0604}-񜗉橬", %p)}, undef, "to_ascii\(\'\-问\?⒛\。\\u0604\-\?橬\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2165\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-问񬰔20.。\x{0604}-񜗉橬", %p)}, undef, "to_ascii\(\'\-问\?20\.\。\\u0604\-\?橬\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:2166\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BAC}Ⴌ\x{200C}\x{0325}。𝟸", %p)}, undef, "to_ascii\(\'\\u1BACႬ\\u200C\\u0325\。𝟸\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2167\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BAC}Ⴌ\x{200C}\x{0325}。2", %p)}, undef, "to_ascii\(\'\\u1BACႬ\\u200C\\u0325\。2\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2169\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{1BAC}ⴌ\x{200C}\x{0325}。2", %p)}, undef, "to_ascii\(\'\\u1BACⴌ\\u200C\\u0325\。2\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2171\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{1BAC}ⴌ\x{200C}\x{0325}。𝟸", %p)}, undef, "to_ascii\(\'\\u1BACⴌ\\u200C\\u0325\。𝟸\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2173\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{DC5F}。\x{A806}\x{0669}󠒩", %p)}, undef, "to_ascii\(\'\\uDC5F\。\\uA806\\u0669\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ A3\ \[data\/IdnaTest\.txt\:2175\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄁\x{035F}⾶｡₇︒눇≮", %p)}, undef, "to_ascii\(\'\󠄁\\u035F⾶｡₇︒눇\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2176\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄁\x{035F}⾶｡₇︒눇<\x{0338}", %p)}, undef, "to_ascii\(\'\󠄁\\u035F⾶｡₇︒눇\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2177\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄁\x{035F}飛。7。눇≮", %p)}, undef, "to_ascii\(\'\󠄁\\u035F飛\。7\。눇\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2178\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄁\x{035F}飛。7。눇<\x{0338}", %p)}, undef, "to_ascii\(\'\󠄁\\u035F飛\。7\。눇\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2179\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}\x{FE09}𐹴\x{200D}．\x{200C}⿃", %p)}, undef, "to_ascii\(\'\\u200C\\uFE09𐹴\\u200D．\\u200C⿃\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2180\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}\x{FE09}𐹴\x{200D}.\x{200C}鳥", %p)}, undef, "to_ascii\(\'\\u200C\\uFE09𐹴\\u200D\.\\u200C鳥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2182\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("🍮．\x{200D}󠗒𐦁𝨝", %p)}, undef, "to_ascii\(\'🍮．\\u200D\?𐦁𝨝\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2184\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🍮.\x{200D}󠗒𐦁𝨝", %p)}, undef, "to_ascii\(\'🍮\.\\u200D\?𐦁𝨝\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2186\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{067D}\x{0943}.𞤓\x{200D}", %p)}, "xn--2ib43l.xn--te6h", "to_ascii\(\'\\u067D\\u0943\.\?\\u200D\'\)\ \[data\/IdnaTest\.txt\:2188\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--2ib43l.xn--te6h", %p)}, "xn--2ib43l.xn--te6h", "to_ascii\(\'xn\-\-2ib43l\.xn\-\-te6h\'\)\ \[data\/IdnaTest\.txt\:2190\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{067D}\x{0943}.𞤵", %p)}, "xn--2ib43l.xn--te6h", "to_ascii\(\'\\u067D\\u0943\.\?\'\)\ \[data\/IdnaTest\.txt\:2191\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0664}\x{0A4D}-．󥜽\x{1039}񦦐", %p)}, undef, "to_ascii\(\'\\u0664\\u0A4D\-．\?\\u1039\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2192\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0664}\x{0A4D}-.󥜽\x{1039}񦦐", %p)}, undef, "to_ascii\(\'\\u0664\\u0A4D\-\.\?\\u1039\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2193\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4\x{103A}-𐹸｡\x{AA29}\x{200C}𐹴≮", %p)}, undef, "to_ascii\(\'4\\u103A\-𐹸｡\\uAA29\\u200C𐹴\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2194\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4\x{103A}-𐹸｡\x{AA29}\x{200C}𐹴<\x{0338}", %p)}, undef, "to_ascii\(\'4\\u103A\-𐹸｡\\uAA29\\u200C𐹴\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2196\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4\x{103A}-𐹸。\x{AA29}\x{200C}𐹴≮", %p)}, undef, "to_ascii\(\'4\\u103A\-𐹸\。\\uAA29\\u200C𐹴\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2198\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4\x{103A}-𐹸。\x{AA29}\x{200C}𐹴<\x{0338}", %p)}, undef, "to_ascii\(\'4\\u103A\-𐹸\。\\uAA29\\u200C𐹴\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2200\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}。\x{FFA0}\x{0F84}\x{0F96}", %p)}, undef, "to_ascii\(\'\\u200C\。\\uFFA0\\u0F84\\u0F96\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2202\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}。\x{1160}\x{0F84}\x{0F96}", %p)}, undef, "to_ascii\(\'\\u200C\。\\u1160\\u0F84\\u0F96\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2204\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯򍘅．\x{200D}𐅼򲇛", %p)}, undef, "to_ascii\(\'\≯\?．\\u200D𐅼\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2206\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}򍘅．\x{200D}𐅼򲇛", %p)}, undef, "to_ascii\(\'\>\\u0338\?．\\u200D𐅼\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2208\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯򍘅.\x{200D}𐅼򲇛", %p)}, undef, "to_ascii\(\'\≯\?\.\\u200D𐅼\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2210\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}򍘅.\x{200D}𐅼򲇛", %p)}, undef, "to_ascii\(\'\>\\u0338\?\.\\u200D𐅼\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2212\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0641}ß𐰯｡𝟕𐫫", %p)}, undef, "to_ascii\(\'\\u0641ß𐰯｡𝟕𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2214\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0641}ß𐰯。7𐫫", %p)}, undef, "to_ascii\(\'\\u0641ß𐰯\。7𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2215\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0641}SS𐰯。7𐫫", %p)}, undef, "to_ascii\(\'\\u0641SS𐰯\。7𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2216\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0641}ss𐰯。7𐫫", %p)}, undef, "to_ascii\(\'\\u0641ss𐰯\。7𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2217\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0641}Ss𐰯。7𐫫", %p)}, undef, "to_ascii\(\'\\u0641Ss𐰯\。7𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2218\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0641}SS𐰯｡𝟕𐫫", %p)}, undef, "to_ascii\(\'\\u0641SS𐰯｡𝟕𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2219\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0641}ss𐰯｡𝟕𐫫", %p)}, undef, "to_ascii\(\'\\u0641ss𐰯｡𝟕𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2220\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0641}Ss𐰯｡𝟕𐫫", %p)}, undef, "to_ascii\(\'\\u0641Ss𐰯｡𝟕𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2221\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ß\x{07AC}\x{07A7}\x{08B1}。𐭁􅮙𐹲", %p)}, undef, "to_ascii\(\'ß\\u07AC\\u07A7\\u08B1\。𐭁\?𐹲\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2222\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS\x{07AC}\x{07A7}\x{08B1}。𐭁􅮙𐹲", %p)}, undef, "to_ascii\(\'SS\\u07AC\\u07A7\\u08B1\。𐭁\?𐹲\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2223\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss\x{07AC}\x{07A7}\x{08B1}。𐭁􅮙𐹲", %p)}, undef, "to_ascii\(\'ss\\u07AC\\u07A7\\u08B1\。𐭁\?𐹲\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2224\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss\x{07AC}\x{07A7}\x{08B1}。𐭁􅮙𐹲", %p)}, undef, "to_ascii\(\'Ss\\u07AC\\u07A7\\u08B1\。𐭁\?𐹲\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2225\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-｡󠉗⒌𞯛", %p)}, undef, "to_ascii\(\'\-｡\?⒌\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2226\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-。󠉗5.𞯛", %p)}, undef, "to_ascii\(\'\-\。\?5\.\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2227\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏ς．-≮\x{FCAB}", %p)}, undef, "to_ascii\(\'\?ς．\-\≮\\uFCAB\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2228\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏ς．-<\x{0338}\x{FCAB}", %p)}, undef, "to_ascii\(\'\?ς．\-\<\\u0338\\uFCAB\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2229\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏ς.-≮\x{062E}\x{062C}", %p)}, undef, "to_ascii\(\'\?ς\.\-\≮\\u062E\\u062C\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2230\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏ς.-<\x{0338}\x{062E}\x{062C}", %p)}, undef, "to_ascii\(\'\?ς\.\-\<\\u0338\\u062E\\u062C\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2231\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏Σ.-<\x{0338}\x{062E}\x{062C}", %p)}, undef, "to_ascii\(\'\?Σ\.\-\<\\u0338\\u062E\\u062C\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2232\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏Σ.-≮\x{062E}\x{062C}", %p)}, undef, "to_ascii\(\'\?Σ\.\-\≮\\u062E\\u062C\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2233\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏σ.-≮\x{062E}\x{062C}", %p)}, undef, "to_ascii\(\'\?σ\.\-\≮\\u062E\\u062C\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2234\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏σ.-<\x{0338}\x{062E}\x{062C}", %p)}, undef, "to_ascii\(\'\?σ\.\-\<\\u0338\\u062E\\u062C\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2235\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏Σ．-<\x{0338}\x{FCAB}", %p)}, undef, "to_ascii\(\'\?Σ．\-\<\\u0338\\uFCAB\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2236\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏Σ．-≮\x{FCAB}", %p)}, undef, "to_ascii\(\'\?Σ．\-\≮\\uFCAB\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2237\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏σ．-≮\x{FCAB}", %p)}, undef, "to_ascii\(\'\?σ．\-\≮\\uFCAB\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2238\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏σ．-<\x{0338}\x{FCAB}", %p)}, undef, "to_ascii\(\'\?σ．\-\<\\u0338\\uFCAB\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2239\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡗ\x{08B8}\x{0719}．񔤔󠛙\x{0C4D}\x{FC3E}", %p)}, undef, "to_ascii\(\'ꡗ\\u08B8\\u0719．\?\?\\u0C4D\\uFC3E\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2240\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡗ\x{08B8}\x{0719}.񔤔󠛙\x{0C4D}\x{0643}\x{064A}", %p)}, undef, "to_ascii\(\'ꡗ\\u08B8\\u0719\.\?\?\\u0C4D\\u0643\\u064A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2241\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐠰\x{08B7}𞤌𐫭。𐋦\x{17CD}𝩃", %p)}, "xn--dzb5191kezbrw47a.xn--p4e3841jz9tf", "to_ascii\(\'𐠰\\u08B7\?𐫭\。𐋦\\u17CD𝩃\'\)\ \[data\/IdnaTest\.txt\:2242\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--dzb5191kezbrw47a.xn--p4e3841jz9tf", %p)}, "xn--dzb5191kezbrw47a.xn--p4e3841jz9tf", "to_ascii\(\'xn\-\-dzb5191kezbrw47a\.xn\-\-p4e3841jz9tf\'\)\ \[data\/IdnaTest\.txt\:2243\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐠰\x{08B7}𞤮𐫭.𐋦\x{17CD}𝩃", %p)}, "xn--dzb5191kezbrw47a.xn--p4e3841jz9tf", "to_ascii\(\'𐠰\\u08B7\?𐫭\.𐋦\\u17CD𝩃\'\)\ \[data\/IdnaTest\.txt\:2244\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("₂㘷--。\x{06D3}\x{200C}𐫆𑖿", %p)}, undef, "to_ascii\(\'₂㘷\-\-\。\\u06D3\\u200C𐫆𑖿\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2245\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("₂㘷--。\x{06D2}\x{0654}\x{200C}𐫆𑖿", %p)}, undef, "to_ascii\(\'₂㘷\-\-\。\\u06D2\\u0654\\u200C𐫆𑖿\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2247\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("2㘷--。\x{06D3}\x{200C}𐫆𑖿", %p)}, undef, "to_ascii\(\'2㘷\-\-\。\\u06D3\\u200C𐫆𑖿\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2249\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("2㘷--。\x{06D2}\x{0654}\x{200C}𐫆𑖿", %p)}, undef, "to_ascii\(\'2㘷\-\-\。\\u06D2\\u0654\\u200C𐫆𑖿\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2251\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("-𘊻．ᡮ\x{062D}-", %p)}, undef, "to_ascii\(\'\-\?．ᡮ\\u062D\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2253\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("-𘊻.ᡮ\x{062D}-", %p)}, undef, "to_ascii\(\'\-\?\.ᡮ\\u062D\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2254\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-ß｡ᢣ𐹭\x{063F}", %p)}, undef, "to_ascii\(\'\\u200C\-ß｡ᢣ𐹭\\u063F\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2255\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-ß。ᢣ𐹭\x{063F}", %p)}, undef, "to_ascii\(\'\\u200C\-ß\。ᢣ𐹭\\u063F\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2257\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-SS。ᢣ𐹭\x{063F}", %p)}, undef, "to_ascii\(\'\\u200C\-SS\。ᢣ𐹭\\u063F\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2259\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-ss。ᢣ𐹭\x{063F}", %p)}, undef, "to_ascii\(\'\\u200C\-ss\。ᢣ𐹭\\u063F\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2261\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-Ss。ᢣ𐹭\x{063F}", %p)}, undef, "to_ascii\(\'\\u200C\-Ss\。ᢣ𐹭\\u063F\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2263\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-SS｡ᢣ𐹭\x{063F}", %p)}, undef, "to_ascii\(\'\\u200C\-SS｡ᢣ𐹭\\u063F\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2265\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-ss｡ᢣ𐹭\x{063F}", %p)}, undef, "to_ascii\(\'\\u200C\-ss｡ᢣ𐹭\\u063F\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2267\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-Ss｡ᢣ𐹭\x{063F}", %p)}, undef, "to_ascii\(\'\\u200C\-Ss｡ᢣ𐹭\\u063F\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2269\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("꧐Ӏ\x{1BAA}\x{08F6}．눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u1BAA\\u08F6．눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2271\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("꧐Ӏ\x{1BAA}\x{08F6}．눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u1BAA\\u08F6．눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2272\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("꧐Ӏ\x{1BAA}\x{08F6}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u1BAA\\u08F6\.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2273\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("꧐Ӏ\x{1BAA}\x{08F6}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u1BAA\\u08F6\.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2274\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("꧐ӏ\x{1BAA}\x{08F6}.눵", %p)}, "xn--s5a04sn4u297k.xn--2e1b", "to_ascii\(\'꧐ӏ\\u1BAA\\u08F6\.눵\'\)\ \[data\/IdnaTest\.txt\:2275\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("꧐ӏ\x{1BAA}\x{08F6}.눵", %p)}, "xn--s5a04sn4u297k.xn--2e1b", "to_ascii\(\'꧐ӏ\\u1BAA\\u08F6\.눵\'\)\ \[data\/IdnaTest\.txt\:2276\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("xn--s5a04sn4u297k.xn--2e1b", %p)}, "xn--s5a04sn4u297k.xn--2e1b", "to_ascii\(\'xn\-\-s5a04sn4u297k\.xn\-\-2e1b\'\)\ \[data\/IdnaTest\.txt\:2277\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("꧐ӏ\x{1BAA}\x{08F6}．눵", %p)}, "xn--s5a04sn4u297k.xn--2e1b", "to_ascii\(\'꧐ӏ\\u1BAA\\u08F6．눵\'\)\ \[data\/IdnaTest\.txt\:2278\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("꧐ӏ\x{1BAA}\x{08F6}．눵", %p)}, "xn--s5a04sn4u297k.xn--2e1b", "to_ascii\(\'꧐ӏ\\u1BAA\\u08F6．눵\'\)\ \[data\/IdnaTest\.txt\:2279\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{A8EA}｡𖄿𑆾󠇗", %p)}, undef, "to_ascii\(\'\\uA8EA｡\?𑆾\󠇗\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2280\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A8EA}。𖄿𑆾󠇗", %p)}, undef, "to_ascii\(\'\\uA8EA\。\?𑆾\󠇗\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2281\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󇓓𑚳。񐷿≯⾇", %p)}, undef, "to_ascii\(\'\?𑚳\。\?\≯⾇\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2282\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󇓓𑚳。񐷿>\x{0338}⾇", %p)}, undef, "to_ascii\(\'\?𑚳\。\?\>\\u0338⾇\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2283\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󇓓𑚳。񐷿≯舛", %p)}, undef, "to_ascii\(\'\?𑚳\。\?\≯舛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2284\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󇓓𑚳。񐷿>\x{0338}舛", %p)}, undef, "to_ascii\(\'\?𑚳\。\?\>\\u0338舛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2285\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫇\x{0661}\x{200C}．\x{200D}\x{200C}", %p)}, "xn--9hb7344k.", "to_ascii\(\'𐫇\\u0661\\u200C．\\u200D\\u200C\'\)\ \[data\/IdnaTest\.txt\:2286\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫇\x{0661}\x{200C}.\x{200D}\x{200C}", %p)}, "xn--9hb7344k.", "to_ascii\(\'𐫇\\u0661\\u200C\.\\u200D\\u200C\'\)\ \[data\/IdnaTest\.txt\:2288\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--9hb7344k.", %p)}, "xn--9hb7344k.", "to_ascii\(\'xn\-\-9hb7344k\.\'\)\ \[data\/IdnaTest\.txt\:2290\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫇\x{0661}.", %p)}, "xn--9hb7344k.", "to_ascii\(\'𐫇\\u0661\.\'\)\ \[data\/IdnaTest\.txt\:2291\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񡅈砪≯ᢑ｡≯𝩚򓴔\x{200C}", %p)}, undef, "to_ascii\(\'\?砪\≯ᢑ｡\≯𝩚\?\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2292\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񡅈砪>\x{0338}ᢑ｡>\x{0338}𝩚򓴔\x{200C}", %p)}, undef, "to_ascii\(\'\?砪\>\\u0338ᢑ｡\>\\u0338𝩚\?\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2294\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񡅈砪≯ᢑ。≯𝩚򓴔\x{200C}", %p)}, undef, "to_ascii\(\'\?砪\≯ᢑ\。\≯𝩚\?\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2296\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񡅈砪>\x{0338}ᢑ。>\x{0338}𝩚򓴔\x{200C}", %p)}, undef, "to_ascii\(\'\?砪\>\\u0338ᢑ\。\>\\u0338𝩚\?\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2298\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴥ.𑄳㊸", %p)}, undef, "to_ascii\(\'Ⴥ\.𑄳㊸\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2300\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴥ.𑄳43", %p)}, undef, "to_ascii\(\'Ⴥ\.𑄳43\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2301\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ⴥ.𑄳43", %p)}, undef, "to_ascii\(\'ⴥ\.𑄳43\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2302\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ⴥ.𑄳㊸", %p)}, undef, "to_ascii\(\'ⴥ\.𑄳㊸\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2303\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𝟎\x{0663}。Ⴒᡇ\x{08F2}𐹠", %p)}, undef, "to_ascii\(\'𝟎\\u0663\。Ⴒᡇ\\u08F2𐹠\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2304\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0\x{0663}。Ⴒᡇ\x{08F2}𐹠", %p)}, undef, "to_ascii\(\'0\\u0663\。Ⴒᡇ\\u08F2𐹠\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2305\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("0\x{0663}。ⴒᡇ\x{08F2}𐹠", %p)}, undef, "to_ascii\(\'0\\u0663\。ⴒᡇ\\u08F2𐹠\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2306\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𝟎\x{0663}。ⴒᡇ\x{08F2}𐹠", %p)}, undef, "to_ascii\(\'𝟎\\u0663\。ⴒᡇ\\u08F2𐹠\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2307\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񗪨󠄉\x{FFA0}\x{0FB7}.񸞰\x{A953}", %p)}, undef, "to_ascii\(\'\?\󠄉\\uFFA0\\u0FB7\.\?\\uA953\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2308\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗪨󠄉\x{1160}\x{0FB7}.񸞰\x{A953}", %p)}, undef, "to_ascii\(\'\?\󠄉\\u1160\\u0FB7\.\?\\uA953\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2309\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{0618}.۳\x{200C}\x{A953}", %p)}, undef, "to_ascii\(\'\\u0618\.۳\\u200C\\uA953\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2310\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ᡌ．︒ᢑ", %p)}, undef, "to_ascii\(\'ᡌ．︒ᢑ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2312\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡌ.。ᢑ", %p)}, undef, "to_ascii\(\'ᡌ\.\。ᢑ\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:2313\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑋪\x{1073}｡𞽧", %p)}, undef, "to_ascii\(\'𑋪\\u1073｡\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2314\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑋪\x{1073}。𞽧", %p)}, undef, "to_ascii\(\'𑋪\\u1073\。\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2315\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞷏。ᠢ򓘆", %p)}, undef, "to_ascii\(\'\?\。ᠢ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2316\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑄳㴼．\x{200C}𐹡\x{20EB}񫺦", %p)}, undef, "to_ascii\(\'𑄳㴼．\\u200C𐹡\\u20EB\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2317\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑄳㴼.\x{200C}𐹡\x{20EB}񫺦", %p)}, undef, "to_ascii\(\'𑄳㴼\.\\u200C𐹡\\u20EB\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2319\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񠻟𐹳𑈯｡\x{031D}", %p)}, undef, "to_ascii\(\'\?𐹳𑈯｡\\u031D\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2321\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񠻟𐹳𑈯。\x{031D}", %p)}, undef, "to_ascii\(\'\?𐹳𑈯\。\\u031D\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2322\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢊ뾜󠱴𑚶。\x{089D}𐹥", %p)}, undef, "to_ascii\(\'ᢊ뾜\?𑚶\。\\u089D𐹥\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2323\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢊ뾜󠱴𑚶。\x{089D}𐹥", %p)}, undef, "to_ascii\(\'ᢊ뾜\?𑚶\。\\u089D𐹥\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2324\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹥≠｡𐋲󠧠\x{200C}", %p)}, undef, "to_ascii\(\'𐹥\≠｡𐋲\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2325\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹥=\x{0338}｡𐋲󠧠\x{200C}", %p)}, undef, "to_ascii\(\'𐹥\=\\u0338｡𐋲\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2327\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹥≠。𐋲󠧠\x{200C}", %p)}, undef, "to_ascii\(\'𐹥\≠\。𐋲\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2329\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹥=\x{0338}。𐋲󠧠\x{200C}", %p)}, undef, "to_ascii\(\'𐹥\=\\u0338\。𐋲\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2331\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}񙯠\x{094D}．\x{200D}\x{A953}𐪤", %p)}, undef, "to_ascii\(\'\\u115F\?\\u094D．\\u200D\\uA953\?\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2333\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}񙯠\x{094D}.\x{200D}\x{A953}𐪤", %p)}, undef, "to_ascii\(\'\\u115F\?\\u094D\.\\u200D\\uA953\?\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2335\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򌋔󠆎󠆗𑲕。≮", %p)}, undef, "to_ascii\(\'\?\󠆎\󠆗\?\。\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2337\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򌋔󠆎󠆗𑲕。<\x{0338}", %p)}, undef, "to_ascii\(\'\?\󠆎\󠆗\?\。\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2338\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠆦.\x{08E3}暀≠", %p)}, undef, "to_ascii\(\'\󠆦\.\\u08E3暀\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2339\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠆦.\x{08E3}暀=\x{0338}", %p)}, undef, "to_ascii\(\'\󠆦\.\\u08E3暀\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2340\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐡤\x{ABED}｡\x{FD30}򜖅\x{1DF0}", %p)}, undef, "to_ascii\(\'𐡤\\uABED｡\\uFD30\?\\u1DF0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2341\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐡤\x{ABED}。\x{0634}\x{0645}򜖅\x{1DF0}", %p)}, undef, "to_ascii\(\'𐡤\\uABED\。\\u0634\\u0645\?\\u1DF0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2342\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝉃\x{200D}⒈｡Ⴌ𞱓", %p)}, undef, "to_ascii\(\'𝉃\\u200D⒈｡Ⴌ\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2343\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝉃\x{200D}1.。Ⴌ𞱓", %p)}, undef, "to_ascii\(\'𝉃\\u200D1\.\。Ⴌ\?\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2345\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝉃\x{200D}1.。ⴌ𞱓", %p)}, undef, "to_ascii\(\'𝉃\\u200D1\.\。ⴌ\?\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2347\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝉃\x{200D}⒈｡ⴌ𞱓", %p)}, undef, "to_ascii\(\'𝉃\\u200D⒈｡ⴌ\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2349\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠣙\x{0A4D}𱫘𞤸.ς񵯞􈰔", %p)}, undef, "to_ascii\(\'\?\\u0A4D\?\?\.ς\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2351\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠣙\x{0A4D}𱫘𞤸.Σ񵯞􈰔", %p)}, undef, "to_ascii\(\'\?\\u0A4D\?\?\.Σ\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2352\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠣙\x{0A4D}𱫘𞤸.σ񵯞􈰔", %p)}, undef, "to_ascii\(\'\?\\u0A4D\?\?\.σ\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2353\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07D3}。\x{200C}𐫀򞭱", %p)}, undef, "to_ascii\(\'\\u07D3\。\\u200C𐫀\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2354\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{1C2E}𞀝.\x{05A6}ꡟ𞤕󠆖", %p)}, undef, "to_ascii\(\'\\u1C2E\?\.\\u05A6ꡟ\?\󠆖\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2356\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("䂹󾖅𐋦．\x{200D}", %p)}, undef, "to_ascii\(\'䂹\?𐋦．\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2357\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䂹󾖅𐋦.\x{200D}", %p)}, undef, "to_ascii\(\'䂹\?𐋦\.\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2359\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9C0}\x{200C}𐹲\x{200C}｡\x{0767}🄉", %p)}, undef, "to_ascii\(\'\\uA9C0\\u200C𐹲\\u200C｡\\u0767🄉\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2361\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9C0}\x{200C}𐹲\x{200C}。\x{0767}8,", %p)}, undef, "to_ascii\(\'\\uA9C0\\u200C𐹲\\u200C\。\\u07678\,\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:2363\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒｡Ⴃ≯", %p)}, undef, "to_ascii\(\'︒｡Ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2365\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒｡Ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'︒｡Ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2366\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。。Ⴃ≯", %p)}, undef, "to_ascii\(\'\。\。Ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2367\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。。Ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'\。\。Ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2368\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。。ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'\。\。ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2369\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。。ⴃ≯", %p)}, undef, "to_ascii\(\'\。\。ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2370\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒｡ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'︒｡ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2371\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒｡ⴃ≯", %p)}, undef, "to_ascii\(\'︒｡ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2372\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹮｡󠢼\x{200D}", %p)}, undef, "to_ascii\(\'𐹮｡\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2373\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹮。󠢼\x{200D}", %p)}, undef, "to_ascii\(\'𐹮\。\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2375\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴞ𐹨｡︒\x{077D}\x{200D}Ⴏ", %p)}, undef, "to_ascii\(\'Ⴞ𐹨｡︒\\u077D\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2377\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴞ𐹨。。\x{077D}\x{200D}Ⴏ", %p)}, undef, "to_ascii\(\'Ⴞ𐹨\。\。\\u077D\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ A4_2\ B2\ B3\ \[data\/IdnaTest\.txt\:2379\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴞ𐹨。。\x{077D}\x{200D}ⴏ", %p)}, undef, "to_ascii\(\'ⴞ𐹨\。\。\\u077D\\u200Dⴏ\'\)\ throws\ error\ B5\ B6\ A4_2\ B2\ B3\ \[data\/IdnaTest\.txt\:2381\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ⴞ𐹨｡︒\x{077D}\x{200D}ⴏ", %p)}, undef, "to_ascii\(\'ⴞ𐹨｡︒\\u077D\\u200Dⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2383\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴆ𝟹。-\x{20D2}-\x{07D1}", %p)}, undef, "to_ascii\(\'\\u200CႦ𝟹\。\-\\u20D2\-\\u07D1\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2385\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴆ3。-\x{20D2}-\x{07D1}", %p)}, undef, "to_ascii\(\'\\u200CႦ3\。\-\\u20D2\-\\u07D1\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2387\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{200C}ⴆ3。-\x{20D2}-\x{07D1}", %p)}, undef, "to_ascii\(\'\\u200Cⴆ3\。\-\\u20D2\-\\u07D1\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2389\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{200C}ⴆ𝟹。-\x{20D2}-\x{07D1}", %p)}, undef, "to_ascii\(\'\\u200Cⴆ𝟹\。\-\\u20D2\-\\u07D1\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2391\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("箃Ⴡ-󠁝｡≠-🤖", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\?｡\≠\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2393\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("箃Ⴡ-󠁝｡=\x{0338}-🤖", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\?｡\=\\u0338\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2394\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("箃Ⴡ-󠁝。≠-🤖", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\?\。\≠\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2395\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("箃Ⴡ-󠁝。=\x{0338}-🤖", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\?\。\=\\u0338\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2396\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("箃ⴡ-󠁝。=\x{0338}-🤖", %p)}, undef, "to_ascii\(\'箃ⴡ\-\?\。\=\\u0338\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2397\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("箃ⴡ-󠁝。≠-🤖", %p)}, undef, "to_ascii\(\'箃ⴡ\-\?\。\≠\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2398\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("箃ⴡ-󠁝｡=\x{0338}-🤖", %p)}, undef, "to_ascii\(\'箃ⴡ\-\?｡\=\\u0338\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2399\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("箃ⴡ-󠁝｡≠-🤖", %p)}, undef, "to_ascii\(\'箃ⴡ\-\?｡\≠\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2400\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{07E5}.\x{06B5}", %p)}, "xn--dtb.xn--okb", "to_ascii\(\'\\u07E5\.\\u06B5\'\)\ \[data\/IdnaTest\.txt\:2401\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("xn--dtb.xn--okb", %p)}, "xn--dtb.xn--okb", "to_ascii\(\'xn\-\-dtb\.xn\-\-okb\'\)\ \[data\/IdnaTest\.txt\:2402\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{200C}\x{200D}.𞤿", %p)}, "xn--3e6h", "to_ascii\(\'\\u200C\\u200D\.\?\'\)\ \[data\/IdnaTest\.txt\:2403\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--3e6h", %p)}, "xn--3e6h", "to_ascii\(\'xn\-\-3e6h\'\)\ \[data\/IdnaTest\.txt\:2405\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤿", %p)}, "xn--3e6h", "to_ascii\(\'\?\'\)\ \[data\/IdnaTest\.txt\:2406\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("🜑𐹧\x{0639}.ς𑍍蜹", %p)}, undef, "to_ascii\(\'🜑𐹧\\u0639\.ς𑍍蜹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2407\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("🜑𐹧\x{0639}.Σ𑍍蜹", %p)}, undef, "to_ascii\(\'🜑𐹧\\u0639\.Σ𑍍蜹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2408\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("🜑𐹧\x{0639}.σ𑍍蜹", %p)}, undef, "to_ascii\(\'🜑𐹧\\u0639\.σ𑍍蜹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2409\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򫠐ス􆟤\x{0669}．󚃟", %p)}, undef, "to_ascii\(\'\?ス\?\\u0669．\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2410\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򫠐ス􆟤\x{0669}.󚃟", %p)}, undef, "to_ascii\(\'\?ス\?\\u0669\.\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2411\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝪣򕡝．\x{059A}\x{D850}\x{06C2}", %p)}, undef, "to_ascii\(\'𝪣\?．\\u059A\\uD850\\u06C2\'\)\ throws\ error\ P1\ V5\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2412\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝪣򕡝．\x{059A}\x{D850}\x{06C1}\x{0654}", %p)}, undef, "to_ascii\(\'𝪣\?．\\u059A\\uD850\\u06C1\\u0654\'\)\ throws\ error\ P1\ V5\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2413\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝪣򕡝.\x{059A}\x{D850}\x{06C2}", %p)}, undef, "to_ascii\(\'𝪣\?\.\\u059A\\uD850\\u06C2\'\)\ throws\ error\ P1\ V5\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2414\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝪣򕡝.\x{059A}\x{D850}\x{06C1}\x{0654}", %p)}, undef, "to_ascii\(\'𝪣\?\.\\u059A\\uD850\\u06C1\\u0654\'\)\ throws\ error\ P1\ V5\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2415\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0660}򪓵\x{200C}。\x{0757}", %p)}, undef, "to_ascii\(\'\\u0660\?\\u200C\。\\u0757\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2416\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{103A}\x{200D}\x{200C}。-\x{200C}", %p)}, undef, "to_ascii\(\'\\u103A\\u200D\\u200C\。\-\\u200C\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:2418\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("︒｡\x{1B44}ᡉ", %p)}, undef, "to_ascii\(\'︒｡\\u1B44ᡉ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2420\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("。。\x{1B44}ᡉ", %p)}, undef, "to_ascii\(\'\。\。\\u1B44ᡉ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2421\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0758}ß。ጫᢊ\x{0768}𝟐", %p)}, undef, "to_ascii\(\'\\u0758ß\。ጫᢊ\\u0768𝟐\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2422\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0758}ß。ጫᢊ\x{0768}2", %p)}, undef, "to_ascii\(\'\\u0758ß\。ጫᢊ\\u07682\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2423\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0758}SS。ጫᢊ\x{0768}2", %p)}, undef, "to_ascii\(\'\\u0758SS\。ጫᢊ\\u07682\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2424\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0758}ss。ጫᢊ\x{0768}2", %p)}, undef, "to_ascii\(\'\\u0758ss\。ጫᢊ\\u07682\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2425\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0758}Ss。ጫᢊ\x{0768}2", %p)}, undef, "to_ascii\(\'\\u0758Ss\。ጫᢊ\\u07682\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2426\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0758}SS。ጫᢊ\x{0768}𝟐", %p)}, undef, "to_ascii\(\'\\u0758SS\。ጫᢊ\\u0768𝟐\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2427\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0758}ss。ጫᢊ\x{0768}𝟐", %p)}, undef, "to_ascii\(\'\\u0758ss\。ጫᢊ\\u0768𝟐\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2428\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0758}Ss。ጫᢊ\x{0768}𝟐", %p)}, undef, "to_ascii\(\'\\u0758Ss\。ጫᢊ\\u0768𝟐\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2429\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{07C3}𞶇ᚲ.\x{0902}\x{0353}𝟚\x{09CD}", %p)}, undef, "to_ascii\(\'\\u07C3\?ᚲ\.\\u0902\\u0353𝟚\\u09CD\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2430\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07C3}𞶇ᚲ.\x{0902}\x{0353}2\x{09CD}", %p)}, undef, "to_ascii\(\'\\u07C3\?ᚲ\.\\u0902\\u03532\\u09CD\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2431\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{1BAB}︒\x{200D}.񒶈񥹓", %p)}, undef, "to_ascii\(\'\-\\u1BAB︒\\u200D\.\?\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2432\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{1BAB}。\x{200D}.񒶈񥹓", %p)}, undef, "to_ascii\(\'\-\\u1BAB\。\\u200D\.\?\?\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2434\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠦮.≯𞀆", %p)}, undef, "to_ascii\(\'\?\.\≯\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2436\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠦮.>\x{0338}𞀆", %p)}, undef, "to_ascii\(\'\?\.\>\\u0338\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2437\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𑄳󠊗𐹩。𞮱", %p)}, undef, "to_ascii\(\'\-𑄳\?𐹩\。\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2438\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06B9}．ᡳ\x{115F}", %p)}, undef, "to_ascii\(\'\\u06B9．ᡳ\\u115F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2439\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06B9}.ᡳ\x{115F}", %p)}, undef, "to_ascii\(\'\\u06B9\.ᡳ\\u115F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2440\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㨛𘱎.︒𝟕\x{0D01}", %p)}, undef, "to_ascii\(\'㨛\?\.︒𝟕\\u0D01\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2441\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㨛𘱎.。7\x{0D01}", %p)}, undef, "to_ascii\(\'㨛\?\.\。7\\u0D01\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2442\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06DD}𻱧-｡𞷁\x{2064}𞤣≮", %p)}, undef, "to_ascii\(\'\\u06DD\?\-｡\?\\u2064\?\≮\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2443\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06DD}𻱧-｡𞷁\x{2064}𞤣<\x{0338}", %p)}, undef, "to_ascii\(\'\\u06DD\?\-｡\?\\u2064\?\<\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2444\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06DD}𻱧-。𞷁\x{2064}𞤣≮", %p)}, undef, "to_ascii\(\'\\u06DD\?\-\。\?\\u2064\?\≮\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2445\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06DD}𻱧-。𞷁\x{2064}𞤣<\x{0338}", %p)}, undef, "to_ascii\(\'\\u06DD\?\-\。\?\\u2064\?\<\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2446\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß\x{200C}\x{AAF6}ᢥ．⊶ჁႶ", %p)}, undef, "to_ascii\(\'ß\\u200C\\uAAF6ᢥ．\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2447\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß\x{200C}\x{AAF6}ᢥ.⊶ჁႶ", %p)}, undef, "to_ascii\(\'ß\\u200C\\uAAF6ᢥ\.\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2449\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ß\x{200C}\x{AAF6}ᢥ.⊶ⴡⴖ", %p)}, "xn--ss-4epx629f.xn--ifh802b6a", "to_ascii\(\'ß\\u200C\\uAAF6ᢥ\.\⊶ⴡⴖ\'\)\ \[data\/IdnaTest\.txt\:2451\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("SS\x{200C}\x{AAF6}ᢥ.⊶ჁႶ", %p)}, undef, "to_ascii\(\'SS\\u200C\\uAAF6ᢥ\.\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2453\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ss\x{200C}\x{AAF6}ᢥ.⊶ⴡⴖ", %p)}, "xn--ss-4epx629f.xn--ifh802b6a", "to_ascii\(\'ss\\u200C\\uAAF6ᢥ\.\⊶ⴡⴖ\'\)\ \[data\/IdnaTest\.txt\:2455\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ss\x{200C}\x{AAF6}ᢥ.⊶Ⴡⴖ", %p)}, undef, "to_ascii\(\'Ss\\u200C\\uAAF6ᢥ\.\⊶Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2457\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("xn--ss-4epx629f.xn--ifh802b6a", %p)}, "xn--ss-4epx629f.xn--ifh802b6a", "to_ascii\(\'xn\-\-ss\-4epx629f\.xn\-\-ifh802b6a\'\)\ \[data\/IdnaTest\.txt\:2459\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ss\x{AAF6}ᢥ.⊶ⴡⴖ", %p)}, "xn--ss-4epx629f.xn--ifh802b6a", "to_ascii\(\'ss\\uAAF6ᢥ\.\⊶ⴡⴖ\'\)\ \[data\/IdnaTest\.txt\:2460\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("SS\x{AAF6}ᢥ.⊶ჁႶ", %p)}, undef, "to_ascii\(\'SS\\uAAF6ᢥ\.\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2461\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss\x{AAF6}ᢥ.⊶Ⴡⴖ", %p)}, undef, "to_ascii\(\'Ss\\uAAF6ᢥ\.\⊶Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2462\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ß\x{200C}\x{AAF6}ᢥ．⊶ⴡⴖ", %p)}, "xn--ss-4epx629f.xn--ifh802b6a", "to_ascii\(\'ß\\u200C\\uAAF6ᢥ．\⊶ⴡⴖ\'\)\ \[data\/IdnaTest\.txt\:2463\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("SS\x{200C}\x{AAF6}ᢥ．⊶ჁႶ", %p)}, undef, "to_ascii\(\'SS\\u200C\\uAAF6ᢥ．\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2465\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ss\x{200C}\x{AAF6}ᢥ．⊶ⴡⴖ", %p)}, "xn--ss-4epx629f.xn--ifh802b6a", "to_ascii\(\'ss\\u200C\\uAAF6ᢥ．\⊶ⴡⴖ\'\)\ \[data\/IdnaTest\.txt\:2467\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ss\x{200C}\x{AAF6}ᢥ．⊶Ⴡⴖ", %p)}, undef, "to_ascii\(\'Ss\\u200C\\uAAF6ᢥ．\⊶Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2469\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。ς󠁉", %p)}, undef, "to_ascii\(\'\\u200D\。ς\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2471\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。Σ󠁉", %p)}, undef, "to_ascii\(\'\\u200D\。Σ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2473\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。σ󠁉", %p)}, undef, "to_ascii\(\'\\u200D\。σ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2475\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞵑ß.\x{0751}\x{200D}𞤛-", %p)}, undef, "to_ascii\(\'\?ß\.\\u0751\\u200D\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:2477\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞵑SS.\x{0751}\x{200D}𞤛-", %p)}, undef, "to_ascii\(\'\?SS\.\\u0751\\u200D\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:2479\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞵑ss.\x{0751}\x{200D}𞤛-", %p)}, undef, "to_ascii\(\'\?ss\.\\u0751\\u200D\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:2481\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞵑Ss.\x{0751}\x{200D}𞤛-", %p)}, undef, "to_ascii\(\'\?Ss\.\\u0751\\u200D\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:2483\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑘽\x{200D}𞤧．𐹧󡦪-", %p)}, undef, "to_ascii\(\'𑘽\\u200D\?．𐹧\?\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2485\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑘽\x{200D}𞤧.𐹧󡦪-", %p)}, undef, "to_ascii\(\'𑘽\\u200D\?\.𐹧\?\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2487\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒒򨘙򳳠𑓀.-󞡊", %p)}, undef, "to_ascii\(\'⒒\?\?𑓀\.\-\?\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2489\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("11.򨘙򳳠𑓀.-󞡊", %p)}, undef, "to_ascii\(\'11\.\?\?𑓀\.\-\?\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2490\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-｡\x{200D}", %p)}, undef, "to_ascii\(\'\-｡\\u200D\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2491\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-。\x{200D}", %p)}, undef, "to_ascii\(\'\-\。\\u200D\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2493\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮ᡬ．ς¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᡬ．ς¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2495\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}ᡬ．ς¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᡬ．ς¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2496\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮ᡬ.ς1-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᡬ\.ς1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2497\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}ᡬ.ς1-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᡬ\.ς1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2498\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}ᡬ.Σ1-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᡬ\.Σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2499\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮ᡬ.Σ1-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᡬ\.Σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2500\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮ᡬ.σ1-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᡬ\.σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2501\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}ᡬ.σ1-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᡬ\.σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2502\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}ᡬ．Σ¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᡬ．Σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2503\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮ᡬ．Σ¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᡬ．Σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2504\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮ᡬ．σ¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᡬ．σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2505\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}ᡬ．σ¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᡬ．σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2506\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ቬ򔠼񁗶｡𐨬𝟠", %p)}, undef, "to_ascii\(\'ቬ\?\?｡𐨬𝟠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2507\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ቬ򔠼񁗶。𐨬8", %p)}, undef, "to_ascii\(\'ቬ\?\?\。𐨬8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2508\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐱲。蔫\x{0766}", %p)}, undef, "to_ascii\(\'\?\。蔫\\u0766\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2509\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򒲧₃｡ꡚ𛇑󠄳\x{0647}", %p)}, undef, "to_ascii\(\'\?₃｡ꡚ\?\󠄳\\u0647\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2510\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򒲧3。ꡚ𛇑󠄳\x{0647}", %p)}, undef, "to_ascii\(\'\?3\。ꡚ\?\󠄳\\u0647\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2511\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("蓸\x{0642}≠.ß", %p)}, undef, "to_ascii\(\'蓸\\u0642\≠\.ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2512\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("蓸\x{0642}=\x{0338}.ß", %p)}, undef, "to_ascii\(\'蓸\\u0642\=\\u0338\.ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2513\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("蓸\x{0642}=\x{0338}.SS", %p)}, undef, "to_ascii\(\'蓸\\u0642\=\\u0338\.SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2514\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("蓸\x{0642}≠.SS", %p)}, undef, "to_ascii\(\'蓸\\u0642\≠\.SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2515\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{084E}\x{067A}\x{0DD3}⒊.𐹹𞱩󠃪\x{200C}", %p)}, undef, "to_ascii\(\'\\u084E\\u067A\\u0DD3⒊\.𐹹\?\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2516\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{084E}\x{067A}\x{0DD3}3..𐹹𞱩󠃪\x{200C}", %p)}, undef, "to_ascii\(\'\\u084E\\u067A\\u0DD33\.\.𐹹\?\?\\u200C\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:2518\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς\x{200D}-.Ⴣ𦟙", %p)}, undef, "to_ascii\(\'ς\\u200D\-\.Ⴣ𦟙\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2520\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ς\x{200D}-.ⴣ𦟙", %p)}, undef, "to_ascii\(\'ς\\u200D\-\.ⴣ𦟙\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2522\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Σ\x{200D}-.Ⴣ𦟙", %p)}, undef, "to_ascii\(\'Σ\\u200D\-\.Ⴣ𦟙\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2524\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("σ\x{200D}-.ⴣ𦟙", %p)}, undef, "to_ascii\(\'σ\\u200D\-\.ⴣ𦟙\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2526\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("≠。🞳𝟲", %p)}, undef, "to_ascii\(\'\≠\。🞳𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2528\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}。🞳𝟲", %p)}, undef, "to_ascii\(\'\=\\u0338\。🞳𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2529\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠。🞳6", %p)}, undef, "to_ascii\(\'\≠\。🞳6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2530\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}。🞳6", %p)}, undef, "to_ascii\(\'\=\\u0338\。🞳6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2531\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󅬽.蠔", %p)}, undef, "to_ascii\(\'\?\.蠔\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2532\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{08E6}\x{200D}．뼽", %p)}, undef, "to_ascii\(\'\\u08E6\\u200D．뼽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2533\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{08E6}\x{200D}．뼽", %p)}, undef, "to_ascii\(\'\\u08E6\\u200D．뼽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2535\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{08E6}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u08E6\\u200D\.뼽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2537\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{08E6}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u08E6\\u200D\.뼽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2539\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("₇\x{0BCD}􃂷\x{06D2}。👖\x{0675}-𞪑", %p)}, undef, "to_ascii\(\'₇\\u0BCD\?\\u06D2\。👖\\u0675\-\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2541\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("7\x{0BCD}􃂷\x{06D2}。👖\x{0627}\x{0674}-𞪑", %p)}, undef, "to_ascii\(\'7\\u0BCD\?\\u06D2\。👖\\u0627\\u0674\-\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2542\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("-｡\x{077B}", %p)}, undef, "to_ascii\(\'\-｡\\u077B\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2543\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("-。\x{077B}", %p)}, undef, "to_ascii\(\'\-\。\\u077B\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2544\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𑇌𵛓｡-⒈ꡏ\x{072B}", %p)}, undef, "to_ascii\(\'𑇌\?｡\-⒈ꡏ\\u072B\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2545\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑇌𵛓。-1.ꡏ\x{072B}", %p)}, undef, "to_ascii\(\'𑇌\?\。\-1\.ꡏ\\u072B\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2546\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("璛\x{1734}\x{06AF}.-", %p)}, undef, "to_ascii\(\'璛\\u1734\\u06AF\.\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2547\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("󠆰\x{08A1}\x{0A4D}샕．𐹲휁", %p)}, undef, "to_ascii\(\'\󠆰\\u08A1\\u0A4D샕．𐹲휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2548\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("󠆰\x{08A1}\x{0A4D}샕．𐹲휁", %p)}, undef, "to_ascii\(\'\󠆰\\u08A1\\u0A4D샕．𐹲휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2549\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("󠆰\x{08A1}\x{0A4D}샕.𐹲휁", %p)}, undef, "to_ascii\(\'\󠆰\\u08A1\\u0A4D샕\.𐹲휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2550\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("󠆰\x{08A1}\x{0A4D}샕.𐹲휁", %p)}, undef, "to_ascii\(\'\󠆰\\u08A1\\u0A4D샕\.𐹲휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2551\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񍨽．񋸕", %p)}, undef, "to_ascii\(\'\?．\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2552\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񍨽.񋸕", %p)}, undef, "to_ascii\(\'\?\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2553\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{067D}𞥕｡𑑂𞤶Ⴍ-", %p)}, undef, "to_ascii\(\'\\u067D\?｡\?\?Ⴍ\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2554\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{067D}𞥕。𑑂𞤶Ⴍ-", %p)}, undef, "to_ascii\(\'\\u067D\?\。\?\?Ⴍ\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2555\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{067D}𞥕。𑑂𞤶ⴍ-", %p)}, undef, "to_ascii\(\'\\u067D\?\。\?\?ⴍ\-\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2556\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{067D}𞥕｡𑑂𞤶ⴍ-", %p)}, undef, "to_ascii\(\'\\u067D\?｡\?\?ⴍ\-\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2557\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐯀𐸉𞧏。񢚧₄Ⴋ񂹫", %p)}, undef, "to_ascii\(\'\?\?\?\。\?₄Ⴋ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2558\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐯀𐸉𞧏。񢚧4Ⴋ񂹫", %p)}, undef, "to_ascii\(\'\?\?\?\。\?4Ⴋ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2559\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐯀𐸉𞧏。񢚧4ⴋ񂹫", %p)}, undef, "to_ascii\(\'\?\?\?\。\?4ⴋ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2560\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐯀𐸉𞧏。񢚧₄ⴋ񂹫", %p)}, undef, "to_ascii\(\'\?\?\?\。\?₄ⴋ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2561\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4\x{06BD}︒󠑥.≠", %p)}, undef, "to_ascii\(\'4\\u06BD︒\?\.\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2562\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4\x{06BD}︒󠑥.=\x{0338}", %p)}, undef, "to_ascii\(\'4\\u06BD︒\?\.\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2563\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4\x{06BD}。󠑥.≠", %p)}, undef, "to_ascii\(\'4\\u06BD\。\?\.\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2564\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4\x{06BD}。󠑥.=\x{0338}", %p)}, undef, "to_ascii\(\'4\\u06BD\。\?\.\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2565\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟓。\x{06D7}", %p)}, undef, "to_ascii\(\'𝟓\。\\u06D7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2566\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("5。\x{06D7}", %p)}, undef, "to_ascii\(\'5\。\\u06D7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2567\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}򺸩.⾕", %p)}, undef, "to_ascii\(\'\\u200C\?\.⾕\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2568\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}򺸩.谷", %p)}, undef, "to_ascii\(\'\\u200C\?\.谷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2570\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒󎰇\x{200D}.-\x{073C}\x{200C}", %p)}, undef, "to_ascii\(\'︒\?\\u200D\.\-\\u073C\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2572\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。󎰇\x{200D}.-\x{073C}\x{200C}", %p)}, undef, "to_ascii\(\'\。\?\\u200D\.\-\\u073C\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2574\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯𞤟。ᡨ", %p)}, undef, "to_ascii\(\'\≯\?\。ᡨ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2576\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}𞤟。ᡨ", %p)}, undef, "to_ascii\(\'\>\\u0338\?\。ᡨ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2577\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("\x{0F74}𫫰𝨄。\x{0713}𐹦", %p)}, undef, "to_ascii\(\'\\u0F74𫫰𝨄\。\\u0713𐹦\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2578\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{033C}\x{07DB}⁷𝟹｡𝟬", %p)}, undef, "to_ascii\(\'\\u033C\\u07DB⁷𝟹｡𝟬\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2579\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{033C}\x{07DB}73。0", %p)}, undef, "to_ascii\(\'\\u033C\\u07DB73\。0\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2580\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}．𝟗", %p)}, "9", "to_ascii\(\'\\u200D．𝟗\'\)\ \[data\/IdnaTest\.txt\:2581\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}.9", %p)}, "9", "to_ascii\(\'\\u200D\.9\'\)\ \[data\/IdnaTest\.txt\:2583\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("9", %p)}, "9", "to_ascii\(\'9\'\)\ \[data\/IdnaTest\.txt\:2585\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{0779}ᡭ𪕈。\x{06B6}\x{08D9}", %p)}, undef, "to_ascii\(\'\\u0779ᡭ𪕈\。\\u06B6\\u08D9\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2586\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0726}５\x{07E2}겙。\x{1CF4}𐷚", %p)}, undef, "to_ascii\(\'\\u0726５\\u07E2겙\。\\u1CF4\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2587\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0726}５\x{07E2}겙。\x{1CF4}𐷚", %p)}, undef, "to_ascii\(\'\\u0726５\\u07E2겙\。\\u1CF4\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2588\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0726}5\x{07E2}겙。\x{1CF4}𐷚", %p)}, undef, "to_ascii\(\'\\u07265\\u07E2겙\。\\u1CF4\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2589\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0726}5\x{07E2}겙。\x{1CF4}𐷚", %p)}, undef, "to_ascii\(\'\\u07265\\u07E2겙\。\\u1CF4\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2590\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴍ𿣍ꡨ\x{05AE}。Ⴞ\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴍ\?ꡨ\\u05AE\。Ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2591\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴍ𿣍ꡨ\x{05AE}。ⴞ\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'ⴍ\?ꡨ\\u05AE\。ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2593\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐋰。󑓱", %p)}, undef, "to_ascii\(\'𐋰\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2595\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󡎦\x{17B4}\x{0B4D}.𐹾", %p)}, undef, "to_ascii\(\'\?\\u17B4\\u0B4D\.𐹾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2596\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08DF}Ⴋ𶿸귤．򠅼𝟢휪\x{0AE3}", %p)}, undef, "to_ascii\(\'\\u08DFႫ\?귤．\?𝟢휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2597\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08DF}Ⴋ𶿸귤．򠅼𝟢휪\x{0AE3}", %p)}, undef, "to_ascii\(\'\\u08DFႫ\?귤．\?𝟢휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2598\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08DF}Ⴋ𶿸귤.򠅼0휪\x{0AE3}", %p)}, undef, "to_ascii\(\'\\u08DFႫ\?귤\.\?0휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2599\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08DF}Ⴋ𶿸귤.򠅼0휪\x{0AE3}", %p)}, undef, "to_ascii\(\'\\u08DFႫ\?귤\.\?0휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2600\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08DF}ⴋ𶿸귤.򠅼0휪\x{0AE3}", %p)}, undef, "to_ascii\(\'\\u08DFⴋ\?귤\.\?0휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2601\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08DF}ⴋ𶿸귤.򠅼0휪\x{0AE3}", %p)}, undef, "to_ascii\(\'\\u08DFⴋ\?귤\.\?0휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2602\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08DF}ⴋ𶿸귤．򠅼𝟢휪\x{0AE3}", %p)}, undef, "to_ascii\(\'\\u08DFⴋ\?귤．\?𝟢휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2603\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08DF}ⴋ𶿸귤．򠅼𝟢휪\x{0AE3}", %p)}, undef, "to_ascii\(\'\\u08DFⴋ\?귤．\?𝟢휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2604\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0784}．𞡝\x{0601}", %p)}, undef, "to_ascii\(\'\\u0784．𞡝\\u0601\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2605\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0784}.𞡝\x{0601}", %p)}, undef, "to_ascii\(\'\\u0784\.𞡝\\u0601\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2606\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0ACD}₃.8\x{A8C4}\x{200D}🃤", %p)}, undef, "to_ascii\(\'\\u0ACD₃\.8\\uA8C4\\u200D🃤\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2607\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0ACD}3.8\x{A8C4}\x{200D}🃤", %p)}, undef, "to_ascii\(\'\\u0ACD3\.8\\uA8C4\\u200D🃤\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2608\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("℻⩷𝆆。𞤠󠆁\x{180C}", %p)}, "xn--fax-4c9a1676t.xn--6e6h", "to_ascii\(\'℻\⩷𝆆\。\?\󠆁\\u180C\'\)\ \[data\/IdnaTest\.txt\:2609\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("FAX⩷𝆆。𞤠󠆁\x{180C}", %p)}, "xn--fax-4c9a1676t.xn--6e6h", "to_ascii\(\'FAX\⩷𝆆\。\?\󠆁\\u180C\'\)\ \[data\/IdnaTest\.txt\:2610\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("fax⩷𝆆。𞤠󠆁\x{180C}", %p)}, "xn--fax-4c9a1676t.xn--6e6h", "to_ascii\(\'fax\⩷𝆆\。\?\󠆁\\u180C\'\)\ \[data\/IdnaTest\.txt\:2611\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("Fax⩷𝆆。𞤠󠆁\x{180C}", %p)}, "xn--fax-4c9a1676t.xn--6e6h", "to_ascii\(\'Fax\⩷𝆆\。\?\󠆁\\u180C\'\)\ \[data\/IdnaTest\.txt\:2612\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--fax-4c9a1676t.xn--6e6h", %p)}, "xn--fax-4c9a1676t.xn--6e6h", "to_ascii\(\'xn\-\-fax\-4c9a1676t\.xn\-\-6e6h\'\)\ \[data\/IdnaTest\.txt\:2613\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("fax⩷𝆆.𞥂", %p)}, "xn--fax-4c9a1676t.xn--6e6h", "to_ascii\(\'fax\⩷𝆆\.\?\'\)\ \[data\/IdnaTest\.txt\:2614\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("FAX⩷𝆆.𞥂", %p)}, "xn--fax-4c9a1676t.xn--6e6h", "to_ascii\(\'FAX\⩷𝆆\.\?\'\)\ \[data\/IdnaTest\.txt\:2615\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("Fax⩷𝆆.𞥂", %p)}, "xn--fax-4c9a1676t.xn--6e6h", "to_ascii\(\'Fax\⩷𝆆\.\?\'\)\ \[data\/IdnaTest\.txt\:2616\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ꡕ≠\x{105E}󮿱｡𐵧󠄫\x{FFA0}", %p)}, undef, "to_ascii\(\'ꡕ\≠\\u105E\?｡\?\󠄫\\uFFA0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2617\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡕ=\x{0338}\x{105E}󮿱｡𐵧󠄫\x{FFA0}", %p)}, undef, "to_ascii\(\'ꡕ\=\\u0338\\u105E\?｡\?\󠄫\\uFFA0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2618\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡕ≠\x{105E}󮿱。𐵧󠄫\x{1160}", %p)}, undef, "to_ascii\(\'ꡕ\≠\\u105E\?\。\?\󠄫\\u1160\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2619\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡕ=\x{0338}\x{105E}󮿱。𐵧󠄫\x{1160}", %p)}, undef, "to_ascii\(\'ꡕ\=\\u0338\\u105E\?\。\?\󠄫\\u1160\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2620\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("鱊。\x{200C}", %p)}, "xn--rt6a.", "to_ascii\(\'鱊\。\\u200C\'\)\ \[data\/IdnaTest\.txt\:2621\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--rt6a.", %p)}, "xn--rt6a.", "to_ascii\(\'xn\-\-rt6a\.\'\)\ \[data\/IdnaTest\.txt\:2623\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("鱊.", %p)}, "xn--rt6a.", "to_ascii\(\'鱊\.\'\)\ \[data\/IdnaTest\.txt\:2624\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("8𐹣．𑍨", %p)}, undef, "to_ascii\(\'8𐹣．𑍨\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2625\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("8𐹣.𑍨", %p)}, undef, "to_ascii\(\'8𐹣\.𑍨\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2626\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("⏹𐧀．𐫯", %p)}, undef, "to_ascii\(\'\⏹𐧀．𐫯\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2627\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("⏹𐧀.𐫯", %p)}, undef, "to_ascii\(\'\⏹𐧀\.𐫯\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2628\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤺\x{07CC}4．\x{200D}", %p)}, "xn--4-0bd15808a.", "to_ascii\(\'\?\\u07CC4．\\u200D\'\)\ \[data\/IdnaTest\.txt\:2629\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤺\x{07CC}4.\x{200D}", %p)}, "xn--4-0bd15808a.", "to_ascii\(\'\?\\u07CC4\.\\u200D\'\)\ \[data\/IdnaTest\.txt\:2631\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--4-0bd15808a.", %p)}, "xn--4-0bd15808a.", "to_ascii\(\'xn\-\-4\-0bd15808a\.\'\)\ \[data\/IdnaTest\.txt\:2633\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤺\x{07CC}4.", %p)}, "xn--4-0bd15808a.", "to_ascii\(\'\?\\u07CC4\.\'\)\ \[data\/IdnaTest\.txt\:2634\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⒗\x{0981}\x{20EF}-.\x{08E2}•", %p)}, undef, "to_ascii\(\'⒗\\u0981\\u20EF\-\.\\u08E2\•\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2635\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("16.\x{0981}\x{20EF}-.\x{08E2}•", %p)}, undef, "to_ascii\(\'16\.\\u0981\\u20EF\-\.\\u08E2\•\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2636\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-｡䏛", %p)}, undef, "to_ascii\(\'\-｡䏛\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2637\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-。䏛", %p)}, undef, "to_ascii\(\'\-\。䏛\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2638\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}񒃠．\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\?．\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2639\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}񒃠.\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\?\.\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2641\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈⓰󥣇｡𐹠\x{200D}򗷦Ⴕ", %p)}, undef, "to_ascii\(\'⒈⓰\?｡𐹠\\u200D\?Ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2643\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.⓰󥣇。𐹠\x{200D}򗷦Ⴕ", %p)}, undef, "to_ascii\(\'1\.⓰\?\。𐹠\\u200D\?Ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2645\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.⓰󥣇。𐹠\x{200D}򗷦ⴕ", %p)}, undef, "to_ascii\(\'1\.⓰\?\。𐹠\\u200D\?ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2647\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈⓰󥣇｡𐹠\x{200D}򗷦ⴕ", %p)}, undef, "to_ascii\(\'⒈⓰\?｡𐹠\\u200D\?ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2649\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞠊ᠮ-ß｡\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_ascii\(\'𞠊ᠮ\-ß｡\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2651\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞠊ᠮ-ß。\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_ascii\(\'𞠊ᠮ\-ß\。\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2652\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞠊ᠮ-SS。\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_ascii\(\'𞠊ᠮ\-SS\。\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2653\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞠊ᠮ-ss。\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_ascii\(\'𞠊ᠮ\-ss\。\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2654\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞠊ᠮ-Ss。\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_ascii\(\'𞠊ᠮ\-Ss\。\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2655\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞠊ᠮ-SS｡\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_ascii\(\'𞠊ᠮ\-SS｡\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2656\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞠊ᠮ-ss｡\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_ascii\(\'𞠊ᠮ\-ss｡\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2657\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞠊ᠮ-Ss｡\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_ascii\(\'𞠊ᠮ\-Ss｡\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2658\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑇀.󠨱", %p)}, undef, "to_ascii\(\'𑇀\.\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2659\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("␒3\x{FB88}｡𝟘𐨿𐹆", %p)}, undef, "to_ascii\(\'\␒3\\uFB88｡𝟘𐨿\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2660\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("␒3\x{0688}。0𐨿𐹆", %p)}, undef, "to_ascii\(\'\␒3\\u0688\。0𐨿\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2661\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{076B}６\x{0A81}\x{08A6}。\x{1DE3}", %p)}, undef, "to_ascii\(\'\\u076B６\\u0A81\\u08A6\。\\u1DE3\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2662\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{076B}6\x{0A81}\x{08A6}。\x{1DE3}", %p)}, undef, "to_ascii\(\'\\u076B6\\u0A81\\u08A6\。\\u1DE3\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2663\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0605}-𽤞Ⴂ。򅤶\x{200D}", %p)}, undef, "to_ascii\(\'\\u0605\-\?Ⴂ\。\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2664\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0605}-𽤞ⴂ。򅤶\x{200D}", %p)}, undef, "to_ascii\(\'\\u0605\-\?ⴂ\。\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2666\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾆．ꡈ５≯ß", %p)}, undef, "to_ascii\(\'⾆．ꡈ５\≯ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2668\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾆．ꡈ５>\x{0338}ß", %p)}, undef, "to_ascii\(\'⾆．ꡈ５\>\\u0338ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2669\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("舌.ꡈ5≯ß", %p)}, undef, "to_ascii\(\'舌\.ꡈ5\≯ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2670\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("舌.ꡈ5>\x{0338}ß", %p)}, undef, "to_ascii\(\'舌\.ꡈ5\>\\u0338ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2671\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("舌.ꡈ5>\x{0338}SS", %p)}, undef, "to_ascii\(\'舌\.ꡈ5\>\\u0338SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2672\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("舌.ꡈ5≯SS", %p)}, undef, "to_ascii\(\'舌\.ꡈ5\≯SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2673\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("舌.ꡈ5≯ss", %p)}, undef, "to_ascii\(\'舌\.ꡈ5\≯ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2674\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("舌.ꡈ5>\x{0338}ss", %p)}, undef, "to_ascii\(\'舌\.ꡈ5\>\\u0338ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2675\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("舌.ꡈ5>\x{0338}Ss", %p)}, undef, "to_ascii\(\'舌\.ꡈ5\>\\u0338Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2676\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("舌.ꡈ5≯Ss", %p)}, undef, "to_ascii\(\'舌\.ꡈ5\≯Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2677\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾆．ꡈ５>\x{0338}SS", %p)}, undef, "to_ascii\(\'⾆．ꡈ５\>\\u0338SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2678\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾆．ꡈ５≯SS", %p)}, undef, "to_ascii\(\'⾆．ꡈ５\≯SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2679\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾆．ꡈ５≯ss", %p)}, undef, "to_ascii\(\'⾆．ꡈ５\≯ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2680\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾆．ꡈ５>\x{0338}ss", %p)}, undef, "to_ascii\(\'⾆．ꡈ５\>\\u0338ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2681\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾆．ꡈ５>\x{0338}Ss", %p)}, undef, "to_ascii\(\'⾆．ꡈ５\>\\u0338Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2682\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾆．ꡈ５≯Ss", %p)}, undef, "to_ascii\(\'⾆．ꡈ５\≯Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2683\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0ACD}8\x{200D}．򾂈\x{075C}", %p)}, undef, "to_ascii\(\'\\u0ACD8\\u200D．\?\\u075C\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2684\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0ACD}8\x{200D}.򾂈\x{075C}", %p)}, undef, "to_ascii\(\'\\u0ACD8\\u200D\.\?\\u075C\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2686\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򸷆\x{0A70}≮򹓙．񞎧⁷󠯙\x{06B6}", %p)}, undef, "to_ascii\(\'\?\\u0A70\≮\?．\?⁷\?\\u06B6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2688\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򸷆\x{0A70}<\x{0338}򹓙．񞎧⁷󠯙\x{06B6}", %p)}, undef, "to_ascii\(\'\?\\u0A70\<\\u0338\?．\?⁷\?\\u06B6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2689\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򸷆\x{0A70}≮򹓙.񞎧7󠯙\x{06B6}", %p)}, undef, "to_ascii\(\'\?\\u0A70\≮\?\.\?7\?\\u06B6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2690\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򸷆\x{0A70}<\x{0338}򹓙.񞎧7󠯙\x{06B6}", %p)}, undef, "to_ascii\(\'\?\\u0A70\<\\u0338\?\.\?7\?\\u06B6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2691\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤪.ς", %p)}, "xn--ie6h.xn--4xa", "to_ascii\(\'\?\.ς\'\)\ \[data\/IdnaTest\.txt\:2692\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤪.Σ", %p)}, "xn--ie6h.xn--4xa", "to_ascii\(\'\?\.Σ\'\)\ \[data\/IdnaTest\.txt\:2694\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤪.σ", %p)}, "xn--ie6h.xn--4xa", "to_ascii\(\'\?\.σ\'\)\ \[data\/IdnaTest\.txt\:2695\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--ie6h.xn--4xa", %p)}, "xn--ie6h.xn--4xa", "to_ascii\(\'xn\-\-ie6h\.xn\-\-4xa\'\)\ \[data\/IdnaTest\.txt\:2696\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--ie6h.xn--3xa", %p)}, "xn--ie6h.xn--3xa", "to_ascii\(\'xn\-\-ie6h\.xn\-\-3xa\'\)\ \[data\/IdnaTest\.txt\:2697\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}Ⴚ｡ς", %p)}, undef, "to_ascii\(\'\\u200CႺ｡ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2698\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴚ。ς", %p)}, undef, "to_ascii\(\'\\u200CႺ\。ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2700\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200C}ⴚ。ς", %p)}, "xn--ilj.xn--4xa", "to_ascii\(\'\\u200Cⴚ\。ς\'\)\ \[data\/IdnaTest\.txt\:2702\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}Ⴚ。Σ", %p)}, undef, "to_ascii\(\'\\u200CႺ\。Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2704\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200C}ⴚ。σ", %p)}, "xn--ilj.xn--4xa", "to_ascii\(\'\\u200Cⴚ\。σ\'\)\ \[data\/IdnaTest\.txt\:2706\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--ilj.xn--4xa", %p)}, "xn--ilj.xn--4xa", "to_ascii\(\'xn\-\-ilj\.xn\-\-4xa\'\)\ \[data\/IdnaTest\.txt\:2708\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴚ.σ", %p)}, "xn--ilj.xn--4xa", "to_ascii\(\'ⴚ\.σ\'\)\ \[data\/IdnaTest\.txt\:2709\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴚ.Σ", %p)}, undef, "to_ascii\(\'Ⴚ\.Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2710\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴚ.ς", %p)}, "xn--ilj.xn--4xa", "to_ascii\(\'ⴚ\.ς\'\)\ \[data\/IdnaTest\.txt\:2711\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴚ.ς", %p)}, undef, "to_ascii\(\'Ⴚ\.ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2713\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--ilj.xn--3xa", %p)}, "xn--ilj.xn--3xa", "to_ascii\(\'xn\-\-ilj\.xn\-\-3xa\'\)\ \[data\/IdnaTest\.txt\:2714\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴚ.σ", %p)}, undef, "to_ascii\(\'Ⴚ\.σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2715\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200C}ⴚ｡ς", %p)}, "xn--ilj.xn--4xa", "to_ascii\(\'\\u200Cⴚ｡ς\'\)\ \[data\/IdnaTest\.txt\:2716\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}Ⴚ｡Σ", %p)}, undef, "to_ascii\(\'\\u200CႺ｡Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2718\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200C}ⴚ｡σ", %p)}, "xn--ilj.xn--4xa", "to_ascii\(\'\\u200Cⴚ｡σ\'\)\ \[data\/IdnaTest\.txt\:2720\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤃．𐹦", %p)}, undef, "to_ascii\(\'\?．𐹦\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2722\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤃.𐹦", %p)}, undef, "to_ascii\(\'\?\.𐹦\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2723\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}⾕。\x{200C}\x{0310}\x{A953}ꡎ", %p)}, undef, "to_ascii\(\'\\u200D⾕\。\\u200C\\u0310\\uA953ꡎ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2724\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}⾕。\x{200C}\x{A953}\x{0310}ꡎ", %p)}, undef, "to_ascii\(\'\\u200D⾕\。\\u200C\\uA953\\u0310ꡎ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2726\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}谷。\x{200C}\x{A953}\x{0310}ꡎ", %p)}, undef, "to_ascii\(\'\\u200D谷\。\\u200C\\uA953\\u0310ꡎ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2728\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{06AA}-뉔．𞤐\x{200C}", %p)}, undef, "to_ascii\(\'\\u06AA\-뉔．\?\\u200C\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2730\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{06AA}-뉔．𞤐\x{200C}", %p)}, undef, "to_ascii\(\'\\u06AA\-뉔．\?\\u200C\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2732\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{06AA}-뉔.𞤐\x{200C}", %p)}, undef, "to_ascii\(\'\\u06AA\-뉔\.\?\\u200C\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2734\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{06AA}-뉔.𞤐\x{200C}", %p)}, undef, "to_ascii\(\'\\u06AA\-뉔\.\?\\u200C\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2736\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񔲵５ᦛς.\x{A8C4}\x{077B}\x{1CD2}\x{0738}", %p)}, undef, "to_ascii\(\'\?５ᦛς\.\\uA8C4\\u077B\\u1CD2\\u0738\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2738\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񔲵５ᦛς.\x{A8C4}\x{077B}\x{0738}\x{1CD2}", %p)}, undef, "to_ascii\(\'\?５ᦛς\.\\uA8C4\\u077B\\u0738\\u1CD2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2739\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񔲵5ᦛς.\x{A8C4}\x{077B}\x{0738}\x{1CD2}", %p)}, undef, "to_ascii\(\'\?5ᦛς\.\\uA8C4\\u077B\\u0738\\u1CD2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2740\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񔲵5ᦛΣ.\x{A8C4}\x{077B}\x{0738}\x{1CD2}", %p)}, undef, "to_ascii\(\'\?5ᦛΣ\.\\uA8C4\\u077B\\u0738\\u1CD2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2741\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񔲵5ᦛσ.\x{A8C4}\x{077B}\x{0738}\x{1CD2}", %p)}, undef, "to_ascii\(\'\?5ᦛσ\.\\uA8C4\\u077B\\u0738\\u1CD2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2742\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񔲵５ᦛΣ.\x{A8C4}\x{077B}\x{0738}\x{1CD2}", %p)}, undef, "to_ascii\(\'\?５ᦛΣ\.\\uA8C4\\u077B\\u0738\\u1CD2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2743\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񔲵５ᦛσ.\x{A8C4}\x{077B}\x{0738}\x{1CD2}", %p)}, undef, "to_ascii\(\'\?５ᦛσ\.\\uA8C4\\u077B\\u0738\\u1CD2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2744\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񔲵５ᦛΣ.\x{A8C4}\x{077B}\x{1CD2}\x{0738}", %p)}, undef, "to_ascii\(\'\?５ᦛΣ\.\\uA8C4\\u077B\\u1CD2\\u0738\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2745\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񔲵５ᦛσ.\x{A8C4}\x{077B}\x{1CD2}\x{0738}", %p)}, undef, "to_ascii\(\'\?５ᦛσ\.\\uA8C4\\u077B\\u1CD2\\u0738\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2746\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("淽。ᠾ", %p)}, "xn--34w.xn--x7e", "to_ascii\(\'淽\。ᠾ\'\)\ \[data\/IdnaTest\.txt\:2747\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--34w.xn--x7e", %p)}, "xn--34w.xn--x7e", "to_ascii\(\'xn\-\-34w\.xn\-\-x7e\'\)\ \[data\/IdnaTest\.txt\:2748\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("淽.ᠾ", %p)}, "xn--34w.xn--x7e", "to_ascii\(\'淽\.ᠾ\'\)\ \[data\/IdnaTest\.txt\:2749\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐹴𑘷。-", %p)}, undef, "to_ascii\(\'𐹴𑘷\。\-\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2750\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򬨩Ⴓ❓｡𑄨", %p)}, undef, "to_ascii\(\'\?Ⴓ\❓｡𑄨\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2751\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򬨩Ⴓ❓。𑄨", %p)}, undef, "to_ascii\(\'\?Ⴓ\❓\。𑄨\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2752\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򬨩ⴓ❓。𑄨", %p)}, undef, "to_ascii\(\'\?ⴓ\❓\。𑄨\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2753\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򬨩ⴓ❓｡𑄨", %p)}, undef, "to_ascii\(\'\?ⴓ\❓｡𑄨\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2754\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𐹡𞤌Ⴇ｡ßႣ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?Ⴇ｡ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2755\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𐹡𞤌Ⴇ。ßႣ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?Ⴇ\。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2757\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{200C}𐹡𞤌ⴇ。ßⴃ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?ⴇ\。ßⴃ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2759\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}𐹡𞤌Ⴇ。SSႣ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?Ⴇ\。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2761\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{200C}𐹡𞤌ⴇ。ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?ⴇ\。ssⴃ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2763\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}𐹡𞤌Ⴇ。Ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?Ⴇ\。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2765\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{200C}𐹡𞤌ⴇ｡ßⴃ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?ⴇ｡ßⴃ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2767\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}𐹡𞤌Ⴇ｡SSႣ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?Ⴇ｡SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2769\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{200C}𐹡𞤌ⴇ｡ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?ⴇ｡ssⴃ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2771\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}𐹡𞤌Ⴇ｡Ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?Ⴇ｡Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2773\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17FF}｡𞬳", %p)}, undef, "to_ascii\(\'\\u17FF｡\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2775\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17FF}。𞬳", %p)}, undef, "to_ascii\(\'\\u17FF\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2776\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{0652}\x{200D}｡\x{0CCD}𑚳", %p)}, undef, "to_ascii\(\'\\u0652\\u200D｡\\u0CCD𑚳\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2777\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{0652}\x{200D}。\x{0CCD}𑚳", %p)}, undef, "to_ascii\(\'\\u0652\\u200D\。\\u0CCD𑚳\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2779\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-≠ᠻ．\x{076D}𞥃≮󟷺", %p)}, undef, "to_ascii\(\'\-\≠ᠻ．\\u076D\?\≮\?\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2781\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-=\x{0338}ᠻ．\x{076D}𞥃<\x{0338}󟷺", %p)}, undef, "to_ascii\(\'\-\=\\u0338ᠻ．\\u076D\?\<\\u0338\?\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2782\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-≠ᠻ.\x{076D}𞥃≮󟷺", %p)}, undef, "to_ascii\(\'\-\≠ᠻ\.\\u076D\?\≮\?\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2783\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-=\x{0338}ᠻ.\x{076D}𞥃<\x{0338}󟷺", %p)}, undef, "to_ascii\(\'\-\=\\u0338ᠻ\.\\u076D\?\<\\u0338\?\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2784\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠰆≯\x{07B5}𐻪．򊥕≮𑁆\x{084C}", %p)}, undef, "to_ascii\(\'\?\≯\\u07B5\?．\?\≮𑁆\\u084C\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2785\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠰆>\x{0338}\x{07B5}𐻪．򊥕<\x{0338}𑁆\x{084C}", %p)}, undef, "to_ascii\(\'\?\>\\u0338\\u07B5\?．\?\<\\u0338𑁆\\u084C\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2786\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠰆≯\x{07B5}𐻪.򊥕≮𑁆\x{084C}", %p)}, undef, "to_ascii\(\'\?\≯\\u07B5\?\.\?\≮𑁆\\u084C\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2787\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠰆>\x{0338}\x{07B5}𐻪.򊥕<\x{0338}𑁆\x{084C}", %p)}, undef, "to_ascii\(\'\?\>\\u0338\\u07B5\?\.\?\<\\u0338𑁆\\u084C\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2788\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠󦋂.\x{0600}\x{0BCD}-\x{06B9}", %p)}, undef, "to_ascii\(\'\≠\?\.\\u0600\\u0BCD\-\\u06B9\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2789\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}󦋂.\x{0600}\x{0BCD}-\x{06B9}", %p)}, undef, "to_ascii\(\'\=\\u0338\?\.\\u0600\\u0BCD\-\\u06B9\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2790\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17DD}󠁣≠｡𐹼𐋤", %p)}, undef, "to_ascii\(\'\\u17DD\?\≠｡𐹼𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2791\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17DD}󠁣=\x{0338}｡𐹼𐋤", %p)}, undef, "to_ascii\(\'\\u17DD\?\=\\u0338｡𐹼𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2792\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17DD}󠁣≠。𐹼𐋤", %p)}, undef, "to_ascii\(\'\\u17DD\?\≠\。𐹼𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2793\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17DD}󠁣=\x{0338}。𐹼𐋤", %p)}, undef, "to_ascii\(\'\\u17DD\?\=\\u0338\。𐹼𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2794\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß𰀻񆬗｡𝩨🕮ß", %p)}, undef, "to_ascii\(\'ß\?\?｡𝩨🕮ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2795\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß𰀻񆬗。𝩨🕮ß", %p)}, undef, "to_ascii\(\'ß\?\?\。𝩨🕮ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2796\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS𰀻񆬗。𝩨🕮SS", %p)}, undef, "to_ascii\(\'SS\?\?\。𝩨🕮SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2797\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss𰀻񆬗。𝩨🕮ss", %p)}, undef, "to_ascii\(\'ss\?\?\。𝩨🕮ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2798\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss𰀻񆬗。𝩨🕮Ss", %p)}, undef, "to_ascii\(\'Ss\?\?\。𝩨🕮Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2799\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS𰀻񆬗｡𝩨🕮SS", %p)}, undef, "to_ascii\(\'SS\?\?｡𝩨🕮SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2800\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss𰀻񆬗｡𝩨🕮ss", %p)}, undef, "to_ascii\(\'ss\?\?｡𝩨🕮ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2801\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss𰀻񆬗｡𝩨🕮Ss", %p)}, undef, "to_ascii\(\'Ss\?\?｡𝩨🕮Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2802\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u200D\。\\u200C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:2803\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0483}𐭞\x{200D}.\x{17B9}𞯌򟩚", %p)}, undef, "to_ascii\(\'\\u0483𐭞\\u200D\.\\u17B9\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2805\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𐠨\x{200C}临。ꡢ򄷞ⶏ𐹣", %p)}, undef, "to_ascii\(\'\\u200C𐠨\\u200C临\。ꡢ\?ⶏ𐹣\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2807\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠑘．󠄮", %p)}, undef, "to_ascii\(\'\?．\󠄮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2809\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠑘.󠄮", %p)}, undef, "to_ascii\(\'\?\.\󠄮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2810\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫄\x{0D4D}．\x{AAF6}", %p)}, undef, "to_ascii\(\'𐫄\\u0D4D．\\uAAF6\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2811\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫄\x{0D4D}.\x{AAF6}", %p)}, undef, "to_ascii\(\'𐫄\\u0D4D\.\\uAAF6\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2812\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{A9B7}󝵙멹。⒛󠨇", %p)}, undef, "to_ascii\(\'\\uA9B7\?멹\。⒛\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2813\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9B7}󝵙멹。⒛󠨇", %p)}, undef, "to_ascii\(\'\\uA9B7\?멹\。⒛\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2814\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9B7}󝵙멹。20.󠨇", %p)}, undef, "to_ascii\(\'\\uA9B7\?멹\。20\.\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2815\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9B7}󝵙멹。20.󠨇", %p)}, undef, "to_ascii\(\'\\uA9B7\?멹\。20\.\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2816\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴅ󲬹릖󠶚.\x{0777}𐹳⒊", %p)}, undef, "to_ascii\(\'Ⴅ\?릖\?\.\\u0777𐹳⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2817\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴅ󲬹릖󠶚.\x{0777}𐹳⒊", %p)}, undef, "to_ascii\(\'Ⴅ\?릖\?\.\\u0777𐹳⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2818\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴅ󲬹릖󠶚.\x{0777}𐹳3.", %p)}, undef, "to_ascii\(\'Ⴅ\?릖\?\.\\u0777𐹳3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2819\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴅ󲬹릖󠶚.\x{0777}𐹳3.", %p)}, undef, "to_ascii\(\'Ⴅ\?릖\?\.\\u0777𐹳3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2820\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴅ󲬹릖󠶚.\x{0777}𐹳3.", %p)}, undef, "to_ascii\(\'ⴅ\?릖\?\.\\u0777𐹳3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2821\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴅ󲬹릖󠶚.\x{0777}𐹳3.", %p)}, undef, "to_ascii\(\'ⴅ\?릖\?\.\\u0777𐹳3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2822\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴅ󲬹릖󠶚.\x{0777}𐹳⒊", %p)}, undef, "to_ascii\(\'ⴅ\?릖\?\.\\u0777𐹳⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2823\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴅ󲬹릖󠶚.\x{0777}𐹳⒊", %p)}, undef, "to_ascii\(\'ⴅ\?릖\?\.\\u0777𐹳⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2824\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}｡︒", %p)}, undef, "to_ascii\(\'\\u200C｡︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2825\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}。。", %p)}, undef, "to_ascii\(\'\\u200C\。\。\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:2827\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯\x{076D}．₄", %p)}, undef, "to_ascii\(\'\≯\\u076D．₄\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2829\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}\x{076D}．₄", %p)}, undef, "to_ascii\(\'\>\\u0338\\u076D．₄\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2830\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯\x{076D}.4", %p)}, undef, "to_ascii\(\'\≯\\u076D\.4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2831\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}\x{076D}.4", %p)}, undef, "to_ascii\(\'\>\\u0338\\u076D\.4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2832\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡲ-𝟹.ß-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡲ\-𝟹\.ß\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2833\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡲ-3.ß-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡲ\-3\.ß\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2835\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡲ-3.SS-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡲ\-3\.SS\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2837\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡲ-3.ss-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡲ\-3\.ss\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2839\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡲ-3.Ss-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡲ\-3\.Ss\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2841\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡲ-𝟹.SS-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡲ\-𝟹\.SS\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2843\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡲ-𝟹.ss-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡲ\-𝟹\.ss\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2845\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡲ-𝟹.Ss-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡲ\-𝟹\.Ss\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2847\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FD08}𝟦\x{0647}󎊯｡Ӏ", %p)}, undef, "to_ascii\(\'\\uFD08𝟦\\u0647\?｡Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2849\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0636}\x{064A}4\x{0647}󎊯。Ӏ", %p)}, undef, "to_ascii\(\'\\u0636\\u064A4\\u0647\?\。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2850\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0636}\x{064A}4\x{0647}󎊯。ӏ", %p)}, undef, "to_ascii\(\'\\u0636\\u064A4\\u0647\?\。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2851\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FD08}𝟦\x{0647}󎊯｡ӏ", %p)}, undef, "to_ascii\(\'\\uFD08𝟦\\u0647\?｡ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2852\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-.\x{0602}\x{0622}𑆾🐹", %p)}, undef, "to_ascii\(\'\-\.\\u0602\\u0622𑆾🐹\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2853\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-.\x{0602}\x{0627}\x{0653}𑆾🐹", %p)}, undef, "to_ascii\(\'\-\.\\u0602\\u0627\\u0653𑆾🐹\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2854\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󙶜ᢘ。\x{1A7F}⺢", %p)}, undef, "to_ascii\(\'\?ᢘ\。\\u1A7F⺢\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2855\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠ႷᠤႫ｡\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\≠ႷᠤႫ｡\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2856\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}ႷᠤႫ｡\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ႷᠤႫ｡\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2857\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠ႷᠤႫ。\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\≠ႷᠤႫ\。\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2858\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}ႷᠤႫ。\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ႷᠤႫ\。\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2859\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}ⴗᠤⴋ。\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ⴗᠤⴋ\。\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2860\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠ⴗᠤⴋ。\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\≠ⴗᠤⴋ\。\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2861\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠Ⴗᠤⴋ。\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\≠Ⴗᠤⴋ\。\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2862\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}Ⴗᠤⴋ。\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\=\\u0338Ⴗᠤⴋ\。\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2863\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}ⴗᠤⴋ｡\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ⴗᠤⴋ｡\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2864\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠ⴗᠤⴋ｡\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\≠ⴗᠤⴋ｡\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2865\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠Ⴗᠤⴋ｡\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\≠Ⴗᠤⴋ｡\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2866\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}Ⴗᠤⴋ｡\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\=\\u0338Ⴗᠤⴋ｡\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2867\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0667}.𐥨", %p)}, undef, "to_ascii\(\'\\u0667\.\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2868\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9C0}𝟯｡\x{200D}񼑥𐹪\x{1BF3}", %p)}, undef, "to_ascii\(\'\\uA9C0𝟯｡\\u200D\?𐹪\\u1BF3\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:2869\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9C0}3。\x{200D}񼑥𐹪\x{1BF3}", %p)}, undef, "to_ascii\(\'\\uA9C03\。\\u200D\?𐹪\\u1BF3\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:2871\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򣕄4񠖽.≯\x{0664}𑀾󠸌", %p)}, undef, "to_ascii\(\'\?4\?\.\≯\\u0664𑀾\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2873\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򣕄4񠖽.>\x{0338}\x{0664}𑀾󠸌", %p)}, undef, "to_ascii\(\'\?4\?\.\>\\u0338\\u0664𑀾\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2874\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򗆧𝟯。⒈\x{1A76}𝟚򠘌", %p)}, undef, "to_ascii\(\'\?𝟯\。⒈\\u1A76𝟚\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2875\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򗆧3。1.\x{1A76}2򠘌", %p)}, undef, "to_ascii\(\'\?3\。1\.\\u1A762\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2876\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}₅⒈。≯𝟴\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D₅⒈\。\≯𝟴\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2877\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}₅⒈。>\x{0338}𝟴\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D₅⒈\。\>\\u0338𝟴\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2879\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}51.。≯8\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D51\.\。\≯8\\u200D\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2881\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}51.。>\x{0338}8\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D51\.\。\>\\u03388\\u200D\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2883\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡰ\x{0697}\x{1086}．򪘙\x{072F}≠\x{200C}", %p)}, undef, "to_ascii\(\'ꡰ\\u0697\\u1086．\?\\u072F\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2885\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡰ\x{0697}\x{1086}．򪘙\x{072F}=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'ꡰ\\u0697\\u1086．\?\\u072F\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2887\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡰ\x{0697}\x{1086}.򪘙\x{072F}≠\x{200C}", %p)}, undef, "to_ascii\(\'ꡰ\\u0697\\u1086\.\?\\u072F\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2889\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡰ\x{0697}\x{1086}.򪘙\x{072F}=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'ꡰ\\u0697\\u1086\.\?\\u072F\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2891\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑄱｡򪌿𐹵", %p)}, undef, "to_ascii\(\'𑄱｡\?𐹵\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2893\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑄱。򪌿𐹵", %p)}, undef, "to_ascii\(\'𑄱\。\?𐹵\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2894\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟥\x{0600}。\x{073D}", %p)}, undef, "to_ascii\(\'𝟥\\u0600\。\\u073D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2895\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("3\x{0600}。\x{073D}", %p)}, undef, "to_ascii\(\'3\\u0600\。\\u073D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2896\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0637}𐹣\x{0666}.\x{076D}긷", %p)}, undef, "to_ascii\(\'\\u0637𐹣\\u0666\.\\u076D긷\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2897\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0637}𐹣\x{0666}.\x{076D}긷", %p)}, undef, "to_ascii\(\'\\u0637𐹣\\u0666\.\\u076D긷\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2898\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("︒Ↄ\x{2DE7}򾀃．Ⴗ𐣞", %p)}, undef, "to_ascii\(\'︒Ↄ\\u2DE7\?．Ⴗ\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2899\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。Ↄ\x{2DE7}򾀃.Ⴗ𐣞", %p)}, undef, "to_ascii\(\'\。Ↄ\\u2DE7\?\.Ⴗ\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2900\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。ↄ\x{2DE7}򾀃.ⴗ𐣞", %p)}, undef, "to_ascii\(\'\。ↄ\\u2DE7\?\.ⴗ\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2901\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒ↄ\x{2DE7}򾀃．ⴗ𐣞", %p)}, undef, "to_ascii\(\'︒ↄ\\u2DE7\?．ⴗ\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2902\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0600}.\x{05B1}", %p)}, undef, "to_ascii\(\'\\u0600\.\\u05B1\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2903\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς≯｡𐹽", %p)}, undef, "to_ascii\(\'ς\≯｡𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2904\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς>\x{0338}｡𐹽", %p)}, undef, "to_ascii\(\'ς\>\\u0338｡𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2905\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς≯。𐹽", %p)}, undef, "to_ascii\(\'ς\≯\。𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2906\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς>\x{0338}。𐹽", %p)}, undef, "to_ascii\(\'ς\>\\u0338\。𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2907\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ>\x{0338}。𐹽", %p)}, undef, "to_ascii\(\'Σ\>\\u0338\。𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2908\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ≯。𐹽", %p)}, undef, "to_ascii\(\'Σ\≯\。𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2909\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ≯。𐹽", %p)}, undef, "to_ascii\(\'σ\≯\。𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2910\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ>\x{0338}。𐹽", %p)}, undef, "to_ascii\(\'σ\>\\u0338\。𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2911\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ>\x{0338}｡𐹽", %p)}, undef, "to_ascii\(\'Σ\>\\u0338｡𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2912\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ≯｡𐹽", %p)}, undef, "to_ascii\(\'Σ\≯｡𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2913\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ≯｡𐹽", %p)}, undef, "to_ascii\(\'σ\≯｡𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2914\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ>\x{0338}｡𐹽", %p)}, undef, "to_ascii\(\'σ\>\\u0338｡𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2915\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{17D2}\x{200D}\x{075F}。𐹶", %p)}, undef, "to_ascii\(\'\\u17D2\\u200D\\u075F\。𐹶\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2916\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𾷂\x{0A42}Ⴊ񂂟.≮", %p)}, undef, "to_ascii\(\'\?\\u0A42Ⴊ\?\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2917\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𾷂\x{0A42}Ⴊ񂂟.<\x{0338}", %p)}, undef, "to_ascii\(\'\?\\u0A42Ⴊ\?\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2918\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𾷂\x{0A42}ⴊ񂂟.<\x{0338}", %p)}, undef, "to_ascii\(\'\?\\u0A42ⴊ\?\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2919\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𾷂\x{0A42}ⴊ񂂟.≮", %p)}, undef, "to_ascii\(\'\?\\u0A42ⴊ\?\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2920\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ꡠ．۲", %p)}, "xn--5c9a.xn--fmb", "to_ascii\(\'ꡠ．۲\'\)\ \[data\/IdnaTest\.txt\:2921\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ꡠ.۲", %p)}, "xn--5c9a.xn--fmb", "to_ascii\(\'ꡠ\.۲\'\)\ \[data\/IdnaTest\.txt\:2922\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("xn--5c9a.xn--fmb", %p)}, "xn--5c9a.xn--fmb", "to_ascii\(\'xn\-\-5c9a\.xn\-\-fmb\'\)\ \[data\/IdnaTest\.txt\:2923\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐹣񄷄｡ꡬ🄄", %p)}, undef, "to_ascii\(\'𐹣\?｡ꡬ🄄\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2924\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹣񄷄。ꡬ3,", %p)}, undef, "to_ascii\(\'𐹣\?\。ꡬ3\,\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2925\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{0C4D}𞾀𑲓｡\x{200D}\x{0D4D}", %p)}, undef, "to_ascii\(\'\-\\u0C4D\?\?｡\\u200D\\u0D4D\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2926\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{0C4D}𞾀𑲓。\x{200D}\x{0D4D}", %p)}, undef, "to_ascii\(\'\-\\u0C4D\?\?\。\\u200D\\u0D4D\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2928\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A67D}\x{200C}霣🄆｡\x{200C}𑁂\x{1B01}", %p)}, undef, "to_ascii\(\'\\uA67D\\u200C霣🄆｡\\u200C𑁂\\u1B01\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2930\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A67D}\x{200C}霣🄆｡\x{200C}𑁂\x{1B01}", %p)}, undef, "to_ascii\(\'\\uA67D\\u200C霣🄆｡\\u200C𑁂\\u1B01\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2932\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A67D}\x{200C}霣5,。\x{200C}𑁂\x{1B01}", %p)}, undef, "to_ascii\(\'\\uA67D\\u200C霣5\,\。\\u200C𑁂\\u1B01\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2934\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("兎｡ᠼ󠴜𑚶𑰿", %p)}, undef, "to_ascii\(\'兎｡ᠼ\?𑚶\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2936\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("兎。ᠼ󠴜𑚶𑰿", %p)}, undef, "to_ascii\(\'兎\。ᠼ\?𑚶\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2937\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟙｡\x{200D}𝟸\x{200D}⁷", %p)}, "1.27", "to_ascii\(\'𝟙｡\\u200D𝟸\\u200D⁷\'\)\ \[data\/IdnaTest\.txt\:2938\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1。\x{200D}2\x{200D}7", %p)}, "1.27", "to_ascii\(\'1\。\\u200D2\\u200D7\'\)\ \[data\/IdnaTest\.txt\:2940\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.27", %p)}, "1.27", "to_ascii\(\'1\.27\'\)\ \[data\/IdnaTest\.txt\:2942\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡨ-｡󠻋𝟷", %p)}, undef, "to_ascii\(\'ᡨ\-｡\?𝟷\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2943\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡨ-。󠻋1", %p)}, undef, "to_ascii\(\'ᡨ\-\。\?1\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2944\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰻񵀐𐫚．\x{0668}⁹", %p)}, undef, "to_ascii\(\'\?\?𐫚．\\u0668⁹\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2945\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰻񵀐𐫚.\x{0668}9", %p)}, undef, "to_ascii\(\'\?\?𐫚\.\\u06689\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2946\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴜ򈷭\x{0F80}⾇。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴜ\?\\u0F80⾇\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2947\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴜ򈷭\x{0F80}舛。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴜ\?\\u0F80舛\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2949\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴜ򈷭\x{0F80}舛。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'ⴜ\?\\u0F80舛\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2951\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴜ򈷭\x{0F80}⾇。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'ⴜ\?\\u0F80⾇\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2953\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("𑁆𝟰.\x{200D}", %p)}, undef, "to_ascii\(\'𑁆𝟰\.\\u200D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2955\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("𑁆4.\x{200D}", %p)}, undef, "to_ascii\(\'𑁆4\.\\u200D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2957\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񮴘Ⴞ癀｡𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\?Ⴞ癀｡𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2959\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񮴘Ⴞ癀｡𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\?Ⴞ癀｡𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2961\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񮴘Ⴞ癀。𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\?Ⴞ癀\。𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2963\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񮴘Ⴞ癀。𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\?Ⴞ癀\。𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2965\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񮴘ⴞ癀。𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\?ⴞ癀\。𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2967\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񮴘ⴞ癀。𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\?ⴞ癀\。𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2969\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񮴘ⴞ癀｡𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\?ⴞ癀｡𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2971\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񮴘ⴞ癀｡𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\?ⴞ癀｡𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2973\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󚀅-\x{0BCD}。\x{06B9}", %p)}, undef, "to_ascii\(\'\?\-\\u0BCD\。\\u06B9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2975\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡃ𝟧≯ᠣ．氁񨏱ꁫ", %p)}, undef, "to_ascii\(\'ᡃ𝟧\≯ᠣ．氁\?ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2976\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡃ𝟧>\x{0338}ᠣ．氁񨏱ꁫ", %p)}, undef, "to_ascii\(\'ᡃ𝟧\>\\u0338ᠣ．氁\?ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2977\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡃ5≯ᠣ.氁񨏱ꁫ", %p)}, undef, "to_ascii\(\'ᡃ5\≯ᠣ\.氁\?ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2978\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡃ5>\x{0338}ᠣ.氁񨏱ꁫ", %p)}, undef, "to_ascii\(\'ᡃ5\>\\u0338ᠣ\.氁\?ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2979\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𐹬𝩇．\x{0F76}", %p)}, undef, "to_ascii\(\'𐹬𝩇．\\u0F76\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2980\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𐹬𝩇．\x{0FB2}\x{0F80}", %p)}, undef, "to_ascii\(\'𐹬𝩇．\\u0FB2\\u0F80\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2981\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𐹬𝩇.\x{0FB2}\x{0F80}", %p)}, undef, "to_ascii\(\'𐹬𝩇\.\\u0FB2\\u0F80\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2982\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-𑈶⒏．⒎𰛢󠎭", %p)}, undef, "to_ascii\(\'\-𑈶⒏．⒎\?\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2983\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𑈶8..7.𰛢󠎭", %p)}, undef, "to_ascii\(\'\-𑈶8\.\.7\.\?\?\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2984\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴁ畝\x{200D}．≮", %p)}, undef, "to_ascii\(\'\\u200CႡ畝\\u200D．\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2985\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴁ畝\x{200D}．<\x{0338}", %p)}, undef, "to_ascii\(\'\\u200CႡ畝\\u200D．\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2987\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴁ畝\x{200D}.≮", %p)}, undef, "to_ascii\(\'\\u200CႡ畝\\u200D\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2989\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴁ畝\x{200D}.<\x{0338}", %p)}, undef, "to_ascii\(\'\\u200CႡ畝\\u200D\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2991\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ⴁ畝\x{200D}.<\x{0338}", %p)}, undef, "to_ascii\(\'\\u200Cⴁ畝\\u200D\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2993\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ⴁ畝\x{200D}.≮", %p)}, undef, "to_ascii\(\'\\u200Cⴁ畝\\u200D\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2995\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ⴁ畝\x{200D}．<\x{0338}", %p)}, undef, "to_ascii\(\'\\u200Cⴁ畝\\u200D．\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2997\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ⴁ畝\x{200D}．≮", %p)}, undef, "to_ascii\(\'\\u200Cⴁ畝\\u200D．\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2999\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("歷｡𐹻≯󳛽\x{200D}", %p)}, undef, "to_ascii\(\'歷｡𐹻\≯\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3001\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("歷｡𐹻>\x{0338}󳛽\x{200D}", %p)}, undef, "to_ascii\(\'歷｡𐹻\>\\u0338\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3003\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("歷。𐹻≯󳛽\x{200D}", %p)}, undef, "to_ascii\(\'歷\。𐹻\≯\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3005\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("歷。𐹻>\x{0338}󳛽\x{200D}", %p)}, undef, "to_ascii\(\'歷\。𐹻\>\\u0338\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3007\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0ECB}\x{200D}．鎁󠰑", %p)}, undef, "to_ascii\(\'\\u0ECB\\u200D．鎁\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3009\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0ECB}\x{200D}.鎁󠰑", %p)}, undef, "to_ascii\(\'\\u0ECB\\u200D\.鎁\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3011\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}\x{200C}𞤀｡𱘅𐶃", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\?｡\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3013\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}\x{200C}𞤀。𱘅𐶃", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\?\。\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3015\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}≠𝟫-.ς⒍𐹦≠", %p)}, undef, "to_ascii\(\'\\u0628\≠𝟫\-\.ς⒍𐹦\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3017\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}=\x{0338}𝟫-.ς⒍𐹦=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0628\=\\u0338𝟫\-\.ς⒍𐹦\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3018\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}≠9-.ς6.𐹦≠", %p)}, undef, "to_ascii\(\'\\u0628\≠9\-\.ς6\.𐹦\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3019\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}=\x{0338}9-.ς6.𐹦=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0628\=\\u03389\-\.ς6\.𐹦\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3020\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}=\x{0338}9-.Σ6.𐹦=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0628\=\\u03389\-\.Σ6\.𐹦\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3021\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}≠9-.Σ6.𐹦≠", %p)}, undef, "to_ascii\(\'\\u0628\≠9\-\.Σ6\.𐹦\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3022\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}≠9-.σ6.𐹦≠", %p)}, undef, "to_ascii\(\'\\u0628\≠9\-\.σ6\.𐹦\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3023\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}=\x{0338}9-.σ6.𐹦=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0628\=\\u03389\-\.σ6\.𐹦\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3024\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}=\x{0338}𝟫-.Σ⒍𐹦=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0628\=\\u0338𝟫\-\.Σ⒍𐹦\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3025\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}≠𝟫-.Σ⒍𐹦≠", %p)}, undef, "to_ascii\(\'\\u0628\≠𝟫\-\.Σ⒍𐹦\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3026\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}≠𝟫-.σ⒍𐹦≠", %p)}, undef, "to_ascii\(\'\\u0628\≠𝟫\-\.σ⒍𐹦\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3027\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}=\x{0338}𝟫-.σ⒍𐹦=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0628\=\\u0338𝟫\-\.σ⒍𐹦\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3028\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򉛴.-ᡢ\x{0592}𝨠", %p)}, undef, "to_ascii\(\'\?\.\-ᡢ\\u0592𝨠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3029\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06CB}⒈ß󠄽。񷋍-", %p)}, undef, "to_ascii\(\'\\u06CB⒈ß\󠄽\。\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3030\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06CB}1.ß󠄽。񷋍-", %p)}, undef, "to_ascii\(\'\\u06CB1\.ß\󠄽\。\?\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3031\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06CB}1.SS󠄽。񷋍-", %p)}, undef, "to_ascii\(\'\\u06CB1\.SS\󠄽\。\?\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3032\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06CB}1.ss󠄽。񷋍-", %p)}, undef, "to_ascii\(\'\\u06CB1\.ss\󠄽\。\?\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3033\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06CB}1.Ss󠄽。񷋍-", %p)}, undef, "to_ascii\(\'\\u06CB1\.Ss\󠄽\。\?\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3034\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06CB}⒈SS󠄽。񷋍-", %p)}, undef, "to_ascii\(\'\\u06CB⒈SS\󠄽\。\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3035\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06CB}⒈ss󠄽。񷋍-", %p)}, undef, "to_ascii\(\'\\u06CB⒈ss\󠄽\。\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3036\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06CB}⒈Ss󠄽。񷋍-", %p)}, undef, "to_ascii\(\'\\u06CB⒈Ss\󠄽\。\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3037\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫．\x{1BAA}ςႦ\x{200D}", %p)}, undef, "to_ascii\(\'\?．\\u1BAAςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3038\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫.\x{1BAA}ςႦ\x{200D}", %p)}, undef, "to_ascii\(\'\?\.\\u1BAAςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3040\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫.\x{1BAA}ςⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\?\.\\u1BAAςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3042\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫.\x{1BAA}ΣႦ\x{200D}", %p)}, undef, "to_ascii\(\'\?\.\\u1BAAΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3044\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫.\x{1BAA}σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\?\.\\u1BAAσⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3046\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫.\x{1BAA}Σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\?\.\\u1BAAΣⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3048\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫．\x{1BAA}ςⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\?．\\u1BAAςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3050\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫．\x{1BAA}ΣႦ\x{200D}", %p)}, undef, "to_ascii\(\'\?．\\u1BAAΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3052\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫．\x{1BAA}σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\?．\\u1BAAσⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3054\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫．\x{1BAA}Σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\?．\\u1BAAΣⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3056\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾆\x{08E2}.𝈴", %p)}, undef, "to_ascii\(\'⾆\\u08E2\.𝈴\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3058\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("舌\x{08E2}.𝈴", %p)}, undef, "to_ascii\(\'舌\\u08E2\.𝈴\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3059\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⫞𐹶𖫴。⭠⒈", %p)}, undef, "to_ascii\(\'\⫞𐹶𖫴\。\⭠⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3060\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("⫞𐹶𖫴。⭠1.", %p)}, undef, "to_ascii\(\'\⫞𐹶𖫴\。\⭠1\.\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3061\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⒈\x{200C}\x{AAEC}︒．\x{0ACD}", %p)}, undef, "to_ascii\(\'⒈\\u200C\\uAAEC︒．\\u0ACD\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3062\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("1.\x{200C}\x{AAEC}。.\x{0ACD}", %p)}, undef, "to_ascii\(\'1\.\\u200C\\uAAEC\。\.\\u0ACD\'\)\ throws\ error\ V5\ A4_2\ \[data\/IdnaTest\.txt\:3064\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0C46}。䰀\x{0668}𞭅󠅼", %p)}, undef, "to_ascii\(\'\\u0C46\。䰀\\u0668\?\󠅼\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3066\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß\x{200D}.\x{1BF2}񄾼", %p)}, undef, "to_ascii\(\'ß\\u200D\.\\u1BF2\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3067\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS\x{200D}.\x{1BF2}񄾼", %p)}, undef, "to_ascii\(\'SS\\u200D\.\\u1BF2\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3069\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss\x{200D}.\x{1BF2}񄾼", %p)}, undef, "to_ascii\(\'ss\\u200D\.\\u1BF2\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3071\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss\x{200D}.\x{1BF2}񄾼", %p)}, undef, "to_ascii\(\'Ss\\u200D\.\\u1BF2\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3073\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑓂\x{200C}≮.≮", %p)}, undef, "to_ascii\(\'𑓂\\u200C\≮\.\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3075\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑓂\x{200C}<\x{0338}.<\x{0338}", %p)}, undef, "to_ascii\(\'𑓂\\u200C\<\\u0338\.\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3076\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🕼．\x{FFA0}", %p)}, undef, "to_ascii\(\'🕼．\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3077\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🕼.\x{1160}", %p)}, undef, "to_ascii\(\'🕼\.\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3078\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡔ\x{FD82}。񷘎", %p)}, undef, "to_ascii\(\'ᡔ\\uFD82\。\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3079\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡔ\x{0644}\x{062D}\x{0649}。񷘎", %p)}, undef, "to_ascii\(\'ᡔ\\u0644\\u062D\\u0649\。\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3080\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("爕򳙑．𝟰気", %p)}, undef, "to_ascii\(\'爕\?．𝟰気\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3081\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("爕򳙑.4気", %p)}, undef, "to_ascii\(\'爕\?\.4気\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3082\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒋𑍍Ⴝ-．𞬪\x{0DCA}\x{05B5}", %p)}, undef, "to_ascii\(\'⒋𑍍Ⴝ\-．\?\\u0DCA\\u05B5\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3083\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4.𑍍Ⴝ-.𞬪\x{0DCA}\x{05B5}", %p)}, undef, "to_ascii\(\'4\.𑍍Ⴝ\-\.\?\\u0DCA\\u05B5\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3084\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4.𑍍ⴝ-.𞬪\x{0DCA}\x{05B5}", %p)}, undef, "to_ascii\(\'4\.𑍍ⴝ\-\.\?\\u0DCA\\u05B5\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3085\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒋𑍍ⴝ-．𞬪\x{0DCA}\x{05B5}", %p)}, undef, "to_ascii\(\'⒋𑍍ⴝ\-．\?\\u0DCA\\u05B5\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3086\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󞝃。򑆃񉢗--", %p)}, undef, "to_ascii\(\'\?\。\?\?\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ \[data\/IdnaTest\.txt\:3087\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200D}\x{07DF}｡\x{200C}\x{ABED}", %p)}, undef, "to_ascii\(\'\\u200D\\u07DF｡\\u200C\\uABED\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3088\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200D}\x{07DF}。\x{200C}\x{ABED}", %p)}, undef, "to_ascii\(\'\\u200D\\u07DF\。\\u200C\\uABED\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3090\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞮽\x{07FF}\x{084E}｡ᢍ򝹁𐫘", %p)}, undef, "to_ascii\(\'\?\\u07FF\\u084E｡ᢍ\?𐫘\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3092\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞮽\x{07FF}\x{084E}。ᢍ򝹁𐫘", %p)}, undef, "to_ascii\(\'\?\\u07FF\\u084E\。ᢍ\?𐫘\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3093\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{06ED}𞺌𑄚\x{1714}.ꡞ\x{08B7}", %p)}, undef, "to_ascii\(\'\\u06ED𞺌𑄚\\u1714\.ꡞ\\u08B7\'\)\ throws\ error\ V5\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:3094\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{06ED}\x{0645}𑄚\x{1714}.ꡞ\x{08B7}", %p)}, undef, "to_ascii\(\'\\u06ED\\u0645𑄚\\u1714\.ꡞ\\u08B7\'\)\ throws\ error\ V5\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:3095\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡ς\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡ς\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3096\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡ς\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡ς\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3097\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。ς\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。ς\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3098\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。ς\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。ς\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3099\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。Σ\x{063C}Σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。Σ\\u063CΣ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3100\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。Σ\x{063C}Σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。Σ\\u063CΣ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3101\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。σ\x{063C}σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3102\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。σ\x{063C}σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3103\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。Σ\x{063C}σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。Σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3104\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。Σ\x{063C}σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。Σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3105\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。Σ\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。Σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3106\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。Σ\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。Σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3107\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。σ\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3108\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。σ\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3109\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡Σ\x{063C}Σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡Σ\\u063CΣ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3110\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡Σ\x{063C}Σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡Σ\\u063CΣ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3111\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡σ\x{063C}σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3112\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡σ\x{063C}σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3113\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡Σ\x{063C}σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡Σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3114\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡Σ\x{063C}σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡Σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3115\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡Σ\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡Σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3116\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡Σ\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡Σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3117\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡σ\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3118\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡σ\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3119\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("蔰。󠁹\x{08DD}-𑈵", %p)}, undef, "to_ascii\(\'蔰\。\?\\u08DD\-𑈵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3120\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ςჅ。\x{075A}", %p)}, undef, "to_ascii\(\'ςჅ\。\\u075A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3121\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ςⴥ。\x{075A}", %p)}, "xn--4xa203s.xn--epb", "to_ascii\(\'ςⴥ\。\\u075A\'\)\ \[data\/IdnaTest\.txt\:3122\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ΣჅ。\x{075A}", %p)}, undef, "to_ascii\(\'ΣჅ\。\\u075A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3124\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("σⴥ。\x{075A}", %p)}, "xn--4xa203s.xn--epb", "to_ascii\(\'σⴥ\。\\u075A\'\)\ \[data\/IdnaTest\.txt\:3125\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("Σⴥ。\x{075A}", %p)}, "xn--4xa203s.xn--epb", "to_ascii\(\'Σⴥ\。\\u075A\'\)\ \[data\/IdnaTest\.txt\:3126\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--4xa203s.xn--epb", %p)}, "xn--4xa203s.xn--epb", "to_ascii\(\'xn\-\-4xa203s\.xn\-\-epb\'\)\ \[data\/IdnaTest\.txt\:3127\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("σⴥ.\x{075A}", %p)}, "xn--4xa203s.xn--epb", "to_ascii\(\'σⴥ\.\\u075A\'\)\ \[data\/IdnaTest\.txt\:3128\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ΣჅ.\x{075A}", %p)}, undef, "to_ascii\(\'ΣჅ\.\\u075A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3129\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("Σⴥ.\x{075A}", %p)}, "xn--4xa203s.xn--epb", "to_ascii\(\'Σⴥ\.\\u075A\'\)\ \[data\/IdnaTest\.txt\:3130\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--3xa403s.xn--epb", %p)}, "xn--3xa403s.xn--epb", "to_ascii\(\'xn\-\-3xa403s\.xn\-\-epb\'\)\ \[data\/IdnaTest\.txt\:3131\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ςⴥ.\x{075A}", %p)}, "xn--4xa203s.xn--epb", "to_ascii\(\'ςⴥ\.\\u075A\'\)\ \[data\/IdnaTest\.txt\:3132\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0C4D}Ⴉ𞰓．\x{1B72}", %p)}, undef, "to_ascii\(\'\\u0C4DႩ\?．\\u1B72\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3134\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0C4D}Ⴉ𞰓.\x{1B72}", %p)}, undef, "to_ascii\(\'\\u0C4DႩ\?\.\\u1B72\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3135\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0C4D}ⴉ𞰓.\x{1B72}", %p)}, undef, "to_ascii\(\'\\u0C4Dⴉ\?\.\\u1B72\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3136\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0C4D}ⴉ𞰓．\x{1B72}", %p)}, undef, "to_ascii\(\'\\u0C4Dⴉ\?．\\u1B72\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3137\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⮷≮񎈴󠄟。𐠄", %p)}, undef, "to_ascii\(\'\⮷\≮\?\󠄟\。𐠄\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3138\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⮷<\x{0338}񎈴󠄟。𐠄", %p)}, undef, "to_ascii\(\'\⮷\<\\u0338\?\󠄟\。𐠄\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3139\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}｡\x{200D}ẏ\x{200C}ᡤ", %p)}, "xn--vkb.xn--08e172a", "to_ascii\(\'\\u06BC｡\\u200Dẏ\\u200Cᡤ\'\)\ \[data\/IdnaTest\.txt\:3140\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}｡\x{200D}y\x{0307}\x{200C}ᡤ", %p)}, "xn--vkb.xn--08e172a", "to_ascii\(\'\\u06BC｡\\u200Dy\\u0307\\u200Cᡤ\'\)\ \[data\/IdnaTest\.txt\:3142\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}。\x{200D}ẏ\x{200C}ᡤ", %p)}, "xn--vkb.xn--08e172a", "to_ascii\(\'\\u06BC\。\\u200Dẏ\\u200Cᡤ\'\)\ \[data\/IdnaTest\.txt\:3144\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}。\x{200D}y\x{0307}\x{200C}ᡤ", %p)}, "xn--vkb.xn--08e172a", "to_ascii\(\'\\u06BC\。\\u200Dy\\u0307\\u200Cᡤ\'\)\ \[data\/IdnaTest\.txt\:3146\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}。\x{200D}Y\x{0307}\x{200C}ᡤ", %p)}, "xn--vkb.xn--08e172a", "to_ascii\(\'\\u06BC\。\\u200DY\\u0307\\u200Cᡤ\'\)\ \[data\/IdnaTest\.txt\:3148\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}。\x{200D}Ẏ\x{200C}ᡤ", %p)}, "xn--vkb.xn--08e172a", "to_ascii\(\'\\u06BC\。\\u200DẎ\\u200Cᡤ\'\)\ \[data\/IdnaTest\.txt\:3150\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--vkb.xn--08e172a", %p)}, "xn--vkb.xn--08e172a", "to_ascii\(\'xn\-\-vkb\.xn\-\-08e172a\'\)\ \[data\/IdnaTest\.txt\:3152\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}.ẏᡤ", %p)}, "xn--vkb.xn--08e172a", "to_ascii\(\'\\u06BC\.ẏᡤ\'\)\ \[data\/IdnaTest\.txt\:3153\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}.y\x{0307}ᡤ", %p)}, "xn--vkb.xn--08e172a", "to_ascii\(\'\\u06BC\.y\\u0307ᡤ\'\)\ \[data\/IdnaTest\.txt\:3154\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}.Y\x{0307}ᡤ", %p)}, "xn--vkb.xn--08e172a", "to_ascii\(\'\\u06BC\.Y\\u0307ᡤ\'\)\ \[data\/IdnaTest\.txt\:3155\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}.Ẏᡤ", %p)}, "xn--vkb.xn--08e172a", "to_ascii\(\'\\u06BC\.Ẏᡤ\'\)\ \[data\/IdnaTest\.txt\:3156\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}｡\x{200D}Y\x{0307}\x{200C}ᡤ", %p)}, "xn--vkb.xn--08e172a", "to_ascii\(\'\\u06BC｡\\u200DY\\u0307\\u200Cᡤ\'\)\ \[data\/IdnaTest\.txt\:3157\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}｡\x{200D}Ẏ\x{200C}ᡤ", %p)}, "xn--vkb.xn--08e172a", "to_ascii\(\'\\u06BC｡\\u200DẎ\\u200Cᡤ\'\)\ \[data\/IdnaTest\.txt\:3159\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹹𑲛。񑂐\x{0DCA}", %p)}, undef, "to_ascii\(\'𐹹\?\。\?\\u0DCA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3161\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-≠𑈵｡嵕\x{FEF1}۴\x{A953}", %p)}, undef, "to_ascii\(\'\-\≠𑈵｡嵕\\uFEF1۴\\uA953\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3162\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-=\x{0338}𑈵｡嵕\x{FEF1}۴\x{A953}", %p)}, undef, "to_ascii\(\'\-\=\\u0338𑈵｡嵕\\uFEF1۴\\uA953\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3163\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-≠𑈵。嵕\x{064A}۴\x{A953}", %p)}, undef, "to_ascii\(\'\-\≠𑈵\。嵕\\u064A۴\\uA953\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3164\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-=\x{0338}𑈵。嵕\x{064A}۴\x{A953}", %p)}, undef, "to_ascii\(\'\-\=\\u0338𑈵\。嵕\\u064A۴\\uA953\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3165\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}񍸰𐹶\x{076E}．\x{06C1}\x{200D}≯\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\?𐹶\\u076E．\\u06C1\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3166\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}񍸰𐹶\x{076E}．\x{06C1}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\?𐹶\\u076E．\\u06C1\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3168\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}񍸰𐹶\x{076E}.\x{06C1}\x{200D}≯\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\?𐹶\\u076E\.\\u06C1\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3170\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}񍸰𐹶\x{076E}.\x{06C1}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\?𐹶\\u076E\.\\u06C1\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3172\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮．\x{17B5}\x{0855}𐫔", %p)}, undef, "to_ascii\(\'\≮．\\u17B5\\u0855𐫔\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3174\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}．\x{17B5}\x{0855}𐫔", %p)}, undef, "to_ascii\(\'\<\\u0338．\\u17B5\\u0855𐫔\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3175\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮.\x{17B5}\x{0855}𐫔", %p)}, undef, "to_ascii\(\'\≮\.\\u17B5\\u0855𐫔\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3176\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}.\x{17B5}\x{0855}𐫔", %p)}, undef, "to_ascii\(\'\<\\u0338\.\\u17B5\\u0855𐫔\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3177\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐩗\x{200D}｡ႩႵ", %p)}, undef, "to_ascii\(\'𐩗\\u200D｡ႩႵ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3178\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐩗\x{200D}。ႩႵ", %p)}, undef, "to_ascii\(\'𐩗\\u200D\。ႩႵ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3180\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("𐩗\x{200D}。ⴉⴕ", %p)}, "xn--pt9c.xn--0kjya", "to_ascii\(\'𐩗\\u200D\。ⴉⴕ\'\)\ \[data\/IdnaTest\.txt\:3182\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐩗\x{200D}。Ⴉⴕ", %p)}, undef, "to_ascii\(\'𐩗\\u200D\。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3184\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--pt9c.xn--0kjya", %p)}, "xn--pt9c.xn--0kjya", "to_ascii\(\'xn\-\-pt9c\.xn\-\-0kjya\'\)\ \[data\/IdnaTest\.txt\:3186\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("𐩗.ⴉⴕ", %p)}, "xn--pt9c.xn--0kjya", "to_ascii\(\'𐩗\.ⴉⴕ\'\)\ \[data\/IdnaTest\.txt\:3187\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐩗.ႩႵ", %p)}, undef, "to_ascii\(\'𐩗\.ႩႵ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3188\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐩗.Ⴉⴕ", %p)}, undef, "to_ascii\(\'𐩗\.Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3189\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("𐩗\x{200D}｡ⴉⴕ", %p)}, "xn--pt9c.xn--0kjya", "to_ascii\(\'𐩗\\u200D｡ⴉⴕ\'\)\ \[data\/IdnaTest\.txt\:3190\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐩗\x{200D}｡Ⴉⴕ", %p)}, undef, "to_ascii\(\'𐩗\\u200D｡Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3192\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{200C}ㄤ．\x{032E}󕨑\x{09C2}", %p)}, undef, "to_ascii\(\'\\u200C\\u200Cㄤ．\\u032E\?\\u09C2\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3194\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{200C}ㄤ.\x{032E}󕨑\x{09C2}", %p)}, undef, "to_ascii\(\'\\u200C\\u200Cㄤ\.\\u032E\?\\u09C2\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3196\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐋻｡-\x{200C}𐫄Ⴗ", %p)}, undef, "to_ascii\(\'𐋻｡\-\\u200C𐫄Ⴗ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3198\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐋻。-\x{200C}𐫄Ⴗ", %p)}, undef, "to_ascii\(\'𐋻\。\-\\u200C𐫄Ⴗ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3200\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋻。-\x{200C}𐫄ⴗ", %p)}, undef, "to_ascii\(\'𐋻\。\-\\u200C𐫄ⴗ\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:3202\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋻｡-\x{200C}𐫄ⴗ", %p)}, undef, "to_ascii\(\'𐋻｡\-\\u200C𐫄ⴗ\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:3204\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("🙑𐷺．≠\x{200C}", %p)}, undef, "to_ascii\(\'🙑\?．\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3206\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🙑𐷺．=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'🙑\?．\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3208\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🙑𐷺.≠\x{200C}", %p)}, undef, "to_ascii\(\'🙑\?\.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3210\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🙑𐷺.=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'🙑\?\.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3212\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{064C}\x{1CD2}｡𞮞\x{2D7F}⧎", %p)}, undef, "to_ascii\(\'\\u064C\\u1CD2｡\?\\u2D7F\⧎\'\)\ throws\ error\ P1\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:3214\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{064C}\x{1CD2}。𞮞\x{2D7F}⧎", %p)}, undef, "to_ascii\(\'\\u064C\\u1CD2\。\?\\u2D7F\⧎\'\)\ throws\ error\ P1\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:3215\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴔ𝨨₃󠁦．𝟳𑂹\x{0B82}", %p)}, undef, "to_ascii\(\'Ⴔ𝨨₃\?．𝟳𑂹\\u0B82\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3216\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴔ𝨨3󠁦.7𑂹\x{0B82}", %p)}, undef, "to_ascii\(\'Ⴔ𝨨3\?\.7𑂹\\u0B82\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3217\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴔ𝨨3󠁦.7𑂹\x{0B82}", %p)}, undef, "to_ascii\(\'ⴔ𝨨3\?\.7𑂹\\u0B82\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3218\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴔ𝨨₃󠁦．𝟳𑂹\x{0B82}", %p)}, undef, "to_ascii\(\'ⴔ𝨨₃\?．𝟳𑂹\\u0B82\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3219\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䏈\x{200C}。\x{200C}⒈񱢕", %p)}, undef, "to_ascii\(\'䏈\\u200C\。\\u200C⒈\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3220\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䏈\x{200C}。\x{200C}1.񱢕", %p)}, undef, "to_ascii\(\'䏈\\u200C\。\\u200C1\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3222\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("１\x{AAF6}ß𑲥｡\x{1DD8}", %p)}, undef, "to_ascii\(\'１\\uAAF6ß\?｡\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3224\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("1\x{AAF6}ß𑲥。\x{1DD8}", %p)}, undef, "to_ascii\(\'1\\uAAF6ß\?\。\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3225\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("1\x{AAF6}SS𑲥。\x{1DD8}", %p)}, undef, "to_ascii\(\'1\\uAAF6SS\?\。\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3226\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("1\x{AAF6}ss𑲥。\x{1DD8}", %p)}, undef, "to_ascii\(\'1\\uAAF6ss\?\。\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3227\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("1\x{AAF6}Ss𑲥。\x{1DD8}", %p)}, undef, "to_ascii\(\'1\\uAAF6Ss\?\。\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3228\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("１\x{AAF6}SS𑲥｡\x{1DD8}", %p)}, undef, "to_ascii\(\'１\\uAAF6SS\?｡\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3229\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("１\x{AAF6}ss𑲥｡\x{1DD8}", %p)}, undef, "to_ascii\(\'１\\uAAF6ss\?｡\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3230\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("１\x{AAF6}Ss𑲥｡\x{1DD8}", %p)}, undef, "to_ascii\(\'１\\uAAF6Ss\?｡\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3231\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}񫶩𞪯\x{0CCD}｡\x{077C}⒈", %p)}, undef, "to_ascii\(\'\\u200D\?\?\\u0CCD｡\\u077C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3232\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}񫶩𞪯\x{0CCD}。\x{077C}1.", %p)}, undef, "to_ascii\(\'\\u200D\?\?\\u0CCD\。\\u077C1\.\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3234\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1AB6}．𞤳򓢖򻉒\x{07D7}", %p)}, undef, "to_ascii\(\'\\u1AB6．\?\?\?\\u07D7\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:3236\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1AB6}.𞤳򓢖򻉒\x{07D7}", %p)}, undef, "to_ascii\(\'\\u1AB6\.\?\?\?\\u07D7\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:3237\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0842}𞩚⒈．󠬌８򏳏\x{0770}", %p)}, undef, "to_ascii\(\'\\u0842\?⒈．\?８\?\\u0770\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3238\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0842}𞩚1..󠬌8򏳏\x{0770}", %p)}, undef, "to_ascii\(\'\\u0842\?1\.\.\?8\?\\u0770\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3239\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0361}𐫫\x{0369}ᡷ。-󠰛鞰", %p)}, undef, "to_ascii\(\'\\u0361𐫫\\u0369ᡷ\。\-\?鞰\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3240\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-.\x{0ACD}剘ß𐫃", %p)}, undef, "to_ascii\(\'\-\.\\u0ACD剘ß𐫃\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3241\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-.\x{0ACD}剘SS𐫃", %p)}, undef, "to_ascii\(\'\-\.\\u0ACD剘SS𐫃\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3242\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-.\x{0ACD}剘ss𐫃", %p)}, undef, "to_ascii\(\'\-\.\\u0ACD剘ss𐫃\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3243\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-.\x{0ACD}剘Ss𐫃", %p)}, undef, "to_ascii\(\'\-\.\\u0ACD剘Ss𐫃\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3244\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{08FB}𞵸｡-", %p)}, undef, "to_ascii\(\'\\u08FB\?｡\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3245\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08FB}𞵸。-", %p)}, undef, "to_ascii\(\'\\u08FB\?\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3246\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈󠈻𐹲｡≠\x{0603}𐹽", %p)}, undef, "to_ascii\(\'⒈\?𐹲｡\≠\\u0603𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3247\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈󠈻𐹲｡=\x{0338}\x{0603}𐹽", %p)}, undef, "to_ascii\(\'⒈\?𐹲｡\=\\u0338\\u0603𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3248\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.󠈻𐹲。≠\x{0603}𐹽", %p)}, undef, "to_ascii\(\'1\.\?𐹲\。\≠\\u0603𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3249\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.󠈻𐹲。=\x{0338}\x{0603}𐹽", %p)}, undef, "to_ascii\(\'1\.\?𐹲\。\=\\u0338\\u0603𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3250\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹢󠈚Ⴎ\x{200C}.㖾𐹡", %p)}, undef, "to_ascii\(\'𐹢\?Ⴎ\\u200C\.㖾𐹡\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:3251\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹢󠈚ⴎ\x{200C}.㖾𐹡", %p)}, undef, "to_ascii\(\'𐹢\?ⴎ\\u200C\.㖾𐹡\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:3253\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򩼗．\x{07C7}ᡖႳႧ", %p)}, undef, "to_ascii\(\'\?．\\u07C7ᡖႳႧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3255\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򩼗.\x{07C7}ᡖႳႧ", %p)}, undef, "to_ascii\(\'\?\.\\u07C7ᡖႳႧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3256\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򩼗.\x{07C7}ᡖⴓⴇ", %p)}, undef, "to_ascii\(\'\?\.\\u07C7ᡖⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3257\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򩼗.\x{07C7}ᡖႳⴇ", %p)}, undef, "to_ascii\(\'\?\.\\u07C7ᡖႳⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3258\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򩼗．\x{07C7}ᡖⴓⴇ", %p)}, undef, "to_ascii\(\'\?．\\u07C7ᡖⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3259\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򩼗．\x{07C7}ᡖႳⴇ", %p)}, undef, "to_ascii\(\'\?．\\u07C7ᡖႳⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3260\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}􅍉.\x{06B3}\x{0775}", %p)}, undef, "to_ascii\(\'\\u200D\?\.\\u06B3\\u0775\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3261\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲤱⒛⾳．ꡦ⒈", %p)}, undef, "to_ascii\(\'\?⒛⾳．ꡦ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3263\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲤱20.音.ꡦ1.", %p)}, undef, "to_ascii\(\'\?20\.音\.ꡦ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3264\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07DC}８񳦓-｡򞲙𑁿𐩥\x{09CD}", %p)}, undef, "to_ascii\(\'\\u07DC８\?\-｡\?𑁿𐩥\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3265\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07DC}8񳦓-。򞲙𑁿𐩥\x{09CD}", %p)}, undef, "to_ascii\(\'\\u07DC8\?\-\。\?𑁿𐩥\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3266\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴕ。۰≮ß\x{0745}", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\≮ß\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3267\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴕ。۰<\x{0338}ß\x{0745}", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\<\\u0338ß\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3268\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴕ。۰<\x{0338}ß\x{0745}", %p)}, undef, "to_ascii\(\'ⴕ\。۰\<\\u0338ß\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3269\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴕ。۰≮ß\x{0745}", %p)}, undef, "to_ascii\(\'ⴕ\。۰\≮ß\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3270\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴕ。۰≮SS\x{0745}", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\≮SS\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3271\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴕ。۰<\x{0338}SS\x{0745}", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\<\\u0338SS\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3272\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴕ。۰<\x{0338}ss\x{0745}", %p)}, undef, "to_ascii\(\'ⴕ\。۰\<\\u0338ss\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3273\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴕ。۰≮ss\x{0745}", %p)}, undef, "to_ascii\(\'ⴕ\。۰\≮ss\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3274\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴕ。۰≮Ss\x{0745}", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\≮Ss\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3275\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴕ。۰<\x{0338}Ss\x{0745}", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\<\\u0338Ss\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3276\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("\x{07E9}-.𝨗꒱\x{1B72}", %p)}, undef, "to_ascii\(\'\\u07E9\-\.𝨗꒱\\u1B72\'\)\ throws\ error\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:3277\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞼸\x{200C}.≯䕵⫧", %p)}, undef, "to_ascii\(\'\?\\u200C\.\≯䕵\⫧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3278\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞼸\x{200C}.>\x{0338}䕵⫧", %p)}, undef, "to_ascii\(\'\?\\u200C\.\>\\u0338䕵\⫧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3280\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐨅ß\x{FC57}.\x{06AC}۳︒", %p)}, undef, "to_ascii\(\'𐨅ß\\uFC57\.\\u06AC۳︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:3282\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("𐨅ß\x{064A}\x{062E}.\x{06AC}۳。", %p)}, undef, "to_ascii\(\'𐨅ß\\u064A\\u062E\.\\u06AC۳\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3283\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("𐨅SS\x{064A}\x{062E}.\x{06AC}۳。", %p)}, undef, "to_ascii\(\'𐨅SS\\u064A\\u062E\.\\u06AC۳\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3284\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("𐨅ss\x{064A}\x{062E}.\x{06AC}۳。", %p)}, undef, "to_ascii\(\'𐨅ss\\u064A\\u062E\.\\u06AC۳\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3285\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("𐨅Ss\x{064A}\x{062E}.\x{06AC}۳。", %p)}, undef, "to_ascii\(\'𐨅Ss\\u064A\\u062E\.\\u06AC۳\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3286\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐨅SS\x{FC57}.\x{06AC}۳︒", %p)}, undef, "to_ascii\(\'𐨅SS\\uFC57\.\\u06AC۳︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:3287\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐨅ss\x{FC57}.\x{06AC}۳︒", %p)}, undef, "to_ascii\(\'𐨅ss\\uFC57\.\\u06AC۳︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:3288\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐨅Ss\x{FC57}.\x{06AC}۳︒", %p)}, undef, "to_ascii\(\'𐨅Ss\\uFC57\.\\u06AC۳︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:3289\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-≮🡒\x{1CED}.񏿾Ⴁ\x{0714}", %p)}, undef, "to_ascii\(\'\-\≮🡒\\u1CED\.\?Ⴁ\\u0714\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3290\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-<\x{0338}🡒\x{1CED}.񏿾Ⴁ\x{0714}", %p)}, undef, "to_ascii\(\'\-\<\\u0338🡒\\u1CED\.\?Ⴁ\\u0714\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3291\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-<\x{0338}🡒\x{1CED}.񏿾ⴁ\x{0714}", %p)}, undef, "to_ascii\(\'\-\<\\u0338🡒\\u1CED\.\?ⴁ\\u0714\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3292\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-≮🡒\x{1CED}.񏿾ⴁ\x{0714}", %p)}, undef, "to_ascii\(\'\-\≮🡒\\u1CED\.\?ⴁ\\u0714\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3293\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤨｡ꡏ\x{200D}\x{200C}", %p)}, "xn--ge6h.xn--oc9a", "to_ascii\(\'\?｡ꡏ\\u200D\\u200C\'\)\ \[data\/IdnaTest\.txt\:3294\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤨。ꡏ\x{200D}\x{200C}", %p)}, "xn--ge6h.xn--oc9a", "to_ascii\(\'\?\。ꡏ\\u200D\\u200C\'\)\ \[data\/IdnaTest\.txt\:3296\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--ge6h.xn--oc9a", %p)}, "xn--ge6h.xn--oc9a", "to_ascii\(\'xn\-\-ge6h\.xn\-\-oc9a\'\)\ \[data\/IdnaTest\.txt\:3298\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤨.ꡏ", %p)}, "xn--ge6h.xn--oc9a", "to_ascii\(\'\?\.ꡏ\'\)\ \[data\/IdnaTest\.txt\:3299\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("󠅹𑂶．ᢌ𑂹\x{0669}", %p)}, undef, "to_ascii\(\'\󠅹𑂶．ᢌ𑂹\\u0669\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3300\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("󠅹𑂶.ᢌ𑂹\x{0669}", %p)}, undef, "to_ascii\(\'\󠅹𑂶\.ᢌ𑂹\\u0669\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3301\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⅎ󠅺񝵒。≯⾑", %p)}, undef, "to_ascii\(\'Ⅎ\󠅺\?\。\≯⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3302\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⅎ󠅺񝵒。>\x{0338}⾑", %p)}, undef, "to_ascii\(\'Ⅎ\󠅺\?\。\>\\u0338⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3303\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⅎ󠅺񝵒。≯襾", %p)}, undef, "to_ascii\(\'Ⅎ\󠅺\?\。\≯襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3304\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⅎ󠅺񝵒。>\x{0338}襾", %p)}, undef, "to_ascii\(\'Ⅎ\󠅺\?\。\>\\u0338襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3305\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⅎ󠅺񝵒。>\x{0338}襾", %p)}, undef, "to_ascii\(\'ⅎ\󠅺\?\。\>\\u0338襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3306\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⅎ󠅺񝵒。≯襾", %p)}, undef, "to_ascii\(\'ⅎ\󠅺\?\。\≯襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3307\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⅎ󠅺񝵒。>\x{0338}⾑", %p)}, undef, "to_ascii\(\'ⅎ\󠅺\?\。\>\\u0338⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3308\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⅎ󠅺񝵒。≯⾑", %p)}, undef, "to_ascii\(\'ⅎ\󠅺\?\。\≯⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3309\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς\x{200D}\x{0DD4}\x{0660}｡-", %p)}, undef, "to_ascii\(\'ς\\u200D\\u0DD4\\u0660｡\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3310\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς\x{200D}\x{0DD4}\x{0660}。-", %p)}, undef, "to_ascii\(\'ς\\u200D\\u0DD4\\u0660\。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3312\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ\x{200D}\x{0DD4}\x{0660}。-", %p)}, undef, "to_ascii\(\'Σ\\u200D\\u0DD4\\u0660\。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3314\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ\x{200D}\x{0DD4}\x{0660}。-", %p)}, undef, "to_ascii\(\'σ\\u200D\\u0DD4\\u0660\。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3316\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ\x{200D}\x{0DD4}\x{0660}｡-", %p)}, undef, "to_ascii\(\'Σ\\u200D\\u0DD4\\u0660｡\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3318\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ\x{200D}\x{0DD4}\x{0660}｡-", %p)}, undef, "to_ascii\(\'σ\\u200D\\u0DD4\\u0660｡\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3320\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.ßႩ-", %p)}, undef, "to_ascii\(\'\\u200C\.ßႩ\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3322\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200C}.ßⴉ-", %p)}, undef, "to_ascii\(\'\\u200C\.ßⴉ\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3324\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}.SSႩ-", %p)}, undef, "to_ascii\(\'\\u200C\.SSႩ\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3326\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200C}.ssⴉ-", %p)}, undef, "to_ascii\(\'\\u200C\.ssⴉ\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3328\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200C}.Ssⴉ-", %p)}, undef, "to_ascii\(\'\\u200C\.Ssⴉ\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3330\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󍭲𐫍㓱。⾑", %p)}, undef, "to_ascii\(\'\?𐫍㓱\。⾑\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3332\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󍭲𐫍㓱。襾", %p)}, undef, "to_ascii\(\'\?𐫍㓱\。襾\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3333\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06A0}𐮋𐹰≮。≯󠦗\x{200D}", %p)}, undef, "to_ascii\(\'\\u06A0𐮋𐹰\≮\。\≯\?\\u200D\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3334\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06A0}𐮋𐹰<\x{0338}。>\x{0338}󠦗\x{200D}", %p)}, undef, "to_ascii\(\'\\u06A0𐮋𐹰\<\\u0338\。\>\\u0338\?\\u200D\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3336\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟞｡񃰶\x{0777}\x{08B0}⩋", %p)}, undef, "to_ascii\(\'𝟞｡\?\\u0777\\u08B0\⩋\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3338\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("6。񃰶\x{0777}\x{08B0}⩋", %p)}, undef, "to_ascii\(\'6\。\?\\u0777\\u08B0\⩋\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3339\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-\x{FCFD}。𑇀𑍴", %p)}, undef, "to_ascii\(\'\-\\uFCFD\。𑇀𑍴\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3340\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-\x{FCFD}。𑇀𑍴", %p)}, undef, "to_ascii\(\'\-\\uFCFD\。𑇀𑍴\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3341\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-\x{0634}\x{0649}。𑇀𑍴", %p)}, undef, "to_ascii\(\'\-\\u0634\\u0649\。𑇀𑍴\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3342\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}󠊶𝟏.\x{0D43}򪥐𐹬󊓶", %p)}, undef, "to_ascii\(\'\\u200C\?𝟏\.\\u0D43\?𐹬\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3343\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠊶1.\x{0D43}򪥐𐹬󊓶", %p)}, undef, "to_ascii\(\'\\u200C\?1\.\\u0D43\?𐹬\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3345\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("齙--𝟰.ß", %p)}, "xn----4-p16k.ss", "to_ascii\(\'齙\-\-𝟰\.ß\'\)\ \[data\/IdnaTest\.txt\:3347\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("齙--4.ß", %p)}, "xn----4-p16k.ss", "to_ascii\(\'齙\-\-4\.ß\'\)\ \[data\/IdnaTest\.txt\:3349\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("齙--4.SS", %p)}, "xn----4-p16k.ss", "to_ascii\(\'齙\-\-4\.SS\'\)\ \[data\/IdnaTest\.txt\:3351\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn----4-p16k.ss", %p)}, "xn----4-p16k.ss", "to_ascii\(\'xn\-\-\-\-4\-p16k\.ss\'\)\ \[data\/IdnaTest\.txt\:3352\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn----4-p16k.xn--zca", %p)}, "xn----4-p16k.xn--zca", "to_ascii\(\'xn\-\-\-\-4\-p16k\.xn\-\-zca\'\)\ \[data\/IdnaTest\.txt\:3353\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("齙--𝟰.SS", %p)}, "xn----4-p16k.ss", "to_ascii\(\'齙\-\-𝟰\.SS\'\)\ \[data\/IdnaTest\.txt\:3354\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{1BF2}.𐹢𞀖\x{200C}", %p)}, undef, "to_ascii\(\'\\u1BF2\.𐹢\?\\u200C\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3355\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󃲙󠋘｡\x{DEDE}-\x{200D}", %p)}, undef, "to_ascii\(\'\?\?｡\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ A3\ \[data\/IdnaTest\.txt\:3357\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󃲙󠋘。\x{DEDE}-\x{200D}", %p)}, undef, "to_ascii\(\'\?\?\。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ A3\ \[data\/IdnaTest\.txt\:3359\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1A60}．𞵷-𝪩悎", %p)}, undef, "to_ascii\(\'\\u1A60．\?\-𝪩悎\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3361\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1A60}.𞵷-𝪩悎", %p)}, undef, "to_ascii\(\'\\u1A60\.\?\-𝪩悎\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3362\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𛜯󠊛．𞤳񏥾", %p)}, undef, "to_ascii\(\'\?\?．\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3363\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𛜯󠊛.𞤳񏥾", %p)}, undef, "to_ascii\(\'\?\?\.\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3364\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{071C}𐫒\x{062E}.𐋲", %p)}, "xn--tgb98b8643d.xn--m97c", "to_ascii\(\'\\u071C𐫒\\u062E\.𐋲\'\)\ \[data\/IdnaTest\.txt\:3365\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--tgb98b8643d.xn--m97c", %p)}, "xn--tgb98b8643d.xn--m97c", "to_ascii\(\'xn\-\-tgb98b8643d\.xn\-\-m97c\'\)\ \[data\/IdnaTest\.txt\:3366\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐼑𞤓\x{0637}\x{08E2}.\x{DF56}", %p)}, undef, "to_ascii\(\'\?\?\\u0637\\u08E2\.\\uDF56\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:3367\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ↄ。\x{0A4D}\x{1CD4}𞷣", %p)}, undef, "to_ascii\(\'Ↄ\。\\u0A4D\\u1CD4\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3368\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ↄ。\x{1CD4}\x{0A4D}𞷣", %p)}, undef, "to_ascii\(\'Ↄ\。\\u1CD4\\u0A4D\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3369\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ↄ。\x{1CD4}\x{0A4D}𞷣", %p)}, undef, "to_ascii\(\'ↄ\。\\u1CD4\\u0A4D\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3370\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ↄ。\x{0A4D}\x{1CD4}𞷣", %p)}, undef, "to_ascii\(\'ↄ\。\\u0A4D\\u1CD4\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3371\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠪢-。򛂏≮𑜫", %p)}, undef, "to_ascii\(\'\?\-\。\?\≮𑜫\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3372\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠪢-。򛂏<\x{0338}𑜫", %p)}, undef, "to_ascii\(\'\?\-\。\?\<\\u0338𑜫\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3373\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠉹\x{200D}。򌿧≮Ⴉ", %p)}, undef, "to_ascii\(\'\\u200C\?\\u200D\。\?\≮Ⴉ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3374\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠉹\x{200D}。򌿧<\x{0338}Ⴉ", %p)}, undef, "to_ascii\(\'\\u200C\?\\u200D\。\?\<\\u0338Ⴉ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3376\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠉹\x{200D}。򌿧<\x{0338}ⴉ", %p)}, undef, "to_ascii\(\'\\u200C\?\\u200D\。\?\<\\u0338ⴉ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3378\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠉹\x{200D}。򌿧≮ⴉ", %p)}, undef, "to_ascii\(\'\\u200C\?\\u200D\。\?\≮ⴉ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3380\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹯-𑄴\x{08BC}。︒䖐⾆", %p)}, undef, "to_ascii\(\'𐹯\-𑄴\\u08BC\。︒䖐⾆\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3382\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹯-𑄴\x{08BC}。。䖐舌", %p)}, undef, "to_ascii\(\'𐹯\-𑄴\\u08BC\。\。䖐舌\'\)\ throws\ error\ B1\ A4_2\ \[data\/IdnaTest\.txt\:3383\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𝪞Ⴐ｡쪡", %p)}, undef, "to_ascii\(\'𝪞Ⴐ｡쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3384\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝪞Ⴐ｡쪡", %p)}, undef, "to_ascii\(\'𝪞Ⴐ｡쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3385\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝪞Ⴐ。쪡", %p)}, undef, "to_ascii\(\'𝪞Ⴐ\。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3386\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝪞Ⴐ。쪡", %p)}, undef, "to_ascii\(\'𝪞Ⴐ\。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3387\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𝪞ⴐ。쪡", %p)}, undef, "to_ascii\(\'𝪞ⴐ\。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3388\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𝪞ⴐ。쪡", %p)}, undef, "to_ascii\(\'𝪞ⴐ\。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3389\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𝪞ⴐ｡쪡", %p)}, undef, "to_ascii\(\'𝪞ⴐ｡쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3390\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𝪞ⴐ｡쪡", %p)}, undef, "to_ascii\(\'𝪞ⴐ｡쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3391\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0E3A}쩁𐹬.􋉳", %p)}, undef, "to_ascii\(\'\\u0E3A쩁𐹬\.\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3392\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0E3A}쩁𐹬.􋉳", %p)}, undef, "to_ascii\(\'\\u0E3A쩁𐹬\.\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3393\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡅ０\x{200C}｡⎢󤨄", %p)}, undef, "to_ascii\(\'ᡅ０\\u200C｡\⎢\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3394\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡅ0\x{200C}。⎢󤨄", %p)}, undef, "to_ascii\(\'ᡅ0\\u200C\。\⎢\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3396\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲮚９ꍩ\x{17D3}．\x{200D}ß", %p)}, undef, "to_ascii\(\'\?９ꍩ\\u17D3．\\u200Dß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3398\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲮚9ꍩ\x{17D3}.\x{200D}ß", %p)}, undef, "to_ascii\(\'\?9ꍩ\\u17D3\.\\u200Dß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3400\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲮚9ꍩ\x{17D3}.\x{200D}SS", %p)}, undef, "to_ascii\(\'\?9ꍩ\\u17D3\.\\u200DSS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3402\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲮚9ꍩ\x{17D3}.\x{200D}ss", %p)}, undef, "to_ascii\(\'\?9ꍩ\\u17D3\.\\u200Dss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3404\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲮚9ꍩ\x{17D3}.\x{200D}Ss", %p)}, undef, "to_ascii\(\'\?9ꍩ\\u17D3\.\\u200DSs\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3406\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲮚９ꍩ\x{17D3}．\x{200D}SS", %p)}, undef, "to_ascii\(\'\?９ꍩ\\u17D3．\\u200DSS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3408\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲮚９ꍩ\x{17D3}．\x{200D}ss", %p)}, undef, "to_ascii\(\'\?９ꍩ\\u17D3．\\u200Dss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3410\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲮚９ꍩ\x{17D3}．\x{200D}Ss", %p)}, undef, "to_ascii\(\'\?９ꍩ\\u17D3．\\u200DSs\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3412\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ꗷ𑆀.\x{075D}𐩒", %p)}, "xn--ju8a625r.xn--hpb0073k", "to_ascii\(\'ꗷ𑆀\.\\u075D𐩒\'\)\ \[data\/IdnaTest\.txt\:3414\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("xn--ju8a625r.xn--hpb0073k", %p)}, "xn--ju8a625r.xn--hpb0073k", "to_ascii\(\'xn\-\-ju8a625r\.xn\-\-hpb0073k\'\)\ \[data\/IdnaTest\.txt\:3415\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⒐≯-。︒򩑣-񞛠", %p)}, undef, "to_ascii\(\'⒐\≯\-\。︒\?\-\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3416\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒐>\x{0338}-。︒򩑣-񞛠", %p)}, undef, "to_ascii\(\'⒐\>\\u0338\-\。︒\?\-\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3417\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("9.≯-。。򩑣-񞛠", %p)}, undef, "to_ascii\(\'9\.\≯\-\。\。\?\-\?\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3418\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("9.>\x{0338}-。。򩑣-񞛠", %p)}, undef, "to_ascii\(\'9\.\>\\u0338\-\。\。\?\-\?\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3419\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򈪚\x{0CE3}Ⴡ󠢏．\x{061D}", %p)}, undef, "to_ascii\(\'\?\\u0CE3Ⴡ\?．\\u061D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3420\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򈪚\x{0CE3}Ⴡ󠢏.\x{061D}", %p)}, undef, "to_ascii\(\'\?\\u0CE3Ⴡ\?\.\\u061D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3421\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򈪚\x{0CE3}ⴡ󠢏.\x{061D}", %p)}, undef, "to_ascii\(\'\?\\u0CE3ⴡ\?\.\\u061D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3422\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򈪚\x{0CE3}ⴡ󠢏．\x{061D}", %p)}, undef, "to_ascii\(\'\?\\u0CE3ⴡ\?．\\u061D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3423\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1DEB}。𐋩\x{0638}-𐫮", %p)}, undef, "to_ascii\(\'\\u1DEB\。𐋩\\u0638\-𐫮\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3424\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("싇。⾇𐳋Ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐳋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3425\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("싇。⾇𐳋Ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐳋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3426\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("싇。舛𐳋Ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐳋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3427\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("싇。舛𐳋Ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐳋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3428\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("싇。舛𐳋ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐳋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3429\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("싇。舛𐳋ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐳋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3430\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("싇。舛𐲋Ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐲋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3431\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("싇。舛𐲋Ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐲋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3432\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("싇。舛𐲋ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐲋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3433\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("싇。舛𐲋ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐲋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3434\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("싇。⾇𐳋ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐳋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3435\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("싇。⾇𐳋ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐳋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3436\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("싇。⾇𐲋Ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐲋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3437\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("싇。⾇𐲋Ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐲋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3438\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("싇。⾇𐲋ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐲋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3439\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("싇。⾇𐲋ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐲋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3440\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐹠ς。\x{200C}\x{06BF}Ⴠ", %p)}, undef, "to_ascii\(\'𐹠ς\。\\u200C\\u06BFჀ\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:3441\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹠ς。\x{200C}\x{06BF}ⴠ", %p)}, undef, "to_ascii\(\'𐹠ς\。\\u200C\\u06BFⴠ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:3443\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐹠Σ。\x{200C}\x{06BF}Ⴠ", %p)}, undef, "to_ascii\(\'𐹠Σ\。\\u200C\\u06BFჀ\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:3445\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹠σ。\x{200C}\x{06BF}ⴠ", %p)}, undef, "to_ascii\(\'𐹠σ\。\\u200C\\u06BFⴠ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:3447\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򇒐\x{200C}\x{0604}.\x{069A}-ß", %p)}, undef, "to_ascii\(\'\?\\u200C\\u0604\.\\u069A\-ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:3449\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򇒐\x{200C}\x{0604}.\x{069A}-SS", %p)}, undef, "to_ascii\(\'\?\\u200C\\u0604\.\\u069A\-SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:3451\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򇒐\x{200C}\x{0604}.\x{069A}-ss", %p)}, undef, "to_ascii\(\'\?\\u200C\\u0604\.\\u069A\-ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:3453\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򇒐\x{200C}\x{0604}.\x{069A}-Ss", %p)}, undef, "to_ascii\(\'\?\\u200C\\u0604\.\\u069A\-Ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:3455\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{200D}\x{17B5}\x{067A}.-\x{FBB0}󅄞𐸚", %p)}, undef, "to_ascii\(\'\\u200C\\u200D\\u17B5\\u067A\.\-\\uFBB0\?\?\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3457\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{200D}\x{17B5}\x{067A}.-\x{06D3}󅄞𐸚", %p)}, undef, "to_ascii\(\'\\u200C\\u200D\\u17B5\\u067A\.\-\\u06D3\?\?\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3459\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{200D}\x{17B5}\x{067A}.-\x{06D2}\x{0654}󅄞𐸚", %p)}, undef, "to_ascii\(\'\\u200C\\u200D\\u17B5\\u067A\.\-\\u06D2\\u0654\?\?\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3461\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򡶱｡𐮬≠", %p)}, undef, "to_ascii\(\'\?｡𐮬\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3463\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򡶱｡𐮬=\x{0338}", %p)}, undef, "to_ascii\(\'\?｡𐮬\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3464\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򡶱。𐮬≠", %p)}, undef, "to_ascii\(\'\?\。𐮬\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3465\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򡶱。𐮬=\x{0338}", %p)}, undef, "to_ascii\(\'\?\。𐮬\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3466\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0FB2}𞶅｡𐹮𐹷덝۵", %p)}, undef, "to_ascii\(\'\\u0FB2\?｡𐹮𐹷덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3467\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0FB2}𞶅｡𐹮𐹷덝۵", %p)}, undef, "to_ascii\(\'\\u0FB2\?｡𐹮𐹷덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3468\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0FB2}𞶅。𐹮𐹷덝۵", %p)}, undef, "to_ascii\(\'\\u0FB2\?\。𐹮𐹷덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3469\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0FB2}𞶅。𐹮𐹷덝۵", %p)}, undef, "to_ascii\(\'\\u0FB2\?\。𐹮𐹷덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3470\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴏ󠅋-．\x{200D}Ⴉ", %p)}, undef, "to_ascii\(\'Ⴏ\󠅋\-．\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3471\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴏ󠅋-.\x{200D}Ⴉ", %p)}, undef, "to_ascii\(\'Ⴏ\󠅋\-\.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3473\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴏ󠅋-.\x{200D}ⴉ", %p)}, undef, "to_ascii\(\'ⴏ\󠅋\-\.\\u200Dⴉ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3475\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴏ󠅋-．\x{200D}ⴉ", %p)}, undef, "to_ascii\(\'ⴏ\󠅋\-．\\u200Dⴉ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3477\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⇧𐨏󠾈󯶅。\x{0600}󠈵󠆉", %p)}, undef, "to_ascii\(\'\⇧𐨏\?\?\。\\u0600\?\󠆉\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3479\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠𐮂.↑🄇⒈", %p)}, undef, "to_ascii\(\'\≠𐮂\.\↑🄇⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3480\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}𐮂.↑🄇⒈", %p)}, undef, "to_ascii\(\'\=\\u0338𐮂\.\↑🄇⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3481\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠𐮂.↑6,1.", %p)}, undef, "to_ascii\(\'\≠𐮂\.\↑6\,1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3482\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}𐮂.↑6,1.", %p)}, undef, "to_ascii\(\'\=\\u0338𐮂\.\↑6\,1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3483\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝩏󠲉ß.ᢤ򄦌\x{200C}𐹫", %p)}, undef, "to_ascii\(\'𝩏\?ß\.ᢤ\?\\u200C𐹫\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3484\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝩏󠲉SS.ᢤ򄦌\x{200C}𐹫", %p)}, undef, "to_ascii\(\'𝩏\?SS\.ᢤ\?\\u200C𐹫\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3486\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝩏󠲉ss.ᢤ򄦌\x{200C}𐹫", %p)}, undef, "to_ascii\(\'𝩏\?ss\.ᢤ\?\\u200C𐹫\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3488\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝩏󠲉Ss.ᢤ򄦌\x{200C}𐹫", %p)}, undef, "to_ascii\(\'𝩏\?Ss\.ᢤ\?\\u200C𐹫\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3490\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß𐵳񗘁Ⴇ｡\x{A67A}", %p)}, undef, "to_ascii\(\'ß\?\?Ⴇ｡\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3492\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß𐵳񗘁Ⴇ。\x{A67A}", %p)}, undef, "to_ascii\(\'ß\?\?Ⴇ\。\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3493\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß𐵳񗘁ⴇ。\x{A67A}", %p)}, undef, "to_ascii\(\'ß\?\?ⴇ\。\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3494\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS𐵳񗘁Ⴇ。\x{A67A}", %p)}, undef, "to_ascii\(\'SS\?\?Ⴇ\。\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3495\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss𐵳񗘁ⴇ。\x{A67A}", %p)}, undef, "to_ascii\(\'ss\?\?ⴇ\。\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3496\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss𐵳񗘁Ⴇ。\x{A67A}", %p)}, undef, "to_ascii\(\'Ss\?\?Ⴇ\。\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3497\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß𐵳񗘁ⴇ｡\x{A67A}", %p)}, undef, "to_ascii\(\'ß\?\?ⴇ｡\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3498\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS𐵳񗘁Ⴇ｡\x{A67A}", %p)}, undef, "to_ascii\(\'SS\?\?Ⴇ｡\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3499\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss𐵳񗘁ⴇ｡\x{A67A}", %p)}, undef, "to_ascii\(\'ss\?\?ⴇ｡\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3500\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss𐵳񗘁Ⴇ｡\x{A67A}", %p)}, undef, "to_ascii\(\'Ss\?\?Ⴇ｡\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3501\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1714}。󠆣-𑋪", %p)}, undef, "to_ascii\(\'\\u1714\。\󠆣\-𑋪\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3502\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{ABE8}-．򨏜\x{05BD}ß", %p)}, undef, "to_ascii\(\'\\uABE8\-．\?\\u05BDß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3503\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{ABE8}-.򨏜\x{05BD}ß", %p)}, undef, "to_ascii\(\'\\uABE8\-\.\?\\u05BDß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3504\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{ABE8}-.򨏜\x{05BD}SS", %p)}, undef, "to_ascii\(\'\\uABE8\-\.\?\\u05BDSS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3505\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{ABE8}-.򨏜\x{05BD}ss", %p)}, undef, "to_ascii\(\'\\uABE8\-\.\?\\u05BDss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3506\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{ABE8}-.򨏜\x{05BD}Ss", %p)}, undef, "to_ascii\(\'\\uABE8\-\.\?\\u05BDSs\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3507\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{ABE8}-．򨏜\x{05BD}SS", %p)}, undef, "to_ascii\(\'\\uABE8\-．\?\\u05BDSS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3508\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{ABE8}-．򨏜\x{05BD}ss", %p)}, undef, "to_ascii\(\'\\uABE8\-．\?\\u05BDss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3509\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{ABE8}-．򨏜\x{05BD}Ss", %p)}, undef, "to_ascii\(\'\\uABE8\-．\?\\u05BDSs\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3510\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡓ-≮。\x{066B}󠅱ᡄ", %p)}, undef, "to_ascii\(\'ᡓ\-\≮\。\\u066B\󠅱ᡄ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3511\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡓ-<\x{0338}。\x{066B}󠅱ᡄ", %p)}, undef, "to_ascii\(\'ᡓ\-\<\\u0338\。\\u066B\󠅱ᡄ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3512\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𝟥♮𑜫\x{08ED}．\x{17D2}𑜫8󠆏", %p)}, undef, "to_ascii\(\'𝟥\♮𑜫\\u08ED．\\u17D2𑜫8\󠆏\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3513\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("3♮𑜫\x{08ED}.\x{17D2}𑜫8󠆏", %p)}, undef, "to_ascii\(\'3\♮𑜫\\u08ED\.\\u17D2𑜫8\󠆏\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3514\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-｡򕌀\x{200D}❡", %p)}, undef, "to_ascii\(\'\-｡\?\\u200D\❡\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3515\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-。򕌀\x{200D}❡", %p)}, undef, "to_ascii\(\'\-\。\?\\u200D\❡\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3517\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟓☱𝟐򥰵｡𝪮񐡳", %p)}, undef, "to_ascii\(\'𝟓\☱𝟐\?｡𝪮\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3519\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("5☱2򥰵。𝪮񐡳", %p)}, undef, "to_ascii\(\'5\☱2\?\。𝪮\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3520\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-.-├򖦣", %p)}, undef, "to_ascii\(\'\-\.\-\├\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3521\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05A5}\x{076D}｡\x{200D}󠀘", %p)}, undef, "to_ascii\(\'\\u05A5\\u076D｡\\u200D\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3522\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05A5}\x{076D}。\x{200D}󠀘", %p)}, undef, "to_ascii\(\'\\u05A5\\u076D\。\\u200D\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3524\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("쥥󔏉Ⴎ．\x{200C}⒈⒈𐫒", %p)}, undef, "to_ascii\(\'쥥\?Ⴎ．\\u200C⒈⒈𐫒\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3526\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("쥥󔏉Ⴎ．\x{200C}⒈⒈𐫒", %p)}, undef, "to_ascii\(\'쥥\?Ⴎ．\\u200C⒈⒈𐫒\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3528\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("쥥󔏉Ⴎ.\x{200C}1.1.𐫒", %p)}, undef, "to_ascii\(\'쥥\?Ⴎ\.\\u200C1\.1\.𐫒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3530\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("쥥󔏉Ⴎ.\x{200C}1.1.𐫒", %p)}, undef, "to_ascii\(\'쥥\?Ⴎ\.\\u200C1\.1\.𐫒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3532\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("쥥󔏉ⴎ.\x{200C}1.1.𐫒", %p)}, undef, "to_ascii\(\'쥥\?ⴎ\.\\u200C1\.1\.𐫒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3534\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("쥥󔏉ⴎ.\x{200C}1.1.𐫒", %p)}, undef, "to_ascii\(\'쥥\?ⴎ\.\\u200C1\.1\.𐫒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3536\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("쥥󔏉ⴎ．\x{200C}⒈⒈𐫒", %p)}, undef, "to_ascii\(\'쥥\?ⴎ．\\u200C⒈⒈𐫒\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3538\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("쥥󔏉ⴎ．\x{200C}⒈⒈𐫒", %p)}, undef, "to_ascii\(\'쥥\?ⴎ．\\u200C⒈⒈𐫒\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3540\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{0827}𝟶\x{06A0}-。𑄳", %p)}, undef, "to_ascii\(\'\\u0827𝟶\\u06A0\-\。𑄳\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3542\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{0827}0\x{06A0}-。𑄳", %p)}, undef, "to_ascii\(\'\\u08270\\u06A0\-\。𑄳\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3543\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ς．\x{FDC1}🞛⒈", %p)}, undef, "to_ascii\(\'ς．\\uFDC1🞛⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3544\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ς.\x{0641}\x{0645}\x{064A}🞛1.", %p)}, "xn--4xa.xn--1-gocmu97674d.", "to_ascii\(\'ς\.\\u0641\\u0645\\u064A🞛1\.\'\)\ \[data\/IdnaTest\.txt\:3545\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ.\x{0641}\x{0645}\x{064A}🞛1.", %p)}, "xn--4xa.xn--1-gocmu97674d.", "to_ascii\(\'Σ\.\\u0641\\u0645\\u064A🞛1\.\'\)\ \[data\/IdnaTest\.txt\:3547\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σ.\x{0641}\x{0645}\x{064A}🞛1.", %p)}, "xn--4xa.xn--1-gocmu97674d.", "to_ascii\(\'σ\.\\u0641\\u0645\\u064A🞛1\.\'\)\ \[data\/IdnaTest\.txt\:3548\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--4xa.xn--1-gocmu97674d.", %p)}, "xn--4xa.xn--1-gocmu97674d.", "to_ascii\(\'xn\-\-4xa\.xn\-\-1\-gocmu97674d\.\'\)\ \[data\/IdnaTest\.txt\:3549\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--3xa.xn--1-gocmu97674d.", %p)}, "xn--3xa.xn--1-gocmu97674d.", "to_ascii\(\'xn\-\-3xa\.xn\-\-1\-gocmu97674d\.\'\)\ \[data\/IdnaTest\.txt\:3550\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Σ．\x{FDC1}🞛⒈", %p)}, undef, "to_ascii\(\'Σ．\\uFDC1🞛⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3551\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ．\x{FDC1}🞛⒈", %p)}, undef, "to_ascii\(\'σ．\\uFDC1🞛⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3552\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🗩-｡𐹻󐞆񥉮", %p)}, undef, "to_ascii\(\'🗩\-｡𐹻\?\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3553\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🗩-。𐹻󐞆񥉮", %p)}, undef, "to_ascii\(\'🗩\-\。𐹻\?\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3554\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐡜-🔪｡𝟻\x{200C}𐿀", %p)}, undef, "to_ascii\(\'𐡜\-🔪｡𝟻\\u200C\?\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3555\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐡜-🔪。5\x{200C}𐿀", %p)}, undef, "to_ascii\(\'𐡜\-🔪\。5\\u200C\?\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3557\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}ß．\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200Dß．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3559\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}ß．\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200Dß．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3561\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}ß.\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200Dß\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3563\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}ß.\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200Dß\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3565\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}SS.\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200DSS\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3567\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}SS.\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200DSS\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3569\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}ss.\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200Dss\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3571\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}ss.\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200Dss\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3573\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}Ss.\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200DSs\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3575\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}Ss.\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200DSs\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3577\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}SS．\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200DSS．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3579\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}SS．\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200DSS．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3581\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}ss．\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200Dss．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3583\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}ss．\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200Dss．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3585\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}Ss．\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200DSs．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3587\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}Ss．\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200DSs．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3589\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("9󠇥．󪴴ᢓ", %p)}, undef, "to_ascii\(\'9\󠇥．\?ᢓ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3591\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("9󠇥.󪴴ᢓ", %p)}, undef, "to_ascii\(\'9\󠇥\.\?ᢓ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3592\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.𐫭🠗ß⽟", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.𐫭🠗ß⽟\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3593\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{1160}.𐫭🠗ß玉", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.𐫭🠗ß玉\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3595\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{1160}.𐫭🠗SS玉", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.𐫭🠗SS玉\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3597\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{1160}.𐫭🠗ss玉", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.𐫭🠗ss玉\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3599\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{1160}.𐫭🠗Ss玉", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.𐫭🠗Ss玉\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3601\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.𐫭🠗SS⽟", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.𐫭🠗SS⽟\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3603\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.𐫭🠗ss⽟", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.𐫭🠗ss⽟\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3605\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.𐫭🠗Ss⽟", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.𐫭🠗Ss⽟\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3607\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒Ⴖ\x{0366}．\x{200C}", %p)}, undef, "to_ascii\(\'︒Ⴖ\\u0366．\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3609\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。Ⴖ\x{0366}.\x{200C}", %p)}, undef, "to_ascii\(\'\。Ⴖ\\u0366\.\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3611\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("。ⴖ\x{0366}.\x{200C}", %p)}, "xn--hva754s.", "to_ascii\(\'\。ⴖ\\u0366\.\\u200C\'\)\ \[data\/IdnaTest\.txt\:3613\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--hva754s.", %p)}, "xn--hva754s.", "to_ascii\(\'xn\-\-hva754s\.\'\)\ \[data\/IdnaTest\.txt\:3615\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴖ\x{0366}.", %p)}, "xn--hva754s.", "to_ascii\(\'ⴖ\\u0366\.\'\)\ \[data\/IdnaTest\.txt\:3616\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴖ\x{0366}.", %p)}, undef, "to_ascii\(\'Ⴖ\\u0366\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3617\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒ⴖ\x{0366}．\x{200C}", %p)}, undef, "to_ascii\(\'︒ⴖ\\u0366．\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3618\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08BB}．\x{200C}Ⴃ𞀒", %p)}, undef, "to_ascii\(\'\\u08BB．\\u200CႣ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3620\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08BB}.\x{200C}Ⴃ𞀒", %p)}, undef, "to_ascii\(\'\\u08BB\.\\u200CႣ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3622\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{08BB}.\x{200C}ⴃ𞀒", %p)}, "xn--hzb.xn--ukj4430l", "to_ascii\(\'\\u08BB\.\\u200Cⴃ\?\'\)\ \[data\/IdnaTest\.txt\:3624\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--hzb.xn--ukj4430l", %p)}, "xn--hzb.xn--ukj4430l", "to_ascii\(\'xn\-\-hzb\.xn\-\-ukj4430l\'\)\ \[data\/IdnaTest\.txt\:3626\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{08BB}.ⴃ𞀒", %p)}, "xn--hzb.xn--ukj4430l", "to_ascii\(\'\\u08BB\.ⴃ\?\'\)\ \[data\/IdnaTest\.txt\:3627\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{08BB}.Ⴃ𞀒", %p)}, undef, "to_ascii\(\'\\u08BB\.Ⴃ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3628\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{08BB}．\x{200C}ⴃ𞀒", %p)}, "xn--hzb.xn--ukj4430l", "to_ascii\(\'\\u08BB．\\u200Cⴃ\?\'\)\ \[data\/IdnaTest\.txt\:3629\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}\x{200C}。２䫷󠧷", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\。２䫷\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3631\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}\x{200C}。2䫷󠧷", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\。2䫷\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3633\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𞀤󜠐。򈬖", %p)}, undef, "to_ascii\(\'\-\?\?\。\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3635\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󳛂︒\x{200C}㟀．\x{0624}⒈", %p)}, undef, "to_ascii\(\'\?︒\\u200C㟀．\\u0624⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3636\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󳛂︒\x{200C}㟀．\x{0648}\x{0654}⒈", %p)}, undef, "to_ascii\(\'\?︒\\u200C㟀．\\u0648\\u0654⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3638\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󳛂。\x{200C}㟀.\x{0624}1.", %p)}, undef, "to_ascii\(\'\?\。\\u200C㟀\.\\u06241\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3640\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󳛂。\x{200C}㟀.\x{0648}\x{0654}1.", %p)}, undef, "to_ascii\(\'\?\。\\u200C㟀\.\\u0648\\u06541\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3642\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𑲜\x{07CA}𝅼。-\x{200D}", %p)}, undef, "to_ascii\(\'\?\\u07CA𝅼\。\-\\u200D\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:3644\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}．Ⴉ≠𐫶", %p)}, undef, "to_ascii\(\'\\u200C．Ⴉ\≠𐫶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3646\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}．Ⴉ=\x{0338}𐫶", %p)}, undef, "to_ascii\(\'\\u200C．Ⴉ\=\\u0338𐫶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3648\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.Ⴉ≠𐫶", %p)}, undef, "to_ascii\(\'\\u200C\.Ⴉ\≠𐫶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3650\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.Ⴉ=\x{0338}𐫶", %p)}, undef, "to_ascii\(\'\\u200C\.Ⴉ\=\\u0338𐫶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3652\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.ⴉ=\x{0338}𐫶", %p)}, undef, "to_ascii\(\'\\u200C\.ⴉ\=\\u0338𐫶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3654\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.ⴉ≠𐫶", %p)}, undef, "to_ascii\(\'\\u200C\.ⴉ\≠𐫶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3656\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}．ⴉ=\x{0338}𐫶", %p)}, undef, "to_ascii\(\'\\u200C．ⴉ\=\\u0338𐫶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3658\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}．ⴉ≠𐫶", %p)}, undef, "to_ascii\(\'\\u200C．ⴉ\≠𐫶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3660\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0750}。≯ς", %p)}, undef, "to_ascii\(\'\\u0750\。\≯ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3662\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0750}。>\x{0338}ς", %p)}, undef, "to_ascii\(\'\\u0750\。\>\\u0338ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3663\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0750}。>\x{0338}Σ", %p)}, undef, "to_ascii\(\'\\u0750\。\>\\u0338Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3664\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0750}。≯Σ", %p)}, undef, "to_ascii\(\'\\u0750\。\≯Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3665\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0750}。≯σ", %p)}, undef, "to_ascii\(\'\\u0750\。\≯σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3666\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0750}。>\x{0338}σ", %p)}, undef, "to_ascii\(\'\\u0750\。\>\\u0338σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3667\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07FC}𐸆.𓖏︒񊨩Ⴐ", %p)}, undef, "to_ascii\(\'\\u07FC\?\.\?︒\?Ⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3668\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07FC}𐸆.𓖏。񊨩Ⴐ", %p)}, undef, "to_ascii\(\'\\u07FC\?\.\?\。\?Ⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3669\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07FC}𐸆.𓖏。񊨩ⴐ", %p)}, undef, "to_ascii\(\'\\u07FC\?\.\?\。\?ⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3670\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07FC}𐸆.𓖏︒񊨩ⴐ", %p)}, undef, "to_ascii\(\'\\u07FC\?\.\?︒\?ⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3671\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴥ⚭󠖫⋃｡𑌼", %p)}, undef, "to_ascii\(\'Ⴥ\⚭\?\⋃｡𑌼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3672\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴥ⚭󠖫⋃。𑌼", %p)}, undef, "to_ascii\(\'Ⴥ\⚭\?\⋃\。𑌼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3673\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴥ⚭󠖫⋃。𑌼", %p)}, undef, "to_ascii\(\'ⴥ\⚭\?\⋃\。𑌼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3674\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴥ⚭󠖫⋃｡𑌼", %p)}, undef, "to_ascii\(\'ⴥ\⚭\?\⋃｡𑌼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3675\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄈。󠷳\x{0844}", %p)}, undef, "to_ascii\(\'🄈\。\?\\u0844\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3676\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("7,。󠷳\x{0844}", %p)}, undef, "to_ascii\(\'7\,\。\?\\u0844\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3677\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮\x{0846}。섖쮖ß", %p)}, undef, "to_ascii\(\'\≮\\u0846\。섖쮖ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3678\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}\x{0846}。섖쮖ß", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0846\。섖쮖ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3679\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}\x{0846}。섖쮖SS", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0846\。섖쮖SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3680\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮\x{0846}。섖쮖SS", %p)}, undef, "to_ascii\(\'\≮\\u0846\。섖쮖SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3681\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮\x{0846}。섖쮖ss", %p)}, undef, "to_ascii\(\'\≮\\u0846\。섖쮖ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3682\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}\x{0846}。섖쮖ss", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0846\。섖쮖ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3683\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}\x{0846}。섖쮖Ss", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0846\。섖쮖Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3684\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮\x{0846}。섖쮖Ss", %p)}, undef, "to_ascii\(\'\≮\\u0846\。섖쮖Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3685\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("󠆓⛏-。ꡒ", %p)}, undef, "to_ascii\(\'\󠆓\⛏\-\。ꡒ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3686\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{07BB}𐹳\x{0626}𑁆。\x{08A7}\x{06B0}\x{200C}ᢒ", %p)}, undef, "to_ascii\(\'\\u07BB𐹳\\u0626𑁆\。\\u08A7\\u06B0\\u200Cᢒ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3687\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07BB}𐹳\x{064A}𑁆\x{0654}。\x{08A7}\x{06B0}\x{200C}ᢒ", %p)}, undef, "to_ascii\(\'\\u07BB𐹳\\u064A𑁆\\u0654\。\\u08A7\\u06B0\\u200Cᢒ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3688\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0816}.𐨕𚚕", %p)}, undef, "to_ascii\(\'\\u0816\.𐨕\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3689\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("--。𽊆\x{0767}𐽋𞠬", %p)}, undef, "to_ascii\(\'\-\-\。\?\\u0767\?𞠬\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3690\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򛭦𐋥𹸐.≯\x{08B0}\x{08A6}󔛣", %p)}, undef, "to_ascii\(\'\?𐋥\?\.\≯\\u08B0\\u08A6\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3691\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򛭦𐋥𹸐.>\x{0338}\x{08B0}\x{08A6}󔛣", %p)}, undef, "to_ascii\(\'\?𐋥\?\.\>\\u0338\\u08B0\\u08A6\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3692\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䔛󠇒򤸞𐹧．-䤷", %p)}, undef, "to_ascii\(\'䔛\󠇒\?𐹧．\-䤷\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3693\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䔛󠇒򤸞𐹧.-䤷", %p)}, undef, "to_ascii\(\'䔛\󠇒\?𐹧\.\-䤷\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3694\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹩．\x{200D}-", %p)}, undef, "to_ascii\(\'𐹩．\\u200D\-\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:3695\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹩.\x{200D}-", %p)}, undef, "to_ascii\(\'𐹩\.\\u200D\-\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:3697\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񂈦帷｡≯萺\x{1DC8}-", %p)}, undef, "to_ascii\(\'\?帷｡\≯萺\\u1DC8\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3699\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񂈦帷｡>\x{0338}萺\x{1DC8}-", %p)}, undef, "to_ascii\(\'\?帷｡\>\\u0338萺\\u1DC8\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3700\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񂈦帷。≯萺\x{1DC8}-", %p)}, undef, "to_ascii\(\'\?帷\。\≯萺\\u1DC8\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3701\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񂈦帷。>\x{0338}萺\x{1DC8}-", %p)}, undef, "to_ascii\(\'\?帷\。\>\\u0338萺\\u1DC8\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3702\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}攌\x{ABED}。ᢖ-Ⴘ", %p)}, undef, "to_ascii\(\'\\u200D攌\\uABED\。ᢖ\-Ⴘ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3703\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200D}攌\x{ABED}。ᢖ-ⴘ", %p)}, "xn--p9ut19m.xn----mck373i", "to_ascii\(\'\\u200D攌\\uABED\。ᢖ\-ⴘ\'\)\ \[data\/IdnaTest\.txt\:3705\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("xn--p9ut19m.xn----mck373i", %p)}, "xn--p9ut19m.xn----mck373i", "to_ascii\(\'xn\-\-p9ut19m\.xn\-\-\-\-mck373i\'\)\ \[data\/IdnaTest\.txt\:3707\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("攌\x{ABED}.ᢖ-ⴘ", %p)}, "xn--p9ut19m.xn----mck373i", "to_ascii\(\'攌\\uABED\.ᢖ\-ⴘ\'\)\ \[data\/IdnaTest\.txt\:3708\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("攌\x{ABED}.ᢖ-Ⴘ", %p)}, undef, "to_ascii\(\'攌\\uABED\.ᢖ\-Ⴘ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3709\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ꖨ．⒗３툒۳", %p)}, undef, "to_ascii\(\'\\u200Cꖨ．⒗３툒۳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3710\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ꖨ．⒗３툒۳", %p)}, undef, "to_ascii\(\'\\u200Cꖨ．⒗３툒۳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3712\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200C}ꖨ.16.3툒۳", %p)}, "xn--9r8a.16.xn--3-nyc0117m", "to_ascii\(\'\\u200Cꖨ\.16\.3툒۳\'\)\ \[data\/IdnaTest\.txt\:3714\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200C}ꖨ.16.3툒۳", %p)}, "xn--9r8a.16.xn--3-nyc0117m", "to_ascii\(\'\\u200Cꖨ\.16\.3툒۳\'\)\ \[data\/IdnaTest\.txt\:3716\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("xn--9r8a.16.xn--3-nyc0117m", %p)}, "xn--9r8a.16.xn--3-nyc0117m", "to_ascii\(\'xn\-\-9r8a\.16\.xn\-\-3\-nyc0117m\'\)\ \[data\/IdnaTest\.txt\:3718\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ꖨ.16.3툒۳", %p)}, "xn--9r8a.16.xn--3-nyc0117m", "to_ascii\(\'ꖨ\.16\.3툒۳\'\)\ \[data\/IdnaTest\.txt\:3719\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ꖨ.16.3툒۳", %p)}, "xn--9r8a.16.xn--3-nyc0117m", "to_ascii\(\'ꖨ\.16\.3툒۳\'\)\ \[data\/IdnaTest\.txt\:3720\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⒈걾6.𐱁\x{06D0}", %p)}, undef, "to_ascii\(\'⒈걾6\.𐱁\\u06D0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3721\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈걾6.𐱁\x{06D0}", %p)}, undef, "to_ascii\(\'⒈걾6\.𐱁\\u06D0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3722\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("1.걾6.𐱁\x{06D0}", %p)}, "1.xn--6-945e.xn--glb1794k", "to_ascii\(\'1\.걾6\.𐱁\\u06D0\'\)\ \[data\/IdnaTest\.txt\:3723\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("1.걾6.𐱁\x{06D0}", %p)}, "1.xn--6-945e.xn--glb1794k", "to_ascii\(\'1\.걾6\.𐱁\\u06D0\'\)\ \[data\/IdnaTest\.txt\:3724\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("1.xn--6-945e.xn--glb1794k", %p)}, "1.xn--6-945e.xn--glb1794k", "to_ascii\(\'1\.xn\-\-6\-945e\.xn\-\-glb1794k\'\)\ \[data\/IdnaTest\.txt\:3725\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐲞𝟶≮≮.󠀧\x{0639}", %p)}, undef, "to_ascii\(\'𐲞𝟶\≮\≮\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3726\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐲞𝟶<\x{0338}<\x{0338}.󠀧\x{0639}", %p)}, undef, "to_ascii\(\'𐲞𝟶\<\\u0338\<\\u0338\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3727\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐲞0≮≮.󠀧\x{0639}", %p)}, undef, "to_ascii\(\'𐲞0\≮\≮\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3728\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐲞0<\x{0338}<\x{0338}.󠀧\x{0639}", %p)}, undef, "to_ascii\(\'𐲞0\<\\u0338\<\\u0338\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3729\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐳞0<\x{0338}<\x{0338}.󠀧\x{0639}", %p)}, undef, "to_ascii\(\'𐳞0\<\\u0338\<\\u0338\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3730\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐳞0≮≮.󠀧\x{0639}", %p)}, undef, "to_ascii\(\'𐳞0\≮\≮\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3731\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐳞𝟶<\x{0338}<\x{0338}.󠀧\x{0639}", %p)}, undef, "to_ascii\(\'𐳞𝟶\<\\u0338\<\\u0338\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3732\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐳞𝟶≮≮.󠀧\x{0639}", %p)}, undef, "to_ascii\(\'𐳞𝟶\≮\≮\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3733\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0AE3}.𐹺\x{115F}", %p)}, undef, "to_ascii\(\'\\u0AE3\.𐹺\\u115F\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3734\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𝟏𝨙⸖.\x{200D}", %p)}, "xn--1-5bt6845n.", "to_ascii\(\'𝟏𝨙\⸖\.\\u200D\'\)\ \[data\/IdnaTest\.txt\:3735\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("1𝨙⸖.\x{200D}", %p)}, "xn--1-5bt6845n.", "to_ascii\(\'1𝨙\⸖\.\\u200D\'\)\ \[data\/IdnaTest\.txt\:3737\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("xn--1-5bt6845n.", %p)}, "xn--1-5bt6845n.", "to_ascii\(\'xn\-\-1\-5bt6845n\.\'\)\ \[data\/IdnaTest\.txt\:3739\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("1𝨙⸖.", %p)}, "xn--1-5bt6845n.", "to_ascii\(\'1𝨙\⸖\.\'\)\ \[data\/IdnaTest\.txt\:3740\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞤐≠\x{0726}\x{1A60}｡-\x{200C}\x{07D5}", %p)}, undef, "to_ascii\(\'\?\≠\\u0726\\u1A60｡\-\\u200C\\u07D5\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3741\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤐=\x{0338}\x{0726}\x{1A60}｡-\x{200C}\x{07D5}", %p)}, undef, "to_ascii\(\'\?\=\\u0338\\u0726\\u1A60｡\-\\u200C\\u07D5\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3743\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤐≠\x{0726}\x{1A60}。-\x{200C}\x{07D5}", %p)}, undef, "to_ascii\(\'\?\≠\\u0726\\u1A60\。\-\\u200C\\u07D5\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3745\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤐=\x{0338}\x{0726}\x{1A60}。-\x{200C}\x{07D5}", %p)}, undef, "to_ascii\(\'\?\=\\u0338\\u0726\\u1A60\。\-\\u200C\\u07D5\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3747\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹰\x{0368}-ꡧ｡\x{0675}", %p)}, undef, "to_ascii\(\'𐹰\\u0368\-ꡧ｡\\u0675\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3749\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹰\x{0368}-ꡧ。\x{0627}\x{0674}", %p)}, undef, "to_ascii\(\'𐹰\\u0368\-ꡧ\。\\u0627\\u0674\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3750\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("F󠅟｡򏗅♚", %p)}, undef, "to_ascii\(\'F\󠅟｡\?\♚\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3751\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("F󠅟。򏗅♚", %p)}, undef, "to_ascii\(\'F\󠅟\。\?\♚\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3752\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("f󠅟。򏗅♚", %p)}, undef, "to_ascii\(\'f\󠅟\。\?\♚\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3753\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("f󠅟｡򏗅♚", %p)}, undef, "to_ascii\(\'f\󠅟｡\?\♚\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3754\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0B4D}𑄴\x{1DE9}。𝟮Ⴘ𞀨񃥇", %p)}, undef, "to_ascii\(\'\\u0B4D𑄴\\u1DE9\。𝟮Ⴘ\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3755\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0B4D}𑄴\x{1DE9}。2Ⴘ𞀨񃥇", %p)}, undef, "to_ascii\(\'\\u0B4D𑄴\\u1DE9\。2Ⴘ\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3756\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0B4D}𑄴\x{1DE9}。2ⴘ𞀨񃥇", %p)}, undef, "to_ascii\(\'\\u0B4D𑄴\\u1DE9\。2ⴘ\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3757\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0B4D}𑄴\x{1DE9}。𝟮ⴘ𞀨񃥇", %p)}, undef, "to_ascii\(\'\\u0B4D𑄴\\u1DE9\。𝟮ⴘ\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3758\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򓠭\x{200C}\x{200C}⒈。勉𑁅", %p)}, undef, "to_ascii\(\'\?\\u200C\\u200C⒈\。勉𑁅\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3759\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򓠭\x{200C}\x{200C}1.。勉𑁅", %p)}, undef, "to_ascii\(\'\?\\u200C\\u200C1\.\。勉𑁅\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3761\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡃ.玿񫈜󕞐", %p)}, undef, "to_ascii\(\'ᡃ\.玿\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3763\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{200C}｡⒈≯𝟵", %p)}, undef, "to_ascii\(\'\\u200C\\u200C｡⒈\≯𝟵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3764\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{200C}｡⒈>\x{0338}𝟵", %p)}, undef, "to_ascii\(\'\\u200C\\u200C｡⒈\>\\u0338𝟵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3766\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{200C}。1.≯9", %p)}, undef, "to_ascii\(\'\\u200C\\u200C\。1\.\≯9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3768\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{200C}。1.>\x{0338}9", %p)}, undef, "to_ascii\(\'\\u200C\\u200C\。1\.\>\\u03389\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3770\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}\x{1DE0}򐀁.𺻆≯𐮁", %p)}, undef, "to_ascii\(\'\\u115F\\u1DE0\?\.\?\≯𐮁\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3772\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}\x{1DE0}򐀁.𺻆>\x{0338}𐮁", %p)}, undef, "to_ascii\(\'\\u115F\\u1DE0\?\.\?\>\\u0338𐮁\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3773\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄫𝩤\x{200D}\x{063E}.𝩩-\x{081E}󑼩", %p)}, undef, "to_ascii\(\'\󠄫𝩤\\u200D\\u063E\.𝩩\-\\u081E\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3774\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{20DA}．𑘿-", %p)}, undef, "to_ascii\(\'\\u20DA．𑘿\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3776\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{20DA}.𑘿-", %p)}, undef, "to_ascii\(\'\\u20DA\.𑘿\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3777\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("䮸ß.󠵟󠭎紙\x{08A8}", %p)}, undef, "to_ascii\(\'䮸ß\.\?\?紙\\u08A8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3778\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䮸SS.󠵟󠭎紙\x{08A8}", %p)}, undef, "to_ascii\(\'䮸SS\.\?\?紙\\u08A8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3779\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䮸ss.󠵟󠭎紙\x{08A8}", %p)}, undef, "to_ascii\(\'䮸ss\.\?\?紙\\u08A8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3780\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䮸Ss.󠵟󠭎紙\x{08A8}", %p)}, undef, "to_ascii\(\'䮸Ss\.\?\?紙\\u08A8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3781\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-Ⴞ.-𝩨⅔𐦕", %p)}, undef, "to_ascii\(\'\-Ⴞ\.\-𝩨⅔𐦕\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3782\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-Ⴞ.-𝩨2⁄3𐦕", %p)}, undef, "to_ascii\(\'\-Ⴞ\.\-𝩨2\⁄3𐦕\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3783\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("-ⴞ.-𝩨2⁄3𐦕", %p)}, undef, "to_ascii\(\'\-ⴞ\.\-𝩨2\⁄3𐦕\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:3784\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("-ⴞ.-𝩨⅔𐦕", %p)}, undef, "to_ascii\(\'\-ⴞ\.\-𝩨⅔𐦕\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:3785\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󧈯𐹯\x{0AC2}｡򖢨𐮁񇼖ᡂ", %p)}, undef, "to_ascii\(\'\?𐹯\\u0AC2｡\?𐮁\?ᡂ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3786\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧈯𐹯\x{0AC2}。򖢨𐮁񇼖ᡂ", %p)}, undef, "to_ascii\(\'\?𐹯\\u0AC2\。\?𐮁\?ᡂ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3787\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1082}-\x{200D}\x{A8EA}．ꡊ\x{200D}񼸳", %p)}, undef, "to_ascii\(\'\\u1082\-\\u200D\\uA8EA．ꡊ\\u200D\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3788\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1082}-\x{200D}\x{A8EA}.ꡊ\x{200D}񼸳", %p)}, undef, "to_ascii\(\'\\u1082\-\\u200D\\uA8EA\.ꡊ\\u200D\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3790\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("۱。≠\x{0668}", %p)}, undef, "to_ascii\(\'۱\。\≠\\u0668\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3792\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("۱。=\x{0338}\x{0668}", %p)}, undef, "to_ascii\(\'۱\。\=\\u0338\\u0668\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3793\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑈵廊.𐠍", %p)}, undef, "to_ascii\(\'𑈵廊\.𐠍\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3794\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}\x{0356}-．-Ⴐ\x{0661}", %p)}, undef, "to_ascii\(\'\\u200D\\u0356\-．\-Ⴐ\\u0661\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3795\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}\x{0356}-.-Ⴐ\x{0661}", %p)}, undef, "to_ascii\(\'\\u200D\\u0356\-\.\-Ⴐ\\u0661\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3797\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200D}\x{0356}-.-ⴐ\x{0661}", %p)}, undef, "to_ascii\(\'\\u200D\\u0356\-\.\-ⴐ\\u0661\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3799\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200D}\x{0356}-．-ⴐ\x{0661}", %p)}, undef, "to_ascii\(\'\\u200D\\u0356\-．\-ⴐ\\u0661\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3801\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{063A}\x{0661}挏󾯐.-", %p)}, undef, "to_ascii\(\'\\u063A\\u0661挏\?\.\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3803\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{06EF}｡𐹧𞤽", %p)}, undef, "to_ascii\(\'\\u06EF｡𐹧\?\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3804\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{06EF}。𐹧𞤽", %p)}, undef, "to_ascii\(\'\\u06EF\。𐹧\?\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3805\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴞ𶛀𛗻．ᢗ릫", %p)}, undef, "to_ascii\(\'Ⴞ\?\?．ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3806\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴞ𶛀𛗻．ᢗ릫", %p)}, undef, "to_ascii\(\'Ⴞ\?\?．ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3807\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴞ𶛀𛗻.ᢗ릫", %p)}, undef, "to_ascii\(\'Ⴞ\?\?\.ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3808\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴞ𶛀𛗻.ᢗ릫", %p)}, undef, "to_ascii\(\'Ⴞ\?\?\.ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3809\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴞ𶛀𛗻.ᢗ릫", %p)}, undef, "to_ascii\(\'ⴞ\?\?\.ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3810\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴞ𶛀𛗻.ᢗ릫", %p)}, undef, "to_ascii\(\'ⴞ\?\?\.ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3811\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴞ𶛀𛗻．ᢗ릫", %p)}, undef, "to_ascii\(\'ⴞ\?\?．ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3812\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴞ𶛀𛗻．ᢗ릫", %p)}, undef, "to_ascii\(\'ⴞ\?\?．ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3813\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠎃󗭞\x{06B7}𐹷｡≯\x{200C}\x{1DFE}", %p)}, undef, "to_ascii\(\'\?\?\\u06B7𐹷｡\≯\\u200C\\u1DFE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3814\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠎃󗭞\x{06B7}𐹷｡>\x{0338}\x{200C}\x{1DFE}", %p)}, undef, "to_ascii\(\'\?\?\\u06B7𐹷｡\>\\u0338\\u200C\\u1DFE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3816\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠎃󗭞\x{06B7}𐹷。≯\x{200C}\x{1DFE}", %p)}, undef, "to_ascii\(\'\?\?\\u06B7𐹷\。\≯\\u200C\\u1DFE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3818\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠎃󗭞\x{06B7}𐹷。>\x{0338}\x{200C}\x{1DFE}", %p)}, undef, "to_ascii\(\'\?\?\\u06B7𐹷\。\>\\u0338\\u200C\\u1DFE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3820\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᛎ󠅍󠐕\x{200D}｡𐹾𐹪𐻝-", %p)}, undef, "to_ascii\(\'ᛎ\󠅍\?\\u200D｡𐹾𐹪\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3822\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᛎ󠅍󠐕\x{200D}。𐹾𐹪𐻝-", %p)}, undef, "to_ascii\(\'ᛎ\󠅍\?\\u200D\。𐹾𐹪\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3824\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐹶.𐫂", %p)}, undef, "to_ascii\(\'𐹶\.𐫂\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3826\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ß\x{200D}\x{103A}｡⒈", %p)}, undef, "to_ascii\(\'ß\\u200D\\u103A｡⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3827\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ß\x{200D}\x{103A}。1.", %p)}, "xn--ss-f4j.1.", "to_ascii\(\'ß\\u200D\\u103A\。1\.\'\)\ \[data\/IdnaTest\.txt\:3829\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("SS\x{200D}\x{103A}。1.", %p)}, "xn--ss-f4j.1.", "to_ascii\(\'SS\\u200D\\u103A\。1\.\'\)\ \[data\/IdnaTest\.txt\:3831\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ss\x{200D}\x{103A}。1.", %p)}, "xn--ss-f4j.1.", "to_ascii\(\'ss\\u200D\\u103A\。1\.\'\)\ \[data\/IdnaTest\.txt\:3833\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("Ss\x{200D}\x{103A}。1.", %p)}, "xn--ss-f4j.1.", "to_ascii\(\'Ss\\u200D\\u103A\。1\.\'\)\ \[data\/IdnaTest\.txt\:3835\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("xn--ss-f4j.1.", %p)}, "xn--ss-f4j.1.", "to_ascii\(\'xn\-\-ss\-f4j\.1\.\'\)\ \[data\/IdnaTest\.txt\:3837\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ss\x{103A}.1.", %p)}, "xn--ss-f4j.1.", "to_ascii\(\'ss\\u103A\.1\.\'\)\ \[data\/IdnaTest\.txt\:3838\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("SS\x{103A}.1.", %p)}, "xn--ss-f4j.1.", "to_ascii\(\'SS\\u103A\.1\.\'\)\ \[data\/IdnaTest\.txt\:3839\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("Ss\x{103A}.1.", %p)}, "xn--ss-f4j.1.", "to_ascii\(\'Ss\\u103A\.1\.\'\)\ \[data\/IdnaTest\.txt\:3840\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("SS\x{200D}\x{103A}｡⒈", %p)}, undef, "to_ascii\(\'SS\\u200D\\u103A｡⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3841\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss\x{200D}\x{103A}｡⒈", %p)}, undef, "to_ascii\(\'ss\\u200D\\u103A｡⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3843\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss\x{200D}\x{103A}｡⒈", %p)}, undef, "to_ascii\(\'Ss\\u200D\\u103A｡⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3845\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0B4D}\x{200C}𙶵𞻘。\x{200D}", %p)}, undef, "to_ascii\(\'\\u0B4D\\u200C\?\?\。\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3847\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮅｡\x{06BC}🁕", %p)}, undef, "to_ascii\(\'𐮅｡\\u06BC🁕\'\)\ throws\ error\ B3\ \[data\/IdnaTest\.txt\:3849\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮅。\x{06BC}🁕", %p)}, undef, "to_ascii\(\'𐮅\。\\u06BC🁕\'\)\ throws\ error\ B3\ \[data\/IdnaTest\.txt\:3850\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0620}\x{17D2}。𐫔󠀧\x{200C}𑈵", %p)}, undef, "to_ascii\(\'\\u0620\\u17D2\。𐫔\?\\u200C𑈵\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3851\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񋉕.𞣕𞤊", %p)}, undef, "to_ascii\(\'\?\.𞣕\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3853\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06CC}𐨿．ß\x{0F84}𑍬", %p)}, "xn--clb2593k.xn--ss-toj6092t", "to_ascii\(\'\\u06CC𐨿．ß\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3854\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06CC}𐨿.ß\x{0F84}𑍬", %p)}, "xn--clb2593k.xn--ss-toj6092t", "to_ascii\(\'\\u06CC𐨿\.ß\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3856\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06CC}𐨿.SS\x{0F84}𑍬", %p)}, "xn--clb2593k.xn--ss-toj6092t", "to_ascii\(\'\\u06CC𐨿\.SS\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3858\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06CC}𐨿.ss\x{0F84}𑍬", %p)}, "xn--clb2593k.xn--ss-toj6092t", "to_ascii\(\'\\u06CC𐨿\.ss\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3859\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06CC}𐨿.Ss\x{0F84}𑍬", %p)}, "xn--clb2593k.xn--ss-toj6092t", "to_ascii\(\'\\u06CC𐨿\.Ss\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3860\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--clb2593k.xn--ss-toj6092t", %p)}, "xn--clb2593k.xn--ss-toj6092t", "to_ascii\(\'xn\-\-clb2593k\.xn\-\-ss\-toj6092t\'\)\ \[data\/IdnaTest\.txt\:3861\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--clb2593k.xn--zca216edt0r", %p)}, "xn--clb2593k.xn--zca216edt0r", "to_ascii\(\'xn\-\-clb2593k\.xn\-\-zca216edt0r\'\)\ \[data\/IdnaTest\.txt\:3862\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06CC}𐨿．SS\x{0F84}𑍬", %p)}, "xn--clb2593k.xn--ss-toj6092t", "to_ascii\(\'\\u06CC𐨿．SS\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3863\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06CC}𐨿．ss\x{0F84}𑍬", %p)}, "xn--clb2593k.xn--ss-toj6092t", "to_ascii\(\'\\u06CC𐨿．ss\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3864\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06CC}𐨿．Ss\x{0F84}𑍬", %p)}, "xn--clb2593k.xn--ss-toj6092t", "to_ascii\(\'\\u06CC𐨿．Ss\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3865\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𝟠≮\x{200C}｡󠅱\x{17B4}", %p)}, undef, "to_ascii\(\'𝟠\≮\\u200C｡\󠅱\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3866\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟠<\x{0338}\x{200C}｡󠅱\x{17B4}", %p)}, undef, "to_ascii\(\'𝟠\<\\u0338\\u200C｡\󠅱\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3868\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8≮\x{200C}。󠅱\x{17B4}", %p)}, undef, "to_ascii\(\'8\≮\\u200C\。\󠅱\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3870\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8<\x{0338}\x{200C}。󠅱\x{17B4}", %p)}, undef, "to_ascii\(\'8\<\\u0338\\u200C\。\󠅱\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3872\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢕ≯︒񄂯．Ⴀ", %p)}, undef, "to_ascii\(\'ᢕ\≯︒\?．Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3874\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢕ>\x{0338}︒񄂯．Ⴀ", %p)}, undef, "to_ascii\(\'ᢕ\>\\u0338︒\?．Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3875\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢕ≯。񄂯.Ⴀ", %p)}, undef, "to_ascii\(\'ᢕ\≯\。\?\.Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3876\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢕ>\x{0338}。񄂯.Ⴀ", %p)}, undef, "to_ascii\(\'ᢕ\>\\u0338\。\?\.Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3877\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢕ>\x{0338}。񄂯.ⴀ", %p)}, undef, "to_ascii\(\'ᢕ\>\\u0338\。\?\.ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3878\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢕ≯。񄂯.ⴀ", %p)}, undef, "to_ascii\(\'ᢕ\≯\。\?\.ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3879\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢕ>\x{0338}︒񄂯．ⴀ", %p)}, undef, "to_ascii\(\'ᢕ\>\\u0338︒\?．ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3880\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢕ≯︒񄂯．ⴀ", %p)}, undef, "to_ascii\(\'ᢕ\≯︒\?．ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3881\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0F9F}．-\x{082A}", %p)}, undef, "to_ascii\(\'\\u0F9F．\-\\u082A\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3882\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0F9F}.-\x{082A}", %p)}, undef, "to_ascii\(\'\\u0F9F\.\-\\u082A\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3883\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ᵬ󠆠．핒⒒⒈􈄦", %p)}, undef, "to_ascii\(\'ᵬ\󠆠．핒⒒⒈\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3884\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᵬ󠆠．핒⒒⒈􈄦", %p)}, undef, "to_ascii\(\'ᵬ\󠆠．핒⒒⒈\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3885\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᵬ󠆠.핒11.1.􈄦", %p)}, undef, "to_ascii\(\'ᵬ\󠆠\.핒11\.1\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3886\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᵬ󠆠.핒11.1.􈄦", %p)}, undef, "to_ascii\(\'ᵬ\󠆠\.핒11\.1\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3887\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ς𑓂𐋢．\x{0668}", %p)}, undef, "to_ascii\(\'ς𑓂𐋢．\\u0668\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3888\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ς𑓂𐋢.\x{0668}", %p)}, undef, "to_ascii\(\'ς𑓂𐋢\.\\u0668\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3889\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ𑓂𐋢.\x{0668}", %p)}, undef, "to_ascii\(\'Σ𑓂𐋢\.\\u0668\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3890\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σ𑓂𐋢.\x{0668}", %p)}, undef, "to_ascii\(\'σ𑓂𐋢\.\\u0668\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3891\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ𑓂𐋢．\x{0668}", %p)}, undef, "to_ascii\(\'Σ𑓂𐋢．\\u0668\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3892\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σ𑓂𐋢．\x{0668}", %p)}, undef, "to_ascii\(\'σ𑓂𐋢．\\u0668\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3893\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{A953}\x{200C}𐋻\x{200D}.\x{2DF8}𞿄𐹲", %p)}, undef, "to_ascii\(\'\\uA953\\u200C𐋻\\u200D\.\\u2DF8\?𐹲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3894\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⊼。񪧖\x{0695}", %p)}, undef, "to_ascii\(\'\⊼\。\?\\u0695\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3896\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐯬񖋔。󜳥", %p)}, undef, "to_ascii\(\'\?\?\。\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3897\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0601}𑍧\x{07DD}。ς򬍘🀞\x{17B5}", %p)}, undef, "to_ascii\(\'\\u0601𑍧\\u07DD\。ς\?🀞\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3898\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0601}𑍧\x{07DD}。Σ򬍘🀞\x{17B5}", %p)}, undef, "to_ascii\(\'\\u0601𑍧\\u07DD\。Σ\?🀞\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3899\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0601}𑍧\x{07DD}。σ򬍘🀞\x{17B5}", %p)}, undef, "to_ascii\(\'\\u0601𑍧\\u07DD\。σ\?🀞\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3900\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𐳲\x{0646}󠺐。\x{ABED}𝟥", %p)}, undef, "to_ascii\(\'\-𐳲\\u0646\?\。\\uABED𝟥\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3901\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𐳲\x{0646}󠺐。\x{ABED}3", %p)}, undef, "to_ascii\(\'\-𐳲\\u0646\?\。\\uABED3\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3902\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𐲲\x{0646}󠺐。\x{ABED}3", %p)}, undef, "to_ascii\(\'\-𐲲\\u0646\?\。\\uABED3\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3903\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𐲲\x{0646}󠺐。\x{ABED}𝟥", %p)}, undef, "to_ascii\(\'\-𐲲\\u0646\?\。\\uABED𝟥\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3904\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠴦｡񲨕≮𐦜", %p)}, undef, "to_ascii\(\'\\u200C\?｡\?\≮𐦜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3905\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠴦｡񲨕<\x{0338}𐦜", %p)}, undef, "to_ascii\(\'\\u200C\?｡\?\<\\u0338𐦜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3907\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠴦。񲨕≮𐦜", %p)}, undef, "to_ascii\(\'\\u200C\?\。\?\≮𐦜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3909\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠴦。񲨕<\x{0338}𐦜", %p)}, undef, "to_ascii\(\'\\u200C\?\。\?\<\\u0338𐦜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3911\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈✌򟬟．𝟡񠱣", %p)}, undef, "to_ascii\(\'⒈\✌\?．𝟡\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3913\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.✌򟬟.9񠱣", %p)}, undef, "to_ascii\(\'1\.\✌\?\.9\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3914\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𑆾𞤬𐮆.\x{0666}\x{1DD4}", %p)}, undef, "to_ascii\(\'𑆾\?𐮆\.\\u0666\\u1DD4\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3915\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ς．\x{A9C0}\x{A8C4}", %p)}, undef, "to_ascii\(\'ς．\\uA9C0\\uA8C4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3916\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ς.\x{A9C0}\x{A8C4}", %p)}, undef, "to_ascii\(\'ς\.\\uA9C0\\uA8C4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3917\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("Σ.\x{A9C0}\x{A8C4}", %p)}, undef, "to_ascii\(\'Σ\.\\uA9C0\\uA8C4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3918\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("σ.\x{A9C0}\x{A8C4}", %p)}, undef, "to_ascii\(\'σ\.\\uA9C0\\uA8C4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3919\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("Σ．\x{A9C0}\x{A8C4}", %p)}, undef, "to_ascii\(\'Σ．\\uA9C0\\uA8C4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3920\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("σ．\x{A9C0}\x{A8C4}", %p)}, undef, "to_ascii\(\'σ．\\uA9C0\\uA8C4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3921\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𑰶\x{200C}≯𐳐．\x{085B}", %p)}, undef, "to_ascii\(\'\?\\u200C\≯𐳐．\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3922\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰶\x{200C}>\x{0338}𐳐．\x{085B}", %p)}, undef, "to_ascii\(\'\?\\u200C\>\\u0338𐳐．\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3924\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰶\x{200C}≯𐳐.\x{085B}", %p)}, undef, "to_ascii\(\'\?\\u200C\≯𐳐\.\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3926\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰶\x{200C}>\x{0338}𐳐.\x{085B}", %p)}, undef, "to_ascii\(\'\?\\u200C\>\\u0338𐳐\.\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3928\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰶\x{200C}>\x{0338}𐲐.\x{085B}", %p)}, undef, "to_ascii\(\'\?\\u200C\>\\u0338𐲐\.\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3930\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰶\x{200C}≯𐲐.\x{085B}", %p)}, undef, "to_ascii\(\'\?\\u200C\≯𐲐\.\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3932\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰶\x{200C}>\x{0338}𐲐．\x{085B}", %p)}, undef, "to_ascii\(\'\?\\u200C\>\\u0338𐲐．\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3934\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰶\x{200C}≯𐲐．\x{085B}", %p)}, undef, "to_ascii\(\'\?\\u200C\≯𐲐．\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3936\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("羚｡≯", %p)}, undef, "to_ascii\(\'羚｡\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3938\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("羚｡>\x{0338}", %p)}, undef, "to_ascii\(\'羚｡\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3939\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("羚。≯", %p)}, undef, "to_ascii\(\'羚\。\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3940\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("羚。>\x{0338}", %p)}, undef, "to_ascii\(\'羚\。\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3941\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑓂\x{1759}．\x{08A8}", %p)}, undef, "to_ascii\(\'𑓂\\u1759．\\u08A8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3942\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑓂\x{1759}.\x{08A8}", %p)}, undef, "to_ascii\(\'𑓂\\u1759\.\\u08A8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3943\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󨣿󠇀\x{200D}｡\x{0663}ҠჀ𝟑", %p)}, undef, "to_ascii\(\'\?\󠇀\\u200D｡\\u0663ҠჀ𝟑\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3944\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󨣿󠇀\x{200D}。\x{0663}ҠჀ3", %p)}, undef, "to_ascii\(\'\?\󠇀\\u200D\。\\u0663ҠჀ3\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3946\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󨣿󠇀\x{200D}。\x{0663}ҡⴠ3", %p)}, undef, "to_ascii\(\'\?\󠇀\\u200D\。\\u0663ҡⴠ3\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3948\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󨣿󠇀\x{200D}。\x{0663}Ҡⴠ3", %p)}, undef, "to_ascii\(\'\?\󠇀\\u200D\。\\u0663Ҡⴠ3\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3950\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󨣿󠇀\x{200D}｡\x{0663}ҡⴠ𝟑", %p)}, undef, "to_ascii\(\'\?\󠇀\\u200D｡\\u0663ҡⴠ𝟑\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3952\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󨣿󠇀\x{200D}｡\x{0663}Ҡⴠ𝟑", %p)}, undef, "to_ascii\(\'\?\󠇀\\u200D｡\\u0663Ҡⴠ𝟑\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3954\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ᡷ。𐹢\x{08E0}", %p)}, undef, "to_ascii\(\'ᡷ\。𐹢\\u08E0\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3956\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򕮇\x{1BF3}｡\x{0666}񗜼\x{17D2}ß", %p)}, undef, "to_ascii\(\'\?\\u1BF3｡\\u0666\?\\u17D2ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3957\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򕮇\x{1BF3}。\x{0666}񗜼\x{17D2}ß", %p)}, undef, "to_ascii\(\'\?\\u1BF3\。\\u0666\?\\u17D2ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3958\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򕮇\x{1BF3}。\x{0666}񗜼\x{17D2}SS", %p)}, undef, "to_ascii\(\'\?\\u1BF3\。\\u0666\?\\u17D2SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3959\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򕮇\x{1BF3}。\x{0666}񗜼\x{17D2}ss", %p)}, undef, "to_ascii\(\'\?\\u1BF3\。\\u0666\?\\u17D2ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3960\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򕮇\x{1BF3}。\x{0666}񗜼\x{17D2}Ss", %p)}, undef, "to_ascii\(\'\?\\u1BF3\。\\u0666\?\\u17D2Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3961\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򕮇\x{1BF3}｡\x{0666}񗜼\x{17D2}SS", %p)}, undef, "to_ascii\(\'\?\\u1BF3｡\\u0666\?\\u17D2SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3962\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򕮇\x{1BF3}｡\x{0666}񗜼\x{17D2}ss", %p)}, undef, "to_ascii\(\'\?\\u1BF3｡\\u0666\?\\u17D2ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3963\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򕮇\x{1BF3}｡\x{0666}񗜼\x{17D2}Ss", %p)}, undef, "to_ascii\(\'\?\\u1BF3｡\\u0666\?\\u17D2Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3964\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0664}򤽎𑲛.󠔢︒≠", %p)}, undef, "to_ascii\(\'\\u0664\?\?\.\?︒\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3965\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0664}򤽎𑲛.󠔢︒=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0664\?\?\.\?︒\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3966\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0664}򤽎𑲛.󠔢。≠", %p)}, undef, "to_ascii\(\'\\u0664\?\?\.\?\。\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3967\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0664}򤽎𑲛.󠔢。=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0664\?\?\.\?\。\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3968\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("➆񷧕ỗ⒈．򑬒񡘮\x{085B}𝟫", %p)}, undef, "to_ascii\(\'➆\?ỗ⒈．\?\?\\u085B𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3969\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("➆񷧕o\x{0302}\x{0303}⒈．򑬒񡘮\x{085B}𝟫", %p)}, undef, "to_ascii\(\'➆\?o\\u0302\\u0303⒈．\?\?\\u085B𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3970\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("➆񷧕ỗ1..򑬒񡘮\x{085B}9", %p)}, undef, "to_ascii\(\'➆\?ỗ1\.\.\?\?\\u085B9\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3971\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("➆񷧕o\x{0302}\x{0303}1..򑬒񡘮\x{085B}9", %p)}, undef, "to_ascii\(\'➆\?o\\u0302\\u03031\.\.\?\?\\u085B9\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3972\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("➆񷧕O\x{0302}\x{0303}1..򑬒񡘮\x{085B}9", %p)}, undef, "to_ascii\(\'➆\?O\\u0302\\u03031\.\.\?\?\\u085B9\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3973\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("➆񷧕Ỗ1..򑬒񡘮\x{085B}9", %p)}, undef, "to_ascii\(\'➆\?Ỗ1\.\.\?\?\\u085B9\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3974\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("➆񷧕O\x{0302}\x{0303}⒈．򑬒񡘮\x{085B}𝟫", %p)}, undef, "to_ascii\(\'➆\?O\\u0302\\u0303⒈．\?\?\\u085B𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3975\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("➆񷧕Ỗ⒈．򑬒񡘮\x{085B}𝟫", %p)}, undef, "to_ascii\(\'➆\?Ỗ⒈．\?\?\\u085B𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3976\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{200D}｡𞤘", %p)}, "xn--ye6h", "to_ascii\(\'\\u200D｡\?\'\)\ \[data\/IdnaTest\.txt\:3977\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{200D}。𞤘", %p)}, "xn--ye6h", "to_ascii\(\'\\u200D\。\?\'\)\ \[data\/IdnaTest\.txt\:3979\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--ye6h", %p)}, "xn--ye6h", "to_ascii\(\'xn\-\-ye6h\'\)\ \[data\/IdnaTest\.txt\:3981\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤺", %p)}, "xn--ye6h", "to_ascii\(\'\?\'\)\ \[data\/IdnaTest\.txt\:3982\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0829}\x{0724}.ᢣ", %p)}, undef, "to_ascii\(\'\\u0829\\u0724\.ᢣ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3983\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{073C}\x{200C}-。𓐾ß", %p)}, undef, "to_ascii\(\'\\u073C\\u200C\-\。\?ß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3984\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{073C}\x{200C}-。𓐾SS", %p)}, undef, "to_ascii\(\'\\u073C\\u200C\-\。\?SS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3986\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{073C}\x{200C}-。𓐾ss", %p)}, undef, "to_ascii\(\'\\u073C\\u200C\-\。\?ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3988\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{073C}\x{200C}-。𓐾Ss", %p)}, undef, "to_ascii\(\'\\u073C\\u200C\-\。\?Ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3990\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ς🃡⒗.\x{0CC6}仧\x{0756}", %p)}, undef, "to_ascii\(\'\\u200Cς🃡⒗\.\\u0CC6仧\\u0756\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3992\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}ς🃡16..\x{0CC6}仧\x{0756}", %p)}, undef, "to_ascii\(\'\\u200Cς🃡16\.\.\\u0CC6仧\\u0756\'\)\ throws\ error\ V5\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:3994\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}Σ🃡16..\x{0CC6}仧\x{0756}", %p)}, undef, "to_ascii\(\'\\u200CΣ🃡16\.\.\\u0CC6仧\\u0756\'\)\ throws\ error\ V5\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:3996\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}σ🃡16..\x{0CC6}仧\x{0756}", %p)}, undef, "to_ascii\(\'\\u200Cσ🃡16\.\.\\u0CC6仧\\u0756\'\)\ throws\ error\ V5\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:3998\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}Σ🃡⒗.\x{0CC6}仧\x{0756}", %p)}, undef, "to_ascii\(\'\\u200CΣ🃡⒗\.\\u0CC6仧\\u0756\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4000\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}σ🃡⒗.\x{0CC6}仧\x{0756}", %p)}, undef, "to_ascii\(\'\\u200Cσ🃡⒗\.\\u0CC6仧\\u0756\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4002\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("-.𞸚", %p)}, undef, "to_ascii\(\'\-\.𞸚\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4004\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-.\x{0638}", %p)}, undef, "to_ascii\(\'\-\.\\u0638\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4005\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򏛓\x{0683}.\x{0F7E}\x{0634}", %p)}, undef, "to_ascii\(\'\?\\u0683\.\\u0F7E\\u0634\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4006\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0FE6}\x{0843}񽶬.𐮏", %p)}, undef, "to_ascii\(\'\\u0FE6\\u0843\?\.𐮏\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4007\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("2񎨠\x{07CB}ß。ᠽ", %p)}, undef, "to_ascii\(\'2\?\\u07CBß\。ᠽ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4008\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("2񎨠\x{07CB}SS。ᠽ", %p)}, undef, "to_ascii\(\'2\?\\u07CBSS\。ᠽ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4009\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("2񎨠\x{07CB}ss。ᠽ", %p)}, undef, "to_ascii\(\'2\?\\u07CBss\。ᠽ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4010\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("2񎨠\x{07CB}Ss。ᠽ", %p)}, undef, "to_ascii\(\'2\?\\u07CBSs\。ᠽ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4011\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}≮．\x{06CE}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\≮．\\u06CEß\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4012\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}<\x{0338}．\x{06CE}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\<\\u0338．\\u06CEß\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4014\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}≮.\x{06CE}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\≮\.\\u06CEß\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4016\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}<\x{0338}.\x{06CE}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\<\\u0338\.\\u06CEß\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4018\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}<\x{0338}.\x{06CE}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\<\\u0338\.\\u06CESS\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4020\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}≮.\x{06CE}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\≮\.\\u06CESS\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4022\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}≮.\x{06CE}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\≮\.\\u06CEss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4024\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}<\x{0338}.\x{06CE}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\<\\u0338\.\\u06CEss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4026\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}<\x{0338}.\x{06CE}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\<\\u0338\.\\u06CESs\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4028\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}≮.\x{06CE}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\≮\.\\u06CESs\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4030\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}<\x{0338}．\x{06CE}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\<\\u0338．\\u06CESS\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4032\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}≮．\x{06CE}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\≮．\\u06CESS\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4034\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}≮．\x{06CE}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\≮．\\u06CEss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4036\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}<\x{0338}．\x{06CE}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\<\\u0338．\\u06CEss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4038\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}<\x{0338}．\x{06CE}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\<\\u0338．\\u06CESs\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4040\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}≮．\x{06CE}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\≮．\\u06CESs\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4042\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-򷝬\x{135E}𑜧.\x{1DEB}-︒", %p)}, undef, "to_ascii\(\'\-\?\\u135E𑜧\.\\u1DEB\-︒\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4044\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-򷝬\x{135E}𑜧.\x{1DEB}-。", %p)}, undef, "to_ascii\(\'\-\?\\u135E𑜧\.\\u1DEB\-\。\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4045\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒.򚠡\x{1A59}", %p)}, undef, "to_ascii\(\'︒\.\?\\u1A59\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4046\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。.򚠡\x{1A59}", %p)}, undef, "to_ascii\(\'\。\.\?\\u1A59\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4047\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{0323}\x{2DE1}。\x{200C}⓾\x{200C}\x{06B9}", %p)}, undef, "to_ascii\(\'\\u0323\\u2DE1\。\\u200C⓾\\u200C\\u06B9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4048\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞠶ᠴ\x{06DD}｡\x{1074}𞤵󠅦", %p)}, undef, "to_ascii\(\'𞠶ᠴ\\u06DD｡\\u1074\?\󠅦\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B1\ \[data\/IdnaTest\.txt\:4050\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞠶ᠴ\x{06DD}。\x{1074}𞤵󠅦", %p)}, undef, "to_ascii\(\'𞠶ᠴ\\u06DD\。\\u1074\?\󠅦\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B1\ \[data\/IdnaTest\.txt\:4051\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰺.-򑟏", %p)}, undef, "to_ascii\(\'\?\.\-\?\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:4052\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠻩．赏", %p)}, undef, "to_ascii\(\'\?．赏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4053\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠻩.赏", %p)}, undef, "to_ascii\(\'\?\.赏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4054\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06B0}ᠡ｡Ⴁ", %p)}, undef, "to_ascii\(\'\\u06B0ᠡ｡Ⴁ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4055\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06B0}ᠡ。Ⴁ", %p)}, undef, "to_ascii\(\'\\u06B0ᠡ\。Ⴁ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4056\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{06B0}ᠡ。ⴁ", %p)}, undef, "to_ascii\(\'\\u06B0ᠡ\。ⴁ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4057\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{06B0}ᠡ｡ⴁ", %p)}, undef, "to_ascii\(\'\\u06B0ᠡ｡ⴁ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4058\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{20DE}Ⴊ\x{06BB}ς｡-", %p)}, undef, "to_ascii\(\'\\u20DEႪ\\u06BBς｡\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4059\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{20DE}Ⴊ\x{06BB}ς。-", %p)}, undef, "to_ascii\(\'\\u20DEႪ\\u06BBς\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4060\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{20DE}ⴊ\x{06BB}ς。-", %p)}, undef, "to_ascii\(\'\\u20DEⴊ\\u06BBς\。\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4061\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{20DE}Ⴊ\x{06BB}Σ。-", %p)}, undef, "to_ascii\(\'\\u20DEႪ\\u06BBΣ\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4062\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{20DE}ⴊ\x{06BB}σ。-", %p)}, undef, "to_ascii\(\'\\u20DEⴊ\\u06BBσ\。\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4063\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{20DE}Ⴊ\x{06BB}σ。-", %p)}, undef, "to_ascii\(\'\\u20DEႪ\\u06BBσ\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4064\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{20DE}ⴊ\x{06BB}ς｡-", %p)}, undef, "to_ascii\(\'\\u20DEⴊ\\u06BBς｡\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4065\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{20DE}Ⴊ\x{06BB}Σ｡-", %p)}, undef, "to_ascii\(\'\\u20DEႪ\\u06BBΣ｡\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4066\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{20DE}ⴊ\x{06BB}σ｡-", %p)}, undef, "to_ascii\(\'\\u20DEⴊ\\u06BBσ｡\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4067\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{20DE}Ⴊ\x{06BB}σ｡-", %p)}, undef, "to_ascii\(\'\\u20DEႪ\\u06BBσ｡\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4068\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴍ．񍇦\x{200C}", %p)}, undef, "to_ascii\(\'Ⴍ．\?\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4069\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴍ.񍇦\x{200C}", %p)}, undef, "to_ascii\(\'Ⴍ\.\?\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4071\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴍ.񍇦\x{200C}", %p)}, undef, "to_ascii\(\'ⴍ\.\?\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4073\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴍ．񍇦\x{200C}", %p)}, undef, "to_ascii\(\'ⴍ．\?\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4075\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򉟂󠵣.𐫫\x{1A60}󴺖\x{1B44}", %p)}, undef, "to_ascii\(\'\?\?\.𐫫\\u1A60\?\\u1B44\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4077\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯❊ᠯ｡𐹱⺨", %p)}, undef, "to_ascii\(\'\≯\❊ᠯ｡𐹱⺨\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4078\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}❊ᠯ｡𐹱⺨", %p)}, undef, "to_ascii\(\'\>\\u0338\❊ᠯ｡𐹱⺨\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4079\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯❊ᠯ。𐹱⺨", %p)}, undef, "to_ascii\(\'\≯\❊ᠯ\。𐹱⺨\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4080\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}❊ᠯ。𐹱⺨", %p)}, undef, "to_ascii\(\'\>\\u0338\❊ᠯ\。𐹱⺨\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4081\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("􁕜𐹧𞭁𐹩。Ⴈ𐫮Ⴏ", %p)}, undef, "to_ascii\(\'\?𐹧\?𐹩\。Ⴈ𐫮Ⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4082\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("􁕜𐹧𞭁𐹩。ⴈ𐫮ⴏ", %p)}, undef, "to_ascii\(\'\?𐹧\?𐹩\。ⴈ𐫮ⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4083\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𞠂。\x{A926}", %p)}, undef, "to_ascii\(\'𞠂\。\\uA926\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4084\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𝟔𐹫．\x{0733}\x{1037}９ꡇ", %p)}, undef, "to_ascii\(\'𝟔𐹫．\\u0733\\u1037９ꡇ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4085\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𝟔𐹫．\x{1037}\x{0733}９ꡇ", %p)}, undef, "to_ascii\(\'𝟔𐹫．\\u1037\\u0733９ꡇ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4086\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("6𐹫.\x{1037}\x{0733}9ꡇ", %p)}, undef, "to_ascii\(\'6𐹫\.\\u1037\\u07339ꡇ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4087\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0724}\x{0603}𞲶．\x{06D8}", %p)}, undef, "to_ascii\(\'\\u0724\\u0603\?．\\u06D8\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4088\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0724}\x{0603}𞲶.\x{06D8}", %p)}, undef, "to_ascii\(\'\\u0724\\u0603\?\.\\u06D8\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4089\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("✆񱔩ꡋ．\x{0632}\x{200D}𞣴", %p)}, undef, "to_ascii\(\'\✆\?ꡋ．\\u0632\\u200D\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4090\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("✆񱔩ꡋ.\x{0632}\x{200D}𞣴", %p)}, undef, "to_ascii\(\'\✆\?ꡋ\.\\u0632\\u200D\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4092\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0845}񃾰𞸍-．≠򃁟𑋪", %p)}, undef, "to_ascii\(\'\\u0845\?𞸍\-．\≠\?𑋪\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4094\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0845}񃾰𞸍-．=\x{0338}򃁟𑋪", %p)}, undef, "to_ascii\(\'\\u0845\?𞸍\-．\=\\u0338\?𑋪\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4095\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0845}񃾰\x{0646}-.≠򃁟𑋪", %p)}, undef, "to_ascii\(\'\\u0845\?\\u0646\-\.\≠\?𑋪\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4096\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0845}񃾰\x{0646}-.=\x{0338}򃁟𑋪", %p)}, undef, "to_ascii\(\'\\u0845\?\\u0646\-\.\=\\u0338\?𑋪\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4097\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟛．笠", %p)}, "3.xn--6vz", "to_ascii\(\'𝟛．笠\'\)\ \[data\/IdnaTest\.txt\:4098\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟛．笠", %p)}, "3.xn--6vz", "to_ascii\(\'𝟛．笠\'\)\ \[data\/IdnaTest\.txt\:4099\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("3.笠", %p)}, "3.xn--6vz", "to_ascii\(\'3\.笠\'\)\ \[data\/IdnaTest\.txt\:4100\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("3.xn--6vz", %p)}, "3.xn--6vz", "to_ascii\(\'3\.xn\-\-6vz\'\)\ \[data\/IdnaTest\.txt\:4101\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{200D}.Ⴞ𐋷", %p)}, undef, "to_ascii\(\'\-\\u200D\.Ⴞ𐋷\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4102\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-\x{200D}.ⴞ𐋷", %p)}, undef, "to_ascii\(\'\-\\u200D\.ⴞ𐋷\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4104\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}ςß\x{0731}．\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200Dςß\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4106\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}ςß\x{0731}.\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200Dςß\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4108\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}ΣSS\x{0731}.\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200DΣSS\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4110\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}σss\x{0731}.\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200Dσss\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4112\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}Σss\x{0731}.\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200DΣss\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4114\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}Σß\x{0731}.\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200DΣß\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4116\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}σß\x{0731}.\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200Dσß\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4118\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}ΣSS\x{0731}．\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200DΣSS\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4120\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}σss\x{0731}．\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200Dσss\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4122\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}Σss\x{0731}．\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200DΣss\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4124\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}Σß\x{0731}．\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200DΣß\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4126\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}σß\x{0731}．\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200Dσß\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4128\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠．\x{200D}", %p)}, undef, "to_ascii\(\'\≠．\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4130\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}．\x{200D}", %p)}, undef, "to_ascii\(\'\=\\u0338．\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4132\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠.\x{200D}", %p)}, undef, "to_ascii\(\'\≠\.\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4134\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}.\x{200D}", %p)}, undef, "to_ascii\(\'\=\\u0338\.\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4136\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FC01}｡\x{0C81}ᠼ▗򒁋", %p)}, undef, "to_ascii\(\'\\uFC01｡\\u0C81ᠼ\▗\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4138\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0626}\x{062D}。\x{0C81}ᠼ▗򒁋", %p)}, undef, "to_ascii\(\'\\u0626\\u062D\。\\u0C81ᠼ\▗\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4139\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{064A}\x{0654}\x{062D}。\x{0C81}ᠼ▗򒁋", %p)}, undef, "to_ascii\(\'\\u064A\\u0654\\u062D\。\\u0C81ᠼ\▗\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4140\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}ς．ς𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDς．ς𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4141\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}ς.ς𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDς\.ς𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4142\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}Σ.Σ𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDΣ\.Σ𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4143\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}σ.ς𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDσ\.ς𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4144\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}σ.σ𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDσ\.σ𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4145\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}Σ.σ𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDΣ\.σ𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4146\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}Σ.ς𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDΣ\.ς𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4147\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}Σ．Σ𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDΣ．Σ𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4148\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}σ．ς𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDσ．ς𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4149\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}σ．σ𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDσ．σ𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4150\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}Σ．σ𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDΣ．σ𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4151\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}Σ．ς𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDΣ．ς𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4152\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫓\x{07D8}牅\x{08F8}｡𞦤\x{1A17}򱍰Ⴙ", %p)}, undef, "to_ascii\(\'𐫓\\u07D8牅\\u08F8｡\?\\u1A17\?Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4153\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫓\x{07D8}牅\x{08F8}。𞦤\x{1A17}򱍰Ⴙ", %p)}, undef, "to_ascii\(\'𐫓\\u07D8牅\\u08F8\。\?\\u1A17\?Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4154\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫓\x{07D8}牅\x{08F8}。𞦤\x{1A17}򱍰ⴙ", %p)}, undef, "to_ascii\(\'𐫓\\u07D8牅\\u08F8\。\?\\u1A17\?ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4155\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫓\x{07D8}牅\x{08F8}｡𞦤\x{1A17}򱍰ⴙ", %p)}, undef, "to_ascii\(\'𐫓\\u07D8牅\\u08F8｡\?\\u1A17\?ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4156\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񣤒｡륧", %p)}, undef, "to_ascii\(\'\?｡륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4157\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񣤒｡륧", %p)}, undef, "to_ascii\(\'\?｡륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4158\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񣤒。륧", %p)}, undef, "to_ascii\(\'\?\。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4159\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񣤒。륧", %p)}, undef, "to_ascii\(\'\?\。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4160\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹷\x{200D}。󉵢", %p)}, undef, "to_ascii\(\'𐹷\\u200D\。\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4161\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴘ\x{06C2}𑲭｡-", %p)}, undef, "to_ascii\(\'Ⴘ\\u06C2\?｡\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4163\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴘ\x{06C1}\x{0654}𑲭｡-", %p)}, undef, "to_ascii\(\'Ⴘ\\u06C1\\u0654\?｡\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4164\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴘ\x{06C2}𑲭。-", %p)}, undef, "to_ascii\(\'Ⴘ\\u06C2\?\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4165\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴘ\x{06C1}\x{0654}𑲭。-", %p)}, undef, "to_ascii\(\'Ⴘ\\u06C1\\u0654\?\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4166\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ⴘ\x{06C1}\x{0654}𑲭。-", %p)}, undef, "to_ascii\(\'ⴘ\\u06C1\\u0654\?\。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4167\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ⴘ\x{06C2}𑲭。-", %p)}, undef, "to_ascii\(\'ⴘ\\u06C2\?\。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4168\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ⴘ\x{06C1}\x{0654}𑲭｡-", %p)}, undef, "to_ascii\(\'ⴘ\\u06C1\\u0654\?｡\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4169\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ⴘ\x{06C2}𑲭｡-", %p)}, undef, "to_ascii\(\'ⴘ\\u06C2\?｡\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4170\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{A806}\x{067B}₆ᡐ。🛇\x{FCDD}", %p)}, undef, "to_ascii\(\'\\uA806\\u067B₆ᡐ\。🛇\\uFCDD\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4171\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{A806}\x{067B}6ᡐ。🛇\x{064A}\x{0645}", %p)}, undef, "to_ascii\(\'\\uA806\\u067B6ᡐ\。🛇\\u064A\\u0645\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4172\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򸍂.㇄ᡟ𐫂\x{0622}", %p)}, undef, "to_ascii\(\'\?\.㇄ᡟ𐫂\\u0622\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4173\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򸍂.㇄ᡟ𐫂\x{0627}\x{0653}", %p)}, undef, "to_ascii\(\'\?\.㇄ᡟ𐫂\\u0627\\u0653\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4174\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07DF}򵚌。-\x{07E9}", %p)}, undef, "to_ascii\(\'\\u07DF\?\。\-\\u07E9\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4175\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς\x{0643}⾑．\x{200C}ᢟ\x{200C}⒈", %p)}, undef, "to_ascii\(\'ς\\u0643⾑．\\u200Cᢟ\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4176\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς\x{0643}襾.\x{200C}ᢟ\x{200C}1.", %p)}, undef, "to_ascii\(\'ς\\u0643襾\.\\u200Cᢟ\\u200C1\.\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4178\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ\x{0643}襾.\x{200C}ᢟ\x{200C}1.", %p)}, undef, "to_ascii\(\'Σ\\u0643襾\.\\u200Cᢟ\\u200C1\.\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4180\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ\x{0643}襾.\x{200C}ᢟ\x{200C}1.", %p)}, undef, "to_ascii\(\'σ\\u0643襾\.\\u200Cᢟ\\u200C1\.\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4182\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ\x{0643}⾑．\x{200C}ᢟ\x{200C}⒈", %p)}, undef, "to_ascii\(\'Σ\\u0643⾑．\\u200Cᢟ\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4184\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ\x{0643}⾑．\x{200C}ᢟ\x{200C}⒈", %p)}, undef, "to_ascii\(\'σ\\u0643⾑．\\u200Cᢟ\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4186\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡆ𑓝．𞵆", %p)}, undef, "to_ascii\(\'ᡆ\?．\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4188\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡆ𑓝.𞵆", %p)}, undef, "to_ascii\(\'ᡆ\?\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4189\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0A4D}𦍓\x{1DEE}｡\x{200C}\x{08BD}񝹲", %p)}, undef, "to_ascii\(\'\\u0A4D𦍓\\u1DEE｡\\u200C\\u08BD\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4190\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0A4D}𦍓\x{1DEE}。\x{200C}\x{08BD}񝹲", %p)}, undef, "to_ascii\(\'\\u0A4D𦍓\\u1DEE\。\\u200C\\u08BD\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4192\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{062E}\x{0748}񅪪-．\x{200C}먿", %p)}, undef, "to_ascii\(\'\\u062E\\u0748\?\-．\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4194\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{062E}\x{0748}񅪪-．\x{200C}먿", %p)}, undef, "to_ascii\(\'\\u062E\\u0748\?\-．\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4196\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{062E}\x{0748}񅪪-.\x{200C}먿", %p)}, undef, "to_ascii\(\'\\u062E\\u0748\?\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4198\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{062E}\x{0748}񅪪-.\x{200C}먿", %p)}, undef, "to_ascii\(\'\\u062E\\u0748\?\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4200\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("􋿦｡ᠽ", %p)}, undef, "to_ascii\(\'\?｡ᠽ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4202\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("􋿦。ᠽ", %p)}, undef, "to_ascii\(\'\?\。ᠽ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4203\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("嬃𝍌．\x{200D}\x{0B44}", %p)}, undef, "to_ascii\(\'嬃𝍌．\\u200D\\u0B44\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4204\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("嬃𝍌.\x{200D}\x{0B44}", %p)}, undef, "to_ascii\(\'嬃𝍌\.\\u200D\\u0B44\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4206\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0602}𝌪≯．𚋲򵁨", %p)}, undef, "to_ascii\(\'\\u0602𝌪\≯．\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4208\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0602}𝌪>\x{0338}．𚋲򵁨", %p)}, undef, "to_ascii\(\'\\u0602𝌪\>\\u0338．\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4209\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0602}𝌪≯.𚋲򵁨", %p)}, undef, "to_ascii\(\'\\u0602𝌪\≯\.\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4210\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0602}𝌪>\x{0338}.𚋲򵁨", %p)}, undef, "to_ascii\(\'\\u0602𝌪\>\\u0338\.\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4211\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򫾥\x{08B7}\x{17CC}\x{A9C0}.𞼠", %p)}, undef, "to_ascii\(\'\?\\u08B7\\u17CC\\uA9C0\.\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4212\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.񟛤", %p)}, undef, "to_ascii\(\'\\u200C\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4213\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򺛕Ⴃ䠅．𐸑", %p)}, undef, "to_ascii\(\'\?Ⴃ䠅．\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4215\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򺛕Ⴃ䠅.𐸑", %p)}, undef, "to_ascii\(\'\?Ⴃ䠅\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4216\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򺛕ⴃ䠅.𐸑", %p)}, undef, "to_ascii\(\'\?ⴃ䠅\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4217\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򺛕ⴃ䠅．𐸑", %p)}, undef, "to_ascii\(\'\?ⴃ䠅．\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4218\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF1}𐹳𐹵𞤚｡𝟨Ⴅ", %p)}, undef, "to_ascii\(\'\\u1BF1𐹳𐹵\?｡𝟨Ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4219\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF1}𐹳𐹵𞤚。6Ⴅ", %p)}, undef, "to_ascii\(\'\\u1BF1𐹳𐹵\?\。6Ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4220\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{1BF1}𐹳𐹵𞤚。6ⴅ", %p)}, undef, "to_ascii\(\'\\u1BF1𐹳𐹵\?\。6ⴅ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4221\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{1BF1}𐹳𐹵𞤚｡𝟨ⴅ", %p)}, undef, "to_ascii\(\'\\u1BF1𐹳𐹵\?｡𝟨ⴅ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4222\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-｡︒", %p)}, undef, "to_ascii\(\'\-｡︒\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4223\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-。。", %p)}, undef, "to_ascii\(\'\-\。\。\'\)\ throws\ error\ V3\ A4_2\ \[data\/IdnaTest\.txt\:4224\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07DB}Ⴠ｡-⁵--", %p)}, undef, "to_ascii\(\'\\u07DBჀ｡\-⁵\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4225\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07DB}Ⴠ。-5--", %p)}, undef, "to_ascii\(\'\\u07DBჀ\。\-5\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4226\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{07DB}ⴠ。-5--", %p)}, undef, "to_ascii\(\'\\u07DBⴠ\。\-5\-\-\'\)\ throws\ error\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4227\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{07DB}ⴠ｡-⁵--", %p)}, undef, "to_ascii\(\'\\u07DBⴠ｡\-⁵\-\-\'\)\ throws\ error\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4228\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("≯\x{D8DD}󠑕｡𐹷𐹻≯𐷒", %p)}, undef, "to_ascii\(\'\≯\\uD8DD\?｡𐹷𐹻\≯\?\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4229\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}\x{D8DD}󠑕｡𐹷𐹻>\x{0338}𐷒", %p)}, undef, "to_ascii\(\'\>\\u0338\\uD8DD\?｡𐹷𐹻\>\\u0338\?\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4230\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯\x{D8DD}󠑕。𐹷𐹻≯𐷒", %p)}, undef, "to_ascii\(\'\≯\\uD8DD\?\。𐹷𐹻\≯\?\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4231\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}\x{D8DD}󠑕。𐹷𐹻>\x{0338}𐷒", %p)}, undef, "to_ascii\(\'\>\\u0338\\uD8DD\?\。𐹷𐹻\>\\u0338\?\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4232\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㍔\x{08E6}\x{077C}\x{200D}。\x{0346}򁳊𝅶\x{0604}", %p)}, undef, "to_ascii\(\'㍔\\u08E6\\u077C\\u200D\。\\u0346\?\?\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4233\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ルーブル\x{08E6}\x{077C}\x{200D}。\x{0346}򁳊𝅶\x{0604}", %p)}, undef, "to_ascii\(\'ルーブル\\u08E6\\u077C\\u200D\。\\u0346\?\?\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4235\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ルーフ\x{3099}ル\x{08E6}\x{077C}\x{200D}。\x{0346}򁳊𝅶\x{0604}", %p)}, undef, "to_ascii\(\'ルーフ\\u3099ル\\u08E6\\u077C\\u200D\。\\u0346\?\?\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4237\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}.F", %p)}, "f", "to_ascii\(\'\\u200D\.F\'\)\ \[data\/IdnaTest\.txt\:4239\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("f", %p)}, "f", "to_ascii\(\'f\'\)\ \[data\/IdnaTest\.txt\:4241\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}㨲｡ß", %p)}, "xn--9bm.ss", "to_ascii\(\'\\u200D㨲｡ß\'\)\ \[data\/IdnaTest\.txt\:4242\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}㨲。ß", %p)}, "xn--9bm.ss", "to_ascii\(\'\\u200D㨲\。ß\'\)\ \[data\/IdnaTest\.txt\:4244\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}㨲。SS", %p)}, "xn--9bm.ss", "to_ascii\(\'\\u200D㨲\。SS\'\)\ \[data\/IdnaTest\.txt\:4246\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--9bm.ss", %p)}, "xn--9bm.ss", "to_ascii\(\'xn\-\-9bm\.ss\'\)\ \[data\/IdnaTest\.txt\:4248\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㨲.ss", %p)}, "xn--9bm.ss", "to_ascii\(\'㨲\.ss\'\)\ \[data\/IdnaTest\.txt\:4249\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}㨲｡SS", %p)}, "xn--9bm.ss", "to_ascii\(\'\\u200D㨲｡SS\'\)\ \[data\/IdnaTest\.txt\:4250\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0605}\x{067E}｡\x{08A8}", %p)}, undef, "to_ascii\(\'\\u0605\\u067E｡\\u08A8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4252\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0605}\x{067E}。\x{08A8}", %p)}, undef, "to_ascii\(\'\\u0605\\u067E\。\\u08A8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4253\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("⾑\x{0753}𞤁。𐹵\x{0682}", %p)}, undef, "to_ascii\(\'⾑\\u0753\?\。𐹵\\u0682\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4254\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("襾\x{0753}𞤁。𐹵\x{0682}", %p)}, undef, "to_ascii\(\'襾\\u0753\?\。𐹵\\u0682\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4255\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񦴻ς-\x{20EB}｡\x{0754}-ꡛ", %p)}, undef, "to_ascii\(\'\?ς\-\\u20EB｡\\u0754\-ꡛ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4256\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񦴻ς-\x{20EB}。\x{0754}-ꡛ", %p)}, undef, "to_ascii\(\'\?ς\-\\u20EB\。\\u0754\-ꡛ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4257\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񦴻Σ-\x{20EB}。\x{0754}-ꡛ", %p)}, undef, "to_ascii\(\'\?Σ\-\\u20EB\。\\u0754\-ꡛ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4258\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񦴻σ-\x{20EB}。\x{0754}-ꡛ", %p)}, undef, "to_ascii\(\'\?σ\-\\u20EB\。\\u0754\-ꡛ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4259\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񦴻Σ-\x{20EB}｡\x{0754}-ꡛ", %p)}, undef, "to_ascii\(\'\?Σ\-\\u20EB｡\\u0754\-ꡛ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4260\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񦴻σ-\x{20EB}｡\x{0754}-ꡛ", %p)}, undef, "to_ascii\(\'\?σ\-\\u20EB｡\\u0754\-ꡛ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4261\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}．􀸨", %p)}, undef, "to_ascii\(\'\\u200D．\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4262\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}.􀸨", %p)}, undef, "to_ascii\(\'\\u200D\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4264\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񣭻񌥁｡≠𝟲", %p)}, undef, "to_ascii\(\'\?\?｡\≠𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4266\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񣭻񌥁｡=\x{0338}𝟲", %p)}, undef, "to_ascii\(\'\?\?｡\=\\u0338𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4267\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񣭻񌥁。≠6", %p)}, undef, "to_ascii\(\'\?\?\。\≠6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4268\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񣭻񌥁。=\x{0338}6", %p)}, undef, "to_ascii\(\'\?\?\。\=\\u03386\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4269\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅊ᡭ\x{200D}.𐥡", %p)}, undef, "to_ascii\(\'\󠅊ᡭ\\u200D\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4270\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0C40}\x{0855}𐥛𑄴．󭰵", %p)}, undef, "to_ascii\(\'\\u0C40\\u0855\?𑄴．\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4272\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0C40}\x{0855}𐥛𑄴.󭰵", %p)}, undef, "to_ascii\(\'\\u0C40\\u0855\?𑄴\.\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4273\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤮。𑇊\x{200C}≯\x{1CE6}", %p)}, undef, "to_ascii\(\'\?\。𑇊\\u200C\≯\\u1CE6\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4274\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤮。𑇊\x{200C}>\x{0338}\x{1CE6}", %p)}, undef, "to_ascii\(\'\?\。𑇊\\u200C\>\\u0338\\u1CE6\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4276\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄀𝟕.𞤌񛗓Ⴉ", %p)}, undef, "to_ascii\(\'\󠄀𝟕\.\?\?Ⴉ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4278\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄀7.𞤌񛗓Ⴉ", %p)}, undef, "to_ascii\(\'\󠄀7\.\?\?Ⴉ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4279\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄀7.𞤌񛗓ⴉ", %p)}, undef, "to_ascii\(\'\󠄀7\.\?\?ⴉ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4280\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄀𝟕.𞤌񛗓ⴉ", %p)}, undef, "to_ascii\(\'\󠄀𝟕\.\?\?ⴉ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4281\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("閃9𝩍。Ↄ\x{0669}\x{08B1}\x{0B4D}", %p)}, undef, "to_ascii\(\'閃9𝩍\。Ↄ\\u0669\\u08B1\\u0B4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4282\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("閃9𝩍。ↄ\x{0669}\x{08B1}\x{0B4D}", %p)}, undef, "to_ascii\(\'閃9𝩍\。ↄ\\u0669\\u08B1\\u0B4D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4283\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{AAF6}ᢏ\x{0E3A}２.𐋢\x{0745}\x{0F9F}︒", %p)}, undef, "to_ascii\(\'\\uAAF6ᢏ\\u0E3A２\.𐋢\\u0745\\u0F9F︒\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4284\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{AAF6}ᢏ\x{0E3A}2.𐋢\x{0745}\x{0F9F}。", %p)}, undef, "to_ascii\(\'\\uAAF6ᢏ\\u0E3A2\.𐋢\\u0745\\u0F9F\。\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4285\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󅴧｡≠-󠙄⾛", %p)}, undef, "to_ascii\(\'\?｡\≠\-\?⾛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4286\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󅴧｡=\x{0338}-󠙄⾛", %p)}, undef, "to_ascii\(\'\?｡\=\\u0338\-\?⾛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4287\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󅴧。≠-󠙄走", %p)}, undef, "to_ascii\(\'\?\。\≠\-\?走\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4288\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󅴧。=\x{0338}-󠙄走", %p)}, undef, "to_ascii\(\'\?\。\=\\u0338\-\?走\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4289\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{076E}\x{0604}Ⴊ。-≠\x{1160}", %p)}, undef, "to_ascii\(\'\\u076E\\u0604Ⴊ\。\-\≠\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4290\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{076E}\x{0604}Ⴊ。-=\x{0338}\x{1160}", %p)}, undef, "to_ascii\(\'\\u076E\\u0604Ⴊ\。\-\=\\u0338\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4291\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{076E}\x{0604}ⴊ。-=\x{0338}\x{1160}", %p)}, undef, "to_ascii\(\'\\u076E\\u0604ⴊ\。\-\=\\u0338\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4292\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{076E}\x{0604}ⴊ。-≠\x{1160}", %p)}, undef, "to_ascii\(\'\\u076E\\u0604ⴊ\。\-\≠\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4293\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FB4F}𐹧𝟒≯｡\x{200C}", %p)}, undef, "to_ascii\(\'\\uFB4F𐹧𝟒\≯｡\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ \[data\/IdnaTest\.txt\:4294\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FB4F}𐹧𝟒>\x{0338}｡\x{200C}", %p)}, undef, "to_ascii\(\'\\uFB4F𐹧𝟒\>\\u0338｡\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ \[data\/IdnaTest\.txt\:4296\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05D0}\x{05DC}𐹧4≯。\x{200C}", %p)}, undef, "to_ascii\(\'\\u05D0\\u05DC𐹧4\≯\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ \[data\/IdnaTest\.txt\:4298\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05D0}\x{05DC}𐹧4>\x{0338}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u05D0\\u05DC𐹧4\>\\u0338\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ \[data\/IdnaTest\.txt\:4300\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟎。甯", %p)}, "0.xn--qny", "to_ascii\(\'𝟎\。甯\'\)\ \[data\/IdnaTest\.txt\:4302\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0。甯", %p)}, "0.xn--qny", "to_ascii\(\'0\。甯\'\)\ \[data\/IdnaTest\.txt\:4303\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0.xn--qny", %p)}, "0.xn--qny", "to_ascii\(\'0\.xn\-\-qny\'\)\ \[data\/IdnaTest\.txt\:4304\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0.甯", %p)}, "0.xn--qny", "to_ascii\(\'0\.甯\'\)\ \[data\/IdnaTest\.txt\:4305\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("-⾆．\x{AAF6}", %p)}, undef, "to_ascii\(\'\-⾆．\\uAAF6\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4306\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("-舌.\x{AAF6}", %p)}, undef, "to_ascii\(\'\-舌\.\\uAAF6\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4307\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-｡ᢘ", %p)}, undef, "to_ascii\(\'\-｡ᢘ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4308\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-。ᢘ", %p)}, undef, "to_ascii\(\'\-\。ᢘ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4309\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🂴Ⴋ.≮", %p)}, undef, "to_ascii\(\'🂴Ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4310\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🂴Ⴋ.<\x{0338}", %p)}, undef, "to_ascii\(\'🂴Ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4311\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🂴ⴋ.<\x{0338}", %p)}, undef, "to_ascii\(\'🂴ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4312\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🂴ⴋ.≮", %p)}, undef, "to_ascii\(\'🂴ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4313\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("璼𝨭｡\x{200C}󠇟", %p)}, "xn--gky8837e.", "to_ascii\(\'璼𝨭｡\\u200C\󠇟\'\)\ \[data\/IdnaTest\.txt\:4314\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("璼𝨭。\x{200C}󠇟", %p)}, "xn--gky8837e.", "to_ascii\(\'璼𝨭\。\\u200C\󠇟\'\)\ \[data\/IdnaTest\.txt\:4316\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("xn--gky8837e.", %p)}, "xn--gky8837e.", "to_ascii\(\'xn\-\-gky8837e\.\'\)\ \[data\/IdnaTest\.txt\:4318\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("璼𝨭.", %p)}, "xn--gky8837e.", "to_ascii\(\'璼𝨭\.\'\)\ \[data\/IdnaTest\.txt\:4319\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0669}8񂍽｡-5🞥", %p)}, undef, "to_ascii\(\'\\u06698\?｡\-5🞥\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4320\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0669}8񂍽。-5🞥", %p)}, undef, "to_ascii\(\'\\u06698\?\。\-5🞥\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4321\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.\x{200C}", %p)}, undef, "to_ascii\(\'\\u200C\.\\u200C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:4322\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}튛.\x{0716}", %p)}, "xn--157b.xn--gnb", "to_ascii\(\'\\u200D튛\.\\u0716\'\)\ \[data\/IdnaTest\.txt\:4324\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}튛.\x{0716}", %p)}, "xn--157b.xn--gnb", "to_ascii\(\'\\u200D튛\.\\u0716\'\)\ \[data\/IdnaTest\.txt\:4326\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--157b.xn--gnb", %p)}, "xn--157b.xn--gnb", "to_ascii\(\'xn\-\-157b\.xn\-\-gnb\'\)\ \[data\/IdnaTest\.txt\:4328\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("튛.\x{0716}", %p)}, "xn--157b.xn--gnb", "to_ascii\(\'튛\.\\u0716\'\)\ \[data\/IdnaTest\.txt\:4329\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("튛.\x{0716}", %p)}, "xn--157b.xn--gnb", "to_ascii\(\'튛\.\\u0716\'\)\ \[data\/IdnaTest\.txt\:4330\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡋ𐹰𞽳.\x{0779}ⴞ", %p)}, undef, "to_ascii\(\'ᡋ𐹰\?\.\\u0779ⴞ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4331\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡋ𐹰𞽳.\x{0779}Ⴞ", %p)}, undef, "to_ascii\(\'ᡋ𐹰\?\.\\u0779Ⴞ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4332\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐷃\x{0662}𝅻𝟧．𐹮𐹬Ⴇ", %p)}, undef, "to_ascii\(\'\?\\u0662𝅻𝟧．𐹮𐹬Ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4333\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐷃\x{0662}𝅻5.𐹮𐹬Ⴇ", %p)}, undef, "to_ascii\(\'\?\\u0662𝅻5\.𐹮𐹬Ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4334\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐷃\x{0662}𝅻5.𐹮𐹬ⴇ", %p)}, undef, "to_ascii\(\'\?\\u0662𝅻5\.𐹮𐹬ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4335\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐷃\x{0662}𝅻𝟧．𐹮𐹬ⴇ", %p)}, undef, "to_ascii\(\'\?\\u0662𝅻𝟧．𐹮𐹬ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4336\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴗ．\x{05C2}𑄴\x{A9B7}񘃨", %p)}, undef, "to_ascii\(\'Ⴗ．\\u05C2𑄴\\uA9B7\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4337\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴗ．𑄴\x{05C2}\x{A9B7}񘃨", %p)}, undef, "to_ascii\(\'Ⴗ．𑄴\\u05C2\\uA9B7\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4338\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴗ.𑄴\x{05C2}\x{A9B7}񘃨", %p)}, undef, "to_ascii\(\'Ⴗ\.𑄴\\u05C2\\uA9B7\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4339\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴗ.𑄴\x{05C2}\x{A9B7}񘃨", %p)}, undef, "to_ascii\(\'ⴗ\.𑄴\\u05C2\\uA9B7\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4340\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴗ．𑄴\x{05C2}\x{A9B7}񘃨", %p)}, undef, "to_ascii\(\'ⴗ．𑄴\\u05C2\\uA9B7\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4341\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴗ．\x{05C2}𑄴\x{A9B7}񘃨", %p)}, undef, "to_ascii\(\'ⴗ．\\u05C2𑄴\\uA9B7\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4342\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟾𾤘．򇕛\x{066C}", %p)}, undef, "to_ascii\(\'𝟾\?．\?\\u066C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4343\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8𾤘.򇕛\x{066C}", %p)}, undef, "to_ascii\(\'8\?\.\?\\u066C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4344\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈酫︒。\x{08D6}", %p)}, undef, "to_ascii\(\'⒈酫︒\。\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4345\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("1.酫。。\x{08D6}", %p)}, undef, "to_ascii\(\'1\.酫\。\。\\u08D6\'\)\ throws\ error\ V5\ A4_2\ \[data\/IdnaTest\.txt\:4346\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{2DE3}\x{200C}≮\x{1A6B}.\x{200C}\x{0E3A}", %p)}, undef, "to_ascii\(\'\\u2DE3\\u200C\≮\\u1A6B\.\\u200C\\u0E3A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4347\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2DE3}\x{200C}<\x{0338}\x{1A6B}.\x{200C}\x{0E3A}", %p)}, undef, "to_ascii\(\'\\u2DE3\\u200C\<\\u0338\\u1A6B\.\\u200C\\u0E3A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4349\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞪂。ႷႽ¹\x{200D}", %p)}, undef, "to_ascii\(\'\?\。ႷႽ¹\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4351\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞪂。ႷႽ1\x{200D}", %p)}, undef, "to_ascii\(\'\?\。ႷႽ1\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4353\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞪂。ⴗⴝ1\x{200D}", %p)}, undef, "to_ascii\(\'\?\。ⴗⴝ1\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4355\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞪂。Ⴗⴝ1\x{200D}", %p)}, undef, "to_ascii\(\'\?\。Ⴗⴝ1\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4357\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞪂。ⴗⴝ¹\x{200D}", %p)}, undef, "to_ascii\(\'\?\。ⴗⴝ¹\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4359\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞪂。Ⴗⴝ¹\x{200D}", %p)}, undef, "to_ascii\(\'\?\。Ⴗⴝ¹\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4361\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑄴𑄳2.𞳿󠀳-", %p)}, undef, "to_ascii\(\'𑄴𑄳2\.\?\?\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:4363\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕲󟶶\x{0665}｡񀁁𑄳𞤃\x{0710}", %p)}, undef, "to_ascii\(\'\?\?\\u0665｡\?𑄳\?\\u0710\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:4364\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕲󟶶\x{0665}。񀁁𑄳𞤃\x{0710}", %p)}, undef, "to_ascii\(\'\?\?\\u0665\。\?𑄳\?\\u0710\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:4365\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0720}򲠽𐹢\x{17BB}｡ςᢈ🝭\x{200C}", %p)}, undef, "to_ascii\(\'\\u0720\?𐹢\\u17BB｡ςᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4366\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0720}򲠽𐹢\x{17BB}。ςᢈ🝭\x{200C}", %p)}, undef, "to_ascii\(\'\\u0720\?𐹢\\u17BB\。ςᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4368\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0720}򲠽𐹢\x{17BB}。Σᢈ🝭\x{200C}", %p)}, undef, "to_ascii\(\'\\u0720\?𐹢\\u17BB\。Σᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4370\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0720}򲠽𐹢\x{17BB}。σᢈ🝭\x{200C}", %p)}, undef, "to_ascii\(\'\\u0720\?𐹢\\u17BB\。σᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4372\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0720}򲠽𐹢\x{17BB}｡Σᢈ🝭\x{200C}", %p)}, undef, "to_ascii\(\'\\u0720\?𐹢\\u17BB｡Σᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4374\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0720}򲠽𐹢\x{17BB}｡σᢈ🝭\x{200C}", %p)}, undef, "to_ascii\(\'\\u0720\?𐹢\\u17BB｡σᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4376\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}--≮。𐹧", %p)}, undef, "to_ascii\(\'\\u200D\-\-\≮\。𐹧\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4378\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}--<\x{0338}。𐹧", %p)}, undef, "to_ascii\(\'\\u200D\-\-\<\\u0338\。𐹧\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4380\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A806}。𻚏\x{0FB0}⒕", %p)}, undef, "to_ascii\(\'\\uA806\。\?\\u0FB0⒕\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4382\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A806}。𻚏\x{0FB0}14.", %p)}, undef, "to_ascii\(\'\\uA806\。\?\\u0FB014\.\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4383\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򮉂\x{06BC}．𑆺\x{0669}", %p)}, undef, "to_ascii\(\'\?\\u06BC．𑆺\\u0669\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4384\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򮉂\x{06BC}.𑆺\x{0669}", %p)}, undef, "to_ascii\(\'\?\\u06BC\.𑆺\\u0669\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4385\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠁎\x{06D0}-。𞤴", %p)}, undef, "to_ascii\(\'\?\\u06D0\-\。\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4386\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𝟠4󠇗𝈻．\x{200D}𐋵⛧\x{200D}", %p)}, "xn--84-s850a.xn--59h6326e", "to_ascii\(\'𝟠4\󠇗𝈻．\\u200D𐋵\⛧\\u200D\'\)\ \[data\/IdnaTest\.txt\:4387\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("84󠇗𝈻.\x{200D}𐋵⛧\x{200D}", %p)}, "xn--84-s850a.xn--59h6326e", "to_ascii\(\'84\󠇗𝈻\.\\u200D𐋵\⛧\\u200D\'\)\ \[data\/IdnaTest\.txt\:4389\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--84-s850a.xn--59h6326e", %p)}, "xn--84-s850a.xn--59h6326e", "to_ascii\(\'xn\-\-84\-s850a\.xn\-\-59h6326e\'\)\ \[data\/IdnaTest\.txt\:4391\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("84𝈻.𐋵⛧", %p)}, "xn--84-s850a.xn--59h6326e", "to_ascii\(\'84𝈻\.𐋵\⛧\'\)\ \[data\/IdnaTest\.txt\:4392\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-\x{0601}｡ᡪ", %p)}, undef, "to_ascii\(\'\-\\u0601｡ᡪ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4393\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{0601}。ᡪ", %p)}, undef, "to_ascii\(\'\-\\u0601\。ᡪ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4394\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮𝟕．謖ß≯", %p)}, undef, "to_ascii\(\'\≮𝟕．謖ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4395\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𝟕．謖ß>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u0338𝟕．謖ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4396\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮7.謖ß≯", %p)}, undef, "to_ascii\(\'\≮7\.謖ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4397\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}7.謖ß>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03387\.謖ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4398\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}7.謖SS>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03387\.謖SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4399\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮7.謖SS≯", %p)}, undef, "to_ascii\(\'\≮7\.謖SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4400\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮7.謖ss≯", %p)}, undef, "to_ascii\(\'\≮7\.謖ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4401\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}7.謖ss>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03387\.謖ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4402\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}7.謖Ss>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03387\.謖Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4403\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮7.謖Ss≯", %p)}, undef, "to_ascii\(\'\≮7\.謖Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4404\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𝟕．謖SS>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u0338𝟕．謖SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4405\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮𝟕．謖SS≯", %p)}, undef, "to_ascii\(\'\≮𝟕．謖SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4406\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮𝟕．謖ss≯", %p)}, undef, "to_ascii\(\'\≮𝟕．謖ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4407\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𝟕．謖ss>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u0338𝟕．謖ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4408\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𝟕．謖Ss>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u0338𝟕．謖Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4409\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮𝟕．謖Ss≯", %p)}, undef, "to_ascii\(\'\≮𝟕．謖Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4410\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("朶Ⴉ𞪡.𝨽\x{0825}📻-", %p)}, undef, "to_ascii\(\'朶Ⴉ\?\.𝨽\\u0825📻\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4411\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("朶ⴉ𞪡.𝨽\x{0825}📻-", %p)}, undef, "to_ascii\(\'朶ⴉ\?\.𝨽\\u0825📻\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4412\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐤎。󑿰\x{200C}≮\x{200D}", %p)}, undef, "to_ascii\(\'𐤎\。\?\\u200C\≮\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4413\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐤎。󑿰\x{200C}<\x{0338}\x{200D}", %p)}, undef, "to_ascii\(\'𐤎\。\?\\u200C\<\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4415\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񭜎⒈｡\x{200C}𝟤", %p)}, undef, "to_ascii\(\'\?⒈｡\\u200C𝟤\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4417\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񭜎1.。\x{200C}2", %p)}, undef, "to_ascii\(\'\?1\.\。\\u200C2\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:4419\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠟊𐹤\x{200D}．𐹳󙄵𐹶", %p)}, undef, "to_ascii\(\'\?𐹤\\u200D．𐹳\?𐹶\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4421\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠟊𐹤\x{200D}.𐹳󙄵𐹶", %p)}, undef, "to_ascii\(\'\?𐹤\\u200D\.𐹳\?𐹶\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4423\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤴𐹻𑓂𐭝．\x{094D}\x{FE07}􉛯", %p)}, undef, "to_ascii\(\'\?𐹻𑓂𐭝．\\u094D\\uFE07\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4425\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤴𐹻𑓂𐭝.\x{094D}\x{FE07}􉛯", %p)}, undef, "to_ascii\(\'\?𐹻𑓂𐭝\.\\u094D\\uFE07\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4426\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0668}｡𐹠𐹽񗮶", %p)}, undef, "to_ascii\(\'\\u0668｡𐹠𐹽\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4427\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0668}。𐹠𐹽񗮶", %p)}, undef, "to_ascii\(\'\\u0668\。𐹠𐹽\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4428\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1160}񍀜.8򶾵\x{069C}", %p)}, undef, "to_ascii\(\'\\u1160\?\.8\?\\u069C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4429\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}\x{200C}󠆪｡ß𑓃", %p)}, "xn--ss-bh7o", "to_ascii\(\'\\u200D\\u200C\󠆪｡ß𑓃\'\)\ \[data\/IdnaTest\.txt\:4430\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}\x{200C}󠆪。ß𑓃", %p)}, "xn--ss-bh7o", "to_ascii\(\'\\u200D\\u200C\󠆪\。ß𑓃\'\)\ \[data\/IdnaTest\.txt\:4432\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}\x{200C}󠆪。SS𑓃", %p)}, "xn--ss-bh7o", "to_ascii\(\'\\u200D\\u200C\󠆪\。SS𑓃\'\)\ \[data\/IdnaTest\.txt\:4434\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}\x{200C}󠆪。ss𑓃", %p)}, "xn--ss-bh7o", "to_ascii\(\'\\u200D\\u200C\󠆪\。ss𑓃\'\)\ \[data\/IdnaTest\.txt\:4436\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}\x{200C}󠆪。Ss𑓃", %p)}, "xn--ss-bh7o", "to_ascii\(\'\\u200D\\u200C\󠆪\。Ss𑓃\'\)\ \[data\/IdnaTest\.txt\:4438\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--ss-bh7o", %p)}, "xn--ss-bh7o", "to_ascii\(\'xn\-\-ss\-bh7o\'\)\ \[data\/IdnaTest\.txt\:4440\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss𑓃", %p)}, "xn--ss-bh7o", "to_ascii\(\'ss𑓃\'\)\ \[data\/IdnaTest\.txt\:4441\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("SS𑓃", %p)}, "xn--ss-bh7o", "to_ascii\(\'SS𑓃\'\)\ \[data\/IdnaTest\.txt\:4442\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Ss𑓃", %p)}, "xn--ss-bh7o", "to_ascii\(\'Ss𑓃\'\)\ \[data\/IdnaTest\.txt\:4443\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}\x{200C}󠆪｡SS𑓃", %p)}, "xn--ss-bh7o", "to_ascii\(\'\\u200D\\u200C\󠆪｡SS𑓃\'\)\ \[data\/IdnaTest\.txt\:4444\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}\x{200C}󠆪｡ss𑓃", %p)}, "xn--ss-bh7o", "to_ascii\(\'\\u200D\\u200C\󠆪｡ss𑓃\'\)\ \[data\/IdnaTest\.txt\:4446\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}\x{200C}󠆪｡Ss𑓃", %p)}, "xn--ss-bh7o", "to_ascii\(\'\\u200D\\u200C\󠆪｡Ss𑓃\'\)\ \[data\/IdnaTest\.txt\:4448\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("︒\x{200C}ヶ䒩.ꡪ", %p)}, undef, "to_ascii\(\'︒\\u200Cヶ䒩\.ꡪ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4450\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("。\x{200C}ヶ䒩.ꡪ", %p)}, "xn--qekw60d.xn--gd9a", "to_ascii\(\'\。\\u200Cヶ䒩\.ꡪ\'\)\ \[data\/IdnaTest\.txt\:4452\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("xn--qekw60d.xn--gd9a", %p)}, "xn--qekw60d.xn--gd9a", "to_ascii\(\'xn\-\-qekw60d\.xn\-\-gd9a\'\)\ \[data\/IdnaTest\.txt\:4454\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ヶ䒩.ꡪ", %p)}, "xn--qekw60d.xn--gd9a", "to_ascii\(\'ヶ䒩\.ꡪ\'\)\ \[data\/IdnaTest\.txt\:4455\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}⒈𤮍.󢓋\x{1A60}", %p)}, undef, "to_ascii\(\'\\u200C⒈𤮍\.\?\\u1A60\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4456\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}1.𤮍.󢓋\x{1A60}", %p)}, undef, "to_ascii\(\'\\u200C1\.𤮍\.\?\\u1A60\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4458\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈\x{200C}𐫓󠀺。\x{1A60}񤰵\x{200D}", %p)}, undef, "to_ascii\(\'⒈\\u200C𐫓\?\。\\u1A60\?\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4460\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.\x{200C}𐫓󠀺。\x{1A60}񤰵\x{200D}", %p)}, undef, "to_ascii\(\'1\.\\u200C𐫓\?\。\\u1A60\?\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:4462\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝅵｡𝟫𞀈䬺⒈", %p)}, undef, "to_ascii\(\'\?｡𝟫\?䬺⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4464\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝅵。9𞀈䬺1.", %p)}, undef, "to_ascii\(\'\?\。9\?䬺1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4465\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򡼺≯。盚\x{0635}", %p)}, undef, "to_ascii\(\'\?\≯\。盚\\u0635\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4466\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򡼺>\x{0338}。盚\x{0635}", %p)}, undef, "to_ascii\(\'\?\>\\u0338\。盚\\u0635\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4467\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񿰭\x{05B4}。-󠁊𐢸≯", %p)}, undef, "to_ascii\(\'\-\?\\u05B4\。\-\?\?\≯\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4468\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񿰭\x{05B4}。-󠁊𐢸>\x{0338}", %p)}, undef, "to_ascii\(\'\-\?\\u05B4\。\-\?\?\>\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4469\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󿭓\x{1B44}\x{200C}\x{0A4D}．𐭛񳋔", %p)}, undef, "to_ascii\(\'\?\\u1B44\\u200C\\u0A4D．𐭛\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4470\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󿭓\x{1B44}\x{200C}\x{0A4D}.𐭛񳋔", %p)}, undef, "to_ascii\(\'\?\\u1B44\\u200C\\u0A4D\.𐭛\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4471\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("⾇.\x{067D}𞤴\x{06BB}\x{200D}", %p)}, "xn--8c1a.xn--2ib8jn539l", "to_ascii\(\'⾇\.\\u067D\?\\u06BB\\u200D\'\)\ \[data\/IdnaTest\.txt\:4472\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("舛.\x{067D}𞤴\x{06BB}\x{200D}", %p)}, "xn--8c1a.xn--2ib8jn539l", "to_ascii\(\'舛\.\\u067D\?\\u06BB\\u200D\'\)\ \[data\/IdnaTest\.txt\:4474\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--8c1a.xn--2ib8jn539l", %p)}, "xn--8c1a.xn--2ib8jn539l", "to_ascii\(\'xn\-\-8c1a\.xn\-\-2ib8jn539l\'\)\ \[data\/IdnaTest\.txt\:4476\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("舛.\x{067D}𞤴\x{06BB}", %p)}, "xn--8c1a.xn--2ib8jn539l", "to_ascii\(\'舛\.\\u067D\?\\u06BB\'\)\ \[data\/IdnaTest\.txt\:4477\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("4򭆥。\x{0767}≯", %p)}, undef, "to_ascii\(\'4\?\。\\u0767\≯\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4478\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4򭆥。\x{0767}>\x{0338}", %p)}, undef, "to_ascii\(\'4\?\。\\u0767\>\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4479\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲔏𞫨񺿂硲．\x{06AD}", %p)}, undef, "to_ascii\(\'\?\?\?硲．\\u06AD\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4480\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲔏𞫨񺿂硲.\x{06AD}", %p)}, undef, "to_ascii\(\'\?\?\?硲\.\\u06AD\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4481\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.\x{FE08}\x{0666}Ⴆ℮", %p)}, undef, "to_ascii\(\'\\u200C\.\\uFE08\\u0666Ⴆ℮\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4482\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200C}.\x{FE08}\x{0666}ⴆ℮", %p)}, undef, "to_ascii\(\'\\u200C\.\\uFE08\\u0666ⴆ℮\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4484\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{06A3}．\x{0D4D}\x{200D}Ϟ", %p)}, undef, "to_ascii\(\'\\u06A3．\\u0D4D\\u200DϞ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4486\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06A3}.\x{0D4D}\x{200D}Ϟ", %p)}, undef, "to_ascii\(\'\\u06A3\.\\u0D4D\\u200DϞ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4487\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06A3}.\x{0D4D}\x{200D}ϟ", %p)}, undef, "to_ascii\(\'\\u06A3\.\\u0D4D\\u200Dϟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4488\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06A3}．\x{0D4D}\x{200D}ϟ", %p)}, undef, "to_ascii\(\'\\u06A3．\\u0D4D\\u200Dϟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4489\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}𞸇𑘿。\x{0623}𐮂-腍", %p)}, undef, "to_ascii\(\'\\u200C𞸇𑘿\。\\u0623𐮂\-腍\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4490\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}𞸇𑘿。\x{0627}\x{0654}𐮂-腍", %p)}, undef, "to_ascii\(\'\\u200C𞸇𑘿\。\\u0627\\u0654𐮂\-腍\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4492\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}\x{062D}𑘿。\x{0623}𐮂-腍", %p)}, undef, "to_ascii\(\'\\u200C\\u062D𑘿\。\\u0623𐮂\-腍\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4494\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}\x{062D}𑘿。\x{0627}\x{0654}𐮂-腍", %p)}, undef, "to_ascii\(\'\\u200C\\u062D𑘿\。\\u0627\\u0654𐮂\-腍\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4496\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-򭷙\x{066B}纛｡𝟛񭤇🄅", %p)}, undef, "to_ascii\(\'\-\?\\u066B纛｡𝟛\?🄅\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4498\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-򭷙\x{066B}纛。3񭤇4,", %p)}, undef, "to_ascii\(\'\-\?\\u066B纛\。3\?4\,\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4499\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🔔．Ⴂ\x{07CC}\x{0BCD}𐋮", %p)}, undef, "to_ascii\(\'🔔．Ⴂ\\u07CC\\u0BCD𐋮\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4500\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🔔.Ⴂ\x{07CC}\x{0BCD}𐋮", %p)}, undef, "to_ascii\(\'🔔\.Ⴂ\\u07CC\\u0BCD𐋮\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4501\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("🔔.ⴂ\x{07CC}\x{0BCD}𐋮", %p)}, undef, "to_ascii\(\'🔔\.ⴂ\\u07CC\\u0BCD𐋮\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4502\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("🔔．ⴂ\x{07CC}\x{0BCD}𐋮", %p)}, undef, "to_ascii\(\'🔔．ⴂ\\u07CC\\u0BCD𐋮\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4503\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("軥\x{06B3}.-𖬵", %p)}, undef, "to_ascii\(\'軥\\u06B3\.\-𖬵\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4504\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹤\x{07CA}\x{06B6}.𐨂-", %p)}, undef, "to_ascii\(\'𐹤\\u07CA\\u06B6\.𐨂\-\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:4505\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("-󠅱0｡\x{17CF}\x{1DFD}톇십", %p)}, undef, "to_ascii\(\'\-\󠅱0｡\\u17CF\\u1DFD톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4506\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("-󠅱0｡\x{17CF}\x{1DFD}톇십", %p)}, undef, "to_ascii\(\'\-\󠅱0｡\\u17CF\\u1DFD톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4507\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("-󠅱0。\x{17CF}\x{1DFD}톇십", %p)}, undef, "to_ascii\(\'\-\󠅱0\。\\u17CF\\u1DFD톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4508\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("-󠅱0。\x{17CF}\x{1DFD}톇십", %p)}, undef, "to_ascii\(\'\-\󠅱0\。\\u17CF\\u1DFD톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4509\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ꡰ︒--｡\x{17CC}靈𐹢񘳮", %p)}, undef, "to_ascii\(\'ꡰ︒\-\-｡\\u17CC靈𐹢\?\'\)\ throws\ error\ P1\ V2\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4510\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡰ。--。\x{17CC}靈𐹢񘳮", %p)}, undef, "to_ascii\(\'ꡰ\。\-\-\。\\u17CC靈𐹢\?\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4511\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}ႿႵრ｡\x{0B4D}", %p)}, undef, "to_ascii\(\'\\u115FႿႵრ｡\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4512\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}ႿႵრ。\x{0B4D}", %p)}, undef, "to_ascii\(\'\\u115FႿႵრ\。\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4513\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}ⴟⴕრ。\x{0B4D}", %p)}, undef, "to_ascii\(\'\\u115Fⴟⴕრ\。\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4514\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}Ⴟⴕრ。\x{0B4D}", %p)}, undef, "to_ascii\(\'\\u115FႿⴕრ\。\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4515\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}ⴟⴕრ｡\x{0B4D}", %p)}, undef, "to_ascii\(\'\\u115Fⴟⴕრ｡\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4516\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}Ⴟⴕრ｡\x{0B4D}", %p)}, undef, "to_ascii\(\'\\u115FႿⴕრ｡\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4517\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄃𐹠.\x{0664}󠅇", %p)}, undef, "to_ascii\(\'🄃𐹠\.\\u0664\󠅇\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4518\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("2,𐹠.\x{0664}󠅇", %p)}, undef, "to_ascii\(\'2\,𐹠\.\\u0664\󠅇\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4519\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򻲼\x{200C}\x{FC5B}．\x{07D2}\x{0848}\x{1BF3}", %p)}, undef, "to_ascii\(\'\?\\u200C\\uFC5B．\\u07D2\\u0848\\u1BF3\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4520\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򻲼\x{200C}\x{0630}\x{0670}.\x{07D2}\x{0848}\x{1BF3}", %p)}, undef, "to_ascii\(\'\?\\u200C\\u0630\\u0670\.\\u07D2\\u0848\\u1BF3\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4522\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}\x{200D}𞵪\x{200C}。ᡘ𑲭\x{17B5}", %p)}, undef, "to_ascii\(\'\\u200D\\u200D\?\\u200C\。ᡘ\?\\u17B5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4524\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞷻。⚄񗑇𑁿", %p)}, undef, "to_ascii\(\'\?\。\⚄\?𑁿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4526\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A8C4}≠．𞠨\x{0667}", %p)}, undef, "to_ascii\(\'\\uA8C4\≠．𞠨\\u0667\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4527\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A8C4}=\x{0338}．𞠨\x{0667}", %p)}, undef, "to_ascii\(\'\\uA8C4\=\\u0338．𞠨\\u0667\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4528\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A8C4}≠.𞠨\x{0667}", %p)}, undef, "to_ascii\(\'\\uA8C4\≠\.𞠨\\u0667\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4529\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A8C4}=\x{0338}.𞠨\x{0667}", %p)}, undef, "to_ascii\(\'\\uA8C4\=\\u0338\.𞠨\\u0667\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4530\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𝟛𝆪\x{A8C4}｡\x{A8EA}-", %p)}, undef, "to_ascii\(\'𝟛𝆪\\uA8C4｡\\uA8EA\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4531\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𝟛\x{A8C4}𝆪｡\x{A8EA}-", %p)}, undef, "to_ascii\(\'𝟛\\uA8C4𝆪｡\\uA8EA\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4532\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("3\x{A8C4}𝆪。\x{A8EA}-", %p)}, undef, "to_ascii\(\'3\\uA8C4𝆪\。\\uA8EA\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4533\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{075F}\x{1BA2}\x{103A}Ⴇ.4", %p)}, undef, "to_ascii\(\'\\u075F\\u1BA2\\u103AႧ\.4\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4534\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{075F}\x{1BA2}\x{103A}ⴇ.4", %p)}, undef, "to_ascii\(\'\\u075F\\u1BA2\\u103Aⴇ\.4\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4535\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ᄹ｡\x{0ECA}򠯤󠄞", %p)}, undef, "to_ascii\(\'ᄹ｡\\u0ECA\?\󠄞\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4536\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᄹ。\x{0ECA}򠯤󠄞", %p)}, undef, "to_ascii\(\'ᄹ\。\\u0ECA\?\󠄞\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4537\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴆ򻢩．󠆡\x{FE09}𞤍", %p)}, undef, "to_ascii\(\'Ⴆ\?．\󠆡\\uFE09\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4538\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴆ򻢩.󠆡\x{FE09}𞤍", %p)}, undef, "to_ascii\(\'Ⴆ\?\.\󠆡\\uFE09\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4539\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴆ򻢩.󠆡\x{FE09}𞤍", %p)}, undef, "to_ascii\(\'ⴆ\?\.\󠆡\\uFE09\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4540\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴆ򻢩．󠆡\x{FE09}𞤍", %p)}, undef, "to_ascii\(\'ⴆ\?．\󠆡\\uFE09\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4541\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß\x{080B}︒\x{067B}．帼F∬\x{200C}", %p)}, undef, "to_ascii\(\'ß\\u080B︒\\u067B．帼F\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4542\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ß\x{080B}。\x{067B}.帼F∫∫\x{200C}", %p)}, undef, "to_ascii\(\'ß\\u080B\。\\u067B\.帼F\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4544\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ß\x{080B}。\x{067B}.帼f∫∫\x{200C}", %p)}, undef, "to_ascii\(\'ß\\u080B\。\\u067B\.帼f\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4546\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("SS\x{080B}。\x{067B}.帼F∫∫\x{200C}", %p)}, undef, "to_ascii\(\'SS\\u080B\。\\u067B\.帼F\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4548\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ss\x{080B}。\x{067B}.帼f∫∫\x{200C}", %p)}, undef, "to_ascii\(\'ss\\u080B\。\\u067B\.帼f\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4550\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("Ss\x{080B}。\x{067B}.帼F∫∫\x{200C}", %p)}, undef, "to_ascii\(\'Ss\\u080B\。\\u067B\.帼F\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4552\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ß\x{080B}︒\x{067B}．帼f∬\x{200C}", %p)}, undef, "to_ascii\(\'ß\\u080B︒\\u067B．帼f\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4554\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS\x{080B}︒\x{067B}．帼F∬\x{200C}", %p)}, undef, "to_ascii\(\'SS\\u080B︒\\u067B．帼F\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4556\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss\x{080B}︒\x{067B}．帼f∬\x{200C}", %p)}, undef, "to_ascii\(\'ss\\u080B︒\\u067B．帼f\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4558\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss\x{080B}︒\x{067B}．帼F∬\x{200C}", %p)}, undef, "to_ascii\(\'Ss\\u080B︒\\u067B．帼F\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4560\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󘪗｡𐹴𞨌\x{200D}", %p)}, undef, "to_ascii\(\'\?｡𐹴\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4562\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󘪗。𐹴𞨌\x{200D}", %p)}, undef, "to_ascii\(\'\?\。𐹴\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4564\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗛨.򅟢𝟨\x{A8C4}", %p)}, undef, "to_ascii\(\'\?\.\?𝟨\\uA8C4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4566\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗛨.򅟢6\x{A8C4}", %p)}, undef, "to_ascii\(\'\?\.\?6\\uA8C4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4567\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1AB2}\x{FD8E}。-۹ႱႨ", %p)}, undef, "to_ascii\(\'\\u1AB2\\uFD8E\。\-۹ႱႨ\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4568\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1AB2}\x{0645}\x{062E}\x{062C}。-۹ႱႨ", %p)}, undef, "to_ascii\(\'\\u1AB2\\u0645\\u062E\\u062C\。\-۹ႱႨ\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4569\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1AB2}\x{0645}\x{062E}\x{062C}。-۹ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u1AB2\\u0645\\u062E\\u062C\。\-۹ⴑⴈ\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4570\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{1AB2}\x{0645}\x{062E}\x{062C}。-۹Ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u1AB2\\u0645\\u062E\\u062C\。\-۹Ⴑⴈ\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4571\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1AB2}\x{FD8E}。-۹ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u1AB2\\uFD8E\。\-۹ⴑⴈ\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4572\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{1AB2}\x{FD8E}。-۹Ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u1AB2\\uFD8E\。\-۹Ⴑⴈ\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4573\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤤．-\x{08A3}︒", %p)}, undef, "to_ascii\(\'\?．\-\\u08A3︒\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4574\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤤.-\x{08A3}。", %p)}, undef, "to_ascii\(\'\?\.\-\\u08A3\。\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4575\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}𐺨.\x{0859}--", %p)}, undef, "to_ascii\(\'\\u200C\?\.\\u0859\-\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:4576\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐋸󮘋Ⴢ.Ⴁ", %p)}, undef, "to_ascii\(\'𐋸\?Ⴢ\.Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4578\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐋸󮘋ⴢ.ⴁ", %p)}, undef, "to_ascii\(\'𐋸\?ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4579\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐋸󮘋Ⴢ.ⴁ", %p)}, undef, "to_ascii\(\'𐋸\?Ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4580\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗑿\x{A806}₄򩞆｡𲩧󠒹ς", %p)}, undef, "to_ascii\(\'\?\\uA806₄\?｡\?\?ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4581\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗑿\x{A806}4򩞆。𲩧󠒹ς", %p)}, undef, "to_ascii\(\'\?\\uA8064\?\。\?\?ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4582\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗑿\x{A806}4򩞆。𲩧󠒹Σ", %p)}, undef, "to_ascii\(\'\?\\uA8064\?\。\?\?Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4583\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗑿\x{A806}4򩞆。𲩧󠒹σ", %p)}, undef, "to_ascii\(\'\?\\uA8064\?\。\?\?σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4584\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗑿\x{A806}₄򩞆｡𲩧󠒹Σ", %p)}, undef, "to_ascii\(\'\?\\uA806₄\?｡\?\?Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4585\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗑿\x{A806}₄򩞆｡𲩧󠒹σ", %p)}, undef, "to_ascii\(\'\?\\uA806₄\?｡\?\?σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4586\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("󠆀\x{0723}。\x{1DF4}\x{0775}", %p)}, undef, "to_ascii\(\'\󠆀\\u0723\。\\u1DF4\\u0775\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4587\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐹱\x{0842}𝪨｡𬼖Ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'𐹱\\u0842𝪨｡\?Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4588\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹱\x{0842}𝪨。𬼖Ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'𐹱\\u0842𝪨\。\?Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4590\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹱\x{0842}𝪨。𬼖ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'𐹱\\u0842𝪨\。\?ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4592\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹱\x{0842}𝪨｡𬼖ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'𐹱\\u0842𝪨｡\?ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4594\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1714}𐭪󠙘\x{200D}｡-𐹴", %p)}, undef, "to_ascii\(\'\\u1714𐭪\?\\u200D｡\-𐹴\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4596\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1714}𐭪󠙘\x{200D}。-𐹴", %p)}, undef, "to_ascii\(\'\\u1714𐭪\?\\u200D\。\-𐹴\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4598\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𾢬｡\x{0729}︒쯙𝟧", %p)}, undef, "to_ascii\(\'\?｡\\u0729︒쯙𝟧\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4600\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𾢬｡\x{0729}︒쯙𝟧", %p)}, undef, "to_ascii\(\'\?｡\\u0729︒쯙𝟧\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4601\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𾢬。\x{0729}。쯙5", %p)}, undef, "to_ascii\(\'\?\。\\u0729\。쯙5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4602\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𾢬。\x{0729}。쯙5", %p)}, undef, "to_ascii\(\'\?\。\\u0729\。쯙5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4603\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤟-。\x{0762}≮뻐", %p)}, undef, "to_ascii\(\'\?\-\。\\u0762\≮뻐\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B2\ \[data\/IdnaTest\.txt\:4604\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤟-。\x{0762}<\x{0338}뻐", %p)}, undef, "to_ascii\(\'\?\-\。\\u0762\<\\u0338뻐\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B2\ \[data\/IdnaTest\.txt\:4605\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞥩-򊫠．\x{08B4}≠", %p)}, undef, "to_ascii\(\'\?\-\?．\\u08B4\≠\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4606\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞥩-򊫠．\x{08B4}=\x{0338}", %p)}, undef, "to_ascii\(\'\?\-\?．\\u08B4\=\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4607\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞥩-򊫠.\x{08B4}≠", %p)}, undef, "to_ascii\(\'\?\-\?\.\\u08B4\≠\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4608\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞥩-򊫠.\x{08B4}=\x{0338}", %p)}, undef, "to_ascii\(\'\?\-\?\.\\u08B4\=\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4609\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏ςႼ．\x{0661}", %p)}, undef, "to_ascii\(\'\-\?ςႼ．\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4610\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏ςႼ.\x{0661}", %p)}, undef, "to_ascii\(\'\-\?ςႼ\.\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4611\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏ςⴜ.\x{0661}", %p)}, undef, "to_ascii\(\'\-\?ςⴜ\.\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4612\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏ΣႼ.\x{0661}", %p)}, undef, "to_ascii\(\'\-\?ΣႼ\.\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4613\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏σⴜ.\x{0661}", %p)}, undef, "to_ascii\(\'\-\?σⴜ\.\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4614\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏Σⴜ.\x{0661}", %p)}, undef, "to_ascii\(\'\-\?Σⴜ\.\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4615\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏ςⴜ．\x{0661}", %p)}, undef, "to_ascii\(\'\-\?ςⴜ．\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4616\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏ΣႼ．\x{0661}", %p)}, undef, "to_ascii\(\'\-\?ΣႼ．\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4617\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏σⴜ．\x{0661}", %p)}, undef, "to_ascii\(\'\-\?σⴜ．\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4618\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏Σⴜ．\x{0661}", %p)}, undef, "to_ascii\(\'\-\?Σⴜ．\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4619\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{17CA}.\x{200D}𝟮𑀿", %p)}, undef, "to_ascii\(\'\\u17CA\.\\u200D𝟮𑀿\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4620\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{17CA}.\x{200D}2𑀿", %p)}, undef, "to_ascii\(\'\\u17CA\.\\u200D2𑀿\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4622\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("≯𝟖｡\x{1A60}𐫓򟇑", %p)}, undef, "to_ascii\(\'\≯𝟖｡\\u1A60𐫓\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4624\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}𝟖｡\x{1A60}𐫓򟇑", %p)}, undef, "to_ascii\(\'\>\\u0338𝟖｡\\u1A60𐫓\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4625\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯8。\x{1A60}𐫓򟇑", %p)}, undef, "to_ascii\(\'\≯8\。\\u1A60𐫓\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4626\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}8。\x{1A60}𐫓򟇑", %p)}, undef, "to_ascii\(\'\>\\u03388\。\\u1A60𐫓\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4627\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑲫Ↄ\x{0664}｡\x{200C}", %p)}, undef, "to_ascii\(\'\?Ↄ\\u0664｡\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4628\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑲫Ↄ\x{0664}。\x{200C}", %p)}, undef, "to_ascii\(\'\?Ↄ\\u0664\。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4630\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𑲫ↄ\x{0664}。\x{200C}", %p)}, undef, "to_ascii\(\'\?ↄ\\u0664\。\\u200C\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4632\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𑲫ↄ\x{0664}｡\x{200C}", %p)}, undef, "to_ascii\(\'\?ↄ\\u0664｡\\u200C\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4634\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0C00}𝟵\x{200D}\x{FC9D}.\x{200D}\x{0750}⒈", %p)}, undef, "to_ascii\(\'\\u0C00𝟵\\u200D\\uFC9D\.\\u200D\\u0750⒈\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4636\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0C00}9\x{200D}\x{0628}\x{062D}.\x{200D}\x{0750}1.", %p)}, undef, "to_ascii\(\'\\u0C009\\u200D\\u0628\\u062D\.\\u200D\\u07501\.\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4638\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{AAF6}。嬶ß葽", %p)}, undef, "to_ascii\(\'\\uAAF6\。嬶ß葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4640\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{AAF6}。嬶SS葽", %p)}, undef, "to_ascii\(\'\\uAAF6\。嬶SS葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4641\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{AAF6}。嬶ss葽", %p)}, undef, "to_ascii\(\'\\uAAF6\。嬶ss葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4642\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{AAF6}。嬶Ss葽", %p)}, undef, "to_ascii\(\'\\uAAF6\。嬶Ss葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4643\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𑚶⒈。񞻡𐹺", %p)}, undef, "to_ascii\(\'𑚶⒈\。\?𐹺\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4644\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑚶1.。񞻡𐹺", %p)}, undef, "to_ascii\(\'𑚶1\.\。\?𐹺\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:4645\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑜤︒≮．񚕽\x{05D8}𞾩", %p)}, undef, "to_ascii\(\'𑜤︒\≮．\?\\u05D8\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4646\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑜤︒<\x{0338}．񚕽\x{05D8}𞾩", %p)}, undef, "to_ascii\(\'𑜤︒\<\\u0338．\?\\u05D8\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4647\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑜤。≮.񚕽\x{05D8}𞾩", %p)}, undef, "to_ascii\(\'𑜤\。\≮\.\?\\u05D8\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4648\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑜤。<\x{0338}.񚕽\x{05D8}𞾩", %p)}, undef, "to_ascii\(\'𑜤\。\<\\u0338\.\?\\u05D8\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4649\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠆋\x{0603}񏦤.⇁ς򏋈򺇥", %p)}, undef, "to_ascii\(\'\󠆋\\u0603\?\.\⇁ς\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4650\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠆋\x{0603}񏦤.⇁Σ򏋈򺇥", %p)}, undef, "to_ascii\(\'\󠆋\\u0603\?\.\⇁Σ\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4651\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠆋\x{0603}񏦤.⇁σ򏋈򺇥", %p)}, undef, "to_ascii\(\'\󠆋\\u0603\?\.\⇁σ\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4652\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς𑐽𵢈𑜫｡𞬩\x{200C}𐫄", %p)}, undef, "to_ascii\(\'ς\?\?𑜫｡\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4653\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς𑐽𵢈𑜫。𞬩\x{200C}𐫄", %p)}, undef, "to_ascii\(\'ς\?\?𑜫\。\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4655\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ𑐽𵢈𑜫。𞬩\x{200C}𐫄", %p)}, undef, "to_ascii\(\'Σ\?\?𑜫\。\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4657\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ𑐽𵢈𑜫。𞬩\x{200C}𐫄", %p)}, undef, "to_ascii\(\'σ\?\?𑜫\。\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4659\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ𑐽𵢈𑜫｡𞬩\x{200C}𐫄", %p)}, undef, "to_ascii\(\'Σ\?\?𑜫｡\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4661\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ𑐽𵢈𑜫｡𞬩\x{200C}𐫄", %p)}, undef, "to_ascii\(\'σ\?\?𑜫｡\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4663\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-򵏽｡-\x{FC4C}\x{075B}", %p)}, undef, "to_ascii\(\'\-\?｡\-\\uFC4C\\u075B\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4665\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-򵏽。-\x{0646}\x{062D}\x{075B}", %p)}, undef, "to_ascii\(\'\-\?\。\-\\u0646\\u062D\\u075B\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4666\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⺢򇺅𝟤｡\x{200D}🚷", %p)}, undef, "to_ascii\(\'⺢\?𝟤｡\\u200D🚷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4667\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⺢򇺅2。\x{200D}🚷", %p)}, undef, "to_ascii\(\'⺢\?2\。\\u200D🚷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4669\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0CF8}\x{200D}\x{2DFE}𐹲｡򤐶", %p)}, undef, "to_ascii\(\'\\u0CF8\\u200D\\u2DFE𐹲｡\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4671\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0CF8}\x{200D}\x{2DFE}𐹲。򤐶", %p)}, undef, "to_ascii\(\'\\u0CF8\\u200D\\u2DFE𐹲\。\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4673\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹢．Ⴍ₉⁸", %p)}, undef, "to_ascii\(\'𐹢．Ⴍ₉⁸\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4675\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹢.Ⴍ98", %p)}, undef, "to_ascii\(\'𐹢\.Ⴍ98\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4676\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹢.ⴍ98", %p)}, undef, "to_ascii\(\'𐹢\.ⴍ98\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4677\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹢．ⴍ₉⁸", %p)}, undef, "to_ascii\(\'𐹢．ⴍ₉⁸\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4678\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}\x{034F}｡ß\x{08E2}⒚≯", %p)}, undef, "to_ascii\(\'\\u200C\\u034F｡ß\\u08E2⒚\≯\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4679\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}｡ß\x{08E2}⒚>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u034F｡ß\\u08E2⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4681\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}。ß\x{08E2}19.≯", %p)}, undef, "to_ascii\(\'\\u200C\\u034F\。ß\\u08E219\.\≯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4683\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}。ß\x{08E2}19.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u034F\。ß\\u08E219\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4685\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}。SS\x{08E2}19.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u034F\。SS\\u08E219\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4687\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}。SS\x{08E2}19.≯", %p)}, undef, "to_ascii\(\'\\u200C\\u034F\。SS\\u08E219\.\≯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4689\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}。ss\x{08E2}19.≯", %p)}, undef, "to_ascii\(\'\\u200C\\u034F\。ss\\u08E219\.\≯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4691\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}。ss\x{08E2}19.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u034F\。ss\\u08E219\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4693\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}。Ss\x{08E2}19.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u034F\。Ss\\u08E219\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4695\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}。Ss\x{08E2}19.≯", %p)}, undef, "to_ascii\(\'\\u200C\\u034F\。Ss\\u08E219\.\≯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4697\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}｡SS\x{08E2}⒚>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u034F｡SS\\u08E2⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4699\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}｡SS\x{08E2}⒚≯", %p)}, undef, "to_ascii\(\'\\u200C\\u034F｡SS\\u08E2⒚\≯\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4701\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}｡ss\x{08E2}⒚≯", %p)}, undef, "to_ascii\(\'\\u200C\\u034F｡ss\\u08E2⒚\≯\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4703\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}｡ss\x{08E2}⒚>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u034F｡ss\\u08E2⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4705\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}｡Ss\x{08E2}⒚>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u034F｡Ss\\u08E2⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4707\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}｡Ss\x{08E2}⒚≯", %p)}, undef, "to_ascii\(\'\\u200C\\u034F｡Ss\\u08E2⒚\≯\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4709\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𞥍ᡌ．𣃔", %p)}, undef, "to_ascii\(\'\\u200C\?ᡌ．𣃔\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4711\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𞥍ᡌ.𣃔", %p)}, undef, "to_ascii\(\'\\u200C\?ᡌ\.𣃔\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4713\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07D0}򜬝-񡢬。\x{0FA0}Ⴛ𞷏𝆬", %p)}, undef, "to_ascii\(\'\\u07D0\?\-\?\。\\u0FA0Ⴛ\?𝆬\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4715\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07D0}򜬝-񡢬。\x{0FA0}ⴛ𞷏𝆬", %p)}, undef, "to_ascii\(\'\\u07D0\?\-\?\。\\u0FA0ⴛ\?𝆬\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4716\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𝨥。⫟𑈾", %p)}, undef, "to_ascii\(\'𝨥\。\⫟\?\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4717\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⾛\x{0753}.Ⴕ𞠬\x{0604}\x{200D}", %p)}, undef, "to_ascii\(\'⾛\\u0753\.Ⴕ𞠬\\u0604\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4718\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("走\x{0753}.Ⴕ𞠬\x{0604}\x{200D}", %p)}, undef, "to_ascii\(\'走\\u0753\.Ⴕ𞠬\\u0604\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4720\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("走\x{0753}.ⴕ𞠬\x{0604}\x{200D}", %p)}, undef, "to_ascii\(\'走\\u0753\.ⴕ𞠬\\u0604\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4722\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾛\x{0753}.ⴕ𞠬\x{0604}\x{200D}", %p)}, undef, "to_ascii\(\'⾛\\u0753\.ⴕ𞠬\\u0604\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4724\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-ᢗ\x{200C}🄄.𑜢", %p)}, undef, "to_ascii\(\'\-ᢗ\\u200C🄄\.𑜢\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4726\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-ᢗ\x{200C}3,.𑜢", %p)}, undef, "to_ascii\(\'\-ᢗ\\u200C3\,\.𑜢\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4728\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠𐸁𹏁\x{200C}.Ⴚ򳄠", %p)}, undef, "to_ascii\(\'\≠\?\?\\u200C\.Ⴚ\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4730\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}𐸁𹏁\x{200C}.Ⴚ򳄠", %p)}, undef, "to_ascii\(\'\=\\u0338\?\?\\u200C\.Ⴚ\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4732\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}𐸁𹏁\x{200C}.ⴚ򳄠", %p)}, undef, "to_ascii\(\'\=\\u0338\?\?\\u200C\.ⴚ\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4734\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠𐸁𹏁\x{200C}.ⴚ򳄠", %p)}, undef, "to_ascii\(\'\≠\?\?\\u200C\.ⴚ\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4736\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("\x{0669}｡󠇀𑇊", %p)}, undef, "to_ascii\(\'\\u0669｡\󠇀𑇊\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4738\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("\x{0669}。󠇀𑇊", %p)}, undef, "to_ascii\(\'\\u0669\。\󠇀𑇊\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4739\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{1086}𞶀≯⒍。-", %p)}, undef, "to_ascii\(\'\\u1086\?\≯⒍\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4740\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1086}𞶀>\x{0338}⒍。-", %p)}, undef, "to_ascii\(\'\\u1086\?\>\\u0338⒍\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4741\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1086}𞶀≯6.。-", %p)}, undef, "to_ascii\(\'\\u1086\?\≯6\.\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ A4_2\ \[data\/IdnaTest\.txt\:4742\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1086}𞶀>\x{0338}6.。-", %p)}, undef, "to_ascii\(\'\\u1086\?\>\\u03386\.\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ A4_2\ \[data\/IdnaTest\.txt\:4743\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17B4}.쮇-", %p)}, undef, "to_ascii\(\'\\u17B4\.쮇\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4744\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17B4}.쮇-", %p)}, undef, "to_ascii\(\'\\u17B4\.쮇\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4745\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𑓂。⒈-􀪛", %p)}, undef, "to_ascii\(\'\\u200C𑓂\。⒈\-\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4746\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𑓂。1.-􀪛", %p)}, undef, "to_ascii\(\'\\u200C𑓂\。1\.\-\?\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:4748\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈\x{FEAE}\x{200C}。\x{20E9}🖞\x{200C}𖬴", %p)}, undef, "to_ascii\(\'⒈\\uFEAE\\u200C\。\\u20E9🖞\\u200C𖬴\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4750\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("1.\x{0631}\x{200C}。\x{20E9}🖞\x{200C}𖬴", %p)}, undef, "to_ascii\(\'1\.\\u0631\\u200C\。\\u20E9🖞\\u200C𖬴\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4752\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󌭇｡𝟐\x{1BA8}\x{07D4}", %p)}, undef, "to_ascii\(\'\?｡𝟐\\u1BA8\\u07D4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4754\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󌭇。2\x{1BA8}\x{07D4}", %p)}, undef, "to_ascii\(\'\?\。2\\u1BA8\\u07D4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4755\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FD8F}򫳺.ς\x{200D}𐹷", %p)}, undef, "to_ascii\(\'\\uFD8F\?\.ς\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:4756\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0645}\x{062E}\x{0645}򫳺.ς\x{200D}𐹷", %p)}, undef, "to_ascii\(\'\\u0645\\u062E\\u0645\?\.ς\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:4758\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0645}\x{062E}\x{0645}򫳺.Σ\x{200D}𐹷", %p)}, undef, "to_ascii\(\'\\u0645\\u062E\\u0645\?\.Σ\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:4760\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0645}\x{062E}\x{0645}򫳺.σ\x{200D}𐹷", %p)}, undef, "to_ascii\(\'\\u0645\\u062E\\u0645\?\.σ\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:4762\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FD8F}򫳺.Σ\x{200D}𐹷", %p)}, undef, "to_ascii\(\'\\uFD8F\?\.Σ\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:4764\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FD8F}򫳺.σ\x{200D}𐹷", %p)}, undef, "to_ascii\(\'\\uFD8F\?\.σ\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:4766\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒎\x{06C1}\x{0605}｡\x{AAF6}۵𐇽", %p)}, undef, "to_ascii\(\'⒎\\u06C1\\u0605｡\\uAAF6۵𐇽\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4768\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("7.\x{06C1}\x{0605}。\x{AAF6}۵𐇽", %p)}, undef, "to_ascii\(\'7\.\\u06C1\\u0605\。\\uAAF6۵𐇽\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4769\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-ᡥ᠆󍲭。\x{0605}\x{1A5D}𐹡", %p)}, undef, "to_ascii\(\'\-ᡥ᠆\?\。\\u0605\\u1A5D𐹡\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4770\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}.\x{06BD}\x{0663}\x{0596}", %p)}, "xn--hcb32bni", "to_ascii\(\'\\u200D\.\\u06BD\\u0663\\u0596\'\)\ \[data\/IdnaTest\.txt\:4771\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--hcb32bni", %p)}, "xn--hcb32bni", "to_ascii\(\'xn\-\-hcb32bni\'\)\ \[data\/IdnaTest\.txt\:4773\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BD}\x{0663}\x{0596}", %p)}, "xn--hcb32bni", "to_ascii\(\'\\u06BD\\u0663\\u0596\'\)\ \[data\/IdnaTest\.txt\:4774\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㒧۱.Ⴚ\x{0678}\x{200D}", %p)}, undef, "to_ascii\(\'㒧۱\.Ⴚ\\u0678\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4775\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㒧۱.Ⴚ\x{064A}\x{0674}\x{200D}", %p)}, undef, "to_ascii\(\'㒧۱\.Ⴚ\\u064A\\u0674\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4777\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("㒧۱.ⴚ\x{064A}\x{0674}\x{200D}", %p)}, undef, "to_ascii\(\'㒧۱\.ⴚ\\u064A\\u0674\\u200D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4779\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("㒧۱.ⴚ\x{0678}\x{200D}", %p)}, undef, "to_ascii\(\'㒧۱\.ⴚ\\u0678\\u200D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4781\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0F94}ꡋ-．-𖬴", %p)}, undef, "to_ascii\(\'\\u0F94ꡋ\-．\-𖬴\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4783\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0F94}ꡋ-.-𖬴", %p)}, undef, "to_ascii\(\'\\u0F94ꡋ\-\.\-𖬴\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4784\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񿒳-⋢\x{200C}．标-", %p)}, undef, "to_ascii\(\'\?\-\⋢\\u200C．标\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4785\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񿒳-⊑\x{0338}\x{200C}．标-", %p)}, undef, "to_ascii\(\'\?\-\⊑\\u0338\\u200C．标\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4787\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񿒳-⋢\x{200C}.标-", %p)}, undef, "to_ascii\(\'\?\-\⋢\\u200C\.标\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4789\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񿒳-⊑\x{0338}\x{200C}.标-", %p)}, undef, "to_ascii\(\'\?\-\⊑\\u0338\\u200C\.标\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4791\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{0671}．ς\x{07DC}", %p)}, undef, "to_ascii\(\'\\u0671．ς\\u07DC\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4793\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{0671}.ς\x{07DC}", %p)}, undef, "to_ascii\(\'\\u0671\.ς\\u07DC\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4794\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{0671}.Σ\x{07DC}", %p)}, undef, "to_ascii\(\'\\u0671\.Σ\\u07DC\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4795\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{0671}.σ\x{07DC}", %p)}, undef, "to_ascii\(\'\\u0671\.σ\\u07DC\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4796\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{0671}．Σ\x{07DC}", %p)}, undef, "to_ascii\(\'\\u0671．Σ\\u07DC\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4797\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{0671}．σ\x{07DC}", %p)}, undef, "to_ascii\(\'\\u0671．σ\\u07DC\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4798\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񼈶\x{0605}．\x{08C1}\x{200D}𑑂𱼱", %p)}, undef, "to_ascii\(\'\?\\u0605．\\u08C1\\u200D\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4799\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񼈶\x{0605}.\x{08C1}\x{200D}𑑂𱼱", %p)}, undef, "to_ascii\(\'\?\\u0605\.\\u08C1\\u200D\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4801\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹾𐋩𞵜｡\x{1BF2}", %p)}, undef, "to_ascii\(\'𐹾𐋩\?｡\\u1BF2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4803\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹾𐋩𞵜。\x{1BF2}", %p)}, undef, "to_ascii\(\'𐹾𐋩\?\。\\u1BF2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4804\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("6\x{1160}\x{1C33}󠸧.򟜊锰\x{072C}ς", %p)}, undef, "to_ascii\(\'6\\u1160\\u1C33\?\.\?锰\\u072Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4805\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("6\x{1160}\x{1C33}󠸧.򟜊锰\x{072C}Σ", %p)}, undef, "to_ascii\(\'6\\u1160\\u1C33\?\.\?锰\\u072CΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4806\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("6\x{1160}\x{1C33}󠸧.򟜊锰\x{072C}σ", %p)}, undef, "to_ascii\(\'6\\u1160\\u1C33\?\.\?锰\\u072Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4807\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06B3}\x{FE04}񅎦𝟽｡𐹽", %p)}, undef, "to_ascii\(\'\\u06B3\\uFE04\?𝟽｡𐹽\'\)\ throws\ error\ P1\ V6\ B2\ B1\ \[data\/IdnaTest\.txt\:4808\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06B3}\x{FE04}񅎦7。𐹽", %p)}, undef, "to_ascii\(\'\\u06B3\\uFE04\?7\。𐹽\'\)\ throws\ error\ P1\ V6\ B2\ B1\ \[data\/IdnaTest\.txt\:4809\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞮧．\x{200C}⫞", %p)}, undef, "to_ascii\(\'\?．\\u200C\⫞\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4810\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞮧.\x{200C}⫞", %p)}, undef, "to_ascii\(\'\?\.\\u200C\⫞\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4812\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񕉴.\x{06E0}ᢚ-", %p)}, undef, "to_ascii\(\'\-\?\.\\u06E0ᢚ\-\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4814\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("⌁\x{200D}𑄴．\x{200C}𝟩\x{066C}", %p)}, undef, "to_ascii\(\'\⌁\\u200D𑄴．\\u200C𝟩\\u066C\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4815\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("⌁\x{200D}𑄴.\x{200C}7\x{066C}", %p)}, undef, "to_ascii\(\'\⌁\\u200D𑄴\.\\u200C7\\u066C\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4817\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("︒\x{FD05}\x{0E37}\x{FEFC}。岓\x{1BF2}󠾃ᡂ", %p)}, undef, "to_ascii\(\'︒\\uFD05\\u0E37\\uFEFC\。岓\\u1BF2\?ᡂ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4819\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。\x{0635}\x{0649}\x{0E37}\x{0644}\x{0627}。岓\x{1BF2}󠾃ᡂ", %p)}, undef, "to_ascii\(\'\。\\u0635\\u0649\\u0E37\\u0644\\u0627\。岓\\u1BF2\?ᡂ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4820\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("𐹨。8𑁆", %p)}, undef, "to_ascii\(\'𐹨\。8𑁆\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4821\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞀕\x{0D43}．ꡚ\x{08FA}𐹰\x{0D44}", %p)}, undef, "to_ascii\(\'\?\\u0D43．ꡚ\\u08FA𐹰\\u0D44\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4822\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞀕\x{0D43}.ꡚ\x{08FA}𐹰\x{0D44}", %p)}, undef, "to_ascii\(\'\?\\u0D43\.ꡚ\\u08FA𐹰\\u0D44\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4823\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󆩏𐦹\x{0303}｡󠍅", %p)}, undef, "to_ascii\(\'\?\?\\u0303｡\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4824\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󆩏𐦹\x{0303}。󠍅", %p)}, undef, "to_ascii\(\'\?\?\\u0303\。\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4825\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("ᢌ．-\x{085A}", %p)}, undef, "to_ascii\(\'ᢌ．\-\\u085A\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4826\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("ᢌ.-\x{085A}", %p)}, undef, "to_ascii\(\'ᢌ\.\-\\u085A\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4827\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𥛛𑘶｡𐹬𐲸\x{0BCD}", %p)}, undef, "to_ascii\(\'𥛛𑘶｡𐹬\?\\u0BCD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4828\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𥛛𑘶。𐹬𐲸\x{0BCD}", %p)}, undef, "to_ascii\(\'𥛛𑘶\。𐹬\?\\u0BCD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4829\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴐ\x{077F}．\x{200C}", %p)}, undef, "to_ascii\(\'Ⴐ\\u077F．\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4830\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴐ\x{077F}.\x{200C}", %p)}, undef, "to_ascii\(\'Ⴐ\\u077F\.\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4832\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ⴐ\x{077F}.\x{200C}", %p)}, undef, "to_ascii\(\'ⴐ\\u077F\.\\u200C\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4834\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ⴐ\x{077F}．\x{200C}", %p)}, undef, "to_ascii\(\'ⴐ\\u077F．\\u200C\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4836\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("🄅𑲞-⒈。\x{200D}ᠩ\x{06A5}", %p)}, undef, "to_ascii\(\'🄅\?\-⒈\。\\u200Dᠩ\\u06A5\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4838\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4,𑲞-1.。\x{200D}ᠩ\x{06A5}", %p)}, undef, "to_ascii\(\'4\,\?\-1\.\。\\u200Dᠩ\\u06A5\'\)\ throws\ error\ P1\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:4840\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗀤。𞤪򮿋", %p)}, undef, "to_ascii\(\'\?\。\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4842\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("\x{05C1}۲｡𐮊\x{066C}𝨊鄨", %p)}, undef, "to_ascii\(\'\\u05C1۲｡𐮊\\u066C𝨊鄨\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:4843\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("\x{05C1}۲。𐮊\x{066C}𝨊鄨", %p)}, undef, "to_ascii\(\'\\u05C1۲\。𐮊\\u066C𝨊鄨\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:4844\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞭳-ꡁ。\x{1A69}\x{0BCD}-", %p)}, undef, "to_ascii\(\'\?\-ꡁ\。\\u1A69\\u0BCD\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:4845\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1039}-𚮭🞢．ß", %p)}, undef, "to_ascii\(\'\\u1039\-\?🞢．ß\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4846\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1039}-𚮭🞢.ß", %p)}, undef, "to_ascii\(\'\\u1039\-\?🞢\.ß\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4847\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1039}-𚮭🞢.SS", %p)}, undef, "to_ascii\(\'\\u1039\-\?🞢\.SS\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4848\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1039}-𚮭🞢．SS", %p)}, undef, "to_ascii\(\'\\u1039\-\?🞢．SS\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4849\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FCF2}-\x{200C}｡Ⴟ\x{200C}␣", %p)}, undef, "to_ascii\(\'\\uFCF2\-\\u200C｡Ⴟ\\u200C\␣\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:4850\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0640}\x{064E}\x{0651}-\x{200C}。Ⴟ\x{200C}␣", %p)}, undef, "to_ascii\(\'\\u0640\\u064E\\u0651\-\\u200C\。Ⴟ\\u200C\␣\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:4852\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0640}\x{064E}\x{0651}-\x{200C}。ⴟ\x{200C}␣", %p)}, undef, "to_ascii\(\'\\u0640\\u064E\\u0651\-\\u200C\。ⴟ\\u200C\␣\'\)\ throws\ error\ V3\ B3\ \[data\/IdnaTest\.txt\:4854\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{FCF2}-\x{200C}｡ⴟ\x{200C}␣", %p)}, undef, "to_ascii\(\'\\uFCF2\-\\u200C｡ⴟ\\u200C\␣\'\)\ throws\ error\ V3\ B3\ \[data\/IdnaTest\.txt\:4856\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0D4D}-\x{200D}\x{200C}｡񥞧₅≠", %p)}, undef, "to_ascii\(\'\\u0D4D\-\\u200D\\u200C｡\?₅\≠\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:4858\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0D4D}-\x{200D}\x{200C}｡񥞧₅=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0D4D\-\\u200D\\u200C｡\?₅\=\\u0338\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:4860\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0D4D}-\x{200D}\x{200C}。񥞧5≠", %p)}, undef, "to_ascii\(\'\\u0D4D\-\\u200D\\u200C\。\?5\≠\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:4862\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0D4D}-\x{200D}\x{200C}。񥞧5=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0D4D\-\\u200D\\u200C\。\?5\=\\u0338\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:4864\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("锣。\x{0A4D}󠘻󠚆", %p)}, undef, "to_ascii\(\'锣\。\\u0A4D\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4866\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{063D}𑈾．\x{0649}\x{200D}\x{A92B}", %p)}, "xn--8gb2338k.xn--lhb0154f", "to_ascii\(\'\\u063D\?．\\u0649\\u200D\\uA92B\'\)\ \[data\/IdnaTest\.txt\:4867\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{063D}𑈾.\x{0649}\x{200D}\x{A92B}", %p)}, "xn--8gb2338k.xn--lhb0154f", "to_ascii\(\'\\u063D\?\.\\u0649\\u200D\\uA92B\'\)\ \[data\/IdnaTest\.txt\:4869\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--8gb2338k.xn--lhb0154f", %p)}, "xn--8gb2338k.xn--lhb0154f", "to_ascii\(\'xn\-\-8gb2338k\.xn\-\-lhb0154f\'\)\ \[data\/IdnaTest\.txt\:4871\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{063D}𑈾.\x{0649}\x{A92B}", %p)}, "xn--8gb2338k.xn--lhb0154f", "to_ascii\(\'\\u063D\?\.\\u0649\\uA92B\'\)\ \[data\/IdnaTest\.txt\:4872\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0666}⁴Ⴅ．\x{08BD}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0666⁴Ⴅ．\\u08BD\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4873\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0666}4Ⴅ.\x{08BD}\x{200C}", %p)}, undef, "to_ascii\(\'\\u06664Ⴅ\.\\u08BD\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4875\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{0666}4ⴅ.\x{08BD}\x{200C}", %p)}, undef, "to_ascii\(\'\\u06664ⴅ\.\\u08BD\\u200C\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4877\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{0666}⁴ⴅ．\x{08BD}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0666⁴ⴅ．\\u08BD\\u200C\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4879\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ჁႱ6\x{0318}。ß\x{1B03}", %p)}, undef, "to_ascii\(\'ჁႱ6\\u0318\。ß\\u1B03\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4881\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ⴡⴑ6\x{0318}。ß\x{1B03}", %p)}, "xn--6-8cb7433a2ba.xn--ss-2vq", "to_ascii\(\'ⴡⴑ6\\u0318\。ß\\u1B03\'\)\ \[data\/IdnaTest\.txt\:4882\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ჁႱ6\x{0318}。SS\x{1B03}", %p)}, undef, "to_ascii\(\'ჁႱ6\\u0318\。SS\\u1B03\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4884\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ⴡⴑ6\x{0318}。ss\x{1B03}", %p)}, "xn--6-8cb7433a2ba.xn--ss-2vq", "to_ascii\(\'ⴡⴑ6\\u0318\。ss\\u1B03\'\)\ \[data\/IdnaTest\.txt\:4885\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴡⴑ6\x{0318}。Ss\x{1B03}", %p)}, undef, "to_ascii\(\'Ⴡⴑ6\\u0318\。Ss\\u1B03\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4886\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("xn--6-8cb7433a2ba.xn--ss-2vq", %p)}, "xn--6-8cb7433a2ba.xn--ss-2vq", "to_ascii\(\'xn\-\-6\-8cb7433a2ba\.xn\-\-ss\-2vq\'\)\ \[data\/IdnaTest\.txt\:4887\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ⴡⴑ6\x{0318}.ss\x{1B03}", %p)}, "xn--6-8cb7433a2ba.xn--ss-2vq", "to_ascii\(\'ⴡⴑ6\\u0318\.ss\\u1B03\'\)\ \[data\/IdnaTest\.txt\:4888\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ჁႱ6\x{0318}.SS\x{1B03}", %p)}, undef, "to_ascii\(\'ჁႱ6\\u0318\.SS\\u1B03\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4889\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴡⴑ6\x{0318}.Ss\x{1B03}", %p)}, undef, "to_ascii\(\'Ⴡⴑ6\\u0318\.Ss\\u1B03\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4890\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("xn--6-8cb7433a2ba.xn--zca894k", %p)}, "xn--6-8cb7433a2ba.xn--zca894k", "to_ascii\(\'xn\-\-6\-8cb7433a2ba\.xn\-\-zca894k\'\)\ \[data\/IdnaTest\.txt\:4891\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ⴡⴑ6\x{0318}.ß\x{1B03}", %p)}, "xn--6-8cb7433a2ba.xn--ss-2vq", "to_ascii\(\'ⴡⴑ6\\u0318\.ß\\u1B03\'\)\ \[data\/IdnaTest\.txt\:4892\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򋡐｡≯𑋪", %p)}, undef, "to_ascii\(\'\?｡\≯𑋪\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4894\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򋡐｡>\x{0338}𑋪", %p)}, undef, "to_ascii\(\'\?｡\>\\u0338𑋪\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4895\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򋡐。≯𑋪", %p)}, undef, "to_ascii\(\'\?\。\≯𑋪\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4896\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򋡐。>\x{0338}𑋪", %p)}, undef, "to_ascii\(\'\?\。\>\\u0338𑋪\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4897\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{065A}۲。\x{200C}-\x{1BF3}\x{08E2}", %p)}, undef, "to_ascii\(\'\\u065A۲\。\\u200C\-\\u1BF3\\u08E2\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4898\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄏𖬴󠲽｡\x{FFA0}", %p)}, undef, "to_ascii\(\'\󠄏𖬴\?｡\\uFFA0\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4900\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄏𖬴󠲽。\x{1160}", %p)}, undef, "to_ascii\(\'\󠄏𖬴\?\。\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4901\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß⒈\x{0760}\x{D7AE}．􉖲󠅄\x{0605}򉔯", %p)}, undef, "to_ascii\(\'ß⒈\\u0760\\uD7AE．\?\󠅄\\u0605\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4902\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß1.\x{0760}\x{D7AE}.􉖲󠅄\x{0605}򉔯", %p)}, undef, "to_ascii\(\'ß1\.\\u0760\\uD7AE\.\?\󠅄\\u0605\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:4903\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS1.\x{0760}\x{D7AE}.􉖲󠅄\x{0605}򉔯", %p)}, undef, "to_ascii\(\'SS1\.\\u0760\\uD7AE\.\?\󠅄\\u0605\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:4904\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS⒈\x{0760}\x{D7AE}．􉖲󠅄\x{0605}򉔯", %p)}, undef, "to_ascii\(\'SS⒈\\u0760\\uD7AE．\?\󠅄\\u0605\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4905\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss⒈\x{0760}\x{D7AE}．􉖲󠅄\x{0605}򉔯", %p)}, undef, "to_ascii\(\'ss⒈\\u0760\\uD7AE．\?\󠅄\\u0605\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4906\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss⒈\x{0760}\x{D7AE}．􉖲󠅄\x{0605}򉔯", %p)}, undef, "to_ascii\(\'Ss⒈\\u0760\\uD7AE．\?\󠅄\\u0605\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4907\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠭔.𐋱₂", %p)}, undef, "to_ascii\(\'\?\.𐋱₂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4908\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠭔.𐋱2", %p)}, undef, "to_ascii\(\'\?\.𐋱2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4909\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0716}\x{0947}。-ß\x{06A5}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0716\\u0947\。\-ß\\u06A5\\u200C\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4910\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0716}\x{0947}。-SS\x{06A5}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0716\\u0947\。\-SS\\u06A5\\u200C\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4912\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0716}\x{0947}。-ss\x{06A5}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0716\\u0947\。\-ss\\u06A5\\u200C\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4914\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0716}\x{0947}。-Ss\x{06A5}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0716\\u0947\。\-Ss\\u06A5\\u200C\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4916\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BA9}\x{200D}\x{062A}񡚈．\x{1CD5}䷉Ⴡ", %p)}, undef, "to_ascii\(\'\\u1BA9\\u200D\\u062A\?．\\u1CD5䷉Ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4918\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BA9}\x{200D}\x{062A}񡚈.\x{1CD5}䷉Ⴡ", %p)}, undef, "to_ascii\(\'\\u1BA9\\u200D\\u062A\?\.\\u1CD5䷉Ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4920\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BA9}\x{200D}\x{062A}񡚈.\x{1CD5}䷉ⴡ", %p)}, undef, "to_ascii\(\'\\u1BA9\\u200D\\u062A\?\.\\u1CD5䷉ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4922\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BA9}\x{200D}\x{062A}񡚈．\x{1CD5}䷉ⴡ", %p)}, undef, "to_ascii\(\'\\u1BA9\\u200D\\u062A\?．\\u1CD5䷉ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4924\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2DBF}.ß\x{200D}", %p)}, undef, "to_ascii\(\'\\u2DBF\.ß\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4926\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2DBF}.SS\x{200D}", %p)}, undef, "to_ascii\(\'\\u2DBF\.SS\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4928\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2DBF}.ss\x{200D}", %p)}, undef, "to_ascii\(\'\\u2DBF\.ss\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4930\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2DBF}.Ss\x{200D}", %p)}, undef, "to_ascii\(\'\\u2DBF\.Ss\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4932\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}︒.\x{062A}≯ꡂ", %p)}, undef, "to_ascii\(\'\\u1BF3︒\.\\u062A\≯ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4934\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}︒.\x{062A}>\x{0338}ꡂ", %p)}, undef, "to_ascii\(\'\\u1BF3︒\.\\u062A\>\\u0338ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4935\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}。.\x{062A}≯ꡂ", %p)}, undef, "to_ascii\(\'\\u1BF3\。\.\\u062A\≯ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B2\ B3\ \[data\/IdnaTest\.txt\:4936\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}。.\x{062A}>\x{0338}ꡂ", %p)}, undef, "to_ascii\(\'\\u1BF3\。\.\\u062A\>\\u0338ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B2\ B3\ \[data\/IdnaTest\.txt\:4937\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮≠񏻃｡-𫠆\x{06B7}𐹪", %p)}, undef, "to_ascii\(\'\≮\≠\?｡\-𫠆\\u06B7𐹪\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4938\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}=\x{0338}񏻃｡-𫠆\x{06B7}𐹪", %p)}, undef, "to_ascii\(\'\<\\u0338\=\\u0338\?｡\-𫠆\\u06B7𐹪\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4939\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮≠񏻃。-𫠆\x{06B7}𐹪", %p)}, undef, "to_ascii\(\'\≮\≠\?\。\-𫠆\\u06B7𐹪\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4940\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}=\x{0338}񏻃。-𫠆\x{06B7}𐹪", %p)}, undef, "to_ascii\(\'\<\\u0338\=\\u0338\?\。\-𫠆\\u06B7𐹪\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4941\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹡\x{0777}。ꡂ", %p)}, undef, "to_ascii\(\'𐹡\\u0777\。ꡂ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4942\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴉ𝆅񔻅\x{0619}.ß𐧦𐹳\x{0775}", %p)}, undef, "to_ascii\(\'Ⴉ𝆅\?\\u0619\.ß𐧦𐹳\\u0775\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4943\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴉ𝆅񔻅\x{0619}.ß𐧦𐹳\x{0775}", %p)}, undef, "to_ascii\(\'ⴉ𝆅\?\\u0619\.ß𐧦𐹳\\u0775\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4944\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴉ𝆅񔻅\x{0619}.SS𐧦𐹳\x{0775}", %p)}, undef, "to_ascii\(\'Ⴉ𝆅\?\\u0619\.SS𐧦𐹳\\u0775\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4945\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴉ𝆅񔻅\x{0619}.ss𐧦𐹳\x{0775}", %p)}, undef, "to_ascii\(\'ⴉ𝆅\?\\u0619\.ss𐧦𐹳\\u0775\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4946\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴉ𝆅񔻅\x{0619}.Ss𐧦𐹳\x{0775}", %p)}, undef, "to_ascii\(\'Ⴉ𝆅\?\\u0619\.Ss𐧦𐹳\\u0775\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4947\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}\x{0643}𐧾↙.񊽡", %p)}, undef, "to_ascii\(\'\\u200D\\u0643𐧾\↙\.\?\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4948\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("梉。\x{200C}", %p)}, "xn--7zv.", "to_ascii\(\'梉\。\\u200C\'\)\ \[data\/IdnaTest\.txt\:4950\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--7zv.", %p)}, "xn--7zv.", "to_ascii\(\'xn\-\-7zv\.\'\)\ \[data\/IdnaTest\.txt\:4952\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("梉.", %p)}, "xn--7zv.", "to_ascii\(\'梉\.\'\)\ \[data\/IdnaTest\.txt\:4953\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡣ-≠.\x{200D}𞤗𐅢Ↄ", %p)}, undef, "to_ascii\(\'ꡣ\-\≠\.\\u200D\?𐅢Ↄ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4954\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡣ-=\x{0338}.\x{200D}𞤗𐅢Ↄ", %p)}, undef, "to_ascii\(\'ꡣ\-\=\\u0338\.\\u200D\?𐅢Ↄ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4956\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡣ-=\x{0338}.\x{200D}𞤗𐅢ↄ", %p)}, undef, "to_ascii\(\'ꡣ\-\=\\u0338\.\\u200D\?𐅢ↄ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4958\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡣ-≠.\x{200D}𞤗𐅢ↄ", %p)}, undef, "to_ascii\(\'ꡣ\-\≠\.\\u200D\?𐅢ↄ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4960\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς⒐𝆫⸵｡𐱢🄊𝟳", %p)}, undef, "to_ascii\(\'ς⒐𝆫\⸵｡\?🄊𝟳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4962\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς9.𝆫⸵。𐱢9,7", %p)}, undef, "to_ascii\(\'ς9\.𝆫\⸵\。\?9\,7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4963\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ9.𝆫⸵。𐱢9,7", %p)}, undef, "to_ascii\(\'Σ9\.𝆫\⸵\。\?9\,7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4964\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ9.𝆫⸵。𐱢9,7", %p)}, undef, "to_ascii\(\'σ9\.𝆫\⸵\。\?9\,7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4965\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ⒐𝆫⸵｡𐱢🄊𝟳", %p)}, undef, "to_ascii\(\'Σ⒐𝆫\⸵｡\?🄊𝟳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4966\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ⒐𝆫⸵｡𐱢🄊𝟳", %p)}, undef, "to_ascii\(\'σ⒐𝆫\⸵｡\?🄊𝟳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4967\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{0853}．\x{200C}ß", %p)}, "xn--iwb.ss", "to_ascii\(\'\\u0853．\\u200Cß\'\)\ \[data\/IdnaTest\.txt\:4968\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{0853}.\x{200C}ß", %p)}, "xn--iwb.ss", "to_ascii\(\'\\u0853\.\\u200Cß\'\)\ \[data\/IdnaTest\.txt\:4970\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{0853}.\x{200C}SS", %p)}, "xn--iwb.ss", "to_ascii\(\'\\u0853\.\\u200CSS\'\)\ \[data\/IdnaTest\.txt\:4972\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{0853}.\x{200C}ss", %p)}, "xn--iwb.ss", "to_ascii\(\'\\u0853\.\\u200Css\'\)\ \[data\/IdnaTest\.txt\:4974\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{0853}.\x{200C}Ss", %p)}, "xn--iwb.ss", "to_ascii\(\'\\u0853\.\\u200CSs\'\)\ \[data\/IdnaTest\.txt\:4976\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("xn--iwb.ss", %p)}, "xn--iwb.ss", "to_ascii\(\'xn\-\-iwb\.ss\'\)\ \[data\/IdnaTest\.txt\:4978\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{0853}.ss", %p)}, "xn--iwb.ss", "to_ascii\(\'\\u0853\.ss\'\)\ \[data\/IdnaTest\.txt\:4979\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{0853}．\x{200C}SS", %p)}, "xn--iwb.ss", "to_ascii\(\'\\u0853．\\u200CSS\'\)\ \[data\/IdnaTest\.txt\:4980\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{0853}．\x{200C}ss", %p)}, "xn--iwb.ss", "to_ascii\(\'\\u0853．\\u200Css\'\)\ \[data\/IdnaTest\.txt\:4982\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{0853}．\x{200C}Ss", %p)}, "xn--iwb.ss", "to_ascii\(\'\\u0853．\\u200CSs\'\)\ \[data\/IdnaTest\.txt\:4984\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񯶣-.\x{200D}\x{074E}\x{A94D}󠻨", %p)}, undef, "to_ascii\(\'\?\-\.\\u200D\\u074E\\uA94D\?\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:4986\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䃚蟥-。-񽒘⒈", %p)}, undef, "to_ascii\(\'䃚蟥\-\。\-\?⒈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4988\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䃚蟥-。-񽒘1.", %p)}, undef, "to_ascii\(\'䃚蟥\-\。\-\?1\.\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4989\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹸䚵-ꡡ。⺇", %p)}, undef, "to_ascii\(\'𐹸䚵\-ꡡ\。⺇\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4990\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𑄳。\x{1ADC}𐹻", %p)}, undef, "to_ascii\(\'𑄳\。\\u1ADC𐹻\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4991\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮𐹻.⒎𑂵\x{06BA}\x{0602}", %p)}, undef, "to_ascii\(\'\≮𐹻\.⒎𑂵\\u06BA\\u0602\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4992\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𐹻.⒎𑂵\x{06BA}\x{0602}", %p)}, undef, "to_ascii\(\'\<\\u0338𐹻\.⒎𑂵\\u06BA\\u0602\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4993\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮𐹻.7.𑂵\x{06BA}\x{0602}", %p)}, undef, "to_ascii\(\'\≮𐹻\.7\.𑂵\\u06BA\\u0602\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4994\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𐹻.7.𑂵\x{06BA}\x{0602}", %p)}, undef, "to_ascii\(\'\<\\u0338𐹻\.7\.𑂵\\u06BA\\u0602\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4995\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢔ≠􋉂.\x{200D}𐋢", %p)}, undef, "to_ascii\(\'ᢔ\≠\?\.\\u200D𐋢\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4996\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢔ=\x{0338}􋉂.\x{200D}𐋢", %p)}, undef, "to_ascii\(\'ᢔ\=\\u0338\?\.\\u200D𐋢\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4998\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐩁≮񣊛≯．\x{066C}𞵕⳿", %p)}, undef, "to_ascii\(\'𐩁\≮\?\≯．\\u066C\?⳿\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:5000\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐩁<\x{0338}񣊛>\x{0338}．\x{066C}𞵕⳿", %p)}, undef, "to_ascii\(\'𐩁\<\\u0338\?\>\\u0338．\\u066C\?⳿\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:5001\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐩁≮񣊛≯.\x{066C}𞵕⳿", %p)}, undef, "to_ascii\(\'𐩁\≮\?\≯\.\\u066C\?⳿\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:5002\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐩁<\x{0338}񣊛>\x{0338}.\x{066C}𞵕⳿", %p)}, undef, "to_ascii\(\'𐩁\<\\u0338\?\>\\u0338\.\\u066C\?⳿\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:5003\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-｡⺐", %p)}, undef, "to_ascii\(\'\-｡⺐\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:5004\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-。⺐", %p)}, undef, "to_ascii\(\'\-\。⺐\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:5005\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠰩𑲬．\x{065C}", %p)}, undef, "to_ascii\(\'\?\?．\\u065C\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5006\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠰩𑲬.\x{065C}", %p)}, undef, "to_ascii\(\'\?\?\.\\u065C\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5007\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐍺.񚇃\x{200C}", %p)}, undef, "to_ascii\(\'𐍺\.\?\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5008\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{063D}\x{06E3}.𐨎", %p)}, undef, "to_ascii\(\'\\u063D\\u06E3\.𐨎\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5010\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("漦Ⴙς.񡻀𐴄", %p)}, undef, "to_ascii\(\'漦Ⴙς\.\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5011\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("漦ⴙς.񡻀𐴄", %p)}, undef, "to_ascii\(\'漦ⴙς\.\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5012\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("漦ႹΣ.񡻀𐴄", %p)}, undef, "to_ascii\(\'漦ႹΣ\.\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5013\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("漦ⴙσ.񡻀𐴄", %p)}, undef, "to_ascii\(\'漦ⴙσ\.\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5014\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("漦Ⴙσ.񡻀𐴄", %p)}, undef, "to_ascii\(\'漦Ⴙσ\.\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5015\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹫踧\x{0CCD}򫚇.󜀃⒈𝨤", %p)}, undef, "to_ascii\(\'𐹫踧\\u0CCD\?\.\?⒈𝨤\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5016\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹫踧\x{0CCD}򫚇.󜀃1.𝨤", %p)}, undef, "to_ascii\(\'𐹫踧\\u0CCD\?\.\?1\.𝨤\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:5017\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}≮．󠟪𹫏-", %p)}, undef, "to_ascii\(\'\\u200D\≮．\?\?\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:5018\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}<\x{0338}．󠟪𹫏-", %p)}, undef, "to_ascii\(\'\\u200D\<\\u0338．\?\?\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:5020\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}≮.󠟪𹫏-", %p)}, undef, "to_ascii\(\'\\u200D\≮\.\?\?\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:5022\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}<\x{0338}.󠟪𹫏-", %p)}, undef, "to_ascii\(\'\\u200D\<\\u0338\.\?\?\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:5024\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}\x{200D}襔。Ⴜ5ꡮ񵝏", %p)}, undef, "to_ascii\(\'\\u200D\\u200D襔\。Ⴜ5ꡮ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5026\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}\x{200D}襔。ⴜ5ꡮ񵝏", %p)}, undef, "to_ascii\(\'\\u200D\\u200D襔\。ⴜ5ꡮ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5028\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫜𑌼\x{200D}．婀", %p)}, "xn--ix9c26l.xn--q0s", "to_ascii\(\'𐫜𑌼\\u200D．婀\'\)\ \[data\/IdnaTest\.txt\:5030\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫜𑌼\x{200D}.婀", %p)}, "xn--ix9c26l.xn--q0s", "to_ascii\(\'𐫜𑌼\\u200D\.婀\'\)\ \[data\/IdnaTest\.txt\:5032\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--ix9c26l.xn--q0s", %p)}, "xn--ix9c26l.xn--q0s", "to_ascii\(\'xn\-\-ix9c26l\.xn\-\-q0s\'\)\ \[data\/IdnaTest\.txt\:5034\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫜𑌼.婀", %p)}, "xn--ix9c26l.xn--q0s", "to_ascii\(\'𐫜𑌼\.婀\'\)\ \[data\/IdnaTest\.txt\:5035\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󠅽︒︒𐹯｡⬳\x{1A78}", %p)}, undef, "to_ascii\(\'\󠅽︒︒𐹯｡\⬳\\u1A78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5036\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("󠅽。。𐹯。⬳\x{1A78}", %p)}, undef, "to_ascii\(\'\󠅽\。\。𐹯\。\⬳\\u1A78\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:5037\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𝟖ß．󠄐-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'𝟖ß．\󠄐\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V3\ V6\ A3\ \[data\/IdnaTest\.txt\:5038\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8ß.󠄐-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'8ß\.\󠄐\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V3\ V6\ A3\ \[data\/IdnaTest\.txt\:5039\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8ß.󠄐-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'8ß\.\󠄐\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V3\ V6\ A3\ \[data\/IdnaTest\.txt\:5040\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8SS.󠄐-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'8SS\.\󠄐\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V3\ V6\ A3\ \[data\/IdnaTest\.txt\:5041\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8ss.󠄐-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'8ss\.\󠄐\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V3\ V6\ A3\ \[data\/IdnaTest\.txt\:5042\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟖ß．󠄐-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'𝟖ß．\󠄐\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V3\ V6\ A3\ \[data\/IdnaTest\.txt\:5043\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟖SS．󠄐-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'𝟖SS．\󠄐\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V3\ V6\ A3\ \[data\/IdnaTest\.txt\:5044\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟖ss．󠄐-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'𝟖ss．\󠄐\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V3\ V6\ A3\ \[data\/IdnaTest\.txt\:5045\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟖Ss．󠄐-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'𝟖Ss．\󠄐\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V3\ V6\ A3\ \[data\/IdnaTest\.txt\:5046\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{200D}󠋟.\x{200C}𐹣Ⴅ", %p)}, undef, "to_ascii\(\'\-\\u200D\?\.\\u200C𐹣Ⴅ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:5047\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{200D}󠋟.\x{200C}𐹣ⴅ", %p)}, undef, "to_ascii\(\'\-\\u200D\?\.\\u200C𐹣ⴅ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:5049\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9B9}\x{200D}큷𻶡｡₂", %p)}, undef, "to_ascii\(\'\\uA9B9\\u200D큷\?｡₂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5051\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9B9}\x{200D}큷𻶡｡₂", %p)}, undef, "to_ascii\(\'\\uA9B9\\u200D큷\?｡₂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5053\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9B9}\x{200D}큷𻶡。2", %p)}, undef, "to_ascii\(\'\\uA9B9\\u200D큷\?\。2\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5055\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9B9}\x{200D}큷𻶡。2", %p)}, undef, "to_ascii\(\'\\uA9B9\\u200D큷\?\。2\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5057\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{DF4D}.🄄𞯘", %p)}, undef, "to_ascii\(\'\\uDF4D\.🄄\?\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:5059\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{DF4D}.3,𞯘", %p)}, undef, "to_ascii\(\'\\uDF4D\.3\,\?\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:5060\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝨖𐩙。\x{06DD}󀡶\x{A8C5}⒈", %p)}, undef, "to_ascii\(\'𝨖\?\。\\u06DD\?\\uA8C5⒈\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:5061\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝨖𐩙。\x{06DD}󀡶\x{A8C5}1.", %p)}, undef, "to_ascii\(\'𝨖\?\。\\u06DD\?\\uA8C51\.\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:5062\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򒈣\x{05E1}\x{06B8}。Ⴈ\x{200D}", %p)}, undef, "to_ascii\(\'\?\\u05E1\\u06B8\。Ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5063\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򒈣\x{05E1}\x{06B8}。ⴈ\x{200D}", %p)}, undef, "to_ascii\(\'\?\\u05E1\\u06B8\。ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5065\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󀚶𝨱\x{07E6}⒈．𑗝髯\x{200C}", %p)}, undef, "to_ascii\(\'\?𝨱\\u07E6⒈．𑗝髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:5067\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󀚶𝨱\x{07E6}1..𑗝髯\x{200C}", %p)}, undef, "to_ascii\(\'\?𝨱\\u07E61\.\.𑗝髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ A4_2\ \[data\/IdnaTest\.txt\:5069\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𐫀．\x{0689}𑌀", %p)}, "xn--pw9c.xn--fjb8658k", "to_ascii\(\'𐫀．\\u0689𑌀\'\)\ \[data\/IdnaTest\.txt\:5071\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𐫀.\x{0689}𑌀", %p)}, "xn--pw9c.xn--fjb8658k", "to_ascii\(\'𐫀\.\\u0689𑌀\'\)\ \[data\/IdnaTest\.txt\:5072\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("xn--pw9c.xn--fjb8658k", %p)}, "xn--pw9c.xn--fjb8658k", "to_ascii\(\'xn\-\-pw9c\.xn\-\-fjb8658k\'\)\ \[data\/IdnaTest\.txt\:5073\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𑋪．𐳝", %p)}, undef, "to_ascii\(\'𑋪．𐳝\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5074\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𑋪.𐳝", %p)}, undef, "to_ascii\(\'𑋪\.𐳝\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5075\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𑋪.𐲝", %p)}, undef, "to_ascii\(\'𑋪\.𐲝\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5076\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𑋪．𐲝", %p)}, undef, "to_ascii\(\'𑋪．𐲝\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5077\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("≠膣。\x{0F83}", %p)}, undef, "to_ascii\(\'\≠膣\。\\u0F83\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5078\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}膣。\x{0F83}", %p)}, undef, "to_ascii\(\'\=\\u0338膣\。\\u0F83\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5079\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񰀎-\x{077D}｡ß", %p)}, undef, "to_ascii\(\'\?\-\\u077D｡ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5080\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񰀎-\x{077D}。ß", %p)}, undef, "to_ascii\(\'\?\-\\u077D\。ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5081\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񰀎-\x{077D}。SS", %p)}, undef, "to_ascii\(\'\?\-\\u077D\。SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5082\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񰀎-\x{077D}｡SS", %p)}, undef, "to_ascii\(\'\?\-\\u077D｡SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5083\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς𐹠ᡚ𑄳．⾭𐹽𽐖𐫜", %p)}, undef, "to_ascii\(\'ς𐹠ᡚ𑄳．⾭𐹽\?𐫜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5084\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς𐹠ᡚ𑄳.靑𐹽𽐖𐫜", %p)}, undef, "to_ascii\(\'ς𐹠ᡚ𑄳\.靑𐹽\?𐫜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5085\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ𐹠ᡚ𑄳.靑𐹽𽐖𐫜", %p)}, undef, "to_ascii\(\'Σ𐹠ᡚ𑄳\.靑𐹽\?𐫜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5086\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ𐹠ᡚ𑄳.靑𐹽𽐖𐫜", %p)}, undef, "to_ascii\(\'σ𐹠ᡚ𑄳\.靑𐹽\?𐫜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5087\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ𐹠ᡚ𑄳．⾭𐹽𽐖𐫜", %p)}, undef, "to_ascii\(\'Σ𐹠ᡚ𑄳．⾭𐹽\?𐫜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5088\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ𐹠ᡚ𑄳．⾭𐹽𽐖𐫜", %p)}, undef, "to_ascii\(\'σ𐹠ᡚ𑄳．⾭𐹽\?𐫜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5089\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋷。\x{200D}", %p)}, "xn--r97c.", "to_ascii\(\'𐋷\。\\u200D\'\)\ \[data\/IdnaTest\.txt\:5090\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--r97c.", %p)}, "xn--r97c.", "to_ascii\(\'xn\-\-r97c\.\'\)\ \[data\/IdnaTest\.txt\:5092\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋷.", %p)}, "xn--r97c.", "to_ascii\(\'𐋷\.\'\)\ \[data\/IdnaTest\.txt\:5093\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𑰳𑈯。⥪", %p)}, undef, "to_ascii\(\'\?𑈯\。\⥪\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5094\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𑆀䁴񤧣．Ⴕ𝟜\x{200C}\x{0348}", %p)}, undef, "to_ascii\(\'𑆀䁴\?．Ⴕ𝟜\\u200C\\u0348\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5095\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑆀䁴񤧣.Ⴕ4\x{200C}\x{0348}", %p)}, undef, "to_ascii\(\'𑆀䁴\?\.Ⴕ4\\u200C\\u0348\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5097\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑆀䁴񤧣.ⴕ4\x{200C}\x{0348}", %p)}, undef, "to_ascii\(\'𑆀䁴\?\.ⴕ4\\u200C\\u0348\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5099\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑆀䁴񤧣．ⴕ𝟜\x{200C}\x{0348}", %p)}, undef, "to_ascii\(\'𑆀䁴\?．ⴕ𝟜\\u200C\\u0348\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5101\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("憡\x{DF1F}\x{200C}Ⴔ.𐋮\x{200D}≠", %p)}, undef, "to_ascii\(\'憡\\uDF1F\\u200CႴ\.𐋮\\u200D\≠\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:5103\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("憡\x{DF1F}\x{200C}Ⴔ.𐋮\x{200D}=\x{0338}", %p)}, undef, "to_ascii\(\'憡\\uDF1F\\u200CႴ\.𐋮\\u200D\=\\u0338\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:5105\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("憡\x{DF1F}\x{200C}ⴔ.𐋮\x{200D}=\x{0338}", %p)}, undef, "to_ascii\(\'憡\\uDF1F\\u200Cⴔ\.𐋮\\u200D\=\\u0338\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:5107\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("憡\x{DF1F}\x{200C}ⴔ.𐋮\x{200D}≠", %p)}, undef, "to_ascii\(\'憡\\uDF1F\\u200Cⴔ\.𐋮\\u200D\≠\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:5109\]") or ($@ and diag($@)); + + +exit(0); diff --git a/t/uts46_to_ascii.t b/t/uts46_to_ascii.t new file mode 100644 index 0000000..423e661 --- /dev/null +++ b/t/uts46_to_ascii.t @@ -0,0 +1,3813 @@ +# *** DO NOT EDIT *** generated file *** DO NOT EDIT *** +# +# generated by lib/Net/IDN/UTS46/GenTests.PL from data/IdnaTest.txt +# see repository at http://github.com/cfaerber/Net-IDN-Encode for source files +# +use strict; +use utf8; +use open ':std', ':utf8'; +use warnings; + +use Test::More tests => 3788 + 1; +use Test::NoWarnings; + +use Unicode::UCD; +use Net::IDN::UTS46 (':all'); + +no warnings 'utf8'; + +our $UCD_VERSION = eval('v'.(Unicode::UCD::UnicodeVersion())); + +my %p = ("TransitionalProcessing" => "0"); + +is(eval{uts46_to_ascii("fass.de", %p)}, "fass.de", "to_ascii\(\'fass\.de\'\)\ \[data\/IdnaTest\.txt\:61\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("faß.de", %p)}, "xn--fa-hia.de", "to_ascii\(\'faß\.de\'\)\ \[data\/IdnaTest\.txt\:63\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Faß.de", %p)}, "xn--fa-hia.de", "to_ascii\(\'Faß\.de\'\)\ \[data\/IdnaTest\.txt\:65\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--fa-hia.de", %p)}, "xn--fa-hia.de", "to_ascii\(\'xn\-\-fa\-hia\.de\'\)\ \[data\/IdnaTest\.txt\:66\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("à\x{05D0}", %p)}, undef, "to_ascii\(\'à\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:70\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0300}\x{05D0}", %p)}, undef, "to_ascii\(\'a\\u0300\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:71\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0300}\x{05D0}", %p)}, undef, "to_ascii\(\'A\\u0300\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:72\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("À\x{05D0}", %p)}, undef, "to_ascii\(\'À\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:73\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0à.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0à\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:74\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0a\x{0300}.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0a\\u0300\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:75\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0A\x{0300}.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0A\\u0300\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:76\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0À.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0À\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:77\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--0-sfa.xn--4db", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'xn\-\-0\-sfa\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:78\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("à.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'à\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:79\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0300}.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'a\\u0300\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:80\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0300}.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'A\\u0300\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:81\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("À.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'À\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:82\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--0ca.xn--ssa73l", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'xn\-\-0ca\.xn\-\-ssa73l\'\)\ \[data\/IdnaTest\.txt\:83\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("à.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_ascii\(\'à\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:84\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0300}.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_ascii\(\'a\\u0300\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:85\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0300}.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_ascii\(\'A\\u0300\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:86\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("À.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_ascii\(\'À\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:87\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0308}.\x{05D0}", %p)}, undef, "to_ascii\(\'\\u0308\.\\u05D0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:88\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("à.\x{05D0}0\x{0660}", %p)}, undef, "to_ascii\(\'à\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:89\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0300}.\x{05D0}0\x{0660}", %p)}, undef, "to_ascii\(\'a\\u0300\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:90\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0300}.\x{05D0}0\x{0660}", %p)}, undef, "to_ascii\(\'A\\u0300\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:91\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("À.\x{05D0}0\x{0660}", %p)}, undef, "to_ascii\(\'À\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:92\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("àˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'àˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:93\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0300}ˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'a\\u0300ˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:94\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0300}ˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'A\\u0300ˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:95\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Àˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'Àˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:96\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--0ca88g.xn--4db", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'xn\-\-0ca88g\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:97\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("à\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'à\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:98\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0300}\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'a\\u0300\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:99\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0300}\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'A\\u0300\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:100\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("À\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'À\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:101\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--0ca81i.xn--4db", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'xn\-\-0ca81i\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:102\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{200C}b", %p)}, undef, "to_ascii\(\'a\\u200Cb\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:107\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{200C}B", %p)}, undef, "to_ascii\(\'A\\u200CB\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:109\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{200C}b", %p)}, undef, "to_ascii\(\'A\\u200Cb\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:111\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ab", %p)}, "ab", "to_ascii\(\'ab\'\)\ \[data\/IdnaTest\.txt\:112\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{094D}\x{200C}b", %p)}, "xn--ab-fsf604u", "to_ascii\(\'a\\u094D\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:114\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{094D}\x{200C}B", %p)}, "xn--ab-fsf604u", "to_ascii\(\'A\\u094D\\u200CB\'\)\ \[data\/IdnaTest\.txt\:116\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{094D}\x{200C}b", %p)}, "xn--ab-fsf604u", "to_ascii\(\'A\\u094D\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:118\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ab-fsf", %p)}, "xn--ab-fsf", "to_ascii\(\'xn\-\-ab\-fsf\'\)\ \[data\/IdnaTest\.txt\:119\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{094D}b", %p)}, "xn--ab-fsf", "to_ascii\(\'a\\u094Db\'\)\ \[data\/IdnaTest\.txt\:120\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{094D}B", %p)}, "xn--ab-fsf", "to_ascii\(\'A\\u094DB\'\)\ \[data\/IdnaTest\.txt\:121\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{094D}b", %p)}, "xn--ab-fsf", "to_ascii\(\'A\\u094Db\'\)\ \[data\/IdnaTest\.txt\:122\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ab-fsf604u", %p)}, "xn--ab-fsf604u", "to_ascii\(\'xn\-\-ab\-fsf604u\'\)\ \[data\/IdnaTest\.txt\:123\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:125\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0308}\x{200C}\x{0308}\x{0628}B", %p)}, undef, "to_ascii\(\'\\u0308\\u200C\\u0308\\u0628B\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:127\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0628}\x{0308}\x{200C}\x{0308}", %p)}, undef, "to_ascii\(\'a\\u0628\\u0308\\u200C\\u0308\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:129\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200C}\x{0308}", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200C\\u0308\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:131\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0628}\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'a\\u0628\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:132\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200C}\x{0308}\x{0628}B", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200C\\u0308\\u0628B\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:133\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:134\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{200D}b", %p)}, undef, "to_ascii\(\'a\\u200Db\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:136\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{200D}B", %p)}, undef, "to_ascii\(\'A\\u200DB\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:138\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{200D}b", %p)}, undef, "to_ascii\(\'A\\u200Db\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:140\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{094D}\x{200D}b", %p)}, "xn--ab-fsf014u", "to_ascii\(\'a\\u094D\\u200Db\'\)\ \[data\/IdnaTest\.txt\:142\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{094D}\x{200D}B", %p)}, "xn--ab-fsf014u", "to_ascii\(\'A\\u094D\\u200DB\'\)\ \[data\/IdnaTest\.txt\:144\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{094D}\x{200D}b", %p)}, "xn--ab-fsf014u", "to_ascii\(\'A\\u094D\\u200Db\'\)\ \[data\/IdnaTest\.txt\:146\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ab-fsf014u", %p)}, "xn--ab-fsf014u", "to_ascii\(\'xn\-\-ab\-fsf014u\'\)\ \[data\/IdnaTest\.txt\:147\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:149\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0308}\x{200D}\x{0308}\x{0628}B", %p)}, undef, "to_ascii\(\'\\u0308\\u200D\\u0308\\u0628B\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:151\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0628}\x{0308}\x{200D}\x{0308}", %p)}, undef, "to_ascii\(\'a\\u0628\\u0308\\u200D\\u0308\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:153\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200D}\x{0308}", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200D\\u0308\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:155\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'a\\u0628\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ B5\ C2\ \[data\/IdnaTest\.txt\:157\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}B", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200D\\u0308\\u0628B\'\)\ throws\ error\ B5\ C2\ \[data\/IdnaTest\.txt\:159\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ B5\ C2\ \[data\/IdnaTest\.txt\:161\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("¡", %p)}, "xn--7a", "to_ascii\(\'\¡\'\)\ \[data\/IdnaTest\.txt\:165\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--7a", %p)}, "xn--7a", "to_ascii\(\'xn\-\-7a\'\)\ \[data\/IdnaTest\.txt\:166\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("᧚", %p)}, "xn--pkf", "to_ascii\(\'᧚\'\)\ \[data\/IdnaTest\.txt\:167\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("xn--pkf", %p)}, "xn--pkf", "to_ascii\(\'xn\-\-pkf\'\)\ \[data\/IdnaTest\.txt\:168\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("。", %p)}, undef, "to_ascii\(\'\。\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:169\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("ꭠ", %p)}, "xn--3y9a", "to_ascii\(\'ꭠ\'\)\ \[data\/IdnaTest\.txt\:170\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("xn--3y9a", %p)}, "xn--3y9a", "to_ascii\(\'xn\-\-3y9a\'\)\ \[data\/IdnaTest\.txt\:171\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("1234567890ä1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890ä1234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:172\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1234567890a\x{0308}1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890a\\u03081234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:173\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1234567890A\x{0308}1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890A\\u03081234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:174\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1234567890Ä1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890Ä1234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:175\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("www.eXample.cOm", %p)}, "www.example.com", "to_ascii\(\'www\.eXample\.cOm\'\)\ \[data\/IdnaTest\.txt\:176\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Bücher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'Bücher\.de\'\)\ \[data\/IdnaTest\.txt\:177\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Bu\x{0308}cher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'Bu\\u0308cher\.de\'\)\ \[data\/IdnaTest\.txt\:178\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("bu\x{0308}cher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'bu\\u0308cher\.de\'\)\ \[data\/IdnaTest\.txt\:179\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("bücher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'bücher\.de\'\)\ \[data\/IdnaTest\.txt\:180\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("BÜCHER.DE", %p)}, "xn--bcher-kva.de", "to_ascii\(\'BÜCHER\.DE\'\)\ \[data\/IdnaTest\.txt\:181\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("BU\x{0308}CHER.DE", %p)}, "xn--bcher-kva.de", "to_ascii\(\'BU\\u0308CHER\.DE\'\)\ \[data\/IdnaTest\.txt\:182\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--bcher-kva.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'xn\-\-bcher\-kva\.de\'\)\ \[data\/IdnaTest\.txt\:183\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ÖBB", %p)}, "xn--bb-eka", "to_ascii\(\'ÖBB\'\)\ \[data\/IdnaTest\.txt\:184\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("O\x{0308}BB", %p)}, "xn--bb-eka", "to_ascii\(\'O\\u0308BB\'\)\ \[data\/IdnaTest\.txt\:185\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("o\x{0308}bb", %p)}, "xn--bb-eka", "to_ascii\(\'o\\u0308bb\'\)\ \[data\/IdnaTest\.txt\:186\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("öbb", %p)}, "xn--bb-eka", "to_ascii\(\'öbb\'\)\ \[data\/IdnaTest\.txt\:187\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Öbb", %p)}, "xn--bb-eka", "to_ascii\(\'Öbb\'\)\ \[data\/IdnaTest\.txt\:188\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("O\x{0308}bb", %p)}, "xn--bb-eka", "to_ascii\(\'O\\u0308bb\'\)\ \[data\/IdnaTest\.txt\:189\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--bb-eka", %p)}, "xn--bb-eka", "to_ascii\(\'xn\-\-bb\-eka\'\)\ \[data\/IdnaTest\.txt\:190\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("βόλος.com", %p)}, "xn--nxasmm1c.com", "to_ascii\(\'βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:192\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("βο\x{0301}λος.com", %p)}, "xn--nxasmm1c.com", "to_ascii\(\'βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:194\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ΒΟ\x{0301}ΛΟΣ.COM", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'ΒΟ\\u0301ΛΟΣ\.COM\'\)\ \[data\/IdnaTest\.txt\:195\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ΒΌΛΟΣ.COM", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'ΒΌΛΟΣ\.COM\'\)\ \[data\/IdnaTest\.txt\:196\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("βόλοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'βόλοσ\.com\'\)\ \[data\/IdnaTest\.txt\:197\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("βο\x{0301}λοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'βο\\u0301λοσ\.com\'\)\ \[data\/IdnaTest\.txt\:198\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Βο\x{0301}λοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'Βο\\u0301λοσ\.com\'\)\ \[data\/IdnaTest\.txt\:199\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Βόλοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'Βόλοσ\.com\'\)\ \[data\/IdnaTest\.txt\:200\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--nxasmq6b.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'xn\-\-nxasmq6b\.com\'\)\ \[data\/IdnaTest\.txt\:201\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Βο\x{0301}λος.com", %p)}, "xn--nxasmm1c.com", "to_ascii\(\'Βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:203\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Βόλος.com", %p)}, "xn--nxasmm1c.com", "to_ascii\(\'Βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:205\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--nxasmm1c.com", %p)}, "xn--nxasmm1c.com", "to_ascii\(\'xn\-\-nxasmm1c\.com\'\)\ \[data\/IdnaTest\.txt\:206\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--nxasmm1c", %p)}, "xn--nxasmm1c", "to_ascii\(\'xn\-\-nxasmm1c\'\)\ \[data\/IdnaTest\.txt\:207\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("βόλος", %p)}, "xn--nxasmm1c", "to_ascii\(\'βόλος\'\)\ \[data\/IdnaTest\.txt\:209\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("βο\x{0301}λος", %p)}, "xn--nxasmm1c", "to_ascii\(\'βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:211\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ΒΟ\x{0301}ΛΟΣ", %p)}, "xn--nxasmq6b", "to_ascii\(\'ΒΟ\\u0301ΛΟΣ\'\)\ \[data\/IdnaTest\.txt\:212\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ΒΌΛΟΣ", %p)}, "xn--nxasmq6b", "to_ascii\(\'ΒΌΛΟΣ\'\)\ \[data\/IdnaTest\.txt\:213\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("βόλοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'βόλοσ\'\)\ \[data\/IdnaTest\.txt\:214\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("βο\x{0301}λοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'βο\\u0301λοσ\'\)\ \[data\/IdnaTest\.txt\:215\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Βο\x{0301}λοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'Βο\\u0301λοσ\'\)\ \[data\/IdnaTest\.txt\:216\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Βόλοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'Βόλοσ\'\)\ \[data\/IdnaTest\.txt\:217\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--nxasmq6b", %p)}, "xn--nxasmq6b", "to_ascii\(\'xn\-\-nxasmq6b\'\)\ \[data\/IdnaTest\.txt\:218\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Βόλος", %p)}, "xn--nxasmm1c", "to_ascii\(\'Βόλος\'\)\ \[data\/IdnaTest\.txt\:220\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Βο\x{0301}λος", %p)}, "xn--nxasmm1c", "to_ascii\(\'Βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:222\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("www.ශ\x{0DCA}\x{200D}ර\x{0DD3}.com", %p)}, "www.xn--10cl1a0b660p.com", "to_ascii\(\'www\.ශ\\u0DCA\\u200Dර\\u0DD3\.com\'\)\ \[data\/IdnaTest\.txt\:224\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("www.xn--10cl1a0b.com", %p)}, "www.xn--10cl1a0b.com", "to_ascii\(\'www\.xn\-\-10cl1a0b\.com\'\)\ \[data\/IdnaTest\.txt\:225\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("www.ශ\x{0DCA}ර\x{0DD3}.com", %p)}, "www.xn--10cl1a0b.com", "to_ascii\(\'www\.ශ\\u0DCAර\\u0DD3\.com\'\)\ \[data\/IdnaTest\.txt\:226\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("www.xn--10cl1a0b660p.com", %p)}, "www.xn--10cl1a0b660p.com", "to_ascii\(\'www\.xn\-\-10cl1a0b660p\.com\'\)\ \[data\/IdnaTest\.txt\:227\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}", %p)}, "xn--mgba3gch31f060k", "to_ascii\(\'\\u0646\\u0627\\u0645\\u0647\\u200C\\u0627\\u06CC\'\)\ \[data\/IdnaTest\.txt\:229\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--mgba3gch31f", %p)}, "xn--mgba3gch31f", "to_ascii\(\'xn\-\-mgba3gch31f\'\)\ \[data\/IdnaTest\.txt\:230\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}", %p)}, "xn--mgba3gch31f", "to_ascii\(\'\\u0646\\u0627\\u0645\\u0647\\u0627\\u06CC\'\)\ \[data\/IdnaTest\.txt\:231\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--mgba3gch31f060k", %p)}, "xn--mgba3gch31f060k", "to_ascii\(\'xn\-\-mgba3gch31f060k\'\)\ \[data\/IdnaTest\.txt\:232\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--mgba3gch31f060k.com", %p)}, "xn--mgba3gch31f060k.com", "to_ascii\(\'xn\-\-mgba3gch31f060k\.com\'\)\ \[data\/IdnaTest\.txt\:233\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}.com", %p)}, "xn--mgba3gch31f060k.com", "to_ascii\(\'\\u0646\\u0627\\u0645\\u0647\\u200C\\u0627\\u06CC\.com\'\)\ \[data\/IdnaTest\.txt\:235\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--mgba3gch31f.com", %p)}, "xn--mgba3gch31f.com", "to_ascii\(\'xn\-\-mgba3gch31f\.com\'\)\ \[data\/IdnaTest\.txt\:236\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}.com", %p)}, "xn--mgba3gch31f.com", "to_ascii\(\'\\u0646\\u0627\\u0645\\u0647\\u0627\\u06CC\.com\'\)\ \[data\/IdnaTest\.txt\:237\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b．c。d｡", %p)}, "a.b.c.d.", "to_ascii\(\'a\.b．c\。d｡\'\)\ \[data\/IdnaTest\.txt\:238\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b.c。d。", %p)}, "a.b.c.d.", "to_ascii\(\'a\.b\.c\。d\。\'\)\ \[data\/IdnaTest\.txt\:239\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b.c.d.", %p)}, "a.b.c.d.", "to_ascii\(\'a\.b\.c\.d\.\'\)\ \[data\/IdnaTest\.txt\:240\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("U\x{0308}.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'U\\u0308\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:241\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ü.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'Ü\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:242\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ü.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'ü\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:243\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("u\x{0308}.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'u\\u0308\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:244\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--tda.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'xn\-\-tda\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:245\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ü.ü", %p)}, "xn--tda.xn--tda", "to_ascii\(\'ü\.ü\'\)\ \[data\/IdnaTest\.txt\:246\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("u\x{0308}.u\x{0308}", %p)}, "xn--tda.xn--tda", "to_ascii\(\'u\\u0308\.u\\u0308\'\)\ \[data\/IdnaTest\.txt\:247\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("U\x{0308}.U\x{0308}", %p)}, "xn--tda.xn--tda", "to_ascii\(\'U\\u0308\.U\\u0308\'\)\ \[data\/IdnaTest\.txt\:248\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ü.Ü", %p)}, "xn--tda.xn--tda", "to_ascii\(\'Ü\.Ü\'\)\ \[data\/IdnaTest\.txt\:249\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ü.ü", %p)}, "xn--tda.xn--tda", "to_ascii\(\'Ü\.ü\'\)\ \[data\/IdnaTest\.txt\:250\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("U\x{0308}.u\x{0308}", %p)}, "xn--tda.xn--tda", "to_ascii\(\'U\\u0308\.u\\u0308\'\)\ \[data\/IdnaTest\.txt\:251\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--u-ccb", %p)}, undef, "to_ascii\(\'xn\-\-u\-ccb\'\)\ throws\ error\ V1\ \[data\/IdnaTest\.txt\:252\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a⒈com", %p)}, undef, "to_ascii\(\'a⒈com\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:253\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a1.com", %p)}, "a1.com", "to_ascii\(\'a1\.com\'\)\ \[data\/IdnaTest\.txt\:254\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A⒈COM", %p)}, undef, "to_ascii\(\'A⒈COM\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:255\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A⒈Com", %p)}, undef, "to_ascii\(\'A⒈Com\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:256\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--a-ecp.ru", %p)}, undef, "to_ascii\(\'xn\-\-a\-ecp\.ru\'\)\ throws\ error\ V6\ \[data\/IdnaTest\.txt\:257\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--0.pt", %p)}, undef, "to_ascii\(\'xn\-\-0\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:258\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--a.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\.pt\'\)\ throws\ error\ V6\ \[data\/IdnaTest\.txt\:259\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--a-Ä.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-Ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:260\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--a-A\x{0308}.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-A\\u0308\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:261\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--a-a\x{0308}.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-a\\u0308\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:262\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--a-ä.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:263\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("XN--A-Ä.PT", %p)}, undef, "to_ascii\(\'XN\-\-A\-Ä\.PT\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:264\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("XN--A-A\x{0308}.PT", %p)}, undef, "to_ascii\(\'XN\-\-A\-A\\u0308\.PT\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:265\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Xn--A-A\x{0308}.pt", %p)}, undef, "to_ascii\(\'Xn\-\-A\-A\\u0308\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:266\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Xn--A-Ä.pt", %p)}, undef, "to_ascii\(\'Xn\-\-A\-Ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:267\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("日本語。ＪＰ", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。ＪＰ\'\)\ \[data\/IdnaTest\.txt\:268\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("日本語。JP", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。JP\'\)\ \[data\/IdnaTest\.txt\:269\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--wgv71a119e.jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'xn\-\-wgv71a119e\.jp\'\)\ \[data\/IdnaTest\.txt\:270\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("日本語.jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\.jp\'\)\ \[data\/IdnaTest\.txt\:271\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("日本語。ｊｐ", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。ｊｐ\'\)\ \[data\/IdnaTest\.txt\:272\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("日本語。Ｊｐ", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。Ｊｐ\'\)\ \[data\/IdnaTest\.txt\:273\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("☕", %p)}, "xn--53h", "to_ascii\(\'\☕\'\)\ \[data\/IdnaTest\.txt\:274\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--53h", %p)}, "xn--53h", "to_ascii\(\'xn\-\-53h\'\)\ \[data\/IdnaTest\.txt\:275\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.aß\x{200C}\x{200D}b\x{200C}\x{200D}cßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\x{0302}ßz", %p)}, undef, "to_ascii\(\'1\.aß\\u200C\\u200Db\\u200C\\u200Dcßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\\u0302ßz\'\)\ throws\ error\ C1\ C2\ A4_2\ \[data\/IdnaTest\.txt\:277\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.ASS\x{200C}\x{200D}B\x{200C}\x{200D}CSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSS\x{0302}SSZ", %p)}, undef, "to_ascii\(\'1\.ASS\\u200C\\u200DB\\u200C\\u200DCSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSS\\u0302SSZ\'\)\ throws\ error\ C1\ C2\ A4_2\ \[data\/IdnaTest\.txt\:279\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.ASS\x{200C}\x{200D}B\x{200C}\x{200D}CSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSŜSSZ", %p)}, undef, "to_ascii\(\'1\.ASS\\u200C\\u200DB\\u200C\\u200DCSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSŜSSZ\'\)\ throws\ error\ C1\ C2\ A4_2\ \[data\/IdnaTest\.txt\:281\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz", %p)}, undef, "to_ascii\(\'1\.ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz\'\)\ throws\ error\ C1\ C2\ A4_2\ \[data\/IdnaTest\.txt\:283\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_ascii\(\'1\.ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ throws\ error\ C1\ C2\ A4_2\ \[data\/IdnaTest\.txt\:285\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.Ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_ascii\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ throws\ error\ C1\ C2\ A4_2\ \[data\/IdnaTest\.txt\:287\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.Ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz", %p)}, undef, "to_ascii\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz\'\)\ throws\ error\ C1\ C2\ A4_2\ \[data\/IdnaTest\.txt\:289\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.Aß\x{200C}\x{200D}b\x{200C}\x{200D}cßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\x{0302}ßz", %p)}, undef, "to_ascii\(\'1\.Aß\\u200C\\u200Db\\u200C\\u200Dcßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\\u0302ßz\'\)\ throws\ error\ C1\ C2\ A4_2\ \[data\/IdnaTest\.txt\:291\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}x\x{200D}n\x{200C}-\x{200D}-bß", %p)}, undef, "to_ascii\(\'\\u200Cx\\u200Dn\\u200C\-\\u200D\-bß\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:293\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}X\x{200D}N\x{200C}-\x{200D}-BSS", %p)}, undef, "to_ascii\(\'\\u200CX\\u200DN\\u200C\-\\u200D\-BSS\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:295\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}x\x{200D}n\x{200C}-\x{200D}-bss", %p)}, undef, "to_ascii\(\'\\u200Cx\\u200Dn\\u200C\-\\u200D\-bss\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:297\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}X\x{200D}n\x{200C}-\x{200D}-Bss", %p)}, undef, "to_ascii\(\'\\u200CX\\u200Dn\\u200C\-\\u200D\-Bss\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:299\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--bss", %p)}, "xn--bss", "to_ascii\(\'xn\-\-bss\'\)\ \[data\/IdnaTest\.txt\:300\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("夙", %p)}, "xn--bss", "to_ascii\(\'夙\'\)\ \[data\/IdnaTest\.txt\:301\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}X\x{200D}n\x{200C}-\x{200D}-Bß", %p)}, undef, "to_ascii\(\'\\u200CX\\u200Dn\\u200C\-\\u200D\-Bß\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:303\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ˣ\x{034F}ℕ\x{200B}﹣\x{00AD}－\x{180C}ℬ\x{FE00}ſ\x{2064}𝔰󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD－\\u180Cℬ\\uFE00ſ\\u2064𝔰\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:304\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("x\x{034F}N\x{200B}-\x{00AD}-\x{180C}B\x{FE00}s\x{2064}s󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'x\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00s\\u2064s\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:305\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("x\x{034F}n\x{200B}-\x{00AD}-\x{180C}b\x{FE00}s\x{2064}s󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'x\\u034Fn\\u200B\-\\u00AD\-\\u180Cb\\uFE00s\\u2064s\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:306\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("X\x{034F}N\x{200B}-\x{00AD}-\x{180C}B\x{FE00}S\x{2064}S󠇯FFL", %p)}, "xn--bssffl", "to_ascii\(\'X\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00S\\u2064S\󠇯FFL\'\)\ \[data\/IdnaTest\.txt\:307\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("X\x{034F}n\x{200B}-\x{00AD}-\x{180C}B\x{FE00}s\x{2064}s󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'X\\u034Fn\\u200B\-\\u00AD\-\\u180CB\\uFE00s\\u2064s\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:308\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("xn--bssffl", %p)}, "xn--bssffl", "to_ascii\(\'xn\-\-bssffl\'\)\ \[data\/IdnaTest\.txt\:309\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("夡夞夜夙", %p)}, "xn--bssffl", "to_ascii\(\'夡夞夜夙\'\)\ \[data\/IdnaTest\.txt\:310\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ˣ\x{034F}ℕ\x{200B}﹣\x{00AD}－\x{180C}ℬ\x{FE00}S\x{2064}𝔰󠇯FFL", %p)}, "xn--bssffl", "to_ascii\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD－\\u180Cℬ\\uFE00S\\u2064𝔰\󠇯FFL\'\)\ \[data\/IdnaTest\.txt\:311\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("x\x{034F}N\x{200B}-\x{00AD}-\x{180C}B\x{FE00}S\x{2064}s󠇯FFL", %p)}, "xn--bssffl", "to_ascii\(\'x\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00S\\u2064s\󠇯FFL\'\)\ \[data\/IdnaTest\.txt\:312\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ˣ\x{034F}ℕ\x{200B}﹣\x{00AD}－\x{180C}ℬ\x{FE00}s\x{2064}𝔰󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD－\\u180Cℬ\\uFE00s\\u2064𝔰\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:313\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:314\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:315\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:316\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901234\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:317\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901234\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:318\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901234\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:319\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ä1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'ä1234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:320\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0308}1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'a\\u03081234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:321\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0308}1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'A\\u03081234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:322\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ä1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'Ä1234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:323\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--1234567890123456789012345678901234567890123456789012345-9te", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'xn\-\-1234567890123456789012345678901234567890123456789012345\-9te\'\)\ \[data\/IdnaTest\.txt\:324\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:325\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:326\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:327\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:328\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.xn\-\-1234567890123456789012345678901234567890123456789012345\-kue\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:329\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:330\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:331\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:332\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:333\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.xn\-\-1234567890123456789012345678901234567890123456789012345\-kue\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:334\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:335\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:336\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:337\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:338\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:339\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:340\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:341\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:342\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:343\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:344\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:345\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:346\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:347\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:348\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:349\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:350\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b..-q--a-.e", %p)}, undef, "to_ascii\(\'a\.b\.\.\-q\-\-a\-\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:351\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b..-q--ä-.e", %p)}, undef, "to_ascii\(\'a\.b\.\.\-q\-\-ä\-\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:352\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b..-q--a\x{0308}-.e", %p)}, undef, "to_ascii\(\'a\.b\.\.\-q\-\-a\\u0308\-\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:353\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A.B..-Q--A\x{0308}-.E", %p)}, undef, "to_ascii\(\'A\.B\.\.\-Q\-\-A\\u0308\-\.E\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:354\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A.B..-Q--Ä-.E", %p)}, undef, "to_ascii\(\'A\.B\.\.\-Q\-\-Ä\-\.E\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:355\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b..xn---q----jra.e", %p)}, undef, "to_ascii\(\'a\.b\.\.xn\-\-\-q\-\-\-\-jra\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:356\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a..c", %p)}, undef, "to_ascii\(\'a\.\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:357\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.-b.", %p)}, undef, "to_ascii\(\'a\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:358\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b-.c", %p)}, undef, "to_ascii\(\'a\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:359\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.-.c", %p)}, undef, "to_ascii\(\'a\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:360\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.bc--de.f", %p)}, undef, "to_ascii\(\'a\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:361\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ä.\x{00AD}.c", %p)}, undef, "to_ascii\(\'ä\.\\u00AD\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:362\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0308}.\x{00AD}.c", %p)}, undef, "to_ascii\(\'a\\u0308\.\\u00AD\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:363\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0308}.\x{00AD}.C", %p)}, undef, "to_ascii\(\'A\\u0308\.\\u00AD\.C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:364\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ä.\x{00AD}.C", %p)}, undef, "to_ascii\(\'Ä\.\\u00AD\.C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:365\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ä.-b.", %p)}, undef, "to_ascii\(\'ä\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:366\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0308}.-b.", %p)}, undef, "to_ascii\(\'a\\u0308\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:367\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0308}.-B.", %p)}, undef, "to_ascii\(\'A\\u0308\.\-B\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:368\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ä.-B.", %p)}, undef, "to_ascii\(\'Ä\.\-B\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:369\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ä.b-.c", %p)}, undef, "to_ascii\(\'ä\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:370\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0308}.b-.c", %p)}, undef, "to_ascii\(\'a\\u0308\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:371\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0308}.B-.C", %p)}, undef, "to_ascii\(\'A\\u0308\.B\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:372\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ä.B-.C", %p)}, undef, "to_ascii\(\'Ä\.B\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:373\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ä.-.c", %p)}, undef, "to_ascii\(\'ä\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:374\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0308}.-.c", %p)}, undef, "to_ascii\(\'a\\u0308\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:375\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0308}.-.C", %p)}, undef, "to_ascii\(\'A\\u0308\.\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:376\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ä.-.C", %p)}, undef, "to_ascii\(\'Ä\.\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:377\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ä.bc--de.f", %p)}, undef, "to_ascii\(\'ä\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:378\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{0308}.bc--de.f", %p)}, undef, "to_ascii\(\'a\\u0308\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:379\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{0308}.BC--DE.F", %p)}, undef, "to_ascii\(\'A\\u0308\.BC\-\-DE\.F\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:380\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ä.BC--DE.F", %p)}, undef, "to_ascii\(\'Ä\.BC\-\-DE\.F\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:381\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b.\x{0308}c.d", %p)}, undef, "to_ascii\(\'a\.b\.\\u0308c\.d\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:382\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A.B.\x{0308}C.D", %p)}, undef, "to_ascii\(\'A\.B\.\\u0308C\.D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:383\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a.b.xn--c-bcb.d", %p)}, undef, "to_ascii\(\'a\.b\.xn\-\-c\-bcb\.d\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:384\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A0", %p)}, "a0", "to_ascii\(\'A0\'\)\ \[data\/IdnaTest\.txt\:385\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0A", %p)}, "0a", "to_ascii\(\'0A\'\)\ \[data\/IdnaTest\.txt\:386\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0A.\x{05D0}", %p)}, "0a.xn--4db", "to_ascii\(\'0A\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:387\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0a.xn--4db", %p)}, "0a.xn--4db", "to_ascii\(\'0a\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:388\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("c.xn--0-eha.xn--4db", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'c\.xn\-\-0\-eha\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:389\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("c.0ü.\x{05D0}", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'c\.0ü\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:390\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("c.0u\x{0308}.\x{05D0}", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'c\.0u\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:391\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("C.0U\x{0308}.\x{05D0}", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'C\.0U\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:392\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("C.0Ü.\x{05D0}", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'C\.0Ü\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:393\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("b-.\x{05D0}", %p)}, undef, "to_ascii\(\'b\-\.\\u05D0\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:394\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("d.xn----dha.xn--4db", %p)}, undef, "to_ascii\(\'d\.xn\-\-\-\-dha\.xn\-\-4db\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:395\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{05D0}", %p)}, undef, "to_ascii\(\'a\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:396\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{05D0}", %p)}, undef, "to_ascii\(\'A\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:397\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{05D0}\x{05C7}", %p)}, "xn--vdbr", "to_ascii\(\'\\u05D0\\u05C7\'\)\ \[data\/IdnaTest\.txt\:398\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--vdbr", %p)}, "xn--vdbr", "to_ascii\(\'xn\-\-vdbr\'\)\ \[data\/IdnaTest\.txt\:399\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{05D0}9\x{05C7}", %p)}, "xn--9-ihcz", "to_ascii\(\'\\u05D09\\u05C7\'\)\ \[data\/IdnaTest\.txt\:400\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--9-ihcz", %p)}, "xn--9-ihcz", "to_ascii\(\'xn\-\-9\-ihcz\'\)\ \[data\/IdnaTest\.txt\:401\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{05D0}a\x{05C7}", %p)}, undef, "to_ascii\(\'\\u05D0a\\u05C7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:402\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{05D0}A\x{05C7}", %p)}, undef, "to_ascii\(\'\\u05D0A\\u05C7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:403\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{05D0}\x{05EA}", %p)}, "xn--4db6c", "to_ascii\(\'\\u05D0\\u05EA\'\)\ \[data\/IdnaTest\.txt\:404\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--4db6c", %p)}, "xn--4db6c", "to_ascii\(\'xn\-\-4db6c\'\)\ \[data\/IdnaTest\.txt\:405\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05D0}\x{05F3}\x{05EA}", %p)}, "xn--4db6c0a", "to_ascii\(\'\\u05D0\\u05F3\\u05EA\'\)\ \[data\/IdnaTest\.txt\:406\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--4db6c0a", %p)}, "xn--4db6c0a", "to_ascii\(\'xn\-\-4db6c0a\'\)\ \[data\/IdnaTest\.txt\:407\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{05D0}Tz", %p)}, undef, "to_ascii\(\'a\\u05D0Tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:408\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{05D0}tz", %p)}, undef, "to_ascii\(\'a\\u05D0tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:409\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{05D0}TZ", %p)}, undef, "to_ascii\(\'A\\u05D0TZ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:410\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{05D0}tz", %p)}, undef, "to_ascii\(\'A\\u05D0tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:411\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05D0}T\x{05EA}", %p)}, undef, "to_ascii\(\'\\u05D0T\\u05EA\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:412\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05D0}t\x{05EA}", %p)}, undef, "to_ascii\(\'\\u05D0t\\u05EA\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:413\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05D0}7\x{05EA}", %p)}, "xn--7-zhc3f", "to_ascii\(\'\\u05D07\\u05EA\'\)\ \[data\/IdnaTest\.txt\:414\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--7-zhc3f", %p)}, "xn--7-zhc3f", "to_ascii\(\'xn\-\-7\-zhc3f\'\)\ \[data\/IdnaTest\.txt\:415\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05D0}\x{0667}\x{05EA}", %p)}, "xn--4db6c6t", "to_ascii\(\'\\u05D0\\u0667\\u05EA\'\)\ \[data\/IdnaTest\.txt\:416\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--4db6c6t", %p)}, "xn--4db6c6t", "to_ascii\(\'xn\-\-4db6c6t\'\)\ \[data\/IdnaTest\.txt\:417\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a7\x{0667}z", %p)}, undef, "to_ascii\(\'a7\\u0667z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:418\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A7\x{0667}Z", %p)}, undef, "to_ascii\(\'A7\\u0667Z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:419\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A7\x{0667}z", %p)}, undef, "to_ascii\(\'A7\\u0667z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:420\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05D0}7\x{0667}\x{05EA}", %p)}, undef, "to_ascii\(\'\\u05D07\\u0667\\u05EA\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:421\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ஹ\x{0BCD}\x{200D}", %p)}, "xn--dmc4b194h", "to_ascii\(\'ஹ\\u0BCD\\u200D\'\)\ \[data\/IdnaTest\.txt\:423\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--dmc4b", %p)}, "xn--dmc4b", "to_ascii\(\'xn\-\-dmc4b\'\)\ \[data\/IdnaTest\.txt\:424\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ஹ\x{0BCD}", %p)}, "xn--dmc4b", "to_ascii\(\'ஹ\\u0BCD\'\)\ \[data\/IdnaTest\.txt\:425\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--dmc4b194h", %p)}, "xn--dmc4b194h", "to_ascii\(\'xn\-\-dmc4b194h\'\)\ \[data\/IdnaTest\.txt\:426\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ஹ\x{200D}", %p)}, undef, "to_ascii\(\'ஹ\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:428\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--dmc", %p)}, "xn--dmc", "to_ascii\(\'xn\-\-dmc\'\)\ \[data\/IdnaTest\.txt\:429\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ஹ", %p)}, "xn--dmc", "to_ascii\(\'ஹ\'\)\ \[data\/IdnaTest\.txt\:430\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:432\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ஹ\x{0BCD}\x{200C}", %p)}, "xn--dmc4by94h", "to_ascii\(\'ஹ\\u0BCD\\u200C\'\)\ \[data\/IdnaTest\.txt\:434\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--dmc4by94h", %p)}, "xn--dmc4by94h", "to_ascii\(\'xn\-\-dmc4by94h\'\)\ \[data\/IdnaTest\.txt\:435\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ஹ\x{200C}", %p)}, undef, "to_ascii\(\'ஹ\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:437\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}", %p)}, undef, "to_ascii\(\'\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:439\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{200C}\x{06ED}\x{06EF}", %p)}, "xn--ghb2gxqia7523a", "to_ascii\(\'\\u0644\\u0670\\u200C\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:441\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb2gxqia", %p)}, "xn--ghb2gxqia", "to_ascii\(\'xn\-\-ghb2gxqia\'\)\ \[data\/IdnaTest\.txt\:442\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{06ED}\x{06EF}", %p)}, "xn--ghb2gxqia", "to_ascii\(\'\\u0644\\u0670\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:443\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb2gxqia7523a", %p)}, "xn--ghb2gxqia7523a", "to_ascii\(\'xn\-\-ghb2gxqia7523a\'\)\ \[data\/IdnaTest\.txt\:444\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{200C}\x{06EF}", %p)}, "xn--ghb2g3qq34f", "to_ascii\(\'\\u0644\\u0670\\u200C\\u06EF\'\)\ \[data\/IdnaTest\.txt\:446\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb2g3q", %p)}, "xn--ghb2g3q", "to_ascii\(\'xn\-\-ghb2g3q\'\)\ \[data\/IdnaTest\.txt\:447\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{06EF}", %p)}, "xn--ghb2g3q", "to_ascii\(\'\\u0644\\u0670\\u06EF\'\)\ \[data\/IdnaTest\.txt\:448\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb2g3qq34f", %p)}, "xn--ghb2g3qq34f", "to_ascii\(\'xn\-\-ghb2g3qq34f\'\)\ \[data\/IdnaTest\.txt\:449\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{200C}\x{06ED}\x{06EF}", %p)}, "xn--ghb25aga828w", "to_ascii\(\'\\u0644\\u200C\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:451\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb25aga", %p)}, "xn--ghb25aga", "to_ascii\(\'xn\-\-ghb25aga\'\)\ \[data\/IdnaTest\.txt\:452\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{06ED}\x{06EF}", %p)}, "xn--ghb25aga", "to_ascii\(\'\\u0644\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:453\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb25aga828w", %p)}, "xn--ghb25aga828w", "to_ascii\(\'xn\-\-ghb25aga828w\'\)\ \[data\/IdnaTest\.txt\:454\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{200C}\x{06EF}", %p)}, "xn--ghb65a953d", "to_ascii\(\'\\u0644\\u200C\\u06EF\'\)\ \[data\/IdnaTest\.txt\:456\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb65a", %p)}, "xn--ghb65a", "to_ascii\(\'xn\-\-ghb65a\'\)\ \[data\/IdnaTest\.txt\:457\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{06EF}", %p)}, "xn--ghb65a", "to_ascii\(\'\\u0644\\u06EF\'\)\ \[data\/IdnaTest\.txt\:458\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb65a953d", %p)}, "xn--ghb65a953d", "to_ascii\(\'xn\-\-ghb65a953d\'\)\ \[data\/IdnaTest\.txt\:459\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{200C}\x{06ED}", %p)}, undef, "to_ascii\(\'\\u0644\\u0670\\u200C\\u06ED\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:461\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb2gxq", %p)}, "xn--ghb2gxq", "to_ascii\(\'xn\-\-ghb2gxq\'\)\ \[data\/IdnaTest\.txt\:462\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{06ED}", %p)}, "xn--ghb2gxq", "to_ascii\(\'\\u0644\\u0670\\u06ED\'\)\ \[data\/IdnaTest\.txt\:463\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06EF}\x{200C}\x{06EF}", %p)}, undef, "to_ascii\(\'\\u06EF\\u200C\\u06EF\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:465\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--cmba", %p)}, "xn--cmba", "to_ascii\(\'xn\-\-cmba\'\)\ \[data\/IdnaTest\.txt\:466\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06EF}\x{06EF}", %p)}, "xn--cmba", "to_ascii\(\'\\u06EF\\u06EF\'\)\ \[data\/IdnaTest\.txt\:467\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0644\\u200C\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:469\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ghb", %p)}, "xn--ghb", "to_ascii\(\'xn\-\-ghb\'\)\ \[data\/IdnaTest\.txt\:470\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}", %p)}, "xn--ghb", "to_ascii\(\'\\u0644\'\)\ \[data\/IdnaTest\.txt\:471\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒕∝\x{065F}򓤦．-󠄯", %p)}, undef, "to_ascii\(\'⒕\∝\\u065F\?．\-\󠄯\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:475\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("14.∝\x{065F}򓤦.-󠄯", %p)}, undef, "to_ascii\(\'14\.\∝\\u065F\?\.\-\󠄯\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:476\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ꡣ.\x{07CF}", %p)}, "xn--8c9a.xn--qsb", "to_ascii\(\'ꡣ\.\\u07CF\'\)\ \[data\/IdnaTest\.txt\:477\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("xn--8c9a.xn--qsb", %p)}, "xn--8c9a.xn--qsb", "to_ascii\(\'xn\-\-8c9a\.xn\-\-qsb\'\)\ \[data\/IdnaTest\.txt\:478\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("≯\x{0603}｡-", %p)}, undef, "to_ascii\(\'\≯\\u0603｡\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:479\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}\x{0603}｡-", %p)}, undef, "to_ascii\(\'\>\\u0338\\u0603｡\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:480\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯\x{0603}。-", %p)}, undef, "to_ascii\(\'\≯\\u0603\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:481\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}\x{0603}。-", %p)}, undef, "to_ascii\(\'\>\\u0338\\u0603\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:482\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾛𐹧⾕.\x{115F}󠗰ςႭ", %p)}, undef, "to_ascii\(\'⾛𐹧⾕\.\\u115F\?ςႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:483\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("走𐹧谷.\x{115F}󠗰ςႭ", %p)}, undef, "to_ascii\(\'走𐹧谷\.\\u115F\?ςႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:484\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("走𐹧谷.\x{115F}󠗰ςⴍ", %p)}, undef, "to_ascii\(\'走𐹧谷\.\\u115F\?ςⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:485\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("走𐹧谷.\x{115F}󠗰ΣႭ", %p)}, undef, "to_ascii\(\'走𐹧谷\.\\u115F\?ΣႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:486\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("走𐹧谷.\x{115F}󠗰σⴍ", %p)}, undef, "to_ascii\(\'走𐹧谷\.\\u115F\?σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:487\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("走𐹧谷.\x{115F}󠗰Σⴍ", %p)}, undef, "to_ascii\(\'走𐹧谷\.\\u115F\?Σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:488\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾛𐹧⾕.\x{115F}󠗰ςⴍ", %p)}, undef, "to_ascii\(\'⾛𐹧⾕\.\\u115F\?ςⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:489\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾛𐹧⾕.\x{115F}󠗰ΣႭ", %p)}, undef, "to_ascii\(\'⾛𐹧⾕\.\\u115F\?ΣႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:490\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾛𐹧⾕.\x{115F}󠗰σⴍ", %p)}, undef, "to_ascii\(\'⾛𐹧⾕\.\\u115F\?σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:491\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾛𐹧⾕.\x{115F}󠗰Σⴍ", %p)}, undef, "to_ascii\(\'⾛𐹧⾕\.\\u115F\?Σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:492\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}≠ᢙ≯.솣-ᡴႠ", %p)}, undef, "to_ascii\(\'\\u200D\≠ᢙ\≯\.솣\-ᡴႠ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:494\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}=\x{0338}ᢙ>\x{0338}.솣-ᡴႠ", %p)}, undef, "to_ascii\(\'\\u200D\=\\u0338ᢙ\>\\u0338\.솣\-ᡴႠ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:496\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}=\x{0338}ᢙ>\x{0338}.솣-ᡴⴀ", %p)}, undef, "to_ascii\(\'\\u200D\=\\u0338ᢙ\>\\u0338\.솣\-ᡴⴀ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:498\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}≠ᢙ≯.솣-ᡴⴀ", %p)}, undef, "to_ascii\(\'\\u200D\≠ᢙ\≯\.솣\-ᡴⴀ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:500\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񯞜．𐿇\x{0FA2}\x{077D}\x{0600}", %p)}, undef, "to_ascii\(\'\?．\?\\u0FA2\\u077D\\u0600\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:501\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񯞜．𐿇\x{0FA1}\x{0FB7}\x{077D}\x{0600}", %p)}, undef, "to_ascii\(\'\?．\?\\u0FA1\\u0FB7\\u077D\\u0600\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:502\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񯞜.𐿇\x{0FA1}\x{0FB7}\x{077D}\x{0600}", %p)}, undef, "to_ascii\(\'\?\.\?\\u0FA1\\u0FB7\\u077D\\u0600\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:503\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𣳔\x{0303}.𑓂", %p)}, undef, "to_ascii\(\'𣳔\\u0303\.𑓂\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:504\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞤀𞥅񘐱。󠄌Ⴣꡥ", %p)}, undef, "to_ascii\(\'\?\?\?\。\󠄌Ⴣꡥ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:505\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤀𞥅񘐱。󠄌ⴣꡥ", %p)}, undef, "to_ascii\(\'\?\?\?\。\󠄌ⴣꡥ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:506\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08E2}𑁿ς𖬱。󠅡렧", %p)}, undef, "to_ascii\(\'\\u08E2𑁿ς𖬱\。\󠅡렧\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:507\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08E2}𑁿ς𖬱。󠅡렧", %p)}, undef, "to_ascii\(\'\\u08E2𑁿ς𖬱\。\󠅡렧\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:508\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08E2}𑁿Σ𖬱。󠅡렧", %p)}, undef, "to_ascii\(\'\\u08E2𑁿Σ𖬱\。\󠅡렧\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:509\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08E2}𑁿Σ𖬱。󠅡렧", %p)}, undef, "to_ascii\(\'\\u08E2𑁿Σ𖬱\。\󠅡렧\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:510\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08E2}𑁿σ𖬱。󠅡렧", %p)}, undef, "to_ascii\(\'\\u08E2𑁿σ𖬱\。\󠅡렧\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:511\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08E2}𑁿σ𖬱。󠅡렧", %p)}, undef, "to_ascii\(\'\\u08E2𑁿σ𖬱\。\󠅡렧\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:512\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{200D}。𞤍\x{200C}\x{200D}⒈", %p)}, undef, "to_ascii\(\'\-\\u200D\。\?\\u200C\\u200D⒈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:514\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("-\x{200D}。𞤍\x{200C}\x{200D}1.", %p)}, undef, "to_ascii\(\'\-\\u200D\。\?\\u200C\\u200D1\.\'\)\ throws\ error\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:516\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}򅎭.Ⴒ𑇀", %p)}, undef, "to_ascii\(\'\\u200C\?\.Ⴒ𑇀\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:518\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}򅎭.ⴒ𑇀", %p)}, undef, "to_ascii\(\'\\u200C\?\.ⴒ𑇀\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:520\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("繱𑖿\x{200D}.８︒", %p)}, undef, "to_ascii\(\'繱𑖿\\u200D\.８︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:521\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("繱𑖿\x{200D}.8。", %p)}, "xn--1ug6928ac48e.8.", "to_ascii\(\'繱𑖿\\u200D\.8\。\'\)\ \[data\/IdnaTest\.txt\:523\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--gl0as212a.8.", %p)}, "xn--gl0as212a.8.", "to_ascii\(\'xn\-\-gl0as212a\.8\.\'\)\ \[data\/IdnaTest\.txt\:524\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("繱𑖿.8.", %p)}, "xn--gl0as212a.8.", "to_ascii\(\'繱𑖿\.8\.\'\)\ \[data\/IdnaTest\.txt\:525\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--1ug6928ac48e.8.", %p)}, "xn--1ug6928ac48e.8.", "to_ascii\(\'xn\-\-1ug6928ac48e\.8\.\'\)\ \[data\/IdnaTest\.txt\:526\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("繱𑖿\x{200D}.8.", %p)}, "xn--1ug6928ac48e.8.", "to_ascii\(\'繱𑖿\\u200D\.8\.\'\)\ \[data\/IdnaTest\.txt\:528\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("󠆾．𞀈", %p)}, undef, "to_ascii\(\'\󠆾．\?\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:529\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("󠆾.𞀈", %p)}, undef, "to_ascii\(\'\󠆾\.\?\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:530\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ß\x{06EB}。\x{200D}", %p)}, undef, "to_ascii\(\'ß\\u06EB\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:532\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS\x{06EB}。\x{200D}", %p)}, undef, "to_ascii\(\'SS\\u06EB\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:534\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss\x{06EB}。\x{200D}", %p)}, undef, "to_ascii\(\'ss\\u06EB\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:536\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss\x{06EB}。\x{200D}", %p)}, undef, "to_ascii\(\'Ss\\u06EB\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:538\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ss-59d.", %p)}, "xn--ss-59d.", "to_ascii\(\'xn\-\-ss\-59d\.\'\)\ \[data\/IdnaTest\.txt\:539\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss\x{06EB}.", %p)}, "xn--ss-59d.", "to_ascii\(\'ss\\u06EB\.\'\)\ \[data\/IdnaTest\.txt\:540\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS\x{06EB}.", %p)}, "xn--ss-59d.", "to_ascii\(\'SS\\u06EB\.\'\)\ \[data\/IdnaTest\.txt\:541\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss\x{06EB}.", %p)}, "xn--ss-59d.", "to_ascii\(\'Ss\\u06EB\.\'\)\ \[data\/IdnaTest\.txt\:542\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠐵\x{200C}⒈．󠎇", %p)}, undef, "to_ascii\(\'\?\\u200C⒈．\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:544\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠐵\x{200C}1..󠎇", %p)}, undef, "to_ascii\(\'\?\\u200C1\.\.\?\'\)\ throws\ error\ P1\ V6\ C1\ A4_2\ \[data\/IdnaTest\.txt\:546\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󟈣\x{065F}\x{AAB2}ß。󌓧", %p)}, undef, "to_ascii\(\'\?\\u065F\\uAAB2ß\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:547\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󟈣\x{065F}\x{AAB2}SS。󌓧", %p)}, undef, "to_ascii\(\'\?\\u065F\\uAAB2SS\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:548\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󟈣\x{065F}\x{AAB2}ss。󌓧", %p)}, undef, "to_ascii\(\'\?\\u065F\\uAAB2ss\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:549\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󟈣\x{065F}\x{AAB2}Ss。󌓧", %p)}, undef, "to_ascii\(\'\?\\u065F\\uAAB2Ss\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:550\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0774}\x{200C}𞤿。𽘐䉜\x{200D}񿤼", %p)}, undef, "to_ascii\(\'\\u0774\\u200C\?\。\?䉜\\u200D\?\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:552\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜ςᡱ⒈.≮𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?ςᡱ⒈\.\≮𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:553\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜ςᡱ⒈.<\x{0338}𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?ςᡱ⒈\.\<\\u0338𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:554\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜ςᡱ1..≮𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?ςᡱ1\.\.\≮𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:555\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜ςᡱ1..<\x{0338}𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?ςᡱ1\.\.\<\\u0338𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:556\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜Σᡱ1..<\x{0338}𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?Σᡱ1\.\.\<\\u0338𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:557\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜Σᡱ1..≮𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?Σᡱ1\.\.\≮𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:558\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜σᡱ1..≮𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?σᡱ1\.\.\≮𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:559\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜σᡱ1..<\x{0338}𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?σᡱ1\.\.\<\\u0338𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:560\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜Σᡱ⒈.<\x{0338}𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?Σᡱ⒈\.\<\\u0338𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:561\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜Σᡱ⒈.≮𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?Σᡱ⒈\.\≮𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:562\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜σᡱ⒈.≮𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?σᡱ⒈\.\≮𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:563\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔭜σᡱ⒈.<\x{0338}𑄳\x{200D}𐮍", %p)}, undef, "to_ascii\(\'\?σᡱ⒈\.\<\\u0338𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:564\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{3164}\x{094D}Ⴀ\x{17D0}.\x{180B}", %p)}, undef, "to_ascii\(\'\\u3164\\u094DႠ\\u17D0\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:565\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1160}\x{094D}Ⴀ\x{17D0}.\x{180B}", %p)}, undef, "to_ascii\(\'\\u1160\\u094DႠ\\u17D0\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:566\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1160}\x{094D}ⴀ\x{17D0}.\x{180B}", %p)}, undef, "to_ascii\(\'\\u1160\\u094Dⴀ\\u17D0\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:567\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{3164}\x{094D}ⴀ\x{17D0}.\x{180B}", %p)}, undef, "to_ascii\(\'\\u3164\\u094Dⴀ\\u17D0\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:568\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("❣\x{200D}．\x{09CD}𑰽\x{0612}\x{A929}", %p)}, undef, "to_ascii\(\'\❣\\u200D．\\u09CD\?\\u0612\\uA929\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:570\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("❣\x{200D}.\x{09CD}𑰽\x{0612}\x{A929}", %p)}, undef, "to_ascii\(\'\❣\\u200D\.\\u09CD\?\\u0612\\uA929\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:572\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("≮𐳺𐹄.≯񪮸ꡅ", %p)}, undef, "to_ascii\(\'\≮𐳺\?\.\≯\?ꡅ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:573\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𐳺𐹄.>\x{0338}񪮸ꡅ", %p)}, undef, "to_ascii\(\'\<\\u0338𐳺\?\.\>\\u0338\?ꡅ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:574\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0CCC}𐧅𐳏󠲺｡\x{0CCD}ᠦ", %p)}, undef, "to_ascii\(\'\\u0CCC𐧅𐳏\?｡\\u0CCDᠦ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:575\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0CCC}𐧅𐳏󠲺。\x{0CCD}ᠦ", %p)}, undef, "to_ascii\(\'\\u0CCC𐧅𐳏\?\。\\u0CCDᠦ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:576\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0CCC}𐧅𐲏󠲺。\x{0CCD}ᠦ", %p)}, undef, "to_ascii\(\'\\u0CCC𐧅𐲏\?\。\\u0CCDᠦ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:577\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0CCC}𐧅𐲏󠲺｡\x{0CCD}ᠦ", %p)}, undef, "to_ascii\(\'\\u0CCC𐧅𐲏\?｡\\u0CCDᠦ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:578\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0349}。𧡫", %p)}, undef, "to_ascii\(\'\\u0349\。𧡫\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:579\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰿󠅦．\x{1160}", %p)}, undef, "to_ascii\(\'\?\󠅦．\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:580\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰿󠅦.\x{1160}", %p)}, undef, "to_ascii\(\'\?\󠅦\.\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:581\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𞤆\x{200D}。󸼄𞳒", %p)}, undef, "to_ascii\(\'\-\?\\u200D\。\?\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:583\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡏ󠇶≯𳾽。\x{1DFD}⾇滸𐹰", %p)}, undef, "to_ascii\(\'ꡏ\?\≯\?\。\\u1DFD⾇滸𐹰\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:584\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡏ󠇶>\x{0338}𳾽。\x{1DFD}⾇滸𐹰", %p)}, undef, "to_ascii\(\'ꡏ\?\>\\u0338\?\。\\u1DFD⾇滸𐹰\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:585\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡏ󠇶≯𳾽。\x{1DFD}舛滸𐹰", %p)}, undef, "to_ascii\(\'ꡏ\?\≯\?\。\\u1DFD舛滸𐹰\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:586\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡏ󠇶>\x{0338}𳾽。\x{1DFD}舛滸𐹰", %p)}, undef, "to_ascii\(\'ꡏ\?\>\\u0338\?\。\\u1DFD舛滸𐹰\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:587\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("蔏｡𑰺", %p)}, undef, "to_ascii\(\'蔏｡\?\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:588\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("蔏。𑰺", %p)}, undef, "to_ascii\(\'蔏\。\?\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:589\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𝟿𐮋。󠄊", %p)}, undef, "to_ascii\(\'𝟿𐮋\。\󠄊\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:590\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("9𐮋。󠄊", %p)}, undef, "to_ascii\(\'9𐮋\。\󠄊\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:591\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󟇇-䟖F。\x{07CB}⒈\x{0662}", %p)}, undef, "to_ascii\(\'\?\-䟖F\。\\u07CB⒈\\u0662\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:592\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󟇇-䟖F。\x{07CB}1.\x{0662}", %p)}, undef, "to_ascii\(\'\?\-䟖F\。\\u07CB1\.\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:593\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󟇇-䟖f。\x{07CB}1.\x{0662}", %p)}, undef, "to_ascii\(\'\?\-䟖f\。\\u07CB1\.\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:594\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󟇇-䟖f。\x{07CB}⒈\x{0662}", %p)}, undef, "to_ascii\(\'\?\-䟖f\。\\u07CB⒈\\u0662\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:595\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}｡𐹺", %p)}, undef, "to_ascii\(\'\\u200C｡𐹺\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:597\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}。𐹺", %p)}, undef, "to_ascii\(\'\\u200C\。𐹺\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:599\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐡆.≯\x{200C}-𞥀", %p)}, undef, "to_ascii\(\'𐡆\.\≯\\u200C\-\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:601\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐡆.>\x{0338}\x{200C}-𞥀", %p)}, undef, "to_ascii\(\'𐡆\.\>\\u0338\\u200C\-\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:603\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠁀-。≠\x{FCD7}", %p)}, undef, "to_ascii\(\'\?\-\。\≠\\uFCD7\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:604\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠁀-。=\x{0338}\x{FCD7}", %p)}, undef, "to_ascii\(\'\?\-\。\=\\u0338\\uFCD7\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:605\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠁀-。≠\x{0647}\x{062C}", %p)}, undef, "to_ascii\(\'\?\-\。\≠\\u0647\\u062C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:606\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠁀-。=\x{0338}\x{0647}\x{062C}", %p)}, undef, "to_ascii\(\'\?\-\。\=\\u0338\\u0647\\u062C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:607\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻬹𑈵。\x{200D}𞨶", %p)}, undef, "to_ascii\(\'\?𑈵\。\\u200D\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:609\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑋧\x{A9C0}2｡㧉򒖄", %p)}, undef, "to_ascii\(\'𑋧\\uA9C02｡㧉\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:610\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑋧\x{A9C0}2。㧉򒖄", %p)}, undef, "to_ascii\(\'𑋧\\uA9C02\。㧉\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:611\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𽬄𐹴𞩥。≯6", %p)}, undef, "to_ascii\(\'\\u200C\?𐹴\?\。\≯6\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:613\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𽬄𐹴𞩥。>\x{0338}6", %p)}, undef, "to_ascii\(\'\\u200C\?𐹴\?\。\>\\u03386\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:615\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑁿．𐹦𻞵-\x{200D}", %p)}, undef, "to_ascii\(\'𑁿．𐹦\?\-\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:617\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑁿.𐹦𻞵-\x{200D}", %p)}, undef, "to_ascii\(\'𑁿\.𐹦\?\-\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:619\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⤸ς𺱀｡\x{FFA0}", %p)}, undef, "to_ascii\(\'\⤸ς\?｡\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:620\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⤸ς𺱀。\x{1160}", %p)}, undef, "to_ascii\(\'\⤸ς\?\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:621\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⤸Σ𺱀。\x{1160}", %p)}, undef, "to_ascii\(\'\⤸Σ\?\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:622\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⤸σ𺱀。\x{1160}", %p)}, undef, "to_ascii\(\'\⤸σ\?\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:623\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⤸Σ𺱀｡\x{FFA0}", %p)}, undef, "to_ascii\(\'\⤸Σ\?｡\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:624\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⤸σ𺱀｡\x{FFA0}", %p)}, undef, "to_ascii\(\'\⤸σ\?｡\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:625\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0765}\x{1035}𐫔\x{06D5}.𐦬𑋪Ⴃ", %p)}, undef, "to_ascii\(\'\\u0765\\u1035𐫔\\u06D5\.𐦬𑋪Ⴃ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:626\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0765}\x{1035}𐫔\x{06D5}.𐦬𑋪ⴃ", %p)}, undef, "to_ascii\(\'\\u0765\\u1035𐫔\\u06D5\.𐦬𑋪ⴃ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:627\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0661}\x{1B44}-킼.\x{1BAA}\x{0616}\x{066C}≯", %p)}, undef, "to_ascii\(\'\\u0661\\u1B44\-킼\.\\u1BAA\\u0616\\u066C\≯\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:628\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0661}\x{1B44}-킼.\x{1BAA}\x{0616}\x{066C}>\x{0338}", %p)}, undef, "to_ascii\(\'\\u0661\\u1B44\-킼\.\\u1BAA\\u0616\\u066C\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:629\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-。\x{06C2}\x{0604}򅖡𑓂", %p)}, undef, "to_ascii\(\'\-\。\\u06C2\\u0604\?𑓂\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:630\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-。\x{06C1}\x{0654}\x{0604}򅖡𑓂", %p)}, undef, "to_ascii\(\'\-\。\\u06C1\\u0654\\u0604\?𑓂\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:631\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}󯑖󠁐．\x{05BD}𙮰ꡝ𐋡", %p)}, undef, "to_ascii\(\'\\u200D\?\?．\\u05BD\?ꡝ𐋡\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:633\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}󯑖󠁐.\x{05BD}𙮰ꡝ𐋡", %p)}, undef, "to_ascii\(\'\\u200D\?\?\.\\u05BD\?ꡝ𐋡\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:635\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒􃈵ς񀠇｡𐮈", %p)}, undef, "to_ascii\(\'︒\?ς\?｡𐮈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:636\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。􃈵ς񀠇。𐮈", %p)}, undef, "to_ascii\(\'\。\?ς\?\。𐮈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:637\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。􃈵Σ񀠇。𐮈", %p)}, undef, "to_ascii\(\'\。\?Σ\?\。𐮈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:638\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。􃈵σ񀠇。𐮈", %p)}, undef, "to_ascii\(\'\。\?σ\?\。𐮈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:639\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒􃈵Σ񀠇｡𐮈", %p)}, undef, "to_ascii\(\'︒\?Σ\?｡𐮈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:640\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒􃈵σ񀠇｡𐮈", %p)}, undef, "to_ascii\(\'︒\?σ\?｡𐮈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:641\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07D9}．\x{06EE}󆾃≯󠅲", %p)}, undef, "to_ascii\(\'\\u07D9．\\u06EE\?\≯\󠅲\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:642\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07D9}．\x{06EE}󆾃>\x{0338}󠅲", %p)}, undef, "to_ascii\(\'\\u07D9．\\u06EE\?\>\\u0338\󠅲\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:643\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07D9}.\x{06EE}󆾃≯󠅲", %p)}, undef, "to_ascii\(\'\\u07D9\.\\u06EE\?\≯\󠅲\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:644\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07D9}.\x{06EE}󆾃>\x{0338}󠅲", %p)}, undef, "to_ascii\(\'\\u07D9\.\\u06EE\?\>\\u0338\󠅲\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:645\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1A73}󚙸.𐭍", %p)}, undef, "to_ascii\(\'\\u1A73\?\.𐭍\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:646\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒉󠊓≠｡Ⴟ⬣Ⴈ", %p)}, undef, "to_ascii\(\'⒉\?\≠｡Ⴟ\⬣Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:647\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒉󠊓=\x{0338}｡Ⴟ⬣Ⴈ", %p)}, undef, "to_ascii\(\'⒉\?\=\\u0338｡Ⴟ\⬣Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:648\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("2.󠊓≠。Ⴟ⬣Ⴈ", %p)}, undef, "to_ascii\(\'2\.\?\≠\。Ⴟ\⬣Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:649\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("2.󠊓=\x{0338}。Ⴟ⬣Ⴈ", %p)}, undef, "to_ascii\(\'2\.\?\=\\u0338\。Ⴟ\⬣Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:650\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("2.󠊓=\x{0338}。ⴟ⬣ⴈ", %p)}, undef, "to_ascii\(\'2\.\?\=\\u0338\。ⴟ\⬣ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:651\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("2.󠊓≠。ⴟ⬣ⴈ", %p)}, undef, "to_ascii\(\'2\.\?\≠\。ⴟ\⬣ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:652\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒉󠊓=\x{0338}｡ⴟ⬣ⴈ", %p)}, undef, "to_ascii\(\'⒉\?\=\\u0338｡ⴟ\⬣ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:653\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒉󠊓≠｡ⴟ⬣ⴈ", %p)}, undef, "to_ascii\(\'⒉\?\≠｡ⴟ\⬣ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:654\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-󠉱\x{0FB8}Ⴥ。-𐹽\x{0774}𞣑", %p)}, undef, "to_ascii\(\'\-\?\\u0FB8Ⴥ\。\-𐹽\\u0774𞣑\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:655\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-󠉱\x{0FB8}ⴥ。-𐹽\x{0774}𞣑", %p)}, undef, "to_ascii\(\'\-\?\\u0FB8ⴥ\。\-𐹽\\u0774𞣑\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:656\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0659}。𑄴︒\x{0627}\x{07DD}", %p)}, undef, "to_ascii\(\'\\u0659\。𑄴︒\\u0627\\u07DD\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:657\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{0659}。𑄴。\x{0627}\x{07DD}", %p)}, undef, "to_ascii\(\'\\u0659\。𑄴\。\\u0627\\u07DD\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:658\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴙ\x{0638}.󠆓\x{200D}", %p)}, undef, "to_ascii\(\'Ⴙ\\u0638\.\󠆓\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:660\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴙ\x{0638}.󠆓\x{200D}", %p)}, undef, "to_ascii\(\'ⴙ\\u0638\.\󠆓\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:662\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󠆸｡₆０𐺧\x{0756}", %p)}, undef, "to_ascii\(\'\󠆸｡₆０\?\\u0756\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:663\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠆸。60𐺧\x{0756}", %p)}, undef, "to_ascii\(\'\󠆸\。60\?\\u0756\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:664\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("6\x{084F}｡-𑈴", %p)}, undef, "to_ascii\(\'6\\u084F｡\-𑈴\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:665\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("6\x{084F}。-𑈴", %p)}, undef, "to_ascii\(\'6\\u084F\。\-𑈴\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:666\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}񋌿𐹰｡\x{0ACD}ς𞰎\x{08D6}", %p)}, undef, "to_ascii\(\'\\u200D\?𐹰｡\\u0ACDς\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:668\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}񋌿𐹰。\x{0ACD}ς𞰎\x{08D6}", %p)}, undef, "to_ascii\(\'\\u200D\?𐹰\。\\u0ACDς\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:670\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}񋌿𐹰。\x{0ACD}Σ𞰎\x{08D6}", %p)}, undef, "to_ascii\(\'\\u200D\?𐹰\。\\u0ACDΣ\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:672\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}񋌿𐹰。\x{0ACD}σ𞰎\x{08D6}", %p)}, undef, "to_ascii\(\'\\u200D\?𐹰\。\\u0ACDσ\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:674\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}񋌿𐹰｡\x{0ACD}Σ𞰎\x{08D6}", %p)}, undef, "to_ascii\(\'\\u200D\?𐹰｡\\u0ACDΣ\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:676\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}񋌿𐹰｡\x{0ACD}σ𞰎\x{08D6}", %p)}, undef, "to_ascii\(\'\\u200D\?𐹰｡\\u0ACDσ\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:678\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈񟄜Ⴓ⒪．\x{0DCA}򘘶\x{088B}𐹢", %p)}, undef, "to_ascii\(\'⒈\?Ⴓ⒪．\\u0DCA\?\\u088B𐹢\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:679\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.񟄜Ⴓ(o).\x{0DCA}򘘶\x{088B}𐹢", %p)}, undef, "to_ascii\(\'1\.\?Ⴓ\(o\)\.\\u0DCA\?\\u088B𐹢\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:680\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.񟄜ⴓ(o).\x{0DCA}򘘶\x{088B}𐹢", %p)}, undef, "to_ascii\(\'1\.\?ⴓ\(o\)\.\\u0DCA\?\\u088B𐹢\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:681\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.񟄜Ⴓ(O).\x{0DCA}򘘶\x{088B}𐹢", %p)}, undef, "to_ascii\(\'1\.\?Ⴓ\(O\)\.\\u0DCA\?\\u088B𐹢\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:682\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈񟄜ⴓ⒪．\x{0DCA}򘘶\x{088B}𐹢", %p)}, undef, "to_ascii\(\'⒈\?ⴓ⒪．\\u0DCA\?\\u088B𐹢\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:683\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤷.𐮐𞢁𐹠\x{0624}", %p)}, "xn--ve6h.xn--jgb1694kz0b2176a", "to_ascii\(\'\?\.𐮐𞢁𐹠\\u0624\'\)\ \[data\/IdnaTest\.txt\:684\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤷.𐮐𞢁𐹠\x{0648}\x{0654}", %p)}, "xn--ve6h.xn--jgb1694kz0b2176a", "to_ascii\(\'\?\.𐮐𞢁𐹠\\u0648\\u0654\'\)\ \[data\/IdnaTest\.txt\:685\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--ve6h.xn--jgb1694kz0b2176a", %p)}, "xn--ve6h.xn--jgb1694kz0b2176a", "to_ascii\(\'xn\-\-ve6h\.xn\-\-jgb1694kz0b2176a\'\)\ \[data\/IdnaTest\.txt\:686\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐲈-｡𑄳񢌻", %p)}, undef, "to_ascii\(\'𐲈\-｡𑄳\?\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:687\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐲈-。𑄳񢌻", %p)}, undef, "to_ascii\(\'𐲈\-\。𑄳\?\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:688\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐳈-。𑄳񢌻", %p)}, undef, "to_ascii\(\'𐳈\-\。𑄳\?\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:689\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐳈-｡𑄳񢌻", %p)}, undef, "to_ascii\(\'𐳈\-｡𑄳\?\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:690\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-󠉖ꡧ．󠊂񇆃🄉", %p)}, undef, "to_ascii\(\'\-\?ꡧ．\?\?🄉\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:691\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-󠉖ꡧ.󠊂񇆃8,", %p)}, undef, "to_ascii\(\'\-\?ꡧ\.\?\?8\,\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:692\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠾛󠈴臯𧔤.\x{0768}𝟝", %p)}, undef, "to_ascii\(\'\?\?臯𧔤\.\\u0768𝟝\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:693\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠾛󠈴臯𧔤.\x{0768}5", %p)}, undef, "to_ascii\(\'\?\?臯𧔤\.\\u07685\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:694\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮𐹣．𝨿", %p)}, undef, "to_ascii\(\'\≮𐹣．𝨿\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:695\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𐹣．𝨿", %p)}, undef, "to_ascii\(\'\<\\u0338𐹣．𝨿\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:696\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮𐹣.𝨿", %p)}, undef, "to_ascii\(\'\≮𐹣\.𝨿\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:697\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𐹣.𝨿", %p)}, undef, "to_ascii\(\'\<\\u0338𐹣\.𝨿\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:698\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("𐹯ᯛ\x{0A4D}｡脥", %p)}, undef, "to_ascii\(\'𐹯ᯛ\\u0A4D｡脥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:699\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("𐹯ᯛ\x{0A4D}。脥", %p)}, undef, "to_ascii\(\'𐹯ᯛ\\u0A4D\。脥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:700\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{1B44}\x{115F}𞷿򃀍.-", %p)}, undef, "to_ascii\(\'\\u1B44\\u115F\?\?\.\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:701\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}｡\x{0354}", %p)}, undef, "to_ascii\(\'\\u200C｡\\u0354\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:703\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}。\x{0354}", %p)}, undef, "to_ascii\(\'\\u200C\。\\u0354\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:705\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤥󠅮．ᡄႮ", %p)}, undef, "to_ascii\(\'\?\󠅮．ᡄႮ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:706\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤥󠅮.ᡄႮ", %p)}, undef, "to_ascii\(\'\?\󠅮\.ᡄႮ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:707\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤥󠅮.ᡄⴎ", %p)}, "xn--de6h.xn--37e857h", "to_ascii\(\'\?\󠅮\.ᡄⴎ\'\)\ \[data\/IdnaTest\.txt\:708\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--de6h.xn--37e857h", %p)}, "xn--de6h.xn--37e857h", "to_ascii\(\'xn\-\-de6h\.xn\-\-37e857h\'\)\ \[data\/IdnaTest\.txt\:709\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤥.ᡄⴎ", %p)}, "xn--de6h.xn--37e857h", "to_ascii\(\'\?\.ᡄⴎ\'\)\ \[data\/IdnaTest\.txt\:710\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞤥.ᡄႮ", %p)}, undef, "to_ascii\(\'\?\.ᡄႮ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:711\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤥󠅮．ᡄⴎ", %p)}, "xn--de6h.xn--37e857h", "to_ascii\(\'\?\󠅮．ᡄⴎ\'\)\ \[data\/IdnaTest\.txt\:712\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤧𝨨Ξ．𪺏㛨❸", %p)}, undef, "to_ascii\(\'\?𝨨Ξ．𪺏㛨❸\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:713\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤧𝨨Ξ.𪺏㛨❸", %p)}, undef, "to_ascii\(\'\?𝨨Ξ\.𪺏㛨❸\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:714\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤧𝨨ξ.𪺏㛨❸", %p)}, undef, "to_ascii\(\'\?𝨨ξ\.𪺏㛨❸\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:715\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤧𝨨ξ．𪺏㛨❸", %p)}, undef, "to_ascii\(\'\?𝨨ξ．𪺏㛨❸\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:716\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("᠆몆\x{200C}-｡Ⴛ𐦅︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-｡Ⴛ𐦅︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:718\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("᠆몆\x{200C}-｡Ⴛ𐦅︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-｡Ⴛ𐦅︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:720\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ𐦅。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。Ⴛ𐦅\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:722\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ𐦅。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。Ⴛ𐦅\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:724\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ𐦅。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。ⴛ𐦅\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:726\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ𐦅。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。ⴛ𐦅\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:728\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("᠆몆\x{200C}-｡ⴛ𐦅︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-｡ⴛ𐦅︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:730\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("᠆몆\x{200C}-｡ⴛ𐦅︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-｡ⴛ𐦅︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:732\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠾳.︒⥱\x{200C}𐹬", %p)}, undef, "to_ascii\(\'\?\.︒\⥱\\u200C𐹬\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:734\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠾳.。⥱\x{200C}𐹬", %p)}, undef, "to_ascii\(\'\?\.\。\⥱\\u200C𐹬\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ C1\ \[data\/IdnaTest\.txt\:736\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐯖.𐹠Ⴑ񚇜𐫊", %p)}, undef, "to_ascii\(\'\?\.𐹠Ⴑ\?𐫊\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:737\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐯖.𐹠ⴑ񚇜𐫊", %p)}, undef, "to_ascii\(\'\?\.𐹠ⴑ\?𐫊\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:738\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0FA4}񱤯．𝟭Ⴛ", %p)}, undef, "to_ascii\(\'\\u0FA4\?．𝟭Ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:739\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0FA4}񱤯.1Ⴛ", %p)}, undef, "to_ascii\(\'\\u0FA4\?\.1Ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:740\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0FA4}񱤯.1ⴛ", %p)}, undef, "to_ascii\(\'\\u0FA4\?\.1ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:741\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0FA4}񱤯．𝟭ⴛ", %p)}, undef, "to_ascii\(\'\\u0FA4\?．𝟭ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:742\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{0826}齀。릿𐸋", %p)}, undef, "to_ascii\(\'\-\\u0826齀\。릿\?\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:743\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{0826}齀。릿𐸋", %p)}, undef, "to_ascii\(\'\-\\u0826齀\。릿\?\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:744\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠔊\x{071C}鹝꾗。񾵐\x{200D}\x{200D}⏃", %p)}, undef, "to_ascii\(\'\?\\u071C鹝꾗\。\?\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:746\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠔊\x{071C}鹝꾗。񾵐\x{200D}\x{200D}⏃", %p)}, undef, "to_ascii\(\'\?\\u071C鹝꾗\。\?\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:748\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮．-\x{0708}--", %p)}, undef, "to_ascii\(\'\≮．\-\\u0708\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:749\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}．-\x{0708}--", %p)}, undef, "to_ascii\(\'\<\\u0338．\-\\u0708\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:750\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮.-\x{0708}--", %p)}, undef, "to_ascii\(\'\≮\.\-\\u0708\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:751\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}.-\x{0708}--", %p)}, undef, "to_ascii\(\'\<\\u0338\.\-\\u0708\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:752\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹸󠋳。\x{200D}ς𝟩", %p)}, undef, "to_ascii\(\'𐹸\?\。\\u200Dς𝟩\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:754\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹸󠋳。\x{200D}ς7", %p)}, undef, "to_ascii\(\'𐹸\?\。\\u200Dς7\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:756\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹸󠋳。\x{200D}Σ7", %p)}, undef, "to_ascii\(\'𐹸\?\。\\u200DΣ7\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:758\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹸󠋳。\x{200D}σ7", %p)}, undef, "to_ascii\(\'𐹸\?\。\\u200Dσ7\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:760\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹸󠋳。\x{200D}Σ𝟩", %p)}, undef, "to_ascii\(\'𐹸\?\。\\u200DΣ𝟩\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:762\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹸󠋳。\x{200D}σ𝟩", %p)}, undef, "to_ascii\(\'𐹸\?\。\\u200Dσ𝟩\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:764\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς򅜌８.𞭤", %p)}, undef, "to_ascii\(\'ς\?８\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:765\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς򅜌8.𞭤", %p)}, undef, "to_ascii\(\'ς\?8\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:766\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ򅜌8.𞭤", %p)}, undef, "to_ascii\(\'Σ\?8\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:767\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ򅜌8.𞭤", %p)}, undef, "to_ascii\(\'σ\?8\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:768\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ򅜌８.𞭤", %p)}, undef, "to_ascii\(\'Σ\?８\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:769\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ򅜌８.𞭤", %p)}, undef, "to_ascii\(\'σ\?８\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:770\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ᡑ🄀\x{0684}．-𐫄𑲤", %p)}, undef, "to_ascii\(\'\\u200Cᡑ🄀\\u0684．\-𐫄\?\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:772\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{200C}ᡑ0.\x{0684}.-𐫄𑲤", %p)}, undef, "to_ascii\(\'\\u200Cᡑ0\.\\u0684\.\-𐫄\?\'\)\ throws\ error\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:774\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𖠍。𐪿넯򞵲", %p)}, undef, "to_ascii\(\'𖠍\。\?넯\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:775\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𖠍。𐪿넯򞵲", %p)}, undef, "to_ascii\(\'𖠍\。\?넯\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:776\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("᠇Ⴘ。\x{0603}Ⴈ𝆊", %p)}, undef, "to_ascii\(\'᠇Ⴘ\。\\u0603Ⴈ𝆊\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:777\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("᠇ⴘ。\x{0603}ⴈ𝆊", %p)}, undef, "to_ascii\(\'᠇ⴘ\。\\u0603ⴈ𝆊\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:778\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒚󠋑𞤰。牣\x{0667}Ⴜᣥ", %p)}, undef, "to_ascii\(\'⒚\?\?\。牣\\u0667Ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:779\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("19.󠋑𞤰。牣\x{0667}Ⴜᣥ", %p)}, undef, "to_ascii\(\'19\.\?\?\。牣\\u0667Ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:780\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("19.󠋑𞤰。牣\x{0667}ⴜᣥ", %p)}, undef, "to_ascii\(\'19\.\?\?\。牣\\u0667ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:781\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒚󠋑𞤰。牣\x{0667}ⴜᣥ", %p)}, undef, "to_ascii\(\'⒚\?\?\。牣\\u0667ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:782\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𐋱𐰽⒈.Ⴓ", %p)}, undef, "to_ascii\(\'\-𐋱𐰽⒈\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:783\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𐋱𐰽1..Ⴓ", %p)}, undef, "to_ascii\(\'\-𐋱𐰽1\.\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ A4_2\ \[data\/IdnaTest\.txt\:784\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-𐋱𐰽1..ⴓ", %p)}, undef, "to_ascii\(\'\-𐋱𐰽1\.\.ⴓ\'\)\ throws\ error\ V3\ B1\ A4_2\ \[data\/IdnaTest\.txt\:785\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-𐋱𐰽⒈.ⴓ", %p)}, undef, "to_ascii\(\'\-𐋱𐰽⒈\.ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:786\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}긃.榶-", %p)}, undef, "to_ascii\(\'\\u200C긃\.榶\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:788\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}긃.榶-", %p)}, undef, "to_ascii\(\'\\u200C긃\.榶\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:790\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("뉓泓𜵽.\x{09CD}\x{200D}", %p)}, undef, "to_ascii\(\'뉓泓\?\.\\u09CD\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:791\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("뉓泓𜵽.\x{09CD}\x{200D}", %p)}, undef, "to_ascii\(\'뉓泓\?\.\\u09CD\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:792\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹴ß｡\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_ascii\(\'\\u200D𐹴ß｡\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:794\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹴ß。\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_ascii\(\'\\u200D𐹴ß\。\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:796\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹴SS。\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_ascii\(\'\\u200D𐹴SS\。\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:798\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹴ss。\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_ascii\(\'\\u200D𐹴ss\。\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:800\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹴Ss。\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_ascii\(\'\\u200D𐹴Ss\。\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:802\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹴SS｡\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_ascii\(\'\\u200D𐹴SS｡\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:804\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹴ss｡\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_ascii\(\'\\u200D𐹴ss｡\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:806\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹴Ss｡\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_ascii\(\'\\u200D𐹴Ss｡\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:808\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1B44}．\x{1BAA}-≮≠", %p)}, undef, "to_ascii\(\'\\u1B44．\\u1BAA\-\≮\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:809\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1B44}．\x{1BAA}-<\x{0338}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u1B44．\\u1BAA\-\<\\u0338\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:810\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1B44}.\x{1BAA}-≮≠", %p)}, undef, "to_ascii\(\'\\u1B44\.\\u1BAA\-\≮\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:811\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1B44}.\x{1BAA}-<\x{0338}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u1B44\.\\u1BAA\-\<\\u0338\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:812\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}Ⴑ\x{115F}．𑄴Ⅎ", %p)}, undef, "to_ascii\(\'\\u1BF3Ⴑ\\u115F．𑄴Ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:813\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}Ⴑ\x{115F}.𑄴Ⅎ", %p)}, undef, "to_ascii\(\'\\u1BF3Ⴑ\\u115F\.𑄴Ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:814\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}ⴑ\x{115F}.𑄴ⅎ", %p)}, undef, "to_ascii\(\'\\u1BF3ⴑ\\u115F\.𑄴ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:815\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}Ⴑ\x{115F}.𑄴ⅎ", %p)}, undef, "to_ascii\(\'\\u1BF3Ⴑ\\u115F\.𑄴ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:816\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}ⴑ\x{115F}．𑄴ⅎ", %p)}, undef, "to_ascii\(\'\\u1BF3ⴑ\\u115F．𑄴ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:817\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}Ⴑ\x{115F}．𑄴ⅎ", %p)}, undef, "to_ascii\(\'\\u1BF3Ⴑ\\u115F．𑄴ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:818\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𜉆。Ⴃ𐴣𐹹똯", %p)}, undef, "to_ascii\(\'\?\。Ⴃ\?𐹹똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:819\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𜉆。Ⴃ𐴣𐹹똯", %p)}, undef, "to_ascii\(\'\?\。Ⴃ\?𐹹똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:820\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𜉆。ⴃ𐴣𐹹똯", %p)}, undef, "to_ascii\(\'\?\。ⴃ\?𐹹똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:821\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𜉆。ⴃ𐴣𐹹똯", %p)}, undef, "to_ascii\(\'\?\。ⴃ\?𐹹똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:822\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫀｡⳻󠙾󠄷\x{3164}", %p)}, undef, "to_ascii\(\'𐫀｡⳻\?\󠄷\\u3164\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:823\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫀。⳻󠙾󠄷\x{1160}", %p)}, undef, "to_ascii\(\'𐫀\。⳻\?\󠄷\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:824\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{079A}⾇．\x{071E}-𐋰", %p)}, undef, "to_ascii\(\'\\u079A⾇．\\u071E\-𐋰\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:825\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{079A}舛.\x{071E}-𐋰", %p)}, undef, "to_ascii\(\'\\u079A舛\.\\u071E\-𐋰\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:826\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴉ猕󹛫≮．︒", %p)}, undef, "to_ascii\(\'Ⴉ猕\?\≮．︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:827\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴉ猕󹛫<\x{0338}．︒", %p)}, undef, "to_ascii\(\'Ⴉ猕\?\<\\u0338．︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:828\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴉ猕󹛫≮.。", %p)}, undef, "to_ascii\(\'Ⴉ猕\?\≮\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:829\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴉ猕󹛫<\x{0338}.。", %p)}, undef, "to_ascii\(\'Ⴉ猕\?\<\\u0338\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:830\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴉ猕󹛫<\x{0338}.。", %p)}, undef, "to_ascii\(\'ⴉ猕\?\<\\u0338\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:831\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴉ猕󹛫≮.。", %p)}, undef, "to_ascii\(\'ⴉ猕\?\≮\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:832\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴉ猕󹛫<\x{0338}．︒", %p)}, undef, "to_ascii\(\'ⴉ猕\?\<\\u0338．︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:833\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴉ猕󹛫≮．︒", %p)}, undef, "to_ascii\(\'ⴉ猕\?\≮．︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:834\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("🏮｡\x{062B}鳳\x{07E2}󠅉", %p)}, undef, "to_ascii\(\'🏮｡\\u062B鳳\\u07E2\󠅉\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:835\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("🏮。\x{062B}鳳\x{07E2}󠅉", %p)}, undef, "to_ascii\(\'🏮\。\\u062B鳳\\u07E2\󠅉\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:836\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200D}𐹶。ß", %p)}, undef, "to_ascii\(\'\\u200D𐹶\。ß\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:838\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200D}𐹶。SS", %p)}, undef, "to_ascii\(\'\\u200D𐹶\。SS\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:840\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Å둄-．\x{200C}", %p)}, undef, "to_ascii\(\'Å둄\-．\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:842\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{030A}둄-．\x{200C}", %p)}, undef, "to_ascii\(\'A\\u030A둄\-．\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:844\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Å둄-.\x{200C}", %p)}, undef, "to_ascii\(\'Å둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:846\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("A\x{030A}둄-.\x{200C}", %p)}, undef, "to_ascii\(\'A\\u030A둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:848\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{030A}둄-.\x{200C}", %p)}, undef, "to_ascii\(\'a\\u030A둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:850\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("å둄-.\x{200C}", %p)}, undef, "to_ascii\(\'å둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:852\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("a\x{030A}둄-．\x{200C}", %p)}, undef, "to_ascii\(\'a\\u030A둄\-．\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:854\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("å둄-．\x{200C}", %p)}, undef, "to_ascii\(\'å둄\-．\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:856\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{3099}򬎑\x{1DD7}𞤀.򱲢-\x{0953}", %p)}, undef, "to_ascii\(\'\\u3099\?\\u1DD7\?\.\?\-\\u0953\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:857\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς.ß񴱄\x{06DD}\x{2D7F}", %p)}, undef, "to_ascii\(\'ς\.ß\?\\u06DD\\u2D7F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:858\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ.SS񴱄\x{06DD}\x{2D7F}", %p)}, undef, "to_ascii\(\'Σ\.SS\?\\u06DD\\u2D7F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:859\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ.ss񴱄\x{06DD}\x{2D7F}", %p)}, undef, "to_ascii\(\'σ\.ss\?\\u06DD\\u2D7F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:860\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ.ss񴱄\x{06DD}\x{2D7F}", %p)}, undef, "to_ascii\(\'Σ\.ss\?\\u06DD\\u2D7F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:861\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ.ß񴱄\x{06DD}\x{2D7F}", %p)}, undef, "to_ascii\(\'Σ\.ß\?\\u06DD\\u2D7F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:862\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ.ß񴱄\x{06DD}\x{2D7F}", %p)}, undef, "to_ascii\(\'σ\.ß\?\\u06DD\\u2D7F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:863\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ꡀ𞀟｡\x{066B}\x{0599}", %p)}, undef, "to_ascii\(\'ꡀ\?｡\\u066B\\u0599\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:864\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ꡀ𞀟。\x{066B}\x{0599}", %p)}, undef, "to_ascii\(\'ꡀ\?\。\\u066B\\u0599\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:865\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򈛉\x{200C}\x{08A9}｡⧅񘘡-𐭡", %p)}, undef, "to_ascii\(\'\?\\u200C\\u08A9｡\⧅\?\-𐭡\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:867\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򈛉\x{200C}\x{08A9}。⧅񘘡-𐭡", %p)}, undef, "to_ascii\(\'\?\\u200C\\u08A9\。\⧅\?\-𐭡\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:869\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("룱\x{200D}𰍨\x{200C}。𝨖︒", %p)}, undef, "to_ascii\(\'룱\\u200D\?\\u200C\。𝨖︒\'\)\ throws\ error\ P1\ V6\ V5\ C2\ C1\ \[data\/IdnaTest\.txt\:871\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("룱\x{200D}𰍨\x{200C}。𝨖︒", %p)}, undef, "to_ascii\(\'룱\\u200D\?\\u200C\。𝨖︒\'\)\ throws\ error\ P1\ V6\ V5\ C2\ C1\ \[data\/IdnaTest\.txt\:873\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("룱\x{200D}𰍨\x{200C}。𝨖。", %p)}, undef, "to_ascii\(\'룱\\u200D\?\\u200C\。𝨖\。\'\)\ throws\ error\ P1\ V6\ V5\ C2\ C1\ \[data\/IdnaTest\.txt\:875\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("룱\x{200D}𰍨\x{200C}。𝨖。", %p)}, undef, "to_ascii\(\'룱\\u200D\?\\u200C\。𝨖\。\'\)\ throws\ error\ P1\ V6\ V5\ C2\ C1\ \[data\/IdnaTest\.txt\:877\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄄．\x{1CDC}⒈ß", %p)}, undef, "to_ascii\(\'🄄．\\u1CDC⒈ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:878\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("3,.\x{1CDC}1.ß", %p)}, undef, "to_ascii\(\'3\,\.\\u1CDC1\.ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:879\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("3,.\x{1CDC}1.SS", %p)}, undef, "to_ascii\(\'3\,\.\\u1CDC1\.SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:880\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄄．\x{1CDC}⒈SS", %p)}, undef, "to_ascii\(\'🄄．\\u1CDC⒈SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:881\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄄．\x{1CDC}⒈ss", %p)}, undef, "to_ascii\(\'🄄．\\u1CDC⒈ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:882\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄄．\x{1CDC}⒈Ss", %p)}, undef, "to_ascii\(\'🄄．\\u1CDC⒈Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:883\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񇌍\x{2D7F}｡𞼓򡄨𑐺", %p)}, undef, "to_ascii\(\'\?\\u2D7F｡\?\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:884\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񇌍\x{2D7F}。𞼓򡄨𑐺", %p)}, undef, "to_ascii\(\'\?\\u2D7F\。\?\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:885\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DFD}\x{103A}\x{094D}．≠\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u1DFD\\u103A\\u094D．\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:887\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{103A}\x{094D}\x{1DFD}．≠\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u103A\\u094D\\u1DFD．\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:889\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{103A}\x{094D}\x{1DFD}．=\x{0338}\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u103A\\u094D\\u1DFD．\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:891\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{103A}\x{094D}\x{1DFD}.≠\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u103A\\u094D\\u1DFD\.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:893\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{103A}\x{094D}\x{1DFD}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u103A\\u094D\\u1DFD\.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:895\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴁ𐋨娤.\x{200D}\x{033C}\x{0662}𑖿", %p)}, undef, "to_ascii\(\'Ⴁ𐋨娤\.\\u200D\\u033C\\u0662𑖿\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:897\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ⴁ𐋨娤.\x{200D}\x{033C}\x{0662}𑖿", %p)}, undef, "to_ascii\(\'ⴁ𐋨娤\.\\u200D\\u033C\\u0662𑖿\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:899\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("🄀Ⴄ\x{0669}\x{0820}。⒈\x{0FB6}ß", %p)}, undef, "to_ascii\(\'🄀Ⴄ\\u0669\\u0820\。⒈\\u0FB6ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:900\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0.Ⴄ\x{0669}\x{0820}。1.\x{0FB6}ß", %p)}, undef, "to_ascii\(\'0\.Ⴄ\\u0669\\u0820\。1\.\\u0FB6ß\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:901\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("0.ⴄ\x{0669}\x{0820}。1.\x{0FB6}ß", %p)}, undef, "to_ascii\(\'0\.ⴄ\\u0669\\u0820\。1\.\\u0FB6ß\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:902\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("0.Ⴄ\x{0669}\x{0820}。1.\x{0FB6}SS", %p)}, undef, "to_ascii\(\'0\.Ⴄ\\u0669\\u0820\。1\.\\u0FB6SS\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:903\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("0.ⴄ\x{0669}\x{0820}。1.\x{0FB6}ss", %p)}, undef, "to_ascii\(\'0\.ⴄ\\u0669\\u0820\。1\.\\u0FB6ss\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:904\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("0.Ⴄ\x{0669}\x{0820}。1.\x{0FB6}Ss", %p)}, undef, "to_ascii\(\'0\.Ⴄ\\u0669\\u0820\。1\.\\u0FB6Ss\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:905\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄀ⴄ\x{0669}\x{0820}。⒈\x{0FB6}ß", %p)}, undef, "to_ascii\(\'🄀ⴄ\\u0669\\u0820\。⒈\\u0FB6ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:906\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄀Ⴄ\x{0669}\x{0820}。⒈\x{0FB6}SS", %p)}, undef, "to_ascii\(\'🄀Ⴄ\\u0669\\u0820\。⒈\\u0FB6SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:907\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄀ⴄ\x{0669}\x{0820}。⒈\x{0FB6}ss", %p)}, undef, "to_ascii\(\'🄀ⴄ\\u0669\\u0820\。⒈\\u0FB6ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:908\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄀Ⴄ\x{0669}\x{0820}。⒈\x{0FB6}Ss", %p)}, undef, "to_ascii\(\'🄀Ⴄ\\u0669\\u0820\。⒈\\u0FB6Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:909\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠.\x{200C}-\x{066B}", %p)}, undef, "to_ascii\(\'\≠\.\\u200C\-\\u066B\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:911\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}.\x{200C}-\x{066B}", %p)}, undef, "to_ascii\(\'\=\\u0338\.\\u200C\-\\u066B\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:913\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0660}۱｡󠳶𞠁\x{0665}", %p)}, undef, "to_ascii\(\'\\u0660۱｡\?𞠁\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:914\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0660}۱。󠳶𞠁\x{0665}", %p)}, undef, "to_ascii\(\'\\u0660۱\。\?𞠁\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:915\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{0663}⒖。󱅉𽷛\x{1BF3}", %p)}, undef, "to_ascii\(\'\\u200C\\u0663⒖\。\?\?\\u1BF3\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:917\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{0663}15.。󱅉𽷛\x{1BF3}", %p)}, undef, "to_ascii\(\'\\u200C\\u066315\.\。\?\?\\u1BF3\'\)\ throws\ error\ P1\ V6\ B1\ C1\ A4_2\ \[data\/IdnaTest\.txt\:919\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}.-逋񳦭󙙮", %p)}, undef, "to_ascii\(\'\\u1BF3\.\-逋\?\?\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:920\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0756}。\x{3164}\x{200D}ς", %p)}, undef, "to_ascii\(\'\\u0756\。\\u3164\\u200Dς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:922\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0756}。\x{1160}\x{200D}ς", %p)}, undef, "to_ascii\(\'\\u0756\。\\u1160\\u200Dς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:924\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0756}。\x{1160}\x{200D}Σ", %p)}, undef, "to_ascii\(\'\\u0756\。\\u1160\\u200DΣ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:926\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0756}。\x{1160}\x{200D}σ", %p)}, undef, "to_ascii\(\'\\u0756\。\\u1160\\u200Dσ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:928\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0756}。\x{3164}\x{200D}Σ", %p)}, undef, "to_ascii\(\'\\u0756\。\\u3164\\u200DΣ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:930\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0756}。\x{3164}\x{200D}σ", %p)}, undef, "to_ascii\(\'\\u0756\。\\u3164\\u200Dσ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:932\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡆႣ｡󞢧\x{0315}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'ᡆႣ｡\?\\u0315\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:934\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡆႣ。󞢧\x{0315}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'ᡆႣ\。\?\\u0315\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:936\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡆⴃ。󞢧\x{0315}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'ᡆⴃ\。\?\\u0315\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:938\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡆⴃ｡󞢧\x{0315}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'ᡆⴃ｡\?\\u0315\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:940\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("㭄\x{200D}\x{084F}𑚵．ς𐮮\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200D\\u084F𑚵．ς𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:942\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("㭄\x{200D}\x{084F}𑚵.ς𐮮\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200D\\u084F𑚵\.ς𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:944\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("㭄\x{200D}\x{084F}𑚵.Σ𐮮\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200D\\u084F𑚵\.Σ𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:946\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("㭄\x{200D}\x{084F}𑚵.σ𐮮\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200D\\u084F𑚵\.σ𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:948\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("㭄\x{200D}\x{084F}𑚵．Σ𐮮\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200D\\u084F𑚵．Σ𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:950\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("㭄\x{200D}\x{084F}𑚵．σ𐮮\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200D\\u084F𑚵．σ𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:952\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{17B5}。𞯸ꡀ🄋", %p)}, undef, "to_ascii\(\'\\u17B5\。\?ꡀ🄋\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:953\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󐪺暑．⾑\x{0668}", %p)}, undef, "to_ascii\(\'\?暑．⾑\\u0668\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:954\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󐪺暑.襾\x{0668}", %p)}, undef, "to_ascii\(\'\?暑\.襾\\u0668\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:955\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄚≯ꡢ。\x{0891}\x{1DFF}", %p)}, undef, "to_ascii\(\'\󠄚\≯ꡢ\。\\u0891\\u1DFF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:956\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄚>\x{0338}ꡢ。\x{0891}\x{1DFF}", %p)}, undef, "to_ascii\(\'\󠄚\>\\u0338ꡢ\。\\u0891\\u1DFF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:957\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FDC3}𮁱\x{0B4D}𐨿.󐧤Ⴗ", %p)}, undef, "to_ascii\(\'\\uFDC3\?\\u0B4D𐨿\.\?Ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:958\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0643}\x{0645}\x{0645}𮁱\x{0B4D}𐨿.󐧤Ⴗ", %p)}, undef, "to_ascii\(\'\\u0643\\u0645\\u0645\?\\u0B4D𐨿\.\?Ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:959\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0643}\x{0645}\x{0645}𮁱\x{0B4D}𐨿.󐧤ⴗ", %p)}, undef, "to_ascii\(\'\\u0643\\u0645\\u0645\?\\u0B4D𐨿\.\?ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:960\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FDC3}𮁱\x{0B4D}𐨿.󐧤ⴗ", %p)}, undef, "to_ascii\(\'\\uFDC3\?\\u0B4D𐨿\.\?ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:961\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞀨｡\x{1B44}򡛨𞎇", %p)}, undef, "to_ascii\(\'\?｡\\u1B44\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:962\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞀨。\x{1B44}򡛨𞎇", %p)}, undef, "to_ascii\(\'\?\。\\u1B44\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:963\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠣼\x{200C}．𐺰\x{200C}ᡟ", %p)}, undef, "to_ascii\(\'\?\\u200C．\?\\u200Cᡟ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:965\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠣼\x{200C}.𐺰\x{200C}ᡟ", %p)}, undef, "to_ascii\(\'\?\\u200C\.\?\\u200Cᡟ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:967\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢛ󨅟ß.ጧ", %p)}, undef, "to_ascii\(\'ᢛ\?ß\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:968\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢛ󨅟SS.ጧ", %p)}, undef, "to_ascii\(\'ᢛ\?SS\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:969\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢛ󨅟ss.ጧ", %p)}, undef, "to_ascii\(\'ᢛ\?ss\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:970\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢛ󨅟Ss.ጧ", %p)}, undef, "to_ascii\(\'ᢛ\?Ss\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:971\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⮒\x{200C}.񒚗\x{200C}", %p)}, undef, "to_ascii\(\'\⮒\\u200C\.\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:973\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤂񹞁𐹯。Ⴜ", %p)}, undef, "to_ascii\(\'\?\?𐹯\。Ⴜ\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:974\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤂񹞁𐹯。ⴜ", %p)}, undef, "to_ascii\(\'\?\?𐹯\。ⴜ\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:975\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹵⮣\x{200C}𑄰｡񷴿\x{FCB7}", %p)}, undef, "to_ascii\(\'𐹵\⮣\\u200C𑄰｡\?\\uFCB7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:977\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹵⮣\x{200C}𑄰。񷴿\x{0636}\x{0645}", %p)}, undef, "to_ascii\(\'𐹵\⮣\\u200C𑄰\。\?\\u0636\\u0645\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:979\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴒ。デß𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'Ⴒ\。デß\?\\u0C4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:980\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴒ。テ\x{3099}ß𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'Ⴒ\。テ\\u3099ß\?\\u0C4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:981\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ⴒ。テ\x{3099}ß𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'ⴒ\。テ\\u3099ß\?\\u0C4D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:982\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ⴒ。デß𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'ⴒ\。デß\?\\u0C4D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:983\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴒ。デSS𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'Ⴒ\。デSS\?\\u0C4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:984\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴒ。テ\x{3099}SS𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'Ⴒ\。テ\\u3099SS\?\\u0C4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:985\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ⴒ。テ\x{3099}ss𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'ⴒ\。テ\\u3099ss\?\\u0C4D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:986\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ⴒ。デss𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'ⴒ\。デss\?\\u0C4D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:987\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴒ。デSs𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'Ⴒ\。デSs\?\\u0C4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:988\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴒ。テ\x{3099}Ss𞤵\x{0C4D}", %p)}, undef, "to_ascii\(\'Ⴒ\。テ\\u3099Ss\?\\u0C4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:989\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑁿\x{0D4D}．７-\x{07D2}", %p)}, undef, "to_ascii\(\'𑁿\\u0D4D．７\-\\u07D2\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:990\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑁿\x{0D4D}.7-\x{07D2}", %p)}, undef, "to_ascii\(\'𑁿\\u0D4D\.7\-\\u07D2\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:991\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("≯𑜫󠭇.\x{1734}񒞤𑍬ᢧ", %p)}, undef, "to_ascii\(\'\≯𑜫\?\.\\u1734\?𑍬ᢧ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:992\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}𑜫󠭇.\x{1734}񒞤𑍬ᢧ", %p)}, undef, "to_ascii\(\'\>\\u0338𑜫\?\.\\u1734\?𑍬ᢧ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:993\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DDB}򎐙Ⴗ쏔。\x{0781}", %p)}, undef, "to_ascii\(\'\\u1DDB\?Ⴗ쏔\。\\u0781\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:994\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DDB}򎐙Ⴗ쏔。\x{0781}", %p)}, undef, "to_ascii\(\'\\u1DDB\?Ⴗ쏔\。\\u0781\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:995\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DDB}򎐙ⴗ쏔。\x{0781}", %p)}, undef, "to_ascii\(\'\\u1DDB\?ⴗ쏔\。\\u0781\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:996\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DDB}򎐙ⴗ쏔。\x{0781}", %p)}, undef, "to_ascii\(\'\\u1DDB\?ⴗ쏔\。\\u0781\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:997\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß｡𐋳Ⴌ\x{0FB8}", %p)}, undef, "to_ascii\(\'ß｡𐋳Ⴌ\\u0FB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:998\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß。𐋳Ⴌ\x{0FB8}", %p)}, undef, "to_ascii\(\'ß\。𐋳Ⴌ\\u0FB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:999\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß。𐋳ⴌ\x{0FB8}", %p)}, "xn--zca.xn--lgd921mvv0m", "to_ascii\(\'ß\。𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1001\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("SS。𐋳Ⴌ\x{0FB8}", %p)}, undef, "to_ascii\(\'SS\。𐋳Ⴌ\\u0FB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1002\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss。𐋳ⴌ\x{0FB8}", %p)}, "ss.xn--lgd921mvv0m", "to_ascii\(\'ss\。𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1003\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss.xn--lgd921mvv0m", %p)}, "ss.xn--lgd921mvv0m", "to_ascii\(\'ss\.xn\-\-lgd921mvv0m\'\)\ \[data\/IdnaTest\.txt\:1004\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss.𐋳ⴌ\x{0FB8}", %p)}, "ss.xn--lgd921mvv0m", "to_ascii\(\'ss\.𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1005\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("SS.𐋳Ⴌ\x{0FB8}", %p)}, undef, "to_ascii\(\'SS\.𐋳Ⴌ\\u0FB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1006\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--zca.xn--lgd921mvv0m", %p)}, "xn--zca.xn--lgd921mvv0m", "to_ascii\(\'xn\-\-zca\.xn\-\-lgd921mvv0m\'\)\ \[data\/IdnaTest\.txt\:1007\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß.𐋳ⴌ\x{0FB8}", %p)}, "xn--zca.xn--lgd921mvv0m", "to_ascii\(\'ß\.𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1009\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß｡𐋳ⴌ\x{0FB8}", %p)}, "xn--zca.xn--lgd921mvv0m", "to_ascii\(\'ß｡𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1011\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("SS｡𐋳Ⴌ\x{0FB8}", %p)}, undef, "to_ascii\(\'SS｡𐋳Ⴌ\\u0FB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1012\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss｡𐋳ⴌ\x{0FB8}", %p)}, "ss.xn--lgd921mvv0m", "to_ascii\(\'ss｡𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1013\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-\x{069E}𐶡.\x{200C}⾝\x{09CD}", %p)}, undef, "to_ascii\(\'\-\\u069E\?\.\\u200C⾝\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1015\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{069E}𐶡.\x{200C}身\x{09CD}", %p)}, undef, "to_ascii\(\'\-\\u069E\?\.\\u200C身\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1017\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("😮\x{0764}𑈵𞀖.💅\x{200D}", %p)}, undef, "to_ascii\(\'😮\\u0764\?𑈵\.💅\\u200D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1019\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("😮\x{0764}𑈵𞀖.💅\x{200D}", %p)}, undef, "to_ascii\(\'😮\\u0764𑈵\?\.💅\\u200D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1021\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{08F2}\x{200D}꙳\x{0712}.ᢏ\x{200C}󠍄", %p)}, undef, "to_ascii\(\'\\u08F2\\u200D꙳\\u0712\.ᢏ\\u200C\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:1023\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴑ．\x{06BF}𞯓ᠲ", %p)}, undef, "to_ascii\(\'Ⴑ．\\u06BF\?ᠲ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1024\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴑ.\x{06BF}𞯓ᠲ", %p)}, undef, "to_ascii\(\'Ⴑ\.\\u06BF\?ᠲ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1025\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴑ.\x{06BF}𞯓ᠲ", %p)}, undef, "to_ascii\(\'ⴑ\.\\u06BF\?ᠲ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1026\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴑ．\x{06BF}𞯓ᠲ", %p)}, undef, "to_ascii\(\'ⴑ．\\u06BF\?ᠲ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1027\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1A5A}𛦝\x{0C4D}。𚝬𝟵", %p)}, undef, "to_ascii\(\'\\u1A5A\?\\u0C4D\。\?𝟵\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1028\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1A5A}𛦝\x{0C4D}。𚝬9", %p)}, undef, "to_ascii\(\'\\u1A5A\?\\u0C4D\。\?9\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1029\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{06A0}𿺆𝟗｡Ⴣ꒘\x{FCD0}񐘖", %p)}, undef, "to_ascii\(\'\\u200C\\u06A0\?𝟗｡Ⴣ꒘\\uFCD0\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1031\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{06A0}𿺆9。Ⴣ꒘\x{0645}\x{062E}񐘖", %p)}, undef, "to_ascii\(\'\\u200C\\u06A0\?9\。Ⴣ꒘\\u0645\\u062E\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1033\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{06A0}𿺆9。ⴣ꒘\x{0645}\x{062E}񐘖", %p)}, undef, "to_ascii\(\'\\u200C\\u06A0\?9\。ⴣ꒘\\u0645\\u062E\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1035\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{06A0}𿺆𝟗｡ⴣ꒘\x{FCD0}񐘖", %p)}, undef, "to_ascii\(\'\\u200C\\u06A0\?𝟗｡ⴣ꒘\\uFCD0\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1037\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡖ｡\x{031F}񗛨\x{0B82}-", %p)}, undef, "to_ascii\(\'ᡖ｡\\u031F\?\\u0B82\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1038\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡖ。\x{031F}񗛨\x{0B82}-", %p)}, undef, "to_ascii\(\'ᡖ\。\\u031F\?\\u0B82\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1039\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞠠浘。絧𞀀", %p)}, undef, "to_ascii\(\'𞠠浘\。絧\?\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1040\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0596}Ⴋ．𝟳≯︒\x{FE0A}", %p)}, undef, "to_ascii\(\'\\u0596Ⴋ．𝟳\≯︒\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1041\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0596}Ⴋ．𝟳>\x{0338}︒\x{FE0A}", %p)}, undef, "to_ascii\(\'\\u0596Ⴋ．𝟳\>\\u0338︒\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1042\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0596}Ⴋ.7≯。\x{FE0A}", %p)}, undef, "to_ascii\(\'\\u0596Ⴋ\.7\≯\。\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1043\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0596}Ⴋ.7>\x{0338}。\x{FE0A}", %p)}, undef, "to_ascii\(\'\\u0596Ⴋ\.7\>\\u0338\。\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1044\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0596}ⴋ.7>\x{0338}。\x{FE0A}", %p)}, undef, "to_ascii\(\'\\u0596ⴋ\.7\>\\u0338\。\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1045\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0596}ⴋ.7≯。\x{FE0A}", %p)}, undef, "to_ascii\(\'\\u0596ⴋ\.7\≯\。\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1046\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0596}ⴋ．𝟳>\x{0338}︒\x{FE0A}", %p)}, undef, "to_ascii\(\'\\u0596ⴋ．𝟳\>\\u0338︒\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1047\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0596}ⴋ．𝟳≯︒\x{FE0A}", %p)}, undef, "to_ascii\(\'\\u0596ⴋ．𝟳\≯︒\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1048\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}F𑓂。󠺨︒\x{077E}𐹢", %p)}, undef, "to_ascii\(\'\\u200DF𑓂\。\?︒\\u077E𐹢\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1050\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}F𑓂。󠺨。\x{077E}𐹢", %p)}, undef, "to_ascii\(\'\\u200DF𑓂\。\?\。\\u077E𐹢\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1052\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}f𑓂。󠺨。\x{077E}𐹢", %p)}, undef, "to_ascii\(\'\\u200Df𑓂\。\?\。\\u077E𐹢\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1054\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}f𑓂。󠺨︒\x{077E}𐹢", %p)}, undef, "to_ascii\(\'\\u200Df𑓂\。\?︒\\u077E𐹢\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1056\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0845}🄇𐼗︒｡𐹻𑜫", %p)}, undef, "to_ascii\(\'\\u0845🄇\?︒｡𐹻𑜫\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:1057\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0845}6,𐼗。。𐹻𑜫", %p)}, undef, "to_ascii\(\'\\u08456\,\?\。\。𐹻𑜫\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1058\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹈.\x{1DC0}𑈱𐦭", %p)}, undef, "to_ascii\(\'\?\.\\u1DC0𑈱𐦭\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1059\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴂ䠺。𞤃񅏎󙮦\x{0693}", %p)}, undef, "to_ascii\(\'Ⴂ䠺\。\?\?\?\\u0693\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1060\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴂ䠺。𞤃񅏎󙮦\x{0693}", %p)}, undef, "to_ascii\(\'ⴂ䠺\。\?\?\?\\u0693\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1061\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄇伐︒.𜙚\x{A8C4}", %p)}, undef, "to_ascii\(\'🄇伐︒\.\?\\uA8C4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1062\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("6,伐。.𜙚\x{A8C4}", %p)}, undef, "to_ascii\(\'6\,伐\。\.\?\\uA8C4\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1063\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹠\x{ABED}\x{FFFB}。\x{200D}𐫓Ⴚ𑂹", %p)}, undef, "to_ascii\(\'\\u200D𐹠\\uABED\\uFFFB\。\\u200D𐫓Ⴚ𑂹\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1065\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐹠\x{ABED}\x{FFFB}。\x{200D}𐫓ⴚ𑂹", %p)}, undef, "to_ascii\(\'\\u200D𐹠\\uABED\\uFFFB\。\\u200D𐫓ⴚ𑂹\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1067\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠆠．񷐴󌟈", %p)}, undef, "to_ascii\(\'\󠆠．\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1068\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠆠.񷐴󌟈", %p)}, undef, "to_ascii\(\'\󠆠\.\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1069\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫃\x{200C}Ⴆ.≠𞷙", %p)}, undef, "to_ascii\(\'𐫃\\u200CႦ\.\≠\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1071\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫃\x{200C}Ⴆ.=\x{0338}𞷙", %p)}, undef, "to_ascii\(\'𐫃\\u200CႦ\.\=\\u0338\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1073\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫃\x{200C}ⴆ.=\x{0338}𞷙", %p)}, undef, "to_ascii\(\'𐫃\\u200Cⴆ\.\=\\u0338\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1075\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫃\x{200C}ⴆ.≠𞷙", %p)}, undef, "to_ascii\(\'𐫃\\u200Cⴆ\.\≠\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1077\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠁲𙩢𝟥ꘌ．\x{0841}", %p)}, undef, "to_ascii\(\'\?\?𝟥ꘌ．\\u0841\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1078\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠁲𙩢3ꘌ.\x{0841}", %p)}, undef, "to_ascii\(\'\?\?3ꘌ\.\\u0841\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1079\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-.\x{1886}󡲣-", %p)}, undef, "to_ascii\(\'\-\.\\u1886\?\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1080\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󲚗\x{200C}｡\x{200C}𞰆ς", %p)}, undef, "to_ascii\(\'\?\\u200C｡\\u200C\?ς\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1082\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󲚗\x{200C}。\x{200C}𞰆ς", %p)}, undef, "to_ascii\(\'\?\\u200C\。\\u200C\?ς\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1084\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󲚗\x{200C}。\x{200C}𞰆Σ", %p)}, undef, "to_ascii\(\'\?\\u200C\。\\u200C\?Σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1086\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󲚗\x{200C}。\x{200C}𞰆σ", %p)}, undef, "to_ascii\(\'\?\\u200C\。\\u200C\?σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1088\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󲚗\x{200C}｡\x{200C}𞰆Σ", %p)}, undef, "to_ascii\(\'\?\\u200C｡\\u200C\?Σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1090\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󲚗\x{200C}｡\x{200C}𞰆σ", %p)}, undef, "to_ascii\(\'\?\\u200C｡\\u200C\?σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1092\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("堕𑓂\x{1B02}。𐮇𞤽\x{200C}-", %p)}, undef, "to_ascii\(\'堕𑓂\\u1B02\。𐮇\?\\u200C\-\'\)\ throws\ error\ V3\ B3\ C1\ \[data\/IdnaTest\.txt\:1094\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢｡ᡥς\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?｡ᡥς\\u062Aς\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1095\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢。ᡥς\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?\。ᡥς\\u062Aς\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1096\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢。ᡥΣ\x{062A}Σ", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?\。ᡥΣ\\u062AΣ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1097\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢。ᡥσ\x{062A}σ", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?\。ᡥσ\\u062Aσ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1098\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢。ᡥΣ\x{062A}σ", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?\。ᡥΣ\\u062Aσ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1099\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢。ᡥΣ\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?\。ᡥΣ\\u062Aς\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1100\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢。ᡥσ\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?\。ᡥσ\\u062Aς\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1101\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢｡ᡥΣ\x{062A}Σ", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?｡ᡥΣ\\u062AΣ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1102\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢｡ᡥσ\x{062A}σ", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?｡ᡥσ\\u062Aσ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1103\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢｡ᡥΣ\x{062A}σ", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?｡ᡥΣ\\u062Aσ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1104\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢｡ᡥΣ\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?｡ᡥΣ\\u062Aς\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1105\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹶𑁆ᡕ𞤢｡ᡥσ\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹶𑁆ᡕ\?｡ᡥσ\\u062Aς\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1106\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󏒰．-𝟻ß", %p)}, undef, "to_ascii\(\'\?．\-𝟻ß\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1107\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󏒰.-5ß", %p)}, undef, "to_ascii\(\'\?\.\-5ß\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1108\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󏒰.-5SS", %p)}, undef, "to_ascii\(\'\?\.\-5SS\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1109\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󏒰．-𝟻SS", %p)}, undef, "to_ascii\(\'\?．\-𝟻SS\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1110\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󏒰．-𝟻ss", %p)}, undef, "to_ascii\(\'\?．\-𝟻ss\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1111\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󏒰．-𝟻Ss", %p)}, undef, "to_ascii\(\'\?．\-𝟻Ss\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1112\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐨿.🤒Ⴥ򑮶", %p)}, undef, "to_ascii\(\'\\u200D𐨿\.🤒Ⴥ\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1114\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𐨿.🤒ⴥ򑮶", %p)}, undef, "to_ascii\(\'\\u200D𐨿\.🤒ⴥ\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1116\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𵋅。ß𬵩\x{200D}", %p)}, undef, "to_ascii\(\'\?\。ß𬵩\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1118\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𵋅。SS𬵩\x{200D}", %p)}, undef, "to_ascii\(\'\?\。SS𬵩\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1120\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𵋅。ss𬵩\x{200D}", %p)}, undef, "to_ascii\(\'\?\。ss𬵩\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1122\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𵋅。Ss𬵩\x{200D}", %p)}, undef, "to_ascii\(\'\?\。Ss𬵩\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1124\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𭉝。\x{07F1}\x{0301}𞹻", %p)}, undef, "to_ascii\(\'\\u200C\?\。\\u07F1\\u0301𞹻\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:1126\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𭉝。\x{07F1}\x{0301}\x{063A}", %p)}, undef, "to_ascii\(\'\\u200C\?\。\\u07F1\\u0301\\u063A\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:1128\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞼌\x{200C}𑈶。𐹡", %p)}, undef, "to_ascii\(\'\?\\u200C𑈶\。𐹡\'\)\ throws\ error\ P1\ V6\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1130\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}ς≠", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBς\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1132\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}ς=\x{0338}", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBς\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1134\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}ς≠", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBς\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1136\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}ς=\x{0338}", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBς\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1138\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}Σ=\x{0338}", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBΣ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1140\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}Σ≠", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBΣ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1142\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}σ≠", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBσ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1144\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}σ=\x{0338}", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBσ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1146\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}Σ=\x{0338}", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBΣ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1148\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}Σ≠", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBΣ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1150\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}σ≠", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBσ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1152\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}σ=\x{0338}", %p)}, undef, "to_ascii\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBσ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1154\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒋｡⒈\x{200D}򳴢", %p)}, undef, "to_ascii\(\'⒋｡⒈\\u200D\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1156\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4.。1.\x{200D}򳴢", %p)}, undef, "to_ascii\(\'4\.\。1\.\\u200D\?\'\)\ throws\ error\ P1\ V6\ A4_2\ C2\ \[data\/IdnaTest\.txt\:1158\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}ß｡𐇽\x{1A60}򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644ß｡𐇽\\u1A60\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1159\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}ß｡\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644ß｡\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1160\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}ß。\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644ß\。\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1161\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}SS。\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644SS\。\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1162\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}ss。\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644ss\。\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1163\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}Ss。\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644Ss\。\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1164\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}SS｡\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644SS｡\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1165\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}ss｡\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644ss｡\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1166\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}Ss｡\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644Ss｡\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1167\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}SS｡𐇽\x{1A60}򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644SS｡𐇽\\u1A60\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1168\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}ss｡𐇽\x{1A60}򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644ss｡𐇽\\u1A60\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1169\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}Ss｡𐇽\x{1A60}򾅢𞤾", %p)}, undef, "to_ascii\(\'\\u0644Ss｡𐇽\\u1A60\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1170\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹽𑄳񼜲.\x{1DDF}\x{17B8}\x{A806}𑜫", %p)}, undef, "to_ascii\(\'𐹽𑄳\?\.\\u1DDF\\u17B8\\uA806𑜫\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1171\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴓ𑜫\x{200D}򗭓．\x{06A7}𑰶", %p)}, undef, "to_ascii\(\'Ⴓ𑜫\\u200D\?．\\u06A7\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1172\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴓ𑜫\x{200D}򗭓.\x{06A7}𑰶", %p)}, undef, "to_ascii\(\'Ⴓ𑜫\\u200D\?\.\\u06A7\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1173\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴓ𑜫\x{200D}򗭓.\x{06A7}𑰶", %p)}, undef, "to_ascii\(\'ⴓ𑜫\\u200D\?\.\\u06A7\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1174\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴓ𑜫\x{200D}򗭓．\x{06A7}𑰶", %p)}, undef, "to_ascii\(\'ⴓ𑜫\\u200D\?．\\u06A7\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1175\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐨿.🄆—", %p)}, undef, "to_ascii\(\'𐨿\.🄆\—\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1176\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐨿.5,—", %p)}, undef, "to_ascii\(\'𐨿\.5\,\—\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1177\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔊱񁦮۸。󠾭-", %p)}, undef, "to_ascii\(\'\?\?۸\。\?\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1178\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼗸\x{07CD}𐹮。\x{06DD}ᡎᠴ", %p)}, undef, "to_ascii\(\'\?\\u07CD𐹮\。\\u06DDᡎᠴ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1179\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}ᠮႾ🄂.🚗\x{0841}𮹌\x{200C}", %p)}, undef, "to_ascii\(\'\\u200DᠮႾ🄂\.🚗\\u0841\?\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1181\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}ᠮႾ1,.🚗\x{0841}𮹌\x{200C}", %p)}, undef, "to_ascii\(\'\\u200DᠮႾ1\,\.🚗\\u0841\?\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1183\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}ᠮⴞ1,.🚗\x{0841}𮹌\x{200C}", %p)}, undef, "to_ascii\(\'\\u200Dᠮⴞ1\,\.🚗\\u0841\?\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1185\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}ᠮⴞ🄂.🚗\x{0841}𮹌\x{200C}", %p)}, undef, "to_ascii\(\'\\u200Dᠮⴞ🄂\.🚗\\u0841\?\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1187\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0601}\x{0697}．𑚶񼡷⾆", %p)}, undef, "to_ascii\(\'\\u0601\\u0697．𑚶\?⾆\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1188\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0601}\x{0697}.𑚶񼡷舌", %p)}, undef, "to_ascii\(\'\\u0601\\u0697\.𑚶\?舌\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1189\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🞅󠳡󜍙.񲖷", %p)}, undef, "to_ascii\(\'🞅\?\?\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1190\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{20E7}񯡎-򫣝.4Ⴄ\x{200C}", %p)}, undef, "to_ascii\(\'\\u20E7\?\-\?\.4Ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1192\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{20E7}񯡎-򫣝.4ⴄ\x{200C}", %p)}, undef, "to_ascii\(\'\\u20E7\?\-\?\.4ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1194\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ｡𝌠ß𖫱", %p)}, "xn--hwe.xn--zca4946pblnc", "to_ascii\(\'ᚭ｡𝌠ß𖫱\'\)\ \[data\/IdnaTest\.txt\:1196\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ。𝌠ß𖫱", %p)}, "xn--hwe.xn--zca4946pblnc", "to_ascii\(\'ᚭ\。𝌠ß𖫱\'\)\ \[data\/IdnaTest\.txt\:1198\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ。𝌠SS𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ\。𝌠SS𖫱\'\)\ \[data\/IdnaTest\.txt\:1199\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ。𝌠ss𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ\。𝌠ss𖫱\'\)\ \[data\/IdnaTest\.txt\:1200\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ。𝌠Ss𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ\。𝌠Ss𖫱\'\)\ \[data\/IdnaTest\.txt\:1201\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--hwe.xn--ss-ci1ub261a", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'xn\-\-hwe\.xn\-\-ss\-ci1ub261a\'\)\ \[data\/IdnaTest\.txt\:1202\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ.𝌠ss𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ\.𝌠ss𖫱\'\)\ \[data\/IdnaTest\.txt\:1203\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ.𝌠SS𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ\.𝌠SS𖫱\'\)\ \[data\/IdnaTest\.txt\:1204\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ.𝌠Ss𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ\.𝌠Ss𖫱\'\)\ \[data\/IdnaTest\.txt\:1205\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--hwe.xn--zca4946pblnc", %p)}, "xn--hwe.xn--zca4946pblnc", "to_ascii\(\'xn\-\-hwe\.xn\-\-zca4946pblnc\'\)\ \[data\/IdnaTest\.txt\:1206\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ.𝌠ß𖫱", %p)}, "xn--hwe.xn--zca4946pblnc", "to_ascii\(\'ᚭ\.𝌠ß𖫱\'\)\ \[data\/IdnaTest\.txt\:1208\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ｡𝌠SS𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ｡𝌠SS𖫱\'\)\ \[data\/IdnaTest\.txt\:1209\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ｡𝌠ss𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ｡𝌠ss𖫱\'\)\ \[data\/IdnaTest\.txt\:1210\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᚭ｡𝌠Ss𖫱", %p)}, "xn--hwe.xn--ss-ci1ub261a", "to_ascii\(\'ᚭ｡𝌠Ss𖫱\'\)\ \[data\/IdnaTest\.txt\:1211\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("₁｡𞤫ꡪ", %p)}, undef, "to_ascii\(\'₁｡\?ꡪ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1212\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("1。𞤫ꡪ", %p)}, undef, "to_ascii\(\'1\。\?ꡪ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1213\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𯻼\x{200C}.𞶞򻙤񥘇", %p)}, undef, "to_ascii\(\'\?\\u200C\.\?\?\?\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1215\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑑄≯｡𑜤", %p)}, undef, "to_ascii\(\'\?\≯｡𑜤\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1216\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑑄>\x{0338}｡𑜤", %p)}, undef, "to_ascii\(\'\?\>\\u0338｡𑜤\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1217\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑑄≯。𑜤", %p)}, undef, "to_ascii\(\'\?\≯\。𑜤\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1218\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑑄>\x{0338}。𑜤", %p)}, undef, "to_ascii\(\'\?\>\\u0338\。𑜤\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1219\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴋ≮𱲆。\x{200D}\x{07A7}𐋣", %p)}, undef, "to_ascii\(\'Ⴋ\≮\?\。\\u200D\\u07A7𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1221\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴋ<\x{0338}𱲆。\x{200D}\x{07A7}𐋣", %p)}, undef, "to_ascii\(\'Ⴋ\<\\u0338\?\。\\u200D\\u07A7𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1223\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴋ<\x{0338}𱲆。\x{200D}\x{07A7}𐋣", %p)}, undef, "to_ascii\(\'ⴋ\<\\u0338\?\。\\u200D\\u07A7𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1225\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴋ≮𱲆。\x{200D}\x{07A7}𐋣", %p)}, undef, "to_ascii\(\'ⴋ\≮\?\。\\u200D\\u07A7𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1227\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17D2}.򆽒≯", %p)}, undef, "to_ascii\(\'\\u17D2\.\?\≯\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1228\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17D2}.򆽒>\x{0338}", %p)}, undef, "to_ascii\(\'\\u17D2\.\?\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1229\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񏁇\x{1734}．𐨺É⬓𑄴", %p)}, undef, "to_ascii\(\'\?\\u1734．𐨺É\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1230\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񏁇\x{1734}．𐨺E\x{0301}⬓𑄴", %p)}, undef, "to_ascii\(\'\?\\u1734．𐨺E\\u0301\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1231\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񏁇\x{1734}.𐨺É⬓𑄴", %p)}, undef, "to_ascii\(\'\?\\u1734\.𐨺É\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1232\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񏁇\x{1734}.𐨺E\x{0301}⬓𑄴", %p)}, undef, "to_ascii\(\'\?\\u1734\.𐨺E\\u0301\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1233\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񏁇\x{1734}.𐨺e\x{0301}⬓𑄴", %p)}, undef, "to_ascii\(\'\?\\u1734\.𐨺e\\u0301\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1234\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񏁇\x{1734}.𐨺é⬓𑄴", %p)}, undef, "to_ascii\(\'\?\\u1734\.𐨺é\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1235\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񏁇\x{1734}．𐨺e\x{0301}⬓𑄴", %p)}, undef, "to_ascii\(\'\?\\u1734．𐨺e\\u0301\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1236\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񏁇\x{1734}．𐨺é⬓𑄴", %p)}, undef, "to_ascii\(\'\?\\u1734．𐨺é\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1237\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢇ\x{200D}\x{A8C4}｡︒𞤺", %p)}, undef, "to_ascii\(\'ᢇ\\u200D\\uA8C4｡︒\?\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1239\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ᢇ\x{200D}\x{A8C4}。。𞤺", %p)}, undef, "to_ascii\(\'ᢇ\\u200D\\uA8C4\。\。\?\'\)\ throws\ error\ C2\ A4_2\ \[data\/IdnaTest\.txt\:1241\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞩬򖙱\x{1714}\x{200C}｡\x{0631}\x{07AA}≮", %p)}, undef, "to_ascii\(\'\?\?\\u1714\\u200C｡\\u0631\\u07AA\≮\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1242\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞩬򖙱\x{1714}\x{200C}｡\x{0631}\x{07AA}<\x{0338}", %p)}, undef, "to_ascii\(\'\?\?\\u1714\\u200C｡\\u0631\\u07AA\<\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1243\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞩬򖙱\x{1714}\x{200C}。\x{0631}\x{07AA}≮", %p)}, undef, "to_ascii\(\'\?\?\\u1714\\u200C\。\\u0631\\u07AA\≮\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1244\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞩬򖙱\x{1714}\x{200C}。\x{0631}\x{07AA}<\x{0338}", %p)}, undef, "to_ascii\(\'\?\?\\u1714\\u200C\。\\u0631\\u07AA\<\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1245\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴣ．\x{0653}ᢤ", %p)}, undef, "to_ascii\(\'Ⴣ．\\u0653ᢤ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1246\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴣ.\x{0653}ᢤ", %p)}, undef, "to_ascii\(\'Ⴣ\.\\u0653ᢤ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1247\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴣ.\x{0653}ᢤ", %p)}, undef, "to_ascii\(\'ⴣ\.\\u0653ᢤ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1248\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴣ．\x{0653}ᢤ", %p)}, undef, "to_ascii\(\'ⴣ．\\u0653ᢤ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1249\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󠄈\x{0813}．싉򄆻Ⴤ򂡐", %p)}, undef, "to_ascii\(\'\󠄈\\u0813．싉\?Ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1250\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄈\x{0813}．싉򄆻Ⴤ򂡐", %p)}, undef, "to_ascii\(\'\󠄈\\u0813．싉\?Ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1251\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄈\x{0813}.싉򄆻Ⴤ򂡐", %p)}, undef, "to_ascii\(\'\󠄈\\u0813\.싉\?Ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1252\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄈\x{0813}.싉򄆻Ⴤ򂡐", %p)}, undef, "to_ascii\(\'\󠄈\\u0813\.싉\?Ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1253\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄈\x{0813}.싉򄆻ⴤ򂡐", %p)}, undef, "to_ascii\(\'\󠄈\\u0813\.싉\?ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1254\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄈\x{0813}.싉򄆻ⴤ򂡐", %p)}, undef, "to_ascii\(\'\󠄈\\u0813\.싉\?ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1255\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄈\x{0813}．싉򄆻ⴤ򂡐", %p)}, undef, "to_ascii\(\'\󠄈\\u0813．싉\?ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1256\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄈\x{0813}．싉򄆻ⴤ򂡐", %p)}, undef, "to_ascii\(\'\󠄈\\u0813．싉\?ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1257\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{AA2C}𑲫≮．⤂", %p)}, undef, "to_ascii\(\'\\uAA2C\?\≮．\⤂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1258\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{AA2C}𑲫<\x{0338}．⤂", %p)}, undef, "to_ascii\(\'\\uAA2C\?\<\\u0338．\⤂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1259\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{AA2C}𑲫≮.⤂", %p)}, undef, "to_ascii\(\'\\uAA2C\?\≮\.\⤂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1260\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{AA2C}𑲫<\x{0338}.⤂", %p)}, undef, "to_ascii\(\'\\uAA2C\?\<\\u0338\.\⤂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1261\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔≮Ⴢ．Ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\≮Ⴢ．Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1262\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔<\x{0338}Ⴢ．Ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\<\\u0338Ⴢ．Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1263\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔≮Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\≮Ⴢ\.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1264\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔<\x{0338}Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\<\\u0338Ⴢ\.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1265\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔<\x{0338}ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\<\\u0338ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1266\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔≮ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\≮ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1267\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔≮Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\≮Ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1268\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔<\x{0338}Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\<\\u0338Ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1269\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔<\x{0338}ⴢ．ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\<\\u0338ⴢ．ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1270\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔≮ⴢ．ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\≮ⴢ．ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1271\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔≮Ⴢ．ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\≮Ⴢ．ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1272\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0604}𐩔<\x{0338}Ⴢ．ⴃ", %p)}, undef, "to_ascii\(\'\\u0604𐩔\<\\u0338Ⴢ．ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1273\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("𑁅。-", %p)}, undef, "to_ascii\(\'𑁅\。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1274\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0DCA}򕸽󠧱｡饈≠\x{0664}", %p)}, undef, "to_ascii\(\'\\u0DCA\?\?｡饈\≠\\u0664\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1275\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0DCA}򕸽󠧱｡饈=\x{0338}\x{0664}", %p)}, undef, "to_ascii\(\'\\u0DCA\?\?｡饈\=\\u0338\\u0664\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1276\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0DCA}򕸽󠧱。饈≠\x{0664}", %p)}, undef, "to_ascii\(\'\\u0DCA\?\?\。饈\≠\\u0664\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1277\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0DCA}򕸽󠧱。饈=\x{0338}\x{0664}", %p)}, undef, "to_ascii\(\'\\u0DCA\?\?\。饈\=\\u0338\\u0664\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1278\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞥃ᠠ⁷｡≯邅⬻4", %p)}, undef, "to_ascii\(\'\?ᠠ⁷｡\≯邅\⬻4\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1279\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞥃ᠠ⁷｡>\x{0338}邅⬻4", %p)}, undef, "to_ascii\(\'\?ᠠ⁷｡\>\\u0338邅\⬻4\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1280\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞥃ᠠ7。≯邅⬻4", %p)}, undef, "to_ascii\(\'\?ᠠ7\。\≯邅\⬻4\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1281\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞥃ᠠ7。>\x{0338}邅⬻4", %p)}, undef, "to_ascii\(\'\?ᠠ7\。\>\\u0338邅\⬻4\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1282\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򠿯ᡳ-𑐻.𐹴𐋫\x{0605}󑎳", %p)}, undef, "to_ascii\(\'\?ᡳ\-\?\.𐹴𐋫\\u0605\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1283\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򠶆\x{0845}\x{0A51}.넨-󶧈", %p)}, undef, "to_ascii\(\'\?\\u0845\\u0A51\.넨\-\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1284\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򠶆\x{0845}\x{0A51}.넨-󶧈", %p)}, undef, "to_ascii\(\'\?\\u0845\\u0A51\.넨\-\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1285\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡦᡑ\x{200D}⒈。𐋣-", %p)}, undef, "to_ascii\(\'ꡦᡑ\\u200D⒈\。𐋣\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:1287\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ꡦᡑ\x{200D}1.。𐋣-", %p)}, undef, "to_ascii\(\'ꡦᡑ\\u200D1\.\。𐋣\-\'\)\ throws\ error\ V3\ C2\ A4_2\ \[data\/IdnaTest\.txt\:1289\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴌ。􍼠\x{FB69}", %p)}, undef, "to_ascii\(\'Ⴌ\。\?\\uFB69\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1290\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴌ。􍼠\x{0679}", %p)}, undef, "to_ascii\(\'Ⴌ\。\?\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1291\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴌ。􍼠\x{0679}", %p)}, undef, "to_ascii\(\'ⴌ\。\?\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1292\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴌ。􍼠\x{FB69}", %p)}, undef, "to_ascii\(\'ⴌ\。\?\\uFB69\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1293\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐮁𐭱.\x{0F84}\x{135E}-\x{1CFA}", %p)}, undef, "to_ascii\(\'𐮁𐭱\.\\u0F84\\u135E\-\\u1CFA\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1294\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈䰹\x{200D}-。웈", %p)}, undef, "to_ascii\(\'⒈䰹\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1296\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈䰹\x{200D}-。웈", %p)}, undef, "to_ascii\(\'⒈䰹\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1298\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.䰹\x{200D}-。웈", %p)}, undef, "to_ascii\(\'1\.䰹\\u200D\-\。웈\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:1300\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.䰹\x{200D}-。웈", %p)}, undef, "to_ascii\(\'1\.䰹\\u200D\-\。웈\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:1302\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("て。\x{200C}󠳽\x{07F3}", %p)}, undef, "to_ascii\(\'て\。\\u200C\?\\u07F3\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1304\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ς｡\x{A9C0}\x{06E7}", %p)}, undef, "to_ascii\(\'ς｡\\uA9C0\\u06E7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1305\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ς。\x{A9C0}\x{06E7}", %p)}, undef, "to_ascii\(\'ς\。\\uA9C0\\u06E7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1306\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("Σ。\x{A9C0}\x{06E7}", %p)}, undef, "to_ascii\(\'Σ\。\\uA9C0\\u06E7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1307\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("σ。\x{A9C0}\x{06E7}", %p)}, undef, "to_ascii\(\'σ\。\\uA9C0\\u06E7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1308\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("Σ｡\x{A9C0}\x{06E7}", %p)}, undef, "to_ascii\(\'Σ｡\\uA9C0\\u06E7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1309\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("σ｡\x{A9C0}\x{06E7}", %p)}, undef, "to_ascii\(\'σ｡\\uA9C0\\u06E7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1310\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0BCD}󥫅򌉑.ႢႵ", %p)}, undef, "to_ascii\(\'\\u0BCD\?\?\.ႢႵ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1311\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0BCD}󥫅򌉑.ⴂⴕ", %p)}, undef, "to_ascii\(\'\\u0BCD\?\?\.ⴂⴕ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1312\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0BCD}󥫅򌉑.Ⴂⴕ", %p)}, undef, "to_ascii\(\'\\u0BCD\?\?\.Ⴂⴕ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1313\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1C32}🄈⾛\x{05A6}．\x{200D}򯥤\x{07FD}", %p)}, undef, "to_ascii\(\'\\u1C32🄈⾛\\u05A6．\\u200D\?\\u07FD\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1315\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1C32}7,走\x{05A6}.\x{200D}򯥤\x{07FD}", %p)}, undef, "to_ascii\(\'\\u1C327\,走\\u05A6\.\\u200D\?\\u07FD\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1317\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢗ｡Ӏ񝄻", %p)}, undef, "to_ascii\(\'ᢗ｡Ӏ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1318\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢗ。Ӏ񝄻", %p)}, undef, "to_ascii\(\'ᢗ\。Ӏ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1319\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢗ。ӏ񝄻", %p)}, undef, "to_ascii\(\'ᢗ\。ӏ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1320\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢗ｡ӏ񝄻", %p)}, undef, "to_ascii\(\'ᢗ｡ӏ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1321\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0668}-。񠏇🝆ᄾ", %p)}, undef, "to_ascii\(\'\\u0668\-\。\?🝆ᄾ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1322\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-𐋷𖾑。󠆬", %p)}, undef, "to_ascii\(\'\-𐋷𖾑\。\󠆬\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1323\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}𐹳🐴멈.\x{ABED}񐡼", %p)}, undef, "to_ascii\(\'\\u200C𐹳🐴멈\.\\uABED\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1325\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𐹳🐴멈.\x{ABED}񐡼", %p)}, undef, "to_ascii\(\'\\u200C𐹳🐴멈\.\\uABED\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1327\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮.\x{0769}\x{0603}", %p)}, undef, "to_ascii\(\'\≮\.\\u0769\\u0603\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1328\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}.\x{0769}\x{0603}", %p)}, undef, "to_ascii\(\'\<\\u0338\.\\u0769\\u0603\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1329\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐶭⾆｡\x{200C}𑚶򟱃𞰘", %p)}, undef, "to_ascii\(\'\?⾆｡\\u200C𑚶\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:1331\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐶭舌。\x{200C}𑚶򟱃𞰘", %p)}, undef, "to_ascii\(\'\?舌\。\\u200C𑚶\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:1333\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴠ-.𝟷ς𞴺ς", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.𝟷ς\?ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1335\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴠ-.1ς𞴺ς", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.1ς\?ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1337\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ⴠ-.1ς𞴺ς", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.1ς\?ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1339\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴠ-.1Σ𞴺Σ", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.1Σ\?Σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1341\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ⴠ-.1σ𞴺σ", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.1σ\?σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1343\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ⴠ-.𝟷ς𞴺ς", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.𝟷ς\?ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1345\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴠ-.𝟷Σ𞴺Σ", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.𝟷Σ\?Σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1347\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ⴠ-.𝟷σ𞴺σ", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.𝟷σ\?σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1349\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑲘󠄒𓑡｡𝟪Ⴜ", %p)}, undef, "to_ascii\(\'\?\󠄒\?｡𝟪Ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1350\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑲘󠄒𓑡。8Ⴜ", %p)}, undef, "to_ascii\(\'\?\󠄒\?\。8Ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1351\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑲘󠄒𓑡。8ⴜ", %p)}, undef, "to_ascii\(\'\?\󠄒\?\。8ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1352\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑲘󠄒𓑡｡𝟪ⴜ", %p)}, undef, "to_ascii\(\'\?\󠄒\?｡𝟪ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1353\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("䪏\x{06AB}\x{07E0}\x{0941}｡뭕ᢝ\x{17B9}", %p)}, undef, "to_ascii\(\'䪏\\u06AB\\u07E0\\u0941｡뭕ᢝ\\u17B9\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1354\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("䪏\x{06AB}\x{07E0}\x{0941}｡뭕ᢝ\x{17B9}", %p)}, undef, "to_ascii\(\'䪏\\u06AB\\u07E0\\u0941｡뭕ᢝ\\u17B9\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1355\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("䪏\x{06AB}\x{07E0}\x{0941}。뭕ᢝ\x{17B9}", %p)}, undef, "to_ascii\(\'䪏\\u06AB\\u07E0\\u0941\。뭕ᢝ\\u17B9\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1356\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("䪏\x{06AB}\x{07E0}\x{0941}。뭕ᢝ\x{17B9}", %p)}, undef, "to_ascii\(\'䪏\\u06AB\\u07E0\\u0941\。뭕ᢝ\\u17B9\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1357\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{1BAB}｡🂉󠁰", %p)}, undef, "to_ascii\(\'\\u1BAB｡🂉\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1358\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BAB}。🂉󠁰", %p)}, undef, "to_ascii\(\'\\u1BAB\。🂉\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1359\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󩎃\x{0AC4}。ς\x{200D}𐹮𑈵", %p)}, undef, "to_ascii\(\'\?\\u0AC4\。ς\\u200D𐹮𑈵\'\)\ throws\ error\ P1\ V6\ B5\ C2\ \[data\/IdnaTest\.txt\:1361\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󩎃\x{0AC4}。Σ\x{200D}𐹮𑈵", %p)}, undef, "to_ascii\(\'\?\\u0AC4\。Σ\\u200D𐹮𑈵\'\)\ throws\ error\ P1\ V6\ B5\ C2\ \[data\/IdnaTest\.txt\:1363\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󩎃\x{0AC4}。σ\x{200D}𐹮𑈵", %p)}, undef, "to_ascii\(\'\?\\u0AC4\。σ\\u200D𐹮𑈵\'\)\ throws\ error\ P1\ V6\ B5\ C2\ \[data\/IdnaTest\.txt\:1365\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𐫀ᡂ𑜫．𑘿", %p)}, undef, "to_ascii\(\'𐫀ᡂ𑜫．𑘿\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1366\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𐫀ᡂ𑜫.𑘿", %p)}, undef, "to_ascii\(\'𐫀ᡂ𑜫\.𑘿\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1367\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󬚶󸋖򖩰-。\x{200C}", %p)}, undef, "to_ascii\(\'\?\?\?\-\。\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:1369\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣．\x{07C2}", %p)}, undef, "to_ascii\(\'𐹣．\\u07C2\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1370\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣.\x{07C2}", %p)}, undef, "to_ascii\(\'𐹣\.\\u07C2\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1371\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-\x{07E1}｡Ↄ", %p)}, undef, "to_ascii\(\'\-\\u07E1｡Ↄ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1372\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{07E1}。Ↄ", %p)}, undef, "to_ascii\(\'\-\\u07E1\。Ↄ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1373\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("-\x{07E1}。ↄ", %p)}, undef, "to_ascii\(\'\-\\u07E1\。ↄ\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1374\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("-\x{07E1}｡ↄ", %p)}, undef, "to_ascii\(\'\-\\u07E1｡ↄ\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1375\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}-︒󠄄。ß哑\x{200C}𐵿", %p)}, undef, "to_ascii\(\'\\u200D\-︒\󠄄\。ß哑\\u200C\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1377\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}-。󠄄。ß哑\x{200C}𐵿", %p)}, undef, "to_ascii\(\'\\u200D\-\。\󠄄\。ß哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1379\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}-。󠄄。SS哑\x{200C}𐵿", %p)}, undef, "to_ascii\(\'\\u200D\-\。\󠄄\。SS哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1381\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}-。󠄄。ss哑\x{200C}𐵿", %p)}, undef, "to_ascii\(\'\\u200D\-\。\󠄄\。ss哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1383\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}-。󠄄。Ss哑\x{200C}𐵿", %p)}, undef, "to_ascii\(\'\\u200D\-\。\󠄄\。Ss哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1385\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}-︒󠄄。SS哑\x{200C}𐵿", %p)}, undef, "to_ascii\(\'\\u200D\-︒\󠄄\。SS哑\\u200C\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1387\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}-︒󠄄。ss哑\x{200C}𐵿", %p)}, undef, "to_ascii\(\'\\u200D\-︒\󠄄\。ss哑\\u200C\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1389\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}-︒󠄄。Ss哑\x{200C}𐵿", %p)}, undef, "to_ascii\(\'\\u200D\-︒\󠄄\。Ss哑\\u200C\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1391\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒．\x{FE2F}𑑂", %p)}, undef, "to_ascii\(\'︒．\\uFE2F\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1392\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒．𑑂\x{FE2F}", %p)}, undef, "to_ascii\(\'︒．\?\\uFE2F\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1393\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("。.𑑂\x{FE2F}", %p)}, undef, "to_ascii\(\'\。\.\?\\uFE2F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1394\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{A92C}。\x{200D}", %p)}, undef, "to_ascii\(\'\\uA92C\。\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1396\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}󠸡｡\x{FCD7}", %p)}, undef, "to_ascii\(\'\\u200D\?｡\\uFCD7\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1398\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}󠸡。\x{0647}\x{062C}", %p)}, undef, "to_ascii\(\'\\u200D\?\。\\u0647\\u062C\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1400\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-Ⴄ𝟢\x{0663}．𑍴ς", %p)}, undef, "to_ascii\(\'\-Ⴄ𝟢\\u0663．𑍴ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1401\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-Ⴄ0\x{0663}.𑍴ς", %p)}, undef, "to_ascii\(\'\-Ⴄ0\\u0663\.𑍴ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1402\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-ⴄ0\x{0663}.𑍴ς", %p)}, undef, "to_ascii\(\'\-ⴄ0\\u0663\.𑍴ς\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1403\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-Ⴄ0\x{0663}.𑍴Σ", %p)}, undef, "to_ascii\(\'\-Ⴄ0\\u0663\.𑍴Σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1404\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-ⴄ0\x{0663}.𑍴σ", %p)}, undef, "to_ascii\(\'\-ⴄ0\\u0663\.𑍴σ\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1405\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-ⴄ𝟢\x{0663}．𑍴ς", %p)}, undef, "to_ascii\(\'\-ⴄ𝟢\\u0663．𑍴ς\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1406\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-Ⴄ𝟢\x{0663}．𑍴Σ", %p)}, undef, "to_ascii\(\'\-Ⴄ𝟢\\u0663．𑍴Σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1407\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-ⴄ𝟢\x{0663}．𑍴σ", %p)}, undef, "to_ascii\(\'\-ⴄ𝟢\\u0663．𑍴σ\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1408\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󦈄。-", %p)}, undef, "to_ascii\(\'\?\。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1409\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⋠𐋮．򶈮\x{0F18}ß≯", %p)}, undef, "to_ascii\(\'\⋠𐋮．\?\\u0F18ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1410\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≼\x{0338}𐋮．򶈮\x{0F18}ß>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338𐋮．\?\\u0F18ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1411\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⋠𐋮.򶈮\x{0F18}ß≯", %p)}, undef, "to_ascii\(\'\⋠𐋮\.\?\\u0F18ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1412\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≼\x{0338}𐋮.򶈮\x{0F18}ß>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338𐋮\.\?\\u0F18ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1413\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≼\x{0338}𐋮.򶈮\x{0F18}SS>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338𐋮\.\?\\u0F18SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1414\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⋠𐋮.򶈮\x{0F18}SS≯", %p)}, undef, "to_ascii\(\'\⋠𐋮\.\?\\u0F18SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1415\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⋠𐋮.򶈮\x{0F18}ss≯", %p)}, undef, "to_ascii\(\'\⋠𐋮\.\?\\u0F18ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1416\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≼\x{0338}𐋮.򶈮\x{0F18}ss>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338𐋮\.\?\\u0F18ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1417\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≼\x{0338}𐋮.򶈮\x{0F18}Ss>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338𐋮\.\?\\u0F18Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1418\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⋠𐋮.򶈮\x{0F18}Ss≯", %p)}, undef, "to_ascii\(\'\⋠𐋮\.\?\\u0F18Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1419\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≼\x{0338}𐋮．򶈮\x{0F18}SS>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338𐋮．\?\\u0F18SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1420\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⋠𐋮．򶈮\x{0F18}SS≯", %p)}, undef, "to_ascii\(\'\⋠𐋮．\?\\u0F18SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1421\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⋠𐋮．򶈮\x{0F18}ss≯", %p)}, undef, "to_ascii\(\'\⋠𐋮．\?\\u0F18ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1422\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≼\x{0338}𐋮．򶈮\x{0F18}ss>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338𐋮．\?\\u0F18ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1423\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≼\x{0338}𐋮．򶈮\x{0F18}Ss>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338𐋮．\?\\u0F18Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1424\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⋠𐋮．򶈮\x{0F18}Ss≯", %p)}, undef, "to_ascii\(\'\⋠𐋮．\?\\u0F18Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1425\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1𐋸\x{0664}｡󠢮\x{FBA4}񷝊", %p)}, undef, "to_ascii\(\'1𐋸\\u0664｡\?\\uFBA4\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1426\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1𐋸\x{0664}。󠢮\x{06C0}񷝊", %p)}, undef, "to_ascii\(\'1𐋸\\u0664\。\?\\u06C0\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1427\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1𐋸\x{0664}。󠢮\x{06D5}\x{0654}񷝊", %p)}, undef, "to_ascii\(\'1𐋸\\u0664\。\?\\u06D5\\u0654\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1428\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("儭-｡𐹴Ⴢ񥳠\x{200C}", %p)}, undef, "to_ascii\(\'儭\-｡𐹴Ⴢ\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1430\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("儭-。𐹴Ⴢ񥳠\x{200C}", %p)}, undef, "to_ascii\(\'儭\-\。𐹴Ⴢ\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1432\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("儭-。𐹴ⴢ񥳠\x{200C}", %p)}, undef, "to_ascii\(\'儭\-\。𐹴ⴢ\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1434\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("儭-｡𐹴ⴢ񥳠\x{200C}", %p)}, undef, "to_ascii\(\'儭\-｡𐹴ⴢ\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1436\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟺𐋷\x{06B9}．𞤭򿍡", %p)}, undef, "to_ascii\(\'𝟺𐋷\\u06B9．\?\?\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1437\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4𐋷\x{06B9}.𞤭򿍡", %p)}, undef, "to_ascii\(\'4𐋷\\u06B9\.\?\?\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1438\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯-ꡋ𑲣.⒈𐹭", %p)}, undef, "to_ascii\(\'\≯\-ꡋ\?\.⒈𐹭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1439\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}-ꡋ𑲣.⒈𐹭", %p)}, undef, "to_ascii\(\'\>\\u0338\-ꡋ\?\.⒈𐹭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1440\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯-ꡋ𑲣.1.𐹭", %p)}, undef, "to_ascii\(\'\≯\-ꡋ\?\.1\.𐹭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1441\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}-ꡋ𑲣.1.𐹭", %p)}, undef, "to_ascii\(\'\>\\u0338\-ꡋ\?\.1\.𐹭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1442\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0330}．󰜱蚀", %p)}, undef, "to_ascii\(\'\\u0330．\?蚀\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1443\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0330}.󰜱蚀", %p)}, undef, "to_ascii\(\'\\u0330\.\?蚀\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1444\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FB39}Ⴘ.𞡼𑇀ß\x{20D7}", %p)}, undef, "to_ascii\(\'\\uFB39Ⴘ\.𞡼𑇀ß\\u20D7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1445\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05D9}\x{05BC}Ⴘ.𞡼𑇀ß\x{20D7}", %p)}, undef, "to_ascii\(\'\\u05D9\\u05BCႸ\.𞡼𑇀ß\\u20D7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1446\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{05D9}\x{05BC}ⴘ.𞡼𑇀ß\x{20D7}", %p)}, undef, "to_ascii\(\'\\u05D9\\u05BCⴘ\.𞡼𑇀ß\\u20D7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1447\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{05D9}\x{05BC}Ⴘ.𞡼𑇀SS\x{20D7}", %p)}, undef, "to_ascii\(\'\\u05D9\\u05BCႸ\.𞡼𑇀SS\\u20D7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1448\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{05D9}\x{05BC}ⴘ.𞡼𑇀ss\x{20D7}", %p)}, undef, "to_ascii\(\'\\u05D9\\u05BCⴘ\.𞡼𑇀ss\\u20D7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1449\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{05D9}\x{05BC}Ⴘ.𞡼𑇀ss\x{20D7}", %p)}, undef, "to_ascii\(\'\\u05D9\\u05BCႸ\.𞡼𑇀ss\\u20D7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1450\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{FB39}ⴘ.𞡼𑇀ß\x{20D7}", %p)}, undef, "to_ascii\(\'\\uFB39ⴘ\.𞡼𑇀ß\\u20D7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1451\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{FB39}Ⴘ.𞡼𑇀SS\x{20D7}", %p)}, undef, "to_ascii\(\'\\uFB39Ⴘ\.𞡼𑇀SS\\u20D7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1452\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{FB39}ⴘ.𞡼𑇀ss\x{20D7}", %p)}, undef, "to_ascii\(\'\\uFB39ⴘ\.𞡼𑇀ss\\u20D7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1453\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{FB39}Ⴘ.𞡼𑇀ss\x{20D7}", %p)}, undef, "to_ascii\(\'\\uFB39Ⴘ\.𞡼𑇀ss\\u20D7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1454\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BA3}𐹰򁱓｡凬", %p)}, undef, "to_ascii\(\'\\u1BA3𐹰\?｡凬\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1455\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BA3}𐹰򁱓。凬", %p)}, undef, "to_ascii\(\'\\u1BA3𐹰\?\。凬\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1456\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🢟🄈\x{200D}ꡎ｡\x{0F84}", %p)}, undef, "to_ascii\(\'🢟🄈\\u200Dꡎ｡\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1458\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🢟7,\x{200D}ꡎ。\x{0F84}", %p)}, undef, "to_ascii\(\'🢟7\,\\u200Dꡎ\。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1460\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ꡔ。\x{1039}ᢇ", %p)}, undef, "to_ascii\(\'ꡔ\。\\u1039ᢇ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1461\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{20EB}≮.𝨖", %p)}, undef, "to_ascii\(\'\\u20EB\≮\.𝨖\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1462\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{20EB}<\x{0338}.𝨖", %p)}, undef, "to_ascii\(\'\\u20EB\<\\u0338\.𝨖\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1463\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴢ≯褦．ᠪ\x{07EA}Ⴞ\x{0767}", %p)}, undef, "to_ascii\(\'Ⴢ\≯褦．ᠪ\\u07EAႾ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1464\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴢ>\x{0338}褦．ᠪ\x{07EA}Ⴞ\x{0767}", %p)}, undef, "to_ascii\(\'Ⴢ\>\\u0338褦．ᠪ\\u07EAႾ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1465\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴢ≯褦.ᠪ\x{07EA}Ⴞ\x{0767}", %p)}, undef, "to_ascii\(\'Ⴢ\≯褦\.ᠪ\\u07EAႾ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1466\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴢ>\x{0338}褦.ᠪ\x{07EA}Ⴞ\x{0767}", %p)}, undef, "to_ascii\(\'Ⴢ\>\\u0338褦\.ᠪ\\u07EAႾ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1467\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴢ>\x{0338}褦.ᠪ\x{07EA}ⴞ\x{0767}", %p)}, undef, "to_ascii\(\'ⴢ\>\\u0338褦\.ᠪ\\u07EAⴞ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1468\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴢ≯褦.ᠪ\x{07EA}ⴞ\x{0767}", %p)}, undef, "to_ascii\(\'ⴢ\≯褦\.ᠪ\\u07EAⴞ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1469\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴢ>\x{0338}褦．ᠪ\x{07EA}ⴞ\x{0767}", %p)}, undef, "to_ascii\(\'ⴢ\>\\u0338褦．ᠪ\\u07EAⴞ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1470\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴢ≯褦．ᠪ\x{07EA}ⴞ\x{0767}", %p)}, undef, "to_ascii\(\'ⴢ\≯褦．ᠪ\\u07EAⴞ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1471\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򊉆󠆒\x{200C}\x{A953}。𞤙\x{067B}ꡘ", %p)}, undef, "to_ascii\(\'\?\󠆒\\u200C\\uA953\。\?\\u067Bꡘ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1473\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.≯", %p)}, undef, "to_ascii\(\'\\u200C\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1475\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1477\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𰅧񣩠-．\x{ABED}-悜", %p)}, undef, "to_ascii\(\'\?\?\-．\\uABED\-悜\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1478\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𰅧񣩠-.\x{ABED}-悜", %p)}, undef, "to_ascii\(\'\?\?\-\.\\uABED\-悜\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1479\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡉ𶓧⬞ᢜ.-\x{200D}𞣑\x{202E}", %p)}, undef, "to_ascii\(\'ᡉ\?\⬞ᢜ\.\-\\u200D𞣑\\u202E\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:1481\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒐\x{200C}衃Ⴝ.\x{0682}Ⴔ", %p)}, undef, "to_ascii\(\'⒐\\u200C衃Ⴝ\.\\u0682Ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1483\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("9.\x{200C}衃Ⴝ.\x{0682}Ⴔ", %p)}, undef, "to_ascii\(\'9\.\\u200C衃Ⴝ\.\\u0682Ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1485\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("9.\x{200C}衃ⴝ.\x{0682}ⴔ", %p)}, undef, "to_ascii\(\'9\.\\u200C衃ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1487\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("9.\x{200C}衃Ⴝ.\x{0682}ⴔ", %p)}, undef, "to_ascii\(\'9\.\\u200C衃Ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1489\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒐\x{200C}衃ⴝ.\x{0682}ⴔ", %p)}, undef, "to_ascii\(\'⒐\\u200C衃ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1491\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒐\x{200C}衃Ⴝ.\x{0682}ⴔ", %p)}, undef, "to_ascii\(\'⒐\\u200C衃Ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1493\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{07E1}\x{200C}。--⸬", %p)}, undef, "to_ascii\(\'\\u07E1\\u200C\。\-\-\⸬\'\)\ throws\ error\ V3\ B3\ C1\ \[data\/IdnaTest\.txt\:1495\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞥓．\x{0718}", %p)}, "xn--of6h.xn--inb", "to_ascii\(\'\?．\\u0718\'\)\ \[data\/IdnaTest\.txt\:1496\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞥓.\x{0718}", %p)}, "xn--of6h.xn--inb", "to_ascii\(\'\?\.\\u0718\'\)\ \[data\/IdnaTest\.txt\:1497\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--of6h.xn--inb", %p)}, "xn--of6h.xn--inb", "to_ascii\(\'xn\-\-of6h\.xn\-\-inb\'\)\ \[data\/IdnaTest\.txt\:1498\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󠄽-．-\x{0DCA}", %p)}, undef, "to_ascii\(\'\󠄽\-．\-\\u0DCA\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1499\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄽-.-\x{0DCA}", %p)}, undef, "to_ascii\(\'\󠄽\-\.\-\\u0DCA\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1500\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("󠇝\x{075B}-.\x{1927}", %p)}, undef, "to_ascii\(\'\󠇝\\u075B\-\.\\u1927\'\)\ throws\ error\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1501\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞤴󠆹⦉𐹺.\x{A806}⒌󘤸", %p)}, undef, "to_ascii\(\'\?\󠆹\⦉𐹺\.\\uA806⒌\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1502\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤴󠆹⦉𐹺.\x{A806}5.󘤸", %p)}, undef, "to_ascii\(\'\?\󠆹\⦉𐹺\.\\uA8065\.\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1503\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("󠄸₀。𑖿\x{200C}𐦂\x{200D}", %p)}, undef, "to_ascii\(\'\󠄸₀\。𑖿\\u200C𐦂\\u200D\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1505\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("󠄸0。𑖿\x{200C}𐦂\x{200D}", %p)}, undef, "to_ascii\(\'\󠄸0\。𑖿\\u200C𐦂\\u200D\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1507\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴚ𐋸󠄄。𝟝ퟶ\x{103A}", %p)}, undef, "to_ascii\(\'Ⴚ𐋸\󠄄\。𝟝ퟶ\\u103A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1508\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴚ𐋸󠄄。5ퟶ\x{103A}", %p)}, undef, "to_ascii\(\'Ⴚ𐋸\󠄄\。5ퟶ\\u103A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1509\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ⴚ𐋸󠄄。5ퟶ\x{103A}", %p)}, "xn--ilj2659d.xn--5-dug9054m", "to_ascii\(\'ⴚ𐋸\󠄄\。5ퟶ\\u103A\'\)\ \[data\/IdnaTest\.txt\:1510\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--ilj2659d.xn--5-dug9054m", %p)}, "xn--ilj2659d.xn--5-dug9054m", "to_ascii\(\'xn\-\-ilj2659d\.xn\-\-5\-dug9054m\'\)\ \[data\/IdnaTest\.txt\:1511\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ⴚ𐋸.5ퟶ\x{103A}", %p)}, "xn--ilj2659d.xn--5-dug9054m", "to_ascii\(\'ⴚ𐋸\.5ퟶ\\u103A\'\)\ \[data\/IdnaTest\.txt\:1512\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴚ𐋸.5ퟶ\x{103A}", %p)}, undef, "to_ascii\(\'Ⴚ𐋸\.5ퟶ\\u103A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1513\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ⴚ𐋸󠄄。𝟝ퟶ\x{103A}", %p)}, "xn--ilj2659d.xn--5-dug9054m", "to_ascii\(\'ⴚ𐋸\󠄄\。𝟝ퟶ\\u103A\'\)\ \[data\/IdnaTest\.txt\:1514\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}-ᠹ﹪.\x{1DE1}\x{1922}", %p)}, undef, "to_ascii\(\'\\u200D\-ᠹ﹪\.\\u1DE1\\u1922\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1516\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}-ᠹ%.\x{1DE1}\x{1922}", %p)}, undef, "to_ascii\(\'\\u200D\-ᠹ\%\.\\u1DE1\\u1922\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1518\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠.ᠿ", %p)}, undef, "to_ascii\(\'\≠\.ᠿ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1519\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}.ᠿ", %p)}, undef, "to_ascii\(\'\=\\u0338\.ᠿ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1520\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0723}\x{05A3}｡㌪", %p)}, "xn--ucb18e.xn--eck4c5a", "to_ascii\(\'\\u0723\\u05A3｡㌪\'\)\ \[data\/IdnaTest\.txt\:1521\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0723}\x{05A3}。ハイツ", %p)}, "xn--ucb18e.xn--eck4c5a", "to_ascii\(\'\\u0723\\u05A3\。ハイツ\'\)\ \[data\/IdnaTest\.txt\:1522\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--ucb18e.xn--eck4c5a", %p)}, "xn--ucb18e.xn--eck4c5a", "to_ascii\(\'xn\-\-ucb18e\.xn\-\-eck4c5a\'\)\ \[data\/IdnaTest\.txt\:1523\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0723}\x{05A3}.ハイツ", %p)}, "xn--ucb18e.xn--eck4c5a", "to_ascii\(\'\\u0723\\u05A3\.ハイツ\'\)\ \[data\/IdnaTest\.txt\:1524\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞷥󠆀≮.\x{2D7F}-", %p)}, undef, "to_ascii\(\'\?\󠆀\≮\.\\u2D7F\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1525\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞷥󠆀<\x{0338}.\x{2D7F}-", %p)}, undef, "to_ascii\(\'\?\󠆀\<\\u0338\.\\u2D7F\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1526\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("₆榎򦖎\x{0D4D}｡𞤅\x{06ED}\x{FC5A}󠮨", %p)}, undef, "to_ascii\(\'₆榎\?\\u0D4D｡\?\\u06ED\\uFC5A\?\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:1527\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("6榎򦖎\x{0D4D}。𞤅\x{06ED}\x{064A}\x{064A}󠮨", %p)}, undef, "to_ascii\(\'6榎\?\\u0D4D\。\?\\u06ED\\u064A\\u064A\?\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:1528\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𣩫．򌑲", %p)}, undef, "to_ascii\(\'𣩫．\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1529\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𣩫.򌑲", %p)}, undef, "to_ascii\(\'𣩫\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1530\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}︒｡\x{06B9}\x{200C}", %p)}, undef, "to_ascii\(\'\\u200D︒｡\\u06B9\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B3\ C1\ \[data\/IdnaTest\.txt\:1532\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。。\x{06B9}\x{200C}", %p)}, undef, "to_ascii\(\'\\u200D\。\。\\u06B9\\u200C\'\)\ throws\ error\ C2\ A4_2\ B3\ C1\ \[data\/IdnaTest\.txt\:1534\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--skb", %p)}, "xn--skb", "to_ascii\(\'xn\-\-skb\'\)\ \[data\/IdnaTest\.txt\:1535\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06B9}", %p)}, "xn--skb", "to_ascii\(\'\\u06B9\'\)\ \[data\/IdnaTest\.txt\:1536\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹦\x{200C}𐹶。\x{206D}", %p)}, undef, "to_ascii\(\'𐹦\\u200C𐹶\。\\u206D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1538\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("\x{0C4D}𝨾\x{05A9}𝟭。-𑜨", %p)}, undef, "to_ascii\(\'\\u0C4D𝨾\\u05A9𝟭\。\-𑜨\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1539\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("\x{0C4D}𝨾\x{05A9}1。-𑜨", %p)}, undef, "to_ascii\(\'\\u0C4D𝨾\\u05A91\。\-𑜨\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1540\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򣿈。뙏", %p)}, undef, "to_ascii\(\'\?\。뙏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1541\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򣿈。뙏", %p)}, undef, "to_ascii\(\'\?\。뙏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1542\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񕨚󠄌󑽀ᡀ.\x{08B6}", %p)}, undef, "to_ascii\(\'\?\󠄌\?ᡀ\.\\u08B6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1543\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}｡񅁛", %p)}, undef, "to_ascii\(\'\\u200D｡\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1545\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。񅁛", %p)}, undef, "to_ascii\(\'\\u200D\。\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1547\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{084B}皥．-", %p)}, undef, "to_ascii\(\'\\u084B皥．\-\'\)\ throws\ error\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:1548\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{084B}皥.-", %p)}, undef, "to_ascii\(\'\\u084B皥\.\-\'\)\ throws\ error\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:1549\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐣸\x{0315}𐮇．⒈ꡦ", %p)}, undef, "to_ascii\(\'\?\\u0315𐮇．⒈ꡦ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1550\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐣸\x{0315}𐮇.1.ꡦ", %p)}, undef, "to_ascii\(\'\?\\u0315𐮇\.1\.ꡦ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1551\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}ā𐹦", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0ā𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1553\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}a\x{0304}𐹦", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0a\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1555\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}ā𐹦", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\u1160ā𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1557\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}a\x{0304}𐹦", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\u1160a\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1559\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}a\x{0304}𐹦", %p)}, undef, "to_ascii\(\'ⴛ\\u200C\\u05A2\\u200D\。\\u1160a\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1561\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}ā𐹦", %p)}, undef, "to_ascii\(\'ⴛ\\u200C\\u05A2\\u200D\。\\u1160ā𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1563\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}Ā𐹦", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\u1160Ā𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1565\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}A\x{0304}𐹦", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\u1160A\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1567\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}a\x{0304}𐹦", %p)}, undef, "to_ascii\(\'ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0a\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1569\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}ā𐹦", %p)}, undef, "to_ascii\(\'ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0ā𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1571\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}Ā𐹦", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0Ā𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1573\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}A\x{0304}𐹦", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0A\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1575\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FFF9}\x{200C}｡曳⾑𐋰≯", %p)}, undef, "to_ascii\(\'\\uFFF9\\u200C｡曳⾑𐋰\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1577\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FFF9}\x{200C}｡曳⾑𐋰>\x{0338}", %p)}, undef, "to_ascii\(\'\\uFFF9\\u200C｡曳⾑𐋰\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1579\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FFF9}\x{200C}。曳襾𐋰≯", %p)}, undef, "to_ascii\(\'\\uFFF9\\u200C\。曳襾𐋰\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1581\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FFF9}\x{200C}。曳襾𐋰>\x{0338}", %p)}, undef, "to_ascii\(\'\\uFFF9\\u200C\。曳襾𐋰\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1583\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯⒈。ß", %p)}, undef, "to_ascii\(\'\≯⒈\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1584\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}⒈。ß", %p)}, undef, "to_ascii\(\'\>\\u0338⒈\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1585\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯1.。ß", %p)}, undef, "to_ascii\(\'\≯1\.\。ß\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1586\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}1.。ß", %p)}, undef, "to_ascii\(\'\>\\u03381\.\。ß\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1587\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}1.。SS", %p)}, undef, "to_ascii\(\'\>\\u03381\.\。SS\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1588\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯1.。SS", %p)}, undef, "to_ascii\(\'\≯1\.\。SS\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1589\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}⒈。SS", %p)}, undef, "to_ascii\(\'\>\\u0338⒈\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1590\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯⒈。SS", %p)}, undef, "to_ascii\(\'\≯⒈\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1591\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0667}\x{200D}\x{FB96}｡\x{07DA}-₆Ⴙ", %p)}, undef, "to_ascii\(\'\\u0667\\u200D\\uFB96｡\\u07DA\-₆Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1593\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0667}\x{200D}\x{06B3}。\x{07DA}-6Ⴙ", %p)}, undef, "to_ascii\(\'\\u0667\\u200D\\u06B3\。\\u07DA\-6Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1595\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{0667}\x{200D}\x{06B3}。\x{07DA}-6ⴙ", %p)}, undef, "to_ascii\(\'\\u0667\\u200D\\u06B3\。\\u07DA\-6ⴙ\'\)\ throws\ error\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1597\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{0667}\x{200D}\x{FB96}｡\x{07DA}-₆ⴙ", %p)}, undef, "to_ascii\(\'\\u0667\\u200D\\uFB96｡\\u07DA\-₆ⴙ\'\)\ throws\ error\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1599\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}｡≠", %p)}, undef, "to_ascii\(\'\\u200C｡\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1601\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}｡=\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C｡\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1603\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}。≠", %p)}, undef, "to_ascii\(\'\\u200C\。\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1605\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}。=\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\。\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1607\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𑖿𝨔.ᡟ𑖿\x{1B42}\x{200C}", %p)}, undef, "to_ascii\(\'𑖿𝨔\.ᡟ𑖿\\u1B42\\u200C\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:1609\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򔣳\x{200D}򑝱.𖬴Ↄ≠-", %p)}, undef, "to_ascii\(\'\?\\u200D\?\.𖬴Ↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1611\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔣳\x{200D}򑝱.𖬴Ↄ=\x{0338}-", %p)}, undef, "to_ascii\(\'\?\\u200D\?\.𖬴Ↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1613\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔣳\x{200D}򑝱.𖬴ↄ=\x{0338}-", %p)}, undef, "to_ascii\(\'\?\\u200D\?\.𖬴ↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1615\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򔣳\x{200D}򑝱.𖬴ↄ≠-", %p)}, undef, "to_ascii\(\'\?\\u200D\?\.𖬴ↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1617\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07E2}ς\x{200D}𝟳。蔑򛖢", %p)}, undef, "to_ascii\(\'\\u07E2ς\\u200D𝟳\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1619\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07E2}ς\x{200D}7。蔑򛖢", %p)}, undef, "to_ascii\(\'\\u07E2ς\\u200D7\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1621\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07E2}Σ\x{200D}7。蔑򛖢", %p)}, undef, "to_ascii\(\'\\u07E2Σ\\u200D7\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1623\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07E2}σ\x{200D}7。蔑򛖢", %p)}, undef, "to_ascii\(\'\\u07E2σ\\u200D7\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1625\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07E2}Σ\x{200D}𝟳。蔑򛖢", %p)}, undef, "to_ascii\(\'\\u07E2Σ\\u200D𝟳\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1627\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07E2}σ\x{200D}𝟳。蔑򛖢", %p)}, undef, "to_ascii\(\'\\u07E2σ\\u200D𝟳\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1629\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹰.\x{0600}", %p)}, undef, "to_ascii\(\'𐹰\.\\u0600\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1630\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{08A8}.𱠖", %p)}, undef, "to_ascii\(\'\-\\u08A8\.\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1631\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯𞱸󠇀。誆⒈", %p)}, undef, "to_ascii\(\'\≯\?\󠇀\。誆⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1632\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}𞱸󠇀。誆⒈", %p)}, undef, "to_ascii\(\'\>\\u0338\?\󠇀\。誆⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1633\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯𞱸󠇀。誆1.", %p)}, undef, "to_ascii\(\'\≯\?\󠇀\。誆1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1634\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}𞱸󠇀。誆1.", %p)}, undef, "to_ascii\(\'\>\\u0338\?\󠇀\。誆1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1635\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0616}𞥙䐊\x{0650}．︒\x{0645}↺\x{069C}", %p)}, undef, "to_ascii\(\'\\u0616\?䐊\\u0650．︒\\u0645\↺\\u069C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1636\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{0616}𞥙䐊\x{0650}.。\x{0645}↺\x{069C}", %p)}, undef, "to_ascii\(\'\\u0616\?䐊\\u0650\.\。\\u0645\↺\\u069C\'\)\ throws\ error\ V5\ B1\ A4_2\ \[data\/IdnaTest\.txt\:1637\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("퀬-\x{DF7E}񶳒.\x{200C}\x{0AC5}󩸤۴", %p)}, undef, "to_ascii\(\'퀬\-\\uDF7E\?\.\\u200C\\u0AC5\?۴\'\)\ throws\ error\ P1\ V6\ C1\ A3\ \[data\/IdnaTest\.txt\:1639\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("퀬-\x{DF7E}񶳒.\x{200C}\x{0AC5}󩸤۴", %p)}, undef, "to_ascii\(\'퀬\-\\uDF7E\?\.\\u200C\\u0AC5\?۴\'\)\ throws\ error\ P1\ V6\ C1\ A3\ \[data\/IdnaTest\.txt\:1641\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴌ.𐹾︒𑁿𞾄", %p)}, undef, "to_ascii\(\'Ⴌ\.𐹾︒𑁿\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1642\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴌ.𐹾。𑁿𞾄", %p)}, undef, "to_ascii\(\'Ⴌ\.𐹾\。𑁿\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1643\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴌ.𐹾。𑁿𞾄", %p)}, undef, "to_ascii\(\'ⴌ\.𐹾\。𑁿\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1644\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴌ.𐹾︒𑁿𞾄", %p)}, undef, "to_ascii\(\'ⴌ\.𐹾︒𑁿\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1645\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񧞿╏。𞩕󠁾", %p)}, undef, "to_ascii\(\'\?\╏\。\?\?\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:1646\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}┮󠇐．\x{0C00}\x{0C4D}\x{1734}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D\┮\󠇐．\\u0C00\\u0C4D\\u1734\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1648\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}┮󠇐.\x{0C00}\x{0C4D}\x{1734}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D\┮\󠇐\.\\u0C00\\u0C4D\\u1734\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1650\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򹚪｡🄂", %p)}, undef, "to_ascii\(\'\?｡🄂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1651\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򹚪。1,", %p)}, undef, "to_ascii\(\'\?\。1\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1652\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑍨刍.🛦", %p)}, undef, "to_ascii\(\'𑍨刍\.🛦\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1653\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󠌏3｡\x{1BF1}𝟒", %p)}, undef, "to_ascii\(\'\?3｡\\u1BF1𝟒\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1654\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠌏3。\x{1BF1}4", %p)}, undef, "to_ascii\(\'\?3\。\\u1BF14\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1655\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0687}６Ⴔ辘.\x{FD22}\x{0687}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0687６Ⴔ辘\.\\uFD22\\u0687\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1657\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0687}6Ⴔ辘.\x{0635}\x{064A}\x{0687}\x{200C}", %p)}, undef, "to_ascii\(\'\\u06876Ⴔ辘\.\\u0635\\u064A\\u0687\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1659\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0687}6ⴔ辘.\x{0635}\x{064A}\x{0687}\x{200C}", %p)}, undef, "to_ascii\(\'\\u06876ⴔ辘\.\\u0635\\u064A\\u0687\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1661\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0687}６ⴔ辘.\x{FD22}\x{0687}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0687６ⴔ辘\.\\uFD22\\u0687\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1663\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󠄍.𐮭𞰬򻫞۹", %p)}, undef, "to_ascii\(\'\󠄍\.𐮭\?\?۹\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1664\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A87D}≯．򻲀򒳄", %p)}, undef, "to_ascii\(\'\\uA87D\≯．\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1665\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A87D}>\x{0338}．򻲀򒳄", %p)}, undef, "to_ascii\(\'\\uA87D\>\\u0338．\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1666\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A87D}≯.򻲀򒳄", %p)}, undef, "to_ascii\(\'\\uA87D\≯\.\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1667\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A87D}>\x{0338}.򻲀򒳄", %p)}, undef, "to_ascii\(\'\\uA87D\>\\u0338\.\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1668\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ςო\x{067B}.ς\x{0714}", %p)}, undef, "to_ascii\(\'ςო\\u067B\.ς\\u0714\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1669\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σო\x{067B}.Σ\x{0714}", %p)}, undef, "to_ascii\(\'Σო\\u067B\.Σ\\u0714\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1670\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σო\x{067B}.σ\x{0714}", %p)}, undef, "to_ascii\(\'σო\\u067B\.σ\\u0714\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1671\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σო\x{067B}.σ\x{0714}", %p)}, undef, "to_ascii\(\'Σო\\u067B\.σ\\u0714\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1672\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σო\x{067B}.ς\x{0714}", %p)}, undef, "to_ascii\(\'Σო\\u067B\.ς\\u0714\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1673\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σო\x{067B}.ς\x{0714}", %p)}, undef, "to_ascii\(\'σო\\u067B\.ς\\u0714\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1674\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򄖚\x{0748}𠄯\x{075F}｡󠛩", %p)}, undef, "to_ascii\(\'\?\\u0748𠄯\\u075F｡\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1675\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򄖚\x{0748}𠄯\x{075F}。󠛩", %p)}, undef, "to_ascii\(\'\?\\u0748𠄯\\u075F\。\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1676\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠳛．\x{200D}䤫≠Ⴞ", %p)}, undef, "to_ascii\(\'\?．\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1678\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠳛．\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_ascii\(\'\?．\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1680\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠳛.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_ascii\(\'\?\.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1682\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠳛.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_ascii\(\'\?\.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1684\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠳛.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_ascii\(\'\?\.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1686\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠳛.\x{200D}䤫≠ⴞ", %p)}, undef, "to_ascii\(\'\?\.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1688\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠳛．\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_ascii\(\'\?．\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1690\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠳛．\x{200D}䤫≠ⴞ", %p)}, undef, "to_ascii\(\'\?．\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1692\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐽘𑈵．𐹣🕥", %p)}, undef, "to_ascii\(\'\?𑈵．𐹣🕥\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1693\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐽘𑈵.𐹣🕥", %p)}, undef, "to_ascii\(\'\?𑈵\.𐹣🕥\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1694\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒊⒈𑁄。9", %p)}, undef, "to_ascii\(\'⒊⒈𑁄\。9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1695\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("3.1.𑁄。9", %p)}, undef, "to_ascii\(\'3\.1\.𑁄\。9\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1696\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-\x{200C}\x{2DF1}≮．𐹱򭏴4₉", %p)}, undef, "to_ascii\(\'\-\\u200C\\u2DF1\≮．𐹱\?4₉\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1698\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{200C}\x{2DF1}<\x{0338}．𐹱򭏴4₉", %p)}, undef, "to_ascii\(\'\-\\u200C\\u2DF1\<\\u0338．𐹱\?4₉\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1700\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{200C}\x{2DF1}≮.𐹱򭏴49", %p)}, undef, "to_ascii\(\'\-\\u200C\\u2DF1\≮\.𐹱\?49\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1702\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{200C}\x{2DF1}<\x{0338}.𐹱򭏴49", %p)}, undef, "to_ascii\(\'\-\\u200C\\u2DF1\<\\u0338\.𐹱\?49\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1704\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-≯딾｡\x{0847}", %p)}, undef, "to_ascii\(\'\-\≯딾｡\\u0847\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1705\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("->\x{0338}딾｡\x{0847}", %p)}, undef, "to_ascii\(\'\-\>\\u0338딾｡\\u0847\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1706\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-≯딾。\x{0847}", %p)}, undef, "to_ascii\(\'\-\≯딾\。\\u0847\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1707\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("->\x{0338}딾。\x{0847}", %p)}, undef, "to_ascii\(\'\-\>\\u0338딾\。\\u0847\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1708\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑙢⒈𐹠-｡󠗐\x{200C}", %p)}, undef, "to_ascii\(\'\?⒈𐹠\-｡\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1710\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑙢1.𐹠-。󠗐\x{200C}", %p)}, undef, "to_ascii\(\'\?1\.𐹠\-\。\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1712\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{034A}．𐨎", %p)}, undef, "to_ascii\(\'\\u034A．𐨎\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1713\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{034A}.𐨎", %p)}, undef, "to_ascii\(\'\\u034A\.𐨎\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1714\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("훉≮｡\x{0E34}", %p)}, undef, "to_ascii\(\'훉\≮｡\\u0E34\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1715\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("훉<\x{0338}｡\x{0E34}", %p)}, undef, "to_ascii\(\'훉\<\\u0338｡\\u0E34\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1716\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("훉≮。\x{0E34}", %p)}, undef, "to_ascii\(\'훉\≮\。\\u0E34\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1717\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("훉<\x{0338}。\x{0E34}", %p)}, undef, "to_ascii\(\'훉\<\\u0338\。\\u0E34\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1718\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2DF7}򞣉🃘．𴈇𝟸\x{0659}𞤯", %p)}, undef, "to_ascii\(\'\\u2DF7\?🃘．\?𝟸\\u0659\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1719\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2DF7}򞣉🃘.𴈇2\x{0659}𞤯", %p)}, undef, "to_ascii\(\'\\u2DF7\?🃘\.\?2\\u0659\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1720\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󗇩ßᢞ\x{200C}。\x{0660}𞷻\x{FCD4}-", %p)}, undef, "to_ascii\(\'\?ßᢞ\\u200C\。\\u0660\?\\uFCD4\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1722\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󗇩ßᢞ\x{200C}。\x{0660}𞷻\x{0646}\x{062E}-", %p)}, undef, "to_ascii\(\'\?ßᢞ\\u200C\。\\u0660\?\\u0646\\u062E\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1724\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󗇩SSᢞ\x{200C}。\x{0660}𞷻\x{0646}\x{062E}-", %p)}, undef, "to_ascii\(\'\?SSᢞ\\u200C\。\\u0660\?\\u0646\\u062E\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1726\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󗇩ssᢞ\x{200C}。\x{0660}𞷻\x{0646}\x{062E}-", %p)}, undef, "to_ascii\(\'\?ssᢞ\\u200C\。\\u0660\?\\u0646\\u062E\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1728\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󗇩Ssᢞ\x{200C}。\x{0660}𞷻\x{0646}\x{062E}-", %p)}, undef, "to_ascii\(\'\?Ssᢞ\\u200C\。\\u0660\?\\u0646\\u062E\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1730\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󗇩SSᢞ\x{200C}。\x{0660}𞷻\x{FCD4}-", %p)}, undef, "to_ascii\(\'\?SSᢞ\\u200C\。\\u0660\?\\uFCD4\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1732\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󗇩ssᢞ\x{200C}。\x{0660}𞷻\x{FCD4}-", %p)}, undef, "to_ascii\(\'\?ssᢞ\\u200C\。\\u0660\?\\uFCD4\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1734\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󗇩Ssᢞ\x{200C}。\x{0660}𞷻\x{FCD4}-", %p)}, undef, "to_ascii\(\'\?Ssᢞ\\u200C\。\\u0660\?\\uFCD4\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1736\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡆ。Ↄ\x{0FB5}놮-", %p)}, undef, "to_ascii\(\'ꡆ\。Ↄ\\u0FB5놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1737\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡆ。Ↄ\x{0FB5}놮-", %p)}, undef, "to_ascii\(\'ꡆ\。Ↄ\\u0FB5놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1738\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ꡆ。ↄ\x{0FB5}놮-", %p)}, undef, "to_ascii\(\'ꡆ\。ↄ\\u0FB5놮\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1739\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ꡆ。ↄ\x{0FB5}놮-", %p)}, undef, "to_ascii\(\'ꡆ\。ↄ\\u0FB5놮\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1740\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{FDAD}\x{200D}.񥰌\x{06A9}", %p)}, undef, "to_ascii\(\'\\uFDAD\\u200D\.\?\\u06A9\'\)\ throws\ error\ P1\ V6\ B3\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1742\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0644}\x{0645}\x{064A}\x{200D}.񥰌\x{06A9}", %p)}, undef, "to_ascii\(\'\\u0644\\u0645\\u064A\\u200D\.\?\\u06A9\'\)\ throws\ error\ P1\ V6\ B3\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1744\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴜ\x{1C2F}𐳒≯。\x{06E0}\x{1732}\x{0FBA}", %p)}, undef, "to_ascii\(\'Ⴜ\\u1C2F𐳒\≯\。\\u06E0\\u1732\\u0FBA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1745\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴜ\x{1C2F}𐳒>\x{0338}。\x{06E0}\x{1732}\x{0FBA}", %p)}, undef, "to_ascii\(\'Ⴜ\\u1C2F𐳒\>\\u0338\。\\u06E0\\u1732\\u0FBA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1746\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴜ\x{1C2F}𐳒>\x{0338}。\x{06E0}\x{1732}\x{0FBA}", %p)}, undef, "to_ascii\(\'ⴜ\\u1C2F𐳒\>\\u0338\。\\u06E0\\u1732\\u0FBA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1747\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴜ\x{1C2F}𐳒≯。\x{06E0}\x{1732}\x{0FBA}", %p)}, undef, "to_ascii\(\'ⴜ\\u1C2F𐳒\≯\。\\u06E0\\u1732\\u0FBA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1748\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴜ\x{1C2F}𐲒≯。\x{06E0}\x{1732}\x{0FBA}", %p)}, undef, "to_ascii\(\'Ⴜ\\u1C2F𐲒\≯\。\\u06E0\\u1732\\u0FBA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1749\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴜ\x{1C2F}𐲒>\x{0338}。\x{06E0}\x{1732}\x{0FBA}", %p)}, undef, "to_ascii\(\'Ⴜ\\u1C2F𐲒\>\\u0338\。\\u06E0\\u1732\\u0FBA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1750\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋵。\x{FCEC}", %p)}, "xn--p97c.xn--fhbe", "to_ascii\(\'𐋵\。\\uFCEC\'\)\ \[data\/IdnaTest\.txt\:1751\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋵。\x{0643}\x{0645}", %p)}, "xn--p97c.xn--fhbe", "to_ascii\(\'𐋵\。\\u0643\\u0645\'\)\ \[data\/IdnaTest\.txt\:1752\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--p97c.xn--fhbe", %p)}, "xn--p97c.xn--fhbe", "to_ascii\(\'xn\-\-p97c\.xn\-\-fhbe\'\)\ \[data\/IdnaTest\.txt\:1753\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋵.\x{0643}\x{0645}", %p)}, "xn--p97c.xn--fhbe", "to_ascii\(\'𐋵\.\\u0643\\u0645\'\)\ \[data\/IdnaTest\.txt\:1754\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("≮𝅶．񱲁\x{AAEC}\x{2E48}󰥭", %p)}, undef, "to_ascii\(\'\≮\?．\?\\uAAEC\\u2E48\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1755\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𝅶．񱲁\x{AAEC}\x{2E48}󰥭", %p)}, undef, "to_ascii\(\'\<\\u0338\?．\?\\uAAEC\\u2E48\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1756\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮𝅶.񱲁\x{AAEC}\x{2E48}󰥭", %p)}, undef, "to_ascii\(\'\≮\?\.\?\\uAAEC\\u2E48\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1757\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𝅶.񱲁\x{AAEC}\x{2E48}󰥭", %p)}, undef, "to_ascii\(\'\<\\u0338\?\.\?\\uAAEC\\u2E48\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1758\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2DF0}\x{0358}ᢕ．\x{0361}𐹷󠴍", %p)}, undef, "to_ascii\(\'\\u2DF0\\u0358ᢕ．\\u0361𐹷\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1759\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2DF0}\x{0358}ᢕ.\x{0361}𐹷󠴍", %p)}, undef, "to_ascii\(\'\\u2DF0\\u0358ᢕ\.\\u0361𐹷\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1760\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{FD79}ᡐ\x{200C}\x{06AD}．𑋪\x{05C7}", %p)}, undef, "to_ascii\(\'\\uFD79ᡐ\\u200C\\u06AD．𑋪\\u05C7\'\)\ throws\ error\ V5\ B2\ \[data\/IdnaTest\.txt\:1761\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{063A}\x{0645}\x{0645}ᡐ\x{200C}\x{06AD}.𑋪\x{05C7}", %p)}, undef, "to_ascii\(\'\\u063A\\u0645\\u0645ᡐ\\u200C\\u06AD\.𑋪\\u05C7\'\)\ throws\ error\ V5\ B2\ \[data\/IdnaTest\.txt\:1762\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𑑂｡\x{200D}󥞀🞕򥁔", %p)}, undef, "to_ascii\(\'\?｡\\u200D\?🞕\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1764\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑑂。\x{200D}󥞀🞕򥁔", %p)}, undef, "to_ascii\(\'\?\。\\u200D\?🞕\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1766\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{05E9}。⒚", %p)}, undef, "to_ascii\(\'\-\\u05E9\。⒚\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1767\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{05E9}。19.", %p)}, undef, "to_ascii\(\'\-\\u05E9\。19\.\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1768\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("􊾻\x{0845}\x{200C}｡ᢎ\x{200D}", %p)}, undef, "to_ascii\(\'\?\\u0845\\u200C｡ᢎ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ C2\ \[data\/IdnaTest\.txt\:1770\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("􊾻\x{0845}\x{200C}。ᢎ\x{200D}", %p)}, undef, "to_ascii\(\'\?\\u0845\\u200C\。ᢎ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ C2\ \[data\/IdnaTest\.txt\:1772\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß\x{09C1}\x{1DED}。\x{0620}8₅", %p)}, "xn--zca266bwrr.xn--85-psd", "to_ascii\(\'ß\\u09C1\\u1DED\。\\u06208₅\'\)\ \[data\/IdnaTest\.txt\:1774\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß\x{09C1}\x{1DED}。\x{0620}85", %p)}, "xn--zca266bwrr.xn--85-psd", "to_ascii\(\'ß\\u09C1\\u1DED\。\\u062085\'\)\ \[data\/IdnaTest\.txt\:1776\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("SS\x{09C1}\x{1DED}。\x{0620}85", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'SS\\u09C1\\u1DED\。\\u062085\'\)\ \[data\/IdnaTest\.txt\:1777\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss\x{09C1}\x{1DED}。\x{0620}85", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'ss\\u09C1\\u1DED\。\\u062085\'\)\ \[data\/IdnaTest\.txt\:1778\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Ss\x{09C1}\x{1DED}。\x{0620}85", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'Ss\\u09C1\\u1DED\。\\u062085\'\)\ \[data\/IdnaTest\.txt\:1779\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--ss-e2f077r.xn--85-psd", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'xn\-\-ss\-e2f077r\.xn\-\-85\-psd\'\)\ \[data\/IdnaTest\.txt\:1780\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss\x{09C1}\x{1DED}.\x{0620}85", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'ss\\u09C1\\u1DED\.\\u062085\'\)\ \[data\/IdnaTest\.txt\:1781\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("SS\x{09C1}\x{1DED}.\x{0620}85", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'SS\\u09C1\\u1DED\.\\u062085\'\)\ \[data\/IdnaTest\.txt\:1782\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Ss\x{09C1}\x{1DED}.\x{0620}85", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'Ss\\u09C1\\u1DED\.\\u062085\'\)\ \[data\/IdnaTest\.txt\:1783\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--zca266bwrr.xn--85-psd", %p)}, "xn--zca266bwrr.xn--85-psd", "to_ascii\(\'xn\-\-zca266bwrr\.xn\-\-85\-psd\'\)\ \[data\/IdnaTest\.txt\:1784\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß\x{09C1}\x{1DED}.\x{0620}85", %p)}, "xn--zca266bwrr.xn--85-psd", "to_ascii\(\'ß\\u09C1\\u1DED\.\\u062085\'\)\ \[data\/IdnaTest\.txt\:1786\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("SS\x{09C1}\x{1DED}。\x{0620}8₅", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'SS\\u09C1\\u1DED\。\\u06208₅\'\)\ \[data\/IdnaTest\.txt\:1787\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss\x{09C1}\x{1DED}。\x{0620}8₅", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'ss\\u09C1\\u1DED\。\\u06208₅\'\)\ \[data\/IdnaTest\.txt\:1788\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Ss\x{09C1}\x{1DED}。\x{0620}8₅", %p)}, "xn--ss-e2f077r.xn--85-psd", "to_ascii\(\'Ss\\u09C1\\u1DED\。\\u06208₅\'\)\ \[data\/IdnaTest\.txt\:1789\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0ACD}\x{0484}魅𝟣．₃𐹥ß", %p)}, undef, "to_ascii\(\'\\u0ACD\\u0484魅𝟣．₃𐹥ß\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1790\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0ACD}\x{0484}魅1.3𐹥ß", %p)}, undef, "to_ascii\(\'\\u0ACD\\u0484魅1\.3𐹥ß\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1791\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0ACD}\x{0484}魅1.3𐹥SS", %p)}, undef, "to_ascii\(\'\\u0ACD\\u0484魅1\.3𐹥SS\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1792\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0ACD}\x{0484}魅1.3𐹥ss", %p)}, undef, "to_ascii\(\'\\u0ACD\\u0484魅1\.3𐹥ss\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1793\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0ACD}\x{0484}魅1.3𐹥Ss", %p)}, undef, "to_ascii\(\'\\u0ACD\\u0484魅1\.3𐹥Ss\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1794\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0ACD}\x{0484}魅𝟣．₃𐹥SS", %p)}, undef, "to_ascii\(\'\\u0ACD\\u0484魅𝟣．₃𐹥SS\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1795\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0ACD}\x{0484}魅𝟣．₃𐹥ss", %p)}, undef, "to_ascii\(\'\\u0ACD\\u0484魅𝟣．₃𐹥ss\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1796\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0ACD}\x{0484}魅𝟣．₃𐹥Ss", %p)}, undef, "to_ascii\(\'\\u0ACD\\u0484魅𝟣．₃𐹥Ss\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1797\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{072B}｡𑓂⒈𑜫󠿻", %p)}, undef, "to_ascii\(\'\\u072B｡𑓂⒈𑜫\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1798\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{072B}。𑓂1.𑜫󠿻", %p)}, undef, "to_ascii\(\'\\u072B\。𑓂1\.𑜫\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1799\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FE0D}છ。嵨", %p)}, "xn--6dc.xn--tot", "to_ascii\(\'\\uFE0Dછ\。嵨\'\)\ \[data\/IdnaTest\.txt\:1800\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--6dc.xn--tot", %p)}, "xn--6dc.xn--tot", "to_ascii\(\'xn\-\-6dc\.xn\-\-tot\'\)\ \[data\/IdnaTest\.txt\:1801\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("છ.嵨", %p)}, "xn--6dc.xn--tot", "to_ascii\(\'છ\.嵨\'\)\ \[data\/IdnaTest\.txt\:1802\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴔ≠Ⴀ.𐹥𐹰", %p)}, undef, "to_ascii\(\'Ⴔ\≠Ⴀ\.𐹥𐹰\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1803\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴔ=\x{0338}Ⴀ.𐹥𐹰", %p)}, undef, "to_ascii\(\'Ⴔ\=\\u0338Ⴀ\.𐹥𐹰\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1804\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴔ=\x{0338}ⴀ.𐹥𐹰", %p)}, undef, "to_ascii\(\'ⴔ\=\\u0338ⴀ\.𐹥𐹰\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1805\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴔ≠ⴀ.𐹥𐹰", %p)}, undef, "to_ascii\(\'ⴔ\≠ⴀ\.𐹥𐹰\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1806\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{200C}⒙𐫥｡𝨵", %p)}, undef, "to_ascii\(\'\-\\u200C⒙𐫥｡𝨵\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1808\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("-\x{200C}18.𐫥。𝨵", %p)}, undef, "to_ascii\(\'\-\\u200C18\.𐫥\。𝨵\'\)\ throws\ error\ V3\ V5\ C1\ \[data\/IdnaTest\.txt\:1810\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("︒.ʌᠣ-𐹽", %p)}, undef, "to_ascii\(\'︒\.ʌᠣ\-𐹽\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1811\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("。.ʌᠣ-𐹽", %p)}, undef, "to_ascii\(\'\。\.ʌᠣ\-𐹽\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1812\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("。.Ʌᠣ-𐹽", %p)}, undef, "to_ascii\(\'\。\.Ʌᠣ\-𐹽\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1813\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("︒.Ʌᠣ-𐹽", %p)}, undef, "to_ascii\(\'︒\.Ʌᠣ\-𐹽\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1814\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FE05}︒。𦀾\x{1CE0}", %p)}, undef, "to_ascii\(\'\\uFE05︒\。𦀾\\u1CE0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1815\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{FE05}。。𦀾\x{1CE0}", %p)}, "xn--t6f5138v", "to_ascii\(\'\\uFE05\。\。𦀾\\u1CE0\'\)\ \[data\/IdnaTest\.txt\:1816\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("xn--t6f5138v", %p)}, "xn--t6f5138v", "to_ascii\(\'xn\-\-t6f5138v\'\)\ \[data\/IdnaTest\.txt\:1817\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𦀾\x{1CE0}", %p)}, "xn--t6f5138v", "to_ascii\(\'𦀾\\u1CE0\'\)\ \[data\/IdnaTest\.txt\:1818\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞮑ß􏞞。ᡁ", %p)}, undef, "to_ascii\(\'\?ß\?\。ᡁ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1819\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞮑SS􏞞。ᡁ", %p)}, undef, "to_ascii\(\'\?SS\?\。ᡁ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1820\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞮑ss􏞞。ᡁ", %p)}, undef, "to_ascii\(\'\?ss\?\。ᡁ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1821\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞮑Ss􏞞。ᡁ", %p)}, undef, "to_ascii\(\'\?Ss\?\。ᡁ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1822\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A953}\x{200D}\x{062C}\x{066C}。𱆎󻡟\x{200C}󠅆", %p)}, undef, "to_ascii\(\'\\uA953\\u200D\\u062C\\u066C\。\?\?\\u200C\󠅆\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1824\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏．-ß\x{200C}≠", %p)}, undef, "to_ascii\(\'\?．\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1826\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏．-ß\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\?．\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1828\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏.-ß\x{200C}≠", %p)}, undef, "to_ascii\(\'\?\.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1830\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏.-ß\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\?\.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1832\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏.-SS\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\?\.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1834\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏.-SS\x{200C}≠", %p)}, undef, "to_ascii\(\'\?\.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1836\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏.-ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\?\.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1838\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏.-ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\?\.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1840\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\?\.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1842\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏.-Ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\?\.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1844\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏．-SS\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\?．\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1846\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏．-SS\x{200C}≠", %p)}, undef, "to_ascii\(\'\?．\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1848\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏．-ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\?．\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1850\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏．-ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\?．\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1852\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏．-Ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\?．\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1854\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕏．-Ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\?．\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1856\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡙ\x{200C}｡≯𐋲≠", %p)}, undef, "to_ascii\(\'ᡙ\\u200C｡\≯𐋲\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1858\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡙ\x{200C}｡>\x{0338}𐋲=\x{0338}", %p)}, undef, "to_ascii\(\'ᡙ\\u200C｡\>\\u0338𐋲\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1860\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡙ\x{200C}。≯𐋲≠", %p)}, undef, "to_ascii\(\'ᡙ\\u200C\。\≯𐋲\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1862\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡙ\x{200C}。>\x{0338}𐋲=\x{0338}", %p)}, undef, "to_ascii\(\'ᡙ\\u200C\。\>\\u0338𐋲\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1864\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹧𞲄󠁭񆼩。\x{034E}🄀", %p)}, undef, "to_ascii\(\'𐹧\?\?\?\。\\u034E🄀\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1865\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹧𞲄󠁭񆼩。\x{034E}0.", %p)}, undef, "to_ascii\(\'𐹧\?\?\?\。\\u034E0\.\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1866\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴄ．\x{200D}\x{0721}󻣋ς", %p)}, undef, "to_ascii\(\'Ⴄ．\\u200D\\u0721\?ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1868\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴄ.\x{200D}\x{0721}󻣋ς", %p)}, undef, "to_ascii\(\'Ⴄ\.\\u200D\\u0721\?ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1870\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴄ.\x{200D}\x{0721}󻣋ς", %p)}, undef, "to_ascii\(\'ⴄ\.\\u200D\\u0721\?ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1872\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴄ.\x{200D}\x{0721}󻣋Σ", %p)}, undef, "to_ascii\(\'Ⴄ\.\\u200D\\u0721\?Σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1874\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴄ.\x{200D}\x{0721}󻣋σ", %p)}, undef, "to_ascii\(\'ⴄ\.\\u200D\\u0721\?σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1876\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴄ．\x{200D}\x{0721}󻣋ς", %p)}, undef, "to_ascii\(\'ⴄ．\\u200D\\u0721\?ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1878\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴄ．\x{200D}\x{0721}󻣋Σ", %p)}, undef, "to_ascii\(\'Ⴄ．\\u200D\\u0721\?Σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1880\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴄ．\x{200D}\x{0721}󻣋σ", %p)}, undef, "to_ascii\(\'ⴄ．\\u200D\\u0721\?σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1882\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򮵛\x{0613}.Ⴕ", %p)}, undef, "to_ascii\(\'\?\\u0613\.Ⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1883\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򮵛\x{0613}.ⴕ", %p)}, undef, "to_ascii\(\'\?\\u0613\.ⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1884\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯\x{1DF3}𞤥。\x{200C}\x{A8C4}󠪉\x{200D}", %p)}, undef, "to_ascii\(\'\≯\\u1DF3\?\。\\u200C\\uA8C4\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1886\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}\x{1DF3}𞤥。\x{200C}\x{A8C4}󠪉\x{200D}", %p)}, undef, "to_ascii\(\'\>\\u0338\\u1DF3\?\。\\u200C\\uA8C4\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1888\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠄷｡򒑁", %p)}, undef, "to_ascii\(\'\\u200C\󠄷｡\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1890\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠄷。򒑁", %p)}, undef, "to_ascii\(\'\\u200C\󠄷\。\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1892\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈\x{0DD6}焅.󗡙\x{200D}ꡟ", %p)}, undef, "to_ascii\(\'⒈\\u0DD6焅\.\?\\u200Dꡟ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1894\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.\x{0DD6}焅.󗡙\x{200D}ꡟ", %p)}, undef, "to_ascii\(\'1\.\\u0DD6焅\.\?\\u200Dꡟ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1896\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DCD}ς≮.ς𝪦𞤕0", %p)}, undef, "to_ascii\(\'\\u1DCDς\≮\.ς𝪦\?0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1897\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DCD}ς<\x{0338}.ς𝪦𞤕0", %p)}, undef, "to_ascii\(\'\\u1DCDς\<\\u0338\.ς𝪦\?0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1898\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DCD}Σ<\x{0338}.Σ𝪦𞤕0", %p)}, undef, "to_ascii\(\'\\u1DCDΣ\<\\u0338\.Σ𝪦\?0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1899\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DCD}Σ≮.Σ𝪦𞤕0", %p)}, undef, "to_ascii\(\'\\u1DCDΣ\≮\.Σ𝪦\?0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1900\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DCD}σ≮.σ𝪦𞤕0", %p)}, undef, "to_ascii\(\'\\u1DCDσ\≮\.σ𝪦\?0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1901\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1DCD}σ<\x{0338}.σ𝪦𞤕0", %p)}, undef, "to_ascii\(\'\\u1DCDσ\<\\u0338\.σ𝪦\?0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1902\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򢦾ß\x{05B9}𐫙.\x{05AD}\x{08A1}", %p)}, undef, "to_ascii\(\'\?ß\\u05B9𐫙\.\\u05AD\\u08A1\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1903\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򢦾SS\x{05B9}𐫙.\x{05AD}\x{08A1}", %p)}, undef, "to_ascii\(\'\?SS\\u05B9𐫙\.\\u05AD\\u08A1\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1904\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򢦾ss\x{05B9}𐫙.\x{05AD}\x{08A1}", %p)}, undef, "to_ascii\(\'\?ss\\u05B9𐫙\.\\u05AD\\u08A1\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1905\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򢦾Ss\x{05B9}𐫙.\x{05AD}\x{08A1}", %p)}, undef, "to_ascii\(\'\?Ss\\u05B9𐫙\.\\u05AD\\u08A1\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1906\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𞣄｡⒈", %p)}, undef, "to_ascii\(\'\-𞣄｡⒈\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1907\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-𞣄。1.", %p)}, undef, "to_ascii\(\'\-𞣄\。1\.\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1908\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񈠢𐫖𝟡。\x{063E}𑘿", %p)}, undef, "to_ascii\(\'\?𐫖𝟡\。\\u063E𑘿\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1909\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񈠢𐫖9。\x{063E}𑘿", %p)}, undef, "to_ascii\(\'\?𐫖9\。\\u063E𑘿\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1910\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0668}\x{FC8C}\x{0668}\x{1A5D}.\x{200D}", %p)}, undef, "to_ascii\(\'\\u0668\\uFC8C\\u0668\\u1A5D\.\\u200D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1912\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0668}\x{0646}\x{0645}\x{0668}\x{1A5D}.\x{200D}", %p)}, undef, "to_ascii\(\'\\u0668\\u0646\\u0645\\u0668\\u1A5D\.\\u200D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1914\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𝟘．Ⴇ󀳑\x{FD50}񫃱", %p)}, undef, "to_ascii\(\'𝟘．Ⴇ\?\\uFD50\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1915\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0.Ⴇ󀳑\x{062A}\x{062C}\x{0645}񫃱", %p)}, undef, "to_ascii\(\'0\.Ⴇ\?\\u062A\\u062C\\u0645\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1916\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0.ⴇ󀳑\x{062A}\x{062C}\x{0645}񫃱", %p)}, undef, "to_ascii\(\'0\.ⴇ\?\\u062A\\u062C\\u0645\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1917\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟘．ⴇ󀳑\x{FD50}񫃱", %p)}, undef, "to_ascii\(\'𝟘．ⴇ\?\\uFD50\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1918\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𑇀▍.⁞ᠰ", %p)}, undef, "to_ascii\(\'𑇀\▍\.\⁞ᠰ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1919\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}-\x{067A}.򏯩", %p)}, undef, "to_ascii\(\'\\u200D\-\\u067A\.\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1921\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᠢ𐮂𐫘寐｡\x{200C}≯✳", %p)}, undef, "to_ascii\(\'ᠢ𐮂𐫘寐｡\\u200C\≯\✳\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1923\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᠢ𐮂𐫘寐｡\x{200C}>\x{0338}✳", %p)}, undef, "to_ascii\(\'ᠢ𐮂𐫘寐｡\\u200C\>\\u0338\✳\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1925\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᠢ𐮂𐫘寐。\x{200C}≯✳", %p)}, undef, "to_ascii\(\'ᠢ𐮂𐫘寐\。\\u200C\≯\✳\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1927\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᠢ𐮂𐫘寐。\x{200C}>\x{0338}✳", %p)}, undef, "to_ascii\(\'ᠢ𐮂𐫘寐\。\\u200C\>\\u0338\✳\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1929\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}｡󸲜ႺႴ𞨇", %p)}, undef, "to_ascii\(\'\\u200D｡\?ႺႴ\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1931\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。󸲜ႺႴ𞨇", %p)}, undef, "to_ascii\(\'\\u200D\。\?ႺႴ\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1933\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。󸲜ⴚⴔ𞨇", %p)}, undef, "to_ascii\(\'\\u200D\。\?ⴚⴔ\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1935\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。󸲜Ⴚⴔ𞨇", %p)}, undef, "to_ascii\(\'\\u200D\。\?Ⴚⴔ\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1937\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}｡󸲜ⴚⴔ𞨇", %p)}, undef, "to_ascii\(\'\\u200D｡\?ⴚⴔ\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1939\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}｡󸲜Ⴚⴔ𞨇", %p)}, undef, "to_ascii\(\'\\u200D｡\?Ⴚⴔ\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1941\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-3.\x{200D}ヌᢕ", %p)}, undef, "to_ascii\(\'\-3\.\\u200Dヌᢕ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:1943\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🂃\x{0666}ß\x{200D}。󠠂򭰍𞩒-", %p)}, undef, "to_ascii\(\'🂃\\u0666ß\\u200D\。\?\?\?\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1945\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🂃\x{0666}SS\x{200D}。󠠂򭰍𞩒-", %p)}, undef, "to_ascii\(\'🂃\\u0666SS\\u200D\。\?\?\?\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1947\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🂃\x{0666}ss\x{200D}。󠠂򭰍𞩒-", %p)}, undef, "to_ascii\(\'🂃\\u0666ss\\u200D\。\?\?\?\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1949\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🂃\x{0666}Ss\x{200D}。󠠂򭰍𞩒-", %p)}, undef, "to_ascii\(\'🂃\\u0666Ss\\u200D\。\?\?\?\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1951\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꇟ-𐾺\x{069F}。򰀺\x{200C}", %p)}, undef, "to_ascii\(\'ꇟ\-\?\\u069F\。\?\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1953\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0665}.\x{0484}𐨗𝩋𴤃", %p)}, undef, "to_ascii\(\'\\u0665\.\\u0484𐨗𝩋\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1954\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-.񱼓\x{0649}𐨿", %p)}, undef, "to_ascii\(\'\-\.\?\\u0649𐨿\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1955\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󾬨ς.𞶙녫ß", %p)}, undef, "to_ascii\(\'\?ς\.\?녫ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1956\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󾬨ς.𞶙녫ß", %p)}, undef, "to_ascii\(\'\?ς\.\?녫ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1957\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󾬨Σ.𞶙녫SS", %p)}, undef, "to_ascii\(\'\?Σ\.\?녫SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1958\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󾬨Σ.𞶙녫SS", %p)}, undef, "to_ascii\(\'\?Σ\.\?녫SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1959\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󾬨σ.𞶙녫ss", %p)}, undef, "to_ascii\(\'\?σ\.\?녫ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1960\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󾬨σ.𞶙녫ss", %p)}, undef, "to_ascii\(\'\?σ\.\?녫ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1961\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󾬨Σ.𞶙녫Ss", %p)}, undef, "to_ascii\(\'\?Σ\.\?녫Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1962\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󾬨Σ.𞶙녫Ss", %p)}, undef, "to_ascii\(\'\?Σ\.\?녫Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1963\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⅎ\x{17D2}\x{200D}｡≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ\\u17D2\\u200D｡\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1965\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⅎ\x{17D2}\x{200D}｡=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ\\u17D2\\u200D｡\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1967\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⅎ\x{17D2}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ\\u17D2\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1969\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⅎ\x{17D2}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ\\u17D2\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1971\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⅎ\x{17D2}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ\\u17D2\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1973\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⅎ\x{17D2}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ\\u17D2\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1975\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⅎ\x{17D2}\x{200D}｡=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ\\u17D2\\u200D｡\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1977\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⅎ\x{17D2}\x{200D}｡≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ\\u17D2\\u200D｡\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1979\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐋺\x{AAF6}\x{A953}󧦉．\x{200C}\x{1714}\x{068F}", %p)}, undef, "to_ascii\(\'𐋺\\uAAF6\\uA953\?．\\u200C\\u1714\\u068F\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1981\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐋺\x{AAF6}\x{A953}󧦉.\x{200C}\x{1714}\x{068F}", %p)}, undef, "to_ascii\(\'𐋺\\uAAF6\\uA953\?\.\\u200C\\u1714\\u068F\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1983\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񺔯\x{0FA8}．≯", %p)}, undef, "to_ascii\(\'\?\\u0FA8．\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1984\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񺔯\x{0FA8}．>\x{0338}", %p)}, undef, "to_ascii\(\'\?\\u0FA8．\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1985\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񺔯\x{0FA8}.≯", %p)}, undef, "to_ascii\(\'\?\\u0FA8\.\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1986\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񺔯\x{0FA8}.>\x{0338}", %p)}, undef, "to_ascii\(\'\?\\u0FA8\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1987\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𞡄Ⴓ．𐇽", %p)}, undef, "to_ascii\(\'\\u200D𞡄Ⴓ．𐇽\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1989\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}𞡄Ⴓ.𐇽", %p)}, undef, "to_ascii\(\'\\u200D𞡄Ⴓ\.𐇽\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1991\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}𞡄ⴓ.𐇽", %p)}, undef, "to_ascii\(\'\\u200D𞡄ⴓ\.𐇽\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1993\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}𞡄ⴓ．𐇽", %p)}, undef, "to_ascii\(\'\\u200D𞡄ⴓ．𐇽\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1995\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪒ß\x{A8EA}．ᡤ", %p)}, undef, "to_ascii\(\'𐪒ß\\uA8EA．ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1996\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪒ß\x{A8EA}.ᡤ", %p)}, undef, "to_ascii\(\'𐪒ß\\uA8EA\.ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1997\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪒SS\x{A8EA}.ᡤ", %p)}, undef, "to_ascii\(\'𐪒SS\\uA8EA\.ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1998\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪒ss\x{A8EA}.ᡤ", %p)}, undef, "to_ascii\(\'𐪒ss\\uA8EA\.ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1999\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪒Ss\x{A8EA}.ᡤ", %p)}, undef, "to_ascii\(\'𐪒Ss\\uA8EA\.ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2000\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪒SS\x{A8EA}．ᡤ", %p)}, undef, "to_ascii\(\'𐪒SS\\uA8EA．ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2001\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪒ss\x{A8EA}．ᡤ", %p)}, undef, "to_ascii\(\'𐪒ss\\uA8EA．ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2002\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪒Ss\x{A8EA}．ᡤ", %p)}, undef, "to_ascii\(\'𐪒Ss\\uA8EA．ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2003\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𐨿󠆌鸮𑚶.ς", %p)}, undef, "to_ascii\(\'𐨿\󠆌鸮𑚶\.ς\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2004\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𐨿󠆌鸮𑚶.Σ", %p)}, undef, "to_ascii\(\'𐨿\󠆌鸮𑚶\.Σ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2005\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𐨿󠆌鸮𑚶.σ", %p)}, undef, "to_ascii\(\'𐨿\󠆌鸮𑚶\.σ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2006\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⒗𞤬。-𑚶", %p)}, undef, "to_ascii\(\'⒗\?\。\-𑚶\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2007\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("16.𞤬。-𑚶", %p)}, undef, "to_ascii\(\'16\.\?\。\-𑚶\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2008\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{08B3}𞤿⾫｡𐹣\x{068F}⒈", %p)}, undef, "to_ascii\(\'\\u08B3\?⾫｡𐹣\\u068F⒈\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2009\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{08B3}𞤿隹。𐹣\x{068F}1.", %p)}, undef, "to_ascii\(\'\\u08B3\?隹\。𐹣\\u068F1\.\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2010\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{2433}𚎛𝟧\x{0661}.ᡢ8\x{0F72}\x{0600}", %p)}, undef, "to_ascii\(\'\\u2433\?𝟧\\u0661\.ᡢ8\\u0F72\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2011\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2433}𚎛5\x{0661}.ᡢ8\x{0F72}\x{0600}", %p)}, undef, "to_ascii\(\'\\u2433\?5\\u0661\.ᡢ8\\u0F72\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2012\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹠.🄀⒒-󨰈", %p)}, undef, "to_ascii\(\'𐹠\.🄀⒒\-\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2013\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹠.0.11.-󨰈", %p)}, undef, "to_ascii\(\'𐹠\.0\.11\.\-\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2014\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς-。\x{200C}𝟭-", %p)}, undef, "to_ascii\(\'ς\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2016\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς-。\x{200C}1-", %p)}, undef, "to_ascii\(\'ς\-\。\\u200C1\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2018\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ-。\x{200C}1-", %p)}, undef, "to_ascii\(\'Σ\-\。\\u200C1\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2020\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ-。\x{200C}1-", %p)}, undef, "to_ascii\(\'σ\-\。\\u200C1\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2022\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ-。\x{200C}𝟭-", %p)}, undef, "to_ascii\(\'Σ\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2024\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ-。\x{200C}𝟭-", %p)}, undef, "to_ascii\(\'σ\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2026\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1734}-\x{0CE2}．󠄩Ⴄ", %p)}, undef, "to_ascii\(\'\\u1734\-\\u0CE2．\󠄩Ⴄ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2027\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1734}-\x{0CE2}.󠄩Ⴄ", %p)}, undef, "to_ascii\(\'\\u1734\-\\u0CE2\.\󠄩Ⴄ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2028\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{1734}-\x{0CE2}.󠄩ⴄ", %p)}, undef, "to_ascii\(\'\\u1734\-\\u0CE2\.\󠄩ⴄ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2029\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{1734}-\x{0CE2}．󠄩ⴄ", %p)}, undef, "to_ascii\(\'\\u1734\-\\u0CE2．\󠄩ⴄ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2030\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򭈗♋\x{06BB}𐦥｡\x{0954}⒈", %p)}, undef, "to_ascii\(\'\?\♋\\u06BB𐦥｡\\u0954⒈\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2031\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򭈗♋\x{06BB}𐦥。\x{0954}1.", %p)}, undef, "to_ascii\(\'\?\♋\\u06BB𐦥\。\\u09541\.\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2032\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{05A4}．\x{06C1}\x{1AB3}\x{200C}", %p)}, undef, "to_ascii\(\'\\u05A4．\\u06C1\\u1AB3\\u200C\'\)\ throws\ error\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:2034\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{05A4}.\x{06C1}\x{1AB3}\x{200C}", %p)}, undef, "to_ascii\(\'\\u05A4\.\\u06C1\\u1AB3\\u200C\'\)\ throws\ error\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:2036\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񢭏\x{0846}≮\x{0ACD}．𞦊", %p)}, undef, "to_ascii\(\'\?\\u0846\≮\\u0ACD．\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2037\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񢭏\x{0846}<\x{0338}\x{0ACD}．𞦊", %p)}, undef, "to_ascii\(\'\?\\u0846\<\\u0338\\u0ACD．\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2038\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񢭏\x{0846}≮\x{0ACD}.𞦊", %p)}, undef, "to_ascii\(\'\?\\u0846\≮\\u0ACD\.\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2039\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񢭏\x{0846}<\x{0338}\x{0ACD}.𞦊", %p)}, undef, "to_ascii\(\'\?\\u0846\<\\u0338\\u0ACD\.\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2040\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。𞀘⒈ꡍ擉", %p)}, undef, "to_ascii\(\'\\u200D\。\?⒈ꡍ擉\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2042\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{200D}。𞀘1.ꡍ擉", %p)}, undef, "to_ascii\(\'\\u200D\。\?1\.ꡍ擉\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2044\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("₈\x{07CB}．\x{FB64}≠", %p)}, undef, "to_ascii\(\'₈\\u07CB．\\uFB64\≠\'\)\ throws\ error\ P1\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2045\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("₈\x{07CB}．\x{FB64}=\x{0338}", %p)}, undef, "to_ascii\(\'₈\\u07CB．\\uFB64\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2046\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8\x{07CB}.\x{067F}≠", %p)}, undef, "to_ascii\(\'8\\u07CB\.\\u067F\≠\'\)\ throws\ error\ P1\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2047\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8\x{07CB}.\x{067F}=\x{0338}", %p)}, undef, "to_ascii\(\'8\\u07CB\.\\u067F\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2048\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢡ\x{07DE}򹐣.⒒\x{0642}𑍦", %p)}, undef, "to_ascii\(\'ᢡ\\u07DE\?\.⒒\\u0642𑍦\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:2049\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢡ\x{07DE}򹐣.11.\x{0642}𑍦", %p)}, undef, "to_ascii\(\'ᢡ\\u07DE\?\.11\.\\u0642𑍦\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2050\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0E48}-𐹺𝟜.\x{0363}\x{06E1}⒏", %p)}, undef, "to_ascii\(\'\\u0E48\-𐹺𝟜\.\\u0363\\u06E1⒏\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2051\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0E48}-𐹺4.\x{0363}\x{06E1}8.", %p)}, undef, "to_ascii\(\'\\u0E48\-𐹺4\.\\u0363\\u06E18\.\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2052\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⫐｡Ⴠ-󃐢", %p)}, undef, "to_ascii\(\'\⫐｡Ⴠ\-\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2053\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⫐。Ⴠ-󃐢", %p)}, undef, "to_ascii\(\'\⫐\。Ⴠ\-\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2054\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⫐。ⴠ-󃐢", %p)}, undef, "to_ascii\(\'\⫐\。ⴠ\-\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2055\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⫐｡ⴠ-󃐢", %p)}, undef, "to_ascii\(\'\⫐｡ⴠ\-\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2056\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𑑂◊．⦟∠", %p)}, undef, "to_ascii\(\'\?\◊．\⦟\∠\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2057\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𑑂◊.⦟∠", %p)}, undef, "to_ascii\(\'\?\◊\.\⦟\∠\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2058\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𿌰-\x{0662}。󋸛ꡂ", %p)}, undef, "to_ascii\(\'\?\-\\u0662\。\?ꡂ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2059\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0678}。󠏬\x{0741}𞪭𐹪", %p)}, undef, "to_ascii\(\'\\u0678\。\?\\u0741\?𐹪\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2060\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{064A}\x{0674}。󠏬\x{0741}𞪭𐹪", %p)}, undef, "to_ascii\(\'\\u064A\\u0674\。\?\\u0741\?𐹪\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2061\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫆ꌄ｡\x{200D}ᣬ", %p)}, undef, "to_ascii\(\'𐫆ꌄ｡\\u200Dᣬ\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2063\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫆ꌄ。\x{200D}ᣬ", %p)}, undef, "to_ascii\(\'𐫆ꌄ\。\\u200Dᣬ\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2065\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("₀\x{0662}。󅪞≯-", %p)}, undef, "to_ascii\(\'₀\\u0662\。\?\≯\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2066\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("₀\x{0662}。󅪞>\x{0338}-", %p)}, undef, "to_ascii\(\'₀\\u0662\。\?\>\\u0338\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2067\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0\x{0662}。󅪞≯-", %p)}, undef, "to_ascii\(\'0\\u0662\。\?\≯\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2068\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0\x{0662}。󅪞>\x{0338}-", %p)}, undef, "to_ascii\(\'0\\u0662\。\?\>\\u0338\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2069\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{031C}𐹫-𞯃.𐋤\x{0845}", %p)}, undef, "to_ascii\(\'\\u031C𐹫\-\?\.𐋤\\u0845\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2070\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠｡𝩑𐹩Ⴡ\x{0594}", %p)}, undef, "to_ascii\(\'\≠｡𝩑𐹩Ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2071\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}｡𝩑𐹩Ⴡ\x{0594}", %p)}, undef, "to_ascii\(\'\=\\u0338｡𝩑𐹩Ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2072\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠。𝩑𐹩Ⴡ\x{0594}", %p)}, undef, "to_ascii\(\'\≠\。𝩑𐹩Ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2073\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}。𝩑𐹩Ⴡ\x{0594}", %p)}, undef, "to_ascii\(\'\=\\u0338\。𝩑𐹩Ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2074\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}。𝩑𐹩ⴡ\x{0594}", %p)}, undef, "to_ascii\(\'\=\\u0338\。𝩑𐹩ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2075\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠。𝩑𐹩ⴡ\x{0594}", %p)}, undef, "to_ascii\(\'\≠\。𝩑𐹩ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2076\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}｡𝩑𐹩ⴡ\x{0594}", %p)}, undef, "to_ascii\(\'\=\\u0338｡𝩑𐹩ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2077\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠｡𝩑𐹩ⴡ\x{0594}", %p)}, undef, "to_ascii\(\'\≠｡𝩑𐹩ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2078\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𖫳≠.Ⴀ𐮀", %p)}, undef, "to_ascii\(\'𖫳\≠\.Ⴀ𐮀\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2079\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𖫳=\x{0338}.Ⴀ𐮀", %p)}, undef, "to_ascii\(\'𖫳\=\\u0338\.Ⴀ𐮀\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2080\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𖫳=\x{0338}.ⴀ𐮀", %p)}, undef, "to_ascii\(\'𖫳\=\\u0338\.ⴀ𐮀\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2081\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𖫳≠.ⴀ𐮀", %p)}, undef, "to_ascii\(\'𖫳\≠\.ⴀ𐮀\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2082\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅾\x{0736}\x{0726}．ᢚ閪\x{08E2}𝩟", %p)}, undef, "to_ascii\(\'\󠅾\\u0736\\u0726．ᢚ閪\\u08E2𝩟\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2083\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅾\x{0736}\x{0726}.ᢚ閪\x{08E2}𝩟", %p)}, undef, "to_ascii\(\'\󠅾\\u0736\\u0726\.ᢚ閪\\u08E2𝩟\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2084\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200D}󠇜\x{06CB}\x{A8E9}｡\x{20DD}\x{0FB0}-ᛟ", %p)}, undef, "to_ascii\(\'\\u200D\󠇜\\u06CB\\uA8E9｡\\u20DD\\u0FB0\-ᛟ\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2086\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200D}󠇜\x{06CB}\x{A8E9}。\x{20DD}\x{0FB0}-ᛟ", %p)}, undef, "to_ascii\(\'\\u200D\󠇜\\u06CB\\uA8E9\。\\u20DD\\u0FB0\-ᛟ\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2088\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("헁󘖙\x{0E3A}󚍚。\x{06BA}𝟜", %p)}, undef, "to_ascii\(\'헁\?\\u0E3A\?\。\\u06BA𝟜\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2089\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("헁󘖙\x{0E3A}󚍚。\x{06BA}𝟜", %p)}, undef, "to_ascii\(\'헁\?\\u0E3A\?\。\\u06BA𝟜\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2090\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("헁󘖙\x{0E3A}󚍚。\x{06BA}4", %p)}, undef, "to_ascii\(\'헁\?\\u0E3A\?\。\\u06BA4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2091\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("헁󘖙\x{0E3A}󚍚。\x{06BA}4", %p)}, undef, "to_ascii\(\'헁\?\\u0E3A\?\。\\u06BA4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2092\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹭｡󃱂\x{200C}Ⴞ", %p)}, undef, "to_ascii\(\'𐹭｡\?\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2094\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹭。󃱂\x{200C}Ⴞ", %p)}, undef, "to_ascii\(\'𐹭\。\?\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2096\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹭。󃱂\x{200C}ⴞ", %p)}, undef, "to_ascii\(\'𐹭\。\?\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2098\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹭｡󃱂\x{200C}ⴞ", %p)}, undef, "to_ascii\(\'𐹭｡\?\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2100\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A953}.\x{033D}𑂽馋", %p)}, undef, "to_ascii\(\'\\uA953\.\\u033D\?馋\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2101\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󈫝򪛸\x{200D}｡䜖", %p)}, undef, "to_ascii\(\'\?\?\\u200D｡䜖\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2103\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󈫝򪛸\x{200D}。䜖", %p)}, undef, "to_ascii\(\'\?\?\\u200D\。䜖\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2105\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡯ⚉姶🄉．۷\x{200D}🎪\x{200D}", %p)}, undef, "to_ascii\(\'ᡯ\⚉姶🄉．۷\\u200D🎪\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2107\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡯ⚉姶8,.۷\x{200D}🎪\x{200D}", %p)}, undef, "to_ascii\(\'ᡯ\⚉姶8\,\.۷\\u200D🎪\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2109\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞽀.𐹸🚖\x{0E3A}", %p)}, undef, "to_ascii\(\'\?\.𐹸🚖\\u0E3A\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2110\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴔᠵ｡𐹧\x{0747}۹", %p)}, undef, "to_ascii\(\'Ⴔᠵ｡𐹧\\u0747۹\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2111\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴔᠵ。𐹧\x{0747}۹", %p)}, undef, "to_ascii\(\'Ⴔᠵ\。𐹧\\u0747۹\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2112\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴔᠵ。𐹧\x{0747}۹", %p)}, undef, "to_ascii\(\'ⴔᠵ\。𐹧\\u0747۹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2113\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴔᠵ｡𐹧\x{0747}۹", %p)}, undef, "to_ascii\(\'ⴔᠵ｡𐹧\\u0747۹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2114\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{135F}ᡈ\x{200C}．︒-𖾐-", %p)}, undef, "to_ascii\(\'\\u135Fᡈ\\u200C．︒\-𖾐\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:2116\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{135F}ᡈ\x{200C}.。-𖾐-", %p)}, undef, "to_ascii\(\'\\u135Fᡈ\\u200C\.\。\-𖾐\-\'\)\ throws\ error\ V5\ V3\ C1\ A4_2\ \[data\/IdnaTest\.txt\:2118\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⒈\x{0601}⒖\x{200C}.\x{1DF0}\x{07DB}", %p)}, undef, "to_ascii\(\'⒈\\u0601⒖\\u200C\.\\u1DF0\\u07DB\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:2120\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.\x{0601}15.\x{200C}.\x{1DF0}\x{07DB}", %p)}, undef, "to_ascii\(\'1\.\\u060115\.\\u200C\.\\u1DF0\\u07DB\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:2122\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝩜。-\x{0B4D}Ⴋ", %p)}, undef, "to_ascii\(\'𝩜\。\-\\u0B4DႫ\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:2123\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𝩜。-\x{0B4D}ⴋ", %p)}, undef, "to_ascii\(\'𝩜\。\-\\u0B4Dⴋ\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:2124\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ßჀ.\x{0620}刯Ⴝ", %p)}, undef, "to_ascii\(\'ßჀ\.\\u0620刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2125\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("ßⴠ.\x{0620}刯ⴝ", %p)}, undef, "to_ascii\(\'ßⴠ\.\\u0620刯ⴝ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2126\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("SSჀ.\x{0620}刯Ⴝ", %p)}, undef, "to_ascii\(\'SSჀ\.\\u0620刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2127\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("ssⴠ.\x{0620}刯ⴝ", %p)}, undef, "to_ascii\(\'ssⴠ\.\\u0620刯ⴝ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2128\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ssⴠ.\x{0620}刯Ⴝ", %p)}, undef, "to_ascii\(\'Ssⴠ\.\\u0620刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2129\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BAA}ႣℲ｡ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAႣℲ｡ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2130\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BAA}ႣℲ｡ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAႣℲ｡ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2131\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BAA}ႣℲ。ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAႣℲ\。ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2132\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BAA}ႣℲ。ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAႣℲ\。ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2133\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{1BAA}ⴃⅎ。ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAⴃⅎ\。ᠳ툻\\u0673\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2134\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{1BAA}ⴃⅎ。ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAⴃⅎ\。ᠳ툻\\u0673\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2135\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{1BAA}Ⴃⅎ。ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAႣⅎ\。ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2136\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BAA}Ⴃⅎ。ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAႣⅎ\。ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2137\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{1BAA}ⴃⅎ｡ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAⴃⅎ｡ᠳ툻\\u0673\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2138\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{1BAA}ⴃⅎ｡ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAⴃⅎ｡ᠳ툻\\u0673\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2139\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{1BAA}Ⴃⅎ｡ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAႣⅎ｡ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2140\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BAA}Ⴃⅎ｡ᠳ툻\x{0673}", %p)}, undef, "to_ascii\(\'\\u1BAAႣⅎ｡ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2141\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{06EC}.\x{08A2}𐹫\x{067C}", %p)}, undef, "to_ascii\(\'\\u06EC\.\\u08A2𐹫\\u067C\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2142\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{06B6}\x{06DF}。₇\x{A806}", %p)}, "xn--pkb6f.xn--7-x93e", "to_ascii\(\'\\u06B6\\u06DF\。₇\\uA806\'\)\ \[data\/IdnaTest\.txt\:2143\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{06B6}\x{06DF}。7\x{A806}", %p)}, "xn--pkb6f.xn--7-x93e", "to_ascii\(\'\\u06B6\\u06DF\。7\\uA806\'\)\ \[data\/IdnaTest\.txt\:2144\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--pkb6f.xn--7-x93e", %p)}, "xn--pkb6f.xn--7-x93e", "to_ascii\(\'xn\-\-pkb6f\.xn\-\-7\-x93e\'\)\ \[data\/IdnaTest\.txt\:2145\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{06B6}\x{06DF}.7\x{A806}", %p)}, "xn--pkb6f.xn--7-x93e", "to_ascii\(\'\\u06B6\\u06DF\.7\\uA806\'\)\ \[data\/IdnaTest\.txt\:2146\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴣ𐹻.\x{200C}𝪣≮󠩉", %p)}, undef, "to_ascii\(\'Ⴣ𐹻\.\\u200C𝪣\≮\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2148\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴣ𐹻.\x{200C}𝪣<\x{0338}󠩉", %p)}, undef, "to_ascii\(\'Ⴣ𐹻\.\\u200C𝪣\<\\u0338\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2150\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴣ𐹻.\x{200C}𝪣<\x{0338}󠩉", %p)}, undef, "to_ascii\(\'ⴣ𐹻\.\\u200C𝪣\<\\u0338\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2152\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴣ𐹻.\x{200C}𝪣≮󠩉", %p)}, undef, "to_ascii\(\'ⴣ𐹻\.\\u200C𝪣\≮\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2154\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𝟵隁⯮．\x{180D}\x{200C}", %p)}, undef, "to_ascii\(\'𝟵隁\⯮．\\u180D\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2156\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("9隁⯮.\x{180D}\x{200C}", %p)}, undef, "to_ascii\(\'9隁\⯮\.\\u180D\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2158\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("xn--9-mfs8024b.", %p)}, "xn--9-mfs8024b.", "to_ascii\(\'xn\-\-9\-mfs8024b\.\'\)\ \[data\/IdnaTest\.txt\:2159\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("9隁⯮.", %p)}, "xn--9-mfs8024b.", "to_ascii\(\'9隁\⯮\.\'\)\ \[data\/IdnaTest\.txt\:2160\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⒏𐹧｡Ⴣ\x{0F84}彦", %p)}, undef, "to_ascii\(\'⒏𐹧｡Ⴣ\\u0F84彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2161\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8.𐹧。Ⴣ\x{0F84}彦", %p)}, undef, "to_ascii\(\'8\.𐹧\。Ⴣ\\u0F84彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2162\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("8.𐹧。ⴣ\x{0F84}彦", %p)}, undef, "to_ascii\(\'8\.𐹧\。ⴣ\\u0F84彦\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2163\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⒏𐹧｡ⴣ\x{0F84}彦", %p)}, undef, "to_ascii\(\'⒏𐹧｡ⴣ\\u0F84彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2164\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-问񬰔⒛。\x{0604}-񜗉橬", %p)}, undef, "to_ascii\(\'\-问\?⒛\。\\u0604\-\?橬\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2165\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-问񬰔20.。\x{0604}-񜗉橬", %p)}, undef, "to_ascii\(\'\-问\?20\.\。\\u0604\-\?橬\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:2166\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BAC}Ⴌ\x{200C}\x{0325}。𝟸", %p)}, undef, "to_ascii\(\'\\u1BACႬ\\u200C\\u0325\。𝟸\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2168\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BAC}Ⴌ\x{200C}\x{0325}。2", %p)}, undef, "to_ascii\(\'\\u1BACႬ\\u200C\\u0325\。2\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2170\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{1BAC}ⴌ\x{200C}\x{0325}。2", %p)}, undef, "to_ascii\(\'\\u1BACⴌ\\u200C\\u0325\。2\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2172\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{1BAC}ⴌ\x{200C}\x{0325}。𝟸", %p)}, undef, "to_ascii\(\'\\u1BACⴌ\\u200C\\u0325\。𝟸\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2174\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{DC5F}。\x{A806}\x{0669}󠒩", %p)}, undef, "to_ascii\(\'\\uDC5F\。\\uA806\\u0669\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ A3\ \[data\/IdnaTest\.txt\:2175\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄁\x{035F}⾶｡₇︒눇≮", %p)}, undef, "to_ascii\(\'\󠄁\\u035F⾶｡₇︒눇\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2176\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄁\x{035F}⾶｡₇︒눇<\x{0338}", %p)}, undef, "to_ascii\(\'\󠄁\\u035F⾶｡₇︒눇\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2177\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄁\x{035F}飛。7。눇≮", %p)}, undef, "to_ascii\(\'\󠄁\\u035F飛\。7\。눇\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2178\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄁\x{035F}飛。7。눇<\x{0338}", %p)}, undef, "to_ascii\(\'\󠄁\\u035F飛\。7\。눇\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2179\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}\x{FE09}𐹴\x{200D}．\x{200C}⿃", %p)}, undef, "to_ascii\(\'\\u200C\\uFE09𐹴\\u200D．\\u200C⿃\'\)\ throws\ error\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:2181\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}\x{FE09}𐹴\x{200D}.\x{200C}鳥", %p)}, undef, "to_ascii\(\'\\u200C\\uFE09𐹴\\u200D\.\\u200C鳥\'\)\ throws\ error\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:2183\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("🍮．\x{200D}󠗒𐦁𝨝", %p)}, undef, "to_ascii\(\'🍮．\\u200D\?𐦁𝨝\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2185\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🍮.\x{200D}󠗒𐦁𝨝", %p)}, undef, "to_ascii\(\'🍮\.\\u200D\?𐦁𝨝\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2187\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{067D}\x{0943}.𞤓\x{200D}", %p)}, undef, "to_ascii\(\'\\u067D\\u0943\.\?\\u200D\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:2189\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--2ib43l.xn--te6h", %p)}, "xn--2ib43l.xn--te6h", "to_ascii\(\'xn\-\-2ib43l\.xn\-\-te6h\'\)\ \[data\/IdnaTest\.txt\:2190\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{067D}\x{0943}.𞤵", %p)}, "xn--2ib43l.xn--te6h", "to_ascii\(\'\\u067D\\u0943\.\?\'\)\ \[data\/IdnaTest\.txt\:2191\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0664}\x{0A4D}-．󥜽\x{1039}񦦐", %p)}, undef, "to_ascii\(\'\\u0664\\u0A4D\-．\?\\u1039\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2192\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0664}\x{0A4D}-.󥜽\x{1039}񦦐", %p)}, undef, "to_ascii\(\'\\u0664\\u0A4D\-\.\?\\u1039\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2193\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4\x{103A}-𐹸｡\x{AA29}\x{200C}𐹴≮", %p)}, undef, "to_ascii\(\'4\\u103A\-𐹸｡\\uAA29\\u200C𐹴\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2195\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4\x{103A}-𐹸｡\x{AA29}\x{200C}𐹴<\x{0338}", %p)}, undef, "to_ascii\(\'4\\u103A\-𐹸｡\\uAA29\\u200C𐹴\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2197\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4\x{103A}-𐹸。\x{AA29}\x{200C}𐹴≮", %p)}, undef, "to_ascii\(\'4\\u103A\-𐹸\。\\uAA29\\u200C𐹴\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2199\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4\x{103A}-𐹸。\x{AA29}\x{200C}𐹴<\x{0338}", %p)}, undef, "to_ascii\(\'4\\u103A\-𐹸\。\\uAA29\\u200C𐹴\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2201\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}。\x{FFA0}\x{0F84}\x{0F96}", %p)}, undef, "to_ascii\(\'\\u200C\。\\uFFA0\\u0F84\\u0F96\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2203\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}。\x{1160}\x{0F84}\x{0F96}", %p)}, undef, "to_ascii\(\'\\u200C\。\\u1160\\u0F84\\u0F96\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2205\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯򍘅．\x{200D}𐅼򲇛", %p)}, undef, "to_ascii\(\'\≯\?．\\u200D𐅼\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2207\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}򍘅．\x{200D}𐅼򲇛", %p)}, undef, "to_ascii\(\'\>\\u0338\?．\\u200D𐅼\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2209\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯򍘅.\x{200D}𐅼򲇛", %p)}, undef, "to_ascii\(\'\≯\?\.\\u200D𐅼\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2211\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}򍘅.\x{200D}𐅼򲇛", %p)}, undef, "to_ascii\(\'\>\\u0338\?\.\\u200D𐅼\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2213\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0641}ß𐰯｡𝟕𐫫", %p)}, undef, "to_ascii\(\'\\u0641ß𐰯｡𝟕𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2214\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0641}ß𐰯。7𐫫", %p)}, undef, "to_ascii\(\'\\u0641ß𐰯\。7𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2215\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0641}SS𐰯。7𐫫", %p)}, undef, "to_ascii\(\'\\u0641SS𐰯\。7𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2216\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0641}ss𐰯。7𐫫", %p)}, undef, "to_ascii\(\'\\u0641ss𐰯\。7𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2217\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0641}Ss𐰯。7𐫫", %p)}, undef, "to_ascii\(\'\\u0641Ss𐰯\。7𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2218\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0641}SS𐰯｡𝟕𐫫", %p)}, undef, "to_ascii\(\'\\u0641SS𐰯｡𝟕𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2219\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0641}ss𐰯｡𝟕𐫫", %p)}, undef, "to_ascii\(\'\\u0641ss𐰯｡𝟕𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2220\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0641}Ss𐰯｡𝟕𐫫", %p)}, undef, "to_ascii\(\'\\u0641Ss𐰯｡𝟕𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2221\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ß\x{07AC}\x{07A7}\x{08B1}。𐭁􅮙𐹲", %p)}, undef, "to_ascii\(\'ß\\u07AC\\u07A7\\u08B1\。𐭁\?𐹲\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2222\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS\x{07AC}\x{07A7}\x{08B1}。𐭁􅮙𐹲", %p)}, undef, "to_ascii\(\'SS\\u07AC\\u07A7\\u08B1\。𐭁\?𐹲\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2223\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss\x{07AC}\x{07A7}\x{08B1}。𐭁􅮙𐹲", %p)}, undef, "to_ascii\(\'ss\\u07AC\\u07A7\\u08B1\。𐭁\?𐹲\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2224\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss\x{07AC}\x{07A7}\x{08B1}。𐭁􅮙𐹲", %p)}, undef, "to_ascii\(\'Ss\\u07AC\\u07A7\\u08B1\。𐭁\?𐹲\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2225\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-｡󠉗⒌𞯛", %p)}, undef, "to_ascii\(\'\-｡\?⒌\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2226\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-。󠉗5.𞯛", %p)}, undef, "to_ascii\(\'\-\。\?5\.\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2227\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏ς．-≮\x{FCAB}", %p)}, undef, "to_ascii\(\'\?ς．\-\≮\\uFCAB\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2228\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏ς．-<\x{0338}\x{FCAB}", %p)}, undef, "to_ascii\(\'\?ς．\-\<\\u0338\\uFCAB\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2229\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏ς.-≮\x{062E}\x{062C}", %p)}, undef, "to_ascii\(\'\?ς\.\-\≮\\u062E\\u062C\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2230\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏ς.-<\x{0338}\x{062E}\x{062C}", %p)}, undef, "to_ascii\(\'\?ς\.\-\<\\u0338\\u062E\\u062C\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2231\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏Σ.-<\x{0338}\x{062E}\x{062C}", %p)}, undef, "to_ascii\(\'\?Σ\.\-\<\\u0338\\u062E\\u062C\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2232\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏Σ.-≮\x{062E}\x{062C}", %p)}, undef, "to_ascii\(\'\?Σ\.\-\≮\\u062E\\u062C\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2233\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏σ.-≮\x{062E}\x{062C}", %p)}, undef, "to_ascii\(\'\?σ\.\-\≮\\u062E\\u062C\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2234\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏σ.-<\x{0338}\x{062E}\x{062C}", %p)}, undef, "to_ascii\(\'\?σ\.\-\<\\u0338\\u062E\\u062C\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2235\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏Σ．-<\x{0338}\x{FCAB}", %p)}, undef, "to_ascii\(\'\?Σ．\-\<\\u0338\\uFCAB\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2236\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏Σ．-≮\x{FCAB}", %p)}, undef, "to_ascii\(\'\?Σ．\-\≮\\uFCAB\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2237\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏σ．-≮\x{FCAB}", %p)}, undef, "to_ascii\(\'\?σ．\-\≮\\uFCAB\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2238\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𼎏σ．-<\x{0338}\x{FCAB}", %p)}, undef, "to_ascii\(\'\?σ．\-\<\\u0338\\uFCAB\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2239\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡗ\x{08B8}\x{0719}．񔤔󠛙\x{0C4D}\x{FC3E}", %p)}, undef, "to_ascii\(\'ꡗ\\u08B8\\u0719．\?\?\\u0C4D\\uFC3E\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2240\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡗ\x{08B8}\x{0719}.񔤔󠛙\x{0C4D}\x{0643}\x{064A}", %p)}, undef, "to_ascii\(\'ꡗ\\u08B8\\u0719\.\?\?\\u0C4D\\u0643\\u064A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2241\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐠰\x{08B7}𞤌𐫭。𐋦\x{17CD}𝩃", %p)}, "xn--dzb5191kezbrw47a.xn--p4e3841jz9tf", "to_ascii\(\'𐠰\\u08B7\?𐫭\。𐋦\\u17CD𝩃\'\)\ \[data\/IdnaTest\.txt\:2242\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--dzb5191kezbrw47a.xn--p4e3841jz9tf", %p)}, "xn--dzb5191kezbrw47a.xn--p4e3841jz9tf", "to_ascii\(\'xn\-\-dzb5191kezbrw47a\.xn\-\-p4e3841jz9tf\'\)\ \[data\/IdnaTest\.txt\:2243\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐠰\x{08B7}𞤮𐫭.𐋦\x{17CD}𝩃", %p)}, "xn--dzb5191kezbrw47a.xn--p4e3841jz9tf", "to_ascii\(\'𐠰\\u08B7\?𐫭\.𐋦\\u17CD𝩃\'\)\ \[data\/IdnaTest\.txt\:2244\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("₂㘷--。\x{06D3}\x{200C}𐫆𑖿", %p)}, undef, "to_ascii\(\'₂㘷\-\-\。\\u06D3\\u200C𐫆𑖿\'\)\ throws\ error\ V2\ V3\ C1\ \[data\/IdnaTest\.txt\:2246\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("₂㘷--。\x{06D2}\x{0654}\x{200C}𐫆𑖿", %p)}, undef, "to_ascii\(\'₂㘷\-\-\。\\u06D2\\u0654\\u200C𐫆𑖿\'\)\ throws\ error\ V2\ V3\ C1\ \[data\/IdnaTest\.txt\:2248\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("2㘷--。\x{06D3}\x{200C}𐫆𑖿", %p)}, undef, "to_ascii\(\'2㘷\-\-\。\\u06D3\\u200C𐫆𑖿\'\)\ throws\ error\ V2\ V3\ C1\ \[data\/IdnaTest\.txt\:2250\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("2㘷--。\x{06D2}\x{0654}\x{200C}𐫆𑖿", %p)}, undef, "to_ascii\(\'2㘷\-\-\。\\u06D2\\u0654\\u200C𐫆𑖿\'\)\ throws\ error\ V2\ V3\ C1\ \[data\/IdnaTest\.txt\:2252\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("-𘊻．ᡮ\x{062D}-", %p)}, undef, "to_ascii\(\'\-\?．ᡮ\\u062D\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2253\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("-𘊻.ᡮ\x{062D}-", %p)}, undef, "to_ascii\(\'\-\?\.ᡮ\\u062D\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2254\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-ß｡ᢣ𐹭\x{063F}", %p)}, undef, "to_ascii\(\'\\u200C\-ß｡ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2256\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-ß。ᢣ𐹭\x{063F}", %p)}, undef, "to_ascii\(\'\\u200C\-ß\。ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2258\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-SS。ᢣ𐹭\x{063F}", %p)}, undef, "to_ascii\(\'\\u200C\-SS\。ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2260\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-ss。ᢣ𐹭\x{063F}", %p)}, undef, "to_ascii\(\'\\u200C\-ss\。ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2262\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-Ss。ᢣ𐹭\x{063F}", %p)}, undef, "to_ascii\(\'\\u200C\-Ss\。ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2264\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-SS｡ᢣ𐹭\x{063F}", %p)}, undef, "to_ascii\(\'\\u200C\-SS｡ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2266\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-ss｡ᢣ𐹭\x{063F}", %p)}, undef, "to_ascii\(\'\\u200C\-ss｡ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2268\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-Ss｡ᢣ𐹭\x{063F}", %p)}, undef, "to_ascii\(\'\\u200C\-Ss｡ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2270\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("꧐Ӏ\x{1BAA}\x{08F6}．눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u1BAA\\u08F6．눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2271\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("꧐Ӏ\x{1BAA}\x{08F6}．눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u1BAA\\u08F6．눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2272\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("꧐Ӏ\x{1BAA}\x{08F6}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u1BAA\\u08F6\.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2273\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("꧐Ӏ\x{1BAA}\x{08F6}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u1BAA\\u08F6\.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2274\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("꧐ӏ\x{1BAA}\x{08F6}.눵", %p)}, "xn--s5a04sn4u297k.xn--2e1b", "to_ascii\(\'꧐ӏ\\u1BAA\\u08F6\.눵\'\)\ \[data\/IdnaTest\.txt\:2275\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("꧐ӏ\x{1BAA}\x{08F6}.눵", %p)}, "xn--s5a04sn4u297k.xn--2e1b", "to_ascii\(\'꧐ӏ\\u1BAA\\u08F6\.눵\'\)\ \[data\/IdnaTest\.txt\:2276\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("xn--s5a04sn4u297k.xn--2e1b", %p)}, "xn--s5a04sn4u297k.xn--2e1b", "to_ascii\(\'xn\-\-s5a04sn4u297k\.xn\-\-2e1b\'\)\ \[data\/IdnaTest\.txt\:2277\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("꧐ӏ\x{1BAA}\x{08F6}．눵", %p)}, "xn--s5a04sn4u297k.xn--2e1b", "to_ascii\(\'꧐ӏ\\u1BAA\\u08F6．눵\'\)\ \[data\/IdnaTest\.txt\:2278\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("꧐ӏ\x{1BAA}\x{08F6}．눵", %p)}, "xn--s5a04sn4u297k.xn--2e1b", "to_ascii\(\'꧐ӏ\\u1BAA\\u08F6．눵\'\)\ \[data\/IdnaTest\.txt\:2279\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{A8EA}｡𖄿𑆾󠇗", %p)}, undef, "to_ascii\(\'\\uA8EA｡\?𑆾\󠇗\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2280\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A8EA}。𖄿𑆾󠇗", %p)}, undef, "to_ascii\(\'\\uA8EA\。\?𑆾\󠇗\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2281\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󇓓𑚳。񐷿≯⾇", %p)}, undef, "to_ascii\(\'\?𑚳\。\?\≯⾇\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2282\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󇓓𑚳。񐷿>\x{0338}⾇", %p)}, undef, "to_ascii\(\'\?𑚳\。\?\>\\u0338⾇\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2283\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󇓓𑚳。񐷿≯舛", %p)}, undef, "to_ascii\(\'\?𑚳\。\?\≯舛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2284\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󇓓𑚳。񐷿>\x{0338}舛", %p)}, undef, "to_ascii\(\'\?𑚳\。\?\>\\u0338舛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2285\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫇\x{0661}\x{200C}．\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'𐫇\\u0661\\u200C．\\u200D\\u200C\'\)\ throws\ error\ B3\ C1\ C2\ \[data\/IdnaTest\.txt\:2287\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫇\x{0661}\x{200C}.\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'𐫇\\u0661\\u200C\.\\u200D\\u200C\'\)\ throws\ error\ B3\ C1\ C2\ \[data\/IdnaTest\.txt\:2289\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--9hb7344k.", %p)}, "xn--9hb7344k.", "to_ascii\(\'xn\-\-9hb7344k\.\'\)\ \[data\/IdnaTest\.txt\:2290\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫇\x{0661}.", %p)}, "xn--9hb7344k.", "to_ascii\(\'𐫇\\u0661\.\'\)\ \[data\/IdnaTest\.txt\:2291\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񡅈砪≯ᢑ｡≯𝩚򓴔\x{200C}", %p)}, undef, "to_ascii\(\'\?砪\≯ᢑ｡\≯𝩚\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2293\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񡅈砪>\x{0338}ᢑ｡>\x{0338}𝩚򓴔\x{200C}", %p)}, undef, "to_ascii\(\'\?砪\>\\u0338ᢑ｡\>\\u0338𝩚\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2295\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񡅈砪≯ᢑ。≯𝩚򓴔\x{200C}", %p)}, undef, "to_ascii\(\'\?砪\≯ᢑ\。\≯𝩚\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2297\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񡅈砪>\x{0338}ᢑ。>\x{0338}𝩚򓴔\x{200C}", %p)}, undef, "to_ascii\(\'\?砪\>\\u0338ᢑ\。\>\\u0338𝩚\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2299\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴥ.𑄳㊸", %p)}, undef, "to_ascii\(\'Ⴥ\.𑄳㊸\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2300\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴥ.𑄳43", %p)}, undef, "to_ascii\(\'Ⴥ\.𑄳43\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2301\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ⴥ.𑄳43", %p)}, undef, "to_ascii\(\'ⴥ\.𑄳43\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2302\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ⴥ.𑄳㊸", %p)}, undef, "to_ascii\(\'ⴥ\.𑄳㊸\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2303\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𝟎\x{0663}。Ⴒᡇ\x{08F2}𐹠", %p)}, undef, "to_ascii\(\'𝟎\\u0663\。Ⴒᡇ\\u08F2𐹠\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2304\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0\x{0663}。Ⴒᡇ\x{08F2}𐹠", %p)}, undef, "to_ascii\(\'0\\u0663\。Ⴒᡇ\\u08F2𐹠\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2305\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("0\x{0663}。ⴒᡇ\x{08F2}𐹠", %p)}, undef, "to_ascii\(\'0\\u0663\。ⴒᡇ\\u08F2𐹠\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2306\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𝟎\x{0663}。ⴒᡇ\x{08F2}𐹠", %p)}, undef, "to_ascii\(\'𝟎\\u0663\。ⴒᡇ\\u08F2𐹠\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2307\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񗪨󠄉\x{FFA0}\x{0FB7}.񸞰\x{A953}", %p)}, undef, "to_ascii\(\'\?\󠄉\\uFFA0\\u0FB7\.\?\\uA953\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2308\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗪨󠄉\x{1160}\x{0FB7}.񸞰\x{A953}", %p)}, undef, "to_ascii\(\'\?\󠄉\\u1160\\u0FB7\.\?\\uA953\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2309\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{0618}.۳\x{200C}\x{A953}", %p)}, undef, "to_ascii\(\'\\u0618\.۳\\u200C\\uA953\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2311\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ᡌ．︒ᢑ", %p)}, undef, "to_ascii\(\'ᡌ．︒ᢑ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2312\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡌ.。ᢑ", %p)}, undef, "to_ascii\(\'ᡌ\.\。ᢑ\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:2313\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑋪\x{1073}｡𞽧", %p)}, undef, "to_ascii\(\'𑋪\\u1073｡\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2314\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑋪\x{1073}。𞽧", %p)}, undef, "to_ascii\(\'𑋪\\u1073\。\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2315\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞷏。ᠢ򓘆", %p)}, undef, "to_ascii\(\'\?\。ᠢ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2316\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑄳㴼．\x{200C}𐹡\x{20EB}񫺦", %p)}, undef, "to_ascii\(\'𑄳㴼．\\u200C𐹡\\u20EB\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2318\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑄳㴼.\x{200C}𐹡\x{20EB}񫺦", %p)}, undef, "to_ascii\(\'𑄳㴼\.\\u200C𐹡\\u20EB\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2320\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񠻟𐹳𑈯｡\x{031D}", %p)}, undef, "to_ascii\(\'\?𐹳𑈯｡\\u031D\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2321\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񠻟𐹳𑈯。\x{031D}", %p)}, undef, "to_ascii\(\'\?𐹳𑈯\。\\u031D\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2322\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢊ뾜󠱴𑚶。\x{089D}𐹥", %p)}, undef, "to_ascii\(\'ᢊ뾜\?𑚶\。\\u089D𐹥\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2323\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢊ뾜󠱴𑚶。\x{089D}𐹥", %p)}, undef, "to_ascii\(\'ᢊ뾜\?𑚶\。\\u089D𐹥\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2324\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹥≠｡𐋲󠧠\x{200C}", %p)}, undef, "to_ascii\(\'𐹥\≠｡𐋲\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2326\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹥=\x{0338}｡𐋲󠧠\x{200C}", %p)}, undef, "to_ascii\(\'𐹥\=\\u0338｡𐋲\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2328\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹥≠。𐋲󠧠\x{200C}", %p)}, undef, "to_ascii\(\'𐹥\≠\。𐋲\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2330\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹥=\x{0338}。𐋲󠧠\x{200C}", %p)}, undef, "to_ascii\(\'𐹥\=\\u0338\。𐋲\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2332\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}񙯠\x{094D}．\x{200D}\x{A953}𐪤", %p)}, undef, "to_ascii\(\'\\u115F\?\\u094D．\\u200D\\uA953\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2334\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}񙯠\x{094D}.\x{200D}\x{A953}𐪤", %p)}, undef, "to_ascii\(\'\\u115F\?\\u094D\.\\u200D\\uA953\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2336\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򌋔󠆎󠆗𑲕。≮", %p)}, undef, "to_ascii\(\'\?\󠆎\󠆗\?\。\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2337\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򌋔󠆎󠆗𑲕。<\x{0338}", %p)}, undef, "to_ascii\(\'\?\󠆎\󠆗\?\。\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2338\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠆦.\x{08E3}暀≠", %p)}, undef, "to_ascii\(\'\󠆦\.\\u08E3暀\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2339\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠆦.\x{08E3}暀=\x{0338}", %p)}, undef, "to_ascii\(\'\󠆦\.\\u08E3暀\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2340\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐡤\x{ABED}｡\x{FD30}򜖅\x{1DF0}", %p)}, undef, "to_ascii\(\'𐡤\\uABED｡\\uFD30\?\\u1DF0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2341\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐡤\x{ABED}。\x{0634}\x{0645}򜖅\x{1DF0}", %p)}, undef, "to_ascii\(\'𐡤\\uABED\。\\u0634\\u0645\?\\u1DF0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2342\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝉃\x{200D}⒈｡Ⴌ𞱓", %p)}, undef, "to_ascii\(\'𝉃\\u200D⒈｡Ⴌ\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2344\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝉃\x{200D}1.。Ⴌ𞱓", %p)}, undef, "to_ascii\(\'𝉃\\u200D1\.\。Ⴌ\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2346\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝉃\x{200D}1.。ⴌ𞱓", %p)}, undef, "to_ascii\(\'𝉃\\u200D1\.\。ⴌ\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2348\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝉃\x{200D}⒈｡ⴌ𞱓", %p)}, undef, "to_ascii\(\'𝉃\\u200D⒈｡ⴌ\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2350\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠣙\x{0A4D}𱫘𞤸.ς񵯞􈰔", %p)}, undef, "to_ascii\(\'\?\\u0A4D\?\?\.ς\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2351\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠣙\x{0A4D}𱫘𞤸.Σ񵯞􈰔", %p)}, undef, "to_ascii\(\'\?\\u0A4D\?\?\.Σ\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2352\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠣙\x{0A4D}𱫘𞤸.σ񵯞􈰔", %p)}, undef, "to_ascii\(\'\?\\u0A4D\?\?\.σ\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2353\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07D3}。\x{200C}𐫀򞭱", %p)}, undef, "to_ascii\(\'\\u07D3\。\\u200C𐫀\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2355\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{1C2E}𞀝.\x{05A6}ꡟ𞤕󠆖", %p)}, undef, "to_ascii\(\'\\u1C2E\?\.\\u05A6ꡟ\?\󠆖\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2356\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("䂹󾖅𐋦．\x{200D}", %p)}, undef, "to_ascii\(\'䂹\?𐋦．\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2358\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䂹󾖅𐋦.\x{200D}", %p)}, undef, "to_ascii\(\'䂹\?𐋦\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2360\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9C0}\x{200C}𐹲\x{200C}｡\x{0767}🄉", %p)}, undef, "to_ascii\(\'\\uA9C0\\u200C𐹲\\u200C｡\\u0767🄉\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2362\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9C0}\x{200C}𐹲\x{200C}。\x{0767}8,", %p)}, undef, "to_ascii\(\'\\uA9C0\\u200C𐹲\\u200C\。\\u07678\,\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ B3\ \[data\/IdnaTest\.txt\:2364\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒｡Ⴃ≯", %p)}, undef, "to_ascii\(\'︒｡Ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2365\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒｡Ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'︒｡Ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2366\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。。Ⴃ≯", %p)}, undef, "to_ascii\(\'\。\。Ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2367\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。。Ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'\。\。Ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2368\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。。ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'\。\。ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2369\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。。ⴃ≯", %p)}, undef, "to_ascii\(\'\。\。ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2370\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒｡ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'︒｡ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2371\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒｡ⴃ≯", %p)}, undef, "to_ascii\(\'︒｡ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2372\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹮｡󠢼\x{200D}", %p)}, undef, "to_ascii\(\'𐹮｡\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2374\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹮。󠢼\x{200D}", %p)}, undef, "to_ascii\(\'𐹮\。\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2376\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴞ𐹨｡︒\x{077D}\x{200D}Ⴏ", %p)}, undef, "to_ascii\(\'Ⴞ𐹨｡︒\\u077D\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ C2\ \[data\/IdnaTest\.txt\:2378\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴞ𐹨。。\x{077D}\x{200D}Ⴏ", %p)}, undef, "to_ascii\(\'Ⴞ𐹨\。\。\\u077D\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ A4_2\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2380\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴞ𐹨。。\x{077D}\x{200D}ⴏ", %p)}, undef, "to_ascii\(\'ⴞ𐹨\。\。\\u077D\\u200Dⴏ\'\)\ throws\ error\ B5\ B6\ A4_2\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2382\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ⴞ𐹨｡︒\x{077D}\x{200D}ⴏ", %p)}, undef, "to_ascii\(\'ⴞ𐹨｡︒\\u077D\\u200Dⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ C2\ \[data\/IdnaTest\.txt\:2384\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴆ𝟹。-\x{20D2}-\x{07D1}", %p)}, undef, "to_ascii\(\'\\u200CႦ𝟹\。\-\\u20D2\-\\u07D1\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2386\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴆ3。-\x{20D2}-\x{07D1}", %p)}, undef, "to_ascii\(\'\\u200CႦ3\。\-\\u20D2\-\\u07D1\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2388\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{200C}ⴆ3。-\x{20D2}-\x{07D1}", %p)}, undef, "to_ascii\(\'\\u200Cⴆ3\。\-\\u20D2\-\\u07D1\'\)\ throws\ error\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2390\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{200C}ⴆ𝟹。-\x{20D2}-\x{07D1}", %p)}, undef, "to_ascii\(\'\\u200Cⴆ𝟹\。\-\\u20D2\-\\u07D1\'\)\ throws\ error\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2392\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("箃Ⴡ-󠁝｡≠-🤖", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\?｡\≠\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2393\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("箃Ⴡ-󠁝｡=\x{0338}-🤖", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\?｡\=\\u0338\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2394\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("箃Ⴡ-󠁝。≠-🤖", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\?\。\≠\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2395\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("箃Ⴡ-󠁝。=\x{0338}-🤖", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\?\。\=\\u0338\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2396\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("箃ⴡ-󠁝。=\x{0338}-🤖", %p)}, undef, "to_ascii\(\'箃ⴡ\-\?\。\=\\u0338\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2397\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("箃ⴡ-󠁝。≠-🤖", %p)}, undef, "to_ascii\(\'箃ⴡ\-\?\。\≠\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2398\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("箃ⴡ-󠁝｡=\x{0338}-🤖", %p)}, undef, "to_ascii\(\'箃ⴡ\-\?｡\=\\u0338\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2399\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("箃ⴡ-󠁝｡≠-🤖", %p)}, undef, "to_ascii\(\'箃ⴡ\-\?｡\≠\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2400\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{07E5}.\x{06B5}", %p)}, "xn--dtb.xn--okb", "to_ascii\(\'\\u07E5\.\\u06B5\'\)\ \[data\/IdnaTest\.txt\:2401\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("xn--dtb.xn--okb", %p)}, "xn--dtb.xn--okb", "to_ascii\(\'xn\-\-dtb\.xn\-\-okb\'\)\ \[data\/IdnaTest\.txt\:2402\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{200C}\x{200D}.𞤿", %p)}, undef, "to_ascii\(\'\\u200C\\u200D\.\?\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:2404\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--3e6h", %p)}, "xn--3e6h", "to_ascii\(\'xn\-\-3e6h\'\)\ \[data\/IdnaTest\.txt\:2405\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤿", %p)}, "xn--3e6h", "to_ascii\(\'\?\'\)\ \[data\/IdnaTest\.txt\:2406\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("🜑𐹧\x{0639}.ς𑍍蜹", %p)}, undef, "to_ascii\(\'🜑𐹧\\u0639\.ς𑍍蜹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2407\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("🜑𐹧\x{0639}.Σ𑍍蜹", %p)}, undef, "to_ascii\(\'🜑𐹧\\u0639\.Σ𑍍蜹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2408\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("🜑𐹧\x{0639}.σ𑍍蜹", %p)}, undef, "to_ascii\(\'🜑𐹧\\u0639\.σ𑍍蜹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2409\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򫠐ス􆟤\x{0669}．󚃟", %p)}, undef, "to_ascii\(\'\?ス\?\\u0669．\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2410\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򫠐ス􆟤\x{0669}.󚃟", %p)}, undef, "to_ascii\(\'\?ス\?\\u0669\.\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2411\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝪣򕡝．\x{059A}\x{D850}\x{06C2}", %p)}, undef, "to_ascii\(\'𝪣\?．\\u059A\\uD850\\u06C2\'\)\ throws\ error\ P1\ V5\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2412\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝪣򕡝．\x{059A}\x{D850}\x{06C1}\x{0654}", %p)}, undef, "to_ascii\(\'𝪣\?．\\u059A\\uD850\\u06C1\\u0654\'\)\ throws\ error\ P1\ V5\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2413\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝪣򕡝.\x{059A}\x{D850}\x{06C2}", %p)}, undef, "to_ascii\(\'𝪣\?\.\\u059A\\uD850\\u06C2\'\)\ throws\ error\ P1\ V5\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2414\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝪣򕡝.\x{059A}\x{D850}\x{06C1}\x{0654}", %p)}, undef, "to_ascii\(\'𝪣\?\.\\u059A\\uD850\\u06C1\\u0654\'\)\ throws\ error\ P1\ V5\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2415\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0660}򪓵\x{200C}。\x{0757}", %p)}, undef, "to_ascii\(\'\\u0660\?\\u200C\。\\u0757\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2417\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{103A}\x{200D}\x{200C}。-\x{200C}", %p)}, undef, "to_ascii\(\'\\u103A\\u200D\\u200C\。\-\\u200C\'\)\ throws\ error\ V5\ V3\ C1\ \[data\/IdnaTest\.txt\:2419\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("︒｡\x{1B44}ᡉ", %p)}, undef, "to_ascii\(\'︒｡\\u1B44ᡉ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2420\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("。。\x{1B44}ᡉ", %p)}, undef, "to_ascii\(\'\。\。\\u1B44ᡉ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2421\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0758}ß。ጫᢊ\x{0768}𝟐", %p)}, undef, "to_ascii\(\'\\u0758ß\。ጫᢊ\\u0768𝟐\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2422\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0758}ß。ጫᢊ\x{0768}2", %p)}, undef, "to_ascii\(\'\\u0758ß\。ጫᢊ\\u07682\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2423\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0758}SS。ጫᢊ\x{0768}2", %p)}, undef, "to_ascii\(\'\\u0758SS\。ጫᢊ\\u07682\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2424\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0758}ss。ጫᢊ\x{0768}2", %p)}, undef, "to_ascii\(\'\\u0758ss\。ጫᢊ\\u07682\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2425\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0758}Ss。ጫᢊ\x{0768}2", %p)}, undef, "to_ascii\(\'\\u0758Ss\。ጫᢊ\\u07682\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2426\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0758}SS。ጫᢊ\x{0768}𝟐", %p)}, undef, "to_ascii\(\'\\u0758SS\。ጫᢊ\\u0768𝟐\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2427\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0758}ss。ጫᢊ\x{0768}𝟐", %p)}, undef, "to_ascii\(\'\\u0758ss\。ጫᢊ\\u0768𝟐\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2428\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0758}Ss。ጫᢊ\x{0768}𝟐", %p)}, undef, "to_ascii\(\'\\u0758Ss\。ጫᢊ\\u0768𝟐\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2429\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{07C3}𞶇ᚲ.\x{0902}\x{0353}𝟚\x{09CD}", %p)}, undef, "to_ascii\(\'\\u07C3\?ᚲ\.\\u0902\\u0353𝟚\\u09CD\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2430\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07C3}𞶇ᚲ.\x{0902}\x{0353}2\x{09CD}", %p)}, undef, "to_ascii\(\'\\u07C3\?ᚲ\.\\u0902\\u03532\\u09CD\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2431\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{1BAB}︒\x{200D}.񒶈񥹓", %p)}, undef, "to_ascii\(\'\-\\u1BAB︒\\u200D\.\?\?\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2433\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{1BAB}。\x{200D}.񒶈񥹓", %p)}, undef, "to_ascii\(\'\-\\u1BAB\。\\u200D\.\?\?\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2435\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠦮.≯𞀆", %p)}, undef, "to_ascii\(\'\?\.\≯\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2436\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠦮.>\x{0338}𞀆", %p)}, undef, "to_ascii\(\'\?\.\>\\u0338\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2437\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𑄳󠊗𐹩。𞮱", %p)}, undef, "to_ascii\(\'\-𑄳\?𐹩\。\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2438\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06B9}．ᡳ\x{115F}", %p)}, undef, "to_ascii\(\'\\u06B9．ᡳ\\u115F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2439\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06B9}.ᡳ\x{115F}", %p)}, undef, "to_ascii\(\'\\u06B9\.ᡳ\\u115F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2440\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㨛𘱎.︒𝟕\x{0D01}", %p)}, undef, "to_ascii\(\'㨛\?\.︒𝟕\\u0D01\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2441\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㨛𘱎.。7\x{0D01}", %p)}, undef, "to_ascii\(\'㨛\?\.\。7\\u0D01\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2442\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06DD}𻱧-｡𞷁\x{2064}𞤣≮", %p)}, undef, "to_ascii\(\'\\u06DD\?\-｡\?\\u2064\?\≮\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2443\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06DD}𻱧-｡𞷁\x{2064}𞤣<\x{0338}", %p)}, undef, "to_ascii\(\'\\u06DD\?\-｡\?\\u2064\?\<\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2444\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06DD}𻱧-。𞷁\x{2064}𞤣≮", %p)}, undef, "to_ascii\(\'\\u06DD\?\-\。\?\\u2064\?\≮\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2445\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06DD}𻱧-。𞷁\x{2064}𞤣<\x{0338}", %p)}, undef, "to_ascii\(\'\\u06DD\?\-\。\?\\u2064\?\<\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2446\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß\x{200C}\x{AAF6}ᢥ．⊶ჁႶ", %p)}, undef, "to_ascii\(\'ß\\u200C\\uAAF6ᢥ．\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2448\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß\x{200C}\x{AAF6}ᢥ.⊶ჁႶ", %p)}, undef, "to_ascii\(\'ß\\u200C\\uAAF6ᢥ\.\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2450\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ß\x{200C}\x{AAF6}ᢥ.⊶ⴡⴖ", %p)}, undef, "to_ascii\(\'ß\\u200C\\uAAF6ᢥ\.\⊶ⴡⴖ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2452\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("SS\x{200C}\x{AAF6}ᢥ.⊶ჁႶ", %p)}, undef, "to_ascii\(\'SS\\u200C\\uAAF6ᢥ\.\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2454\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ss\x{200C}\x{AAF6}ᢥ.⊶ⴡⴖ", %p)}, undef, "to_ascii\(\'ss\\u200C\\uAAF6ᢥ\.\⊶ⴡⴖ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2456\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ss\x{200C}\x{AAF6}ᢥ.⊶Ⴡⴖ", %p)}, undef, "to_ascii\(\'Ss\\u200C\\uAAF6ᢥ\.\⊶Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2458\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("xn--ss-4epx629f.xn--ifh802b6a", %p)}, "xn--ss-4epx629f.xn--ifh802b6a", "to_ascii\(\'xn\-\-ss\-4epx629f\.xn\-\-ifh802b6a\'\)\ \[data\/IdnaTest\.txt\:2459\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ss\x{AAF6}ᢥ.⊶ⴡⴖ", %p)}, "xn--ss-4epx629f.xn--ifh802b6a", "to_ascii\(\'ss\\uAAF6ᢥ\.\⊶ⴡⴖ\'\)\ \[data\/IdnaTest\.txt\:2460\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("SS\x{AAF6}ᢥ.⊶ჁႶ", %p)}, undef, "to_ascii\(\'SS\\uAAF6ᢥ\.\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2461\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss\x{AAF6}ᢥ.⊶Ⴡⴖ", %p)}, undef, "to_ascii\(\'Ss\\uAAF6ᢥ\.\⊶Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2462\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ß\x{200C}\x{AAF6}ᢥ．⊶ⴡⴖ", %p)}, undef, "to_ascii\(\'ß\\u200C\\uAAF6ᢥ．\⊶ⴡⴖ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2464\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("SS\x{200C}\x{AAF6}ᢥ．⊶ჁႶ", %p)}, undef, "to_ascii\(\'SS\\u200C\\uAAF6ᢥ．\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2466\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ss\x{200C}\x{AAF6}ᢥ．⊶ⴡⴖ", %p)}, undef, "to_ascii\(\'ss\\u200C\\uAAF6ᢥ．\⊶ⴡⴖ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2468\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ss\x{200C}\x{AAF6}ᢥ．⊶Ⴡⴖ", %p)}, undef, "to_ascii\(\'Ss\\u200C\\uAAF6ᢥ．\⊶Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2470\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。ς󠁉", %p)}, undef, "to_ascii\(\'\\u200D\。ς\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2472\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。Σ󠁉", %p)}, undef, "to_ascii\(\'\\u200D\。Σ\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2474\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。σ󠁉", %p)}, undef, "to_ascii\(\'\\u200D\。σ\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2476\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞵑ß.\x{0751}\x{200D}𞤛-", %p)}, undef, "to_ascii\(\'\?ß\.\\u0751\\u200D\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2478\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞵑SS.\x{0751}\x{200D}𞤛-", %p)}, undef, "to_ascii\(\'\?SS\.\\u0751\\u200D\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2480\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞵑ss.\x{0751}\x{200D}𞤛-", %p)}, undef, "to_ascii\(\'\?ss\.\\u0751\\u200D\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2482\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞵑Ss.\x{0751}\x{200D}𞤛-", %p)}, undef, "to_ascii\(\'\?Ss\.\\u0751\\u200D\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2484\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑘽\x{200D}𞤧．𐹧󡦪-", %p)}, undef, "to_ascii\(\'𑘽\\u200D\?．𐹧\?\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2486\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑘽\x{200D}𞤧.𐹧󡦪-", %p)}, undef, "to_ascii\(\'𑘽\\u200D\?\.𐹧\?\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2488\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒒򨘙򳳠𑓀.-󞡊", %p)}, undef, "to_ascii\(\'⒒\?\?𑓀\.\-\?\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2489\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("11.򨘙򳳠𑓀.-󞡊", %p)}, undef, "to_ascii\(\'11\.\?\?𑓀\.\-\?\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2490\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-｡\x{200D}", %p)}, undef, "to_ascii\(\'\-｡\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2492\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-。\x{200D}", %p)}, undef, "to_ascii\(\'\-\。\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2494\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮ᡬ．ς¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᡬ．ς¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2495\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}ᡬ．ς¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᡬ．ς¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2496\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮ᡬ.ς1-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᡬ\.ς1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2497\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}ᡬ.ς1-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᡬ\.ς1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2498\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}ᡬ.Σ1-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᡬ\.Σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2499\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮ᡬ.Σ1-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᡬ\.Σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2500\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮ᡬ.σ1-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᡬ\.σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2501\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}ᡬ.σ1-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᡬ\.σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2502\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}ᡬ．Σ¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᡬ．Σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2503\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮ᡬ．Σ¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᡬ．Σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2504\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮ᡬ．σ¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᡬ．σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2505\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}ᡬ．σ¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᡬ．σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2506\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ቬ򔠼񁗶｡𐨬𝟠", %p)}, undef, "to_ascii\(\'ቬ\?\?｡𐨬𝟠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2507\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ቬ򔠼񁗶。𐨬8", %p)}, undef, "to_ascii\(\'ቬ\?\?\。𐨬8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2508\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐱲。蔫\x{0766}", %p)}, undef, "to_ascii\(\'\?\。蔫\\u0766\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2509\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򒲧₃｡ꡚ𛇑󠄳\x{0647}", %p)}, undef, "to_ascii\(\'\?₃｡ꡚ\?\󠄳\\u0647\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2510\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򒲧3。ꡚ𛇑󠄳\x{0647}", %p)}, undef, "to_ascii\(\'\?3\。ꡚ\?\󠄳\\u0647\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2511\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("蓸\x{0642}≠.ß", %p)}, undef, "to_ascii\(\'蓸\\u0642\≠\.ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2512\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("蓸\x{0642}=\x{0338}.ß", %p)}, undef, "to_ascii\(\'蓸\\u0642\=\\u0338\.ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2513\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("蓸\x{0642}=\x{0338}.SS", %p)}, undef, "to_ascii\(\'蓸\\u0642\=\\u0338\.SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2514\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("蓸\x{0642}≠.SS", %p)}, undef, "to_ascii\(\'蓸\\u0642\≠\.SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2515\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{084E}\x{067A}\x{0DD3}⒊.𐹹𞱩󠃪\x{200C}", %p)}, undef, "to_ascii\(\'\\u084E\\u067A\\u0DD3⒊\.𐹹\?\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2517\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{084E}\x{067A}\x{0DD3}3..𐹹𞱩󠃪\x{200C}", %p)}, undef, "to_ascii\(\'\\u084E\\u067A\\u0DD33\.\.𐹹\?\?\\u200C\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ C1\ \[data\/IdnaTest\.txt\:2519\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς\x{200D}-.Ⴣ𦟙", %p)}, undef, "to_ascii\(\'ς\\u200D\-\.Ⴣ𦟙\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2521\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ς\x{200D}-.ⴣ𦟙", %p)}, undef, "to_ascii\(\'ς\\u200D\-\.ⴣ𦟙\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2523\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Σ\x{200D}-.Ⴣ𦟙", %p)}, undef, "to_ascii\(\'Σ\\u200D\-\.Ⴣ𦟙\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2525\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("σ\x{200D}-.ⴣ𦟙", %p)}, undef, "to_ascii\(\'σ\\u200D\-\.ⴣ𦟙\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2527\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("≠。🞳𝟲", %p)}, undef, "to_ascii\(\'\≠\。🞳𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2528\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}。🞳𝟲", %p)}, undef, "to_ascii\(\'\=\\u0338\。🞳𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2529\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠。🞳6", %p)}, undef, "to_ascii\(\'\≠\。🞳6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2530\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}。🞳6", %p)}, undef, "to_ascii\(\'\=\\u0338\。🞳6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2531\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󅬽.蠔", %p)}, undef, "to_ascii\(\'\?\.蠔\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2532\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{08E6}\x{200D}．뼽", %p)}, undef, "to_ascii\(\'\\u08E6\\u200D．뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2534\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{08E6}\x{200D}．뼽", %p)}, undef, "to_ascii\(\'\\u08E6\\u200D．뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2536\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{08E6}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u08E6\\u200D\.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2538\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{08E6}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u08E6\\u200D\.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2540\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("₇\x{0BCD}􃂷\x{06D2}。👖\x{0675}-𞪑", %p)}, undef, "to_ascii\(\'₇\\u0BCD\?\\u06D2\。👖\\u0675\-\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2541\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("7\x{0BCD}􃂷\x{06D2}。👖\x{0627}\x{0674}-𞪑", %p)}, undef, "to_ascii\(\'7\\u0BCD\?\\u06D2\。👖\\u0627\\u0674\-\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2542\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("-｡\x{077B}", %p)}, undef, "to_ascii\(\'\-｡\\u077B\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2543\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("-。\x{077B}", %p)}, undef, "to_ascii\(\'\-\。\\u077B\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2544\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𑇌𵛓｡-⒈ꡏ\x{072B}", %p)}, undef, "to_ascii\(\'𑇌\?｡\-⒈ꡏ\\u072B\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2545\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑇌𵛓。-1.ꡏ\x{072B}", %p)}, undef, "to_ascii\(\'𑇌\?\。\-1\.ꡏ\\u072B\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2546\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("璛\x{1734}\x{06AF}.-", %p)}, undef, "to_ascii\(\'璛\\u1734\\u06AF\.\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2547\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("󠆰\x{08A1}\x{0A4D}샕．𐹲휁", %p)}, undef, "to_ascii\(\'\󠆰\\u08A1\\u0A4D샕．𐹲휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2548\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("󠆰\x{08A1}\x{0A4D}샕．𐹲휁", %p)}, undef, "to_ascii\(\'\󠆰\\u08A1\\u0A4D샕．𐹲휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2549\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("󠆰\x{08A1}\x{0A4D}샕.𐹲휁", %p)}, undef, "to_ascii\(\'\󠆰\\u08A1\\u0A4D샕\.𐹲휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2550\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("󠆰\x{08A1}\x{0A4D}샕.𐹲휁", %p)}, undef, "to_ascii\(\'\󠆰\\u08A1\\u0A4D샕\.𐹲휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2551\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񍨽．񋸕", %p)}, undef, "to_ascii\(\'\?．\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2552\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񍨽.񋸕", %p)}, undef, "to_ascii\(\'\?\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2553\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{067D}𞥕｡𑑂𞤶Ⴍ-", %p)}, undef, "to_ascii\(\'\\u067D\?｡\?\?Ⴍ\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2554\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{067D}𞥕。𑑂𞤶Ⴍ-", %p)}, undef, "to_ascii\(\'\\u067D\?\。\?\?Ⴍ\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2555\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{067D}𞥕。𑑂𞤶ⴍ-", %p)}, undef, "to_ascii\(\'\\u067D\?\。\?\?ⴍ\-\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2556\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{067D}𞥕｡𑑂𞤶ⴍ-", %p)}, undef, "to_ascii\(\'\\u067D\?｡\?\?ⴍ\-\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2557\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐯀𐸉𞧏。񢚧₄Ⴋ񂹫", %p)}, undef, "to_ascii\(\'\?\?\?\。\?₄Ⴋ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2558\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐯀𐸉𞧏。񢚧4Ⴋ񂹫", %p)}, undef, "to_ascii\(\'\?\?\?\。\?4Ⴋ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2559\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐯀𐸉𞧏。񢚧4ⴋ񂹫", %p)}, undef, "to_ascii\(\'\?\?\?\。\?4ⴋ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2560\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐯀𐸉𞧏。񢚧₄ⴋ񂹫", %p)}, undef, "to_ascii\(\'\?\?\?\。\?₄ⴋ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2561\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4\x{06BD}︒󠑥.≠", %p)}, undef, "to_ascii\(\'4\\u06BD︒\?\.\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2562\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4\x{06BD}︒󠑥.=\x{0338}", %p)}, undef, "to_ascii\(\'4\\u06BD︒\?\.\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2563\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4\x{06BD}。󠑥.≠", %p)}, undef, "to_ascii\(\'4\\u06BD\。\?\.\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2564\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4\x{06BD}。󠑥.=\x{0338}", %p)}, undef, "to_ascii\(\'4\\u06BD\。\?\.\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2565\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟓。\x{06D7}", %p)}, undef, "to_ascii\(\'𝟓\。\\u06D7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2566\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("5。\x{06D7}", %p)}, undef, "to_ascii\(\'5\。\\u06D7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2567\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}򺸩.⾕", %p)}, undef, "to_ascii\(\'\\u200C\?\.⾕\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2569\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}򺸩.谷", %p)}, undef, "to_ascii\(\'\\u200C\?\.谷\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2571\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒󎰇\x{200D}.-\x{073C}\x{200C}", %p)}, undef, "to_ascii\(\'︒\?\\u200D\.\-\\u073C\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:2573\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。󎰇\x{200D}.-\x{073C}\x{200C}", %p)}, undef, "to_ascii\(\'\。\?\\u200D\.\-\\u073C\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:2575\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯𞤟。ᡨ", %p)}, undef, "to_ascii\(\'\≯\?\。ᡨ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2576\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}𞤟。ᡨ", %p)}, undef, "to_ascii\(\'\>\\u0338\?\。ᡨ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2577\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("\x{0F74}𫫰𝨄。\x{0713}𐹦", %p)}, undef, "to_ascii\(\'\\u0F74𫫰𝨄\。\\u0713𐹦\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2578\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{033C}\x{07DB}⁷𝟹｡𝟬", %p)}, undef, "to_ascii\(\'\\u033C\\u07DB⁷𝟹｡𝟬\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2579\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{033C}\x{07DB}73。0", %p)}, undef, "to_ascii\(\'\\u033C\\u07DB73\。0\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2580\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}．𝟗", %p)}, undef, "to_ascii\(\'\\u200D．𝟗\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2582\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}.9", %p)}, undef, "to_ascii\(\'\\u200D\.9\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2584\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("9", %p)}, "9", "to_ascii\(\'9\'\)\ \[data\/IdnaTest\.txt\:2585\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{0779}ᡭ𪕈。\x{06B6}\x{08D9}", %p)}, undef, "to_ascii\(\'\\u0779ᡭ𪕈\。\\u06B6\\u08D9\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2586\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0726}５\x{07E2}겙。\x{1CF4}𐷚", %p)}, undef, "to_ascii\(\'\\u0726５\\u07E2겙\。\\u1CF4\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2587\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0726}５\x{07E2}겙。\x{1CF4}𐷚", %p)}, undef, "to_ascii\(\'\\u0726５\\u07E2겙\。\\u1CF4\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2588\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0726}5\x{07E2}겙。\x{1CF4}𐷚", %p)}, undef, "to_ascii\(\'\\u07265\\u07E2겙\。\\u1CF4\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2589\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0726}5\x{07E2}겙。\x{1CF4}𐷚", %p)}, undef, "to_ascii\(\'\\u07265\\u07E2겙\。\\u1CF4\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2590\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴍ𿣍ꡨ\x{05AE}。Ⴞ\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴍ\?ꡨ\\u05AE\。Ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2592\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴍ𿣍ꡨ\x{05AE}。ⴞ\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'ⴍ\?ꡨ\\u05AE\。ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2594\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐋰。󑓱", %p)}, undef, "to_ascii\(\'𐋰\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2595\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󡎦\x{17B4}\x{0B4D}.𐹾", %p)}, undef, "to_ascii\(\'\?\\u17B4\\u0B4D\.𐹾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2596\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08DF}Ⴋ𶿸귤．򠅼𝟢휪\x{0AE3}", %p)}, undef, "to_ascii\(\'\\u08DFႫ\?귤．\?𝟢휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2597\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08DF}Ⴋ𶿸귤．򠅼𝟢휪\x{0AE3}", %p)}, undef, "to_ascii\(\'\\u08DFႫ\?귤．\?𝟢휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2598\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08DF}Ⴋ𶿸귤.򠅼0휪\x{0AE3}", %p)}, undef, "to_ascii\(\'\\u08DFႫ\?귤\.\?0휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2599\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08DF}Ⴋ𶿸귤.򠅼0휪\x{0AE3}", %p)}, undef, "to_ascii\(\'\\u08DFႫ\?귤\.\?0휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2600\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08DF}ⴋ𶿸귤.򠅼0휪\x{0AE3}", %p)}, undef, "to_ascii\(\'\\u08DFⴋ\?귤\.\?0휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2601\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08DF}ⴋ𶿸귤.򠅼0휪\x{0AE3}", %p)}, undef, "to_ascii\(\'\\u08DFⴋ\?귤\.\?0휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2602\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08DF}ⴋ𶿸귤．򠅼𝟢휪\x{0AE3}", %p)}, undef, "to_ascii\(\'\\u08DFⴋ\?귤．\?𝟢휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2603\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08DF}ⴋ𶿸귤．򠅼𝟢휪\x{0AE3}", %p)}, undef, "to_ascii\(\'\\u08DFⴋ\?귤．\?𝟢휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2604\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0784}．𞡝\x{0601}", %p)}, undef, "to_ascii\(\'\\u0784．𞡝\\u0601\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2605\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0784}.𞡝\x{0601}", %p)}, undef, "to_ascii\(\'\\u0784\.𞡝\\u0601\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2606\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0ACD}₃.8\x{A8C4}\x{200D}🃤", %p)}, undef, "to_ascii\(\'\\u0ACD₃\.8\\uA8C4\\u200D🃤\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2607\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0ACD}3.8\x{A8C4}\x{200D}🃤", %p)}, undef, "to_ascii\(\'\\u0ACD3\.8\\uA8C4\\u200D🃤\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2608\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("℻⩷𝆆。𞤠󠆁\x{180C}", %p)}, "xn--fax-4c9a1676t.xn--6e6h", "to_ascii\(\'℻\⩷𝆆\。\?\󠆁\\u180C\'\)\ \[data\/IdnaTest\.txt\:2609\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("FAX⩷𝆆。𞤠󠆁\x{180C}", %p)}, "xn--fax-4c9a1676t.xn--6e6h", "to_ascii\(\'FAX\⩷𝆆\。\?\󠆁\\u180C\'\)\ \[data\/IdnaTest\.txt\:2610\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("fax⩷𝆆。𞤠󠆁\x{180C}", %p)}, "xn--fax-4c9a1676t.xn--6e6h", "to_ascii\(\'fax\⩷𝆆\。\?\󠆁\\u180C\'\)\ \[data\/IdnaTest\.txt\:2611\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("Fax⩷𝆆。𞤠󠆁\x{180C}", %p)}, "xn--fax-4c9a1676t.xn--6e6h", "to_ascii\(\'Fax\⩷𝆆\。\?\󠆁\\u180C\'\)\ \[data\/IdnaTest\.txt\:2612\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--fax-4c9a1676t.xn--6e6h", %p)}, "xn--fax-4c9a1676t.xn--6e6h", "to_ascii\(\'xn\-\-fax\-4c9a1676t\.xn\-\-6e6h\'\)\ \[data\/IdnaTest\.txt\:2613\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("fax⩷𝆆.𞥂", %p)}, "xn--fax-4c9a1676t.xn--6e6h", "to_ascii\(\'fax\⩷𝆆\.\?\'\)\ \[data\/IdnaTest\.txt\:2614\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("FAX⩷𝆆.𞥂", %p)}, "xn--fax-4c9a1676t.xn--6e6h", "to_ascii\(\'FAX\⩷𝆆\.\?\'\)\ \[data\/IdnaTest\.txt\:2615\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("Fax⩷𝆆.𞥂", %p)}, "xn--fax-4c9a1676t.xn--6e6h", "to_ascii\(\'Fax\⩷𝆆\.\?\'\)\ \[data\/IdnaTest\.txt\:2616\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ꡕ≠\x{105E}󮿱｡𐵧󠄫\x{FFA0}", %p)}, undef, "to_ascii\(\'ꡕ\≠\\u105E\?｡\?\󠄫\\uFFA0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2617\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡕ=\x{0338}\x{105E}󮿱｡𐵧󠄫\x{FFA0}", %p)}, undef, "to_ascii\(\'ꡕ\=\\u0338\\u105E\?｡\?\󠄫\\uFFA0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2618\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡕ≠\x{105E}󮿱。𐵧󠄫\x{1160}", %p)}, undef, "to_ascii\(\'ꡕ\≠\\u105E\?\。\?\󠄫\\u1160\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2619\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡕ=\x{0338}\x{105E}󮿱。𐵧󠄫\x{1160}", %p)}, undef, "to_ascii\(\'ꡕ\=\\u0338\\u105E\?\。\?\󠄫\\u1160\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2620\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("鱊。\x{200C}", %p)}, undef, "to_ascii\(\'鱊\。\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2622\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--rt6a.", %p)}, "xn--rt6a.", "to_ascii\(\'xn\-\-rt6a\.\'\)\ \[data\/IdnaTest\.txt\:2623\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("鱊.", %p)}, "xn--rt6a.", "to_ascii\(\'鱊\.\'\)\ \[data\/IdnaTest\.txt\:2624\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("8𐹣．𑍨", %p)}, undef, "to_ascii\(\'8𐹣．𑍨\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2625\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("8𐹣.𑍨", %p)}, undef, "to_ascii\(\'8𐹣\.𑍨\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2626\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("⏹𐧀．𐫯", %p)}, undef, "to_ascii\(\'\⏹𐧀．𐫯\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2627\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("⏹𐧀.𐫯", %p)}, undef, "to_ascii\(\'\⏹𐧀\.𐫯\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2628\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤺\x{07CC}4．\x{200D}", %p)}, undef, "to_ascii\(\'\?\\u07CC4．\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2630\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤺\x{07CC}4.\x{200D}", %p)}, undef, "to_ascii\(\'\?\\u07CC4\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2632\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--4-0bd15808a.", %p)}, "xn--4-0bd15808a.", "to_ascii\(\'xn\-\-4\-0bd15808a\.\'\)\ \[data\/IdnaTest\.txt\:2633\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤺\x{07CC}4.", %p)}, "xn--4-0bd15808a.", "to_ascii\(\'\?\\u07CC4\.\'\)\ \[data\/IdnaTest\.txt\:2634\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⒗\x{0981}\x{20EF}-.\x{08E2}•", %p)}, undef, "to_ascii\(\'⒗\\u0981\\u20EF\-\.\\u08E2\•\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2635\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("16.\x{0981}\x{20EF}-.\x{08E2}•", %p)}, undef, "to_ascii\(\'16\.\\u0981\\u20EF\-\.\\u08E2\•\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2636\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-｡䏛", %p)}, undef, "to_ascii\(\'\-｡䏛\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2637\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-。䏛", %p)}, undef, "to_ascii\(\'\-\。䏛\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2638\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}񒃠．\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\?．\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2640\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}񒃠.\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\?\.\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2642\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈⓰󥣇｡𐹠\x{200D}򗷦Ⴕ", %p)}, undef, "to_ascii\(\'⒈⓰\?｡𐹠\\u200D\?Ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2644\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.⓰󥣇。𐹠\x{200D}򗷦Ⴕ", %p)}, undef, "to_ascii\(\'1\.⓰\?\。𐹠\\u200D\?Ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2646\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.⓰󥣇。𐹠\x{200D}򗷦ⴕ", %p)}, undef, "to_ascii\(\'1\.⓰\?\。𐹠\\u200D\?ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2648\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈⓰󥣇｡𐹠\x{200D}򗷦ⴕ", %p)}, undef, "to_ascii\(\'⒈⓰\?｡𐹠\\u200D\?ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2650\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞠊ᠮ-ß｡\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_ascii\(\'𞠊ᠮ\-ß｡\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2651\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞠊ᠮ-ß。\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_ascii\(\'𞠊ᠮ\-ß\。\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2652\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞠊ᠮ-SS。\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_ascii\(\'𞠊ᠮ\-SS\。\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2653\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞠊ᠮ-ss。\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_ascii\(\'𞠊ᠮ\-ss\。\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2654\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞠊ᠮ-Ss。\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_ascii\(\'𞠊ᠮ\-Ss\。\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2655\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞠊ᠮ-SS｡\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_ascii\(\'𞠊ᠮ\-SS｡\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2656\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞠊ᠮ-ss｡\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_ascii\(\'𞠊ᠮ\-ss｡\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2657\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞠊ᠮ-Ss｡\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_ascii\(\'𞠊ᠮ\-Ss｡\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2658\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑇀.󠨱", %p)}, undef, "to_ascii\(\'𑇀\.\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2659\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("␒3\x{FB88}｡𝟘𐨿𐹆", %p)}, undef, "to_ascii\(\'\␒3\\uFB88｡𝟘𐨿\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2660\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("␒3\x{0688}。0𐨿𐹆", %p)}, undef, "to_ascii\(\'\␒3\\u0688\。0𐨿\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2661\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{076B}６\x{0A81}\x{08A6}。\x{1DE3}", %p)}, undef, "to_ascii\(\'\\u076B６\\u0A81\\u08A6\。\\u1DE3\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2662\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{076B}6\x{0A81}\x{08A6}。\x{1DE3}", %p)}, undef, "to_ascii\(\'\\u076B6\\u0A81\\u08A6\。\\u1DE3\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2663\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0605}-𽤞Ⴂ。򅤶\x{200D}", %p)}, undef, "to_ascii\(\'\\u0605\-\?Ⴂ\。\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2665\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0605}-𽤞ⴂ。򅤶\x{200D}", %p)}, undef, "to_ascii\(\'\\u0605\-\?ⴂ\。\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2667\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾆．ꡈ５≯ß", %p)}, undef, "to_ascii\(\'⾆．ꡈ５\≯ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2668\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾆．ꡈ５>\x{0338}ß", %p)}, undef, "to_ascii\(\'⾆．ꡈ５\>\\u0338ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2669\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("舌.ꡈ5≯ß", %p)}, undef, "to_ascii\(\'舌\.ꡈ5\≯ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2670\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("舌.ꡈ5>\x{0338}ß", %p)}, undef, "to_ascii\(\'舌\.ꡈ5\>\\u0338ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2671\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("舌.ꡈ5>\x{0338}SS", %p)}, undef, "to_ascii\(\'舌\.ꡈ5\>\\u0338SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2672\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("舌.ꡈ5≯SS", %p)}, undef, "to_ascii\(\'舌\.ꡈ5\≯SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2673\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("舌.ꡈ5≯ss", %p)}, undef, "to_ascii\(\'舌\.ꡈ5\≯ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2674\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("舌.ꡈ5>\x{0338}ss", %p)}, undef, "to_ascii\(\'舌\.ꡈ5\>\\u0338ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2675\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("舌.ꡈ5>\x{0338}Ss", %p)}, undef, "to_ascii\(\'舌\.ꡈ5\>\\u0338Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2676\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("舌.ꡈ5≯Ss", %p)}, undef, "to_ascii\(\'舌\.ꡈ5\≯Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2677\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾆．ꡈ５>\x{0338}SS", %p)}, undef, "to_ascii\(\'⾆．ꡈ５\>\\u0338SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2678\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾆．ꡈ５≯SS", %p)}, undef, "to_ascii\(\'⾆．ꡈ５\≯SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2679\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾆．ꡈ５≯ss", %p)}, undef, "to_ascii\(\'⾆．ꡈ５\≯ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2680\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾆．ꡈ５>\x{0338}ss", %p)}, undef, "to_ascii\(\'⾆．ꡈ５\>\\u0338ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2681\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾆．ꡈ５>\x{0338}Ss", %p)}, undef, "to_ascii\(\'⾆．ꡈ５\>\\u0338Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2682\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾆．ꡈ５≯Ss", %p)}, undef, "to_ascii\(\'⾆．ꡈ５\≯Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2683\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0ACD}8\x{200D}．򾂈\x{075C}", %p)}, undef, "to_ascii\(\'\\u0ACD8\\u200D．\?\\u075C\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2685\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0ACD}8\x{200D}.򾂈\x{075C}", %p)}, undef, "to_ascii\(\'\\u0ACD8\\u200D\.\?\\u075C\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2687\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򸷆\x{0A70}≮򹓙．񞎧⁷󠯙\x{06B6}", %p)}, undef, "to_ascii\(\'\?\\u0A70\≮\?．\?⁷\?\\u06B6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2688\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򸷆\x{0A70}<\x{0338}򹓙．񞎧⁷󠯙\x{06B6}", %p)}, undef, "to_ascii\(\'\?\\u0A70\<\\u0338\?．\?⁷\?\\u06B6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2689\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򸷆\x{0A70}≮򹓙.񞎧7󠯙\x{06B6}", %p)}, undef, "to_ascii\(\'\?\\u0A70\≮\?\.\?7\?\\u06B6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2690\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򸷆\x{0A70}<\x{0338}򹓙.񞎧7󠯙\x{06B6}", %p)}, undef, "to_ascii\(\'\?\\u0A70\<\\u0338\?\.\?7\?\\u06B6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2691\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤪.ς", %p)}, "xn--ie6h.xn--3xa", "to_ascii\(\'\?\.ς\'\)\ \[data\/IdnaTest\.txt\:2693\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤪.Σ", %p)}, "xn--ie6h.xn--4xa", "to_ascii\(\'\?\.Σ\'\)\ \[data\/IdnaTest\.txt\:2694\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤪.σ", %p)}, "xn--ie6h.xn--4xa", "to_ascii\(\'\?\.σ\'\)\ \[data\/IdnaTest\.txt\:2695\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--ie6h.xn--4xa", %p)}, "xn--ie6h.xn--4xa", "to_ascii\(\'xn\-\-ie6h\.xn\-\-4xa\'\)\ \[data\/IdnaTest\.txt\:2696\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--ie6h.xn--3xa", %p)}, "xn--ie6h.xn--3xa", "to_ascii\(\'xn\-\-ie6h\.xn\-\-3xa\'\)\ \[data\/IdnaTest\.txt\:2697\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}Ⴚ｡ς", %p)}, undef, "to_ascii\(\'\\u200CႺ｡ς\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2699\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴚ。ς", %p)}, undef, "to_ascii\(\'\\u200CႺ\。ς\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2701\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200C}ⴚ。ς", %p)}, undef, "to_ascii\(\'\\u200Cⴚ\。ς\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2703\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}Ⴚ。Σ", %p)}, undef, "to_ascii\(\'\\u200CႺ\。Σ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2705\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200C}ⴚ。σ", %p)}, undef, "to_ascii\(\'\\u200Cⴚ\。σ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2707\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--ilj.xn--4xa", %p)}, "xn--ilj.xn--4xa", "to_ascii\(\'xn\-\-ilj\.xn\-\-4xa\'\)\ \[data\/IdnaTest\.txt\:2708\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴚ.σ", %p)}, "xn--ilj.xn--4xa", "to_ascii\(\'ⴚ\.σ\'\)\ \[data\/IdnaTest\.txt\:2709\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴚ.Σ", %p)}, undef, "to_ascii\(\'Ⴚ\.Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2710\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴚ.ς", %p)}, "xn--ilj.xn--3xa", "to_ascii\(\'ⴚ\.ς\'\)\ \[data\/IdnaTest\.txt\:2712\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴚ.ς", %p)}, undef, "to_ascii\(\'Ⴚ\.ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2713\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--ilj.xn--3xa", %p)}, "xn--ilj.xn--3xa", "to_ascii\(\'xn\-\-ilj\.xn\-\-3xa\'\)\ \[data\/IdnaTest\.txt\:2714\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴚ.σ", %p)}, undef, "to_ascii\(\'Ⴚ\.σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2715\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200C}ⴚ｡ς", %p)}, undef, "to_ascii\(\'\\u200Cⴚ｡ς\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2717\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}Ⴚ｡Σ", %p)}, undef, "to_ascii\(\'\\u200CႺ｡Σ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2719\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200C}ⴚ｡σ", %p)}, undef, "to_ascii\(\'\\u200Cⴚ｡σ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2721\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤃．𐹦", %p)}, undef, "to_ascii\(\'\?．𐹦\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2722\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤃.𐹦", %p)}, undef, "to_ascii\(\'\?\.𐹦\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2723\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}⾕。\x{200C}\x{0310}\x{A953}ꡎ", %p)}, undef, "to_ascii\(\'\\u200D⾕\。\\u200C\\u0310\\uA953ꡎ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2725\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}⾕。\x{200C}\x{A953}\x{0310}ꡎ", %p)}, undef, "to_ascii\(\'\\u200D⾕\。\\u200C\\uA953\\u0310ꡎ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2727\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}谷。\x{200C}\x{A953}\x{0310}ꡎ", %p)}, undef, "to_ascii\(\'\\u200D谷\。\\u200C\\uA953\\u0310ꡎ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2729\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{06AA}-뉔．𞤐\x{200C}", %p)}, undef, "to_ascii\(\'\\u06AA\-뉔．\?\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2731\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{06AA}-뉔．𞤐\x{200C}", %p)}, undef, "to_ascii\(\'\\u06AA\-뉔．\?\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2733\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{06AA}-뉔.𞤐\x{200C}", %p)}, undef, "to_ascii\(\'\\u06AA\-뉔\.\?\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2735\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{06AA}-뉔.𞤐\x{200C}", %p)}, undef, "to_ascii\(\'\\u06AA\-뉔\.\?\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2737\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񔲵５ᦛς.\x{A8C4}\x{077B}\x{1CD2}\x{0738}", %p)}, undef, "to_ascii\(\'\?５ᦛς\.\\uA8C4\\u077B\\u1CD2\\u0738\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2738\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񔲵５ᦛς.\x{A8C4}\x{077B}\x{0738}\x{1CD2}", %p)}, undef, "to_ascii\(\'\?５ᦛς\.\\uA8C4\\u077B\\u0738\\u1CD2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2739\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񔲵5ᦛς.\x{A8C4}\x{077B}\x{0738}\x{1CD2}", %p)}, undef, "to_ascii\(\'\?5ᦛς\.\\uA8C4\\u077B\\u0738\\u1CD2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2740\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񔲵5ᦛΣ.\x{A8C4}\x{077B}\x{0738}\x{1CD2}", %p)}, undef, "to_ascii\(\'\?5ᦛΣ\.\\uA8C4\\u077B\\u0738\\u1CD2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2741\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񔲵5ᦛσ.\x{A8C4}\x{077B}\x{0738}\x{1CD2}", %p)}, undef, "to_ascii\(\'\?5ᦛσ\.\\uA8C4\\u077B\\u0738\\u1CD2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2742\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񔲵５ᦛΣ.\x{A8C4}\x{077B}\x{0738}\x{1CD2}", %p)}, undef, "to_ascii\(\'\?５ᦛΣ\.\\uA8C4\\u077B\\u0738\\u1CD2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2743\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񔲵５ᦛσ.\x{A8C4}\x{077B}\x{0738}\x{1CD2}", %p)}, undef, "to_ascii\(\'\?５ᦛσ\.\\uA8C4\\u077B\\u0738\\u1CD2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2744\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񔲵５ᦛΣ.\x{A8C4}\x{077B}\x{1CD2}\x{0738}", %p)}, undef, "to_ascii\(\'\?５ᦛΣ\.\\uA8C4\\u077B\\u1CD2\\u0738\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2745\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񔲵５ᦛσ.\x{A8C4}\x{077B}\x{1CD2}\x{0738}", %p)}, undef, "to_ascii\(\'\?５ᦛσ\.\\uA8C4\\u077B\\u1CD2\\u0738\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2746\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("淽。ᠾ", %p)}, "xn--34w.xn--x7e", "to_ascii\(\'淽\。ᠾ\'\)\ \[data\/IdnaTest\.txt\:2747\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--34w.xn--x7e", %p)}, "xn--34w.xn--x7e", "to_ascii\(\'xn\-\-34w\.xn\-\-x7e\'\)\ \[data\/IdnaTest\.txt\:2748\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("淽.ᠾ", %p)}, "xn--34w.xn--x7e", "to_ascii\(\'淽\.ᠾ\'\)\ \[data\/IdnaTest\.txt\:2749\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐹴𑘷。-", %p)}, undef, "to_ascii\(\'𐹴𑘷\。\-\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2750\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򬨩Ⴓ❓｡𑄨", %p)}, undef, "to_ascii\(\'\?Ⴓ\❓｡𑄨\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2751\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򬨩Ⴓ❓。𑄨", %p)}, undef, "to_ascii\(\'\?Ⴓ\❓\。𑄨\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2752\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򬨩ⴓ❓。𑄨", %p)}, undef, "to_ascii\(\'\?ⴓ\❓\。𑄨\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2753\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򬨩ⴓ❓｡𑄨", %p)}, undef, "to_ascii\(\'\?ⴓ\❓｡𑄨\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2754\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𐹡𞤌Ⴇ｡ßႣ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?Ⴇ｡ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2756\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𐹡𞤌Ⴇ。ßႣ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?Ⴇ\。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2758\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{200C}𐹡𞤌ⴇ。ßⴃ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?ⴇ\。ßⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2760\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}𐹡𞤌Ⴇ。SSႣ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?Ⴇ\。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2762\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{200C}𐹡𞤌ⴇ。ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?ⴇ\。ssⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2764\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}𐹡𞤌Ⴇ。Ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?Ⴇ\。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2766\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{200C}𐹡𞤌ⴇ｡ßⴃ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?ⴇ｡ßⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2768\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}𐹡𞤌Ⴇ｡SSႣ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?Ⴇ｡SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2770\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{200C}𐹡𞤌ⴇ｡ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?ⴇ｡ssⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2772\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}𐹡𞤌Ⴇ｡Ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C𐹡\?Ⴇ｡Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2774\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17FF}｡𞬳", %p)}, undef, "to_ascii\(\'\\u17FF｡\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2775\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17FF}。𞬳", %p)}, undef, "to_ascii\(\'\\u17FF\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2776\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{0652}\x{200D}｡\x{0CCD}𑚳", %p)}, undef, "to_ascii\(\'\\u0652\\u200D｡\\u0CCD𑚳\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2778\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{0652}\x{200D}。\x{0CCD}𑚳", %p)}, undef, "to_ascii\(\'\\u0652\\u200D\。\\u0CCD𑚳\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2780\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-≠ᠻ．\x{076D}𞥃≮󟷺", %p)}, undef, "to_ascii\(\'\-\≠ᠻ．\\u076D\?\≮\?\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2781\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-=\x{0338}ᠻ．\x{076D}𞥃<\x{0338}󟷺", %p)}, undef, "to_ascii\(\'\-\=\\u0338ᠻ．\\u076D\?\<\\u0338\?\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2782\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-≠ᠻ.\x{076D}𞥃≮󟷺", %p)}, undef, "to_ascii\(\'\-\≠ᠻ\.\\u076D\?\≮\?\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2783\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-=\x{0338}ᠻ.\x{076D}𞥃<\x{0338}󟷺", %p)}, undef, "to_ascii\(\'\-\=\\u0338ᠻ\.\\u076D\?\<\\u0338\?\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2784\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠰆≯\x{07B5}𐻪．򊥕≮𑁆\x{084C}", %p)}, undef, "to_ascii\(\'\?\≯\\u07B5\?．\?\≮𑁆\\u084C\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2785\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠰆>\x{0338}\x{07B5}𐻪．򊥕<\x{0338}𑁆\x{084C}", %p)}, undef, "to_ascii\(\'\?\>\\u0338\\u07B5\?．\?\<\\u0338𑁆\\u084C\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2786\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠰆≯\x{07B5}𐻪.򊥕≮𑁆\x{084C}", %p)}, undef, "to_ascii\(\'\?\≯\\u07B5\?\.\?\≮𑁆\\u084C\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2787\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠰆>\x{0338}\x{07B5}𐻪.򊥕<\x{0338}𑁆\x{084C}", %p)}, undef, "to_ascii\(\'\?\>\\u0338\\u07B5\?\.\?\<\\u0338𑁆\\u084C\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2788\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠󦋂.\x{0600}\x{0BCD}-\x{06B9}", %p)}, undef, "to_ascii\(\'\≠\?\.\\u0600\\u0BCD\-\\u06B9\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2789\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}󦋂.\x{0600}\x{0BCD}-\x{06B9}", %p)}, undef, "to_ascii\(\'\=\\u0338\?\.\\u0600\\u0BCD\-\\u06B9\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2790\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17DD}󠁣≠｡𐹼𐋤", %p)}, undef, "to_ascii\(\'\\u17DD\?\≠｡𐹼𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2791\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17DD}󠁣=\x{0338}｡𐹼𐋤", %p)}, undef, "to_ascii\(\'\\u17DD\?\=\\u0338｡𐹼𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2792\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17DD}󠁣≠。𐹼𐋤", %p)}, undef, "to_ascii\(\'\\u17DD\?\≠\。𐹼𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2793\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17DD}󠁣=\x{0338}。𐹼𐋤", %p)}, undef, "to_ascii\(\'\\u17DD\?\=\\u0338\。𐹼𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2794\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß𰀻񆬗｡𝩨🕮ß", %p)}, undef, "to_ascii\(\'ß\?\?｡𝩨🕮ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2795\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß𰀻񆬗。𝩨🕮ß", %p)}, undef, "to_ascii\(\'ß\?\?\。𝩨🕮ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2796\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS𰀻񆬗。𝩨🕮SS", %p)}, undef, "to_ascii\(\'SS\?\?\。𝩨🕮SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2797\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss𰀻񆬗。𝩨🕮ss", %p)}, undef, "to_ascii\(\'ss\?\?\。𝩨🕮ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2798\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss𰀻񆬗。𝩨🕮Ss", %p)}, undef, "to_ascii\(\'Ss\?\?\。𝩨🕮Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2799\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS𰀻񆬗｡𝩨🕮SS", %p)}, undef, "to_ascii\(\'SS\?\?｡𝩨🕮SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2800\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss𰀻񆬗｡𝩨🕮ss", %p)}, undef, "to_ascii\(\'ss\?\?｡𝩨🕮ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2801\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss𰀻񆬗｡𝩨🕮Ss", %p)}, undef, "to_ascii\(\'Ss\?\?｡𝩨🕮Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2802\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u200D\。\\u200C\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2804\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0483}𐭞\x{200D}.\x{17B9}𞯌򟩚", %p)}, undef, "to_ascii\(\'\\u0483𐭞\\u200D\.\\u17B9\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2806\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𐠨\x{200C}临。ꡢ򄷞ⶏ𐹣", %p)}, undef, "to_ascii\(\'\\u200C𐠨\\u200C临\。ꡢ\?ⶏ𐹣\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2808\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠑘．󠄮", %p)}, undef, "to_ascii\(\'\?．\󠄮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2809\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠑘.󠄮", %p)}, undef, "to_ascii\(\'\?\.\󠄮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2810\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫄\x{0D4D}．\x{AAF6}", %p)}, undef, "to_ascii\(\'𐫄\\u0D4D．\\uAAF6\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2811\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫄\x{0D4D}.\x{AAF6}", %p)}, undef, "to_ascii\(\'𐫄\\u0D4D\.\\uAAF6\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2812\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{A9B7}󝵙멹。⒛󠨇", %p)}, undef, "to_ascii\(\'\\uA9B7\?멹\。⒛\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2813\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9B7}󝵙멹。⒛󠨇", %p)}, undef, "to_ascii\(\'\\uA9B7\?멹\。⒛\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2814\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9B7}󝵙멹。20.󠨇", %p)}, undef, "to_ascii\(\'\\uA9B7\?멹\。20\.\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2815\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9B7}󝵙멹。20.󠨇", %p)}, undef, "to_ascii\(\'\\uA9B7\?멹\。20\.\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2816\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴅ󲬹릖󠶚.\x{0777}𐹳⒊", %p)}, undef, "to_ascii\(\'Ⴅ\?릖\?\.\\u0777𐹳⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2817\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴅ󲬹릖󠶚.\x{0777}𐹳⒊", %p)}, undef, "to_ascii\(\'Ⴅ\?릖\?\.\\u0777𐹳⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2818\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴅ󲬹릖󠶚.\x{0777}𐹳3.", %p)}, undef, "to_ascii\(\'Ⴅ\?릖\?\.\\u0777𐹳3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2819\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴅ󲬹릖󠶚.\x{0777}𐹳3.", %p)}, undef, "to_ascii\(\'Ⴅ\?릖\?\.\\u0777𐹳3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2820\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴅ󲬹릖󠶚.\x{0777}𐹳3.", %p)}, undef, "to_ascii\(\'ⴅ\?릖\?\.\\u0777𐹳3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2821\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴅ󲬹릖󠶚.\x{0777}𐹳3.", %p)}, undef, "to_ascii\(\'ⴅ\?릖\?\.\\u0777𐹳3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2822\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴅ󲬹릖󠶚.\x{0777}𐹳⒊", %p)}, undef, "to_ascii\(\'ⴅ\?릖\?\.\\u0777𐹳⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2823\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴅ󲬹릖󠶚.\x{0777}𐹳⒊", %p)}, undef, "to_ascii\(\'ⴅ\?릖\?\.\\u0777𐹳⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2824\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}｡︒", %p)}, undef, "to_ascii\(\'\\u200C｡︒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2826\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}。。", %p)}, undef, "to_ascii\(\'\\u200C\。\。\'\)\ throws\ error\ C1\ A4_2\ \[data\/IdnaTest\.txt\:2828\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯\x{076D}．₄", %p)}, undef, "to_ascii\(\'\≯\\u076D．₄\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2829\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}\x{076D}．₄", %p)}, undef, "to_ascii\(\'\>\\u0338\\u076D．₄\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2830\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯\x{076D}.4", %p)}, undef, "to_ascii\(\'\≯\\u076D\.4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2831\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}\x{076D}.4", %p)}, undef, "to_ascii\(\'\>\\u0338\\u076D\.4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2832\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡲ-𝟹.ß-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡲ\-𝟹\.ß\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2834\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡲ-3.ß-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡲ\-3\.ß\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2836\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡲ-3.SS-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡲ\-3\.SS\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2838\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡲ-3.ss-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡲ\-3\.ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2840\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡲ-3.Ss-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡲ\-3\.Ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2842\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡲ-𝟹.SS-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡲ\-𝟹\.SS\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2844\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡲ-𝟹.ss-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡲ\-𝟹\.ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2846\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡲ-𝟹.Ss-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡲ\-𝟹\.Ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2848\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FD08}𝟦\x{0647}󎊯｡Ӏ", %p)}, undef, "to_ascii\(\'\\uFD08𝟦\\u0647\?｡Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2849\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0636}\x{064A}4\x{0647}󎊯。Ӏ", %p)}, undef, "to_ascii\(\'\\u0636\\u064A4\\u0647\?\。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2850\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0636}\x{064A}4\x{0647}󎊯。ӏ", %p)}, undef, "to_ascii\(\'\\u0636\\u064A4\\u0647\?\。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2851\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FD08}𝟦\x{0647}󎊯｡ӏ", %p)}, undef, "to_ascii\(\'\\uFD08𝟦\\u0647\?｡ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2852\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-.\x{0602}\x{0622}𑆾🐹", %p)}, undef, "to_ascii\(\'\-\.\\u0602\\u0622𑆾🐹\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2853\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-.\x{0602}\x{0627}\x{0653}𑆾🐹", %p)}, undef, "to_ascii\(\'\-\.\\u0602\\u0627\\u0653𑆾🐹\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2854\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󙶜ᢘ。\x{1A7F}⺢", %p)}, undef, "to_ascii\(\'\?ᢘ\。\\u1A7F⺢\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2855\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠ႷᠤႫ｡\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\≠ႷᠤႫ｡\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2856\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}ႷᠤႫ｡\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ႷᠤႫ｡\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2857\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠ႷᠤႫ。\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\≠ႷᠤႫ\。\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2858\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}ႷᠤႫ。\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ႷᠤႫ\。\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2859\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}ⴗᠤⴋ。\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ⴗᠤⴋ\。\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2860\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠ⴗᠤⴋ。\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\≠ⴗᠤⴋ\。\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2861\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠Ⴗᠤⴋ。\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\≠Ⴗᠤⴋ\。\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2862\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}Ⴗᠤⴋ。\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\=\\u0338Ⴗᠤⴋ\。\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2863\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}ⴗᠤⴋ｡\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ⴗᠤⴋ｡\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2864\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠ⴗᠤⴋ｡\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\≠ⴗᠤⴋ｡\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2865\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠Ⴗᠤⴋ｡\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\≠Ⴗᠤⴋ｡\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2866\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}Ⴗᠤⴋ｡\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_ascii\(\'\=\\u0338Ⴗᠤⴋ｡\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2867\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0667}.𐥨", %p)}, undef, "to_ascii\(\'\\u0667\.\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2868\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9C0}𝟯｡\x{200D}񼑥𐹪\x{1BF3}", %p)}, undef, "to_ascii\(\'\\uA9C0𝟯｡\\u200D\?𐹪\\u1BF3\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2870\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9C0}3。\x{200D}񼑥𐹪\x{1BF3}", %p)}, undef, "to_ascii\(\'\\uA9C03\。\\u200D\?𐹪\\u1BF3\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2872\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򣕄4񠖽.≯\x{0664}𑀾󠸌", %p)}, undef, "to_ascii\(\'\?4\?\.\≯\\u0664𑀾\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2873\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򣕄4񠖽.>\x{0338}\x{0664}𑀾󠸌", %p)}, undef, "to_ascii\(\'\?4\?\.\>\\u0338\\u0664𑀾\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2874\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򗆧𝟯。⒈\x{1A76}𝟚򠘌", %p)}, undef, "to_ascii\(\'\?𝟯\。⒈\\u1A76𝟚\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2875\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򗆧3。1.\x{1A76}2򠘌", %p)}, undef, "to_ascii\(\'\?3\。1\.\\u1A762\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2876\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}₅⒈。≯𝟴\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D₅⒈\。\≯𝟴\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2878\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}₅⒈。>\x{0338}𝟴\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D₅⒈\。\>\\u0338𝟴\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2880\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}51.。≯8\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D51\.\。\≯8\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A4_2\ \[data\/IdnaTest\.txt\:2882\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}51.。>\x{0338}8\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D51\.\。\>\\u03388\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A4_2\ \[data\/IdnaTest\.txt\:2884\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡰ\x{0697}\x{1086}．򪘙\x{072F}≠\x{200C}", %p)}, undef, "to_ascii\(\'ꡰ\\u0697\\u1086．\?\\u072F\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2886\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡰ\x{0697}\x{1086}．򪘙\x{072F}=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'ꡰ\\u0697\\u1086．\?\\u072F\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2888\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡰ\x{0697}\x{1086}.򪘙\x{072F}≠\x{200C}", %p)}, undef, "to_ascii\(\'ꡰ\\u0697\\u1086\.\?\\u072F\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2890\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡰ\x{0697}\x{1086}.򪘙\x{072F}=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'ꡰ\\u0697\\u1086\.\?\\u072F\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2892\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑄱｡򪌿𐹵", %p)}, undef, "to_ascii\(\'𑄱｡\?𐹵\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2893\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑄱。򪌿𐹵", %p)}, undef, "to_ascii\(\'𑄱\。\?𐹵\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2894\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟥\x{0600}。\x{073D}", %p)}, undef, "to_ascii\(\'𝟥\\u0600\。\\u073D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2895\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("3\x{0600}。\x{073D}", %p)}, undef, "to_ascii\(\'3\\u0600\。\\u073D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2896\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0637}𐹣\x{0666}.\x{076D}긷", %p)}, undef, "to_ascii\(\'\\u0637𐹣\\u0666\.\\u076D긷\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2897\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0637}𐹣\x{0666}.\x{076D}긷", %p)}, undef, "to_ascii\(\'\\u0637𐹣\\u0666\.\\u076D긷\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2898\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("︒Ↄ\x{2DE7}򾀃．Ⴗ𐣞", %p)}, undef, "to_ascii\(\'︒Ↄ\\u2DE7\?．Ⴗ\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2899\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。Ↄ\x{2DE7}򾀃.Ⴗ𐣞", %p)}, undef, "to_ascii\(\'\。Ↄ\\u2DE7\?\.Ⴗ\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2900\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。ↄ\x{2DE7}򾀃.ⴗ𐣞", %p)}, undef, "to_ascii\(\'\。ↄ\\u2DE7\?\.ⴗ\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2901\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒ↄ\x{2DE7}򾀃．ⴗ𐣞", %p)}, undef, "to_ascii\(\'︒ↄ\\u2DE7\?．ⴗ\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2902\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0600}.\x{05B1}", %p)}, undef, "to_ascii\(\'\\u0600\.\\u05B1\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2903\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς≯｡𐹽", %p)}, undef, "to_ascii\(\'ς\≯｡𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2904\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς>\x{0338}｡𐹽", %p)}, undef, "to_ascii\(\'ς\>\\u0338｡𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2905\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς≯。𐹽", %p)}, undef, "to_ascii\(\'ς\≯\。𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2906\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς>\x{0338}。𐹽", %p)}, undef, "to_ascii\(\'ς\>\\u0338\。𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2907\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ>\x{0338}。𐹽", %p)}, undef, "to_ascii\(\'Σ\>\\u0338\。𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2908\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ≯。𐹽", %p)}, undef, "to_ascii\(\'Σ\≯\。𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2909\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ≯。𐹽", %p)}, undef, "to_ascii\(\'σ\≯\。𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2910\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ>\x{0338}。𐹽", %p)}, undef, "to_ascii\(\'σ\>\\u0338\。𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2911\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ>\x{0338}｡𐹽", %p)}, undef, "to_ascii\(\'Σ\>\\u0338｡𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2912\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ≯｡𐹽", %p)}, undef, "to_ascii\(\'Σ\≯｡𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2913\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ≯｡𐹽", %p)}, undef, "to_ascii\(\'σ\≯｡𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2914\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ>\x{0338}｡𐹽", %p)}, undef, "to_ascii\(\'σ\>\\u0338｡𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2915\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{17D2}\x{200D}\x{075F}。𐹶", %p)}, undef, "to_ascii\(\'\\u17D2\\u200D\\u075F\。𐹶\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2916\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𾷂\x{0A42}Ⴊ񂂟.≮", %p)}, undef, "to_ascii\(\'\?\\u0A42Ⴊ\?\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2917\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𾷂\x{0A42}Ⴊ񂂟.<\x{0338}", %p)}, undef, "to_ascii\(\'\?\\u0A42Ⴊ\?\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2918\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𾷂\x{0A42}ⴊ񂂟.<\x{0338}", %p)}, undef, "to_ascii\(\'\?\\u0A42ⴊ\?\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2919\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𾷂\x{0A42}ⴊ񂂟.≮", %p)}, undef, "to_ascii\(\'\?\\u0A42ⴊ\?\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2920\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ꡠ．۲", %p)}, "xn--5c9a.xn--fmb", "to_ascii\(\'ꡠ．۲\'\)\ \[data\/IdnaTest\.txt\:2921\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ꡠ.۲", %p)}, "xn--5c9a.xn--fmb", "to_ascii\(\'ꡠ\.۲\'\)\ \[data\/IdnaTest\.txt\:2922\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("xn--5c9a.xn--fmb", %p)}, "xn--5c9a.xn--fmb", "to_ascii\(\'xn\-\-5c9a\.xn\-\-fmb\'\)\ \[data\/IdnaTest\.txt\:2923\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐹣񄷄｡ꡬ🄄", %p)}, undef, "to_ascii\(\'𐹣\?｡ꡬ🄄\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2924\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹣񄷄。ꡬ3,", %p)}, undef, "to_ascii\(\'𐹣\?\。ꡬ3\,\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2925\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{0C4D}𞾀𑲓｡\x{200D}\x{0D4D}", %p)}, undef, "to_ascii\(\'\-\\u0C4D\?\?｡\\u200D\\u0D4D\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2927\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{0C4D}𞾀𑲓。\x{200D}\x{0D4D}", %p)}, undef, "to_ascii\(\'\-\\u0C4D\?\?\。\\u200D\\u0D4D\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2929\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A67D}\x{200C}霣🄆｡\x{200C}𑁂\x{1B01}", %p)}, undef, "to_ascii\(\'\\uA67D\\u200C霣🄆｡\\u200C𑁂\\u1B01\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2931\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A67D}\x{200C}霣🄆｡\x{200C}𑁂\x{1B01}", %p)}, undef, "to_ascii\(\'\\uA67D\\u200C霣🄆｡\\u200C𑁂\\u1B01\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2933\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A67D}\x{200C}霣5,。\x{200C}𑁂\x{1B01}", %p)}, undef, "to_ascii\(\'\\uA67D\\u200C霣5\,\。\\u200C𑁂\\u1B01\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2935\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("兎｡ᠼ󠴜𑚶𑰿", %p)}, undef, "to_ascii\(\'兎｡ᠼ\?𑚶\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2936\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("兎。ᠼ󠴜𑚶𑰿", %p)}, undef, "to_ascii\(\'兎\。ᠼ\?𑚶\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2937\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟙｡\x{200D}𝟸\x{200D}⁷", %p)}, undef, "to_ascii\(\'𝟙｡\\u200D𝟸\\u200D⁷\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2939\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1。\x{200D}2\x{200D}7", %p)}, undef, "to_ascii\(\'1\。\\u200D2\\u200D7\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2941\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.27", %p)}, "1.27", "to_ascii\(\'1\.27\'\)\ \[data\/IdnaTest\.txt\:2942\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡨ-｡󠻋𝟷", %p)}, undef, "to_ascii\(\'ᡨ\-｡\?𝟷\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2943\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡨ-。󠻋1", %p)}, undef, "to_ascii\(\'ᡨ\-\。\?1\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2944\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰻񵀐𐫚．\x{0668}⁹", %p)}, undef, "to_ascii\(\'\?\?𐫚．\\u0668⁹\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2945\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰻񵀐𐫚.\x{0668}9", %p)}, undef, "to_ascii\(\'\?\?𐫚\.\\u06689\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2946\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴜ򈷭\x{0F80}⾇。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴜ\?\\u0F80⾇\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2948\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴜ򈷭\x{0F80}舛。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴜ\?\\u0F80舛\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2950\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴜ򈷭\x{0F80}舛。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'ⴜ\?\\u0F80舛\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2952\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴜ򈷭\x{0F80}⾇。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'ⴜ\?\\u0F80⾇\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2954\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("𑁆𝟰.\x{200D}", %p)}, undef, "to_ascii\(\'𑁆𝟰\.\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2956\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("𑁆4.\x{200D}", %p)}, undef, "to_ascii\(\'𑁆4\.\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2958\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񮴘Ⴞ癀｡𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\?Ⴞ癀｡𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2960\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񮴘Ⴞ癀｡𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\?Ⴞ癀｡𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2962\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񮴘Ⴞ癀。𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\?Ⴞ癀\。𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2964\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񮴘Ⴞ癀。𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\?Ⴞ癀\。𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2966\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񮴘ⴞ癀。𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\?ⴞ癀\。𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2968\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񮴘ⴞ癀。𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\?ⴞ癀\。𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2970\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񮴘ⴞ癀｡𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\?ⴞ癀｡𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2972\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񮴘ⴞ癀｡𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\?ⴞ癀｡𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2974\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󚀅-\x{0BCD}。\x{06B9}", %p)}, undef, "to_ascii\(\'\?\-\\u0BCD\。\\u06B9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2975\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡃ𝟧≯ᠣ．氁񨏱ꁫ", %p)}, undef, "to_ascii\(\'ᡃ𝟧\≯ᠣ．氁\?ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2976\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡃ𝟧>\x{0338}ᠣ．氁񨏱ꁫ", %p)}, undef, "to_ascii\(\'ᡃ𝟧\>\\u0338ᠣ．氁\?ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2977\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡃ5≯ᠣ.氁񨏱ꁫ", %p)}, undef, "to_ascii\(\'ᡃ5\≯ᠣ\.氁\?ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2978\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡃ5>\x{0338}ᠣ.氁񨏱ꁫ", %p)}, undef, "to_ascii\(\'ᡃ5\>\\u0338ᠣ\.氁\?ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2979\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𐹬𝩇．\x{0F76}", %p)}, undef, "to_ascii\(\'𐹬𝩇．\\u0F76\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2980\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𐹬𝩇．\x{0FB2}\x{0F80}", %p)}, undef, "to_ascii\(\'𐹬𝩇．\\u0FB2\\u0F80\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2981\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𐹬𝩇.\x{0FB2}\x{0F80}", %p)}, undef, "to_ascii\(\'𐹬𝩇\.\\u0FB2\\u0F80\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2982\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-𑈶⒏．⒎𰛢󠎭", %p)}, undef, "to_ascii\(\'\-𑈶⒏．⒎\?\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2983\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𑈶8..7.𰛢󠎭", %p)}, undef, "to_ascii\(\'\-𑈶8\.\.7\.\?\?\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2984\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴁ畝\x{200D}．≮", %p)}, undef, "to_ascii\(\'\\u200CႡ畝\\u200D．\≮\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2986\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴁ畝\x{200D}．<\x{0338}", %p)}, undef, "to_ascii\(\'\\u200CႡ畝\\u200D．\<\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2988\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴁ畝\x{200D}.≮", %p)}, undef, "to_ascii\(\'\\u200CႡ畝\\u200D\.\≮\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2990\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}Ⴁ畝\x{200D}.<\x{0338}", %p)}, undef, "to_ascii\(\'\\u200CႡ畝\\u200D\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2992\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ⴁ畝\x{200D}.<\x{0338}", %p)}, undef, "to_ascii\(\'\\u200Cⴁ畝\\u200D\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2994\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ⴁ畝\x{200D}.≮", %p)}, undef, "to_ascii\(\'\\u200Cⴁ畝\\u200D\.\≮\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2996\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ⴁ畝\x{200D}．<\x{0338}", %p)}, undef, "to_ascii\(\'\\u200Cⴁ畝\\u200D．\<\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2998\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ⴁ畝\x{200D}．≮", %p)}, undef, "to_ascii\(\'\\u200Cⴁ畝\\u200D．\≮\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3000\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("歷｡𐹻≯󳛽\x{200D}", %p)}, undef, "to_ascii\(\'歷｡𐹻\≯\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3002\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("歷｡𐹻>\x{0338}󳛽\x{200D}", %p)}, undef, "to_ascii\(\'歷｡𐹻\>\\u0338\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3004\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("歷。𐹻≯󳛽\x{200D}", %p)}, undef, "to_ascii\(\'歷\。𐹻\≯\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3006\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("歷。𐹻>\x{0338}󳛽\x{200D}", %p)}, undef, "to_ascii\(\'歷\。𐹻\>\\u0338\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3008\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0ECB}\x{200D}．鎁󠰑", %p)}, undef, "to_ascii\(\'\\u0ECB\\u200D．鎁\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3010\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0ECB}\x{200D}.鎁󠰑", %p)}, undef, "to_ascii\(\'\\u0ECB\\u200D\.鎁\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3012\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}\x{200C}𞤀｡𱘅𐶃", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\?｡\?\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3014\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}\x{200C}𞤀。𱘅𐶃", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\?\。\?\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3016\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}≠𝟫-.ς⒍𐹦≠", %p)}, undef, "to_ascii\(\'\\u0628\≠𝟫\-\.ς⒍𐹦\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3017\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}=\x{0338}𝟫-.ς⒍𐹦=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0628\=\\u0338𝟫\-\.ς⒍𐹦\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3018\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}≠9-.ς6.𐹦≠", %p)}, undef, "to_ascii\(\'\\u0628\≠9\-\.ς6\.𐹦\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3019\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}=\x{0338}9-.ς6.𐹦=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0628\=\\u03389\-\.ς6\.𐹦\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3020\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}=\x{0338}9-.Σ6.𐹦=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0628\=\\u03389\-\.Σ6\.𐹦\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3021\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}≠9-.Σ6.𐹦≠", %p)}, undef, "to_ascii\(\'\\u0628\≠9\-\.Σ6\.𐹦\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3022\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}≠9-.σ6.𐹦≠", %p)}, undef, "to_ascii\(\'\\u0628\≠9\-\.σ6\.𐹦\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3023\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}=\x{0338}9-.σ6.𐹦=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0628\=\\u03389\-\.σ6\.𐹦\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3024\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}=\x{0338}𝟫-.Σ⒍𐹦=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0628\=\\u0338𝟫\-\.Σ⒍𐹦\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3025\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}≠𝟫-.Σ⒍𐹦≠", %p)}, undef, "to_ascii\(\'\\u0628\≠𝟫\-\.Σ⒍𐹦\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3026\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}≠𝟫-.σ⒍𐹦≠", %p)}, undef, "to_ascii\(\'\\u0628\≠𝟫\-\.σ⒍𐹦\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3027\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0628}=\x{0338}𝟫-.σ⒍𐹦=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0628\=\\u0338𝟫\-\.σ⒍𐹦\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3028\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򉛴.-ᡢ\x{0592}𝨠", %p)}, undef, "to_ascii\(\'\?\.\-ᡢ\\u0592𝨠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3029\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06CB}⒈ß󠄽。񷋍-", %p)}, undef, "to_ascii\(\'\\u06CB⒈ß\󠄽\。\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3030\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06CB}1.ß󠄽。񷋍-", %p)}, undef, "to_ascii\(\'\\u06CB1\.ß\󠄽\。\?\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3031\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06CB}1.SS󠄽。񷋍-", %p)}, undef, "to_ascii\(\'\\u06CB1\.SS\󠄽\。\?\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3032\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06CB}1.ss󠄽。񷋍-", %p)}, undef, "to_ascii\(\'\\u06CB1\.ss\󠄽\。\?\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3033\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06CB}1.Ss󠄽。񷋍-", %p)}, undef, "to_ascii\(\'\\u06CB1\.Ss\󠄽\。\?\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3034\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06CB}⒈SS󠄽。񷋍-", %p)}, undef, "to_ascii\(\'\\u06CB⒈SS\󠄽\。\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3035\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06CB}⒈ss󠄽。񷋍-", %p)}, undef, "to_ascii\(\'\\u06CB⒈ss\󠄽\。\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3036\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06CB}⒈Ss󠄽。񷋍-", %p)}, undef, "to_ascii\(\'\\u06CB⒈Ss\󠄽\。\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3037\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫．\x{1BAA}ςႦ\x{200D}", %p)}, undef, "to_ascii\(\'\?．\\u1BAAςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3039\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫.\x{1BAA}ςႦ\x{200D}", %p)}, undef, "to_ascii\(\'\?\.\\u1BAAςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3041\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫.\x{1BAA}ςⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\?\.\\u1BAAςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3043\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫.\x{1BAA}ΣႦ\x{200D}", %p)}, undef, "to_ascii\(\'\?\.\\u1BAAΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3045\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫.\x{1BAA}σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\?\.\\u1BAAσⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3047\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫.\x{1BAA}Σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\?\.\\u1BAAΣⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3049\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫．\x{1BAA}ςⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\?．\\u1BAAςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3051\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫．\x{1BAA}ΣႦ\x{200D}", %p)}, undef, "to_ascii\(\'\?．\\u1BAAΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3053\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫．\x{1BAA}σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\?．\\u1BAAσⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3055\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𿀫．\x{1BAA}Σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\?．\\u1BAAΣⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3057\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾆\x{08E2}.𝈴", %p)}, undef, "to_ascii\(\'⾆\\u08E2\.𝈴\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3058\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("舌\x{08E2}.𝈴", %p)}, undef, "to_ascii\(\'舌\\u08E2\.𝈴\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3059\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⫞𐹶𖫴。⭠⒈", %p)}, undef, "to_ascii\(\'\⫞𐹶𖫴\。\⭠⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3060\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("⫞𐹶𖫴。⭠1.", %p)}, undef, "to_ascii\(\'\⫞𐹶𖫴\。\⭠1\.\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3061\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⒈\x{200C}\x{AAEC}︒．\x{0ACD}", %p)}, undef, "to_ascii\(\'⒈\\u200C\\uAAEC︒．\\u0ACD\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3063\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("1.\x{200C}\x{AAEC}。.\x{0ACD}", %p)}, undef, "to_ascii\(\'1\.\\u200C\\uAAEC\。\.\\u0ACD\'\)\ throws\ error\ V5\ C1\ A4_2\ \[data\/IdnaTest\.txt\:3065\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0C46}。䰀\x{0668}𞭅󠅼", %p)}, undef, "to_ascii\(\'\\u0C46\。䰀\\u0668\?\󠅼\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3066\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß\x{200D}.\x{1BF2}񄾼", %p)}, undef, "to_ascii\(\'ß\\u200D\.\\u1BF2\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3068\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS\x{200D}.\x{1BF2}񄾼", %p)}, undef, "to_ascii\(\'SS\\u200D\.\\u1BF2\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3070\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss\x{200D}.\x{1BF2}񄾼", %p)}, undef, "to_ascii\(\'ss\\u200D\.\\u1BF2\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3072\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss\x{200D}.\x{1BF2}񄾼", %p)}, undef, "to_ascii\(\'Ss\\u200D\.\\u1BF2\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3074\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑓂\x{200C}≮.≮", %p)}, undef, "to_ascii\(\'𑓂\\u200C\≮\.\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3075\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑓂\x{200C}<\x{0338}.<\x{0338}", %p)}, undef, "to_ascii\(\'𑓂\\u200C\<\\u0338\.\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3076\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🕼．\x{FFA0}", %p)}, undef, "to_ascii\(\'🕼．\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3077\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🕼.\x{1160}", %p)}, undef, "to_ascii\(\'🕼\.\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3078\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡔ\x{FD82}。񷘎", %p)}, undef, "to_ascii\(\'ᡔ\\uFD82\。\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3079\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡔ\x{0644}\x{062D}\x{0649}。񷘎", %p)}, undef, "to_ascii\(\'ᡔ\\u0644\\u062D\\u0649\。\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3080\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("爕򳙑．𝟰気", %p)}, undef, "to_ascii\(\'爕\?．𝟰気\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3081\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("爕򳙑.4気", %p)}, undef, "to_ascii\(\'爕\?\.4気\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3082\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒋𑍍Ⴝ-．𞬪\x{0DCA}\x{05B5}", %p)}, undef, "to_ascii\(\'⒋𑍍Ⴝ\-．\?\\u0DCA\\u05B5\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3083\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4.𑍍Ⴝ-.𞬪\x{0DCA}\x{05B5}", %p)}, undef, "to_ascii\(\'4\.𑍍Ⴝ\-\.\?\\u0DCA\\u05B5\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3084\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4.𑍍ⴝ-.𞬪\x{0DCA}\x{05B5}", %p)}, undef, "to_ascii\(\'4\.𑍍ⴝ\-\.\?\\u0DCA\\u05B5\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3085\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒋𑍍ⴝ-．𞬪\x{0DCA}\x{05B5}", %p)}, undef, "to_ascii\(\'⒋𑍍ⴝ\-．\?\\u0DCA\\u05B5\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3086\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󞝃。򑆃񉢗--", %p)}, undef, "to_ascii\(\'\?\。\?\?\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ \[data\/IdnaTest\.txt\:3087\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200D}\x{07DF}｡\x{200C}\x{ABED}", %p)}, undef, "to_ascii\(\'\\u200D\\u07DF｡\\u200C\\uABED\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3089\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200D}\x{07DF}。\x{200C}\x{ABED}", %p)}, undef, "to_ascii\(\'\\u200D\\u07DF\。\\u200C\\uABED\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3091\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞮽\x{07FF}\x{084E}｡ᢍ򝹁𐫘", %p)}, undef, "to_ascii\(\'\?\\u07FF\\u084E｡ᢍ\?𐫘\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3092\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞮽\x{07FF}\x{084E}。ᢍ򝹁𐫘", %p)}, undef, "to_ascii\(\'\?\\u07FF\\u084E\。ᢍ\?𐫘\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3093\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{06ED}𞺌𑄚\x{1714}.ꡞ\x{08B7}", %p)}, undef, "to_ascii\(\'\\u06ED𞺌𑄚\\u1714\.ꡞ\\u08B7\'\)\ throws\ error\ V5\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:3094\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{06ED}\x{0645}𑄚\x{1714}.ꡞ\x{08B7}", %p)}, undef, "to_ascii\(\'\\u06ED\\u0645𑄚\\u1714\.ꡞ\\u08B7\'\)\ throws\ error\ V5\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:3095\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡ς\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡ς\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3096\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡ς\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡ς\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3097\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。ς\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。ς\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3098\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。ς\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。ς\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3099\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。Σ\x{063C}Σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。Σ\\u063CΣ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3100\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。Σ\x{063C}Σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。Σ\\u063CΣ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3101\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。σ\x{063C}σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3102\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。σ\x{063C}σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3103\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。Σ\x{063C}σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。Σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3104\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。Σ\x{063C}σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。Σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3105\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。Σ\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。Σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3106\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。Σ\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。Σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3107\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。σ\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3108\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}。σ\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC\。σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3109\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡Σ\x{063C}Σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡Σ\\u063CΣ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3110\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡Σ\x{063C}Σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡Σ\\u063CΣ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3111\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡σ\x{063C}σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3112\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡σ\x{063C}σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3113\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡Σ\x{063C}σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡Σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3114\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡Σ\x{063C}σ", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡Σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3115\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡Σ\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡Σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3116\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡Σ\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡Σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3117\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡σ\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3118\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񻂵킃𑘶\x{07DC}｡σ\x{063C}ς", %p)}, undef, "to_ascii\(\'\?킃𑘶\\u07DC｡σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3119\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("蔰。󠁹\x{08DD}-𑈵", %p)}, undef, "to_ascii\(\'蔰\。\?\\u08DD\-𑈵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3120\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ςჅ。\x{075A}", %p)}, undef, "to_ascii\(\'ςჅ\。\\u075A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3121\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ςⴥ。\x{075A}", %p)}, "xn--3xa403s.xn--epb", "to_ascii\(\'ςⴥ\。\\u075A\'\)\ \[data\/IdnaTest\.txt\:3123\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ΣჅ。\x{075A}", %p)}, undef, "to_ascii\(\'ΣჅ\。\\u075A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3124\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("σⴥ。\x{075A}", %p)}, "xn--4xa203s.xn--epb", "to_ascii\(\'σⴥ\。\\u075A\'\)\ \[data\/IdnaTest\.txt\:3125\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("Σⴥ。\x{075A}", %p)}, "xn--4xa203s.xn--epb", "to_ascii\(\'Σⴥ\。\\u075A\'\)\ \[data\/IdnaTest\.txt\:3126\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--4xa203s.xn--epb", %p)}, "xn--4xa203s.xn--epb", "to_ascii\(\'xn\-\-4xa203s\.xn\-\-epb\'\)\ \[data\/IdnaTest\.txt\:3127\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("σⴥ.\x{075A}", %p)}, "xn--4xa203s.xn--epb", "to_ascii\(\'σⴥ\.\\u075A\'\)\ \[data\/IdnaTest\.txt\:3128\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ΣჅ.\x{075A}", %p)}, undef, "to_ascii\(\'ΣჅ\.\\u075A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3129\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("Σⴥ.\x{075A}", %p)}, "xn--4xa203s.xn--epb", "to_ascii\(\'Σⴥ\.\\u075A\'\)\ \[data\/IdnaTest\.txt\:3130\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--3xa403s.xn--epb", %p)}, "xn--3xa403s.xn--epb", "to_ascii\(\'xn\-\-3xa403s\.xn\-\-epb\'\)\ \[data\/IdnaTest\.txt\:3131\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ςⴥ.\x{075A}", %p)}, "xn--3xa403s.xn--epb", "to_ascii\(\'ςⴥ\.\\u075A\'\)\ \[data\/IdnaTest\.txt\:3133\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0C4D}Ⴉ𞰓．\x{1B72}", %p)}, undef, "to_ascii\(\'\\u0C4DႩ\?．\\u1B72\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3134\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0C4D}Ⴉ𞰓.\x{1B72}", %p)}, undef, "to_ascii\(\'\\u0C4DႩ\?\.\\u1B72\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3135\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0C4D}ⴉ𞰓.\x{1B72}", %p)}, undef, "to_ascii\(\'\\u0C4Dⴉ\?\.\\u1B72\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3136\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0C4D}ⴉ𞰓．\x{1B72}", %p)}, undef, "to_ascii\(\'\\u0C4Dⴉ\?．\\u1B72\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3137\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⮷≮񎈴󠄟。𐠄", %p)}, undef, "to_ascii\(\'\⮷\≮\?\󠄟\。𐠄\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3138\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⮷<\x{0338}񎈴󠄟。𐠄", %p)}, undef, "to_ascii\(\'\⮷\<\\u0338\?\󠄟\。𐠄\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3139\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}｡\x{200D}ẏ\x{200C}ᡤ", %p)}, undef, "to_ascii\(\'\\u06BC｡\\u200Dẏ\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3141\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}｡\x{200D}y\x{0307}\x{200C}ᡤ", %p)}, undef, "to_ascii\(\'\\u06BC｡\\u200Dy\\u0307\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3143\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}。\x{200D}ẏ\x{200C}ᡤ", %p)}, undef, "to_ascii\(\'\\u06BC\。\\u200Dẏ\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3145\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}。\x{200D}y\x{0307}\x{200C}ᡤ", %p)}, undef, "to_ascii\(\'\\u06BC\。\\u200Dy\\u0307\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3147\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}。\x{200D}Y\x{0307}\x{200C}ᡤ", %p)}, undef, "to_ascii\(\'\\u06BC\。\\u200DY\\u0307\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3149\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}。\x{200D}Ẏ\x{200C}ᡤ", %p)}, undef, "to_ascii\(\'\\u06BC\。\\u200DẎ\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3151\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--vkb.xn--08e172a", %p)}, "xn--vkb.xn--08e172a", "to_ascii\(\'xn\-\-vkb\.xn\-\-08e172a\'\)\ \[data\/IdnaTest\.txt\:3152\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}.ẏᡤ", %p)}, "xn--vkb.xn--08e172a", "to_ascii\(\'\\u06BC\.ẏᡤ\'\)\ \[data\/IdnaTest\.txt\:3153\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}.y\x{0307}ᡤ", %p)}, "xn--vkb.xn--08e172a", "to_ascii\(\'\\u06BC\.y\\u0307ᡤ\'\)\ \[data\/IdnaTest\.txt\:3154\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}.Y\x{0307}ᡤ", %p)}, "xn--vkb.xn--08e172a", "to_ascii\(\'\\u06BC\.Y\\u0307ᡤ\'\)\ \[data\/IdnaTest\.txt\:3155\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}.Ẏᡤ", %p)}, "xn--vkb.xn--08e172a", "to_ascii\(\'\\u06BC\.Ẏᡤ\'\)\ \[data\/IdnaTest\.txt\:3156\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}｡\x{200D}Y\x{0307}\x{200C}ᡤ", %p)}, undef, "to_ascii\(\'\\u06BC｡\\u200DY\\u0307\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3158\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BC}｡\x{200D}Ẏ\x{200C}ᡤ", %p)}, undef, "to_ascii\(\'\\u06BC｡\\u200DẎ\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3160\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹹𑲛。񑂐\x{0DCA}", %p)}, undef, "to_ascii\(\'𐹹\?\。\?\\u0DCA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3161\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-≠𑈵｡嵕\x{FEF1}۴\x{A953}", %p)}, undef, "to_ascii\(\'\-\≠𑈵｡嵕\\uFEF1۴\\uA953\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3162\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-=\x{0338}𑈵｡嵕\x{FEF1}۴\x{A953}", %p)}, undef, "to_ascii\(\'\-\=\\u0338𑈵｡嵕\\uFEF1۴\\uA953\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3163\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-≠𑈵。嵕\x{064A}۴\x{A953}", %p)}, undef, "to_ascii\(\'\-\≠𑈵\。嵕\\u064A۴\\uA953\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3164\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-=\x{0338}𑈵。嵕\x{064A}۴\x{A953}", %p)}, undef, "to_ascii\(\'\-\=\\u0338𑈵\。嵕\\u064A۴\\uA953\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3165\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}񍸰𐹶\x{076E}．\x{06C1}\x{200D}≯\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\?𐹶\\u076E．\\u06C1\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3167\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}񍸰𐹶\x{076E}．\x{06C1}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\?𐹶\\u076E．\\u06C1\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3169\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}񍸰𐹶\x{076E}.\x{06C1}\x{200D}≯\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\?𐹶\\u076E\.\\u06C1\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3171\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}񍸰𐹶\x{076E}.\x{06C1}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\?𐹶\\u076E\.\\u06C1\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3173\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮．\x{17B5}\x{0855}𐫔", %p)}, undef, "to_ascii\(\'\≮．\\u17B5\\u0855𐫔\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3174\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}．\x{17B5}\x{0855}𐫔", %p)}, undef, "to_ascii\(\'\<\\u0338．\\u17B5\\u0855𐫔\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3175\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮.\x{17B5}\x{0855}𐫔", %p)}, undef, "to_ascii\(\'\≮\.\\u17B5\\u0855𐫔\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3176\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}.\x{17B5}\x{0855}𐫔", %p)}, undef, "to_ascii\(\'\<\\u0338\.\\u17B5\\u0855𐫔\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3177\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐩗\x{200D}｡ႩႵ", %p)}, undef, "to_ascii\(\'𐩗\\u200D｡ႩႵ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3179\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐩗\x{200D}。ႩႵ", %p)}, undef, "to_ascii\(\'𐩗\\u200D\。ႩႵ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3181\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("𐩗\x{200D}。ⴉⴕ", %p)}, undef, "to_ascii\(\'𐩗\\u200D\。ⴉⴕ\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:3183\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐩗\x{200D}。Ⴉⴕ", %p)}, undef, "to_ascii\(\'𐩗\\u200D\。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3185\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--pt9c.xn--0kjya", %p)}, "xn--pt9c.xn--0kjya", "to_ascii\(\'xn\-\-pt9c\.xn\-\-0kjya\'\)\ \[data\/IdnaTest\.txt\:3186\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("𐩗.ⴉⴕ", %p)}, "xn--pt9c.xn--0kjya", "to_ascii\(\'𐩗\.ⴉⴕ\'\)\ \[data\/IdnaTest\.txt\:3187\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐩗.ႩႵ", %p)}, undef, "to_ascii\(\'𐩗\.ႩႵ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3188\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐩗.Ⴉⴕ", %p)}, undef, "to_ascii\(\'𐩗\.Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3189\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("𐩗\x{200D}｡ⴉⴕ", %p)}, undef, "to_ascii\(\'𐩗\\u200D｡ⴉⴕ\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:3191\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐩗\x{200D}｡Ⴉⴕ", %p)}, undef, "to_ascii\(\'𐩗\\u200D｡Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3193\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{200C}ㄤ．\x{032E}󕨑\x{09C2}", %p)}, undef, "to_ascii\(\'\\u200C\\u200Cㄤ．\\u032E\?\\u09C2\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3195\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{200C}ㄤ.\x{032E}󕨑\x{09C2}", %p)}, undef, "to_ascii\(\'\\u200C\\u200Cㄤ\.\\u032E\?\\u09C2\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3197\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐋻｡-\x{200C}𐫄Ⴗ", %p)}, undef, "to_ascii\(\'𐋻｡\-\\u200C𐫄Ⴗ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3199\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐋻。-\x{200C}𐫄Ⴗ", %p)}, undef, "to_ascii\(\'𐋻\。\-\\u200C𐫄Ⴗ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3201\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋻。-\x{200C}𐫄ⴗ", %p)}, undef, "to_ascii\(\'𐋻\。\-\\u200C𐫄ⴗ\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:3203\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋻｡-\x{200C}𐫄ⴗ", %p)}, undef, "to_ascii\(\'𐋻｡\-\\u200C𐫄ⴗ\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:3205\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("🙑𐷺．≠\x{200C}", %p)}, undef, "to_ascii\(\'🙑\?．\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3207\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🙑𐷺．=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'🙑\?．\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3209\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🙑𐷺.≠\x{200C}", %p)}, undef, "to_ascii\(\'🙑\?\.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3211\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🙑𐷺.=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'🙑\?\.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3213\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{064C}\x{1CD2}｡𞮞\x{2D7F}⧎", %p)}, undef, "to_ascii\(\'\\u064C\\u1CD2｡\?\\u2D7F\⧎\'\)\ throws\ error\ P1\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:3214\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{064C}\x{1CD2}。𞮞\x{2D7F}⧎", %p)}, undef, "to_ascii\(\'\\u064C\\u1CD2\。\?\\u2D7F\⧎\'\)\ throws\ error\ P1\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:3215\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴔ𝨨₃󠁦．𝟳𑂹\x{0B82}", %p)}, undef, "to_ascii\(\'Ⴔ𝨨₃\?．𝟳𑂹\\u0B82\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3216\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴔ𝨨3󠁦.7𑂹\x{0B82}", %p)}, undef, "to_ascii\(\'Ⴔ𝨨3\?\.7𑂹\\u0B82\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3217\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴔ𝨨3󠁦.7𑂹\x{0B82}", %p)}, undef, "to_ascii\(\'ⴔ𝨨3\?\.7𑂹\\u0B82\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3218\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴔ𝨨₃󠁦．𝟳𑂹\x{0B82}", %p)}, undef, "to_ascii\(\'ⴔ𝨨₃\?．𝟳𑂹\\u0B82\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3219\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䏈\x{200C}。\x{200C}⒈񱢕", %p)}, undef, "to_ascii\(\'䏈\\u200C\。\\u200C⒈\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3221\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䏈\x{200C}。\x{200C}1.񱢕", %p)}, undef, "to_ascii\(\'䏈\\u200C\。\\u200C1\.\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3223\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("１\x{AAF6}ß𑲥｡\x{1DD8}", %p)}, undef, "to_ascii\(\'１\\uAAF6ß\?｡\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3224\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("1\x{AAF6}ß𑲥。\x{1DD8}", %p)}, undef, "to_ascii\(\'1\\uAAF6ß\?\。\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3225\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("1\x{AAF6}SS𑲥。\x{1DD8}", %p)}, undef, "to_ascii\(\'1\\uAAF6SS\?\。\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3226\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("1\x{AAF6}ss𑲥。\x{1DD8}", %p)}, undef, "to_ascii\(\'1\\uAAF6ss\?\。\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3227\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("1\x{AAF6}Ss𑲥。\x{1DD8}", %p)}, undef, "to_ascii\(\'1\\uAAF6Ss\?\。\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3228\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("１\x{AAF6}SS𑲥｡\x{1DD8}", %p)}, undef, "to_ascii\(\'１\\uAAF6SS\?｡\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3229\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("１\x{AAF6}ss𑲥｡\x{1DD8}", %p)}, undef, "to_ascii\(\'１\\uAAF6ss\?｡\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3230\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("１\x{AAF6}Ss𑲥｡\x{1DD8}", %p)}, undef, "to_ascii\(\'１\\uAAF6Ss\?｡\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3231\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}񫶩𞪯\x{0CCD}｡\x{077C}⒈", %p)}, undef, "to_ascii\(\'\\u200D\?\?\\u0CCD｡\\u077C⒈\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3233\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}񫶩𞪯\x{0CCD}。\x{077C}1.", %p)}, undef, "to_ascii\(\'\\u200D\?\?\\u0CCD\。\\u077C1\.\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3235\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1AB6}．𞤳򓢖򻉒\x{07D7}", %p)}, undef, "to_ascii\(\'\\u1AB6．\?\?\?\\u07D7\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:3236\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1AB6}.𞤳򓢖򻉒\x{07D7}", %p)}, undef, "to_ascii\(\'\\u1AB6\.\?\?\?\\u07D7\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:3237\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0842}𞩚⒈．󠬌８򏳏\x{0770}", %p)}, undef, "to_ascii\(\'\\u0842\?⒈．\?８\?\\u0770\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3238\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0842}𞩚1..󠬌8򏳏\x{0770}", %p)}, undef, "to_ascii\(\'\\u0842\?1\.\.\?8\?\\u0770\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3239\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0361}𐫫\x{0369}ᡷ。-󠰛鞰", %p)}, undef, "to_ascii\(\'\\u0361𐫫\\u0369ᡷ\。\-\?鞰\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3240\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-.\x{0ACD}剘ß𐫃", %p)}, undef, "to_ascii\(\'\-\.\\u0ACD剘ß𐫃\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3241\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-.\x{0ACD}剘SS𐫃", %p)}, undef, "to_ascii\(\'\-\.\\u0ACD剘SS𐫃\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3242\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-.\x{0ACD}剘ss𐫃", %p)}, undef, "to_ascii\(\'\-\.\\u0ACD剘ss𐫃\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3243\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-.\x{0ACD}剘Ss𐫃", %p)}, undef, "to_ascii\(\'\-\.\\u0ACD剘Ss𐫃\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3244\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{08FB}𞵸｡-", %p)}, undef, "to_ascii\(\'\\u08FB\?｡\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3245\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08FB}𞵸。-", %p)}, undef, "to_ascii\(\'\\u08FB\?\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3246\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈󠈻𐹲｡≠\x{0603}𐹽", %p)}, undef, "to_ascii\(\'⒈\?𐹲｡\≠\\u0603𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3247\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈󠈻𐹲｡=\x{0338}\x{0603}𐹽", %p)}, undef, "to_ascii\(\'⒈\?𐹲｡\=\\u0338\\u0603𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3248\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.󠈻𐹲。≠\x{0603}𐹽", %p)}, undef, "to_ascii\(\'1\.\?𐹲\。\≠\\u0603𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3249\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.󠈻𐹲。=\x{0338}\x{0603}𐹽", %p)}, undef, "to_ascii\(\'1\.\?𐹲\。\=\\u0338\\u0603𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3250\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹢󠈚Ⴎ\x{200C}.㖾𐹡", %p)}, undef, "to_ascii\(\'𐹢\?Ⴎ\\u200C\.㖾𐹡\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3252\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹢󠈚ⴎ\x{200C}.㖾𐹡", %p)}, undef, "to_ascii\(\'𐹢\?ⴎ\\u200C\.㖾𐹡\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3254\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򩼗．\x{07C7}ᡖႳႧ", %p)}, undef, "to_ascii\(\'\?．\\u07C7ᡖႳႧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3255\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򩼗.\x{07C7}ᡖႳႧ", %p)}, undef, "to_ascii\(\'\?\.\\u07C7ᡖႳႧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3256\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򩼗.\x{07C7}ᡖⴓⴇ", %p)}, undef, "to_ascii\(\'\?\.\\u07C7ᡖⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3257\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򩼗.\x{07C7}ᡖႳⴇ", %p)}, undef, "to_ascii\(\'\?\.\\u07C7ᡖႳⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3258\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򩼗．\x{07C7}ᡖⴓⴇ", %p)}, undef, "to_ascii\(\'\?．\\u07C7ᡖⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3259\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򩼗．\x{07C7}ᡖႳⴇ", %p)}, undef, "to_ascii\(\'\?．\\u07C7ᡖႳⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3260\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}􅍉.\x{06B3}\x{0775}", %p)}, undef, "to_ascii\(\'\\u200D\?\.\\u06B3\\u0775\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3262\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲤱⒛⾳．ꡦ⒈", %p)}, undef, "to_ascii\(\'\?⒛⾳．ꡦ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3263\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲤱20.音.ꡦ1.", %p)}, undef, "to_ascii\(\'\?20\.音\.ꡦ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3264\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07DC}８񳦓-｡򞲙𑁿𐩥\x{09CD}", %p)}, undef, "to_ascii\(\'\\u07DC８\?\-｡\?𑁿𐩥\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3265\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07DC}8񳦓-。򞲙𑁿𐩥\x{09CD}", %p)}, undef, "to_ascii\(\'\\u07DC8\?\-\。\?𑁿𐩥\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3266\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴕ。۰≮ß\x{0745}", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\≮ß\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3267\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴕ。۰<\x{0338}ß\x{0745}", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\<\\u0338ß\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3268\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴕ。۰<\x{0338}ß\x{0745}", %p)}, undef, "to_ascii\(\'ⴕ\。۰\<\\u0338ß\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3269\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴕ。۰≮ß\x{0745}", %p)}, undef, "to_ascii\(\'ⴕ\。۰\≮ß\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3270\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴕ。۰≮SS\x{0745}", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\≮SS\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3271\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴕ。۰<\x{0338}SS\x{0745}", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\<\\u0338SS\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3272\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴕ。۰<\x{0338}ss\x{0745}", %p)}, undef, "to_ascii\(\'ⴕ\。۰\<\\u0338ss\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3273\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴕ。۰≮ss\x{0745}", %p)}, undef, "to_ascii\(\'ⴕ\。۰\≮ss\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3274\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴕ。۰≮Ss\x{0745}", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\≮Ss\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3275\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴕ。۰<\x{0338}Ss\x{0745}", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\<\\u0338Ss\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3276\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("\x{07E9}-.𝨗꒱\x{1B72}", %p)}, undef, "to_ascii\(\'\\u07E9\-\.𝨗꒱\\u1B72\'\)\ throws\ error\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:3277\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞼸\x{200C}.≯䕵⫧", %p)}, undef, "to_ascii\(\'\?\\u200C\.\≯䕵\⫧\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3279\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞼸\x{200C}.>\x{0338}䕵⫧", %p)}, undef, "to_ascii\(\'\?\\u200C\.\>\\u0338䕵\⫧\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3281\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐨅ß\x{FC57}.\x{06AC}۳︒", %p)}, undef, "to_ascii\(\'𐨅ß\\uFC57\.\\u06AC۳︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:3282\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("𐨅ß\x{064A}\x{062E}.\x{06AC}۳。", %p)}, undef, "to_ascii\(\'𐨅ß\\u064A\\u062E\.\\u06AC۳\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3283\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("𐨅SS\x{064A}\x{062E}.\x{06AC}۳。", %p)}, undef, "to_ascii\(\'𐨅SS\\u064A\\u062E\.\\u06AC۳\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3284\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("𐨅ss\x{064A}\x{062E}.\x{06AC}۳。", %p)}, undef, "to_ascii\(\'𐨅ss\\u064A\\u062E\.\\u06AC۳\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3285\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("𐨅Ss\x{064A}\x{062E}.\x{06AC}۳。", %p)}, undef, "to_ascii\(\'𐨅Ss\\u064A\\u062E\.\\u06AC۳\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3286\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐨅SS\x{FC57}.\x{06AC}۳︒", %p)}, undef, "to_ascii\(\'𐨅SS\\uFC57\.\\u06AC۳︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:3287\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐨅ss\x{FC57}.\x{06AC}۳︒", %p)}, undef, "to_ascii\(\'𐨅ss\\uFC57\.\\u06AC۳︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:3288\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐨅Ss\x{FC57}.\x{06AC}۳︒", %p)}, undef, "to_ascii\(\'𐨅Ss\\uFC57\.\\u06AC۳︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:3289\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-≮🡒\x{1CED}.񏿾Ⴁ\x{0714}", %p)}, undef, "to_ascii\(\'\-\≮🡒\\u1CED\.\?Ⴁ\\u0714\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3290\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-<\x{0338}🡒\x{1CED}.񏿾Ⴁ\x{0714}", %p)}, undef, "to_ascii\(\'\-\<\\u0338🡒\\u1CED\.\?Ⴁ\\u0714\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3291\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-<\x{0338}🡒\x{1CED}.񏿾ⴁ\x{0714}", %p)}, undef, "to_ascii\(\'\-\<\\u0338🡒\\u1CED\.\?ⴁ\\u0714\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3292\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-≮🡒\x{1CED}.񏿾ⴁ\x{0714}", %p)}, undef, "to_ascii\(\'\-\≮🡒\\u1CED\.\?ⴁ\\u0714\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3293\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤨｡ꡏ\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'\?｡ꡏ\\u200D\\u200C\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3295\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤨。ꡏ\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'\?\。ꡏ\\u200D\\u200C\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3297\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--ge6h.xn--oc9a", %p)}, "xn--ge6h.xn--oc9a", "to_ascii\(\'xn\-\-ge6h\.xn\-\-oc9a\'\)\ \[data\/IdnaTest\.txt\:3298\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤨.ꡏ", %p)}, "xn--ge6h.xn--oc9a", "to_ascii\(\'\?\.ꡏ\'\)\ \[data\/IdnaTest\.txt\:3299\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("󠅹𑂶．ᢌ𑂹\x{0669}", %p)}, undef, "to_ascii\(\'\󠅹𑂶．ᢌ𑂹\\u0669\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3300\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("󠅹𑂶.ᢌ𑂹\x{0669}", %p)}, undef, "to_ascii\(\'\󠅹𑂶\.ᢌ𑂹\\u0669\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3301\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⅎ󠅺񝵒。≯⾑", %p)}, undef, "to_ascii\(\'Ⅎ\󠅺\?\。\≯⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3302\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⅎ󠅺񝵒。>\x{0338}⾑", %p)}, undef, "to_ascii\(\'Ⅎ\󠅺\?\。\>\\u0338⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3303\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⅎ󠅺񝵒。≯襾", %p)}, undef, "to_ascii\(\'Ⅎ\󠅺\?\。\≯襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3304\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⅎ󠅺񝵒。>\x{0338}襾", %p)}, undef, "to_ascii\(\'Ⅎ\󠅺\?\。\>\\u0338襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3305\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⅎ󠅺񝵒。>\x{0338}襾", %p)}, undef, "to_ascii\(\'ⅎ\󠅺\?\。\>\\u0338襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3306\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⅎ󠅺񝵒。≯襾", %p)}, undef, "to_ascii\(\'ⅎ\󠅺\?\。\≯襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3307\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⅎ󠅺񝵒。>\x{0338}⾑", %p)}, undef, "to_ascii\(\'ⅎ\󠅺\?\。\>\\u0338⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3308\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⅎ󠅺񝵒。≯⾑", %p)}, undef, "to_ascii\(\'ⅎ\󠅺\?\。\≯⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3309\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς\x{200D}\x{0DD4}\x{0660}｡-", %p)}, undef, "to_ascii\(\'ς\\u200D\\u0DD4\\u0660｡\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3311\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς\x{200D}\x{0DD4}\x{0660}。-", %p)}, undef, "to_ascii\(\'ς\\u200D\\u0DD4\\u0660\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3313\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ\x{200D}\x{0DD4}\x{0660}。-", %p)}, undef, "to_ascii\(\'Σ\\u200D\\u0DD4\\u0660\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3315\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ\x{200D}\x{0DD4}\x{0660}。-", %p)}, undef, "to_ascii\(\'σ\\u200D\\u0DD4\\u0660\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3317\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ\x{200D}\x{0DD4}\x{0660}｡-", %p)}, undef, "to_ascii\(\'Σ\\u200D\\u0DD4\\u0660｡\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3319\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ\x{200D}\x{0DD4}\x{0660}｡-", %p)}, undef, "to_ascii\(\'σ\\u200D\\u0DD4\\u0660｡\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3321\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.ßႩ-", %p)}, undef, "to_ascii\(\'\\u200C\.ßႩ\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:3323\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200C}.ßⴉ-", %p)}, undef, "to_ascii\(\'\\u200C\.ßⴉ\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:3325\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}.SSႩ-", %p)}, undef, "to_ascii\(\'\\u200C\.SSႩ\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:3327\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200C}.ssⴉ-", %p)}, undef, "to_ascii\(\'\\u200C\.ssⴉ\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:3329\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200C}.Ssⴉ-", %p)}, undef, "to_ascii\(\'\\u200C\.Ssⴉ\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:3331\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󍭲𐫍㓱。⾑", %p)}, undef, "to_ascii\(\'\?𐫍㓱\。⾑\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3332\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󍭲𐫍㓱。襾", %p)}, undef, "to_ascii\(\'\?𐫍㓱\。襾\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3333\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06A0}𐮋𐹰≮。≯󠦗\x{200D}", %p)}, undef, "to_ascii\(\'\\u06A0𐮋𐹰\≮\。\≯\?\\u200D\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3335\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06A0}𐮋𐹰<\x{0338}。>\x{0338}󠦗\x{200D}", %p)}, undef, "to_ascii\(\'\\u06A0𐮋𐹰\<\\u0338\。\>\\u0338\?\\u200D\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3337\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟞｡񃰶\x{0777}\x{08B0}⩋", %p)}, undef, "to_ascii\(\'𝟞｡\?\\u0777\\u08B0\⩋\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3338\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("6。񃰶\x{0777}\x{08B0}⩋", %p)}, undef, "to_ascii\(\'6\。\?\\u0777\\u08B0\⩋\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3339\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-\x{FCFD}。𑇀𑍴", %p)}, undef, "to_ascii\(\'\-\\uFCFD\。𑇀𑍴\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3340\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-\x{FCFD}。𑇀𑍴", %p)}, undef, "to_ascii\(\'\-\\uFCFD\。𑇀𑍴\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3341\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-\x{0634}\x{0649}。𑇀𑍴", %p)}, undef, "to_ascii\(\'\-\\u0634\\u0649\。𑇀𑍴\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3342\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}󠊶𝟏.\x{0D43}򪥐𐹬󊓶", %p)}, undef, "to_ascii\(\'\\u200C\?𝟏\.\\u0D43\?𐹬\?\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:3344\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠊶1.\x{0D43}򪥐𐹬󊓶", %p)}, undef, "to_ascii\(\'\\u200C\?1\.\\u0D43\?𐹬\?\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:3346\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("齙--𝟰.ß", %p)}, "xn----4-p16k.xn--zca", "to_ascii\(\'齙\-\-𝟰\.ß\'\)\ \[data\/IdnaTest\.txt\:3348\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("齙--4.ß", %p)}, "xn----4-p16k.xn--zca", "to_ascii\(\'齙\-\-4\.ß\'\)\ \[data\/IdnaTest\.txt\:3350\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("齙--4.SS", %p)}, "xn----4-p16k.ss", "to_ascii\(\'齙\-\-4\.SS\'\)\ \[data\/IdnaTest\.txt\:3351\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn----4-p16k.ss", %p)}, "xn----4-p16k.ss", "to_ascii\(\'xn\-\-\-\-4\-p16k\.ss\'\)\ \[data\/IdnaTest\.txt\:3352\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn----4-p16k.xn--zca", %p)}, "xn----4-p16k.xn--zca", "to_ascii\(\'xn\-\-\-\-4\-p16k\.xn\-\-zca\'\)\ \[data\/IdnaTest\.txt\:3353\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("齙--𝟰.SS", %p)}, "xn----4-p16k.ss", "to_ascii\(\'齙\-\-𝟰\.SS\'\)\ \[data\/IdnaTest\.txt\:3354\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{1BF2}.𐹢𞀖\x{200C}", %p)}, undef, "to_ascii\(\'\\u1BF2\.𐹢\?\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3356\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󃲙󠋘｡\x{DEDE}-\x{200D}", %p)}, undef, "to_ascii\(\'\?\?｡\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A3\ \[data\/IdnaTest\.txt\:3358\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󃲙󠋘。\x{DEDE}-\x{200D}", %p)}, undef, "to_ascii\(\'\?\?\。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A3\ \[data\/IdnaTest\.txt\:3360\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1A60}．𞵷-𝪩悎", %p)}, undef, "to_ascii\(\'\\u1A60．\?\-𝪩悎\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3361\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1A60}.𞵷-𝪩悎", %p)}, undef, "to_ascii\(\'\\u1A60\.\?\-𝪩悎\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3362\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𛜯󠊛．𞤳񏥾", %p)}, undef, "to_ascii\(\'\?\?．\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3363\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𛜯󠊛.𞤳񏥾", %p)}, undef, "to_ascii\(\'\?\?\.\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3364\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{071C}𐫒\x{062E}.𐋲", %p)}, "xn--tgb98b8643d.xn--m97c", "to_ascii\(\'\\u071C𐫒\\u062E\.𐋲\'\)\ \[data\/IdnaTest\.txt\:3365\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--tgb98b8643d.xn--m97c", %p)}, "xn--tgb98b8643d.xn--m97c", "to_ascii\(\'xn\-\-tgb98b8643d\.xn\-\-m97c\'\)\ \[data\/IdnaTest\.txt\:3366\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐼑𞤓\x{0637}\x{08E2}.\x{DF56}", %p)}, undef, "to_ascii\(\'\?\?\\u0637\\u08E2\.\\uDF56\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:3367\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ↄ。\x{0A4D}\x{1CD4}𞷣", %p)}, undef, "to_ascii\(\'Ↄ\。\\u0A4D\\u1CD4\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3368\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ↄ。\x{1CD4}\x{0A4D}𞷣", %p)}, undef, "to_ascii\(\'Ↄ\。\\u1CD4\\u0A4D\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3369\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ↄ。\x{1CD4}\x{0A4D}𞷣", %p)}, undef, "to_ascii\(\'ↄ\。\\u1CD4\\u0A4D\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3370\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ↄ。\x{0A4D}\x{1CD4}𞷣", %p)}, undef, "to_ascii\(\'ↄ\。\\u0A4D\\u1CD4\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3371\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠪢-。򛂏≮𑜫", %p)}, undef, "to_ascii\(\'\?\-\。\?\≮𑜫\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3372\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠪢-。򛂏<\x{0338}𑜫", %p)}, undef, "to_ascii\(\'\?\-\。\?\<\\u0338𑜫\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3373\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠉹\x{200D}。򌿧≮Ⴉ", %p)}, undef, "to_ascii\(\'\\u200C\?\\u200D\。\?\≮Ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3375\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠉹\x{200D}。򌿧<\x{0338}Ⴉ", %p)}, undef, "to_ascii\(\'\\u200C\?\\u200D\。\?\<\\u0338Ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3377\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠉹\x{200D}。򌿧<\x{0338}ⴉ", %p)}, undef, "to_ascii\(\'\\u200C\?\\u200D\。\?\<\\u0338ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3379\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠉹\x{200D}。򌿧≮ⴉ", %p)}, undef, "to_ascii\(\'\\u200C\?\\u200D\。\?\≮ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3381\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹯-𑄴\x{08BC}。︒䖐⾆", %p)}, undef, "to_ascii\(\'𐹯\-𑄴\\u08BC\。︒䖐⾆\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3382\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𐹯-𑄴\x{08BC}。。䖐舌", %p)}, undef, "to_ascii\(\'𐹯\-𑄴\\u08BC\。\。䖐舌\'\)\ throws\ error\ B1\ A4_2\ \[data\/IdnaTest\.txt\:3383\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𝪞Ⴐ｡쪡", %p)}, undef, "to_ascii\(\'𝪞Ⴐ｡쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3384\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝪞Ⴐ｡쪡", %p)}, undef, "to_ascii\(\'𝪞Ⴐ｡쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3385\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝪞Ⴐ。쪡", %p)}, undef, "to_ascii\(\'𝪞Ⴐ\。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3386\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝪞Ⴐ。쪡", %p)}, undef, "to_ascii\(\'𝪞Ⴐ\。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3387\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𝪞ⴐ。쪡", %p)}, undef, "to_ascii\(\'𝪞ⴐ\。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3388\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𝪞ⴐ。쪡", %p)}, undef, "to_ascii\(\'𝪞ⴐ\。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3389\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𝪞ⴐ｡쪡", %p)}, undef, "to_ascii\(\'𝪞ⴐ｡쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3390\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𝪞ⴐ｡쪡", %p)}, undef, "to_ascii\(\'𝪞ⴐ｡쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3391\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0E3A}쩁𐹬.􋉳", %p)}, undef, "to_ascii\(\'\\u0E3A쩁𐹬\.\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3392\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0E3A}쩁𐹬.􋉳", %p)}, undef, "to_ascii\(\'\\u0E3A쩁𐹬\.\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3393\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡅ０\x{200C}｡⎢󤨄", %p)}, undef, "to_ascii\(\'ᡅ０\\u200C｡\⎢\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3395\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡅ0\x{200C}。⎢󤨄", %p)}, undef, "to_ascii\(\'ᡅ0\\u200C\。\⎢\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3397\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲮚９ꍩ\x{17D3}．\x{200D}ß", %p)}, undef, "to_ascii\(\'\?９ꍩ\\u17D3．\\u200Dß\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3399\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲮚9ꍩ\x{17D3}.\x{200D}ß", %p)}, undef, "to_ascii\(\'\?9ꍩ\\u17D3\.\\u200Dß\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3401\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲮚9ꍩ\x{17D3}.\x{200D}SS", %p)}, undef, "to_ascii\(\'\?9ꍩ\\u17D3\.\\u200DSS\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3403\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲮚9ꍩ\x{17D3}.\x{200D}ss", %p)}, undef, "to_ascii\(\'\?9ꍩ\\u17D3\.\\u200Dss\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3405\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲮚9ꍩ\x{17D3}.\x{200D}Ss", %p)}, undef, "to_ascii\(\'\?9ꍩ\\u17D3\.\\u200DSs\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3407\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲮚９ꍩ\x{17D3}．\x{200D}SS", %p)}, undef, "to_ascii\(\'\?９ꍩ\\u17D3．\\u200DSS\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3409\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲮚９ꍩ\x{17D3}．\x{200D}ss", %p)}, undef, "to_ascii\(\'\?９ꍩ\\u17D3．\\u200Dss\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3411\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲮚９ꍩ\x{17D3}．\x{200D}Ss", %p)}, undef, "to_ascii\(\'\?９ꍩ\\u17D3．\\u200DSs\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3413\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ꗷ𑆀.\x{075D}𐩒", %p)}, "xn--ju8a625r.xn--hpb0073k", "to_ascii\(\'ꗷ𑆀\.\\u075D𐩒\'\)\ \[data\/IdnaTest\.txt\:3414\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("xn--ju8a625r.xn--hpb0073k", %p)}, "xn--ju8a625r.xn--hpb0073k", "to_ascii\(\'xn\-\-ju8a625r\.xn\-\-hpb0073k\'\)\ \[data\/IdnaTest\.txt\:3415\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⒐≯-。︒򩑣-񞛠", %p)}, undef, "to_ascii\(\'⒐\≯\-\。︒\?\-\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3416\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒐>\x{0338}-。︒򩑣-񞛠", %p)}, undef, "to_ascii\(\'⒐\>\\u0338\-\。︒\?\-\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3417\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("9.≯-。。򩑣-񞛠", %p)}, undef, "to_ascii\(\'9\.\≯\-\。\。\?\-\?\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3418\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("9.>\x{0338}-。。򩑣-񞛠", %p)}, undef, "to_ascii\(\'9\.\>\\u0338\-\。\。\?\-\?\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3419\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򈪚\x{0CE3}Ⴡ󠢏．\x{061D}", %p)}, undef, "to_ascii\(\'\?\\u0CE3Ⴡ\?．\\u061D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3420\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򈪚\x{0CE3}Ⴡ󠢏.\x{061D}", %p)}, undef, "to_ascii\(\'\?\\u0CE3Ⴡ\?\.\\u061D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3421\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򈪚\x{0CE3}ⴡ󠢏.\x{061D}", %p)}, undef, "to_ascii\(\'\?\\u0CE3ⴡ\?\.\\u061D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3422\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򈪚\x{0CE3}ⴡ󠢏．\x{061D}", %p)}, undef, "to_ascii\(\'\?\\u0CE3ⴡ\?．\\u061D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3423\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1DEB}。𐋩\x{0638}-𐫮", %p)}, undef, "to_ascii\(\'\\u1DEB\。𐋩\\u0638\-𐫮\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3424\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("싇。⾇𐳋Ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐳋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3425\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("싇。⾇𐳋Ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐳋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3426\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("싇。舛𐳋Ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐳋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3427\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("싇。舛𐳋Ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐳋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3428\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("싇。舛𐳋ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐳋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3429\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("싇。舛𐳋ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐳋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3430\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("싇。舛𐲋Ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐲋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3431\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("싇。舛𐲋Ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐲋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3432\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("싇。舛𐲋ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐲋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3433\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("싇。舛𐲋ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐲋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3434\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("싇。⾇𐳋ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐳋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3435\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("싇。⾇𐳋ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐳋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3436\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("싇。⾇𐲋Ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐲋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3437\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("싇。⾇𐲋Ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐲋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3438\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("싇。⾇𐲋ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐲋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3439\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("싇。⾇𐲋ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐲋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3440\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐹠ς。\x{200C}\x{06BF}Ⴠ", %p)}, undef, "to_ascii\(\'𐹠ς\。\\u200C\\u06BFჀ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3442\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹠ς。\x{200C}\x{06BF}ⴠ", %p)}, undef, "to_ascii\(\'𐹠ς\。\\u200C\\u06BFⴠ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:3444\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐹠Σ。\x{200C}\x{06BF}Ⴠ", %p)}, undef, "to_ascii\(\'𐹠Σ\。\\u200C\\u06BFჀ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3446\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹠σ。\x{200C}\x{06BF}ⴠ", %p)}, undef, "to_ascii\(\'𐹠σ\。\\u200C\\u06BFⴠ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:3448\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򇒐\x{200C}\x{0604}.\x{069A}-ß", %p)}, undef, "to_ascii\(\'\?\\u200C\\u0604\.\\u069A\-ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3450\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򇒐\x{200C}\x{0604}.\x{069A}-SS", %p)}, undef, "to_ascii\(\'\?\\u200C\\u0604\.\\u069A\-SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3452\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򇒐\x{200C}\x{0604}.\x{069A}-ss", %p)}, undef, "to_ascii\(\'\?\\u200C\\u0604\.\\u069A\-ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3454\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򇒐\x{200C}\x{0604}.\x{069A}-Ss", %p)}, undef, "to_ascii\(\'\?\\u200C\\u0604\.\\u069A\-Ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3456\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{200D}\x{17B5}\x{067A}.-\x{FBB0}󅄞𐸚", %p)}, undef, "to_ascii\(\'\\u200C\\u200D\\u17B5\\u067A\.\-\\uFBB0\?\?\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:3458\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{200D}\x{17B5}\x{067A}.-\x{06D3}󅄞𐸚", %p)}, undef, "to_ascii\(\'\\u200C\\u200D\\u17B5\\u067A\.\-\\u06D3\?\?\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:3460\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{200D}\x{17B5}\x{067A}.-\x{06D2}\x{0654}󅄞𐸚", %p)}, undef, "to_ascii\(\'\\u200C\\u200D\\u17B5\\u067A\.\-\\u06D2\\u0654\?\?\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:3462\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򡶱｡𐮬≠", %p)}, undef, "to_ascii\(\'\?｡𐮬\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3463\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򡶱｡𐮬=\x{0338}", %p)}, undef, "to_ascii\(\'\?｡𐮬\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3464\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򡶱。𐮬≠", %p)}, undef, "to_ascii\(\'\?\。𐮬\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3465\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򡶱。𐮬=\x{0338}", %p)}, undef, "to_ascii\(\'\?\。𐮬\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3466\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0FB2}𞶅｡𐹮𐹷덝۵", %p)}, undef, "to_ascii\(\'\\u0FB2\?｡𐹮𐹷덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3467\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0FB2}𞶅｡𐹮𐹷덝۵", %p)}, undef, "to_ascii\(\'\\u0FB2\?｡𐹮𐹷덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3468\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0FB2}𞶅。𐹮𐹷덝۵", %p)}, undef, "to_ascii\(\'\\u0FB2\?\。𐹮𐹷덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3469\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0FB2}𞶅。𐹮𐹷덝۵", %p)}, undef, "to_ascii\(\'\\u0FB2\?\。𐹮𐹷덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3470\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴏ󠅋-．\x{200D}Ⴉ", %p)}, undef, "to_ascii\(\'Ⴏ\󠅋\-．\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3472\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴏ󠅋-.\x{200D}Ⴉ", %p)}, undef, "to_ascii\(\'Ⴏ\󠅋\-\.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3474\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴏ󠅋-.\x{200D}ⴉ", %p)}, undef, "to_ascii\(\'ⴏ\󠅋\-\.\\u200Dⴉ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3476\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴏ󠅋-．\x{200D}ⴉ", %p)}, undef, "to_ascii\(\'ⴏ\󠅋\-．\\u200Dⴉ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3478\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⇧𐨏󠾈󯶅。\x{0600}󠈵󠆉", %p)}, undef, "to_ascii\(\'\⇧𐨏\?\?\。\\u0600\?\󠆉\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3479\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠𐮂.↑🄇⒈", %p)}, undef, "to_ascii\(\'\≠𐮂\.\↑🄇⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3480\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}𐮂.↑🄇⒈", %p)}, undef, "to_ascii\(\'\=\\u0338𐮂\.\↑🄇⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3481\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠𐮂.↑6,1.", %p)}, undef, "to_ascii\(\'\≠𐮂\.\↑6\,1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3482\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}𐮂.↑6,1.", %p)}, undef, "to_ascii\(\'\=\\u0338𐮂\.\↑6\,1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3483\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝩏󠲉ß.ᢤ򄦌\x{200C}𐹫", %p)}, undef, "to_ascii\(\'𝩏\?ß\.ᢤ\?\\u200C𐹫\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3485\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝩏󠲉SS.ᢤ򄦌\x{200C}𐹫", %p)}, undef, "to_ascii\(\'𝩏\?SS\.ᢤ\?\\u200C𐹫\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3487\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝩏󠲉ss.ᢤ򄦌\x{200C}𐹫", %p)}, undef, "to_ascii\(\'𝩏\?ss\.ᢤ\?\\u200C𐹫\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3489\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝩏󠲉Ss.ᢤ򄦌\x{200C}𐹫", %p)}, undef, "to_ascii\(\'𝩏\?Ss\.ᢤ\?\\u200C𐹫\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3491\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß𐵳񗘁Ⴇ｡\x{A67A}", %p)}, undef, "to_ascii\(\'ß\?\?Ⴇ｡\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3492\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß𐵳񗘁Ⴇ。\x{A67A}", %p)}, undef, "to_ascii\(\'ß\?\?Ⴇ\。\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3493\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß𐵳񗘁ⴇ。\x{A67A}", %p)}, undef, "to_ascii\(\'ß\?\?ⴇ\。\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3494\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS𐵳񗘁Ⴇ。\x{A67A}", %p)}, undef, "to_ascii\(\'SS\?\?Ⴇ\。\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3495\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss𐵳񗘁ⴇ。\x{A67A}", %p)}, undef, "to_ascii\(\'ss\?\?ⴇ\。\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3496\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss𐵳񗘁Ⴇ。\x{A67A}", %p)}, undef, "to_ascii\(\'Ss\?\?Ⴇ\。\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3497\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß𐵳񗘁ⴇ｡\x{A67A}", %p)}, undef, "to_ascii\(\'ß\?\?ⴇ｡\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3498\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS𐵳񗘁Ⴇ｡\x{A67A}", %p)}, undef, "to_ascii\(\'SS\?\?Ⴇ｡\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3499\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss𐵳񗘁ⴇ｡\x{A67A}", %p)}, undef, "to_ascii\(\'ss\?\?ⴇ｡\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3500\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss𐵳񗘁Ⴇ｡\x{A67A}", %p)}, undef, "to_ascii\(\'Ss\?\?Ⴇ｡\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3501\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1714}。󠆣-𑋪", %p)}, undef, "to_ascii\(\'\\u1714\。\󠆣\-𑋪\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3502\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{ABE8}-．򨏜\x{05BD}ß", %p)}, undef, "to_ascii\(\'\\uABE8\-．\?\\u05BDß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3503\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{ABE8}-.򨏜\x{05BD}ß", %p)}, undef, "to_ascii\(\'\\uABE8\-\.\?\\u05BDß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3504\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{ABE8}-.򨏜\x{05BD}SS", %p)}, undef, "to_ascii\(\'\\uABE8\-\.\?\\u05BDSS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3505\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{ABE8}-.򨏜\x{05BD}ss", %p)}, undef, "to_ascii\(\'\\uABE8\-\.\?\\u05BDss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3506\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{ABE8}-.򨏜\x{05BD}Ss", %p)}, undef, "to_ascii\(\'\\uABE8\-\.\?\\u05BDSs\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3507\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{ABE8}-．򨏜\x{05BD}SS", %p)}, undef, "to_ascii\(\'\\uABE8\-．\?\\u05BDSS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3508\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{ABE8}-．򨏜\x{05BD}ss", %p)}, undef, "to_ascii\(\'\\uABE8\-．\?\\u05BDss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3509\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{ABE8}-．򨏜\x{05BD}Ss", %p)}, undef, "to_ascii\(\'\\uABE8\-．\?\\u05BDSs\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3510\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡓ-≮。\x{066B}󠅱ᡄ", %p)}, undef, "to_ascii\(\'ᡓ\-\≮\。\\u066B\󠅱ᡄ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3511\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡓ-<\x{0338}。\x{066B}󠅱ᡄ", %p)}, undef, "to_ascii\(\'ᡓ\-\<\\u0338\。\\u066B\󠅱ᡄ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3512\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𝟥♮𑜫\x{08ED}．\x{17D2}𑜫8󠆏", %p)}, undef, "to_ascii\(\'𝟥\♮𑜫\\u08ED．\\u17D2𑜫8\󠆏\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3513\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("3♮𑜫\x{08ED}.\x{17D2}𑜫8󠆏", %p)}, undef, "to_ascii\(\'3\♮𑜫\\u08ED\.\\u17D2𑜫8\󠆏\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3514\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-｡򕌀\x{200D}❡", %p)}, undef, "to_ascii\(\'\-｡\?\\u200D\❡\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3516\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-。򕌀\x{200D}❡", %p)}, undef, "to_ascii\(\'\-\。\?\\u200D\❡\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3518\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟓☱𝟐򥰵｡𝪮񐡳", %p)}, undef, "to_ascii\(\'𝟓\☱𝟐\?｡𝪮\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3519\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("5☱2򥰵。𝪮񐡳", %p)}, undef, "to_ascii\(\'5\☱2\?\。𝪮\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3520\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-.-├򖦣", %p)}, undef, "to_ascii\(\'\-\.\-\├\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3521\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05A5}\x{076D}｡\x{200D}󠀘", %p)}, undef, "to_ascii\(\'\\u05A5\\u076D｡\\u200D\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3523\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05A5}\x{076D}。\x{200D}󠀘", %p)}, undef, "to_ascii\(\'\\u05A5\\u076D\。\\u200D\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3525\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("쥥󔏉Ⴎ．\x{200C}⒈⒈𐫒", %p)}, undef, "to_ascii\(\'쥥\?Ⴎ．\\u200C⒈⒈𐫒\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3527\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("쥥󔏉Ⴎ．\x{200C}⒈⒈𐫒", %p)}, undef, "to_ascii\(\'쥥\?Ⴎ．\\u200C⒈⒈𐫒\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3529\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("쥥󔏉Ⴎ.\x{200C}1.1.𐫒", %p)}, undef, "to_ascii\(\'쥥\?Ⴎ\.\\u200C1\.1\.𐫒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3531\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("쥥󔏉Ⴎ.\x{200C}1.1.𐫒", %p)}, undef, "to_ascii\(\'쥥\?Ⴎ\.\\u200C1\.1\.𐫒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3533\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("쥥󔏉ⴎ.\x{200C}1.1.𐫒", %p)}, undef, "to_ascii\(\'쥥\?ⴎ\.\\u200C1\.1\.𐫒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3535\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("쥥󔏉ⴎ.\x{200C}1.1.𐫒", %p)}, undef, "to_ascii\(\'쥥\?ⴎ\.\\u200C1\.1\.𐫒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3537\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("쥥󔏉ⴎ．\x{200C}⒈⒈𐫒", %p)}, undef, "to_ascii\(\'쥥\?ⴎ．\\u200C⒈⒈𐫒\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3539\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("쥥󔏉ⴎ．\x{200C}⒈⒈𐫒", %p)}, undef, "to_ascii\(\'쥥\?ⴎ．\\u200C⒈⒈𐫒\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3541\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{0827}𝟶\x{06A0}-。𑄳", %p)}, undef, "to_ascii\(\'\\u0827𝟶\\u06A0\-\。𑄳\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3542\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{0827}0\x{06A0}-。𑄳", %p)}, undef, "to_ascii\(\'\\u08270\\u06A0\-\。𑄳\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3543\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ς．\x{FDC1}🞛⒈", %p)}, undef, "to_ascii\(\'ς．\\uFDC1🞛⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3544\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ς.\x{0641}\x{0645}\x{064A}🞛1.", %p)}, "xn--3xa.xn--1-gocmu97674d.", "to_ascii\(\'ς\.\\u0641\\u0645\\u064A🞛1\.\'\)\ \[data\/IdnaTest\.txt\:3546\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ.\x{0641}\x{0645}\x{064A}🞛1.", %p)}, "xn--4xa.xn--1-gocmu97674d.", "to_ascii\(\'Σ\.\\u0641\\u0645\\u064A🞛1\.\'\)\ \[data\/IdnaTest\.txt\:3547\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σ.\x{0641}\x{0645}\x{064A}🞛1.", %p)}, "xn--4xa.xn--1-gocmu97674d.", "to_ascii\(\'σ\.\\u0641\\u0645\\u064A🞛1\.\'\)\ \[data\/IdnaTest\.txt\:3548\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--4xa.xn--1-gocmu97674d.", %p)}, "xn--4xa.xn--1-gocmu97674d.", "to_ascii\(\'xn\-\-4xa\.xn\-\-1\-gocmu97674d\.\'\)\ \[data\/IdnaTest\.txt\:3549\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--3xa.xn--1-gocmu97674d.", %p)}, "xn--3xa.xn--1-gocmu97674d.", "to_ascii\(\'xn\-\-3xa\.xn\-\-1\-gocmu97674d\.\'\)\ \[data\/IdnaTest\.txt\:3550\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Σ．\x{FDC1}🞛⒈", %p)}, undef, "to_ascii\(\'Σ．\\uFDC1🞛⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3551\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ．\x{FDC1}🞛⒈", %p)}, undef, "to_ascii\(\'σ．\\uFDC1🞛⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3552\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🗩-｡𐹻󐞆񥉮", %p)}, undef, "to_ascii\(\'🗩\-｡𐹻\?\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3553\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🗩-。𐹻󐞆񥉮", %p)}, undef, "to_ascii\(\'🗩\-\。𐹻\?\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3554\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐡜-🔪｡𝟻\x{200C}𐿀", %p)}, undef, "to_ascii\(\'𐡜\-🔪｡𝟻\\u200C\?\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:3556\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐡜-🔪。5\x{200C}𐿀", %p)}, undef, "to_ascii\(\'𐡜\-🔪\。5\\u200C\?\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:3558\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}ß．\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200Dß．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3560\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}ß．\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200Dß．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3562\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}ß.\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200Dß\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3564\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}ß.\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200Dß\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3566\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}SS.\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200DSS\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3568\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}SS.\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200DSS\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3570\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}ss.\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200Dss\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3572\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}ss.\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200Dss\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3574\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}Ss.\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200DSs\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3576\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}Ss.\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200DSs\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3578\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}SS．\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200DSS．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3580\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}SS．\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200DSS．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3582\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}ss．\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200Dss．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3584\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}ss．\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200Dss．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3586\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}Ss．\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200DSs．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3588\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹣늿\x{200D}Ss．\x{07CF}0\x{05BC}", %p)}, undef, "to_ascii\(\'𐹣늿\\u200DSs．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3590\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("9󠇥．󪴴ᢓ", %p)}, undef, "to_ascii\(\'9\󠇥．\?ᢓ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3591\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("9󠇥.󪴴ᢓ", %p)}, undef, "to_ascii\(\'9\󠇥\.\?ᢓ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3592\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.𐫭🠗ß⽟", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.𐫭🠗ß⽟\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3594\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{1160}.𐫭🠗ß玉", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.𐫭🠗ß玉\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3596\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{1160}.𐫭🠗SS玉", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.𐫭🠗SS玉\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3598\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{1160}.𐫭🠗ss玉", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.𐫭🠗ss玉\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3600\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{1160}.𐫭🠗Ss玉", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.𐫭🠗Ss玉\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3602\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.𐫭🠗SS⽟", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.𐫭🠗SS⽟\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3604\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.𐫭🠗ss⽟", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.𐫭🠗ss⽟\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3606\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.𐫭🠗Ss⽟", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.𐫭🠗Ss⽟\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3608\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒Ⴖ\x{0366}．\x{200C}", %p)}, undef, "to_ascii\(\'︒Ⴖ\\u0366．\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3610\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。Ⴖ\x{0366}.\x{200C}", %p)}, undef, "to_ascii\(\'\。Ⴖ\\u0366\.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3612\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("。ⴖ\x{0366}.\x{200C}", %p)}, undef, "to_ascii\(\'\。ⴖ\\u0366\.\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3614\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--hva754s.", %p)}, "xn--hva754s.", "to_ascii\(\'xn\-\-hva754s\.\'\)\ \[data\/IdnaTest\.txt\:3615\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴖ\x{0366}.", %p)}, "xn--hva754s.", "to_ascii\(\'ⴖ\\u0366\.\'\)\ \[data\/IdnaTest\.txt\:3616\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴖ\x{0366}.", %p)}, undef, "to_ascii\(\'Ⴖ\\u0366\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3617\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒ⴖ\x{0366}．\x{200C}", %p)}, undef, "to_ascii\(\'︒ⴖ\\u0366．\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3619\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08BB}．\x{200C}Ⴃ𞀒", %p)}, undef, "to_ascii\(\'\\u08BB．\\u200CႣ\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3621\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{08BB}.\x{200C}Ⴃ𞀒", %p)}, undef, "to_ascii\(\'\\u08BB\.\\u200CႣ\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3623\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{08BB}.\x{200C}ⴃ𞀒", %p)}, undef, "to_ascii\(\'\\u08BB\.\\u200Cⴃ\?\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3625\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--hzb.xn--ukj4430l", %p)}, "xn--hzb.xn--ukj4430l", "to_ascii\(\'xn\-\-hzb\.xn\-\-ukj4430l\'\)\ \[data\/IdnaTest\.txt\:3626\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{08BB}.ⴃ𞀒", %p)}, "xn--hzb.xn--ukj4430l", "to_ascii\(\'\\u08BB\.ⴃ\?\'\)\ \[data\/IdnaTest\.txt\:3627\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{08BB}.Ⴃ𞀒", %p)}, undef, "to_ascii\(\'\\u08BB\.Ⴃ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3628\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{08BB}．\x{200C}ⴃ𞀒", %p)}, undef, "to_ascii\(\'\\u08BB．\\u200Cⴃ\?\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3630\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}\x{200C}。２䫷󠧷", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\。２䫷\?\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:3632\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}\x{200C}。2䫷󠧷", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\。2䫷\?\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:3634\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𞀤󜠐。򈬖", %p)}, undef, "to_ascii\(\'\-\?\?\。\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3635\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󳛂︒\x{200C}㟀．\x{0624}⒈", %p)}, undef, "to_ascii\(\'\?︒\\u200C㟀．\\u0624⒈\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3637\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󳛂︒\x{200C}㟀．\x{0648}\x{0654}⒈", %p)}, undef, "to_ascii\(\'\?︒\\u200C㟀．\\u0648\\u0654⒈\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3639\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󳛂。\x{200C}㟀.\x{0624}1.", %p)}, undef, "to_ascii\(\'\?\。\\u200C㟀\.\\u06241\.\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3641\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󳛂。\x{200C}㟀.\x{0648}\x{0654}1.", %p)}, undef, "to_ascii\(\'\?\。\\u200C㟀\.\\u0648\\u06541\.\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3643\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𑲜\x{07CA}𝅼。-\x{200D}", %p)}, undef, "to_ascii\(\'\?\\u07CA𝅼\。\-\\u200D\'\)\ throws\ error\ V5\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3645\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}．Ⴉ≠𐫶", %p)}, undef, "to_ascii\(\'\\u200C．Ⴉ\≠𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3647\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}．Ⴉ=\x{0338}𐫶", %p)}, undef, "to_ascii\(\'\\u200C．Ⴉ\=\\u0338𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3649\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.Ⴉ≠𐫶", %p)}, undef, "to_ascii\(\'\\u200C\.Ⴉ\≠𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3651\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.Ⴉ=\x{0338}𐫶", %p)}, undef, "to_ascii\(\'\\u200C\.Ⴉ\=\\u0338𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3653\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.ⴉ=\x{0338}𐫶", %p)}, undef, "to_ascii\(\'\\u200C\.ⴉ\=\\u0338𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3655\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.ⴉ≠𐫶", %p)}, undef, "to_ascii\(\'\\u200C\.ⴉ\≠𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3657\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}．ⴉ=\x{0338}𐫶", %p)}, undef, "to_ascii\(\'\\u200C．ⴉ\=\\u0338𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3659\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}．ⴉ≠𐫶", %p)}, undef, "to_ascii\(\'\\u200C．ⴉ\≠𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3661\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0750}。≯ς", %p)}, undef, "to_ascii\(\'\\u0750\。\≯ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3662\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0750}。>\x{0338}ς", %p)}, undef, "to_ascii\(\'\\u0750\。\>\\u0338ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3663\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0750}。>\x{0338}Σ", %p)}, undef, "to_ascii\(\'\\u0750\。\>\\u0338Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3664\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0750}。≯Σ", %p)}, undef, "to_ascii\(\'\\u0750\。\≯Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3665\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0750}。≯σ", %p)}, undef, "to_ascii\(\'\\u0750\。\≯σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3666\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0750}。>\x{0338}σ", %p)}, undef, "to_ascii\(\'\\u0750\。\>\\u0338σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3667\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07FC}𐸆.𓖏︒񊨩Ⴐ", %p)}, undef, "to_ascii\(\'\\u07FC\?\.\?︒\?Ⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3668\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07FC}𐸆.𓖏。񊨩Ⴐ", %p)}, undef, "to_ascii\(\'\\u07FC\?\.\?\。\?Ⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3669\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07FC}𐸆.𓖏。񊨩ⴐ", %p)}, undef, "to_ascii\(\'\\u07FC\?\.\?\。\?ⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3670\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07FC}𐸆.𓖏︒񊨩ⴐ", %p)}, undef, "to_ascii\(\'\\u07FC\?\.\?︒\?ⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3671\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴥ⚭󠖫⋃｡𑌼", %p)}, undef, "to_ascii\(\'Ⴥ\⚭\?\⋃｡𑌼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3672\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴥ⚭󠖫⋃。𑌼", %p)}, undef, "to_ascii\(\'Ⴥ\⚭\?\⋃\。𑌼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3673\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴥ⚭󠖫⋃。𑌼", %p)}, undef, "to_ascii\(\'ⴥ\⚭\?\⋃\。𑌼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3674\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴥ⚭󠖫⋃｡𑌼", %p)}, undef, "to_ascii\(\'ⴥ\⚭\?\⋃｡𑌼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3675\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄈。󠷳\x{0844}", %p)}, undef, "to_ascii\(\'🄈\。\?\\u0844\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3676\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("7,。󠷳\x{0844}", %p)}, undef, "to_ascii\(\'7\,\。\?\\u0844\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3677\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮\x{0846}。섖쮖ß", %p)}, undef, "to_ascii\(\'\≮\\u0846\。섖쮖ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3678\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}\x{0846}。섖쮖ß", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0846\。섖쮖ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3679\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}\x{0846}。섖쮖SS", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0846\。섖쮖SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3680\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮\x{0846}。섖쮖SS", %p)}, undef, "to_ascii\(\'\≮\\u0846\。섖쮖SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3681\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮\x{0846}。섖쮖ss", %p)}, undef, "to_ascii\(\'\≮\\u0846\。섖쮖ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3682\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}\x{0846}。섖쮖ss", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0846\。섖쮖ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3683\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}\x{0846}。섖쮖Ss", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0846\。섖쮖Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3684\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮\x{0846}。섖쮖Ss", %p)}, undef, "to_ascii\(\'\≮\\u0846\。섖쮖Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3685\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("󠆓⛏-。ꡒ", %p)}, undef, "to_ascii\(\'\󠆓\⛏\-\。ꡒ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3686\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{07BB}𐹳\x{0626}𑁆。\x{08A7}\x{06B0}\x{200C}ᢒ", %p)}, undef, "to_ascii\(\'\\u07BB𐹳\\u0626𑁆\。\\u08A7\\u06B0\\u200Cᢒ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3687\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07BB}𐹳\x{064A}𑁆\x{0654}。\x{08A7}\x{06B0}\x{200C}ᢒ", %p)}, undef, "to_ascii\(\'\\u07BB𐹳\\u064A𑁆\\u0654\。\\u08A7\\u06B0\\u200Cᢒ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3688\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0816}.𐨕𚚕", %p)}, undef, "to_ascii\(\'\\u0816\.𐨕\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3689\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("--。𽊆\x{0767}𐽋𞠬", %p)}, undef, "to_ascii\(\'\-\-\。\?\\u0767\?𞠬\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3690\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򛭦𐋥𹸐.≯\x{08B0}\x{08A6}󔛣", %p)}, undef, "to_ascii\(\'\?𐋥\?\.\≯\\u08B0\\u08A6\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3691\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򛭦𐋥𹸐.>\x{0338}\x{08B0}\x{08A6}󔛣", %p)}, undef, "to_ascii\(\'\?𐋥\?\.\>\\u0338\\u08B0\\u08A6\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3692\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䔛󠇒򤸞𐹧．-䤷", %p)}, undef, "to_ascii\(\'䔛\󠇒\?𐹧．\-䤷\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3693\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䔛󠇒򤸞𐹧.-䤷", %p)}, undef, "to_ascii\(\'䔛\󠇒\?𐹧\.\-䤷\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3694\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹩．\x{200D}-", %p)}, undef, "to_ascii\(\'𐹩．\\u200D\-\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3696\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹩.\x{200D}-", %p)}, undef, "to_ascii\(\'𐹩\.\\u200D\-\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3698\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񂈦帷｡≯萺\x{1DC8}-", %p)}, undef, "to_ascii\(\'\?帷｡\≯萺\\u1DC8\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3699\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񂈦帷｡>\x{0338}萺\x{1DC8}-", %p)}, undef, "to_ascii\(\'\?帷｡\>\\u0338萺\\u1DC8\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3700\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񂈦帷。≯萺\x{1DC8}-", %p)}, undef, "to_ascii\(\'\?帷\。\≯萺\\u1DC8\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3701\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񂈦帷。>\x{0338}萺\x{1DC8}-", %p)}, undef, "to_ascii\(\'\?帷\。\>\\u0338萺\\u1DC8\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3702\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}攌\x{ABED}。ᢖ-Ⴘ", %p)}, undef, "to_ascii\(\'\\u200D攌\\uABED\。ᢖ\-Ⴘ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3704\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200D}攌\x{ABED}。ᢖ-ⴘ", %p)}, undef, "to_ascii\(\'\\u200D攌\\uABED\。ᢖ\-ⴘ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3706\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("xn--p9ut19m.xn----mck373i", %p)}, "xn--p9ut19m.xn----mck373i", "to_ascii\(\'xn\-\-p9ut19m\.xn\-\-\-\-mck373i\'\)\ \[data\/IdnaTest\.txt\:3707\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("攌\x{ABED}.ᢖ-ⴘ", %p)}, "xn--p9ut19m.xn----mck373i", "to_ascii\(\'攌\\uABED\.ᢖ\-ⴘ\'\)\ \[data\/IdnaTest\.txt\:3708\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("攌\x{ABED}.ᢖ-Ⴘ", %p)}, undef, "to_ascii\(\'攌\\uABED\.ᢖ\-Ⴘ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3709\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ꖨ．⒗３툒۳", %p)}, undef, "to_ascii\(\'\\u200Cꖨ．⒗３툒۳\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3711\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ꖨ．⒗３툒۳", %p)}, undef, "to_ascii\(\'\\u200Cꖨ．⒗３툒۳\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3713\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200C}ꖨ.16.3툒۳", %p)}, undef, "to_ascii\(\'\\u200Cꖨ\.16\.3툒۳\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3715\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200C}ꖨ.16.3툒۳", %p)}, undef, "to_ascii\(\'\\u200Cꖨ\.16\.3툒۳\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3717\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("xn--9r8a.16.xn--3-nyc0117m", %p)}, "xn--9r8a.16.xn--3-nyc0117m", "to_ascii\(\'xn\-\-9r8a\.16\.xn\-\-3\-nyc0117m\'\)\ \[data\/IdnaTest\.txt\:3718\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ꖨ.16.3툒۳", %p)}, "xn--9r8a.16.xn--3-nyc0117m", "to_ascii\(\'ꖨ\.16\.3툒۳\'\)\ \[data\/IdnaTest\.txt\:3719\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ꖨ.16.3툒۳", %p)}, "xn--9r8a.16.xn--3-nyc0117m", "to_ascii\(\'ꖨ\.16\.3툒۳\'\)\ \[data\/IdnaTest\.txt\:3720\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⒈걾6.𐱁\x{06D0}", %p)}, undef, "to_ascii\(\'⒈걾6\.𐱁\\u06D0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3721\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈걾6.𐱁\x{06D0}", %p)}, undef, "to_ascii\(\'⒈걾6\.𐱁\\u06D0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3722\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("1.걾6.𐱁\x{06D0}", %p)}, "1.xn--6-945e.xn--glb1794k", "to_ascii\(\'1\.걾6\.𐱁\\u06D0\'\)\ \[data\/IdnaTest\.txt\:3723\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("1.걾6.𐱁\x{06D0}", %p)}, "1.xn--6-945e.xn--glb1794k", "to_ascii\(\'1\.걾6\.𐱁\\u06D0\'\)\ \[data\/IdnaTest\.txt\:3724\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("1.xn--6-945e.xn--glb1794k", %p)}, "1.xn--6-945e.xn--glb1794k", "to_ascii\(\'1\.xn\-\-6\-945e\.xn\-\-glb1794k\'\)\ \[data\/IdnaTest\.txt\:3725\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐲞𝟶≮≮.󠀧\x{0639}", %p)}, undef, "to_ascii\(\'𐲞𝟶\≮\≮\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3726\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐲞𝟶<\x{0338}<\x{0338}.󠀧\x{0639}", %p)}, undef, "to_ascii\(\'𐲞𝟶\<\\u0338\<\\u0338\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3727\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐲞0≮≮.󠀧\x{0639}", %p)}, undef, "to_ascii\(\'𐲞0\≮\≮\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3728\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐲞0<\x{0338}<\x{0338}.󠀧\x{0639}", %p)}, undef, "to_ascii\(\'𐲞0\<\\u0338\<\\u0338\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3729\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐳞0<\x{0338}<\x{0338}.󠀧\x{0639}", %p)}, undef, "to_ascii\(\'𐳞0\<\\u0338\<\\u0338\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3730\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐳞0≮≮.󠀧\x{0639}", %p)}, undef, "to_ascii\(\'𐳞0\≮\≮\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3731\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐳞𝟶<\x{0338}<\x{0338}.󠀧\x{0639}", %p)}, undef, "to_ascii\(\'𐳞𝟶\<\\u0338\<\\u0338\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3732\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐳞𝟶≮≮.󠀧\x{0639}", %p)}, undef, "to_ascii\(\'𐳞𝟶\≮\≮\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3733\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0AE3}.𐹺\x{115F}", %p)}, undef, "to_ascii\(\'\\u0AE3\.𐹺\\u115F\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3734\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𝟏𝨙⸖.\x{200D}", %p)}, undef, "to_ascii\(\'𝟏𝨙\⸖\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3736\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("1𝨙⸖.\x{200D}", %p)}, undef, "to_ascii\(\'1𝨙\⸖\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3738\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("xn--1-5bt6845n.", %p)}, "xn--1-5bt6845n.", "to_ascii\(\'xn\-\-1\-5bt6845n\.\'\)\ \[data\/IdnaTest\.txt\:3739\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("1𝨙⸖.", %p)}, "xn--1-5bt6845n.", "to_ascii\(\'1𝨙\⸖\.\'\)\ \[data\/IdnaTest\.txt\:3740\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞤐≠\x{0726}\x{1A60}｡-\x{200C}\x{07D5}", %p)}, undef, "to_ascii\(\'\?\≠\\u0726\\u1A60｡\-\\u200C\\u07D5\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:3742\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤐=\x{0338}\x{0726}\x{1A60}｡-\x{200C}\x{07D5}", %p)}, undef, "to_ascii\(\'\?\=\\u0338\\u0726\\u1A60｡\-\\u200C\\u07D5\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:3744\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤐≠\x{0726}\x{1A60}。-\x{200C}\x{07D5}", %p)}, undef, "to_ascii\(\'\?\≠\\u0726\\u1A60\。\-\\u200C\\u07D5\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:3746\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤐=\x{0338}\x{0726}\x{1A60}。-\x{200C}\x{07D5}", %p)}, undef, "to_ascii\(\'\?\=\\u0338\\u0726\\u1A60\。\-\\u200C\\u07D5\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:3748\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹰\x{0368}-ꡧ｡\x{0675}", %p)}, undef, "to_ascii\(\'𐹰\\u0368\-ꡧ｡\\u0675\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3749\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹰\x{0368}-ꡧ。\x{0627}\x{0674}", %p)}, undef, "to_ascii\(\'𐹰\\u0368\-ꡧ\。\\u0627\\u0674\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3750\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("F󠅟｡򏗅♚", %p)}, undef, "to_ascii\(\'F\󠅟｡\?\♚\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3751\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("F󠅟。򏗅♚", %p)}, undef, "to_ascii\(\'F\󠅟\。\?\♚\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3752\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("f󠅟。򏗅♚", %p)}, undef, "to_ascii\(\'f\󠅟\。\?\♚\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3753\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("f󠅟｡򏗅♚", %p)}, undef, "to_ascii\(\'f\󠅟｡\?\♚\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3754\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0B4D}𑄴\x{1DE9}。𝟮Ⴘ𞀨񃥇", %p)}, undef, "to_ascii\(\'\\u0B4D𑄴\\u1DE9\。𝟮Ⴘ\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3755\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0B4D}𑄴\x{1DE9}。2Ⴘ𞀨񃥇", %p)}, undef, "to_ascii\(\'\\u0B4D𑄴\\u1DE9\。2Ⴘ\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3756\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0B4D}𑄴\x{1DE9}。2ⴘ𞀨񃥇", %p)}, undef, "to_ascii\(\'\\u0B4D𑄴\\u1DE9\。2ⴘ\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3757\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0B4D}𑄴\x{1DE9}。𝟮ⴘ𞀨񃥇", %p)}, undef, "to_ascii\(\'\\u0B4D𑄴\\u1DE9\。𝟮ⴘ\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3758\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򓠭\x{200C}\x{200C}⒈。勉𑁅", %p)}, undef, "to_ascii\(\'\?\\u200C\\u200C⒈\。勉𑁅\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3760\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򓠭\x{200C}\x{200C}1.。勉𑁅", %p)}, undef, "to_ascii\(\'\?\\u200C\\u200C1\.\。勉𑁅\'\)\ throws\ error\ P1\ V6\ C1\ A4_2\ \[data\/IdnaTest\.txt\:3762\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡃ.玿񫈜󕞐", %p)}, undef, "to_ascii\(\'ᡃ\.玿\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3763\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{200C}｡⒈≯𝟵", %p)}, undef, "to_ascii\(\'\\u200C\\u200C｡⒈\≯𝟵\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3765\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{200C}｡⒈>\x{0338}𝟵", %p)}, undef, "to_ascii\(\'\\u200C\\u200C｡⒈\>\\u0338𝟵\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3767\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{200C}。1.≯9", %p)}, undef, "to_ascii\(\'\\u200C\\u200C\。1\.\≯9\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3769\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{200C}。1.>\x{0338}9", %p)}, undef, "to_ascii\(\'\\u200C\\u200C\。1\.\>\\u03389\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3771\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}\x{1DE0}򐀁.𺻆≯𐮁", %p)}, undef, "to_ascii\(\'\\u115F\\u1DE0\?\.\?\≯𐮁\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3772\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}\x{1DE0}򐀁.𺻆>\x{0338}𐮁", %p)}, undef, "to_ascii\(\'\\u115F\\u1DE0\?\.\?\>\\u0338𐮁\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3773\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄫𝩤\x{200D}\x{063E}.𝩩-\x{081E}󑼩", %p)}, undef, "to_ascii\(\'\󠄫𝩤\\u200D\\u063E\.𝩩\-\\u081E\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3775\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{20DA}．𑘿-", %p)}, undef, "to_ascii\(\'\\u20DA．𑘿\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3776\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{20DA}.𑘿-", %p)}, undef, "to_ascii\(\'\\u20DA\.𑘿\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3777\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("䮸ß.󠵟󠭎紙\x{08A8}", %p)}, undef, "to_ascii\(\'䮸ß\.\?\?紙\\u08A8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3778\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䮸SS.󠵟󠭎紙\x{08A8}", %p)}, undef, "to_ascii\(\'䮸SS\.\?\?紙\\u08A8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3779\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䮸ss.󠵟󠭎紙\x{08A8}", %p)}, undef, "to_ascii\(\'䮸ss\.\?\?紙\\u08A8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3780\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䮸Ss.󠵟󠭎紙\x{08A8}", %p)}, undef, "to_ascii\(\'䮸Ss\.\?\?紙\\u08A8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3781\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-Ⴞ.-𝩨⅔𐦕", %p)}, undef, "to_ascii\(\'\-Ⴞ\.\-𝩨⅔𐦕\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3782\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-Ⴞ.-𝩨2⁄3𐦕", %p)}, undef, "to_ascii\(\'\-Ⴞ\.\-𝩨2\⁄3𐦕\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3783\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("-ⴞ.-𝩨2⁄3𐦕", %p)}, undef, "to_ascii\(\'\-ⴞ\.\-𝩨2\⁄3𐦕\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:3784\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("-ⴞ.-𝩨⅔𐦕", %p)}, undef, "to_ascii\(\'\-ⴞ\.\-𝩨⅔𐦕\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:3785\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󧈯𐹯\x{0AC2}｡򖢨𐮁񇼖ᡂ", %p)}, undef, "to_ascii\(\'\?𐹯\\u0AC2｡\?𐮁\?ᡂ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3786\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧈯𐹯\x{0AC2}。򖢨𐮁񇼖ᡂ", %p)}, undef, "to_ascii\(\'\?𐹯\\u0AC2\。\?𐮁\?ᡂ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3787\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1082}-\x{200D}\x{A8EA}．ꡊ\x{200D}񼸳", %p)}, undef, "to_ascii\(\'\\u1082\-\\u200D\\uA8EA．ꡊ\\u200D\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3789\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1082}-\x{200D}\x{A8EA}.ꡊ\x{200D}񼸳", %p)}, undef, "to_ascii\(\'\\u1082\-\\u200D\\uA8EA\.ꡊ\\u200D\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3791\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("۱。≠\x{0668}", %p)}, undef, "to_ascii\(\'۱\。\≠\\u0668\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3792\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("۱。=\x{0338}\x{0668}", %p)}, undef, "to_ascii\(\'۱\。\=\\u0338\\u0668\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3793\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑈵廊.𐠍", %p)}, undef, "to_ascii\(\'𑈵廊\.𐠍\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3794\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}\x{0356}-．-Ⴐ\x{0661}", %p)}, undef, "to_ascii\(\'\\u200D\\u0356\-．\-Ⴐ\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3796\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}\x{0356}-.-Ⴐ\x{0661}", %p)}, undef, "to_ascii\(\'\\u200D\\u0356\-\.\-Ⴐ\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3798\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200D}\x{0356}-.-ⴐ\x{0661}", %p)}, undef, "to_ascii\(\'\\u200D\\u0356\-\.\-ⴐ\\u0661\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3800\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200D}\x{0356}-．-ⴐ\x{0661}", %p)}, undef, "to_ascii\(\'\\u200D\\u0356\-．\-ⴐ\\u0661\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3802\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{063A}\x{0661}挏󾯐.-", %p)}, undef, "to_ascii\(\'\\u063A\\u0661挏\?\.\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3803\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{06EF}｡𐹧𞤽", %p)}, undef, "to_ascii\(\'\\u06EF｡𐹧\?\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3804\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{06EF}。𐹧𞤽", %p)}, undef, "to_ascii\(\'\\u06EF\。𐹧\?\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3805\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴞ𶛀𛗻．ᢗ릫", %p)}, undef, "to_ascii\(\'Ⴞ\?\?．ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3806\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴞ𶛀𛗻．ᢗ릫", %p)}, undef, "to_ascii\(\'Ⴞ\?\?．ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3807\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴞ𶛀𛗻.ᢗ릫", %p)}, undef, "to_ascii\(\'Ⴞ\?\?\.ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3808\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴞ𶛀𛗻.ᢗ릫", %p)}, undef, "to_ascii\(\'Ⴞ\?\?\.ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3809\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴞ𶛀𛗻.ᢗ릫", %p)}, undef, "to_ascii\(\'ⴞ\?\?\.ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3810\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴞ𶛀𛗻.ᢗ릫", %p)}, undef, "to_ascii\(\'ⴞ\?\?\.ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3811\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴞ𶛀𛗻．ᢗ릫", %p)}, undef, "to_ascii\(\'ⴞ\?\?．ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3812\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴞ𶛀𛗻．ᢗ릫", %p)}, undef, "to_ascii\(\'ⴞ\?\?．ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3813\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠎃󗭞\x{06B7}𐹷｡≯\x{200C}\x{1DFE}", %p)}, undef, "to_ascii\(\'\?\?\\u06B7𐹷｡\≯\\u200C\\u1DFE\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3815\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠎃󗭞\x{06B7}𐹷｡>\x{0338}\x{200C}\x{1DFE}", %p)}, undef, "to_ascii\(\'\?\?\\u06B7𐹷｡\>\\u0338\\u200C\\u1DFE\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3817\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠎃󗭞\x{06B7}𐹷。≯\x{200C}\x{1DFE}", %p)}, undef, "to_ascii\(\'\?\?\\u06B7𐹷\。\≯\\u200C\\u1DFE\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3819\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠎃󗭞\x{06B7}𐹷。>\x{0338}\x{200C}\x{1DFE}", %p)}, undef, "to_ascii\(\'\?\?\\u06B7𐹷\。\>\\u0338\\u200C\\u1DFE\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3821\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᛎ󠅍󠐕\x{200D}｡𐹾𐹪𐻝-", %p)}, undef, "to_ascii\(\'ᛎ\󠅍\?\\u200D｡𐹾𐹪\?\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3823\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᛎ󠅍󠐕\x{200D}。𐹾𐹪𐻝-", %p)}, undef, "to_ascii\(\'ᛎ\󠅍\?\\u200D\。𐹾𐹪\?\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3825\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐹶.𐫂", %p)}, undef, "to_ascii\(\'𐹶\.𐫂\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3826\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ß\x{200D}\x{103A}｡⒈", %p)}, undef, "to_ascii\(\'ß\\u200D\\u103A｡⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3828\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ß\x{200D}\x{103A}。1.", %p)}, undef, "to_ascii\(\'ß\\u200D\\u103A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3830\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("SS\x{200D}\x{103A}。1.", %p)}, undef, "to_ascii\(\'SS\\u200D\\u103A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3832\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ss\x{200D}\x{103A}。1.", %p)}, undef, "to_ascii\(\'ss\\u200D\\u103A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3834\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("Ss\x{200D}\x{103A}。1.", %p)}, undef, "to_ascii\(\'Ss\\u200D\\u103A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3836\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("xn--ss-f4j.1.", %p)}, "xn--ss-f4j.1.", "to_ascii\(\'xn\-\-ss\-f4j\.1\.\'\)\ \[data\/IdnaTest\.txt\:3837\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ss\x{103A}.1.", %p)}, "xn--ss-f4j.1.", "to_ascii\(\'ss\\u103A\.1\.\'\)\ \[data\/IdnaTest\.txt\:3838\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("SS\x{103A}.1.", %p)}, "xn--ss-f4j.1.", "to_ascii\(\'SS\\u103A\.1\.\'\)\ \[data\/IdnaTest\.txt\:3839\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("Ss\x{103A}.1.", %p)}, "xn--ss-f4j.1.", "to_ascii\(\'Ss\\u103A\.1\.\'\)\ \[data\/IdnaTest\.txt\:3840\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("SS\x{200D}\x{103A}｡⒈", %p)}, undef, "to_ascii\(\'SS\\u200D\\u103A｡⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3842\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss\x{200D}\x{103A}｡⒈", %p)}, undef, "to_ascii\(\'ss\\u200D\\u103A｡⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3844\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss\x{200D}\x{103A}｡⒈", %p)}, undef, "to_ascii\(\'Ss\\u200D\\u103A｡⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3846\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0B4D}\x{200C}𙶵𞻘。\x{200D}", %p)}, undef, "to_ascii\(\'\\u0B4D\\u200C\?\?\。\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3848\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮅｡\x{06BC}🁕", %p)}, undef, "to_ascii\(\'𐮅｡\\u06BC🁕\'\)\ throws\ error\ B3\ \[data\/IdnaTest\.txt\:3849\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮅。\x{06BC}🁕", %p)}, undef, "to_ascii\(\'𐮅\。\\u06BC🁕\'\)\ throws\ error\ B3\ \[data\/IdnaTest\.txt\:3850\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0620}\x{17D2}。𐫔󠀧\x{200C}𑈵", %p)}, undef, "to_ascii\(\'\\u0620\\u17D2\。𐫔\?\\u200C𑈵\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:3852\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񋉕.𞣕𞤊", %p)}, undef, "to_ascii\(\'\?\.𞣕\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3853\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06CC}𐨿．ß\x{0F84}𑍬", %p)}, "xn--clb2593k.xn--zca216edt0r", "to_ascii\(\'\\u06CC𐨿．ß\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3855\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06CC}𐨿.ß\x{0F84}𑍬", %p)}, "xn--clb2593k.xn--zca216edt0r", "to_ascii\(\'\\u06CC𐨿\.ß\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3857\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06CC}𐨿.SS\x{0F84}𑍬", %p)}, "xn--clb2593k.xn--ss-toj6092t", "to_ascii\(\'\\u06CC𐨿\.SS\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3858\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06CC}𐨿.ss\x{0F84}𑍬", %p)}, "xn--clb2593k.xn--ss-toj6092t", "to_ascii\(\'\\u06CC𐨿\.ss\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3859\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06CC}𐨿.Ss\x{0F84}𑍬", %p)}, "xn--clb2593k.xn--ss-toj6092t", "to_ascii\(\'\\u06CC𐨿\.Ss\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3860\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--clb2593k.xn--ss-toj6092t", %p)}, "xn--clb2593k.xn--ss-toj6092t", "to_ascii\(\'xn\-\-clb2593k\.xn\-\-ss\-toj6092t\'\)\ \[data\/IdnaTest\.txt\:3861\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--clb2593k.xn--zca216edt0r", %p)}, "xn--clb2593k.xn--zca216edt0r", "to_ascii\(\'xn\-\-clb2593k\.xn\-\-zca216edt0r\'\)\ \[data\/IdnaTest\.txt\:3862\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06CC}𐨿．SS\x{0F84}𑍬", %p)}, "xn--clb2593k.xn--ss-toj6092t", "to_ascii\(\'\\u06CC𐨿．SS\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3863\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06CC}𐨿．ss\x{0F84}𑍬", %p)}, "xn--clb2593k.xn--ss-toj6092t", "to_ascii\(\'\\u06CC𐨿．ss\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3864\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06CC}𐨿．Ss\x{0F84}𑍬", %p)}, "xn--clb2593k.xn--ss-toj6092t", "to_ascii\(\'\\u06CC𐨿．Ss\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3865\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𝟠≮\x{200C}｡󠅱\x{17B4}", %p)}, undef, "to_ascii\(\'𝟠\≮\\u200C｡\󠅱\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3867\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟠<\x{0338}\x{200C}｡󠅱\x{17B4}", %p)}, undef, "to_ascii\(\'𝟠\<\\u0338\\u200C｡\󠅱\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3869\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8≮\x{200C}。󠅱\x{17B4}", %p)}, undef, "to_ascii\(\'8\≮\\u200C\。\󠅱\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3871\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8<\x{0338}\x{200C}。󠅱\x{17B4}", %p)}, undef, "to_ascii\(\'8\<\\u0338\\u200C\。\󠅱\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3873\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢕ≯︒񄂯．Ⴀ", %p)}, undef, "to_ascii\(\'ᢕ\≯︒\?．Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3874\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢕ>\x{0338}︒񄂯．Ⴀ", %p)}, undef, "to_ascii\(\'ᢕ\>\\u0338︒\?．Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3875\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢕ≯。񄂯.Ⴀ", %p)}, undef, "to_ascii\(\'ᢕ\≯\。\?\.Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3876\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢕ>\x{0338}。񄂯.Ⴀ", %p)}, undef, "to_ascii\(\'ᢕ\>\\u0338\。\?\.Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3877\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢕ>\x{0338}。񄂯.ⴀ", %p)}, undef, "to_ascii\(\'ᢕ\>\\u0338\。\?\.ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3878\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢕ≯。񄂯.ⴀ", %p)}, undef, "to_ascii\(\'ᢕ\≯\。\?\.ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3879\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢕ>\x{0338}︒񄂯．ⴀ", %p)}, undef, "to_ascii\(\'ᢕ\>\\u0338︒\?．ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3880\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢕ≯︒񄂯．ⴀ", %p)}, undef, "to_ascii\(\'ᢕ\≯︒\?．ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3881\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0F9F}．-\x{082A}", %p)}, undef, "to_ascii\(\'\\u0F9F．\-\\u082A\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3882\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0F9F}.-\x{082A}", %p)}, undef, "to_ascii\(\'\\u0F9F\.\-\\u082A\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3883\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ᵬ󠆠．핒⒒⒈􈄦", %p)}, undef, "to_ascii\(\'ᵬ\󠆠．핒⒒⒈\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3884\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᵬ󠆠．핒⒒⒈􈄦", %p)}, undef, "to_ascii\(\'ᵬ\󠆠．핒⒒⒈\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3885\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᵬ󠆠.핒11.1.􈄦", %p)}, undef, "to_ascii\(\'ᵬ\󠆠\.핒11\.1\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3886\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᵬ󠆠.핒11.1.􈄦", %p)}, undef, "to_ascii\(\'ᵬ\󠆠\.핒11\.1\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3887\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ς𑓂𐋢．\x{0668}", %p)}, undef, "to_ascii\(\'ς𑓂𐋢．\\u0668\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3888\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ς𑓂𐋢.\x{0668}", %p)}, undef, "to_ascii\(\'ς𑓂𐋢\.\\u0668\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3889\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ𑓂𐋢.\x{0668}", %p)}, undef, "to_ascii\(\'Σ𑓂𐋢\.\\u0668\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3890\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σ𑓂𐋢.\x{0668}", %p)}, undef, "to_ascii\(\'σ𑓂𐋢\.\\u0668\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3891\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ𑓂𐋢．\x{0668}", %p)}, undef, "to_ascii\(\'Σ𑓂𐋢．\\u0668\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3892\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σ𑓂𐋢．\x{0668}", %p)}, undef, "to_ascii\(\'σ𑓂𐋢．\\u0668\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3893\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{A953}\x{200C}𐋻\x{200D}.\x{2DF8}𞿄𐹲", %p)}, undef, "to_ascii\(\'\\uA953\\u200C𐋻\\u200D\.\\u2DF8\?𐹲\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3895\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⊼。񪧖\x{0695}", %p)}, undef, "to_ascii\(\'\⊼\。\?\\u0695\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3896\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐯬񖋔。󜳥", %p)}, undef, "to_ascii\(\'\?\?\。\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3897\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0601}𑍧\x{07DD}。ς򬍘🀞\x{17B5}", %p)}, undef, "to_ascii\(\'\\u0601𑍧\\u07DD\。ς\?🀞\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3898\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0601}𑍧\x{07DD}。Σ򬍘🀞\x{17B5}", %p)}, undef, "to_ascii\(\'\\u0601𑍧\\u07DD\。Σ\?🀞\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3899\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0601}𑍧\x{07DD}。σ򬍘🀞\x{17B5}", %p)}, undef, "to_ascii\(\'\\u0601𑍧\\u07DD\。σ\?🀞\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3900\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𐳲\x{0646}󠺐。\x{ABED}𝟥", %p)}, undef, "to_ascii\(\'\-𐳲\\u0646\?\。\\uABED𝟥\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3901\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𐳲\x{0646}󠺐。\x{ABED}3", %p)}, undef, "to_ascii\(\'\-𐳲\\u0646\?\。\\uABED3\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3902\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𐲲\x{0646}󠺐。\x{ABED}3", %p)}, undef, "to_ascii\(\'\-𐲲\\u0646\?\。\\uABED3\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3903\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-𐲲\x{0646}󠺐。\x{ABED}𝟥", %p)}, undef, "to_ascii\(\'\-𐲲\\u0646\?\。\\uABED𝟥\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3904\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠴦｡񲨕≮𐦜", %p)}, undef, "to_ascii\(\'\\u200C\?｡\?\≮𐦜\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3906\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠴦｡񲨕<\x{0338}𐦜", %p)}, undef, "to_ascii\(\'\\u200C\?｡\?\<\\u0338𐦜\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3908\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠴦。񲨕≮𐦜", %p)}, undef, "to_ascii\(\'\\u200C\?\。\?\≮𐦜\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3910\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}󠴦。񲨕<\x{0338}𐦜", %p)}, undef, "to_ascii\(\'\\u200C\?\。\?\<\\u0338𐦜\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3912\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈✌򟬟．𝟡񠱣", %p)}, undef, "to_ascii\(\'⒈\✌\?．𝟡\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3913\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.✌򟬟.9񠱣", %p)}, undef, "to_ascii\(\'1\.\✌\?\.9\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3914\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𑆾𞤬𐮆.\x{0666}\x{1DD4}", %p)}, undef, "to_ascii\(\'𑆾\?𐮆\.\\u0666\\u1DD4\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3915\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ς．\x{A9C0}\x{A8C4}", %p)}, undef, "to_ascii\(\'ς．\\uA9C0\\uA8C4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3916\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ς.\x{A9C0}\x{A8C4}", %p)}, undef, "to_ascii\(\'ς\.\\uA9C0\\uA8C4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3917\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("Σ.\x{A9C0}\x{A8C4}", %p)}, undef, "to_ascii\(\'Σ\.\\uA9C0\\uA8C4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3918\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("σ.\x{A9C0}\x{A8C4}", %p)}, undef, "to_ascii\(\'σ\.\\uA9C0\\uA8C4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3919\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("Σ．\x{A9C0}\x{A8C4}", %p)}, undef, "to_ascii\(\'Σ．\\uA9C0\\uA8C4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3920\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("σ．\x{A9C0}\x{A8C4}", %p)}, undef, "to_ascii\(\'σ．\\uA9C0\\uA8C4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3921\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𑰶\x{200C}≯𐳐．\x{085B}", %p)}, undef, "to_ascii\(\'\?\\u200C\≯𐳐．\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3923\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰶\x{200C}>\x{0338}𐳐．\x{085B}", %p)}, undef, "to_ascii\(\'\?\\u200C\>\\u0338𐳐．\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3925\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰶\x{200C}≯𐳐.\x{085B}", %p)}, undef, "to_ascii\(\'\?\\u200C\≯𐳐\.\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3927\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰶\x{200C}>\x{0338}𐳐.\x{085B}", %p)}, undef, "to_ascii\(\'\?\\u200C\>\\u0338𐳐\.\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3929\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰶\x{200C}>\x{0338}𐲐.\x{085B}", %p)}, undef, "to_ascii\(\'\?\\u200C\>\\u0338𐲐\.\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3931\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰶\x{200C}≯𐲐.\x{085B}", %p)}, undef, "to_ascii\(\'\?\\u200C\≯𐲐\.\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3933\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰶\x{200C}>\x{0338}𐲐．\x{085B}", %p)}, undef, "to_ascii\(\'\?\\u200C\>\\u0338𐲐．\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3935\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰶\x{200C}≯𐲐．\x{085B}", %p)}, undef, "to_ascii\(\'\?\\u200C\≯𐲐．\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3937\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("羚｡≯", %p)}, undef, "to_ascii\(\'羚｡\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3938\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("羚｡>\x{0338}", %p)}, undef, "to_ascii\(\'羚｡\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3939\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("羚。≯", %p)}, undef, "to_ascii\(\'羚\。\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3940\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("羚。>\x{0338}", %p)}, undef, "to_ascii\(\'羚\。\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3941\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑓂\x{1759}．\x{08A8}", %p)}, undef, "to_ascii\(\'𑓂\\u1759．\\u08A8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3942\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑓂\x{1759}.\x{08A8}", %p)}, undef, "to_ascii\(\'𑓂\\u1759\.\\u08A8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3943\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󨣿󠇀\x{200D}｡\x{0663}ҠჀ𝟑", %p)}, undef, "to_ascii\(\'\?\󠇀\\u200D｡\\u0663ҠჀ𝟑\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3945\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󨣿󠇀\x{200D}。\x{0663}ҠჀ3", %p)}, undef, "to_ascii\(\'\?\󠇀\\u200D\。\\u0663ҠჀ3\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3947\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󨣿󠇀\x{200D}。\x{0663}ҡⴠ3", %p)}, undef, "to_ascii\(\'\?\󠇀\\u200D\。\\u0663ҡⴠ3\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3949\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󨣿󠇀\x{200D}。\x{0663}Ҡⴠ3", %p)}, undef, "to_ascii\(\'\?\󠇀\\u200D\。\\u0663Ҡⴠ3\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3951\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󨣿󠇀\x{200D}｡\x{0663}ҡⴠ𝟑", %p)}, undef, "to_ascii\(\'\?\󠇀\\u200D｡\\u0663ҡⴠ𝟑\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3953\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󨣿󠇀\x{200D}｡\x{0663}Ҡⴠ𝟑", %p)}, undef, "to_ascii\(\'\?\󠇀\\u200D｡\\u0663Ҡⴠ𝟑\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3955\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ᡷ。𐹢\x{08E0}", %p)}, undef, "to_ascii\(\'ᡷ\。𐹢\\u08E0\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3956\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򕮇\x{1BF3}｡\x{0666}񗜼\x{17D2}ß", %p)}, undef, "to_ascii\(\'\?\\u1BF3｡\\u0666\?\\u17D2ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3957\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򕮇\x{1BF3}。\x{0666}񗜼\x{17D2}ß", %p)}, undef, "to_ascii\(\'\?\\u1BF3\。\\u0666\?\\u17D2ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3958\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򕮇\x{1BF3}。\x{0666}񗜼\x{17D2}SS", %p)}, undef, "to_ascii\(\'\?\\u1BF3\。\\u0666\?\\u17D2SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3959\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򕮇\x{1BF3}。\x{0666}񗜼\x{17D2}ss", %p)}, undef, "to_ascii\(\'\?\\u1BF3\。\\u0666\?\\u17D2ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3960\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򕮇\x{1BF3}。\x{0666}񗜼\x{17D2}Ss", %p)}, undef, "to_ascii\(\'\?\\u1BF3\。\\u0666\?\\u17D2Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3961\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򕮇\x{1BF3}｡\x{0666}񗜼\x{17D2}SS", %p)}, undef, "to_ascii\(\'\?\\u1BF3｡\\u0666\?\\u17D2SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3962\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򕮇\x{1BF3}｡\x{0666}񗜼\x{17D2}ss", %p)}, undef, "to_ascii\(\'\?\\u1BF3｡\\u0666\?\\u17D2ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3963\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򕮇\x{1BF3}｡\x{0666}񗜼\x{17D2}Ss", %p)}, undef, "to_ascii\(\'\?\\u1BF3｡\\u0666\?\\u17D2Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3964\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0664}򤽎𑲛.󠔢︒≠", %p)}, undef, "to_ascii\(\'\\u0664\?\?\.\?︒\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3965\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0664}򤽎𑲛.󠔢︒=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0664\?\?\.\?︒\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3966\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0664}򤽎𑲛.󠔢。≠", %p)}, undef, "to_ascii\(\'\\u0664\?\?\.\?\。\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3967\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0664}򤽎𑲛.󠔢。=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0664\?\?\.\?\。\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3968\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("➆񷧕ỗ⒈．򑬒񡘮\x{085B}𝟫", %p)}, undef, "to_ascii\(\'➆\?ỗ⒈．\?\?\\u085B𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3969\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("➆񷧕o\x{0302}\x{0303}⒈．򑬒񡘮\x{085B}𝟫", %p)}, undef, "to_ascii\(\'➆\?o\\u0302\\u0303⒈．\?\?\\u085B𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3970\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("➆񷧕ỗ1..򑬒񡘮\x{085B}9", %p)}, undef, "to_ascii\(\'➆\?ỗ1\.\.\?\?\\u085B9\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3971\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("➆񷧕o\x{0302}\x{0303}1..򑬒񡘮\x{085B}9", %p)}, undef, "to_ascii\(\'➆\?o\\u0302\\u03031\.\.\?\?\\u085B9\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3972\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("➆񷧕O\x{0302}\x{0303}1..򑬒񡘮\x{085B}9", %p)}, undef, "to_ascii\(\'➆\?O\\u0302\\u03031\.\.\?\?\\u085B9\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3973\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("➆񷧕Ỗ1..򑬒񡘮\x{085B}9", %p)}, undef, "to_ascii\(\'➆\?Ỗ1\.\.\?\?\\u085B9\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3974\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("➆񷧕O\x{0302}\x{0303}⒈．򑬒񡘮\x{085B}𝟫", %p)}, undef, "to_ascii\(\'➆\?O\\u0302\\u0303⒈．\?\?\\u085B𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3975\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("➆񷧕Ỗ⒈．򑬒񡘮\x{085B}𝟫", %p)}, undef, "to_ascii\(\'➆\?Ỗ⒈．\?\?\\u085B𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3976\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{200D}｡𞤘", %p)}, undef, "to_ascii\(\'\\u200D｡\?\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3978\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{200D}。𞤘", %p)}, undef, "to_ascii\(\'\\u200D\。\?\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3980\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--ye6h", %p)}, "xn--ye6h", "to_ascii\(\'xn\-\-ye6h\'\)\ \[data\/IdnaTest\.txt\:3981\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤺", %p)}, "xn--ye6h", "to_ascii\(\'\?\'\)\ \[data\/IdnaTest\.txt\:3982\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0829}\x{0724}.ᢣ", %p)}, undef, "to_ascii\(\'\\u0829\\u0724\.ᢣ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3983\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{073C}\x{200C}-。𓐾ß", %p)}, undef, "to_ascii\(\'\\u073C\\u200C\-\。\?ß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3985\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{073C}\x{200C}-。𓐾SS", %p)}, undef, "to_ascii\(\'\\u073C\\u200C\-\。\?SS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3987\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{073C}\x{200C}-。𓐾ss", %p)}, undef, "to_ascii\(\'\\u073C\\u200C\-\。\?ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3989\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{073C}\x{200C}-。𓐾Ss", %p)}, undef, "to_ascii\(\'\\u073C\\u200C\-\。\?Ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3991\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}ς🃡⒗.\x{0CC6}仧\x{0756}", %p)}, undef, "to_ascii\(\'\\u200Cς🃡⒗\.\\u0CC6仧\\u0756\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3993\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}ς🃡16..\x{0CC6}仧\x{0756}", %p)}, undef, "to_ascii\(\'\\u200Cς🃡16\.\.\\u0CC6仧\\u0756\'\)\ throws\ error\ V5\ C1\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:3995\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}Σ🃡16..\x{0CC6}仧\x{0756}", %p)}, undef, "to_ascii\(\'\\u200CΣ🃡16\.\.\\u0CC6仧\\u0756\'\)\ throws\ error\ V5\ C1\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:3997\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}σ🃡16..\x{0CC6}仧\x{0756}", %p)}, undef, "to_ascii\(\'\\u200Cσ🃡16\.\.\\u0CC6仧\\u0756\'\)\ throws\ error\ V5\ C1\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:3999\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}Σ🃡⒗.\x{0CC6}仧\x{0756}", %p)}, undef, "to_ascii\(\'\\u200CΣ🃡⒗\.\\u0CC6仧\\u0756\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4001\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}σ🃡⒗.\x{0CC6}仧\x{0756}", %p)}, undef, "to_ascii\(\'\\u200Cσ🃡⒗\.\\u0CC6仧\\u0756\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4003\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("-.𞸚", %p)}, undef, "to_ascii\(\'\-\.𞸚\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4004\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-.\x{0638}", %p)}, undef, "to_ascii\(\'\-\.\\u0638\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4005\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򏛓\x{0683}.\x{0F7E}\x{0634}", %p)}, undef, "to_ascii\(\'\?\\u0683\.\\u0F7E\\u0634\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4006\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0FE6}\x{0843}񽶬.𐮏", %p)}, undef, "to_ascii\(\'\\u0FE6\\u0843\?\.𐮏\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4007\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("2񎨠\x{07CB}ß。ᠽ", %p)}, undef, "to_ascii\(\'2\?\\u07CBß\。ᠽ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4008\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("2񎨠\x{07CB}SS。ᠽ", %p)}, undef, "to_ascii\(\'2\?\\u07CBSS\。ᠽ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4009\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("2񎨠\x{07CB}ss。ᠽ", %p)}, undef, "to_ascii\(\'2\?\\u07CBss\。ᠽ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4010\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("2񎨠\x{07CB}Ss。ᠽ", %p)}, undef, "to_ascii\(\'2\?\\u07CBSs\。ᠽ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4011\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}≮．\x{06CE}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\≮．\\u06CEß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4013\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}<\x{0338}．\x{06CE}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\<\\u0338．\\u06CEß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4015\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}≮.\x{06CE}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\≮\.\\u06CEß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4017\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}<\x{0338}.\x{06CE}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\<\\u0338\.\\u06CEß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4019\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}<\x{0338}.\x{06CE}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\<\\u0338\.\\u06CESS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4021\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}≮.\x{06CE}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\≮\.\\u06CESS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4023\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}≮.\x{06CE}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\≮\.\\u06CEss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4025\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}<\x{0338}.\x{06CE}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\<\\u0338\.\\u06CEss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4027\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}<\x{0338}.\x{06CE}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\<\\u0338\.\\u06CESs\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4029\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}≮.\x{06CE}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\≮\.\\u06CESs\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4031\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}<\x{0338}．\x{06CE}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\<\\u0338．\\u06CESS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4033\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}≮．\x{06CE}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\≮．\\u06CESS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4035\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}≮．\x{06CE}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\≮．\\u06CEss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4037\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}<\x{0338}．\x{06CE}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\<\\u0338．\\u06CEss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4039\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}<\x{0338}．\x{06CE}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\<\\u0338．\\u06CESs\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4041\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㸳\x{07CA}≮．\x{06CE}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u07CA\≮．\\u06CESs\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4043\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-򷝬\x{135E}𑜧.\x{1DEB}-︒", %p)}, undef, "to_ascii\(\'\-\?\\u135E𑜧\.\\u1DEB\-︒\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4044\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-򷝬\x{135E}𑜧.\x{1DEB}-。", %p)}, undef, "to_ascii\(\'\-\?\\u135E𑜧\.\\u1DEB\-\。\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4045\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("︒.򚠡\x{1A59}", %p)}, undef, "to_ascii\(\'︒\.\?\\u1A59\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4046\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。.򚠡\x{1A59}", %p)}, undef, "to_ascii\(\'\。\.\?\\u1A59\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4047\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{0323}\x{2DE1}。\x{200C}⓾\x{200C}\x{06B9}", %p)}, undef, "to_ascii\(\'\\u0323\\u2DE1\。\\u200C⓾\\u200C\\u06B9\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4049\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞠶ᠴ\x{06DD}｡\x{1074}𞤵󠅦", %p)}, undef, "to_ascii\(\'𞠶ᠴ\\u06DD｡\\u1074\?\󠅦\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B1\ \[data\/IdnaTest\.txt\:4050\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞠶ᠴ\x{06DD}。\x{1074}𞤵󠅦", %p)}, undef, "to_ascii\(\'𞠶ᠴ\\u06DD\。\\u1074\?\󠅦\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B1\ \[data\/IdnaTest\.txt\:4051\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑰺.-򑟏", %p)}, undef, "to_ascii\(\'\?\.\-\?\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:4052\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠻩．赏", %p)}, undef, "to_ascii\(\'\?．赏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4053\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠻩.赏", %p)}, undef, "to_ascii\(\'\?\.赏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4054\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06B0}ᠡ｡Ⴁ", %p)}, undef, "to_ascii\(\'\\u06B0ᠡ｡Ⴁ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4055\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06B0}ᠡ。Ⴁ", %p)}, undef, "to_ascii\(\'\\u06B0ᠡ\。Ⴁ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4056\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{06B0}ᠡ。ⴁ", %p)}, undef, "to_ascii\(\'\\u06B0ᠡ\。ⴁ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4057\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{06B0}ᠡ｡ⴁ", %p)}, undef, "to_ascii\(\'\\u06B0ᠡ｡ⴁ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4058\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{20DE}Ⴊ\x{06BB}ς｡-", %p)}, undef, "to_ascii\(\'\\u20DEႪ\\u06BBς｡\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4059\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{20DE}Ⴊ\x{06BB}ς。-", %p)}, undef, "to_ascii\(\'\\u20DEႪ\\u06BBς\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4060\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{20DE}ⴊ\x{06BB}ς。-", %p)}, undef, "to_ascii\(\'\\u20DEⴊ\\u06BBς\。\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4061\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{20DE}Ⴊ\x{06BB}Σ。-", %p)}, undef, "to_ascii\(\'\\u20DEႪ\\u06BBΣ\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4062\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{20DE}ⴊ\x{06BB}σ。-", %p)}, undef, "to_ascii\(\'\\u20DEⴊ\\u06BBσ\。\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4063\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{20DE}Ⴊ\x{06BB}σ。-", %p)}, undef, "to_ascii\(\'\\u20DEႪ\\u06BBσ\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4064\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{20DE}ⴊ\x{06BB}ς｡-", %p)}, undef, "to_ascii\(\'\\u20DEⴊ\\u06BBς｡\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4065\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{20DE}Ⴊ\x{06BB}Σ｡-", %p)}, undef, "to_ascii\(\'\\u20DEႪ\\u06BBΣ｡\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4066\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{20DE}ⴊ\x{06BB}σ｡-", %p)}, undef, "to_ascii\(\'\\u20DEⴊ\\u06BBσ｡\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4067\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{20DE}Ⴊ\x{06BB}σ｡-", %p)}, undef, "to_ascii\(\'\\u20DEႪ\\u06BBσ｡\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4068\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴍ．񍇦\x{200C}", %p)}, undef, "to_ascii\(\'Ⴍ．\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4070\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴍ.񍇦\x{200C}", %p)}, undef, "to_ascii\(\'Ⴍ\.\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4072\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴍ.񍇦\x{200C}", %p)}, undef, "to_ascii\(\'ⴍ\.\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4074\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴍ．񍇦\x{200C}", %p)}, undef, "to_ascii\(\'ⴍ．\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4076\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򉟂󠵣.𐫫\x{1A60}󴺖\x{1B44}", %p)}, undef, "to_ascii\(\'\?\?\.𐫫\\u1A60\?\\u1B44\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4077\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯❊ᠯ｡𐹱⺨", %p)}, undef, "to_ascii\(\'\≯\❊ᠯ｡𐹱⺨\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4078\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}❊ᠯ｡𐹱⺨", %p)}, undef, "to_ascii\(\'\>\\u0338\❊ᠯ｡𐹱⺨\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4079\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯❊ᠯ。𐹱⺨", %p)}, undef, "to_ascii\(\'\≯\❊ᠯ\。𐹱⺨\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4080\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}❊ᠯ。𐹱⺨", %p)}, undef, "to_ascii\(\'\>\\u0338\❊ᠯ\。𐹱⺨\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4081\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("􁕜𐹧𞭁𐹩。Ⴈ𐫮Ⴏ", %p)}, undef, "to_ascii\(\'\?𐹧\?𐹩\。Ⴈ𐫮Ⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4082\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("􁕜𐹧𞭁𐹩。ⴈ𐫮ⴏ", %p)}, undef, "to_ascii\(\'\?𐹧\?𐹩\。ⴈ𐫮ⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4083\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𞠂。\x{A926}", %p)}, undef, "to_ascii\(\'𞠂\。\\uA926\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4084\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𝟔𐹫．\x{0733}\x{1037}９ꡇ", %p)}, undef, "to_ascii\(\'𝟔𐹫．\\u0733\\u1037９ꡇ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4085\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𝟔𐹫．\x{1037}\x{0733}９ꡇ", %p)}, undef, "to_ascii\(\'𝟔𐹫．\\u1037\\u0733９ꡇ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4086\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("6𐹫.\x{1037}\x{0733}9ꡇ", %p)}, undef, "to_ascii\(\'6𐹫\.\\u1037\\u07339ꡇ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4087\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0724}\x{0603}𞲶．\x{06D8}", %p)}, undef, "to_ascii\(\'\\u0724\\u0603\?．\\u06D8\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4088\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0724}\x{0603}𞲶.\x{06D8}", %p)}, undef, "to_ascii\(\'\\u0724\\u0603\?\.\\u06D8\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4089\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("✆񱔩ꡋ．\x{0632}\x{200D}𞣴", %p)}, undef, "to_ascii\(\'\✆\?ꡋ．\\u0632\\u200D\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4091\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("✆񱔩ꡋ.\x{0632}\x{200D}𞣴", %p)}, undef, "to_ascii\(\'\✆\?ꡋ\.\\u0632\\u200D\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4093\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0845}񃾰𞸍-．≠򃁟𑋪", %p)}, undef, "to_ascii\(\'\\u0845\?𞸍\-．\≠\?𑋪\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4094\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0845}񃾰𞸍-．=\x{0338}򃁟𑋪", %p)}, undef, "to_ascii\(\'\\u0845\?𞸍\-．\=\\u0338\?𑋪\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4095\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0845}񃾰\x{0646}-.≠򃁟𑋪", %p)}, undef, "to_ascii\(\'\\u0845\?\\u0646\-\.\≠\?𑋪\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4096\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0845}񃾰\x{0646}-.=\x{0338}򃁟𑋪", %p)}, undef, "to_ascii\(\'\\u0845\?\\u0646\-\.\=\\u0338\?𑋪\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4097\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟛．笠", %p)}, "3.xn--6vz", "to_ascii\(\'𝟛．笠\'\)\ \[data\/IdnaTest\.txt\:4098\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟛．笠", %p)}, "3.xn--6vz", "to_ascii\(\'𝟛．笠\'\)\ \[data\/IdnaTest\.txt\:4099\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("3.笠", %p)}, "3.xn--6vz", "to_ascii\(\'3\.笠\'\)\ \[data\/IdnaTest\.txt\:4100\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("3.xn--6vz", %p)}, "3.xn--6vz", "to_ascii\(\'3\.xn\-\-6vz\'\)\ \[data\/IdnaTest\.txt\:4101\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{200D}.Ⴞ𐋷", %p)}, undef, "to_ascii\(\'\-\\u200D\.Ⴞ𐋷\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:4103\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-\x{200D}.ⴞ𐋷", %p)}, undef, "to_ascii\(\'\-\\u200D\.ⴞ𐋷\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:4105\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200D}ςß\x{0731}．\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200Dςß\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4107\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}ςß\x{0731}.\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200Dςß\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4109\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}ΣSS\x{0731}.\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200DΣSS\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4111\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}σss\x{0731}.\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200Dσss\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4113\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}Σss\x{0731}.\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200DΣss\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4115\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}Σß\x{0731}.\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200DΣß\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4117\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}σß\x{0731}.\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200Dσß\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4119\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}ΣSS\x{0731}．\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200DΣSS\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4121\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}σss\x{0731}．\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200Dσss\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4123\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}Σss\x{0731}．\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200DΣss\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4125\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}Σß\x{0731}．\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200DΣß\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4127\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}σß\x{0731}．\x{0BCD}", %p)}, undef, "to_ascii\(\'\\u200Dσß\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4129\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠．\x{200D}", %p)}, undef, "to_ascii\(\'\≠．\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4131\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}．\x{200D}", %p)}, undef, "to_ascii\(\'\=\\u0338．\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4133\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠.\x{200D}", %p)}, undef, "to_ascii\(\'\≠\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4135\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}.\x{200D}", %p)}, undef, "to_ascii\(\'\=\\u0338\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4137\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FC01}｡\x{0C81}ᠼ▗򒁋", %p)}, undef, "to_ascii\(\'\\uFC01｡\\u0C81ᠼ\▗\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4138\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0626}\x{062D}。\x{0C81}ᠼ▗򒁋", %p)}, undef, "to_ascii\(\'\\u0626\\u062D\。\\u0C81ᠼ\▗\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4139\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{064A}\x{0654}\x{062D}。\x{0C81}ᠼ▗򒁋", %p)}, undef, "to_ascii\(\'\\u064A\\u0654\\u062D\。\\u0C81ᠼ\▗\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4140\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}ς．ς𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDς．ς𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4141\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}ς.ς𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDς\.ς𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4142\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}Σ.Σ𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDΣ\.Σ𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4143\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}σ.ς𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDσ\.ς𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4144\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}σ.σ𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDσ\.σ𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4145\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}Σ.σ𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDΣ\.σ𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4146\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}Σ.ς𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDΣ\.ς𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4147\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}Σ．Σ𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDΣ．Σ𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4148\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}σ．ς𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDσ．ς𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4149\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}σ．σ𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDσ．σ𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4150\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}Σ．σ𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDΣ．σ𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4151\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󧋵\x{09CD}Σ．ς𐨿", %p)}, undef, "to_ascii\(\'\?\\u09CDΣ．ς𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4152\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫓\x{07D8}牅\x{08F8}｡𞦤\x{1A17}򱍰Ⴙ", %p)}, undef, "to_ascii\(\'𐫓\\u07D8牅\\u08F8｡\?\\u1A17\?Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4153\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫓\x{07D8}牅\x{08F8}。𞦤\x{1A17}򱍰Ⴙ", %p)}, undef, "to_ascii\(\'𐫓\\u07D8牅\\u08F8\。\?\\u1A17\?Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4154\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫓\x{07D8}牅\x{08F8}。𞦤\x{1A17}򱍰ⴙ", %p)}, undef, "to_ascii\(\'𐫓\\u07D8牅\\u08F8\。\?\\u1A17\?ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4155\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐫓\x{07D8}牅\x{08F8}｡𞦤\x{1A17}򱍰ⴙ", %p)}, undef, "to_ascii\(\'𐫓\\u07D8牅\\u08F8｡\?\\u1A17\?ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4156\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񣤒｡륧", %p)}, undef, "to_ascii\(\'\?｡륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4157\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񣤒｡륧", %p)}, undef, "to_ascii\(\'\?｡륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4158\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񣤒。륧", %p)}, undef, "to_ascii\(\'\?\。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4159\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񣤒。륧", %p)}, undef, "to_ascii\(\'\?\。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4160\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹷\x{200D}。󉵢", %p)}, undef, "to_ascii\(\'𐹷\\u200D\。\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4162\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴘ\x{06C2}𑲭｡-", %p)}, undef, "to_ascii\(\'Ⴘ\\u06C2\?｡\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4163\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴘ\x{06C1}\x{0654}𑲭｡-", %p)}, undef, "to_ascii\(\'Ⴘ\\u06C1\\u0654\?｡\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4164\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴘ\x{06C2}𑲭。-", %p)}, undef, "to_ascii\(\'Ⴘ\\u06C2\?\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4165\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴘ\x{06C1}\x{0654}𑲭。-", %p)}, undef, "to_ascii\(\'Ⴘ\\u06C1\\u0654\?\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4166\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ⴘ\x{06C1}\x{0654}𑲭。-", %p)}, undef, "to_ascii\(\'ⴘ\\u06C1\\u0654\?\。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4167\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ⴘ\x{06C2}𑲭。-", %p)}, undef, "to_ascii\(\'ⴘ\\u06C2\?\。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4168\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ⴘ\x{06C1}\x{0654}𑲭｡-", %p)}, undef, "to_ascii\(\'ⴘ\\u06C1\\u0654\?｡\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4169\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("ⴘ\x{06C2}𑲭｡-", %p)}, undef, "to_ascii\(\'ⴘ\\u06C2\?｡\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4170\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{A806}\x{067B}₆ᡐ。🛇\x{FCDD}", %p)}, undef, "to_ascii\(\'\\uA806\\u067B₆ᡐ\。🛇\\uFCDD\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4171\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{A806}\x{067B}6ᡐ。🛇\x{064A}\x{0645}", %p)}, undef, "to_ascii\(\'\\uA806\\u067B6ᡐ\。🛇\\u064A\\u0645\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4172\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򸍂.㇄ᡟ𐫂\x{0622}", %p)}, undef, "to_ascii\(\'\?\.㇄ᡟ𐫂\\u0622\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4173\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򸍂.㇄ᡟ𐫂\x{0627}\x{0653}", %p)}, undef, "to_ascii\(\'\?\.㇄ᡟ𐫂\\u0627\\u0653\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4174\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07DF}򵚌。-\x{07E9}", %p)}, undef, "to_ascii\(\'\\u07DF\?\。\-\\u07E9\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4175\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς\x{0643}⾑．\x{200C}ᢟ\x{200C}⒈", %p)}, undef, "to_ascii\(\'ς\\u0643⾑．\\u200Cᢟ\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:4177\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς\x{0643}襾.\x{200C}ᢟ\x{200C}1.", %p)}, undef, "to_ascii\(\'ς\\u0643襾\.\\u200Cᢟ\\u200C1\.\'\)\ throws\ error\ B5\ C1\ \[data\/IdnaTest\.txt\:4179\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ\x{0643}襾.\x{200C}ᢟ\x{200C}1.", %p)}, undef, "to_ascii\(\'Σ\\u0643襾\.\\u200Cᢟ\\u200C1\.\'\)\ throws\ error\ B5\ C1\ \[data\/IdnaTest\.txt\:4181\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ\x{0643}襾.\x{200C}ᢟ\x{200C}1.", %p)}, undef, "to_ascii\(\'σ\\u0643襾\.\\u200Cᢟ\\u200C1\.\'\)\ throws\ error\ B5\ C1\ \[data\/IdnaTest\.txt\:4183\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ\x{0643}⾑．\x{200C}ᢟ\x{200C}⒈", %p)}, undef, "to_ascii\(\'Σ\\u0643⾑．\\u200Cᢟ\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:4185\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ\x{0643}⾑．\x{200C}ᢟ\x{200C}⒈", %p)}, undef, "to_ascii\(\'σ\\u0643⾑．\\u200Cᢟ\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:4187\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡆ𑓝．𞵆", %p)}, undef, "to_ascii\(\'ᡆ\?．\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4188\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡆ𑓝.𞵆", %p)}, undef, "to_ascii\(\'ᡆ\?\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4189\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0A4D}𦍓\x{1DEE}｡\x{200C}\x{08BD}񝹲", %p)}, undef, "to_ascii\(\'\\u0A4D𦍓\\u1DEE｡\\u200C\\u08BD\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4191\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0A4D}𦍓\x{1DEE}。\x{200C}\x{08BD}񝹲", %p)}, undef, "to_ascii\(\'\\u0A4D𦍓\\u1DEE\。\\u200C\\u08BD\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4193\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{062E}\x{0748}񅪪-．\x{200C}먿", %p)}, undef, "to_ascii\(\'\\u062E\\u0748\?\-．\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:4195\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{062E}\x{0748}񅪪-．\x{200C}먿", %p)}, undef, "to_ascii\(\'\\u062E\\u0748\?\-．\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:4197\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{062E}\x{0748}񅪪-.\x{200C}먿", %p)}, undef, "to_ascii\(\'\\u062E\\u0748\?\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:4199\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{062E}\x{0748}񅪪-.\x{200C}먿", %p)}, undef, "to_ascii\(\'\\u062E\\u0748\?\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:4201\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("􋿦｡ᠽ", %p)}, undef, "to_ascii\(\'\?｡ᠽ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4202\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("􋿦。ᠽ", %p)}, undef, "to_ascii\(\'\?\。ᠽ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4203\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("嬃𝍌．\x{200D}\x{0B44}", %p)}, undef, "to_ascii\(\'嬃𝍌．\\u200D\\u0B44\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4205\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("嬃𝍌.\x{200D}\x{0B44}", %p)}, undef, "to_ascii\(\'嬃𝍌\.\\u200D\\u0B44\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4207\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0602}𝌪≯．𚋲򵁨", %p)}, undef, "to_ascii\(\'\\u0602𝌪\≯．\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4208\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0602}𝌪>\x{0338}．𚋲򵁨", %p)}, undef, "to_ascii\(\'\\u0602𝌪\>\\u0338．\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4209\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0602}𝌪≯.𚋲򵁨", %p)}, undef, "to_ascii\(\'\\u0602𝌪\≯\.\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4210\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0602}𝌪>\x{0338}.𚋲򵁨", %p)}, undef, "to_ascii\(\'\\u0602𝌪\>\\u0338\.\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4211\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򫾥\x{08B7}\x{17CC}\x{A9C0}.𞼠", %p)}, undef, "to_ascii\(\'\?\\u08B7\\u17CC\\uA9C0\.\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4212\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.񟛤", %p)}, undef, "to_ascii\(\'\\u200C\.\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4214\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򺛕Ⴃ䠅．𐸑", %p)}, undef, "to_ascii\(\'\?Ⴃ䠅．\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4215\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򺛕Ⴃ䠅.𐸑", %p)}, undef, "to_ascii\(\'\?Ⴃ䠅\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4216\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򺛕ⴃ䠅.𐸑", %p)}, undef, "to_ascii\(\'\?ⴃ䠅\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4217\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򺛕ⴃ䠅．𐸑", %p)}, undef, "to_ascii\(\'\?ⴃ䠅．\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4218\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF1}𐹳𐹵𞤚｡𝟨Ⴅ", %p)}, undef, "to_ascii\(\'\\u1BF1𐹳𐹵\?｡𝟨Ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4219\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF1}𐹳𐹵𞤚。6Ⴅ", %p)}, undef, "to_ascii\(\'\\u1BF1𐹳𐹵\?\。6Ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4220\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{1BF1}𐹳𐹵𞤚。6ⴅ", %p)}, undef, "to_ascii\(\'\\u1BF1𐹳𐹵\?\。6ⴅ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4221\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{1BF1}𐹳𐹵𞤚｡𝟨ⴅ", %p)}, undef, "to_ascii\(\'\\u1BF1𐹳𐹵\?｡𝟨ⴅ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4222\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-｡︒", %p)}, undef, "to_ascii\(\'\-｡︒\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4223\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-。。", %p)}, undef, "to_ascii\(\'\-\。\。\'\)\ throws\ error\ V3\ A4_2\ \[data\/IdnaTest\.txt\:4224\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07DB}Ⴠ｡-⁵--", %p)}, undef, "to_ascii\(\'\\u07DBჀ｡\-⁵\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4225\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07DB}Ⴠ。-5--", %p)}, undef, "to_ascii\(\'\\u07DBჀ\。\-5\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4226\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{07DB}ⴠ。-5--", %p)}, undef, "to_ascii\(\'\\u07DBⴠ\。\-5\-\-\'\)\ throws\ error\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4227\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{07DB}ⴠ｡-⁵--", %p)}, undef, "to_ascii\(\'\\u07DBⴠ｡\-⁵\-\-\'\)\ throws\ error\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4228\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("≯\x{D8DD}󠑕｡𐹷𐹻≯𐷒", %p)}, undef, "to_ascii\(\'\≯\\uD8DD\?｡𐹷𐹻\≯\?\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4229\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}\x{D8DD}󠑕｡𐹷𐹻>\x{0338}𐷒", %p)}, undef, "to_ascii\(\'\>\\u0338\\uD8DD\?｡𐹷𐹻\>\\u0338\?\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4230\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯\x{D8DD}󠑕。𐹷𐹻≯𐷒", %p)}, undef, "to_ascii\(\'\≯\\uD8DD\?\。𐹷𐹻\≯\?\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4231\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}\x{D8DD}󠑕。𐹷𐹻>\x{0338}𐷒", %p)}, undef, "to_ascii\(\'\>\\u0338\\uD8DD\?\。𐹷𐹻\>\\u0338\?\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4232\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㍔\x{08E6}\x{077C}\x{200D}。\x{0346}򁳊𝅶\x{0604}", %p)}, undef, "to_ascii\(\'㍔\\u08E6\\u077C\\u200D\。\\u0346\?\?\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4234\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ルーブル\x{08E6}\x{077C}\x{200D}。\x{0346}򁳊𝅶\x{0604}", %p)}, undef, "to_ascii\(\'ルーブル\\u08E6\\u077C\\u200D\。\\u0346\?\?\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4236\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ルーフ\x{3099}ル\x{08E6}\x{077C}\x{200D}。\x{0346}򁳊𝅶\x{0604}", %p)}, undef, "to_ascii\(\'ルーフ\\u3099ル\\u08E6\\u077C\\u200D\。\\u0346\?\?\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4238\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}.F", %p)}, undef, "to_ascii\(\'\\u200D\.F\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4240\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("f", %p)}, "f", "to_ascii\(\'f\'\)\ \[data\/IdnaTest\.txt\:4241\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}㨲｡ß", %p)}, undef, "to_ascii\(\'\\u200D㨲｡ß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4243\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}㨲。ß", %p)}, undef, "to_ascii\(\'\\u200D㨲\。ß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4245\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}㨲。SS", %p)}, undef, "to_ascii\(\'\\u200D㨲\。SS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4247\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--9bm.ss", %p)}, "xn--9bm.ss", "to_ascii\(\'xn\-\-9bm\.ss\'\)\ \[data\/IdnaTest\.txt\:4248\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㨲.ss", %p)}, "xn--9bm.ss", "to_ascii\(\'㨲\.ss\'\)\ \[data\/IdnaTest\.txt\:4249\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}㨲｡SS", %p)}, undef, "to_ascii\(\'\\u200D㨲｡SS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4251\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0605}\x{067E}｡\x{08A8}", %p)}, undef, "to_ascii\(\'\\u0605\\u067E｡\\u08A8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4252\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0605}\x{067E}。\x{08A8}", %p)}, undef, "to_ascii\(\'\\u0605\\u067E\。\\u08A8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4253\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("⾑\x{0753}𞤁。𐹵\x{0682}", %p)}, undef, "to_ascii\(\'⾑\\u0753\?\。𐹵\\u0682\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4254\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("襾\x{0753}𞤁。𐹵\x{0682}", %p)}, undef, "to_ascii\(\'襾\\u0753\?\。𐹵\\u0682\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4255\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񦴻ς-\x{20EB}｡\x{0754}-ꡛ", %p)}, undef, "to_ascii\(\'\?ς\-\\u20EB｡\\u0754\-ꡛ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4256\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񦴻ς-\x{20EB}。\x{0754}-ꡛ", %p)}, undef, "to_ascii\(\'\?ς\-\\u20EB\。\\u0754\-ꡛ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4257\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񦴻Σ-\x{20EB}。\x{0754}-ꡛ", %p)}, undef, "to_ascii\(\'\?Σ\-\\u20EB\。\\u0754\-ꡛ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4258\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񦴻σ-\x{20EB}。\x{0754}-ꡛ", %p)}, undef, "to_ascii\(\'\?σ\-\\u20EB\。\\u0754\-ꡛ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4259\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񦴻Σ-\x{20EB}｡\x{0754}-ꡛ", %p)}, undef, "to_ascii\(\'\?Σ\-\\u20EB｡\\u0754\-ꡛ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4260\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񦴻σ-\x{20EB}｡\x{0754}-ꡛ", %p)}, undef, "to_ascii\(\'\?σ\-\\u20EB｡\\u0754\-ꡛ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4261\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}．􀸨", %p)}, undef, "to_ascii\(\'\\u200D．\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4263\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}.􀸨", %p)}, undef, "to_ascii\(\'\\u200D\.\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4265\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񣭻񌥁｡≠𝟲", %p)}, undef, "to_ascii\(\'\?\?｡\≠𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4266\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񣭻񌥁｡=\x{0338}𝟲", %p)}, undef, "to_ascii\(\'\?\?｡\=\\u0338𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4267\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񣭻񌥁。≠6", %p)}, undef, "to_ascii\(\'\?\?\。\≠6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4268\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񣭻񌥁。=\x{0338}6", %p)}, undef, "to_ascii\(\'\?\?\。\=\\u03386\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4269\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠅊ᡭ\x{200D}.𐥡", %p)}, undef, "to_ascii\(\'\󠅊ᡭ\\u200D\.\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4271\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0C40}\x{0855}𐥛𑄴．󭰵", %p)}, undef, "to_ascii\(\'\\u0C40\\u0855\?𑄴．\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4272\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0C40}\x{0855}𐥛𑄴.󭰵", %p)}, undef, "to_ascii\(\'\\u0C40\\u0855\?𑄴\.\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4273\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤮。𑇊\x{200C}≯\x{1CE6}", %p)}, undef, "to_ascii\(\'\?\。𑇊\\u200C\≯\\u1CE6\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4275\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤮。𑇊\x{200C}>\x{0338}\x{1CE6}", %p)}, undef, "to_ascii\(\'\?\。𑇊\\u200C\>\\u0338\\u1CE6\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4277\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄀𝟕.𞤌񛗓Ⴉ", %p)}, undef, "to_ascii\(\'\󠄀𝟕\.\?\?Ⴉ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4278\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄀7.𞤌񛗓Ⴉ", %p)}, undef, "to_ascii\(\'\󠄀7\.\?\?Ⴉ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4279\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄀7.𞤌񛗓ⴉ", %p)}, undef, "to_ascii\(\'\󠄀7\.\?\?ⴉ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4280\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄀𝟕.𞤌񛗓ⴉ", %p)}, undef, "to_ascii\(\'\󠄀𝟕\.\?\?ⴉ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4281\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("閃9𝩍。Ↄ\x{0669}\x{08B1}\x{0B4D}", %p)}, undef, "to_ascii\(\'閃9𝩍\。Ↄ\\u0669\\u08B1\\u0B4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4282\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("閃9𝩍。ↄ\x{0669}\x{08B1}\x{0B4D}", %p)}, undef, "to_ascii\(\'閃9𝩍\。ↄ\\u0669\\u08B1\\u0B4D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4283\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{AAF6}ᢏ\x{0E3A}２.𐋢\x{0745}\x{0F9F}︒", %p)}, undef, "to_ascii\(\'\\uAAF6ᢏ\\u0E3A２\.𐋢\\u0745\\u0F9F︒\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4284\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{AAF6}ᢏ\x{0E3A}2.𐋢\x{0745}\x{0F9F}。", %p)}, undef, "to_ascii\(\'\\uAAF6ᢏ\\u0E3A2\.𐋢\\u0745\\u0F9F\。\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4285\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󅴧｡≠-󠙄⾛", %p)}, undef, "to_ascii\(\'\?｡\≠\-\?⾛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4286\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󅴧｡=\x{0338}-󠙄⾛", %p)}, undef, "to_ascii\(\'\?｡\=\\u0338\-\?⾛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4287\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󅴧。≠-󠙄走", %p)}, undef, "to_ascii\(\'\?\。\≠\-\?走\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4288\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󅴧。=\x{0338}-󠙄走", %p)}, undef, "to_ascii\(\'\?\。\=\\u0338\-\?走\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4289\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{076E}\x{0604}Ⴊ。-≠\x{1160}", %p)}, undef, "to_ascii\(\'\\u076E\\u0604Ⴊ\。\-\≠\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4290\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{076E}\x{0604}Ⴊ。-=\x{0338}\x{1160}", %p)}, undef, "to_ascii\(\'\\u076E\\u0604Ⴊ\。\-\=\\u0338\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4291\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{076E}\x{0604}ⴊ。-=\x{0338}\x{1160}", %p)}, undef, "to_ascii\(\'\\u076E\\u0604ⴊ\。\-\=\\u0338\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4292\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{076E}\x{0604}ⴊ。-≠\x{1160}", %p)}, undef, "to_ascii\(\'\\u076E\\u0604ⴊ\。\-\≠\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4293\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FB4F}𐹧𝟒≯｡\x{200C}", %p)}, undef, "to_ascii\(\'\\uFB4F𐹧𝟒\≯｡\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4295\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FB4F}𐹧𝟒>\x{0338}｡\x{200C}", %p)}, undef, "to_ascii\(\'\\uFB4F𐹧𝟒\>\\u0338｡\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4297\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05D0}\x{05DC}𐹧4≯。\x{200C}", %p)}, undef, "to_ascii\(\'\\u05D0\\u05DC𐹧4\≯\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4299\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{05D0}\x{05DC}𐹧4>\x{0338}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u05D0\\u05DC𐹧4\>\\u0338\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4301\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟎。甯", %p)}, "0.xn--qny", "to_ascii\(\'𝟎\。甯\'\)\ \[data\/IdnaTest\.txt\:4302\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0。甯", %p)}, "0.xn--qny", "to_ascii\(\'0\。甯\'\)\ \[data\/IdnaTest\.txt\:4303\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0.xn--qny", %p)}, "0.xn--qny", "to_ascii\(\'0\.xn\-\-qny\'\)\ \[data\/IdnaTest\.txt\:4304\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("0.甯", %p)}, "0.xn--qny", "to_ascii\(\'0\.甯\'\)\ \[data\/IdnaTest\.txt\:4305\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("-⾆．\x{AAF6}", %p)}, undef, "to_ascii\(\'\-⾆．\\uAAF6\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4306\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("-舌.\x{AAF6}", %p)}, undef, "to_ascii\(\'\-舌\.\\uAAF6\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4307\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-｡ᢘ", %p)}, undef, "to_ascii\(\'\-｡ᢘ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4308\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-。ᢘ", %p)}, undef, "to_ascii\(\'\-\。ᢘ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4309\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🂴Ⴋ.≮", %p)}, undef, "to_ascii\(\'🂴Ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4310\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🂴Ⴋ.<\x{0338}", %p)}, undef, "to_ascii\(\'🂴Ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4311\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🂴ⴋ.<\x{0338}", %p)}, undef, "to_ascii\(\'🂴ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4312\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🂴ⴋ.≮", %p)}, undef, "to_ascii\(\'🂴ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4313\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("璼𝨭｡\x{200C}󠇟", %p)}, undef, "to_ascii\(\'璼𝨭｡\\u200C\󠇟\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4315\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("璼𝨭。\x{200C}󠇟", %p)}, undef, "to_ascii\(\'璼𝨭\。\\u200C\󠇟\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4317\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("xn--gky8837e.", %p)}, "xn--gky8837e.", "to_ascii\(\'xn\-\-gky8837e\.\'\)\ \[data\/IdnaTest\.txt\:4318\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("璼𝨭.", %p)}, "xn--gky8837e.", "to_ascii\(\'璼𝨭\.\'\)\ \[data\/IdnaTest\.txt\:4319\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0669}8񂍽｡-5🞥", %p)}, undef, "to_ascii\(\'\\u06698\?｡\-5🞥\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4320\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0669}8񂍽。-5🞥", %p)}, undef, "to_ascii\(\'\\u06698\?\。\-5🞥\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4321\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.\x{200C}", %p)}, undef, "to_ascii\(\'\\u200C\.\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4323\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}튛.\x{0716}", %p)}, undef, "to_ascii\(\'\\u200D튛\.\\u0716\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4325\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}튛.\x{0716}", %p)}, undef, "to_ascii\(\'\\u200D튛\.\\u0716\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4327\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--157b.xn--gnb", %p)}, "xn--157b.xn--gnb", "to_ascii\(\'xn\-\-157b\.xn\-\-gnb\'\)\ \[data\/IdnaTest\.txt\:4328\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("튛.\x{0716}", %p)}, "xn--157b.xn--gnb", "to_ascii\(\'튛\.\\u0716\'\)\ \[data\/IdnaTest\.txt\:4329\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("튛.\x{0716}", %p)}, "xn--157b.xn--gnb", "to_ascii\(\'튛\.\\u0716\'\)\ \[data\/IdnaTest\.txt\:4330\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡋ𐹰𞽳.\x{0779}ⴞ", %p)}, undef, "to_ascii\(\'ᡋ𐹰\?\.\\u0779ⴞ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4331\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᡋ𐹰𞽳.\x{0779}Ⴞ", %p)}, undef, "to_ascii\(\'ᡋ𐹰\?\.\\u0779Ⴞ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4332\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐷃\x{0662}𝅻𝟧．𐹮𐹬Ⴇ", %p)}, undef, "to_ascii\(\'\?\\u0662𝅻𝟧．𐹮𐹬Ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4333\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐷃\x{0662}𝅻5.𐹮𐹬Ⴇ", %p)}, undef, "to_ascii\(\'\?\\u0662𝅻5\.𐹮𐹬Ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4334\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐷃\x{0662}𝅻5.𐹮𐹬ⴇ", %p)}, undef, "to_ascii\(\'\?\\u0662𝅻5\.𐹮𐹬ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4335\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐷃\x{0662}𝅻𝟧．𐹮𐹬ⴇ", %p)}, undef, "to_ascii\(\'\?\\u0662𝅻𝟧．𐹮𐹬ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4336\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴗ．\x{05C2}𑄴\x{A9B7}񘃨", %p)}, undef, "to_ascii\(\'Ⴗ．\\u05C2𑄴\\uA9B7\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4337\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴗ．𑄴\x{05C2}\x{A9B7}񘃨", %p)}, undef, "to_ascii\(\'Ⴗ．𑄴\\u05C2\\uA9B7\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4338\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴗ.𑄴\x{05C2}\x{A9B7}񘃨", %p)}, undef, "to_ascii\(\'Ⴗ\.𑄴\\u05C2\\uA9B7\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4339\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴗ.𑄴\x{05C2}\x{A9B7}񘃨", %p)}, undef, "to_ascii\(\'ⴗ\.𑄴\\u05C2\\uA9B7\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4340\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴗ．𑄴\x{05C2}\x{A9B7}񘃨", %p)}, undef, "to_ascii\(\'ⴗ．𑄴\\u05C2\\uA9B7\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4341\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴗ．\x{05C2}𑄴\x{A9B7}񘃨", %p)}, undef, "to_ascii\(\'ⴗ．\\u05C2𑄴\\uA9B7\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4342\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟾𾤘．򇕛\x{066C}", %p)}, undef, "to_ascii\(\'𝟾\?．\?\\u066C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4343\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8𾤘.򇕛\x{066C}", %p)}, undef, "to_ascii\(\'8\?\.\?\\u066C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4344\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈酫︒。\x{08D6}", %p)}, undef, "to_ascii\(\'⒈酫︒\。\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4345\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("1.酫。。\x{08D6}", %p)}, undef, "to_ascii\(\'1\.酫\。\。\\u08D6\'\)\ throws\ error\ V5\ A4_2\ \[data\/IdnaTest\.txt\:4346\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{2DE3}\x{200C}≮\x{1A6B}.\x{200C}\x{0E3A}", %p)}, undef, "to_ascii\(\'\\u2DE3\\u200C\≮\\u1A6B\.\\u200C\\u0E3A\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4348\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2DE3}\x{200C}<\x{0338}\x{1A6B}.\x{200C}\x{0E3A}", %p)}, undef, "to_ascii\(\'\\u2DE3\\u200C\<\\u0338\\u1A6B\.\\u200C\\u0E3A\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4350\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞪂。ႷႽ¹\x{200D}", %p)}, undef, "to_ascii\(\'\?\。ႷႽ¹\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4352\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞪂。ႷႽ1\x{200D}", %p)}, undef, "to_ascii\(\'\?\。ႷႽ1\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4354\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞪂。ⴗⴝ1\x{200D}", %p)}, undef, "to_ascii\(\'\?\。ⴗⴝ1\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4356\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞪂。Ⴗⴝ1\x{200D}", %p)}, undef, "to_ascii\(\'\?\。Ⴗⴝ1\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4358\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞪂。ⴗⴝ¹\x{200D}", %p)}, undef, "to_ascii\(\'\?\。ⴗⴝ¹\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4360\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞪂。Ⴗⴝ¹\x{200D}", %p)}, undef, "to_ascii\(\'\?\。Ⴗⴝ¹\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4362\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑄴𑄳2.𞳿󠀳-", %p)}, undef, "to_ascii\(\'𑄴𑄳2\.\?\?\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:4363\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕲󟶶\x{0665}｡񀁁𑄳𞤃\x{0710}", %p)}, undef, "to_ascii\(\'\?\?\\u0665｡\?𑄳\?\\u0710\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:4364\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠕲󟶶\x{0665}。񀁁𑄳𞤃\x{0710}", %p)}, undef, "to_ascii\(\'\?\?\\u0665\。\?𑄳\?\\u0710\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:4365\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0720}򲠽𐹢\x{17BB}｡ςᢈ🝭\x{200C}", %p)}, undef, "to_ascii\(\'\\u0720\?𐹢\\u17BB｡ςᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ C1\ \[data\/IdnaTest\.txt\:4367\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0720}򲠽𐹢\x{17BB}。ςᢈ🝭\x{200C}", %p)}, undef, "to_ascii\(\'\\u0720\?𐹢\\u17BB\。ςᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ C1\ \[data\/IdnaTest\.txt\:4369\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0720}򲠽𐹢\x{17BB}。Σᢈ🝭\x{200C}", %p)}, undef, "to_ascii\(\'\\u0720\?𐹢\\u17BB\。Σᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ C1\ \[data\/IdnaTest\.txt\:4371\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0720}򲠽𐹢\x{17BB}。σᢈ🝭\x{200C}", %p)}, undef, "to_ascii\(\'\\u0720\?𐹢\\u17BB\。σᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ C1\ \[data\/IdnaTest\.txt\:4373\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0720}򲠽𐹢\x{17BB}｡Σᢈ🝭\x{200C}", %p)}, undef, "to_ascii\(\'\\u0720\?𐹢\\u17BB｡Σᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ C1\ \[data\/IdnaTest\.txt\:4375\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0720}򲠽𐹢\x{17BB}｡σᢈ🝭\x{200C}", %p)}, undef, "to_ascii\(\'\\u0720\?𐹢\\u17BB｡σᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ C1\ \[data\/IdnaTest\.txt\:4377\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}--≮。𐹧", %p)}, undef, "to_ascii\(\'\\u200D\-\-\≮\。𐹧\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:4379\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}--<\x{0338}。𐹧", %p)}, undef, "to_ascii\(\'\\u200D\-\-\<\\u0338\。𐹧\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:4381\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A806}。𻚏\x{0FB0}⒕", %p)}, undef, "to_ascii\(\'\\uA806\。\?\\u0FB0⒕\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4382\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A806}。𻚏\x{0FB0}14.", %p)}, undef, "to_ascii\(\'\\uA806\。\?\\u0FB014\.\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4383\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򮉂\x{06BC}．𑆺\x{0669}", %p)}, undef, "to_ascii\(\'\?\\u06BC．𑆺\\u0669\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4384\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򮉂\x{06BC}.𑆺\x{0669}", %p)}, undef, "to_ascii\(\'\?\\u06BC\.𑆺\\u0669\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4385\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠁎\x{06D0}-。𞤴", %p)}, undef, "to_ascii\(\'\?\\u06D0\-\。\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4386\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𝟠4󠇗𝈻．\x{200D}𐋵⛧\x{200D}", %p)}, undef, "to_ascii\(\'𝟠4\󠇗𝈻．\\u200D𐋵\⛧\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4388\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("84󠇗𝈻.\x{200D}𐋵⛧\x{200D}", %p)}, undef, "to_ascii\(\'84\󠇗𝈻\.\\u200D𐋵\⛧\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4390\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--84-s850a.xn--59h6326e", %p)}, "xn--84-s850a.xn--59h6326e", "to_ascii\(\'xn\-\-84\-s850a\.xn\-\-59h6326e\'\)\ \[data\/IdnaTest\.txt\:4391\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("84𝈻.𐋵⛧", %p)}, "xn--84-s850a.xn--59h6326e", "to_ascii\(\'84𝈻\.𐋵\⛧\'\)\ \[data\/IdnaTest\.txt\:4392\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-\x{0601}｡ᡪ", %p)}, undef, "to_ascii\(\'\-\\u0601｡ᡪ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4393\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{0601}。ᡪ", %p)}, undef, "to_ascii\(\'\-\\u0601\。ᡪ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4394\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮𝟕．謖ß≯", %p)}, undef, "to_ascii\(\'\≮𝟕．謖ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4395\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𝟕．謖ß>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u0338𝟕．謖ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4396\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮7.謖ß≯", %p)}, undef, "to_ascii\(\'\≮7\.謖ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4397\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}7.謖ß>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03387\.謖ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4398\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}7.謖SS>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03387\.謖SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4399\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮7.謖SS≯", %p)}, undef, "to_ascii\(\'\≮7\.謖SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4400\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮7.謖ss≯", %p)}, undef, "to_ascii\(\'\≮7\.謖ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4401\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}7.謖ss>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03387\.謖ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4402\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}7.謖Ss>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03387\.謖Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4403\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮7.謖Ss≯", %p)}, undef, "to_ascii\(\'\≮7\.謖Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4404\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𝟕．謖SS>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u0338𝟕．謖SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4405\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮𝟕．謖SS≯", %p)}, undef, "to_ascii\(\'\≮𝟕．謖SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4406\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮𝟕．謖ss≯", %p)}, undef, "to_ascii\(\'\≮𝟕．謖ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4407\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𝟕．謖ss>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u0338𝟕．謖ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4408\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𝟕．謖Ss>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u0338𝟕．謖Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4409\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮𝟕．謖Ss≯", %p)}, undef, "to_ascii\(\'\≮𝟕．謖Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4410\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("朶Ⴉ𞪡.𝨽\x{0825}📻-", %p)}, undef, "to_ascii\(\'朶Ⴉ\?\.𝨽\\u0825📻\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4411\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("朶ⴉ𞪡.𝨽\x{0825}📻-", %p)}, undef, "to_ascii\(\'朶ⴉ\?\.𝨽\\u0825📻\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4412\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐤎。󑿰\x{200C}≮\x{200D}", %p)}, undef, "to_ascii\(\'𐤎\。\?\\u200C\≮\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:4414\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐤎。󑿰\x{200C}<\x{0338}\x{200D}", %p)}, undef, "to_ascii\(\'𐤎\。\?\\u200C\<\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:4416\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񭜎⒈｡\x{200C}𝟤", %p)}, undef, "to_ascii\(\'\?⒈｡\\u200C𝟤\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4418\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񭜎1.。\x{200C}2", %p)}, undef, "to_ascii\(\'\?1\.\。\\u200C2\'\)\ throws\ error\ P1\ V6\ A4_2\ C1\ \[data\/IdnaTest\.txt\:4420\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠟊𐹤\x{200D}．𐹳󙄵𐹶", %p)}, undef, "to_ascii\(\'\?𐹤\\u200D．𐹳\?𐹶\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4422\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠟊𐹤\x{200D}.𐹳󙄵𐹶", %p)}, undef, "to_ascii\(\'\?𐹤\\u200D\.𐹳\?𐹶\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4424\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤴𐹻𑓂𐭝．\x{094D}\x{FE07}􉛯", %p)}, undef, "to_ascii\(\'\?𐹻𑓂𐭝．\\u094D\\uFE07\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4425\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤴𐹻𑓂𐭝.\x{094D}\x{FE07}􉛯", %p)}, undef, "to_ascii\(\'\?𐹻𑓂𐭝\.\\u094D\\uFE07\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4426\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0668}｡𐹠𐹽񗮶", %p)}, undef, "to_ascii\(\'\\u0668｡𐹠𐹽\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4427\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0668}。𐹠𐹽񗮶", %p)}, undef, "to_ascii\(\'\\u0668\。𐹠𐹽\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4428\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1160}񍀜.8򶾵\x{069C}", %p)}, undef, "to_ascii\(\'\\u1160\?\.8\?\\u069C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4429\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}\x{200C}󠆪｡ß𑓃", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\󠆪｡ß𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4431\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}\x{200C}󠆪。ß𑓃", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\󠆪\。ß𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4433\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}\x{200C}󠆪。SS𑓃", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\󠆪\。SS𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4435\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}\x{200C}󠆪。ss𑓃", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\󠆪\。ss𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4437\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}\x{200C}󠆪。Ss𑓃", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\󠆪\。Ss𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4439\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--ss-bh7o", %p)}, "xn--ss-bh7o", "to_ascii\(\'xn\-\-ss\-bh7o\'\)\ \[data\/IdnaTest\.txt\:4440\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss𑓃", %p)}, "xn--ss-bh7o", "to_ascii\(\'ss𑓃\'\)\ \[data\/IdnaTest\.txt\:4441\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("SS𑓃", %p)}, "xn--ss-bh7o", "to_ascii\(\'SS𑓃\'\)\ \[data\/IdnaTest\.txt\:4442\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Ss𑓃", %p)}, "xn--ss-bh7o", "to_ascii\(\'Ss𑓃\'\)\ \[data\/IdnaTest\.txt\:4443\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}\x{200C}󠆪｡SS𑓃", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\󠆪｡SS𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4445\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}\x{200C}󠆪｡ss𑓃", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\󠆪｡ss𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4447\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}\x{200C}󠆪｡Ss𑓃", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\󠆪｡Ss𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4449\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("︒\x{200C}ヶ䒩.ꡪ", %p)}, undef, "to_ascii\(\'︒\\u200Cヶ䒩\.ꡪ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4451\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("。\x{200C}ヶ䒩.ꡪ", %p)}, undef, "to_ascii\(\'\。\\u200Cヶ䒩\.ꡪ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4453\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("xn--qekw60d.xn--gd9a", %p)}, "xn--qekw60d.xn--gd9a", "to_ascii\(\'xn\-\-qekw60d\.xn\-\-gd9a\'\)\ \[data\/IdnaTest\.txt\:4454\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ヶ䒩.ꡪ", %p)}, "xn--qekw60d.xn--gd9a", "to_ascii\(\'ヶ䒩\.ꡪ\'\)\ \[data\/IdnaTest\.txt\:4455\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}⒈𤮍.󢓋\x{1A60}", %p)}, undef, "to_ascii\(\'\\u200C⒈𤮍\.\?\\u1A60\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4457\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}1.𤮍.󢓋\x{1A60}", %p)}, undef, "to_ascii\(\'\\u200C1\.𤮍\.\?\\u1A60\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4459\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈\x{200C}𐫓󠀺。\x{1A60}񤰵\x{200D}", %p)}, undef, "to_ascii\(\'⒈\\u200C𐫓\?\。\\u1A60\?\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:4461\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("1.\x{200C}𐫓󠀺。\x{1A60}񤰵\x{200D}", %p)}, undef, "to_ascii\(\'1\.\\u200C𐫓\?\。\\u1A60\?\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:4463\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝅵｡𝟫𞀈䬺⒈", %p)}, undef, "to_ascii\(\'\?｡𝟫\?䬺⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4464\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝅵。9𞀈䬺1.", %p)}, undef, "to_ascii\(\'\?\。9\?䬺1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4465\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򡼺≯。盚\x{0635}", %p)}, undef, "to_ascii\(\'\?\≯\。盚\\u0635\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4466\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򡼺>\x{0338}。盚\x{0635}", %p)}, undef, "to_ascii\(\'\?\>\\u0338\。盚\\u0635\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4467\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񿰭\x{05B4}。-󠁊𐢸≯", %p)}, undef, "to_ascii\(\'\-\?\\u05B4\。\-\?\?\≯\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4468\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񿰭\x{05B4}。-󠁊𐢸>\x{0338}", %p)}, undef, "to_ascii\(\'\-\?\\u05B4\。\-\?\?\>\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4469\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󿭓\x{1B44}\x{200C}\x{0A4D}．𐭛񳋔", %p)}, undef, "to_ascii\(\'\?\\u1B44\\u200C\\u0A4D．𐭛\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4470\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󿭓\x{1B44}\x{200C}\x{0A4D}.𐭛񳋔", %p)}, undef, "to_ascii\(\'\?\\u1B44\\u200C\\u0A4D\.𐭛\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4471\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("⾇.\x{067D}𞤴\x{06BB}\x{200D}", %p)}, undef, "to_ascii\(\'⾇\.\\u067D\?\\u06BB\\u200D\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:4473\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("舛.\x{067D}𞤴\x{06BB}\x{200D}", %p)}, undef, "to_ascii\(\'舛\.\\u067D\?\\u06BB\\u200D\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:4475\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--8c1a.xn--2ib8jn539l", %p)}, "xn--8c1a.xn--2ib8jn539l", "to_ascii\(\'xn\-\-8c1a\.xn\-\-2ib8jn539l\'\)\ \[data\/IdnaTest\.txt\:4476\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("舛.\x{067D}𞤴\x{06BB}", %p)}, "xn--8c1a.xn--2ib8jn539l", "to_ascii\(\'舛\.\\u067D\?\\u06BB\'\)\ \[data\/IdnaTest\.txt\:4477\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("4򭆥。\x{0767}≯", %p)}, undef, "to_ascii\(\'4\?\。\\u0767\≯\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4478\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4򭆥。\x{0767}>\x{0338}", %p)}, undef, "to_ascii\(\'4\?\。\\u0767\>\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4479\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲔏𞫨񺿂硲．\x{06AD}", %p)}, undef, "to_ascii\(\'\?\?\?硲．\\u06AD\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4480\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𲔏𞫨񺿂硲.\x{06AD}", %p)}, undef, "to_ascii\(\'\?\?\?硲\.\\u06AD\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4481\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}.\x{FE08}\x{0666}Ⴆ℮", %p)}, undef, "to_ascii\(\'\\u200C\.\\uFE08\\u0666Ⴆ℮\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:4483\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{200C}.\x{FE08}\x{0666}ⴆ℮", %p)}, undef, "to_ascii\(\'\\u200C\.\\uFE08\\u0666ⴆ℮\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:4485\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{06A3}．\x{0D4D}\x{200D}Ϟ", %p)}, undef, "to_ascii\(\'\\u06A3．\\u0D4D\\u200DϞ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4486\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06A3}.\x{0D4D}\x{200D}Ϟ", %p)}, undef, "to_ascii\(\'\\u06A3\.\\u0D4D\\u200DϞ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4487\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06A3}.\x{0D4D}\x{200D}ϟ", %p)}, undef, "to_ascii\(\'\\u06A3\.\\u0D4D\\u200Dϟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4488\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06A3}．\x{0D4D}\x{200D}ϟ", %p)}, undef, "to_ascii\(\'\\u06A3．\\u0D4D\\u200Dϟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4489\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}𞸇𑘿。\x{0623}𐮂-腍", %p)}, undef, "to_ascii\(\'\\u200C𞸇𑘿\。\\u0623𐮂\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4491\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}𞸇𑘿。\x{0627}\x{0654}𐮂-腍", %p)}, undef, "to_ascii\(\'\\u200C𞸇𑘿\。\\u0627\\u0654𐮂\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4493\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}\x{062D}𑘿。\x{0623}𐮂-腍", %p)}, undef, "to_ascii\(\'\\u200C\\u062D𑘿\。\\u0623𐮂\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4495\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}\x{062D}𑘿。\x{0627}\x{0654}𐮂-腍", %p)}, undef, "to_ascii\(\'\\u200C\\u062D𑘿\。\\u0627\\u0654𐮂\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4497\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("-򭷙\x{066B}纛｡𝟛񭤇🄅", %p)}, undef, "to_ascii\(\'\-\?\\u066B纛｡𝟛\?🄅\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4498\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-򭷙\x{066B}纛。3񭤇4,", %p)}, undef, "to_ascii\(\'\-\?\\u066B纛\。3\?4\,\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4499\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🔔．Ⴂ\x{07CC}\x{0BCD}𐋮", %p)}, undef, "to_ascii\(\'🔔．Ⴂ\\u07CC\\u0BCD𐋮\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4500\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🔔.Ⴂ\x{07CC}\x{0BCD}𐋮", %p)}, undef, "to_ascii\(\'🔔\.Ⴂ\\u07CC\\u0BCD𐋮\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4501\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("🔔.ⴂ\x{07CC}\x{0BCD}𐋮", %p)}, undef, "to_ascii\(\'🔔\.ⴂ\\u07CC\\u0BCD𐋮\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4502\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("🔔．ⴂ\x{07CC}\x{0BCD}𐋮", %p)}, undef, "to_ascii\(\'🔔．ⴂ\\u07CC\\u0BCD𐋮\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4503\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("軥\x{06B3}.-𖬵", %p)}, undef, "to_ascii\(\'軥\\u06B3\.\-𖬵\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4504\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹤\x{07CA}\x{06B6}.𐨂-", %p)}, undef, "to_ascii\(\'𐹤\\u07CA\\u06B6\.𐨂\-\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:4505\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("-󠅱0｡\x{17CF}\x{1DFD}톇십", %p)}, undef, "to_ascii\(\'\-\󠅱0｡\\u17CF\\u1DFD톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4506\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("-󠅱0｡\x{17CF}\x{1DFD}톇십", %p)}, undef, "to_ascii\(\'\-\󠅱0｡\\u17CF\\u1DFD톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4507\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("-󠅱0。\x{17CF}\x{1DFD}톇십", %p)}, undef, "to_ascii\(\'\-\󠅱0\。\\u17CF\\u1DFD톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4508\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("-󠅱0。\x{17CF}\x{1DFD}톇십", %p)}, undef, "to_ascii\(\'\-\󠅱0\。\\u17CF\\u1DFD톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4509\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ꡰ︒--｡\x{17CC}靈𐹢񘳮", %p)}, undef, "to_ascii\(\'ꡰ︒\-\-｡\\u17CC靈𐹢\?\'\)\ throws\ error\ P1\ V2\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4510\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡰ。--。\x{17CC}靈𐹢񘳮", %p)}, undef, "to_ascii\(\'ꡰ\。\-\-\。\\u17CC靈𐹢\?\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4511\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}ႿႵრ｡\x{0B4D}", %p)}, undef, "to_ascii\(\'\\u115FႿႵრ｡\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4512\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}ႿႵრ。\x{0B4D}", %p)}, undef, "to_ascii\(\'\\u115FႿႵრ\。\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4513\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}ⴟⴕრ。\x{0B4D}", %p)}, undef, "to_ascii\(\'\\u115Fⴟⴕრ\。\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4514\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}Ⴟⴕრ。\x{0B4D}", %p)}, undef, "to_ascii\(\'\\u115FႿⴕრ\。\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4515\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}ⴟⴕრ｡\x{0B4D}", %p)}, undef, "to_ascii\(\'\\u115Fⴟⴕრ｡\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4516\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{115F}Ⴟⴕრ｡\x{0B4D}", %p)}, undef, "to_ascii\(\'\\u115FႿⴕრ｡\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4517\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("🄃𐹠.\x{0664}󠅇", %p)}, undef, "to_ascii\(\'🄃𐹠\.\\u0664\󠅇\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4518\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("2,𐹠.\x{0664}󠅇", %p)}, undef, "to_ascii\(\'2\,𐹠\.\\u0664\󠅇\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4519\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򻲼\x{200C}\x{FC5B}．\x{07D2}\x{0848}\x{1BF3}", %p)}, undef, "to_ascii\(\'\?\\u200C\\uFC5B．\\u07D2\\u0848\\u1BF3\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4521\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򻲼\x{200C}\x{0630}\x{0670}.\x{07D2}\x{0848}\x{1BF3}", %p)}, undef, "to_ascii\(\'\?\\u200C\\u0630\\u0670\.\\u07D2\\u0848\\u1BF3\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4523\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}\x{200D}𞵪\x{200C}。ᡘ𑲭\x{17B5}", %p)}, undef, "to_ascii\(\'\\u200D\\u200D\?\\u200C\。ᡘ\?\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:4525\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞷻。⚄񗑇𑁿", %p)}, undef, "to_ascii\(\'\?\。\⚄\?𑁿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4526\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A8C4}≠．𞠨\x{0667}", %p)}, undef, "to_ascii\(\'\\uA8C4\≠．𞠨\\u0667\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4527\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A8C4}=\x{0338}．𞠨\x{0667}", %p)}, undef, "to_ascii\(\'\\uA8C4\=\\u0338．𞠨\\u0667\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4528\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A8C4}≠.𞠨\x{0667}", %p)}, undef, "to_ascii\(\'\\uA8C4\≠\.𞠨\\u0667\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4529\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A8C4}=\x{0338}.𞠨\x{0667}", %p)}, undef, "to_ascii\(\'\\uA8C4\=\\u0338\.𞠨\\u0667\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4530\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𝟛𝆪\x{A8C4}｡\x{A8EA}-", %p)}, undef, "to_ascii\(\'𝟛𝆪\\uA8C4｡\\uA8EA\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4531\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𝟛\x{A8C4}𝆪｡\x{A8EA}-", %p)}, undef, "to_ascii\(\'𝟛\\uA8C4𝆪｡\\uA8EA\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4532\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("3\x{A8C4}𝆪。\x{A8EA}-", %p)}, undef, "to_ascii\(\'3\\uA8C4𝆪\。\\uA8EA\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4533\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{075F}\x{1BA2}\x{103A}Ⴇ.4", %p)}, undef, "to_ascii\(\'\\u075F\\u1BA2\\u103AႧ\.4\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4534\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{075F}\x{1BA2}\x{103A}ⴇ.4", %p)}, undef, "to_ascii\(\'\\u075F\\u1BA2\\u103Aⴇ\.4\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4535\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ᄹ｡\x{0ECA}򠯤󠄞", %p)}, undef, "to_ascii\(\'ᄹ｡\\u0ECA\?\󠄞\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4536\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᄹ。\x{0ECA}򠯤󠄞", %p)}, undef, "to_ascii\(\'ᄹ\。\\u0ECA\?\󠄞\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4537\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴆ򻢩．󠆡\x{FE09}𞤍", %p)}, undef, "to_ascii\(\'Ⴆ\?．\󠆡\\uFE09\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4538\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴆ򻢩.󠆡\x{FE09}𞤍", %p)}, undef, "to_ascii\(\'Ⴆ\?\.\󠆡\\uFE09\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4539\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴆ򻢩.󠆡\x{FE09}𞤍", %p)}, undef, "to_ascii\(\'ⴆ\?\.\󠆡\\uFE09\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4540\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴆ򻢩．󠆡\x{FE09}𞤍", %p)}, undef, "to_ascii\(\'ⴆ\?．\󠆡\\uFE09\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4541\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß\x{080B}︒\x{067B}．帼F∬\x{200C}", %p)}, undef, "to_ascii\(\'ß\\u080B︒\\u067B．帼F\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4543\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ß\x{080B}。\x{067B}.帼F∫∫\x{200C}", %p)}, undef, "to_ascii\(\'ß\\u080B\。\\u067B\.帼F\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4545\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ß\x{080B}。\x{067B}.帼f∫∫\x{200C}", %p)}, undef, "to_ascii\(\'ß\\u080B\。\\u067B\.帼f\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4547\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("SS\x{080B}。\x{067B}.帼F∫∫\x{200C}", %p)}, undef, "to_ascii\(\'SS\\u080B\。\\u067B\.帼F\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4549\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ss\x{080B}。\x{067B}.帼f∫∫\x{200C}", %p)}, undef, "to_ascii\(\'ss\\u080B\。\\u067B\.帼f\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4551\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("Ss\x{080B}。\x{067B}.帼F∫∫\x{200C}", %p)}, undef, "to_ascii\(\'Ss\\u080B\。\\u067B\.帼F\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4553\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ß\x{080B}︒\x{067B}．帼f∬\x{200C}", %p)}, undef, "to_ascii\(\'ß\\u080B︒\\u067B．帼f\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4555\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS\x{080B}︒\x{067B}．帼F∬\x{200C}", %p)}, undef, "to_ascii\(\'SS\\u080B︒\\u067B．帼F\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4557\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss\x{080B}︒\x{067B}．帼f∬\x{200C}", %p)}, undef, "to_ascii\(\'ss\\u080B︒\\u067B．帼f\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4559\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss\x{080B}︒\x{067B}．帼F∬\x{200C}", %p)}, undef, "to_ascii\(\'Ss\\u080B︒\\u067B．帼F\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4561\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󘪗｡𐹴𞨌\x{200D}", %p)}, undef, "to_ascii\(\'\?｡𐹴\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4563\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󘪗。𐹴𞨌\x{200D}", %p)}, undef, "to_ascii\(\'\?\。𐹴\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4565\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗛨.򅟢𝟨\x{A8C4}", %p)}, undef, "to_ascii\(\'\?\.\?𝟨\\uA8C4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4566\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗛨.򅟢6\x{A8C4}", %p)}, undef, "to_ascii\(\'\?\.\?6\\uA8C4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4567\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1AB2}\x{FD8E}。-۹ႱႨ", %p)}, undef, "to_ascii\(\'\\u1AB2\\uFD8E\。\-۹ႱႨ\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4568\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1AB2}\x{0645}\x{062E}\x{062C}。-۹ႱႨ", %p)}, undef, "to_ascii\(\'\\u1AB2\\u0645\\u062E\\u062C\。\-۹ႱႨ\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4569\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1AB2}\x{0645}\x{062E}\x{062C}。-۹ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u1AB2\\u0645\\u062E\\u062C\。\-۹ⴑⴈ\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4570\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{1AB2}\x{0645}\x{062E}\x{062C}。-۹Ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u1AB2\\u0645\\u062E\\u062C\。\-۹Ⴑⴈ\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4571\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1AB2}\x{FD8E}。-۹ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u1AB2\\uFD8E\。\-۹ⴑⴈ\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4572\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{1AB2}\x{FD8E}。-۹Ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u1AB2\\uFD8E\。\-۹Ⴑⴈ\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4573\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤤．-\x{08A3}︒", %p)}, undef, "to_ascii\(\'\?．\-\\u08A3︒\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4574\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞤤.-\x{08A3}。", %p)}, undef, "to_ascii\(\'\?\.\-\\u08A3\。\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4575\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}𐺨.\x{0859}--", %p)}, undef, "to_ascii\(\'\\u200C\?\.\\u0859\-\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4577\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐋸󮘋Ⴢ.Ⴁ", %p)}, undef, "to_ascii\(\'𐋸\?Ⴢ\.Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4578\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐋸󮘋ⴢ.ⴁ", %p)}, undef, "to_ascii\(\'𐋸\?ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4579\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐋸󮘋Ⴢ.ⴁ", %p)}, undef, "to_ascii\(\'𐋸\?Ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4580\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗑿\x{A806}₄򩞆｡𲩧󠒹ς", %p)}, undef, "to_ascii\(\'\?\\uA806₄\?｡\?\?ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4581\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗑿\x{A806}4򩞆。𲩧󠒹ς", %p)}, undef, "to_ascii\(\'\?\\uA8064\?\。\?\?ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4582\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗑿\x{A806}4򩞆。𲩧󠒹Σ", %p)}, undef, "to_ascii\(\'\?\\uA8064\?\。\?\?Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4583\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗑿\x{A806}4򩞆。𲩧󠒹σ", %p)}, undef, "to_ascii\(\'\?\\uA8064\?\。\?\?σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4584\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗑿\x{A806}₄򩞆｡𲩧󠒹Σ", %p)}, undef, "to_ascii\(\'\?\\uA806₄\?｡\?\?Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4585\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗑿\x{A806}₄򩞆｡𲩧󠒹σ", %p)}, undef, "to_ascii\(\'\?\\uA806₄\?｡\?\?σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4586\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("󠆀\x{0723}。\x{1DF4}\x{0775}", %p)}, undef, "to_ascii\(\'\󠆀\\u0723\。\\u1DF4\\u0775\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4587\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𐹱\x{0842}𝪨｡𬼖Ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'𐹱\\u0842𝪨｡\?Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4589\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹱\x{0842}𝪨。𬼖Ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'𐹱\\u0842𝪨\。\?Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4591\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹱\x{0842}𝪨。𬼖ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'𐹱\\u0842𝪨\。\?ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4593\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹱\x{0842}𝪨｡𬼖ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'𐹱\\u0842𝪨｡\?ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4595\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1714}𐭪󠙘\x{200D}｡-𐹴", %p)}, undef, "to_ascii\(\'\\u1714𐭪\?\\u200D｡\-𐹴\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:4597\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1714}𐭪󠙘\x{200D}。-𐹴", %p)}, undef, "to_ascii\(\'\\u1714𐭪\?\\u200D\。\-𐹴\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:4599\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𾢬｡\x{0729}︒쯙𝟧", %p)}, undef, "to_ascii\(\'\?｡\\u0729︒쯙𝟧\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4600\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𾢬｡\x{0729}︒쯙𝟧", %p)}, undef, "to_ascii\(\'\?｡\\u0729︒쯙𝟧\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4601\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𾢬。\x{0729}。쯙5", %p)}, undef, "to_ascii\(\'\?\。\\u0729\。쯙5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4602\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𾢬。\x{0729}。쯙5", %p)}, undef, "to_ascii\(\'\?\。\\u0729\。쯙5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4603\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤟-。\x{0762}≮뻐", %p)}, undef, "to_ascii\(\'\?\-\。\\u0762\≮뻐\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B2\ \[data\/IdnaTest\.txt\:4604\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞤟-。\x{0762}<\x{0338}뻐", %p)}, undef, "to_ascii\(\'\?\-\。\\u0762\<\\u0338뻐\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B2\ \[data\/IdnaTest\.txt\:4605\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞥩-򊫠．\x{08B4}≠", %p)}, undef, "to_ascii\(\'\?\-\?．\\u08B4\≠\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4606\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞥩-򊫠．\x{08B4}=\x{0338}", %p)}, undef, "to_ascii\(\'\?\-\?．\\u08B4\=\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4607\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞥩-򊫠.\x{08B4}≠", %p)}, undef, "to_ascii\(\'\?\-\?\.\\u08B4\≠\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4608\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞥩-򊫠.\x{08B4}=\x{0338}", %p)}, undef, "to_ascii\(\'\?\-\?\.\\u08B4\=\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4609\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏ςႼ．\x{0661}", %p)}, undef, "to_ascii\(\'\-\?ςႼ．\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4610\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏ςႼ.\x{0661}", %p)}, undef, "to_ascii\(\'\-\?ςႼ\.\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4611\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏ςⴜ.\x{0661}", %p)}, undef, "to_ascii\(\'\-\?ςⴜ\.\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4612\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏ΣႼ.\x{0661}", %p)}, undef, "to_ascii\(\'\-\?ΣႼ\.\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4613\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏σⴜ.\x{0661}", %p)}, undef, "to_ascii\(\'\-\?σⴜ\.\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4614\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏Σⴜ.\x{0661}", %p)}, undef, "to_ascii\(\'\-\?Σⴜ\.\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4615\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏ςⴜ．\x{0661}", %p)}, undef, "to_ascii\(\'\-\?ςⴜ．\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4616\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏ΣႼ．\x{0661}", %p)}, undef, "to_ascii\(\'\-\?ΣႼ．\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4617\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏σⴜ．\x{0661}", %p)}, undef, "to_ascii\(\'\-\?σⴜ．\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4618\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񅂏Σⴜ．\x{0661}", %p)}, undef, "to_ascii\(\'\-\?Σⴜ．\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4619\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{17CA}.\x{200D}𝟮𑀿", %p)}, undef, "to_ascii\(\'\\u17CA\.\\u200D𝟮𑀿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4621\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{17CA}.\x{200D}2𑀿", %p)}, undef, "to_ascii\(\'\\u17CA\.\\u200D2𑀿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4623\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("≯𝟖｡\x{1A60}𐫓򟇑", %p)}, undef, "to_ascii\(\'\≯𝟖｡\\u1A60𐫓\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4624\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}𝟖｡\x{1A60}𐫓򟇑", %p)}, undef, "to_ascii\(\'\>\\u0338𝟖｡\\u1A60𐫓\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4625\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≯8。\x{1A60}𐫓򟇑", %p)}, undef, "to_ascii\(\'\≯8\。\\u1A60𐫓\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4626\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii(">\x{0338}8。\x{1A60}𐫓򟇑", %p)}, undef, "to_ascii\(\'\>\\u03388\。\\u1A60𐫓\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4627\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑲫Ↄ\x{0664}｡\x{200C}", %p)}, undef, "to_ascii\(\'\?Ↄ\\u0664｡\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4629\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑲫Ↄ\x{0664}。\x{200C}", %p)}, undef, "to_ascii\(\'\?Ↄ\\u0664\。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4631\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𑲫ↄ\x{0664}。\x{200C}", %p)}, undef, "to_ascii\(\'\?ↄ\\u0664\。\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4633\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𑲫ↄ\x{0664}｡\x{200C}", %p)}, undef, "to_ascii\(\'\?ↄ\\u0664｡\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4635\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0C00}𝟵\x{200D}\x{FC9D}.\x{200D}\x{0750}⒈", %p)}, undef, "to_ascii\(\'\\u0C00𝟵\\u200D\\uFC9D\.\\u200D\\u0750⒈\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4637\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0C00}9\x{200D}\x{0628}\x{062D}.\x{200D}\x{0750}1.", %p)}, undef, "to_ascii\(\'\\u0C009\\u200D\\u0628\\u062D\.\\u200D\\u07501\.\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:4639\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{AAF6}。嬶ß葽", %p)}, undef, "to_ascii\(\'\\uAAF6\。嬶ß葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4640\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{AAF6}。嬶SS葽", %p)}, undef, "to_ascii\(\'\\uAAF6\。嬶SS葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4641\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{AAF6}。嬶ss葽", %p)}, undef, "to_ascii\(\'\\uAAF6\。嬶ss葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4642\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{AAF6}。嬶Ss葽", %p)}, undef, "to_ascii\(\'\\uAAF6\。嬶Ss葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4643\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𑚶⒈。񞻡𐹺", %p)}, undef, "to_ascii\(\'𑚶⒈\。\?𐹺\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4644\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑚶1.。񞻡𐹺", %p)}, undef, "to_ascii\(\'𑚶1\.\。\?𐹺\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:4645\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑜤︒≮．񚕽\x{05D8}𞾩", %p)}, undef, "to_ascii\(\'𑜤︒\≮．\?\\u05D8\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4646\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑜤︒<\x{0338}．񚕽\x{05D8}𞾩", %p)}, undef, "to_ascii\(\'𑜤︒\<\\u0338．\?\\u05D8\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4647\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑜤。≮.񚕽\x{05D8}𞾩", %p)}, undef, "to_ascii\(\'𑜤\。\≮\.\?\\u05D8\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4648\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑜤。<\x{0338}.񚕽\x{05D8}𞾩", %p)}, undef, "to_ascii\(\'𑜤\。\<\\u0338\.\?\\u05D8\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4649\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠆋\x{0603}񏦤.⇁ς򏋈򺇥", %p)}, undef, "to_ascii\(\'\󠆋\\u0603\?\.\⇁ς\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4650\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠆋\x{0603}񏦤.⇁Σ򏋈򺇥", %p)}, undef, "to_ascii\(\'\󠆋\\u0603\?\.\⇁Σ\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4651\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠆋\x{0603}񏦤.⇁σ򏋈򺇥", %p)}, undef, "to_ascii\(\'\󠆋\\u0603\?\.\⇁σ\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4652\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς𑐽𵢈𑜫｡𞬩\x{200C}𐫄", %p)}, undef, "to_ascii\(\'ς\?\?𑜫｡\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4654\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς𑐽𵢈𑜫。𞬩\x{200C}𐫄", %p)}, undef, "to_ascii\(\'ς\?\?𑜫\。\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4656\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ𑐽𵢈𑜫。𞬩\x{200C}𐫄", %p)}, undef, "to_ascii\(\'Σ\?\?𑜫\。\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4658\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ𑐽𵢈𑜫。𞬩\x{200C}𐫄", %p)}, undef, "to_ascii\(\'σ\?\?𑜫\。\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4660\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ𑐽𵢈𑜫｡𞬩\x{200C}𐫄", %p)}, undef, "to_ascii\(\'Σ\?\?𑜫｡\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4662\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ𑐽𵢈𑜫｡𞬩\x{200C}𐫄", %p)}, undef, "to_ascii\(\'σ\?\?𑜫｡\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4664\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-򵏽｡-\x{FC4C}\x{075B}", %p)}, undef, "to_ascii\(\'\-\?｡\-\\uFC4C\\u075B\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4665\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-򵏽。-\x{0646}\x{062D}\x{075B}", %p)}, undef, "to_ascii\(\'\-\?\。\-\\u0646\\u062D\\u075B\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4666\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⺢򇺅𝟤｡\x{200D}🚷", %p)}, undef, "to_ascii\(\'⺢\?𝟤｡\\u200D🚷\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4668\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⺢򇺅2。\x{200D}🚷", %p)}, undef, "to_ascii\(\'⺢\?2\。\\u200D🚷\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4670\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0CF8}\x{200D}\x{2DFE}𐹲｡򤐶", %p)}, undef, "to_ascii\(\'\\u0CF8\\u200D\\u2DFE𐹲｡\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4672\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0CF8}\x{200D}\x{2DFE}𐹲。򤐶", %p)}, undef, "to_ascii\(\'\\u0CF8\\u200D\\u2DFE𐹲\。\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4674\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹢．Ⴍ₉⁸", %p)}, undef, "to_ascii\(\'𐹢．Ⴍ₉⁸\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4675\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹢.Ⴍ98", %p)}, undef, "to_ascii\(\'𐹢\.Ⴍ98\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4676\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹢.ⴍ98", %p)}, undef, "to_ascii\(\'𐹢\.ⴍ98\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4677\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹢．ⴍ₉⁸", %p)}, undef, "to_ascii\(\'𐹢．ⴍ₉⁸\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4678\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{200C}\x{034F}｡ß\x{08E2}⒚≯", %p)}, undef, "to_ascii\(\'\\u200C\\u034F｡ß\\u08E2⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4680\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}｡ß\x{08E2}⒚>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u034F｡ß\\u08E2⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4682\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}。ß\x{08E2}19.≯", %p)}, undef, "to_ascii\(\'\\u200C\\u034F\。ß\\u08E219\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4684\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}。ß\x{08E2}19.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u034F\。ß\\u08E219\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4686\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}。SS\x{08E2}19.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u034F\。SS\\u08E219\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4688\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}。SS\x{08E2}19.≯", %p)}, undef, "to_ascii\(\'\\u200C\\u034F\。SS\\u08E219\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4690\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}。ss\x{08E2}19.≯", %p)}, undef, "to_ascii\(\'\\u200C\\u034F\。ss\\u08E219\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4692\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}。ss\x{08E2}19.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u034F\。ss\\u08E219\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4694\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}。Ss\x{08E2}19.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u034F\。Ss\\u08E219\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4696\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}。Ss\x{08E2}19.≯", %p)}, undef, "to_ascii\(\'\\u200C\\u034F\。Ss\\u08E219\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4698\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}｡SS\x{08E2}⒚>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u034F｡SS\\u08E2⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4700\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}｡SS\x{08E2}⒚≯", %p)}, undef, "to_ascii\(\'\\u200C\\u034F｡SS\\u08E2⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4702\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}｡ss\x{08E2}⒚≯", %p)}, undef, "to_ascii\(\'\\u200C\\u034F｡ss\\u08E2⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4704\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}｡ss\x{08E2}⒚>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u034F｡ss\\u08E2⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4706\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}｡Ss\x{08E2}⒚>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u034F｡Ss\\u08E2⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4708\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}\x{034F}｡Ss\x{08E2}⒚≯", %p)}, undef, "to_ascii\(\'\\u200C\\u034F｡Ss\\u08E2⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4710\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𞥍ᡌ．𣃔", %p)}, undef, "to_ascii\(\'\\u200C\?ᡌ．𣃔\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4712\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𞥍ᡌ.𣃔", %p)}, undef, "to_ascii\(\'\\u200C\?ᡌ\.𣃔\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4714\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07D0}򜬝-񡢬。\x{0FA0}Ⴛ𞷏𝆬", %p)}, undef, "to_ascii\(\'\\u07D0\?\-\?\。\\u0FA0Ⴛ\?𝆬\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4715\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{07D0}򜬝-񡢬。\x{0FA0}ⴛ𞷏𝆬", %p)}, undef, "to_ascii\(\'\\u07D0\?\-\?\。\\u0FA0ⴛ\?𝆬\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4716\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𝨥。⫟𑈾", %p)}, undef, "to_ascii\(\'𝨥\。\⫟\?\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4717\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("⾛\x{0753}.Ⴕ𞠬\x{0604}\x{200D}", %p)}, undef, "to_ascii\(\'⾛\\u0753\.Ⴕ𞠬\\u0604\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4719\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("走\x{0753}.Ⴕ𞠬\x{0604}\x{200D}", %p)}, undef, "to_ascii\(\'走\\u0753\.Ⴕ𞠬\\u0604\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4721\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("走\x{0753}.ⴕ𞠬\x{0604}\x{200D}", %p)}, undef, "to_ascii\(\'走\\u0753\.ⴕ𞠬\\u0604\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4723\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⾛\x{0753}.ⴕ𞠬\x{0604}\x{200D}", %p)}, undef, "to_ascii\(\'⾛\\u0753\.ⴕ𞠬\\u0604\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4725\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-ᢗ\x{200C}🄄.𑜢", %p)}, undef, "to_ascii\(\'\-ᢗ\\u200C🄄\.𑜢\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:4727\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-ᢗ\x{200C}3,.𑜢", %p)}, undef, "to_ascii\(\'\-ᢗ\\u200C3\,\.𑜢\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:4729\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠𐸁𹏁\x{200C}.Ⴚ򳄠", %p)}, undef, "to_ascii\(\'\≠\?\?\\u200C\.Ⴚ\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4731\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}𐸁𹏁\x{200C}.Ⴚ򳄠", %p)}, undef, "to_ascii\(\'\=\\u0338\?\?\\u200C\.Ⴚ\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4733\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}𐸁𹏁\x{200C}.ⴚ򳄠", %p)}, undef, "to_ascii\(\'\=\\u0338\?\?\\u200C\.ⴚ\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4735\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≠𐸁𹏁\x{200C}.ⴚ򳄠", %p)}, undef, "to_ascii\(\'\≠\?\?\\u200C\.ⴚ\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4737\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("\x{0669}｡󠇀𑇊", %p)}, undef, "to_ascii\(\'\\u0669｡\󠇀𑇊\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4738\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("\x{0669}。󠇀𑇊", %p)}, undef, "to_ascii\(\'\\u0669\。\󠇀𑇊\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4739\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{1086}𞶀≯⒍。-", %p)}, undef, "to_ascii\(\'\\u1086\?\≯⒍\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4740\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1086}𞶀>\x{0338}⒍。-", %p)}, undef, "to_ascii\(\'\\u1086\?\>\\u0338⒍\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4741\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1086}𞶀≯6.。-", %p)}, undef, "to_ascii\(\'\\u1086\?\≯6\.\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ A4_2\ \[data\/IdnaTest\.txt\:4742\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1086}𞶀>\x{0338}6.。-", %p)}, undef, "to_ascii\(\'\\u1086\?\>\\u03386\.\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ A4_2\ \[data\/IdnaTest\.txt\:4743\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17B4}.쮇-", %p)}, undef, "to_ascii\(\'\\u17B4\.쮇\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4744\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{17B4}.쮇-", %p)}, undef, "to_ascii\(\'\\u17B4\.쮇\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4745\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𑓂。⒈-􀪛", %p)}, undef, "to_ascii\(\'\\u200C𑓂\。⒈\-\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4747\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200C}𑓂。1.-􀪛", %p)}, undef, "to_ascii\(\'\\u200C𑓂\。1\.\-\?\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4749\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒈\x{FEAE}\x{200C}。\x{20E9}🖞\x{200C}𖬴", %p)}, undef, "to_ascii\(\'⒈\\uFEAE\\u200C\。\\u20E9🖞\\u200C𖬴\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4751\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("1.\x{0631}\x{200C}。\x{20E9}🖞\x{200C}𖬴", %p)}, undef, "to_ascii\(\'1\.\\u0631\\u200C\。\\u20E9🖞\\u200C𖬴\'\)\ throws\ error\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:4753\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󌭇｡𝟐\x{1BA8}\x{07D4}", %p)}, undef, "to_ascii\(\'\?｡𝟐\\u1BA8\\u07D4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4754\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󌭇。2\x{1BA8}\x{07D4}", %p)}, undef, "to_ascii\(\'\?\。2\\u1BA8\\u07D4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4755\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FD8F}򫳺.ς\x{200D}𐹷", %p)}, undef, "to_ascii\(\'\\uFD8F\?\.ς\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4757\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0645}\x{062E}\x{0645}򫳺.ς\x{200D}𐹷", %p)}, undef, "to_ascii\(\'\\u0645\\u062E\\u0645\?\.ς\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4759\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0645}\x{062E}\x{0645}򫳺.Σ\x{200D}𐹷", %p)}, undef, "to_ascii\(\'\\u0645\\u062E\\u0645\?\.Σ\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4761\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0645}\x{062E}\x{0645}򫳺.σ\x{200D}𐹷", %p)}, undef, "to_ascii\(\'\\u0645\\u062E\\u0645\?\.σ\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4763\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FD8F}򫳺.Σ\x{200D}𐹷", %p)}, undef, "to_ascii\(\'\\uFD8F\?\.Σ\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4765\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FD8F}򫳺.σ\x{200D}𐹷", %p)}, undef, "to_ascii\(\'\\uFD8F\?\.σ\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4767\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("⒎\x{06C1}\x{0605}｡\x{AAF6}۵𐇽", %p)}, undef, "to_ascii\(\'⒎\\u06C1\\u0605｡\\uAAF6۵𐇽\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4768\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("7.\x{06C1}\x{0605}。\x{AAF6}۵𐇽", %p)}, undef, "to_ascii\(\'7\.\\u06C1\\u0605\。\\uAAF6۵𐇽\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4769\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-ᡥ᠆󍲭。\x{0605}\x{1A5D}𐹡", %p)}, undef, "to_ascii\(\'\-ᡥ᠆\?\。\\u0605\\u1A5D𐹡\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4770\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}.\x{06BD}\x{0663}\x{0596}", %p)}, undef, "to_ascii\(\'\\u200D\.\\u06BD\\u0663\\u0596\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4772\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--hcb32bni", %p)}, "xn--hcb32bni", "to_ascii\(\'xn\-\-hcb32bni\'\)\ \[data\/IdnaTest\.txt\:4773\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06BD}\x{0663}\x{0596}", %p)}, "xn--hcb32bni", "to_ascii\(\'\\u06BD\\u0663\\u0596\'\)\ \[data\/IdnaTest\.txt\:4774\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㒧۱.Ⴚ\x{0678}\x{200D}", %p)}, undef, "to_ascii\(\'㒧۱\.Ⴚ\\u0678\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4776\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("㒧۱.Ⴚ\x{064A}\x{0674}\x{200D}", %p)}, undef, "to_ascii\(\'㒧۱\.Ⴚ\\u064A\\u0674\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4778\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("㒧۱.ⴚ\x{064A}\x{0674}\x{200D}", %p)}, undef, "to_ascii\(\'㒧۱\.ⴚ\\u064A\\u0674\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4780\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("㒧۱.ⴚ\x{0678}\x{200D}", %p)}, undef, "to_ascii\(\'㒧۱\.ⴚ\\u0678\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4782\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0F94}ꡋ-．-𖬴", %p)}, undef, "to_ascii\(\'\\u0F94ꡋ\-．\-𖬴\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4783\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0F94}ꡋ-.-𖬴", %p)}, undef, "to_ascii\(\'\\u0F94ꡋ\-\.\-𖬴\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4784\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񿒳-⋢\x{200C}．标-", %p)}, undef, "to_ascii\(\'\?\-\⋢\\u200C．标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4786\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񿒳-⊑\x{0338}\x{200C}．标-", %p)}, undef, "to_ascii\(\'\?\-\⊑\\u0338\\u200C．标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4788\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񿒳-⋢\x{200C}.标-", %p)}, undef, "to_ascii\(\'\?\-\⋢\\u200C\.标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4790\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񿒳-⊑\x{0338}\x{200C}.标-", %p)}, undef, "to_ascii\(\'\?\-\⊑\\u0338\\u200C\.标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4792\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{0671}．ς\x{07DC}", %p)}, undef, "to_ascii\(\'\\u0671．ς\\u07DC\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4793\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{0671}.ς\x{07DC}", %p)}, undef, "to_ascii\(\'\\u0671\.ς\\u07DC\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4794\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{0671}.Σ\x{07DC}", %p)}, undef, "to_ascii\(\'\\u0671\.Σ\\u07DC\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4795\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{0671}.σ\x{07DC}", %p)}, undef, "to_ascii\(\'\\u0671\.σ\\u07DC\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4796\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{0671}．Σ\x{07DC}", %p)}, undef, "to_ascii\(\'\\u0671．Σ\\u07DC\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4797\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{0671}．σ\x{07DC}", %p)}, undef, "to_ascii\(\'\\u0671．σ\\u07DC\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4798\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񼈶\x{0605}．\x{08C1}\x{200D}𑑂𱼱", %p)}, undef, "to_ascii\(\'\?\\u0605．\\u08C1\\u200D\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4800\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񼈶\x{0605}.\x{08C1}\x{200D}𑑂𱼱", %p)}, undef, "to_ascii\(\'\?\\u0605\.\\u08C1\\u200D\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4802\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹾𐋩𞵜｡\x{1BF2}", %p)}, undef, "to_ascii\(\'𐹾𐋩\?｡\\u1BF2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4803\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹾𐋩𞵜。\x{1BF2}", %p)}, undef, "to_ascii\(\'𐹾𐋩\?\。\\u1BF2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4804\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("6\x{1160}\x{1C33}󠸧.򟜊锰\x{072C}ς", %p)}, undef, "to_ascii\(\'6\\u1160\\u1C33\?\.\?锰\\u072Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4805\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("6\x{1160}\x{1C33}󠸧.򟜊锰\x{072C}Σ", %p)}, undef, "to_ascii\(\'6\\u1160\\u1C33\?\.\?锰\\u072CΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4806\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("6\x{1160}\x{1C33}󠸧.򟜊锰\x{072C}σ", %p)}, undef, "to_ascii\(\'6\\u1160\\u1C33\?\.\?锰\\u072Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4807\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06B3}\x{FE04}񅎦𝟽｡𐹽", %p)}, undef, "to_ascii\(\'\\u06B3\\uFE04\?𝟽｡𐹽\'\)\ throws\ error\ P1\ V6\ B2\ B1\ \[data\/IdnaTest\.txt\:4808\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{06B3}\x{FE04}񅎦7。𐹽", %p)}, undef, "to_ascii\(\'\\u06B3\\uFE04\?7\。𐹽\'\)\ throws\ error\ P1\ V6\ B2\ B1\ \[data\/IdnaTest\.txt\:4809\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞮧．\x{200C}⫞", %p)}, undef, "to_ascii\(\'\?．\\u200C\⫞\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4811\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𞮧.\x{200C}⫞", %p)}, undef, "to_ascii\(\'\?\.\\u200C\⫞\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4813\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-񕉴.\x{06E0}ᢚ-", %p)}, undef, "to_ascii\(\'\-\?\.\\u06E0ᢚ\-\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4814\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("⌁\x{200D}𑄴．\x{200C}𝟩\x{066C}", %p)}, undef, "to_ascii\(\'\⌁\\u200D𑄴．\\u200C𝟩\\u066C\'\)\ throws\ error\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:4816\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("⌁\x{200D}𑄴.\x{200C}7\x{066C}", %p)}, undef, "to_ascii\(\'\⌁\\u200D𑄴\.\\u200C7\\u066C\'\)\ throws\ error\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:4818\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("︒\x{FD05}\x{0E37}\x{FEFC}。岓\x{1BF2}󠾃ᡂ", %p)}, undef, "to_ascii\(\'︒\\uFD05\\u0E37\\uFEFC\。岓\\u1BF2\?ᡂ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4819\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("。\x{0635}\x{0649}\x{0E37}\x{0644}\x{0627}。岓\x{1BF2}󠾃ᡂ", %p)}, undef, "to_ascii\(\'\。\\u0635\\u0649\\u0E37\\u0644\\u0627\。岓\\u1BF2\?ᡂ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4820\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("𐹨。8𑁆", %p)}, undef, "to_ascii\(\'𐹨\。8𑁆\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4821\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞀕\x{0D43}．ꡚ\x{08FA}𐹰\x{0D44}", %p)}, undef, "to_ascii\(\'\?\\u0D43．ꡚ\\u08FA𐹰\\u0D44\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4822\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𞀕\x{0D43}.ꡚ\x{08FA}𐹰\x{0D44}", %p)}, undef, "to_ascii\(\'\?\\u0D43\.ꡚ\\u08FA𐹰\\u0D44\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4823\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󆩏𐦹\x{0303}｡󠍅", %p)}, undef, "to_ascii\(\'\?\?\\u0303｡\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4824\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󆩏𐦹\x{0303}。󠍅", %p)}, undef, "to_ascii\(\'\?\?\\u0303\。\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4825\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("ᢌ．-\x{085A}", %p)}, undef, "to_ascii\(\'ᢌ．\-\\u085A\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4826\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("ᢌ.-\x{085A}", %p)}, undef, "to_ascii\(\'ᢌ\.\-\\u085A\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4827\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𥛛𑘶｡𐹬𐲸\x{0BCD}", %p)}, undef, "to_ascii\(\'𥛛𑘶｡𐹬\?\\u0BCD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4828\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𥛛𑘶。𐹬𐲸\x{0BCD}", %p)}, undef, "to_ascii\(\'𥛛𑘶\。𐹬\?\\u0BCD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4829\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴐ\x{077F}．\x{200C}", %p)}, undef, "to_ascii\(\'Ⴐ\\u077F．\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4831\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴐ\x{077F}.\x{200C}", %p)}, undef, "to_ascii\(\'Ⴐ\\u077F\.\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4833\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ⴐ\x{077F}.\x{200C}", %p)}, undef, "to_ascii\(\'ⴐ\\u077F\.\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4835\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ⴐ\x{077F}．\x{200C}", %p)}, undef, "to_ascii\(\'ⴐ\\u077F．\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4837\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("🄅𑲞-⒈。\x{200D}ᠩ\x{06A5}", %p)}, undef, "to_ascii\(\'🄅\?\-⒈\。\\u200Dᠩ\\u06A5\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4839\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("4,𑲞-1.。\x{200D}ᠩ\x{06A5}", %p)}, undef, "to_ascii\(\'4\,\?\-1\.\。\\u200Dᠩ\\u06A5\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ C2\ \[data\/IdnaTest\.txt\:4841\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񗀤。𞤪򮿋", %p)}, undef, "to_ascii\(\'\?\。\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4842\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("\x{05C1}۲｡𐮊\x{066C}𝨊鄨", %p)}, undef, "to_ascii\(\'\\u05C1۲｡𐮊\\u066C𝨊鄨\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:4843\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("\x{05C1}۲。𐮊\x{066C}𝨊鄨", %p)}, undef, "to_ascii\(\'\\u05C1۲\。𐮊\\u066C𝨊鄨\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:4844\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𞭳-ꡁ。\x{1A69}\x{0BCD}-", %p)}, undef, "to_ascii\(\'\?\-ꡁ\。\\u1A69\\u0BCD\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:4845\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1039}-𚮭🞢．ß", %p)}, undef, "to_ascii\(\'\\u1039\-\?🞢．ß\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4846\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1039}-𚮭🞢.ß", %p)}, undef, "to_ascii\(\'\\u1039\-\?🞢\.ß\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4847\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1039}-𚮭🞢.SS", %p)}, undef, "to_ascii\(\'\\u1039\-\?🞢\.SS\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4848\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1039}-𚮭🞢．SS", %p)}, undef, "to_ascii\(\'\\u1039\-\?🞢．SS\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4849\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{FCF2}-\x{200C}｡Ⴟ\x{200C}␣", %p)}, undef, "to_ascii\(\'\\uFCF2\-\\u200C｡Ⴟ\\u200C\␣\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4851\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0640}\x{064E}\x{0651}-\x{200C}。Ⴟ\x{200C}␣", %p)}, undef, "to_ascii\(\'\\u0640\\u064E\\u0651\-\\u200C\。Ⴟ\\u200C\␣\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4853\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0640}\x{064E}\x{0651}-\x{200C}。ⴟ\x{200C}␣", %p)}, undef, "to_ascii\(\'\\u0640\\u064E\\u0651\-\\u200C\。ⴟ\\u200C\␣\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:4855\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{FCF2}-\x{200C}｡ⴟ\x{200C}␣", %p)}, undef, "to_ascii\(\'\\uFCF2\-\\u200C｡ⴟ\\u200C\␣\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:4857\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0D4D}-\x{200D}\x{200C}｡񥞧₅≠", %p)}, undef, "to_ascii\(\'\\u0D4D\-\\u200D\\u200C｡\?₅\≠\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4859\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0D4D}-\x{200D}\x{200C}｡񥞧₅=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0D4D\-\\u200D\\u200C｡\?₅\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4861\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0D4D}-\x{200D}\x{200C}。񥞧5≠", %p)}, undef, "to_ascii\(\'\\u0D4D\-\\u200D\\u200C\。\?5\≠\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4863\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0D4D}-\x{200D}\x{200C}。񥞧5=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0D4D\-\\u200D\\u200C\。\?5\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4865\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("锣。\x{0A4D}󠘻󠚆", %p)}, undef, "to_ascii\(\'锣\。\\u0A4D\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4866\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{063D}𑈾．\x{0649}\x{200D}\x{A92B}", %p)}, undef, "to_ascii\(\'\\u063D\?．\\u0649\\u200D\\uA92B\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:4868\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{063D}𑈾.\x{0649}\x{200D}\x{A92B}", %p)}, undef, "to_ascii\(\'\\u063D\?\.\\u0649\\u200D\\uA92B\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:4870\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("xn--8gb2338k.xn--lhb0154f", %p)}, "xn--8gb2338k.xn--lhb0154f", "to_ascii\(\'xn\-\-8gb2338k\.xn\-\-lhb0154f\'\)\ \[data\/IdnaTest\.txt\:4871\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{063D}𑈾.\x{0649}\x{A92B}", %p)}, "xn--8gb2338k.xn--lhb0154f", "to_ascii\(\'\\u063D\?\.\\u0649\\uA92B\'\)\ \[data\/IdnaTest\.txt\:4872\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("\x{0666}⁴Ⴅ．\x{08BD}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0666⁴Ⴅ．\\u08BD\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4874\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0666}4Ⴅ.\x{08BD}\x{200C}", %p)}, undef, "to_ascii\(\'\\u06664Ⴅ\.\\u08BD\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4876\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{0666}4ⴅ.\x{08BD}\x{200C}", %p)}, undef, "to_ascii\(\'\\u06664ⴅ\.\\u08BD\\u200C\'\)\ throws\ error\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4878\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("\x{0666}⁴ⴅ．\x{08BD}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0666⁴ⴅ．\\u08BD\\u200C\'\)\ throws\ error\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4880\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ჁႱ6\x{0318}。ß\x{1B03}", %p)}, undef, "to_ascii\(\'ჁႱ6\\u0318\。ß\\u1B03\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4881\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ⴡⴑ6\x{0318}。ß\x{1B03}", %p)}, "xn--6-8cb7433a2ba.xn--zca894k", "to_ascii\(\'ⴡⴑ6\\u0318\。ß\\u1B03\'\)\ \[data\/IdnaTest\.txt\:4883\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ჁႱ6\x{0318}。SS\x{1B03}", %p)}, undef, "to_ascii\(\'ჁႱ6\\u0318\。SS\\u1B03\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4884\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ⴡⴑ6\x{0318}。ss\x{1B03}", %p)}, "xn--6-8cb7433a2ba.xn--ss-2vq", "to_ascii\(\'ⴡⴑ6\\u0318\。ss\\u1B03\'\)\ \[data\/IdnaTest\.txt\:4885\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴡⴑ6\x{0318}。Ss\x{1B03}", %p)}, undef, "to_ascii\(\'Ⴡⴑ6\\u0318\。Ss\\u1B03\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4886\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("xn--6-8cb7433a2ba.xn--ss-2vq", %p)}, "xn--6-8cb7433a2ba.xn--ss-2vq", "to_ascii\(\'xn\-\-6\-8cb7433a2ba\.xn\-\-ss\-2vq\'\)\ \[data\/IdnaTest\.txt\:4887\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ⴡⴑ6\x{0318}.ss\x{1B03}", %p)}, "xn--6-8cb7433a2ba.xn--ss-2vq", "to_ascii\(\'ⴡⴑ6\\u0318\.ss\\u1B03\'\)\ \[data\/IdnaTest\.txt\:4888\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("ჁႱ6\x{0318}.SS\x{1B03}", %p)}, undef, "to_ascii\(\'ჁႱ6\\u0318\.SS\\u1B03\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4889\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴡⴑ6\x{0318}.Ss\x{1B03}", %p)}, undef, "to_ascii\(\'Ⴡⴑ6\\u0318\.Ss\\u1B03\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4890\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("xn--6-8cb7433a2ba.xn--zca894k", %p)}, "xn--6-8cb7433a2ba.xn--zca894k", "to_ascii\(\'xn\-\-6\-8cb7433a2ba\.xn\-\-zca894k\'\)\ \[data\/IdnaTest\.txt\:4891\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("ⴡⴑ6\x{0318}.ß\x{1B03}", %p)}, "xn--6-8cb7433a2ba.xn--zca894k", "to_ascii\(\'ⴡⴑ6\\u0318\.ß\\u1B03\'\)\ \[data\/IdnaTest\.txt\:4893\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("򋡐｡≯𑋪", %p)}, undef, "to_ascii\(\'\?｡\≯𑋪\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4894\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򋡐｡>\x{0338}𑋪", %p)}, undef, "to_ascii\(\'\?｡\>\\u0338𑋪\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4895\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򋡐。≯𑋪", %p)}, undef, "to_ascii\(\'\?\。\≯𑋪\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4896\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򋡐。>\x{0338}𑋪", %p)}, undef, "to_ascii\(\'\?\。\>\\u0338𑋪\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4897\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{065A}۲。\x{200C}-\x{1BF3}\x{08E2}", %p)}, undef, "to_ascii\(\'\\u065A۲\。\\u200C\-\\u1BF3\\u08E2\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4899\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄏𖬴󠲽｡\x{FFA0}", %p)}, undef, "to_ascii\(\'\󠄏𖬴\?｡\\uFFA0\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4900\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠄏𖬴󠲽。\x{1160}", %p)}, undef, "to_ascii\(\'\󠄏𖬴\?\。\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4901\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß⒈\x{0760}\x{D7AE}．􉖲󠅄\x{0605}򉔯", %p)}, undef, "to_ascii\(\'ß⒈\\u0760\\uD7AE．\?\󠅄\\u0605\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4902\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ß1.\x{0760}\x{D7AE}.􉖲󠅄\x{0605}򉔯", %p)}, undef, "to_ascii\(\'ß1\.\\u0760\\uD7AE\.\?\󠅄\\u0605\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:4903\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS1.\x{0760}\x{D7AE}.􉖲󠅄\x{0605}򉔯", %p)}, undef, "to_ascii\(\'SS1\.\\u0760\\uD7AE\.\?\󠅄\\u0605\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:4904\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("SS⒈\x{0760}\x{D7AE}．􉖲󠅄\x{0605}򉔯", %p)}, undef, "to_ascii\(\'SS⒈\\u0760\\uD7AE．\?\󠅄\\u0605\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4905\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ss⒈\x{0760}\x{D7AE}．􉖲󠅄\x{0605}򉔯", %p)}, undef, "to_ascii\(\'ss⒈\\u0760\\uD7AE．\?\󠅄\\u0605\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4906\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ss⒈\x{0760}\x{D7AE}．􉖲󠅄\x{0605}򉔯", %p)}, undef, "to_ascii\(\'Ss⒈\\u0760\\uD7AE．\?\󠅄\\u0605\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4907\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠭔.𐋱₂", %p)}, undef, "to_ascii\(\'\?\.𐋱₂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4908\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠭔.𐋱2", %p)}, undef, "to_ascii\(\'\?\.𐋱2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4909\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0716}\x{0947}。-ß\x{06A5}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0716\\u0947\。\-ß\\u06A5\\u200C\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:4911\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0716}\x{0947}。-SS\x{06A5}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0716\\u0947\。\-SS\\u06A5\\u200C\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:4913\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0716}\x{0947}。-ss\x{06A5}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0716\\u0947\。\-ss\\u06A5\\u200C\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:4915\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{0716}\x{0947}。-Ss\x{06A5}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0716\\u0947\。\-Ss\\u06A5\\u200C\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:4917\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BA9}\x{200D}\x{062A}񡚈．\x{1CD5}䷉Ⴡ", %p)}, undef, "to_ascii\(\'\\u1BA9\\u200D\\u062A\?．\\u1CD5䷉Ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4919\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BA9}\x{200D}\x{062A}񡚈.\x{1CD5}䷉Ⴡ", %p)}, undef, "to_ascii\(\'\\u1BA9\\u200D\\u062A\?\.\\u1CD5䷉Ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4921\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BA9}\x{200D}\x{062A}񡚈.\x{1CD5}䷉ⴡ", %p)}, undef, "to_ascii\(\'\\u1BA9\\u200D\\u062A\?\.\\u1CD5䷉ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4923\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BA9}\x{200D}\x{062A}񡚈．\x{1CD5}䷉ⴡ", %p)}, undef, "to_ascii\(\'\\u1BA9\\u200D\\u062A\?．\\u1CD5䷉ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4925\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2DBF}.ß\x{200D}", %p)}, undef, "to_ascii\(\'\\u2DBF\.ß\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4927\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2DBF}.SS\x{200D}", %p)}, undef, "to_ascii\(\'\\u2DBF\.SS\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4929\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2DBF}.ss\x{200D}", %p)}, undef, "to_ascii\(\'\\u2DBF\.ss\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4931\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{2DBF}.Ss\x{200D}", %p)}, undef, "to_ascii\(\'\\u2DBF\.Ss\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4933\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}︒.\x{062A}≯ꡂ", %p)}, undef, "to_ascii\(\'\\u1BF3︒\.\\u062A\≯ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4934\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}︒.\x{062A}>\x{0338}ꡂ", %p)}, undef, "to_ascii\(\'\\u1BF3︒\.\\u062A\>\\u0338ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4935\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}。.\x{062A}≯ꡂ", %p)}, undef, "to_ascii\(\'\\u1BF3\。\.\\u062A\≯ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B2\ B3\ \[data\/IdnaTest\.txt\:4936\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{1BF3}。.\x{062A}>\x{0338}ꡂ", %p)}, undef, "to_ascii\(\'\\u1BF3\。\.\\u062A\>\\u0338ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B2\ B3\ \[data\/IdnaTest\.txt\:4937\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮≠񏻃｡-𫠆\x{06B7}𐹪", %p)}, undef, "to_ascii\(\'\≮\≠\?｡\-𫠆\\u06B7𐹪\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4938\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}=\x{0338}񏻃｡-𫠆\x{06B7}𐹪", %p)}, undef, "to_ascii\(\'\<\\u0338\=\\u0338\?｡\-𫠆\\u06B7𐹪\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4939\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮≠񏻃。-𫠆\x{06B7}𐹪", %p)}, undef, "to_ascii\(\'\≮\≠\?\。\-𫠆\\u06B7𐹪\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4940\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}=\x{0338}񏻃。-𫠆\x{06B7}𐹪", %p)}, undef, "to_ascii\(\'\<\\u0338\=\\u0338\?\。\-𫠆\\u06B7𐹪\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4941\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹡\x{0777}。ꡂ", %p)}, undef, "to_ascii\(\'𐹡\\u0777\。ꡂ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4942\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("Ⴉ𝆅񔻅\x{0619}.ß𐧦𐹳\x{0775}", %p)}, undef, "to_ascii\(\'Ⴉ𝆅\?\\u0619\.ß𐧦𐹳\\u0775\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4943\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴉ𝆅񔻅\x{0619}.ß𐧦𐹳\x{0775}", %p)}, undef, "to_ascii\(\'ⴉ𝆅\?\\u0619\.ß𐧦𐹳\\u0775\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4944\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴉ𝆅񔻅\x{0619}.SS𐧦𐹳\x{0775}", %p)}, undef, "to_ascii\(\'Ⴉ𝆅\?\\u0619\.SS𐧦𐹳\\u0775\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4945\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ⴉ𝆅񔻅\x{0619}.ss𐧦𐹳\x{0775}", %p)}, undef, "to_ascii\(\'ⴉ𝆅\?\\u0619\.ss𐧦𐹳\\u0775\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4946\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Ⴉ𝆅񔻅\x{0619}.Ss𐧦𐹳\x{0775}", %p)}, undef, "to_ascii\(\'Ⴉ𝆅\?\\u0619\.Ss𐧦𐹳\\u0775\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4947\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}\x{0643}𐧾↙.񊽡", %p)}, undef, "to_ascii\(\'\\u200D\\u0643𐧾\↙\.\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4949\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("梉。\x{200C}", %p)}, undef, "to_ascii\(\'梉\。\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4951\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("xn--7zv.", %p)}, "xn--7zv.", "to_ascii\(\'xn\-\-7zv\.\'\)\ \[data\/IdnaTest\.txt\:4952\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("梉.", %p)}, "xn--7zv.", "to_ascii\(\'梉\.\'\)\ \[data\/IdnaTest\.txt\:4953\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡣ-≠.\x{200D}𞤗𐅢Ↄ", %p)}, undef, "to_ascii\(\'ꡣ\-\≠\.\\u200D\?𐅢Ↄ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4955\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡣ-=\x{0338}.\x{200D}𞤗𐅢Ↄ", %p)}, undef, "to_ascii\(\'ꡣ\-\=\\u0338\.\\u200D\?𐅢Ↄ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4957\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡣ-=\x{0338}.\x{200D}𞤗𐅢ↄ", %p)}, undef, "to_ascii\(\'ꡣ\-\=\\u0338\.\\u200D\?𐅢ↄ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4959\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ꡣ-≠.\x{200D}𞤗𐅢ↄ", %p)}, undef, "to_ascii\(\'ꡣ\-\≠\.\\u200D\?𐅢ↄ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4961\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς⒐𝆫⸵｡𐱢🄊𝟳", %p)}, undef, "to_ascii\(\'ς⒐𝆫\⸵｡\?🄊𝟳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4962\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς9.𝆫⸵。𐱢9,7", %p)}, undef, "to_ascii\(\'ς9\.𝆫\⸵\。\?9\,7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4963\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ9.𝆫⸵。𐱢9,7", %p)}, undef, "to_ascii\(\'Σ9\.𝆫\⸵\。\?9\,7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4964\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ9.𝆫⸵。𐱢9,7", %p)}, undef, "to_ascii\(\'σ9\.𝆫\⸵\。\?9\,7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4965\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ⒐𝆫⸵｡𐱢🄊𝟳", %p)}, undef, "to_ascii\(\'Σ⒐𝆫\⸵｡\?🄊𝟳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4966\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ⒐𝆫⸵｡𐱢🄊𝟳", %p)}, undef, "to_ascii\(\'σ⒐𝆫\⸵｡\?🄊𝟳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4967\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{0853}．\x{200C}ß", %p)}, undef, "to_ascii\(\'\\u0853．\\u200Cß\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4969\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{0853}.\x{200C}ß", %p)}, undef, "to_ascii\(\'\\u0853\.\\u200Cß\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4971\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{0853}.\x{200C}SS", %p)}, undef, "to_ascii\(\'\\u0853\.\\u200CSS\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4973\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{0853}.\x{200C}ss", %p)}, undef, "to_ascii\(\'\\u0853\.\\u200Css\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4975\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{0853}.\x{200C}Ss", %p)}, undef, "to_ascii\(\'\\u0853\.\\u200CSs\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4977\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("xn--iwb.ss", %p)}, "xn--iwb.ss", "to_ascii\(\'xn\-\-iwb\.ss\'\)\ \[data\/IdnaTest\.txt\:4978\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{0853}.ss", %p)}, "xn--iwb.ss", "to_ascii\(\'\\u0853\.ss\'\)\ \[data\/IdnaTest\.txt\:4979\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{0853}．\x{200C}SS", %p)}, undef, "to_ascii\(\'\\u0853．\\u200CSS\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4981\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{0853}．\x{200C}ss", %p)}, undef, "to_ascii\(\'\\u0853．\\u200Css\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4983\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("\x{0853}．\x{200C}Ss", %p)}, undef, "to_ascii\(\'\\u0853．\\u200CSs\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4985\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("񯶣-.\x{200D}\x{074E}\x{A94D}󠻨", %p)}, undef, "to_ascii\(\'\?\-\.\\u200D\\u074E\\uA94D\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4987\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䃚蟥-。-񽒘⒈", %p)}, undef, "to_ascii\(\'䃚蟥\-\。\-\?⒈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4988\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("䃚蟥-。-񽒘1.", %p)}, undef, "to_ascii\(\'䃚蟥\-\。\-\?1\.\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4989\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹸䚵-ꡡ。⺇", %p)}, undef, "to_ascii\(\'𐹸䚵\-ꡡ\。⺇\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4990\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𑄳。\x{1ADC}𐹻", %p)}, undef, "to_ascii\(\'𑄳\。\\u1ADC𐹻\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4991\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮𐹻.⒎𑂵\x{06BA}\x{0602}", %p)}, undef, "to_ascii\(\'\≮𐹻\.⒎𑂵\\u06BA\\u0602\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4992\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𐹻.⒎𑂵\x{06BA}\x{0602}", %p)}, undef, "to_ascii\(\'\<\\u0338𐹻\.⒎𑂵\\u06BA\\u0602\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4993\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("≮𐹻.7.𑂵\x{06BA}\x{0602}", %p)}, undef, "to_ascii\(\'\≮𐹻\.7\.𑂵\\u06BA\\u0602\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4994\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("<\x{0338}𐹻.7.𑂵\x{06BA}\x{0602}", %p)}, undef, "to_ascii\(\'\<\\u0338𐹻\.7\.𑂵\\u06BA\\u0602\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4995\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢔ≠􋉂.\x{200D}𐋢", %p)}, undef, "to_ascii\(\'ᢔ\≠\?\.\\u200D𐋢\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4997\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ᢔ=\x{0338}􋉂.\x{200D}𐋢", %p)}, undef, "to_ascii\(\'ᢔ\=\\u0338\?\.\\u200D𐋢\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4999\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐩁≮񣊛≯．\x{066C}𞵕⳿", %p)}, undef, "to_ascii\(\'𐩁\≮\?\≯．\\u066C\?⳿\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:5000\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐩁<\x{0338}񣊛>\x{0338}．\x{066C}𞵕⳿", %p)}, undef, "to_ascii\(\'𐩁\<\\u0338\?\>\\u0338．\\u066C\?⳿\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:5001\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐩁≮񣊛≯.\x{066C}𞵕⳿", %p)}, undef, "to_ascii\(\'𐩁\≮\?\≯\.\\u066C\?⳿\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:5002\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐩁<\x{0338}񣊛>\x{0338}.\x{066C}𞵕⳿", %p)}, undef, "to_ascii\(\'𐩁\<\\u0338\?\>\\u0338\.\\u066C\?⳿\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:5003\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-｡⺐", %p)}, undef, "to_ascii\(\'\-｡⺐\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:5004\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-。⺐", %p)}, undef, "to_ascii\(\'\-\。⺐\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:5005\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠰩𑲬．\x{065C}", %p)}, undef, "to_ascii\(\'\?\?．\\u065C\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5006\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󠰩𑲬.\x{065C}", %p)}, undef, "to_ascii\(\'\?\?\.\\u065C\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5007\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐍺.񚇃\x{200C}", %p)}, undef, "to_ascii\(\'𐍺\.\?\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5009\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{063D}\x{06E3}.𐨎", %p)}, undef, "to_ascii\(\'\\u063D\\u06E3\.𐨎\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5010\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("漦Ⴙς.񡻀𐴄", %p)}, undef, "to_ascii\(\'漦Ⴙς\.\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5011\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("漦ⴙς.񡻀𐴄", %p)}, undef, "to_ascii\(\'漦ⴙς\.\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5012\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("漦ႹΣ.񡻀𐴄", %p)}, undef, "to_ascii\(\'漦ႹΣ\.\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5013\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("漦ⴙσ.񡻀𐴄", %p)}, undef, "to_ascii\(\'漦ⴙσ\.\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5014\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("漦Ⴙσ.񡻀𐴄", %p)}, undef, "to_ascii\(\'漦Ⴙσ\.\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5015\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹫踧\x{0CCD}򫚇.󜀃⒈𝨤", %p)}, undef, "to_ascii\(\'𐹫踧\\u0CCD\?\.\?⒈𝨤\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5016\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𐹫踧\x{0CCD}򫚇.󜀃1.𝨤", %p)}, undef, "to_ascii\(\'𐹫踧\\u0CCD\?\.\?1\.𝨤\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:5017\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}≮．󠟪𹫏-", %p)}, undef, "to_ascii\(\'\\u200D\≮．\?\?\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5019\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}<\x{0338}．󠟪𹫏-", %p)}, undef, "to_ascii\(\'\\u200D\<\\u0338．\?\?\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5021\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}≮.󠟪𹫏-", %p)}, undef, "to_ascii\(\'\\u200D\≮\.\?\?\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5023\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}<\x{0338}.󠟪𹫏-", %p)}, undef, "to_ascii\(\'\\u200D\<\\u0338\.\?\?\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5025\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}\x{200D}襔。Ⴜ5ꡮ񵝏", %p)}, undef, "to_ascii\(\'\\u200D\\u200D襔\。Ⴜ5ꡮ\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:5027\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{200D}\x{200D}襔。ⴜ5ꡮ񵝏", %p)}, undef, "to_ascii\(\'\\u200D\\u200D襔\。ⴜ5ꡮ\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:5029\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫜𑌼\x{200D}．婀", %p)}, undef, "to_ascii\(\'𐫜𑌼\\u200D．婀\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:5031\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫜𑌼\x{200D}.婀", %p)}, undef, "to_ascii\(\'𐫜𑌼\\u200D\.婀\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:5033\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--ix9c26l.xn--q0s", %p)}, "xn--ix9c26l.xn--q0s", "to_ascii\(\'xn\-\-ix9c26l\.xn\-\-q0s\'\)\ \[data\/IdnaTest\.txt\:5034\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫜𑌼.婀", %p)}, "xn--ix9c26l.xn--q0s", "to_ascii\(\'𐫜𑌼\.婀\'\)\ \[data\/IdnaTest\.txt\:5035\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("󠅽︒︒𐹯｡⬳\x{1A78}", %p)}, undef, "to_ascii\(\'\󠅽︒︒𐹯｡\⬳\\u1A78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5036\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("󠅽。。𐹯。⬳\x{1A78}", %p)}, undef, "to_ascii\(\'\󠅽\。\。𐹯\。\⬳\\u1A78\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:5037\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𝟖ß．󠄐-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'𝟖ß．\󠄐\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V3\ V6\ A3\ \[data\/IdnaTest\.txt\:5038\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8ß.󠄐-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'8ß\.\󠄐\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V3\ V6\ A3\ \[data\/IdnaTest\.txt\:5039\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8ß.󠄐-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'8ß\.\󠄐\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V3\ V6\ A3\ \[data\/IdnaTest\.txt\:5040\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8SS.󠄐-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'8SS\.\󠄐\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V3\ V6\ A3\ \[data\/IdnaTest\.txt\:5041\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("8ss.󠄐-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'8ss\.\󠄐\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V3\ V6\ A3\ \[data\/IdnaTest\.txt\:5042\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟖ß．󠄐-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'𝟖ß．\󠄐\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V3\ V6\ A3\ \[data\/IdnaTest\.txt\:5043\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟖SS．󠄐-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'𝟖SS．\󠄐\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V3\ V6\ A3\ \[data\/IdnaTest\.txt\:5044\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟖ss．󠄐-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'𝟖ss．\󠄐\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V3\ V6\ A3\ \[data\/IdnaTest\.txt\:5045\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝟖Ss．󠄐-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'𝟖Ss．\󠄐\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V3\ V6\ A3\ \[data\/IdnaTest\.txt\:5046\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{200D}󠋟.\x{200C}𐹣Ⴅ", %p)}, undef, "to_ascii\(\'\-\\u200D\?\.\\u200C𐹣Ⴅ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:5048\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("-\x{200D}󠋟.\x{200C}𐹣ⴅ", %p)}, undef, "to_ascii\(\'\-\\u200D\?\.\\u200C𐹣ⴅ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:5050\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9B9}\x{200D}큷𻶡｡₂", %p)}, undef, "to_ascii\(\'\\uA9B9\\u200D큷\?｡₂\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5052\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9B9}\x{200D}큷𻶡｡₂", %p)}, undef, "to_ascii\(\'\\uA9B9\\u200D큷\?｡₂\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5054\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9B9}\x{200D}큷𻶡。2", %p)}, undef, "to_ascii\(\'\\uA9B9\\u200D큷\?\。2\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5056\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{A9B9}\x{200D}큷𻶡。2", %p)}, undef, "to_ascii\(\'\\uA9B9\\u200D큷\?\。2\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5058\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{DF4D}.🄄𞯘", %p)}, undef, "to_ascii\(\'\\uDF4D\.🄄\?\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:5059\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("\x{DF4D}.3,𞯘", %p)}, undef, "to_ascii\(\'\\uDF4D\.3\,\?\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:5060\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝨖𐩙。\x{06DD}󀡶\x{A8C5}⒈", %p)}, undef, "to_ascii\(\'𝨖\?\。\\u06DD\?\\uA8C5⒈\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:5061\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𝨖𐩙。\x{06DD}󀡶\x{A8C5}1.", %p)}, undef, "to_ascii\(\'𝨖\?\。\\u06DD\?\\uA8C51\.\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:5062\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򒈣\x{05E1}\x{06B8}。Ⴈ\x{200D}", %p)}, undef, "to_ascii\(\'\?\\u05E1\\u06B8\。Ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:5064\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("򒈣\x{05E1}\x{06B8}。ⴈ\x{200D}", %p)}, undef, "to_ascii\(\'\?\\u05E1\\u06B8\。ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:5066\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󀚶𝨱\x{07E6}⒈．𑗝髯\x{200C}", %p)}, undef, "to_ascii\(\'\?𝨱\\u07E6⒈．𑗝髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ C1\ \[data\/IdnaTest\.txt\:5068\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("󀚶𝨱\x{07E6}1..𑗝髯\x{200C}", %p)}, undef, "to_ascii\(\'\?𝨱\\u07E61\.\.𑗝髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ A4_2\ C1\ \[data\/IdnaTest\.txt\:5070\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𐫀．\x{0689}𑌀", %p)}, "xn--pw9c.xn--fjb8658k", "to_ascii\(\'𐫀．\\u0689𑌀\'\)\ \[data\/IdnaTest\.txt\:5071\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𐫀.\x{0689}𑌀", %p)}, "xn--pw9c.xn--fjb8658k", "to_ascii\(\'𐫀\.\\u0689𑌀\'\)\ \[data\/IdnaTest\.txt\:5072\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("xn--pw9c.xn--fjb8658k", %p)}, "xn--pw9c.xn--fjb8658k", "to_ascii\(\'xn\-\-pw9c\.xn\-\-fjb8658k\'\)\ \[data\/IdnaTest\.txt\:5073\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𑋪．𐳝", %p)}, undef, "to_ascii\(\'𑋪．𐳝\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5074\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𑋪.𐳝", %p)}, undef, "to_ascii\(\'𑋪\.𐳝\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5075\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𑋪.𐲝", %p)}, undef, "to_ascii\(\'𑋪\.𐲝\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5076\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_ascii("𑋪．𐲝", %p)}, undef, "to_ascii\(\'𑋪．𐲝\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5077\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("≠膣。\x{0F83}", %p)}, undef, "to_ascii\(\'\≠膣\。\\u0F83\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5078\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("=\x{0338}膣。\x{0F83}", %p)}, undef, "to_ascii\(\'\=\\u0338膣\。\\u0F83\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5079\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񰀎-\x{077D}｡ß", %p)}, undef, "to_ascii\(\'\?\-\\u077D｡ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5080\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񰀎-\x{077D}。ß", %p)}, undef, "to_ascii\(\'\?\-\\u077D\。ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5081\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񰀎-\x{077D}。SS", %p)}, undef, "to_ascii\(\'\?\-\\u077D\。SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5082\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("񰀎-\x{077D}｡SS", %p)}, undef, "to_ascii\(\'\?\-\\u077D｡SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5083\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς𐹠ᡚ𑄳．⾭𐹽𽐖𐫜", %p)}, undef, "to_ascii\(\'ς𐹠ᡚ𑄳．⾭𐹽\?𐫜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5084\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("ς𐹠ᡚ𑄳.靑𐹽𽐖𐫜", %p)}, undef, "to_ascii\(\'ς𐹠ᡚ𑄳\.靑𐹽\?𐫜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5085\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ𐹠ᡚ𑄳.靑𐹽𽐖𐫜", %p)}, undef, "to_ascii\(\'Σ𐹠ᡚ𑄳\.靑𐹽\?𐫜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5086\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ𐹠ᡚ𑄳.靑𐹽𽐖𐫜", %p)}, undef, "to_ascii\(\'σ𐹠ᡚ𑄳\.靑𐹽\?𐫜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5087\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("Σ𐹠ᡚ𑄳．⾭𐹽𽐖𐫜", %p)}, undef, "to_ascii\(\'Σ𐹠ᡚ𑄳．⾭𐹽\?𐫜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5088\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("σ𐹠ᡚ𑄳．⾭𐹽𽐖𐫜", %p)}, undef, "to_ascii\(\'σ𐹠ᡚ𑄳．⾭𐹽\?𐫜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5089\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋷。\x{200D}", %p)}, undef, "to_ascii\(\'𐋷\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:5091\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--r97c.", %p)}, "xn--r97c.", "to_ascii\(\'xn\-\-r97c\.\'\)\ \[data\/IdnaTest\.txt\:5092\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋷.", %p)}, "xn--r97c.", "to_ascii\(\'𐋷\.\'\)\ \[data\/IdnaTest\.txt\:5093\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_ascii("𑰳𑈯。⥪", %p)}, undef, "to_ascii\(\'\?𑈯\。\⥪\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5094\]") or ($@ and diag($@)); } +is(eval{uts46_to_ascii("𑆀䁴񤧣．Ⴕ𝟜\x{200C}\x{0348}", %p)}, undef, "to_ascii\(\'𑆀䁴\?．Ⴕ𝟜\\u200C\\u0348\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5096\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑆀䁴񤧣.Ⴕ4\x{200C}\x{0348}", %p)}, undef, "to_ascii\(\'𑆀䁴\?\.Ⴕ4\\u200C\\u0348\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5098\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑆀䁴񤧣.ⴕ4\x{200C}\x{0348}", %p)}, undef, "to_ascii\(\'𑆀䁴\?\.ⴕ4\\u200C\\u0348\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5100\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("𑆀䁴񤧣．ⴕ𝟜\x{200C}\x{0348}", %p)}, undef, "to_ascii\(\'𑆀䁴\?．ⴕ𝟜\\u200C\\u0348\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5102\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("憡\x{DF1F}\x{200C}Ⴔ.𐋮\x{200D}≠", %p)}, undef, "to_ascii\(\'憡\\uDF1F\\u200CႴ\.𐋮\\u200D\≠\'\)\ throws\ error\ P1\ V6\ C1\ C2\ A3\ \[data\/IdnaTest\.txt\:5104\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("憡\x{DF1F}\x{200C}Ⴔ.𐋮\x{200D}=\x{0338}", %p)}, undef, "to_ascii\(\'憡\\uDF1F\\u200CႴ\.𐋮\\u200D\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ A3\ \[data\/IdnaTest\.txt\:5106\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("憡\x{DF1F}\x{200C}ⴔ.𐋮\x{200D}=\x{0338}", %p)}, undef, "to_ascii\(\'憡\\uDF1F\\u200Cⴔ\.𐋮\\u200D\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ A3\ \[data\/IdnaTest\.txt\:5108\]") or ($@ and diag($@)); +is(eval{uts46_to_ascii("憡\x{DF1F}\x{200C}ⴔ.𐋮\x{200D}≠", %p)}, undef, "to_ascii\(\'憡\\uDF1F\\u200Cⴔ\.𐋮\\u200D\≠\'\)\ throws\ error\ P1\ V6\ C1\ C2\ A3\ \[data\/IdnaTest\.txt\:5110\]") or ($@ and diag($@)); + + +exit(0); diff --git a/t/uts46_to_unicode.t b/t/uts46_to_unicode.t new file mode 100644 index 0000000..214054d --- /dev/null +++ b/t/uts46_to_unicode.t @@ -0,0 +1,5063 @@ +# *** DO NOT EDIT *** generated file *** DO NOT EDIT *** +# +# generated by lib/Net/IDN/UTS46/GenTests.PL from data/IdnaTest.txt +# see repository at http://github.com/cfaerber/Net-IDN-Encode for source files +# +use strict; +use utf8; +use open ':std', ':utf8'; +use warnings; + +use Test::More tests => 5038 + 1; +use Test::NoWarnings; + +use Unicode::UCD; +use Net::IDN::UTS46 (':all'); + +no warnings 'utf8'; + +our $UCD_VERSION = eval('v'.(Unicode::UCD::UnicodeVersion())); + +my %p = ("TransitionalProcessing" => "0"); + +is(eval{uts46_to_unicode("fass.de", %p)}, "fass.de", "to_unicode\(\'fass\.de\'\)\ \[data\/IdnaTest\.txt\:61\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("faß.de", %p)}, "faß.de", "to_unicode\(\'faß\.de\'\)\ \[data\/IdnaTest\.txt\:62\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("faß.de", %p)}, "faß.de", "to_unicode\(\'faß\.de\'\)\ \[data\/IdnaTest\.txt\:63\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Faß.de", %p)}, "faß.de", "to_unicode\(\'Faß\.de\'\)\ \[data\/IdnaTest\.txt\:64\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Faß.de", %p)}, "faß.de", "to_unicode\(\'Faß\.de\'\)\ \[data\/IdnaTest\.txt\:65\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--fa-hia.de", %p)}, "faß.de", "to_unicode\(\'xn\-\-fa\-hia\.de\'\)\ \[data\/IdnaTest\.txt\:66\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("à\x{05D0}", %p)}, undef, "to_unicode\(\'à\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:70\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0300}\x{05D0}", %p)}, undef, "to_unicode\(\'a\\u0300\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:71\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0300}\x{05D0}", %p)}, undef, "to_unicode\(\'A\\u0300\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:72\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("À\x{05D0}", %p)}, undef, "to_unicode\(\'À\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:73\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("0à.\x{05D0}", %p)}, "0à.\x{05D0}", "to_unicode\(\'0à\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:74\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("0a\x{0300}.\x{05D0}", %p)}, "0à.\x{05D0}", "to_unicode\(\'0a\\u0300\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:75\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("0A\x{0300}.\x{05D0}", %p)}, "0à.\x{05D0}", "to_unicode\(\'0A\\u0300\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:76\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("0À.\x{05D0}", %p)}, "0à.\x{05D0}", "to_unicode\(\'0À\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:77\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--0-sfa.xn--4db", %p)}, "0à.\x{05D0}", "to_unicode\(\'xn\-\-0\-sfa\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:78\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("à.\x{05D0}\x{0308}", %p)}, "à.\x{05D0}\x{0308}", "to_unicode\(\'à\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:79\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0300}.\x{05D0}\x{0308}", %p)}, "à.\x{05D0}\x{0308}", "to_unicode\(\'a\\u0300\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:80\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0300}.\x{05D0}\x{0308}", %p)}, "à.\x{05D0}\x{0308}", "to_unicode\(\'A\\u0300\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:81\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("À.\x{05D0}\x{0308}", %p)}, "à.\x{05D0}\x{0308}", "to_unicode\(\'À\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:82\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--0ca.xn--ssa73l", %p)}, "à.\x{05D0}\x{0308}", "to_unicode\(\'xn\-\-0ca\.xn\-\-ssa73l\'\)\ \[data\/IdnaTest\.txt\:83\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("à.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_unicode\(\'à\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:84\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0300}.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_unicode\(\'a\\u0300\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:85\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0300}.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_unicode\(\'A\\u0300\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:86\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("À.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_unicode\(\'À\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:87\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0308}.\x{05D0}", %p)}, undef, "to_unicode\(\'\\u0308\.\\u05D0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:88\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("à.\x{05D0}0\x{0660}", %p)}, undef, "to_unicode\(\'à\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:89\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0300}.\x{05D0}0\x{0660}", %p)}, undef, "to_unicode\(\'a\\u0300\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:90\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0300}.\x{05D0}0\x{0660}", %p)}, undef, "to_unicode\(\'A\\u0300\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:91\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("À.\x{05D0}0\x{0660}", %p)}, undef, "to_unicode\(\'À\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:92\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("àˇ.\x{05D0}", %p)}, "àˇ.\x{05D0}", "to_unicode\(\'àˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:93\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0300}ˇ.\x{05D0}", %p)}, "àˇ.\x{05D0}", "to_unicode\(\'a\\u0300ˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:94\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0300}ˇ.\x{05D0}", %p)}, "àˇ.\x{05D0}", "to_unicode\(\'A\\u0300ˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:95\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Àˇ.\x{05D0}", %p)}, "àˇ.\x{05D0}", "to_unicode\(\'Àˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:96\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--0ca88g.xn--4db", %p)}, "àˇ.\x{05D0}", "to_unicode\(\'xn\-\-0ca88g\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:97\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("à\x{0308}.\x{05D0}", %p)}, "à\x{0308}.\x{05D0}", "to_unicode\(\'à\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:98\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0300}\x{0308}.\x{05D0}", %p)}, "à\x{0308}.\x{05D0}", "to_unicode\(\'a\\u0300\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:99\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0300}\x{0308}.\x{05D0}", %p)}, "à\x{0308}.\x{05D0}", "to_unicode\(\'A\\u0300\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:100\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("À\x{0308}.\x{05D0}", %p)}, "à\x{0308}.\x{05D0}", "to_unicode\(\'À\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:101\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--0ca81i.xn--4db", %p)}, "à\x{0308}.\x{05D0}", "to_unicode\(\'xn\-\-0ca81i\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:102\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{200C}b", %p)}, undef, "to_unicode\(\'a\\u200Cb\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:106\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{200C}b", %p)}, undef, "to_unicode\(\'a\\u200Cb\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:107\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{200C}B", %p)}, undef, "to_unicode\(\'A\\u200CB\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:108\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{200C}B", %p)}, undef, "to_unicode\(\'A\\u200CB\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:109\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{200C}b", %p)}, undef, "to_unicode\(\'A\\u200Cb\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:110\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{200C}b", %p)}, undef, "to_unicode\(\'A\\u200Cb\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:111\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ab", %p)}, "ab", "to_unicode\(\'ab\'\)\ \[data\/IdnaTest\.txt\:112\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{094D}\x{200C}b", %p)}, "a\x{094D}\x{200C}b", "to_unicode\(\'a\\u094D\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:113\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{094D}\x{200C}b", %p)}, "a\x{094D}\x{200C}b", "to_unicode\(\'a\\u094D\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:114\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{094D}\x{200C}B", %p)}, "a\x{094D}\x{200C}b", "to_unicode\(\'A\\u094D\\u200CB\'\)\ \[data\/IdnaTest\.txt\:115\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{094D}\x{200C}B", %p)}, "a\x{094D}\x{200C}b", "to_unicode\(\'A\\u094D\\u200CB\'\)\ \[data\/IdnaTest\.txt\:116\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{094D}\x{200C}b", %p)}, "a\x{094D}\x{200C}b", "to_unicode\(\'A\\u094D\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:117\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{094D}\x{200C}b", %p)}, "a\x{094D}\x{200C}b", "to_unicode\(\'A\\u094D\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:118\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--ab-fsf", %p)}, "a\x{094D}b", "to_unicode\(\'xn\-\-ab\-fsf\'\)\ \[data\/IdnaTest\.txt\:119\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{094D}b", %p)}, "a\x{094D}b", "to_unicode\(\'a\\u094Db\'\)\ \[data\/IdnaTest\.txt\:120\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{094D}B", %p)}, "a\x{094D}b", "to_unicode\(\'A\\u094DB\'\)\ \[data\/IdnaTest\.txt\:121\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{094D}b", %p)}, "a\x{094D}b", "to_unicode\(\'A\\u094Db\'\)\ \[data\/IdnaTest\.txt\:122\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--ab-fsf604u", %p)}, "a\x{094D}\x{200C}b", "to_unicode\(\'xn\-\-ab\-fsf604u\'\)\ \[data\/IdnaTest\.txt\:123\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:124\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:125\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0308}\x{200C}\x{0308}\x{0628}B", %p)}, undef, "to_unicode\(\'\\u0308\\u200C\\u0308\\u0628B\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:126\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0308}\x{200C}\x{0308}\x{0628}B", %p)}, undef, "to_unicode\(\'\\u0308\\u200C\\u0308\\u0628B\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:127\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0628}\x{0308}\x{200C}\x{0308}", %p)}, undef, "to_unicode\(\'a\\u0628\\u0308\\u200C\\u0308\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:128\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0628}\x{0308}\x{200C}\x{0308}", %p)}, undef, "to_unicode\(\'a\\u0628\\u0308\\u200C\\u0308\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:129\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200C}\x{0308}", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200C\\u0308\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:130\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200C}\x{0308}", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200C\\u0308\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:131\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0628}\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'a\\u0628\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:132\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200C}\x{0308}\x{0628}B", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200C\\u0308\\u0628B\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:133\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:134\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{200D}b", %p)}, undef, "to_unicode\(\'a\\u200Db\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:135\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{200D}b", %p)}, undef, "to_unicode\(\'a\\u200Db\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:136\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{200D}B", %p)}, undef, "to_unicode\(\'A\\u200DB\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:137\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{200D}B", %p)}, undef, "to_unicode\(\'A\\u200DB\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:138\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{200D}b", %p)}, undef, "to_unicode\(\'A\\u200Db\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:139\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{200D}b", %p)}, undef, "to_unicode\(\'A\\u200Db\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:140\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{094D}\x{200D}b", %p)}, "a\x{094D}\x{200D}b", "to_unicode\(\'a\\u094D\\u200Db\'\)\ \[data\/IdnaTest\.txt\:141\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{094D}\x{200D}b", %p)}, "a\x{094D}\x{200D}b", "to_unicode\(\'a\\u094D\\u200Db\'\)\ \[data\/IdnaTest\.txt\:142\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{094D}\x{200D}B", %p)}, "a\x{094D}\x{200D}b", "to_unicode\(\'A\\u094D\\u200DB\'\)\ \[data\/IdnaTest\.txt\:143\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{094D}\x{200D}B", %p)}, "a\x{094D}\x{200D}b", "to_unicode\(\'A\\u094D\\u200DB\'\)\ \[data\/IdnaTest\.txt\:144\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{094D}\x{200D}b", %p)}, "a\x{094D}\x{200D}b", "to_unicode\(\'A\\u094D\\u200Db\'\)\ \[data\/IdnaTest\.txt\:145\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{094D}\x{200D}b", %p)}, "a\x{094D}\x{200D}b", "to_unicode\(\'A\\u094D\\u200Db\'\)\ \[data\/IdnaTest\.txt\:146\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--ab-fsf014u", %p)}, "a\x{094D}\x{200D}b", "to_unicode\(\'xn\-\-ab\-fsf014u\'\)\ \[data\/IdnaTest\.txt\:147\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:148\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:149\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0308}\x{200D}\x{0308}\x{0628}B", %p)}, undef, "to_unicode\(\'\\u0308\\u200D\\u0308\\u0628B\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:150\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0308}\x{200D}\x{0308}\x{0628}B", %p)}, undef, "to_unicode\(\'\\u0308\\u200D\\u0308\\u0628B\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:151\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0628}\x{0308}\x{200D}\x{0308}", %p)}, undef, "to_unicode\(\'a\\u0628\\u0308\\u200D\\u0308\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:152\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0628}\x{0308}\x{200D}\x{0308}", %p)}, undef, "to_unicode\(\'a\\u0628\\u0308\\u200D\\u0308\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:153\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200D}\x{0308}", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200D\\u0308\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:154\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200D}\x{0308}", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200D\\u0308\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:155\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'a\\u0628\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ B5\ C2\ \[data\/IdnaTest\.txt\:156\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'a\\u0628\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ B5\ C2\ \[data\/IdnaTest\.txt\:157\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}B", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200D\\u0308\\u0628B\'\)\ throws\ error\ B5\ C2\ \[data\/IdnaTest\.txt\:158\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}B", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200D\\u0308\\u0628B\'\)\ throws\ error\ B5\ C2\ \[data\/IdnaTest\.txt\:159\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ B5\ C2\ \[data\/IdnaTest\.txt\:160\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ B5\ C2\ \[data\/IdnaTest\.txt\:161\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("¡", %p)}, "¡", "to_unicode\(\'\¡\'\)\ \[data\/IdnaTest\.txt\:165\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--7a", %p)}, "¡", "to_unicode\(\'xn\-\-7a\'\)\ \[data\/IdnaTest\.txt\:166\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("᧚", %p)}, "᧚", "to_unicode\(\'᧚\'\)\ \[data\/IdnaTest\.txt\:167\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("xn--pkf", %p)}, "᧚", "to_unicode\(\'xn\-\-pkf\'\)\ \[data\/IdnaTest\.txt\:168\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("。", %p)}, undef, "to_unicode\(\'\。\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:169\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("ꭠ", %p)}, "ꭠ", "to_unicode\(\'ꭠ\'\)\ \[data\/IdnaTest\.txt\:170\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("xn--3y9a", %p)}, "ꭠ", "to_unicode\(\'xn\-\-3y9a\'\)\ \[data\/IdnaTest\.txt\:171\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("1234567890ä1234567890123456789012345678901234567890123456", %p)}, "1234567890ä1234567890123456789012345678901234567890123456", "to_unicode\(\'1234567890ä1234567890123456789012345678901234567890123456\'\)\ \[data\/IdnaTest\.txt\:172\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1234567890a\x{0308}1234567890123456789012345678901234567890123456", %p)}, "1234567890ä1234567890123456789012345678901234567890123456", "to_unicode\(\'1234567890a\\u03081234567890123456789012345678901234567890123456\'\)\ \[data\/IdnaTest\.txt\:173\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1234567890A\x{0308}1234567890123456789012345678901234567890123456", %p)}, "1234567890ä1234567890123456789012345678901234567890123456", "to_unicode\(\'1234567890A\\u03081234567890123456789012345678901234567890123456\'\)\ \[data\/IdnaTest\.txt\:174\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1234567890Ä1234567890123456789012345678901234567890123456", %p)}, "1234567890ä1234567890123456789012345678901234567890123456", "to_unicode\(\'1234567890Ä1234567890123456789012345678901234567890123456\'\)\ \[data\/IdnaTest\.txt\:175\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("www.eXample.cOm", %p)}, "www.example.com", "to_unicode\(\'www\.eXample\.cOm\'\)\ \[data\/IdnaTest\.txt\:176\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Bücher.de", %p)}, "bücher.de", "to_unicode\(\'Bücher\.de\'\)\ \[data\/IdnaTest\.txt\:177\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Bu\x{0308}cher.de", %p)}, "bücher.de", "to_unicode\(\'Bu\\u0308cher\.de\'\)\ \[data\/IdnaTest\.txt\:178\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("bu\x{0308}cher.de", %p)}, "bücher.de", "to_unicode\(\'bu\\u0308cher\.de\'\)\ \[data\/IdnaTest\.txt\:179\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("bücher.de", %p)}, "bücher.de", "to_unicode\(\'bücher\.de\'\)\ \[data\/IdnaTest\.txt\:180\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("BÜCHER.DE", %p)}, "bücher.de", "to_unicode\(\'BÜCHER\.DE\'\)\ \[data\/IdnaTest\.txt\:181\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("BU\x{0308}CHER.DE", %p)}, "bücher.de", "to_unicode\(\'BU\\u0308CHER\.DE\'\)\ \[data\/IdnaTest\.txt\:182\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--bcher-kva.de", %p)}, "bücher.de", "to_unicode\(\'xn\-\-bcher\-kva\.de\'\)\ \[data\/IdnaTest\.txt\:183\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ÖBB", %p)}, "öbb", "to_unicode\(\'ÖBB\'\)\ \[data\/IdnaTest\.txt\:184\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("O\x{0308}BB", %p)}, "öbb", "to_unicode\(\'O\\u0308BB\'\)\ \[data\/IdnaTest\.txt\:185\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("o\x{0308}bb", %p)}, "öbb", "to_unicode\(\'o\\u0308bb\'\)\ \[data\/IdnaTest\.txt\:186\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("öbb", %p)}, "öbb", "to_unicode\(\'öbb\'\)\ \[data\/IdnaTest\.txt\:187\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Öbb", %p)}, "öbb", "to_unicode\(\'Öbb\'\)\ \[data\/IdnaTest\.txt\:188\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("O\x{0308}bb", %p)}, "öbb", "to_unicode\(\'O\\u0308bb\'\)\ \[data\/IdnaTest\.txt\:189\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--bb-eka", %p)}, "öbb", "to_unicode\(\'xn\-\-bb\-eka\'\)\ \[data\/IdnaTest\.txt\:190\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("βόλος.com", %p)}, "βόλος.com", "to_unicode\(\'βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:191\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("βόλος.com", %p)}, "βόλος.com", "to_unicode\(\'βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:192\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("βο\x{0301}λος.com", %p)}, "βόλος.com", "to_unicode\(\'βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:193\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("βο\x{0301}λος.com", %p)}, "βόλος.com", "to_unicode\(\'βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:194\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ΒΟ\x{0301}ΛΟΣ.COM", %p)}, "βόλοσ.com", "to_unicode\(\'ΒΟ\\u0301ΛΟΣ\.COM\'\)\ \[data\/IdnaTest\.txt\:195\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ΒΌΛΟΣ.COM", %p)}, "βόλοσ.com", "to_unicode\(\'ΒΌΛΟΣ\.COM\'\)\ \[data\/IdnaTest\.txt\:196\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("βόλοσ.com", %p)}, "βόλοσ.com", "to_unicode\(\'βόλοσ\.com\'\)\ \[data\/IdnaTest\.txt\:197\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("βο\x{0301}λοσ.com", %p)}, "βόλοσ.com", "to_unicode\(\'βο\\u0301λοσ\.com\'\)\ \[data\/IdnaTest\.txt\:198\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Βο\x{0301}λοσ.com", %p)}, "βόλοσ.com", "to_unicode\(\'Βο\\u0301λοσ\.com\'\)\ \[data\/IdnaTest\.txt\:199\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Βόλοσ.com", %p)}, "βόλοσ.com", "to_unicode\(\'Βόλοσ\.com\'\)\ \[data\/IdnaTest\.txt\:200\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--nxasmq6b.com", %p)}, "βόλοσ.com", "to_unicode\(\'xn\-\-nxasmq6b\.com\'\)\ \[data\/IdnaTest\.txt\:201\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Βο\x{0301}λος.com", %p)}, "βόλος.com", "to_unicode\(\'Βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:202\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Βο\x{0301}λος.com", %p)}, "βόλος.com", "to_unicode\(\'Βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:203\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Βόλος.com", %p)}, "βόλος.com", "to_unicode\(\'Βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:204\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Βόλος.com", %p)}, "βόλος.com", "to_unicode\(\'Βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:205\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--nxasmm1c.com", %p)}, "βόλος.com", "to_unicode\(\'xn\-\-nxasmm1c\.com\'\)\ \[data\/IdnaTest\.txt\:206\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--nxasmm1c", %p)}, "βόλος", "to_unicode\(\'xn\-\-nxasmm1c\'\)\ \[data\/IdnaTest\.txt\:207\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("βόλος", %p)}, "βόλος", "to_unicode\(\'βόλος\'\)\ \[data\/IdnaTest\.txt\:208\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("βόλος", %p)}, "βόλος", "to_unicode\(\'βόλος\'\)\ \[data\/IdnaTest\.txt\:209\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("βο\x{0301}λος", %p)}, "βόλος", "to_unicode\(\'βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:210\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("βο\x{0301}λος", %p)}, "βόλος", "to_unicode\(\'βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:211\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ΒΟ\x{0301}ΛΟΣ", %p)}, "βόλοσ", "to_unicode\(\'ΒΟ\\u0301ΛΟΣ\'\)\ \[data\/IdnaTest\.txt\:212\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ΒΌΛΟΣ", %p)}, "βόλοσ", "to_unicode\(\'ΒΌΛΟΣ\'\)\ \[data\/IdnaTest\.txt\:213\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("βόλοσ", %p)}, "βόλοσ", "to_unicode\(\'βόλοσ\'\)\ \[data\/IdnaTest\.txt\:214\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("βο\x{0301}λοσ", %p)}, "βόλοσ", "to_unicode\(\'βο\\u0301λοσ\'\)\ \[data\/IdnaTest\.txt\:215\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Βο\x{0301}λοσ", %p)}, "βόλοσ", "to_unicode\(\'Βο\\u0301λοσ\'\)\ \[data\/IdnaTest\.txt\:216\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Βόλοσ", %p)}, "βόλοσ", "to_unicode\(\'Βόλοσ\'\)\ \[data\/IdnaTest\.txt\:217\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--nxasmq6b", %p)}, "βόλοσ", "to_unicode\(\'xn\-\-nxasmq6b\'\)\ \[data\/IdnaTest\.txt\:218\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Βόλος", %p)}, "βόλος", "to_unicode\(\'Βόλος\'\)\ \[data\/IdnaTest\.txt\:219\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Βόλος", %p)}, "βόλος", "to_unicode\(\'Βόλος\'\)\ \[data\/IdnaTest\.txt\:220\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Βο\x{0301}λος", %p)}, "βόλος", "to_unicode\(\'Βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:221\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Βο\x{0301}λος", %p)}, "βόλος", "to_unicode\(\'Βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:222\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("www.ශ\x{0DCA}\x{200D}ර\x{0DD3}.com", %p)}, "www.ශ\x{0DCA}\x{200D}ර\x{0DD3}.com", "to_unicode\(\'www\.ශ\\u0DCA\\u200Dර\\u0DD3\.com\'\)\ \[data\/IdnaTest\.txt\:223\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("www.ශ\x{0DCA}\x{200D}ර\x{0DD3}.com", %p)}, "www.ශ\x{0DCA}\x{200D}ර\x{0DD3}.com", "to_unicode\(\'www\.ශ\\u0DCA\\u200Dර\\u0DD3\.com\'\)\ \[data\/IdnaTest\.txt\:224\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("www.xn--10cl1a0b.com", %p)}, "www.ශ\x{0DCA}ර\x{0DD3}.com", "to_unicode\(\'www\.xn\-\-10cl1a0b\.com\'\)\ \[data\/IdnaTest\.txt\:225\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("www.ශ\x{0DCA}ර\x{0DD3}.com", %p)}, "www.ශ\x{0DCA}ර\x{0DD3}.com", "to_unicode\(\'www\.ශ\\u0DCAර\\u0DD3\.com\'\)\ \[data\/IdnaTest\.txt\:226\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("www.xn--10cl1a0b660p.com", %p)}, "www.ශ\x{0DCA}\x{200D}ර\x{0DD3}.com", "to_unicode\(\'www\.xn\-\-10cl1a0b660p\.com\'\)\ \[data\/IdnaTest\.txt\:227\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}", "to_unicode\(\'\\u0646\\u0627\\u0645\\u0647\\u200C\\u0627\\u06CC\'\)\ \[data\/IdnaTest\.txt\:228\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}", "to_unicode\(\'\\u0646\\u0627\\u0645\\u0647\\u200C\\u0627\\u06CC\'\)\ \[data\/IdnaTest\.txt\:229\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--mgba3gch31f", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}", "to_unicode\(\'xn\-\-mgba3gch31f\'\)\ \[data\/IdnaTest\.txt\:230\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}", "to_unicode\(\'\\u0646\\u0627\\u0645\\u0647\\u0627\\u06CC\'\)\ \[data\/IdnaTest\.txt\:231\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--mgba3gch31f060k", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}", "to_unicode\(\'xn\-\-mgba3gch31f060k\'\)\ \[data\/IdnaTest\.txt\:232\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--mgba3gch31f060k.com", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}.com", "to_unicode\(\'xn\-\-mgba3gch31f060k\.com\'\)\ \[data\/IdnaTest\.txt\:233\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}.com", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}.com", "to_unicode\(\'\\u0646\\u0627\\u0645\\u0647\\u200C\\u0627\\u06CC\.com\'\)\ \[data\/IdnaTest\.txt\:234\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}.com", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}.com", "to_unicode\(\'\\u0646\\u0627\\u0645\\u0647\\u200C\\u0627\\u06CC\.com\'\)\ \[data\/IdnaTest\.txt\:235\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--mgba3gch31f.com", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}.com", "to_unicode\(\'xn\-\-mgba3gch31f\.com\'\)\ \[data\/IdnaTest\.txt\:236\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}.com", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}.com", "to_unicode\(\'\\u0646\\u0627\\u0645\\u0647\\u0627\\u06CC\.com\'\)\ \[data\/IdnaTest\.txt\:237\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a.b．c。d｡", %p)}, "a.b.c.d.", "to_unicode\(\'a\.b．c\。d｡\'\)\ \[data\/IdnaTest\.txt\:238\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a.b.c。d。", %p)}, "a.b.c.d.", "to_unicode\(\'a\.b\.c\。d\。\'\)\ \[data\/IdnaTest\.txt\:239\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a.b.c.d.", %p)}, "a.b.c.d.", "to_unicode\(\'a\.b\.c\.d\.\'\)\ \[data\/IdnaTest\.txt\:240\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("U\x{0308}.xn--tda", %p)}, "ü.ü", "to_unicode\(\'U\\u0308\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:241\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ü.xn--tda", %p)}, "ü.ü", "to_unicode\(\'Ü\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:242\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ü.xn--tda", %p)}, "ü.ü", "to_unicode\(\'ü\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:243\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("u\x{0308}.xn--tda", %p)}, "ü.ü", "to_unicode\(\'u\\u0308\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:244\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--tda.xn--tda", %p)}, "ü.ü", "to_unicode\(\'xn\-\-tda\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:245\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ü.ü", %p)}, "ü.ü", "to_unicode\(\'ü\.ü\'\)\ \[data\/IdnaTest\.txt\:246\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("u\x{0308}.u\x{0308}", %p)}, "ü.ü", "to_unicode\(\'u\\u0308\.u\\u0308\'\)\ \[data\/IdnaTest\.txt\:247\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("U\x{0308}.U\x{0308}", %p)}, "ü.ü", "to_unicode\(\'U\\u0308\.U\\u0308\'\)\ \[data\/IdnaTest\.txt\:248\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ü.Ü", %p)}, "ü.ü", "to_unicode\(\'Ü\.Ü\'\)\ \[data\/IdnaTest\.txt\:249\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ü.ü", %p)}, "ü.ü", "to_unicode\(\'Ü\.ü\'\)\ \[data\/IdnaTest\.txt\:250\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("U\x{0308}.u\x{0308}", %p)}, "ü.ü", "to_unicode\(\'U\\u0308\.u\\u0308\'\)\ \[data\/IdnaTest\.txt\:251\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--u-ccb", %p)}, undef, "to_unicode\(\'xn\-\-u\-ccb\'\)\ throws\ error\ V1\ \[data\/IdnaTest\.txt\:252\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a⒈com", %p)}, undef, "to_unicode\(\'a⒈com\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:253\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a1.com", %p)}, "a1.com", "to_unicode\(\'a1\.com\'\)\ \[data\/IdnaTest\.txt\:254\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A⒈COM", %p)}, undef, "to_unicode\(\'A⒈COM\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:255\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A⒈Com", %p)}, undef, "to_unicode\(\'A⒈Com\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:256\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--a-ecp.ru", %p)}, undef, "to_unicode\(\'xn\-\-a\-ecp\.ru\'\)\ throws\ error\ V6\ \[data\/IdnaTest\.txt\:257\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--0.pt", %p)}, undef, "to_unicode\(\'xn\-\-0\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:258\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--a.pt", %p)}, undef, "to_unicode\(\'xn\-\-a\.pt\'\)\ throws\ error\ V6\ \[data\/IdnaTest\.txt\:259\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--a-Ä.pt", %p)}, undef, "to_unicode\(\'xn\-\-a\-Ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:260\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--a-A\x{0308}.pt", %p)}, undef, "to_unicode\(\'xn\-\-a\-A\\u0308\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:261\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--a-a\x{0308}.pt", %p)}, undef, "to_unicode\(\'xn\-\-a\-a\\u0308\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:262\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--a-ä.pt", %p)}, undef, "to_unicode\(\'xn\-\-a\-ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:263\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("XN--A-Ä.PT", %p)}, undef, "to_unicode\(\'XN\-\-A\-Ä\.PT\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:264\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("XN--A-A\x{0308}.PT", %p)}, undef, "to_unicode\(\'XN\-\-A\-A\\u0308\.PT\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:265\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Xn--A-A\x{0308}.pt", %p)}, undef, "to_unicode\(\'Xn\-\-A\-A\\u0308\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:266\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Xn--A-Ä.pt", %p)}, undef, "to_unicode\(\'Xn\-\-A\-Ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:267\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("日本語。ＪＰ", %p)}, "日本語.jp", "to_unicode\(\'日本語\。ＪＰ\'\)\ \[data\/IdnaTest\.txt\:268\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("日本語。JP", %p)}, "日本語.jp", "to_unicode\(\'日本語\。JP\'\)\ \[data\/IdnaTest\.txt\:269\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--wgv71a119e.jp", %p)}, "日本語.jp", "to_unicode\(\'xn\-\-wgv71a119e\.jp\'\)\ \[data\/IdnaTest\.txt\:270\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("日本語.jp", %p)}, "日本語.jp", "to_unicode\(\'日本語\.jp\'\)\ \[data\/IdnaTest\.txt\:271\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("日本語。ｊｐ", %p)}, "日本語.jp", "to_unicode\(\'日本語\。ｊｐ\'\)\ \[data\/IdnaTest\.txt\:272\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("日本語。Ｊｐ", %p)}, "日本語.jp", "to_unicode\(\'日本語\。Ｊｐ\'\)\ \[data\/IdnaTest\.txt\:273\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("☕", %p)}, "☕", "to_unicode\(\'\☕\'\)\ \[data\/IdnaTest\.txt\:274\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--53h", %p)}, "☕", "to_unicode\(\'xn\-\-53h\'\)\ \[data\/IdnaTest\.txt\:275\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.aß\x{200C}\x{200D}b\x{200C}\x{200D}cßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\x{0302}ßz", %p)}, undef, "to_unicode\(\'1\.aß\\u200C\\u200Db\\u200C\\u200Dcßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\\u0302ßz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:276\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.aß\x{200C}\x{200D}b\x{200C}\x{200D}cßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\x{0302}ßz", %p)}, undef, "to_unicode\(\'1\.aß\\u200C\\u200Db\\u200C\\u200Dcßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\\u0302ßz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:277\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.ASS\x{200C}\x{200D}B\x{200C}\x{200D}CSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSS\x{0302}SSZ", %p)}, undef, "to_unicode\(\'1\.ASS\\u200C\\u200DB\\u200C\\u200DCSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSS\\u0302SSZ\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:278\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.ASS\x{200C}\x{200D}B\x{200C}\x{200D}CSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSS\x{0302}SSZ", %p)}, undef, "to_unicode\(\'1\.ASS\\u200C\\u200DB\\u200C\\u200DCSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSS\\u0302SSZ\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:279\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.ASS\x{200C}\x{200D}B\x{200C}\x{200D}CSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSŜSSZ", %p)}, undef, "to_unicode\(\'1\.ASS\\u200C\\u200DB\\u200C\\u200DCSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSŜSSZ\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:280\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.ASS\x{200C}\x{200D}B\x{200C}\x{200D}CSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSŜSSZ", %p)}, undef, "to_unicode\(\'1\.ASS\\u200C\\u200DB\\u200C\\u200DCSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSŜSSZ\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:281\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz", %p)}, undef, "to_unicode\(\'1\.ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:282\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz", %p)}, undef, "to_unicode\(\'1\.ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:283\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_unicode\(\'1\.ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:284\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_unicode\(\'1\.ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:285\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.Ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_unicode\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:286\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.Ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_unicode\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:287\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.Ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz", %p)}, undef, "to_unicode\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:288\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.Ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz", %p)}, undef, "to_unicode\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:289\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.Aß\x{200C}\x{200D}b\x{200C}\x{200D}cßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\x{0302}ßz", %p)}, undef, "to_unicode\(\'1\.Aß\\u200C\\u200Db\\u200C\\u200Dcßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\\u0302ßz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:290\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.Aß\x{200C}\x{200D}b\x{200C}\x{200D}cßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\x{0302}ßz", %p)}, undef, "to_unicode\(\'1\.Aß\\u200C\\u200Db\\u200C\\u200Dcßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\\u0302ßz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:291\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}x\x{200D}n\x{200C}-\x{200D}-bß", %p)}, undef, "to_unicode\(\'\\u200Cx\\u200Dn\\u200C\-\\u200D\-bß\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:292\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}x\x{200D}n\x{200C}-\x{200D}-bß", %p)}, undef, "to_unicode\(\'\\u200Cx\\u200Dn\\u200C\-\\u200D\-bß\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:293\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}X\x{200D}N\x{200C}-\x{200D}-BSS", %p)}, undef, "to_unicode\(\'\\u200CX\\u200DN\\u200C\-\\u200D\-BSS\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:294\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}X\x{200D}N\x{200C}-\x{200D}-BSS", %p)}, undef, "to_unicode\(\'\\u200CX\\u200DN\\u200C\-\\u200D\-BSS\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:295\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}x\x{200D}n\x{200C}-\x{200D}-bss", %p)}, undef, "to_unicode\(\'\\u200Cx\\u200Dn\\u200C\-\\u200D\-bss\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:296\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}x\x{200D}n\x{200C}-\x{200D}-bss", %p)}, undef, "to_unicode\(\'\\u200Cx\\u200Dn\\u200C\-\\u200D\-bss\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:297\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}X\x{200D}n\x{200C}-\x{200D}-Bss", %p)}, undef, "to_unicode\(\'\\u200CX\\u200Dn\\u200C\-\\u200D\-Bss\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:298\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}X\x{200D}n\x{200C}-\x{200D}-Bss", %p)}, undef, "to_unicode\(\'\\u200CX\\u200Dn\\u200C\-\\u200D\-Bss\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:299\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--bss", %p)}, "夙", "to_unicode\(\'xn\-\-bss\'\)\ \[data\/IdnaTest\.txt\:300\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("夙", %p)}, "夙", "to_unicode\(\'夙\'\)\ \[data\/IdnaTest\.txt\:301\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}X\x{200D}n\x{200C}-\x{200D}-Bß", %p)}, undef, "to_unicode\(\'\\u200CX\\u200Dn\\u200C\-\\u200D\-Bß\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:302\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}X\x{200D}n\x{200C}-\x{200D}-Bß", %p)}, undef, "to_unicode\(\'\\u200CX\\u200Dn\\u200C\-\\u200D\-Bß\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:303\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("ˣ\x{034F}ℕ\x{200B}﹣\x{00AD}－\x{180C}ℬ\x{FE00}ſ\x{2064}𝔰󠇯ffl", %p)}, "夡夞夜夙", "to_unicode\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD－\\u180Cℬ\\uFE00ſ\\u2064𝔰\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:304\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("x\x{034F}N\x{200B}-\x{00AD}-\x{180C}B\x{FE00}s\x{2064}s󠇯ffl", %p)}, "夡夞夜夙", "to_unicode\(\'x\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00s\\u2064s\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:305\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("x\x{034F}n\x{200B}-\x{00AD}-\x{180C}b\x{FE00}s\x{2064}s󠇯ffl", %p)}, "夡夞夜夙", "to_unicode\(\'x\\u034Fn\\u200B\-\\u00AD\-\\u180Cb\\uFE00s\\u2064s\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:306\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("X\x{034F}N\x{200B}-\x{00AD}-\x{180C}B\x{FE00}S\x{2064}S󠇯FFL", %p)}, "夡夞夜夙", "to_unicode\(\'X\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00S\\u2064S\󠇯FFL\'\)\ \[data\/IdnaTest\.txt\:307\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("X\x{034F}n\x{200B}-\x{00AD}-\x{180C}B\x{FE00}s\x{2064}s󠇯ffl", %p)}, "夡夞夜夙", "to_unicode\(\'X\\u034Fn\\u200B\-\\u00AD\-\\u180CB\\uFE00s\\u2064s\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:308\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("xn--bssffl", %p)}, "夡夞夜夙", "to_unicode\(\'xn\-\-bssffl\'\)\ \[data\/IdnaTest\.txt\:309\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("夡夞夜夙", %p)}, "夡夞夜夙", "to_unicode\(\'夡夞夜夙\'\)\ \[data\/IdnaTest\.txt\:310\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("ˣ\x{034F}ℕ\x{200B}﹣\x{00AD}－\x{180C}ℬ\x{FE00}S\x{2064}𝔰󠇯FFL", %p)}, "夡夞夜夙", "to_unicode\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD－\\u180Cℬ\\uFE00S\\u2064𝔰\󠇯FFL\'\)\ \[data\/IdnaTest\.txt\:311\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("x\x{034F}N\x{200B}-\x{00AD}-\x{180C}B\x{FE00}S\x{2064}s󠇯FFL", %p)}, "夡夞夜夙", "to_unicode\(\'x\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00S\\u2064s\󠇯FFL\'\)\ \[data\/IdnaTest\.txt\:312\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("ˣ\x{034F}ℕ\x{200B}﹣\x{00AD}－\x{180C}ℬ\x{FE00}s\x{2064}𝔰󠇯ffl", %p)}, "夡夞夜夙", "to_unicode\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD－\\u180Cℬ\\uFE00s\\u2064𝔰\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:313\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:314\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:315\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, "123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ \[data\/IdnaTest\.txt\:316\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901234\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ \[data\/IdnaTest\.txt\:317\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901234\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ \[data\/IdnaTest\.txt\:318\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901234\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:319\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ä1234567890123456789012345678901234567890123456789012345", %p)}, "ä1234567890123456789012345678901234567890123456789012345", "to_unicode\(\'ä1234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:320\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0308}1234567890123456789012345678901234567890123456789012345", %p)}, "ä1234567890123456789012345678901234567890123456789012345", "to_unicode\(\'a\\u03081234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:321\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0308}1234567890123456789012345678901234567890123456789012345", %p)}, "ä1234567890123456789012345678901234567890123456789012345", "to_unicode\(\'A\\u03081234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:322\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ä1234567890123456789012345678901234567890123456789012345", %p)}, "ä1234567890123456789012345678901234567890123456789012345", "to_unicode\(\'Ä1234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:323\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--1234567890123456789012345678901234567890123456789012345-9te", %p)}, "ä1234567890123456789012345678901234567890123456789012345", "to_unicode\(\'xn\-\-1234567890123456789012345678901234567890123456789012345\-9te\'\)\ \[data\/IdnaTest\.txt\:324\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:325\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:326\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:327\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:328\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.xn\-\-1234567890123456789012345678901234567890123456789012345\-kue\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:329\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:330\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:331\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:332\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:333\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.xn\-\-1234567890123456789012345678901234567890123456789012345\-kue\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:334\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ \[data\/IdnaTest\.txt\:335\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ \[data\/IdnaTest\.txt\:336\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ \[data\/IdnaTest\.txt\:337\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ \[data\/IdnaTest\.txt\:338\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ \[data\/IdnaTest\.txt\:339\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ \[data\/IdnaTest\.txt\:340\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ \[data\/IdnaTest\.txt\:341\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ \[data\/IdnaTest\.txt\:342\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ \[data\/IdnaTest\.txt\:343\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ \[data\/IdnaTest\.txt\:344\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ \[data\/IdnaTest\.txt\:345\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ \[data\/IdnaTest\.txt\:346\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:347\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:348\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:349\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:350\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a.b..-q--a-.e", %p)}, undef, "to_unicode\(\'a\.b\.\.\-q\-\-a\-\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:351\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a.b..-q--ä-.e", %p)}, undef, "to_unicode\(\'a\.b\.\.\-q\-\-ä\-\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:352\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a.b..-q--a\x{0308}-.e", %p)}, undef, "to_unicode\(\'a\.b\.\.\-q\-\-a\\u0308\-\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:353\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A.B..-Q--A\x{0308}-.E", %p)}, undef, "to_unicode\(\'A\.B\.\.\-Q\-\-A\\u0308\-\.E\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:354\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A.B..-Q--Ä-.E", %p)}, undef, "to_unicode\(\'A\.B\.\.\-Q\-\-Ä\-\.E\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:355\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a.b..xn---q----jra.e", %p)}, undef, "to_unicode\(\'a\.b\.\.xn\-\-\-q\-\-\-\-jra\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:356\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a..c", %p)}, undef, "to_unicode\(\'a\.\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:357\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a.-b.", %p)}, undef, "to_unicode\(\'a\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:358\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a.b-.c", %p)}, undef, "to_unicode\(\'a\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:359\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a.-.c", %p)}, undef, "to_unicode\(\'a\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:360\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a.bc--de.f", %p)}, undef, "to_unicode\(\'a\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:361\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ä.\x{00AD}.c", %p)}, undef, "to_unicode\(\'ä\.\\u00AD\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:362\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0308}.\x{00AD}.c", %p)}, undef, "to_unicode\(\'a\\u0308\.\\u00AD\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:363\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0308}.\x{00AD}.C", %p)}, undef, "to_unicode\(\'A\\u0308\.\\u00AD\.C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:364\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ä.\x{00AD}.C", %p)}, undef, "to_unicode\(\'Ä\.\\u00AD\.C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:365\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ä.-b.", %p)}, undef, "to_unicode\(\'ä\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:366\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0308}.-b.", %p)}, undef, "to_unicode\(\'a\\u0308\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:367\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0308}.-B.", %p)}, undef, "to_unicode\(\'A\\u0308\.\-B\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:368\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ä.-B.", %p)}, undef, "to_unicode\(\'Ä\.\-B\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:369\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ä.b-.c", %p)}, undef, "to_unicode\(\'ä\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:370\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0308}.b-.c", %p)}, undef, "to_unicode\(\'a\\u0308\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:371\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0308}.B-.C", %p)}, undef, "to_unicode\(\'A\\u0308\.B\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:372\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ä.B-.C", %p)}, undef, "to_unicode\(\'Ä\.B\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:373\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ä.-.c", %p)}, undef, "to_unicode\(\'ä\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:374\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0308}.-.c", %p)}, undef, "to_unicode\(\'a\\u0308\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:375\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0308}.-.C", %p)}, undef, "to_unicode\(\'A\\u0308\.\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:376\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ä.-.C", %p)}, undef, "to_unicode\(\'Ä\.\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:377\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ä.bc--de.f", %p)}, undef, "to_unicode\(\'ä\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:378\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{0308}.bc--de.f", %p)}, undef, "to_unicode\(\'a\\u0308\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:379\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{0308}.BC--DE.F", %p)}, undef, "to_unicode\(\'A\\u0308\.BC\-\-DE\.F\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:380\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ä.BC--DE.F", %p)}, undef, "to_unicode\(\'Ä\.BC\-\-DE\.F\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:381\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a.b.\x{0308}c.d", %p)}, undef, "to_unicode\(\'a\.b\.\\u0308c\.d\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:382\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A.B.\x{0308}C.D", %p)}, undef, "to_unicode\(\'A\.B\.\\u0308C\.D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:383\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a.b.xn--c-bcb.d", %p)}, undef, "to_unicode\(\'a\.b\.xn\-\-c\-bcb\.d\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:384\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A0", %p)}, "a0", "to_unicode\(\'A0\'\)\ \[data\/IdnaTest\.txt\:385\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("0A", %p)}, "0a", "to_unicode\(\'0A\'\)\ \[data\/IdnaTest\.txt\:386\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("0A.\x{05D0}", %p)}, "0a.\x{05D0}", "to_unicode\(\'0A\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:387\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("0a.xn--4db", %p)}, "0a.\x{05D0}", "to_unicode\(\'0a\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:388\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("c.xn--0-eha.xn--4db", %p)}, "c.0ü.\x{05D0}", "to_unicode\(\'c\.xn\-\-0\-eha\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:389\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("c.0ü.\x{05D0}", %p)}, "c.0ü.\x{05D0}", "to_unicode\(\'c\.0ü\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:390\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("c.0u\x{0308}.\x{05D0}", %p)}, "c.0ü.\x{05D0}", "to_unicode\(\'c\.0u\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:391\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("C.0U\x{0308}.\x{05D0}", %p)}, "c.0ü.\x{05D0}", "to_unicode\(\'C\.0U\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:392\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("C.0Ü.\x{05D0}", %p)}, "c.0ü.\x{05D0}", "to_unicode\(\'C\.0Ü\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:393\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("b-.\x{05D0}", %p)}, undef, "to_unicode\(\'b\-\.\\u05D0\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:394\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("d.xn----dha.xn--4db", %p)}, undef, "to_unicode\(\'d\.xn\-\-\-\-dha\.xn\-\-4db\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:395\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{05D0}", %p)}, undef, "to_unicode\(\'a\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:396\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{05D0}", %p)}, undef, "to_unicode\(\'A\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:397\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{05D0}\x{05C7}", %p)}, "\x{05D0}\x{05C7}", "to_unicode\(\'\\u05D0\\u05C7\'\)\ \[data\/IdnaTest\.txt\:398\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("xn--vdbr", %p)}, "\x{05D0}\x{05C7}", "to_unicode\(\'xn\-\-vdbr\'\)\ \[data\/IdnaTest\.txt\:399\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{05D0}9\x{05C7}", %p)}, "\x{05D0}9\x{05C7}", "to_unicode\(\'\\u05D09\\u05C7\'\)\ \[data\/IdnaTest\.txt\:400\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("xn--9-ihcz", %p)}, "\x{05D0}9\x{05C7}", "to_unicode\(\'xn\-\-9\-ihcz\'\)\ \[data\/IdnaTest\.txt\:401\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{05D0}a\x{05C7}", %p)}, undef, "to_unicode\(\'\\u05D0a\\u05C7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:402\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{05D0}A\x{05C7}", %p)}, undef, "to_unicode\(\'\\u05D0A\\u05C7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:403\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{05D0}\x{05EA}", %p)}, "\x{05D0}\x{05EA}", "to_unicode\(\'\\u05D0\\u05EA\'\)\ \[data\/IdnaTest\.txt\:404\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--4db6c", %p)}, "\x{05D0}\x{05EA}", "to_unicode\(\'xn\-\-4db6c\'\)\ \[data\/IdnaTest\.txt\:405\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{05D0}\x{05F3}\x{05EA}", %p)}, "\x{05D0}\x{05F3}\x{05EA}", "to_unicode\(\'\\u05D0\\u05F3\\u05EA\'\)\ \[data\/IdnaTest\.txt\:406\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--4db6c0a", %p)}, "\x{05D0}\x{05F3}\x{05EA}", "to_unicode\(\'xn\-\-4db6c0a\'\)\ \[data\/IdnaTest\.txt\:407\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{05D0}Tz", %p)}, undef, "to_unicode\(\'a\\u05D0Tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:408\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{05D0}tz", %p)}, undef, "to_unicode\(\'a\\u05D0tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:409\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{05D0}TZ", %p)}, undef, "to_unicode\(\'A\\u05D0TZ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:410\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{05D0}tz", %p)}, undef, "to_unicode\(\'A\\u05D0tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:411\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{05D0}T\x{05EA}", %p)}, undef, "to_unicode\(\'\\u05D0T\\u05EA\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:412\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{05D0}t\x{05EA}", %p)}, undef, "to_unicode\(\'\\u05D0t\\u05EA\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:413\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{05D0}7\x{05EA}", %p)}, "\x{05D0}7\x{05EA}", "to_unicode\(\'\\u05D07\\u05EA\'\)\ \[data\/IdnaTest\.txt\:414\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--7-zhc3f", %p)}, "\x{05D0}7\x{05EA}", "to_unicode\(\'xn\-\-7\-zhc3f\'\)\ \[data\/IdnaTest\.txt\:415\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{05D0}\x{0667}\x{05EA}", %p)}, "\x{05D0}\x{0667}\x{05EA}", "to_unicode\(\'\\u05D0\\u0667\\u05EA\'\)\ \[data\/IdnaTest\.txt\:416\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--4db6c6t", %p)}, "\x{05D0}\x{0667}\x{05EA}", "to_unicode\(\'xn\-\-4db6c6t\'\)\ \[data\/IdnaTest\.txt\:417\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a7\x{0667}z", %p)}, undef, "to_unicode\(\'a7\\u0667z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:418\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A7\x{0667}Z", %p)}, undef, "to_unicode\(\'A7\\u0667Z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:419\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A7\x{0667}z", %p)}, undef, "to_unicode\(\'A7\\u0667z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:420\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{05D0}7\x{0667}\x{05EA}", %p)}, undef, "to_unicode\(\'\\u05D07\\u0667\\u05EA\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:421\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ஹ\x{0BCD}\x{200D}", %p)}, "ஹ\x{0BCD}\x{200D}", "to_unicode\(\'ஹ\\u0BCD\\u200D\'\)\ \[data\/IdnaTest\.txt\:422\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ஹ\x{0BCD}\x{200D}", %p)}, "ஹ\x{0BCD}\x{200D}", "to_unicode\(\'ஹ\\u0BCD\\u200D\'\)\ \[data\/IdnaTest\.txt\:423\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--dmc4b", %p)}, "ஹ\x{0BCD}", "to_unicode\(\'xn\-\-dmc4b\'\)\ \[data\/IdnaTest\.txt\:424\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ஹ\x{0BCD}", %p)}, "ஹ\x{0BCD}", "to_unicode\(\'ஹ\\u0BCD\'\)\ \[data\/IdnaTest\.txt\:425\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--dmc4b194h", %p)}, "ஹ\x{0BCD}\x{200D}", "to_unicode\(\'xn\-\-dmc4b194h\'\)\ \[data\/IdnaTest\.txt\:426\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ஹ\x{200D}", %p)}, undef, "to_unicode\(\'ஹ\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:427\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ஹ\x{200D}", %p)}, undef, "to_unicode\(\'ஹ\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:428\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--dmc", %p)}, "ஹ", "to_unicode\(\'xn\-\-dmc\'\)\ \[data\/IdnaTest\.txt\:429\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ஹ", %p)}, "ஹ", "to_unicode\(\'ஹ\'\)\ \[data\/IdnaTest\.txt\:430\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:431\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:432\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ஹ\x{0BCD}\x{200C}", %p)}, "ஹ\x{0BCD}\x{200C}", "to_unicode\(\'ஹ\\u0BCD\\u200C\'\)\ \[data\/IdnaTest\.txt\:433\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ஹ\x{0BCD}\x{200C}", %p)}, "ஹ\x{0BCD}\x{200C}", "to_unicode\(\'ஹ\\u0BCD\\u200C\'\)\ \[data\/IdnaTest\.txt\:434\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--dmc4by94h", %p)}, "ஹ\x{0BCD}\x{200C}", "to_unicode\(\'xn\-\-dmc4by94h\'\)\ \[data\/IdnaTest\.txt\:435\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ஹ\x{200C}", %p)}, undef, "to_unicode\(\'ஹ\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:436\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ஹ\x{200C}", %p)}, undef, "to_unicode\(\'ஹ\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:437\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}", %p)}, undef, "to_unicode\(\'\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:438\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}", %p)}, undef, "to_unicode\(\'\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:439\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{0670}\x{200C}\x{06ED}\x{06EF}", %p)}, "\x{0644}\x{0670}\x{200C}\x{06ED}\x{06EF}", "to_unicode\(\'\\u0644\\u0670\\u200C\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:440\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{0670}\x{200C}\x{06ED}\x{06EF}", %p)}, "\x{0644}\x{0670}\x{200C}\x{06ED}\x{06EF}", "to_unicode\(\'\\u0644\\u0670\\u200C\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:441\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--ghb2gxqia", %p)}, "\x{0644}\x{0670}\x{06ED}\x{06EF}", "to_unicode\(\'xn\-\-ghb2gxqia\'\)\ \[data\/IdnaTest\.txt\:442\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{0670}\x{06ED}\x{06EF}", %p)}, "\x{0644}\x{0670}\x{06ED}\x{06EF}", "to_unicode\(\'\\u0644\\u0670\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:443\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--ghb2gxqia7523a", %p)}, "\x{0644}\x{0670}\x{200C}\x{06ED}\x{06EF}", "to_unicode\(\'xn\-\-ghb2gxqia7523a\'\)\ \[data\/IdnaTest\.txt\:444\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{0670}\x{200C}\x{06EF}", %p)}, "\x{0644}\x{0670}\x{200C}\x{06EF}", "to_unicode\(\'\\u0644\\u0670\\u200C\\u06EF\'\)\ \[data\/IdnaTest\.txt\:445\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{0670}\x{200C}\x{06EF}", %p)}, "\x{0644}\x{0670}\x{200C}\x{06EF}", "to_unicode\(\'\\u0644\\u0670\\u200C\\u06EF\'\)\ \[data\/IdnaTest\.txt\:446\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--ghb2g3q", %p)}, "\x{0644}\x{0670}\x{06EF}", "to_unicode\(\'xn\-\-ghb2g3q\'\)\ \[data\/IdnaTest\.txt\:447\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{0670}\x{06EF}", %p)}, "\x{0644}\x{0670}\x{06EF}", "to_unicode\(\'\\u0644\\u0670\\u06EF\'\)\ \[data\/IdnaTest\.txt\:448\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--ghb2g3qq34f", %p)}, "\x{0644}\x{0670}\x{200C}\x{06EF}", "to_unicode\(\'xn\-\-ghb2g3qq34f\'\)\ \[data\/IdnaTest\.txt\:449\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{200C}\x{06ED}\x{06EF}", %p)}, "\x{0644}\x{200C}\x{06ED}\x{06EF}", "to_unicode\(\'\\u0644\\u200C\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:450\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{200C}\x{06ED}\x{06EF}", %p)}, "\x{0644}\x{200C}\x{06ED}\x{06EF}", "to_unicode\(\'\\u0644\\u200C\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:451\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--ghb25aga", %p)}, "\x{0644}\x{06ED}\x{06EF}", "to_unicode\(\'xn\-\-ghb25aga\'\)\ \[data\/IdnaTest\.txt\:452\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{06ED}\x{06EF}", %p)}, "\x{0644}\x{06ED}\x{06EF}", "to_unicode\(\'\\u0644\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:453\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--ghb25aga828w", %p)}, "\x{0644}\x{200C}\x{06ED}\x{06EF}", "to_unicode\(\'xn\-\-ghb25aga828w\'\)\ \[data\/IdnaTest\.txt\:454\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{200C}\x{06EF}", %p)}, "\x{0644}\x{200C}\x{06EF}", "to_unicode\(\'\\u0644\\u200C\\u06EF\'\)\ \[data\/IdnaTest\.txt\:455\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{200C}\x{06EF}", %p)}, "\x{0644}\x{200C}\x{06EF}", "to_unicode\(\'\\u0644\\u200C\\u06EF\'\)\ \[data\/IdnaTest\.txt\:456\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--ghb65a", %p)}, "\x{0644}\x{06EF}", "to_unicode\(\'xn\-\-ghb65a\'\)\ \[data\/IdnaTest\.txt\:457\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{06EF}", %p)}, "\x{0644}\x{06EF}", "to_unicode\(\'\\u0644\\u06EF\'\)\ \[data\/IdnaTest\.txt\:458\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--ghb65a953d", %p)}, "\x{0644}\x{200C}\x{06EF}", "to_unicode\(\'xn\-\-ghb65a953d\'\)\ \[data\/IdnaTest\.txt\:459\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{0670}\x{200C}\x{06ED}", %p)}, undef, "to_unicode\(\'\\u0644\\u0670\\u200C\\u06ED\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:460\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{0670}\x{200C}\x{06ED}", %p)}, undef, "to_unicode\(\'\\u0644\\u0670\\u200C\\u06ED\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:461\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--ghb2gxq", %p)}, "\x{0644}\x{0670}\x{06ED}", "to_unicode\(\'xn\-\-ghb2gxq\'\)\ \[data\/IdnaTest\.txt\:462\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{0670}\x{06ED}", %p)}, "\x{0644}\x{0670}\x{06ED}", "to_unicode\(\'\\u0644\\u0670\\u06ED\'\)\ \[data\/IdnaTest\.txt\:463\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06EF}\x{200C}\x{06EF}", %p)}, undef, "to_unicode\(\'\\u06EF\\u200C\\u06EF\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:464\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06EF}\x{200C}\x{06EF}", %p)}, undef, "to_unicode\(\'\\u06EF\\u200C\\u06EF\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:465\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--cmba", %p)}, "\x{06EF}\x{06EF}", "to_unicode\(\'xn\-\-cmba\'\)\ \[data\/IdnaTest\.txt\:466\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06EF}\x{06EF}", %p)}, "\x{06EF}\x{06EF}", "to_unicode\(\'\\u06EF\\u06EF\'\)\ \[data\/IdnaTest\.txt\:467\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0644\\u200C\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:468\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0644\\u200C\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:469\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--ghb", %p)}, "\x{0644}", "to_unicode\(\'xn\-\-ghb\'\)\ \[data\/IdnaTest\.txt\:470\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}", %p)}, "\x{0644}", "to_unicode\(\'\\u0644\'\)\ \[data\/IdnaTest\.txt\:471\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒕∝\x{065F}򓤦．-󠄯", %p)}, undef, "to_unicode\(\'⒕\∝\\u065F\?．\-\󠄯\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:475\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("14.∝\x{065F}򓤦.-󠄯", %p)}, undef, "to_unicode\(\'14\.\∝\\u065F\?\.\-\󠄯\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:476\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("ꡣ.\x{07CF}", %p)}, "ꡣ.\x{07CF}", "to_unicode\(\'ꡣ\.\\u07CF\'\)\ \[data\/IdnaTest\.txt\:477\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("xn--8c9a.xn--qsb", %p)}, "ꡣ.\x{07CF}", "to_unicode\(\'xn\-\-8c9a\.xn\-\-qsb\'\)\ \[data\/IdnaTest\.txt\:478\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("≯\x{0603}｡-", %p)}, undef, "to_unicode\(\'\≯\\u0603｡\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:479\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}\x{0603}｡-", %p)}, undef, "to_unicode\(\'\>\\u0338\\u0603｡\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:480\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯\x{0603}。-", %p)}, undef, "to_unicode\(\'\≯\\u0603\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:481\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}\x{0603}。-", %p)}, undef, "to_unicode\(\'\>\\u0338\\u0603\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:482\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⾛𐹧⾕.\x{115F}󠗰ςႭ", %p)}, undef, "to_unicode\(\'⾛𐹧⾕\.\\u115F\?ςႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:483\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("走𐹧谷.\x{115F}󠗰ςႭ", %p)}, undef, "to_unicode\(\'走𐹧谷\.\\u115F\?ςႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:484\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("走𐹧谷.\x{115F}󠗰ςⴍ", %p)}, undef, "to_unicode\(\'走𐹧谷\.\\u115F\?ςⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:485\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("走𐹧谷.\x{115F}󠗰ΣႭ", %p)}, undef, "to_unicode\(\'走𐹧谷\.\\u115F\?ΣႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:486\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("走𐹧谷.\x{115F}󠗰σⴍ", %p)}, undef, "to_unicode\(\'走𐹧谷\.\\u115F\?σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:487\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("走𐹧谷.\x{115F}󠗰Σⴍ", %p)}, undef, "to_unicode\(\'走𐹧谷\.\\u115F\?Σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:488\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⾛𐹧⾕.\x{115F}󠗰ςⴍ", %p)}, undef, "to_unicode\(\'⾛𐹧⾕\.\\u115F\?ςⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:489\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⾛𐹧⾕.\x{115F}󠗰ΣႭ", %p)}, undef, "to_unicode\(\'⾛𐹧⾕\.\\u115F\?ΣႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:490\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⾛𐹧⾕.\x{115F}󠗰σⴍ", %p)}, undef, "to_unicode\(\'⾛𐹧⾕\.\\u115F\?σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:491\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⾛𐹧⾕.\x{115F}󠗰Σⴍ", %p)}, undef, "to_unicode\(\'⾛𐹧⾕\.\\u115F\?Σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:492\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}≠ᢙ≯.솣-ᡴႠ", %p)}, undef, "to_unicode\(\'\\u200D\≠ᢙ\≯\.솣\-ᡴႠ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:493\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}≠ᢙ≯.솣-ᡴႠ", %p)}, undef, "to_unicode\(\'\\u200D\≠ᢙ\≯\.솣\-ᡴႠ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:494\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}=\x{0338}ᢙ>\x{0338}.솣-ᡴႠ", %p)}, undef, "to_unicode\(\'\\u200D\=\\u0338ᢙ\>\\u0338\.솣\-ᡴႠ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:495\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}=\x{0338}ᢙ>\x{0338}.솣-ᡴႠ", %p)}, undef, "to_unicode\(\'\\u200D\=\\u0338ᢙ\>\\u0338\.솣\-ᡴႠ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:496\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}=\x{0338}ᢙ>\x{0338}.솣-ᡴⴀ", %p)}, undef, "to_unicode\(\'\\u200D\=\\u0338ᢙ\>\\u0338\.솣\-ᡴⴀ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:497\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}=\x{0338}ᢙ>\x{0338}.솣-ᡴⴀ", %p)}, undef, "to_unicode\(\'\\u200D\=\\u0338ᢙ\>\\u0338\.솣\-ᡴⴀ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:498\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}≠ᢙ≯.솣-ᡴⴀ", %p)}, undef, "to_unicode\(\'\\u200D\≠ᢙ\≯\.솣\-ᡴⴀ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:499\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}≠ᢙ≯.솣-ᡴⴀ", %p)}, undef, "to_unicode\(\'\\u200D\≠ᢙ\≯\.솣\-ᡴⴀ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:500\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񯞜．𐿇\x{0FA2}\x{077D}\x{0600}", %p)}, undef, "to_unicode\(\'\?．\?\\u0FA2\\u077D\\u0600\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:501\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񯞜．𐿇\x{0FA1}\x{0FB7}\x{077D}\x{0600}", %p)}, undef, "to_unicode\(\'\?．\?\\u0FA1\\u0FB7\\u077D\\u0600\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:502\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񯞜.𐿇\x{0FA1}\x{0FB7}\x{077D}\x{0600}", %p)}, undef, "to_unicode\(\'\?\.\?\\u0FA1\\u0FB7\\u077D\\u0600\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:503\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𣳔\x{0303}.𑓂", %p)}, undef, "to_unicode\(\'𣳔\\u0303\.𑓂\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:504\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𞤀𞥅񘐱。󠄌Ⴣꡥ", %p)}, undef, "to_unicode\(\'\?\?\?\。\󠄌Ⴣꡥ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:505\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤀𞥅񘐱。󠄌ⴣꡥ", %p)}, undef, "to_unicode\(\'\?\?\?\。\󠄌ⴣꡥ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:506\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08E2}𑁿ς𖬱。󠅡렧", %p)}, undef, "to_unicode\(\'\\u08E2𑁿ς𖬱\。\󠅡렧\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:507\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08E2}𑁿ς𖬱。󠅡렧", %p)}, undef, "to_unicode\(\'\\u08E2𑁿ς𖬱\。\󠅡렧\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:508\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08E2}𑁿Σ𖬱。󠅡렧", %p)}, undef, "to_unicode\(\'\\u08E2𑁿Σ𖬱\。\󠅡렧\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:509\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08E2}𑁿Σ𖬱。󠅡렧", %p)}, undef, "to_unicode\(\'\\u08E2𑁿Σ𖬱\。\󠅡렧\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:510\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08E2}𑁿σ𖬱。󠅡렧", %p)}, undef, "to_unicode\(\'\\u08E2𑁿σ𖬱\。\󠅡렧\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:511\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08E2}𑁿σ𖬱。󠅡렧", %p)}, undef, "to_unicode\(\'\\u08E2𑁿σ𖬱\。\󠅡렧\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:512\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{200D}。𞤍\x{200C}\x{200D}⒈", %p)}, undef, "to_unicode\(\'\-\\u200D\。\?\\u200C\\u200D⒈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:513\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{200D}。𞤍\x{200C}\x{200D}⒈", %p)}, undef, "to_unicode\(\'\-\\u200D\。\?\\u200C\\u200D⒈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:514\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("-\x{200D}。𞤍\x{200C}\x{200D}1.", %p)}, undef, "to_unicode\(\'\-\\u200D\。\?\\u200C\\u200D1\.\'\)\ throws\ error\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:515\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("-\x{200D}。𞤍\x{200C}\x{200D}1.", %p)}, undef, "to_unicode\(\'\-\\u200D\。\?\\u200C\\u200D1\.\'\)\ throws\ error\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:516\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200C}򅎭.Ⴒ𑇀", %p)}, undef, "to_unicode\(\'\\u200C\?\.Ⴒ𑇀\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:517\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}򅎭.Ⴒ𑇀", %p)}, undef, "to_unicode\(\'\\u200C\?\.Ⴒ𑇀\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:518\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}򅎭.ⴒ𑇀", %p)}, undef, "to_unicode\(\'\\u200C\?\.ⴒ𑇀\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:519\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}򅎭.ⴒ𑇀", %p)}, undef, "to_unicode\(\'\\u200C\?\.ⴒ𑇀\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:520\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("繱𑖿\x{200D}.８︒", %p)}, undef, "to_unicode\(\'繱𑖿\\u200D\.８︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:521\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("繱𑖿\x{200D}.8。", %p)}, "繱𑖿\x{200D}.8.", "to_unicode\(\'繱𑖿\\u200D\.8\。\'\)\ \[data\/IdnaTest\.txt\:522\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("繱𑖿\x{200D}.8。", %p)}, "繱𑖿\x{200D}.8.", "to_unicode\(\'繱𑖿\\u200D\.8\。\'\)\ \[data\/IdnaTest\.txt\:523\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--gl0as212a.8.", %p)}, "繱𑖿.8.", "to_unicode\(\'xn\-\-gl0as212a\.8\.\'\)\ \[data\/IdnaTest\.txt\:524\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("繱𑖿.8.", %p)}, "繱𑖿.8.", "to_unicode\(\'繱𑖿\.8\.\'\)\ \[data\/IdnaTest\.txt\:525\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--1ug6928ac48e.8.", %p)}, "繱𑖿\x{200D}.8.", "to_unicode\(\'xn\-\-1ug6928ac48e\.8\.\'\)\ \[data\/IdnaTest\.txt\:526\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("繱𑖿\x{200D}.8.", %p)}, "繱𑖿\x{200D}.8.", "to_unicode\(\'繱𑖿\\u200D\.8\.\'\)\ \[data\/IdnaTest\.txt\:527\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("繱𑖿\x{200D}.8.", %p)}, "繱𑖿\x{200D}.8.", "to_unicode\(\'繱𑖿\\u200D\.8\.\'\)\ \[data\/IdnaTest\.txt\:528\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("󠆾．𞀈", %p)}, undef, "to_unicode\(\'\󠆾．\?\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:529\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("󠆾.𞀈", %p)}, undef, "to_unicode\(\'\󠆾\.\?\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:530\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("ß\x{06EB}。\x{200D}", %p)}, undef, "to_unicode\(\'ß\\u06EB\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:531\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß\x{06EB}。\x{200D}", %p)}, undef, "to_unicode\(\'ß\\u06EB\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:532\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("SS\x{06EB}。\x{200D}", %p)}, undef, "to_unicode\(\'SS\\u06EB\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:533\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("SS\x{06EB}。\x{200D}", %p)}, undef, "to_unicode\(\'SS\\u06EB\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:534\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ss\x{06EB}。\x{200D}", %p)}, undef, "to_unicode\(\'ss\\u06EB\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:535\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ss\x{06EB}。\x{200D}", %p)}, undef, "to_unicode\(\'ss\\u06EB\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:536\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ss\x{06EB}。\x{200D}", %p)}, undef, "to_unicode\(\'Ss\\u06EB\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:537\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ss\x{06EB}。\x{200D}", %p)}, undef, "to_unicode\(\'Ss\\u06EB\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:538\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--ss-59d.", %p)}, "ss\x{06EB}.", "to_unicode\(\'xn\-\-ss\-59d\.\'\)\ \[data\/IdnaTest\.txt\:539\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ss\x{06EB}.", %p)}, "ss\x{06EB}.", "to_unicode\(\'ss\\u06EB\.\'\)\ \[data\/IdnaTest\.txt\:540\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("SS\x{06EB}.", %p)}, "ss\x{06EB}.", "to_unicode\(\'SS\\u06EB\.\'\)\ \[data\/IdnaTest\.txt\:541\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ss\x{06EB}.", %p)}, "ss\x{06EB}.", "to_unicode\(\'Ss\\u06EB\.\'\)\ \[data\/IdnaTest\.txt\:542\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠐵\x{200C}⒈．󠎇", %p)}, undef, "to_unicode\(\'\?\\u200C⒈．\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:543\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠐵\x{200C}⒈．󠎇", %p)}, undef, "to_unicode\(\'\?\\u200C⒈．\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:544\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠐵\x{200C}1..󠎇", %p)}, undef, "to_unicode\(\'\?\\u200C1\.\.\?\'\)\ throws\ error\ P1\ V6\ C1\ A4_2\ \[data\/IdnaTest\.txt\:545\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠐵\x{200C}1..󠎇", %p)}, undef, "to_unicode\(\'\?\\u200C1\.\.\?\'\)\ throws\ error\ P1\ V6\ C1\ A4_2\ \[data\/IdnaTest\.txt\:546\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󟈣\x{065F}\x{AAB2}ß。󌓧", %p)}, undef, "to_unicode\(\'\?\\u065F\\uAAB2ß\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:547\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󟈣\x{065F}\x{AAB2}SS。󌓧", %p)}, undef, "to_unicode\(\'\?\\u065F\\uAAB2SS\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:548\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󟈣\x{065F}\x{AAB2}ss。󌓧", %p)}, undef, "to_unicode\(\'\?\\u065F\\uAAB2ss\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:549\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󟈣\x{065F}\x{AAB2}Ss。󌓧", %p)}, undef, "to_unicode\(\'\?\\u065F\\uAAB2Ss\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:550\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0774}\x{200C}𞤿。𽘐䉜\x{200D}񿤼", %p)}, undef, "to_unicode\(\'\\u0774\\u200C\?\。\?䉜\\u200D\?\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:551\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0774}\x{200C}𞤿。𽘐䉜\x{200D}񿤼", %p)}, undef, "to_unicode\(\'\\u0774\\u200C\?\。\?䉜\\u200D\?\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:552\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔭜ςᡱ⒈.≮𑄳\x{200D}𐮍", %p)}, undef, "to_unicode\(\'\?ςᡱ⒈\.\≮𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:553\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔭜ςᡱ⒈.<\x{0338}𑄳\x{200D}𐮍", %p)}, undef, "to_unicode\(\'\?ςᡱ⒈\.\<\\u0338𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:554\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔭜ςᡱ1..≮𑄳\x{200D}𐮍", %p)}, undef, "to_unicode\(\'\?ςᡱ1\.\.\≮𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:555\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔭜ςᡱ1..<\x{0338}𑄳\x{200D}𐮍", %p)}, undef, "to_unicode\(\'\?ςᡱ1\.\.\<\\u0338𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:556\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔭜Σᡱ1..<\x{0338}𑄳\x{200D}𐮍", %p)}, undef, "to_unicode\(\'\?Σᡱ1\.\.\<\\u0338𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:557\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔭜Σᡱ1..≮𑄳\x{200D}𐮍", %p)}, undef, "to_unicode\(\'\?Σᡱ1\.\.\≮𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:558\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔭜σᡱ1..≮𑄳\x{200D}𐮍", %p)}, undef, "to_unicode\(\'\?σᡱ1\.\.\≮𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:559\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔭜σᡱ1..<\x{0338}𑄳\x{200D}𐮍", %p)}, undef, "to_unicode\(\'\?σᡱ1\.\.\<\\u0338𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:560\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔭜Σᡱ⒈.<\x{0338}𑄳\x{200D}𐮍", %p)}, undef, "to_unicode\(\'\?Σᡱ⒈\.\<\\u0338𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:561\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔭜Σᡱ⒈.≮𑄳\x{200D}𐮍", %p)}, undef, "to_unicode\(\'\?Σᡱ⒈\.\≮𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:562\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔭜σᡱ⒈.≮𑄳\x{200D}𐮍", %p)}, undef, "to_unicode\(\'\?σᡱ⒈\.\≮𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:563\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔭜σᡱ⒈.<\x{0338}𑄳\x{200D}𐮍", %p)}, undef, "to_unicode\(\'\?σᡱ⒈\.\<\\u0338𑄳\\u200D𐮍\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:564\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{3164}\x{094D}Ⴀ\x{17D0}.\x{180B}", %p)}, undef, "to_unicode\(\'\\u3164\\u094DႠ\\u17D0\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:565\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1160}\x{094D}Ⴀ\x{17D0}.\x{180B}", %p)}, undef, "to_unicode\(\'\\u1160\\u094DႠ\\u17D0\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:566\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1160}\x{094D}ⴀ\x{17D0}.\x{180B}", %p)}, undef, "to_unicode\(\'\\u1160\\u094Dⴀ\\u17D0\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:567\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{3164}\x{094D}ⴀ\x{17D0}.\x{180B}", %p)}, undef, "to_unicode\(\'\\u3164\\u094Dⴀ\\u17D0\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:568\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("❣\x{200D}．\x{09CD}𑰽\x{0612}\x{A929}", %p)}, undef, "to_unicode\(\'\❣\\u200D．\\u09CD\?\\u0612\\uA929\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:569\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("❣\x{200D}．\x{09CD}𑰽\x{0612}\x{A929}", %p)}, undef, "to_unicode\(\'\❣\\u200D．\\u09CD\?\\u0612\\uA929\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:570\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("❣\x{200D}.\x{09CD}𑰽\x{0612}\x{A929}", %p)}, undef, "to_unicode\(\'\❣\\u200D\.\\u09CD\?\\u0612\\uA929\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:571\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("❣\x{200D}.\x{09CD}𑰽\x{0612}\x{A929}", %p)}, undef, "to_unicode\(\'\❣\\u200D\.\\u09CD\?\\u0612\\uA929\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:572\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("≮𐳺𐹄.≯񪮸ꡅ", %p)}, undef, "to_unicode\(\'\≮𐳺\?\.\≯\?ꡅ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:573\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}𐳺𐹄.>\x{0338}񪮸ꡅ", %p)}, undef, "to_unicode\(\'\<\\u0338𐳺\?\.\>\\u0338\?ꡅ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:574\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0CCC}𐧅𐳏󠲺｡\x{0CCD}ᠦ", %p)}, undef, "to_unicode\(\'\\u0CCC𐧅𐳏\?｡\\u0CCDᠦ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:575\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0CCC}𐧅𐳏󠲺。\x{0CCD}ᠦ", %p)}, undef, "to_unicode\(\'\\u0CCC𐧅𐳏\?\。\\u0CCDᠦ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:576\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0CCC}𐧅𐲏󠲺。\x{0CCD}ᠦ", %p)}, undef, "to_unicode\(\'\\u0CCC𐧅𐲏\?\。\\u0CCDᠦ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:577\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0CCC}𐧅𐲏󠲺｡\x{0CCD}ᠦ", %p)}, undef, "to_unicode\(\'\\u0CCC𐧅𐲏\?｡\\u0CCDᠦ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:578\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0349}。𧡫", %p)}, undef, "to_unicode\(\'\\u0349\。𧡫\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:579\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰿󠅦．\x{1160}", %p)}, undef, "to_unicode\(\'\?\󠅦．\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:580\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰿󠅦.\x{1160}", %p)}, undef, "to_unicode\(\'\?\󠅦\.\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:581\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-𞤆\x{200D}。󸼄𞳒", %p)}, undef, "to_unicode\(\'\-\?\\u200D\。\?\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:582\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-𞤆\x{200D}。󸼄𞳒", %p)}, undef, "to_unicode\(\'\-\?\\u200D\。\?\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:583\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡏ󠇶≯𳾽。\x{1DFD}⾇滸𐹰", %p)}, undef, "to_unicode\(\'ꡏ\?\≯\?\。\\u1DFD⾇滸𐹰\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:584\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡏ󠇶>\x{0338}𳾽。\x{1DFD}⾇滸𐹰", %p)}, undef, "to_unicode\(\'ꡏ\?\>\\u0338\?\。\\u1DFD⾇滸𐹰\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:585\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡏ󠇶≯𳾽。\x{1DFD}舛滸𐹰", %p)}, undef, "to_unicode\(\'ꡏ\?\≯\?\。\\u1DFD舛滸𐹰\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:586\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡏ󠇶>\x{0338}𳾽。\x{1DFD}舛滸𐹰", %p)}, undef, "to_unicode\(\'ꡏ\?\>\\u0338\?\。\\u1DFD舛滸𐹰\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:587\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("蔏｡𑰺", %p)}, undef, "to_unicode\(\'蔏｡\?\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:588\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("蔏。𑰺", %p)}, undef, "to_unicode\(\'蔏\。\?\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:589\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𝟿𐮋。󠄊", %p)}, undef, "to_unicode\(\'𝟿𐮋\。\󠄊\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:590\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("9𐮋。󠄊", %p)}, undef, "to_unicode\(\'9𐮋\。\󠄊\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:591\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("󟇇-䟖F。\x{07CB}⒈\x{0662}", %p)}, undef, "to_unicode\(\'\?\-䟖F\。\\u07CB⒈\\u0662\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:592\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󟇇-䟖F。\x{07CB}1.\x{0662}", %p)}, undef, "to_unicode\(\'\?\-䟖F\。\\u07CB1\.\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:593\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󟇇-䟖f。\x{07CB}1.\x{0662}", %p)}, undef, "to_unicode\(\'\?\-䟖f\。\\u07CB1\.\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:594\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󟇇-䟖f。\x{07CB}⒈\x{0662}", %p)}, undef, "to_unicode\(\'\?\-䟖f\。\\u07CB⒈\\u0662\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:595\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}｡𐹺", %p)}, undef, "to_unicode\(\'\\u200C｡𐹺\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:596\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}｡𐹺", %p)}, undef, "to_unicode\(\'\\u200C｡𐹺\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:597\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}。𐹺", %p)}, undef, "to_unicode\(\'\\u200C\。𐹺\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:598\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}。𐹺", %p)}, undef, "to_unicode\(\'\\u200C\。𐹺\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:599\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𐡆.≯\x{200C}-𞥀", %p)}, undef, "to_unicode\(\'𐡆\.\≯\\u200C\-\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:600\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐡆.≯\x{200C}-𞥀", %p)}, undef, "to_unicode\(\'𐡆\.\≯\\u200C\-\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:601\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐡆.>\x{0338}\x{200C}-𞥀", %p)}, undef, "to_unicode\(\'𐡆\.\>\\u0338\\u200C\-\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:602\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐡆.>\x{0338}\x{200C}-𞥀", %p)}, undef, "to_unicode\(\'𐡆\.\>\\u0338\\u200C\-\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:603\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠁀-。≠\x{FCD7}", %p)}, undef, "to_unicode\(\'\?\-\。\≠\\uFCD7\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:604\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠁀-。=\x{0338}\x{FCD7}", %p)}, undef, "to_unicode\(\'\?\-\。\=\\u0338\\uFCD7\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:605\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠁀-。≠\x{0647}\x{062C}", %p)}, undef, "to_unicode\(\'\?\-\。\≠\\u0647\\u062C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:606\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠁀-。=\x{0338}\x{0647}\x{062C}", %p)}, undef, "to_unicode\(\'\?\-\。\=\\u0338\\u0647\\u062C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:607\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻬹𑈵。\x{200D}𞨶", %p)}, undef, "to_unicode\(\'\?𑈵\。\\u200D\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:608\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻬹𑈵。\x{200D}𞨶", %p)}, undef, "to_unicode\(\'\?𑈵\。\\u200D\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:609\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑋧\x{A9C0}2｡㧉򒖄", %p)}, undef, "to_unicode\(\'𑋧\\uA9C02｡㧉\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:610\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑋧\x{A9C0}2。㧉򒖄", %p)}, undef, "to_unicode\(\'𑋧\\uA9C02\。㧉\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:611\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𽬄𐹴𞩥。≯6", %p)}, undef, "to_unicode\(\'\\u200C\?𐹴\?\。\≯6\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:612\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𽬄𐹴𞩥。≯6", %p)}, undef, "to_unicode\(\'\\u200C\?𐹴\?\。\≯6\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:613\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𽬄𐹴𞩥。>\x{0338}6", %p)}, undef, "to_unicode\(\'\\u200C\?𐹴\?\。\>\\u03386\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:614\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𽬄𐹴𞩥。>\x{0338}6", %p)}, undef, "to_unicode\(\'\\u200C\?𐹴\?\。\>\\u03386\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:615\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑁿．𐹦𻞵-\x{200D}", %p)}, undef, "to_unicode\(\'𑁿．𐹦\?\-\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:616\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑁿．𐹦𻞵-\x{200D}", %p)}, undef, "to_unicode\(\'𑁿．𐹦\?\-\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:617\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑁿.𐹦𻞵-\x{200D}", %p)}, undef, "to_unicode\(\'𑁿\.𐹦\?\-\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:618\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑁿.𐹦𻞵-\x{200D}", %p)}, undef, "to_unicode\(\'𑁿\.𐹦\?\-\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:619\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⤸ς𺱀｡\x{FFA0}", %p)}, undef, "to_unicode\(\'\⤸ς\?｡\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:620\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⤸ς𺱀。\x{1160}", %p)}, undef, "to_unicode\(\'\⤸ς\?\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:621\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⤸Σ𺱀。\x{1160}", %p)}, undef, "to_unicode\(\'\⤸Σ\?\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:622\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⤸σ𺱀。\x{1160}", %p)}, undef, "to_unicode\(\'\⤸σ\?\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:623\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⤸Σ𺱀｡\x{FFA0}", %p)}, undef, "to_unicode\(\'\⤸Σ\?｡\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:624\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⤸σ𺱀｡\x{FFA0}", %p)}, undef, "to_unicode\(\'\⤸σ\?｡\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:625\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0765}\x{1035}𐫔\x{06D5}.𐦬𑋪Ⴃ", %p)}, undef, "to_unicode\(\'\\u0765\\u1035𐫔\\u06D5\.𐦬𑋪Ⴃ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:626\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0765}\x{1035}𐫔\x{06D5}.𐦬𑋪ⴃ", %p)}, undef, "to_unicode\(\'\\u0765\\u1035𐫔\\u06D5\.𐦬𑋪ⴃ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:627\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{0661}\x{1B44}-킼.\x{1BAA}\x{0616}\x{066C}≯", %p)}, undef, "to_unicode\(\'\\u0661\\u1B44\-킼\.\\u1BAA\\u0616\\u066C\≯\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:628\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0661}\x{1B44}-킼.\x{1BAA}\x{0616}\x{066C}>\x{0338}", %p)}, undef, "to_unicode\(\'\\u0661\\u1B44\-킼\.\\u1BAA\\u0616\\u066C\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:629\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-。\x{06C2}\x{0604}򅖡𑓂", %p)}, undef, "to_unicode\(\'\-\。\\u06C2\\u0604\?𑓂\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:630\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-。\x{06C1}\x{0654}\x{0604}򅖡𑓂", %p)}, undef, "to_unicode\(\'\-\。\\u06C1\\u0654\\u0604\?𑓂\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:631\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}󯑖󠁐．\x{05BD}𙮰ꡝ𐋡", %p)}, undef, "to_unicode\(\'\\u200D\?\?．\\u05BD\?ꡝ𐋡\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:632\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}󯑖󠁐．\x{05BD}𙮰ꡝ𐋡", %p)}, undef, "to_unicode\(\'\\u200D\?\?．\\u05BD\?ꡝ𐋡\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:633\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}󯑖󠁐.\x{05BD}𙮰ꡝ𐋡", %p)}, undef, "to_unicode\(\'\\u200D\?\?\.\\u05BD\?ꡝ𐋡\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:634\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}󯑖󠁐.\x{05BD}𙮰ꡝ𐋡", %p)}, undef, "to_unicode\(\'\\u200D\?\?\.\\u05BD\?ꡝ𐋡\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:635\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("︒􃈵ς񀠇｡𐮈", %p)}, undef, "to_unicode\(\'︒\?ς\?｡𐮈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:636\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("。􃈵ς񀠇。𐮈", %p)}, undef, "to_unicode\(\'\。\?ς\?\。𐮈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:637\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("。􃈵Σ񀠇。𐮈", %p)}, undef, "to_unicode\(\'\。\?Σ\?\。𐮈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:638\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("。􃈵σ񀠇。𐮈", %p)}, undef, "to_unicode\(\'\。\?σ\?\。𐮈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:639\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("︒􃈵Σ񀠇｡𐮈", %p)}, undef, "to_unicode\(\'︒\?Σ\?｡𐮈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:640\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("︒􃈵σ񀠇｡𐮈", %p)}, undef, "to_unicode\(\'︒\?σ\?｡𐮈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:641\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07D9}．\x{06EE}󆾃≯󠅲", %p)}, undef, "to_unicode\(\'\\u07D9．\\u06EE\?\≯\󠅲\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:642\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07D9}．\x{06EE}󆾃>\x{0338}󠅲", %p)}, undef, "to_unicode\(\'\\u07D9．\\u06EE\?\>\\u0338\󠅲\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:643\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07D9}.\x{06EE}󆾃≯󠅲", %p)}, undef, "to_unicode\(\'\\u07D9\.\\u06EE\?\≯\󠅲\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:644\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07D9}.\x{06EE}󆾃>\x{0338}󠅲", %p)}, undef, "to_unicode\(\'\\u07D9\.\\u06EE\?\>\\u0338\󠅲\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:645\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1A73}󚙸.𐭍", %p)}, undef, "to_unicode\(\'\\u1A73\?\.𐭍\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:646\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒉󠊓≠｡Ⴟ⬣Ⴈ", %p)}, undef, "to_unicode\(\'⒉\?\≠｡Ⴟ\⬣Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:647\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒉󠊓=\x{0338}｡Ⴟ⬣Ⴈ", %p)}, undef, "to_unicode\(\'⒉\?\=\\u0338｡Ⴟ\⬣Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:648\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("2.󠊓≠。Ⴟ⬣Ⴈ", %p)}, undef, "to_unicode\(\'2\.\?\≠\。Ⴟ\⬣Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:649\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("2.󠊓=\x{0338}。Ⴟ⬣Ⴈ", %p)}, undef, "to_unicode\(\'2\.\?\=\\u0338\。Ⴟ\⬣Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:650\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("2.󠊓=\x{0338}。ⴟ⬣ⴈ", %p)}, undef, "to_unicode\(\'2\.\?\=\\u0338\。ⴟ\⬣ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:651\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("2.󠊓≠。ⴟ⬣ⴈ", %p)}, undef, "to_unicode\(\'2\.\?\≠\。ⴟ\⬣ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:652\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒉󠊓=\x{0338}｡ⴟ⬣ⴈ", %p)}, undef, "to_unicode\(\'⒉\?\=\\u0338｡ⴟ\⬣ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:653\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒉󠊓≠｡ⴟ⬣ⴈ", %p)}, undef, "to_unicode\(\'⒉\?\≠｡ⴟ\⬣ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:654\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-󠉱\x{0FB8}Ⴥ。-𐹽\x{0774}𞣑", %p)}, undef, "to_unicode\(\'\-\?\\u0FB8Ⴥ\。\-𐹽\\u0774𞣑\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:655\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-󠉱\x{0FB8}ⴥ。-𐹽\x{0774}𞣑", %p)}, undef, "to_unicode\(\'\-\?\\u0FB8ⴥ\。\-𐹽\\u0774𞣑\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:656\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0659}。𑄴︒\x{0627}\x{07DD}", %p)}, undef, "to_unicode\(\'\\u0659\。𑄴︒\\u0627\\u07DD\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:657\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{0659}。𑄴。\x{0627}\x{07DD}", %p)}, undef, "to_unicode\(\'\\u0659\。𑄴\。\\u0627\\u07DD\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:658\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ⴙ\x{0638}.󠆓\x{200D}", %p)}, undef, "to_unicode\(\'Ⴙ\\u0638\.\󠆓\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:659\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴙ\x{0638}.󠆓\x{200D}", %p)}, undef, "to_unicode\(\'Ⴙ\\u0638\.\󠆓\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:660\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴙ\x{0638}.󠆓\x{200D}", %p)}, undef, "to_unicode\(\'ⴙ\\u0638\.\󠆓\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:661\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴙ\x{0638}.󠆓\x{200D}", %p)}, undef, "to_unicode\(\'ⴙ\\u0638\.\󠆓\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:662\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("󠆸｡₆０𐺧\x{0756}", %p)}, undef, "to_unicode\(\'\󠆸｡₆０\?\\u0756\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:663\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠆸。60𐺧\x{0756}", %p)}, undef, "to_unicode\(\'\󠆸\。60\?\\u0756\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:664\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("6\x{084F}｡-𑈴", %p)}, undef, "to_unicode\(\'6\\u084F｡\-𑈴\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:665\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("6\x{084F}。-𑈴", %p)}, undef, "to_unicode\(\'6\\u084F\。\-𑈴\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:666\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200D}񋌿𐹰｡\x{0ACD}ς𞰎\x{08D6}", %p)}, undef, "to_unicode\(\'\\u200D\?𐹰｡\\u0ACDς\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:667\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}񋌿𐹰｡\x{0ACD}ς𞰎\x{08D6}", %p)}, undef, "to_unicode\(\'\\u200D\?𐹰｡\\u0ACDς\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:668\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}񋌿𐹰。\x{0ACD}ς𞰎\x{08D6}", %p)}, undef, "to_unicode\(\'\\u200D\?𐹰\。\\u0ACDς\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:669\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}񋌿𐹰。\x{0ACD}ς𞰎\x{08D6}", %p)}, undef, "to_unicode\(\'\\u200D\?𐹰\。\\u0ACDς\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:670\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}񋌿𐹰。\x{0ACD}Σ𞰎\x{08D6}", %p)}, undef, "to_unicode\(\'\\u200D\?𐹰\。\\u0ACDΣ\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:671\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}񋌿𐹰。\x{0ACD}Σ𞰎\x{08D6}", %p)}, undef, "to_unicode\(\'\\u200D\?𐹰\。\\u0ACDΣ\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:672\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}񋌿𐹰。\x{0ACD}σ𞰎\x{08D6}", %p)}, undef, "to_unicode\(\'\\u200D\?𐹰\。\\u0ACDσ\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:673\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}񋌿𐹰。\x{0ACD}σ𞰎\x{08D6}", %p)}, undef, "to_unicode\(\'\\u200D\?𐹰\。\\u0ACDσ\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:674\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}񋌿𐹰｡\x{0ACD}Σ𞰎\x{08D6}", %p)}, undef, "to_unicode\(\'\\u200D\?𐹰｡\\u0ACDΣ\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:675\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}񋌿𐹰｡\x{0ACD}Σ𞰎\x{08D6}", %p)}, undef, "to_unicode\(\'\\u200D\?𐹰｡\\u0ACDΣ\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:676\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}񋌿𐹰｡\x{0ACD}σ𞰎\x{08D6}", %p)}, undef, "to_unicode\(\'\\u200D\?𐹰｡\\u0ACDσ\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:677\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}񋌿𐹰｡\x{0ACD}σ𞰎\x{08D6}", %p)}, undef, "to_unicode\(\'\\u200D\?𐹰｡\\u0ACDσ\?\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:678\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈񟄜Ⴓ⒪．\x{0DCA}򘘶\x{088B}𐹢", %p)}, undef, "to_unicode\(\'⒈\?Ⴓ⒪．\\u0DCA\?\\u088B𐹢\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:679\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.񟄜Ⴓ(o).\x{0DCA}򘘶\x{088B}𐹢", %p)}, undef, "to_unicode\(\'1\.\?Ⴓ\(o\)\.\\u0DCA\?\\u088B𐹢\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:680\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.񟄜ⴓ(o).\x{0DCA}򘘶\x{088B}𐹢", %p)}, undef, "to_unicode\(\'1\.\?ⴓ\(o\)\.\\u0DCA\?\\u088B𐹢\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:681\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.񟄜Ⴓ(O).\x{0DCA}򘘶\x{088B}𐹢", %p)}, undef, "to_unicode\(\'1\.\?Ⴓ\(O\)\.\\u0DCA\?\\u088B𐹢\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:682\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈񟄜ⴓ⒪．\x{0DCA}򘘶\x{088B}𐹢", %p)}, undef, "to_unicode\(\'⒈\?ⴓ⒪．\\u0DCA\?\\u088B𐹢\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:683\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤷.𐮐𞢁𐹠\x{0624}", %p)}, "𞤷.𐮐𞢁𐹠\x{0624}", "to_unicode\(\'\?\.𐮐𞢁𐹠\\u0624\'\)\ \[data\/IdnaTest\.txt\:684\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤷.𐮐𞢁𐹠\x{0648}\x{0654}", %p)}, "𞤷.𐮐𞢁𐹠\x{0624}", "to_unicode\(\'\?\.𐮐𞢁𐹠\\u0648\\u0654\'\)\ \[data\/IdnaTest\.txt\:685\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("xn--ve6h.xn--jgb1694kz0b2176a", %p)}, "𞤷.𐮐𞢁𐹠\x{0624}", "to_unicode\(\'xn\-\-ve6h\.xn\-\-jgb1694kz0b2176a\'\)\ \[data\/IdnaTest\.txt\:686\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𐲈-｡𑄳񢌻", %p)}, undef, "to_unicode\(\'𐲈\-｡𑄳\?\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:687\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐲈-。𑄳񢌻", %p)}, undef, "to_unicode\(\'𐲈\-\。𑄳\?\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:688\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐳈-。𑄳񢌻", %p)}, undef, "to_unicode\(\'𐳈\-\。𑄳\?\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:689\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐳈-｡𑄳񢌻", %p)}, undef, "to_unicode\(\'𐳈\-｡𑄳\?\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:690\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-󠉖ꡧ．󠊂񇆃🄉", %p)}, undef, "to_unicode\(\'\-\?ꡧ．\?\?🄉\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:691\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-󠉖ꡧ.󠊂񇆃8,", %p)}, undef, "to_unicode\(\'\-\?ꡧ\.\?\?8\,\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:692\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠾛󠈴臯𧔤.\x{0768}𝟝", %p)}, undef, "to_unicode\(\'\?\?臯𧔤\.\\u0768𝟝\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:693\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠾛󠈴臯𧔤.\x{0768}5", %p)}, undef, "to_unicode\(\'\?\?臯𧔤\.\\u07685\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:694\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮𐹣．𝨿", %p)}, undef, "to_unicode\(\'\≮𐹣．𝨿\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:695\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}𐹣．𝨿", %p)}, undef, "to_unicode\(\'\<\\u0338𐹣．𝨿\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:696\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮𐹣.𝨿", %p)}, undef, "to_unicode\(\'\≮𐹣\.𝨿\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:697\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}𐹣.𝨿", %p)}, undef, "to_unicode\(\'\<\\u0338𐹣\.𝨿\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:698\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("𐹯ᯛ\x{0A4D}｡脥", %p)}, undef, "to_unicode\(\'𐹯ᯛ\\u0A4D｡脥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:699\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("𐹯ᯛ\x{0A4D}。脥", %p)}, undef, "to_unicode\(\'𐹯ᯛ\\u0A4D\。脥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:700\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{1B44}\x{115F}𞷿򃀍.-", %p)}, undef, "to_unicode\(\'\\u1B44\\u115F\?\?\.\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:701\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}｡\x{0354}", %p)}, undef, "to_unicode\(\'\\u200C｡\\u0354\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:702\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}｡\x{0354}", %p)}, undef, "to_unicode\(\'\\u200C｡\\u0354\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:703\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}。\x{0354}", %p)}, undef, "to_unicode\(\'\\u200C\。\\u0354\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:704\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}。\x{0354}", %p)}, undef, "to_unicode\(\'\\u200C\。\\u0354\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:705\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤥󠅮．ᡄႮ", %p)}, undef, "to_unicode\(\'\?\󠅮．ᡄႮ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:706\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤥󠅮.ᡄႮ", %p)}, undef, "to_unicode\(\'\?\󠅮\.ᡄႮ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:707\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤥󠅮.ᡄⴎ", %p)}, "𞤥.ᡄⴎ", "to_unicode\(\'\?\󠅮\.ᡄⴎ\'\)\ \[data\/IdnaTest\.txt\:708\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("xn--de6h.xn--37e857h", %p)}, "𞤥.ᡄⴎ", "to_unicode\(\'xn\-\-de6h\.xn\-\-37e857h\'\)\ \[data\/IdnaTest\.txt\:709\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤥.ᡄⴎ", %p)}, "𞤥.ᡄⴎ", "to_unicode\(\'\?\.ᡄⴎ\'\)\ \[data\/IdnaTest\.txt\:710\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𞤥.ᡄႮ", %p)}, undef, "to_unicode\(\'\?\.ᡄႮ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:711\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤥󠅮．ᡄⴎ", %p)}, "𞤥.ᡄⴎ", "to_unicode\(\'\?\󠅮．ᡄⴎ\'\)\ \[data\/IdnaTest\.txt\:712\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤧𝨨Ξ．𪺏㛨❸", %p)}, undef, "to_unicode\(\'\?𝨨Ξ．𪺏㛨❸\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:713\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤧𝨨Ξ.𪺏㛨❸", %p)}, undef, "to_unicode\(\'\?𝨨Ξ\.𪺏㛨❸\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:714\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤧𝨨ξ.𪺏㛨❸", %p)}, undef, "to_unicode\(\'\?𝨨ξ\.𪺏㛨❸\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:715\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤧𝨨ξ．𪺏㛨❸", %p)}, undef, "to_unicode\(\'\?𝨨ξ．𪺏㛨❸\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:716\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("᠆몆\x{200C}-｡Ⴛ𐦅︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-｡Ⴛ𐦅︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:717\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("᠆몆\x{200C}-｡Ⴛ𐦅︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-｡Ⴛ𐦅︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:718\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("᠆몆\x{200C}-｡Ⴛ𐦅︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-｡Ⴛ𐦅︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:719\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("᠆몆\x{200C}-｡Ⴛ𐦅︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-｡Ⴛ𐦅︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:720\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ𐦅。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。Ⴛ𐦅\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:721\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ𐦅。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。Ⴛ𐦅\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:722\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ𐦅。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。Ⴛ𐦅\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:723\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ𐦅。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。Ⴛ𐦅\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:724\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ𐦅。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。ⴛ𐦅\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:725\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ𐦅。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。ⴛ𐦅\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:726\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ𐦅。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。ⴛ𐦅\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:727\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ𐦅。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。ⴛ𐦅\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:728\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("᠆몆\x{200C}-｡ⴛ𐦅︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-｡ⴛ𐦅︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:729\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("᠆몆\x{200C}-｡ⴛ𐦅︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-｡ⴛ𐦅︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:730\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("᠆몆\x{200C}-｡ⴛ𐦅︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-｡ⴛ𐦅︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:731\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("᠆몆\x{200C}-｡ⴛ𐦅︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-｡ⴛ𐦅︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:732\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠾳.︒⥱\x{200C}𐹬", %p)}, undef, "to_unicode\(\'\?\.︒\⥱\\u200C𐹬\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:733\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠾳.︒⥱\x{200C}𐹬", %p)}, undef, "to_unicode\(\'\?\.︒\⥱\\u200C𐹬\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:734\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠾳.。⥱\x{200C}𐹬", %p)}, undef, "to_unicode\(\'\?\.\。\⥱\\u200C𐹬\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ C1\ \[data\/IdnaTest\.txt\:735\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠾳.。⥱\x{200C}𐹬", %p)}, undef, "to_unicode\(\'\?\.\。\⥱\\u200C𐹬\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ C1\ \[data\/IdnaTest\.txt\:736\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐯖.𐹠Ⴑ񚇜𐫊", %p)}, undef, "to_unicode\(\'\?\.𐹠Ⴑ\?𐫊\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:737\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐯖.𐹠ⴑ񚇜𐫊", %p)}, undef, "to_unicode\(\'\?\.𐹠ⴑ\?𐫊\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:738\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0FA4}񱤯．𝟭Ⴛ", %p)}, undef, "to_unicode\(\'\\u0FA4\?．𝟭Ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:739\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0FA4}񱤯.1Ⴛ", %p)}, undef, "to_unicode\(\'\\u0FA4\?\.1Ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:740\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0FA4}񱤯.1ⴛ", %p)}, undef, "to_unicode\(\'\\u0FA4\?\.1ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:741\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0FA4}񱤯．𝟭ⴛ", %p)}, undef, "to_unicode\(\'\\u0FA4\?．𝟭ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:742\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{0826}齀。릿𐸋", %p)}, undef, "to_unicode\(\'\-\\u0826齀\。릿\?\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:743\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{0826}齀。릿𐸋", %p)}, undef, "to_unicode\(\'\-\\u0826齀\。릿\?\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:744\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠔊\x{071C}鹝꾗。񾵐\x{200D}\x{200D}⏃", %p)}, undef, "to_unicode\(\'\?\\u071C鹝꾗\。\?\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:745\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠔊\x{071C}鹝꾗。񾵐\x{200D}\x{200D}⏃", %p)}, undef, "to_unicode\(\'\?\\u071C鹝꾗\。\?\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:746\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠔊\x{071C}鹝꾗。񾵐\x{200D}\x{200D}⏃", %p)}, undef, "to_unicode\(\'\?\\u071C鹝꾗\。\?\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:747\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠔊\x{071C}鹝꾗。񾵐\x{200D}\x{200D}⏃", %p)}, undef, "to_unicode\(\'\?\\u071C鹝꾗\。\?\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:748\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮．-\x{0708}--", %p)}, undef, "to_unicode\(\'\≮．\-\\u0708\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:749\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}．-\x{0708}--", %p)}, undef, "to_unicode\(\'\<\\u0338．\-\\u0708\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:750\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮.-\x{0708}--", %p)}, undef, "to_unicode\(\'\≮\.\-\\u0708\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:751\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}.-\x{0708}--", %p)}, undef, "to_unicode\(\'\<\\u0338\.\-\\u0708\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:752\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹸󠋳。\x{200D}ς𝟩", %p)}, undef, "to_unicode\(\'𐹸\?\。\\u200Dς𝟩\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:753\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹸󠋳。\x{200D}ς𝟩", %p)}, undef, "to_unicode\(\'𐹸\?\。\\u200Dς𝟩\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:754\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹸󠋳。\x{200D}ς7", %p)}, undef, "to_unicode\(\'𐹸\?\。\\u200Dς7\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:755\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹸󠋳。\x{200D}ς7", %p)}, undef, "to_unicode\(\'𐹸\?\。\\u200Dς7\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:756\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹸󠋳。\x{200D}Σ7", %p)}, undef, "to_unicode\(\'𐹸\?\。\\u200DΣ7\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:757\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹸󠋳。\x{200D}Σ7", %p)}, undef, "to_unicode\(\'𐹸\?\。\\u200DΣ7\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:758\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹸󠋳。\x{200D}σ7", %p)}, undef, "to_unicode\(\'𐹸\?\。\\u200Dσ7\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:759\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹸󠋳。\x{200D}σ7", %p)}, undef, "to_unicode\(\'𐹸\?\。\\u200Dσ7\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:760\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹸󠋳。\x{200D}Σ𝟩", %p)}, undef, "to_unicode\(\'𐹸\?\。\\u200DΣ𝟩\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:761\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹸󠋳。\x{200D}Σ𝟩", %p)}, undef, "to_unicode\(\'𐹸\?\。\\u200DΣ𝟩\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:762\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹸󠋳。\x{200D}σ𝟩", %p)}, undef, "to_unicode\(\'𐹸\?\。\\u200Dσ𝟩\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:763\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹸󠋳。\x{200D}σ𝟩", %p)}, undef, "to_unicode\(\'𐹸\?\。\\u200Dσ𝟩\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:764\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς򅜌８.𞭤", %p)}, undef, "to_unicode\(\'ς\?８\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:765\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς򅜌8.𞭤", %p)}, undef, "to_unicode\(\'ς\?8\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:766\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ򅜌8.𞭤", %p)}, undef, "to_unicode\(\'Σ\?8\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:767\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ򅜌8.𞭤", %p)}, undef, "to_unicode\(\'σ\?8\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:768\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ򅜌８.𞭤", %p)}, undef, "to_unicode\(\'Σ\?８\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:769\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ򅜌８.𞭤", %p)}, undef, "to_unicode\(\'σ\?８\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:770\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ᡑ🄀\x{0684}．-𐫄𑲤", %p)}, undef, "to_unicode\(\'\\u200Cᡑ🄀\\u0684．\-𐫄\?\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:771\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ᡑ🄀\x{0684}．-𐫄𑲤", %p)}, undef, "to_unicode\(\'\\u200Cᡑ🄀\\u0684．\-𐫄\?\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:772\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{200C}ᡑ0.\x{0684}.-𐫄𑲤", %p)}, undef, "to_unicode\(\'\\u200Cᡑ0\.\\u0684\.\-𐫄\?\'\)\ throws\ error\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:773\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{200C}ᡑ0.\x{0684}.-𐫄𑲤", %p)}, undef, "to_unicode\(\'\\u200Cᡑ0\.\\u0684\.\-𐫄\?\'\)\ throws\ error\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:774\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𖠍。𐪿넯򞵲", %p)}, undef, "to_unicode\(\'𖠍\。\?넯\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:775\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𖠍。𐪿넯򞵲", %p)}, undef, "to_unicode\(\'𖠍\。\?넯\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:776\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("᠇Ⴘ。\x{0603}Ⴈ𝆊", %p)}, undef, "to_unicode\(\'᠇Ⴘ\。\\u0603Ⴈ𝆊\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:777\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("᠇ⴘ。\x{0603}ⴈ𝆊", %p)}, undef, "to_unicode\(\'᠇ⴘ\。\\u0603ⴈ𝆊\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:778\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒚󠋑𞤰。牣\x{0667}Ⴜᣥ", %p)}, undef, "to_unicode\(\'⒚\?\?\。牣\\u0667Ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:779\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("19.󠋑𞤰。牣\x{0667}Ⴜᣥ", %p)}, undef, "to_unicode\(\'19\.\?\?\。牣\\u0667Ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:780\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("19.󠋑𞤰。牣\x{0667}ⴜᣥ", %p)}, undef, "to_unicode\(\'19\.\?\?\。牣\\u0667ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:781\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒚󠋑𞤰。牣\x{0667}ⴜᣥ", %p)}, undef, "to_unicode\(\'⒚\?\?\。牣\\u0667ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:782\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-𐋱𐰽⒈.Ⴓ", %p)}, undef, "to_unicode\(\'\-𐋱𐰽⒈\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:783\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-𐋱𐰽1..Ⴓ", %p)}, undef, "to_unicode\(\'\-𐋱𐰽1\.\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ A4_2\ \[data\/IdnaTest\.txt\:784\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-𐋱𐰽1..ⴓ", %p)}, undef, "to_unicode\(\'\-𐋱𐰽1\.\.ⴓ\'\)\ throws\ error\ V3\ B1\ A4_2\ \[data\/IdnaTest\.txt\:785\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("-𐋱𐰽⒈.ⴓ", %p)}, undef, "to_unicode\(\'\-𐋱𐰽⒈\.ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:786\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}긃.榶-", %p)}, undef, "to_unicode\(\'\\u200C긃\.榶\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:787\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}긃.榶-", %p)}, undef, "to_unicode\(\'\\u200C긃\.榶\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:788\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}긃.榶-", %p)}, undef, "to_unicode\(\'\\u200C긃\.榶\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:789\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}긃.榶-", %p)}, undef, "to_unicode\(\'\\u200C긃\.榶\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:790\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("뉓泓𜵽.\x{09CD}\x{200D}", %p)}, undef, "to_unicode\(\'뉓泓\?\.\\u09CD\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:791\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("뉓泓𜵽.\x{09CD}\x{200D}", %p)}, undef, "to_unicode\(\'뉓泓\?\.\\u09CD\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:792\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹴ß｡\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_unicode\(\'\\u200D𐹴ß｡\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:793\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹴ß｡\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_unicode\(\'\\u200D𐹴ß｡\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:794\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹴ß。\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_unicode\(\'\\u200D𐹴ß\。\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:795\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹴ß。\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_unicode\(\'\\u200D𐹴ß\。\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:796\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹴SS。\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_unicode\(\'\\u200D𐹴SS\。\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:797\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹴SS。\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_unicode\(\'\\u200D𐹴SS\。\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:798\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹴ss。\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_unicode\(\'\\u200D𐹴ss\。\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:799\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹴ss。\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_unicode\(\'\\u200D𐹴ss\。\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:800\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹴Ss。\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_unicode\(\'\\u200D𐹴Ss\。\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:801\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹴Ss。\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_unicode\(\'\\u200D𐹴Ss\。\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:802\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹴SS｡\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_unicode\(\'\\u200D𐹴SS｡\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:803\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹴SS｡\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_unicode\(\'\\u200D𐹴SS｡\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:804\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹴ss｡\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_unicode\(\'\\u200D𐹴ss｡\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:805\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹴ss｡\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_unicode\(\'\\u200D𐹴ss｡\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:806\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹴Ss｡\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_unicode\(\'\\u200D𐹴Ss｡\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:807\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹴Ss｡\x{0EB4}\x{2B75}񪅌", %p)}, undef, "to_unicode\(\'\\u200D𐹴Ss｡\\u0EB4\\u2B75\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:808\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1B44}．\x{1BAA}-≮≠", %p)}, undef, "to_unicode\(\'\\u1B44．\\u1BAA\-\≮\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:809\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1B44}．\x{1BAA}-<\x{0338}=\x{0338}", %p)}, undef, "to_unicode\(\'\\u1B44．\\u1BAA\-\<\\u0338\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:810\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1B44}.\x{1BAA}-≮≠", %p)}, undef, "to_unicode\(\'\\u1B44\.\\u1BAA\-\≮\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:811\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1B44}.\x{1BAA}-<\x{0338}=\x{0338}", %p)}, undef, "to_unicode\(\'\\u1B44\.\\u1BAA\-\<\\u0338\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:812\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BF3}Ⴑ\x{115F}．𑄴Ⅎ", %p)}, undef, "to_unicode\(\'\\u1BF3Ⴑ\\u115F．𑄴Ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:813\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BF3}Ⴑ\x{115F}.𑄴Ⅎ", %p)}, undef, "to_unicode\(\'\\u1BF3Ⴑ\\u115F\.𑄴Ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:814\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BF3}ⴑ\x{115F}.𑄴ⅎ", %p)}, undef, "to_unicode\(\'\\u1BF3ⴑ\\u115F\.𑄴ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:815\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BF3}Ⴑ\x{115F}.𑄴ⅎ", %p)}, undef, "to_unicode\(\'\\u1BF3Ⴑ\\u115F\.𑄴ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:816\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BF3}ⴑ\x{115F}．𑄴ⅎ", %p)}, undef, "to_unicode\(\'\\u1BF3ⴑ\\u115F．𑄴ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:817\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BF3}Ⴑ\x{115F}．𑄴ⅎ", %p)}, undef, "to_unicode\(\'\\u1BF3Ⴑ\\u115F．𑄴ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:818\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𜉆。Ⴃ𐴣𐹹똯", %p)}, undef, "to_unicode\(\'\?\。Ⴃ\?𐹹똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:819\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𜉆。Ⴃ𐴣𐹹똯", %p)}, undef, "to_unicode\(\'\?\。Ⴃ\?𐹹똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:820\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𜉆。ⴃ𐴣𐹹똯", %p)}, undef, "to_unicode\(\'\?\。ⴃ\?𐹹똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:821\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𜉆。ⴃ𐴣𐹹똯", %p)}, undef, "to_unicode\(\'\?\。ⴃ\?𐹹똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:822\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐫀｡⳻󠙾󠄷\x{3164}", %p)}, undef, "to_unicode\(\'𐫀｡⳻\?\󠄷\\u3164\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:823\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐫀。⳻󠙾󠄷\x{1160}", %p)}, undef, "to_unicode\(\'𐫀\。⳻\?\󠄷\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:824\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{079A}⾇．\x{071E}-𐋰", %p)}, undef, "to_unicode\(\'\\u079A⾇．\\u071E\-𐋰\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:825\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{079A}舛.\x{071E}-𐋰", %p)}, undef, "to_unicode\(\'\\u079A舛\.\\u071E\-𐋰\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:826\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ⴉ猕󹛫≮．︒", %p)}, undef, "to_unicode\(\'Ⴉ猕\?\≮．︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:827\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴉ猕󹛫<\x{0338}．︒", %p)}, undef, "to_unicode\(\'Ⴉ猕\?\<\\u0338．︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:828\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴉ猕󹛫≮.。", %p)}, undef, "to_unicode\(\'Ⴉ猕\?\≮\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:829\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴉ猕󹛫<\x{0338}.。", %p)}, undef, "to_unicode\(\'Ⴉ猕\?\<\\u0338\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:830\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴉ猕󹛫<\x{0338}.。", %p)}, undef, "to_unicode\(\'ⴉ猕\?\<\\u0338\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:831\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴉ猕󹛫≮.。", %p)}, undef, "to_unicode\(\'ⴉ猕\?\≮\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:832\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴉ猕󹛫<\x{0338}．︒", %p)}, undef, "to_unicode\(\'ⴉ猕\?\<\\u0338．︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:833\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴉ猕󹛫≮．︒", %p)}, undef, "to_unicode\(\'ⴉ猕\?\≮．︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:834\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("🏮｡\x{062B}鳳\x{07E2}󠅉", %p)}, undef, "to_unicode\(\'🏮｡\\u062B鳳\\u07E2\󠅉\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:835\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("🏮。\x{062B}鳳\x{07E2}󠅉", %p)}, undef, "to_unicode\(\'🏮\。\\u062B鳳\\u07E2\󠅉\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:836\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200D}𐹶。ß", %p)}, undef, "to_unicode\(\'\\u200D𐹶\。ß\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:837\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200D}𐹶。ß", %p)}, undef, "to_unicode\(\'\\u200D𐹶\。ß\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:838\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200D}𐹶。SS", %p)}, undef, "to_unicode\(\'\\u200D𐹶\。SS\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:839\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200D}𐹶。SS", %p)}, undef, "to_unicode\(\'\\u200D𐹶\。SS\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:840\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Å둄-．\x{200C}", %p)}, undef, "to_unicode\(\'Å둄\-．\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:841\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Å둄-．\x{200C}", %p)}, undef, "to_unicode\(\'Å둄\-．\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:842\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{030A}둄-．\x{200C}", %p)}, undef, "to_unicode\(\'A\\u030A둄\-．\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:843\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{030A}둄-．\x{200C}", %p)}, undef, "to_unicode\(\'A\\u030A둄\-．\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:844\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Å둄-.\x{200C}", %p)}, undef, "to_unicode\(\'Å둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:845\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Å둄-.\x{200C}", %p)}, undef, "to_unicode\(\'Å둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:846\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{030A}둄-.\x{200C}", %p)}, undef, "to_unicode\(\'A\\u030A둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:847\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("A\x{030A}둄-.\x{200C}", %p)}, undef, "to_unicode\(\'A\\u030A둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:848\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{030A}둄-.\x{200C}", %p)}, undef, "to_unicode\(\'a\\u030A둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:849\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{030A}둄-.\x{200C}", %p)}, undef, "to_unicode\(\'a\\u030A둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:850\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("å둄-.\x{200C}", %p)}, undef, "to_unicode\(\'å둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:851\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("å둄-.\x{200C}", %p)}, undef, "to_unicode\(\'å둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:852\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{030A}둄-．\x{200C}", %p)}, undef, "to_unicode\(\'a\\u030A둄\-．\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:853\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("a\x{030A}둄-．\x{200C}", %p)}, undef, "to_unicode\(\'a\\u030A둄\-．\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:854\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("å둄-．\x{200C}", %p)}, undef, "to_unicode\(\'å둄\-．\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:855\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("å둄-．\x{200C}", %p)}, undef, "to_unicode\(\'å둄\-．\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:856\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{3099}򬎑\x{1DD7}𞤀.򱲢-\x{0953}", %p)}, undef, "to_unicode\(\'\\u3099\?\\u1DD7\?\.\?\-\\u0953\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:857\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς.ß񴱄\x{06DD}\x{2D7F}", %p)}, undef, "to_unicode\(\'ς\.ß\?\\u06DD\\u2D7F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:858\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ.SS񴱄\x{06DD}\x{2D7F}", %p)}, undef, "to_unicode\(\'Σ\.SS\?\\u06DD\\u2D7F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:859\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ.ss񴱄\x{06DD}\x{2D7F}", %p)}, undef, "to_unicode\(\'σ\.ss\?\\u06DD\\u2D7F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:860\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ.ss񴱄\x{06DD}\x{2D7F}", %p)}, undef, "to_unicode\(\'Σ\.ss\?\\u06DD\\u2D7F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:861\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ.ß񴱄\x{06DD}\x{2D7F}", %p)}, undef, "to_unicode\(\'Σ\.ß\?\\u06DD\\u2D7F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:862\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ.ß񴱄\x{06DD}\x{2D7F}", %p)}, undef, "to_unicode\(\'σ\.ß\?\\u06DD\\u2D7F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:863\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("ꡀ𞀟｡\x{066B}\x{0599}", %p)}, undef, "to_unicode\(\'ꡀ\?｡\\u066B\\u0599\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:864\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("ꡀ𞀟。\x{066B}\x{0599}", %p)}, undef, "to_unicode\(\'ꡀ\?\。\\u066B\\u0599\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:865\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("򈛉\x{200C}\x{08A9}｡⧅񘘡-𐭡", %p)}, undef, "to_unicode\(\'\?\\u200C\\u08A9｡\⧅\?\-𐭡\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:866\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򈛉\x{200C}\x{08A9}｡⧅񘘡-𐭡", %p)}, undef, "to_unicode\(\'\?\\u200C\\u08A9｡\⧅\?\-𐭡\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:867\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򈛉\x{200C}\x{08A9}。⧅񘘡-𐭡", %p)}, undef, "to_unicode\(\'\?\\u200C\\u08A9\。\⧅\?\-𐭡\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:868\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򈛉\x{200C}\x{08A9}。⧅񘘡-𐭡", %p)}, undef, "to_unicode\(\'\?\\u200C\\u08A9\。\⧅\?\-𐭡\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:869\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("룱\x{200D}𰍨\x{200C}。𝨖︒", %p)}, undef, "to_unicode\(\'룱\\u200D\?\\u200C\。𝨖︒\'\)\ throws\ error\ P1\ V6\ V5\ C2\ C1\ \[data\/IdnaTest\.txt\:870\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("룱\x{200D}𰍨\x{200C}。𝨖︒", %p)}, undef, "to_unicode\(\'룱\\u200D\?\\u200C\。𝨖︒\'\)\ throws\ error\ P1\ V6\ V5\ C2\ C1\ \[data\/IdnaTest\.txt\:871\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("룱\x{200D}𰍨\x{200C}。𝨖︒", %p)}, undef, "to_unicode\(\'룱\\u200D\?\\u200C\。𝨖︒\'\)\ throws\ error\ P1\ V6\ V5\ C2\ C1\ \[data\/IdnaTest\.txt\:872\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("룱\x{200D}𰍨\x{200C}。𝨖︒", %p)}, undef, "to_unicode\(\'룱\\u200D\?\\u200C\。𝨖︒\'\)\ throws\ error\ P1\ V6\ V5\ C2\ C1\ \[data\/IdnaTest\.txt\:873\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("룱\x{200D}𰍨\x{200C}。𝨖。", %p)}, undef, "to_unicode\(\'룱\\u200D\?\\u200C\。𝨖\。\'\)\ throws\ error\ P1\ V6\ V5\ C2\ C1\ \[data\/IdnaTest\.txt\:874\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("룱\x{200D}𰍨\x{200C}。𝨖。", %p)}, undef, "to_unicode\(\'룱\\u200D\?\\u200C\。𝨖\。\'\)\ throws\ error\ P1\ V6\ V5\ C2\ C1\ \[data\/IdnaTest\.txt\:875\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("룱\x{200D}𰍨\x{200C}。𝨖。", %p)}, undef, "to_unicode\(\'룱\\u200D\?\\u200C\。𝨖\。\'\)\ throws\ error\ P1\ V6\ V5\ C2\ C1\ \[data\/IdnaTest\.txt\:876\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("룱\x{200D}𰍨\x{200C}。𝨖。", %p)}, undef, "to_unicode\(\'룱\\u200D\?\\u200C\。𝨖\。\'\)\ throws\ error\ P1\ V6\ V5\ C2\ C1\ \[data\/IdnaTest\.txt\:877\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🄄．\x{1CDC}⒈ß", %p)}, undef, "to_unicode\(\'🄄．\\u1CDC⒈ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:878\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("3,.\x{1CDC}1.ß", %p)}, undef, "to_unicode\(\'3\,\.\\u1CDC1\.ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:879\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("3,.\x{1CDC}1.SS", %p)}, undef, "to_unicode\(\'3\,\.\\u1CDC1\.SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:880\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🄄．\x{1CDC}⒈SS", %p)}, undef, "to_unicode\(\'🄄．\\u1CDC⒈SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:881\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🄄．\x{1CDC}⒈ss", %p)}, undef, "to_unicode\(\'🄄．\\u1CDC⒈ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:882\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🄄．\x{1CDC}⒈Ss", %p)}, undef, "to_unicode\(\'🄄．\\u1CDC⒈Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:883\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񇌍\x{2D7F}｡𞼓򡄨𑐺", %p)}, undef, "to_unicode\(\'\?\\u2D7F｡\?\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:884\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񇌍\x{2D7F}。𞼓򡄨𑐺", %p)}, undef, "to_unicode\(\'\?\\u2D7F\。\?\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:885\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1DFD}\x{103A}\x{094D}．≠\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u1DFD\\u103A\\u094D．\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:886\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1DFD}\x{103A}\x{094D}．≠\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u1DFD\\u103A\\u094D．\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:887\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{103A}\x{094D}\x{1DFD}．≠\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u103A\\u094D\\u1DFD．\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:888\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{103A}\x{094D}\x{1DFD}．≠\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u103A\\u094D\\u1DFD．\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:889\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{103A}\x{094D}\x{1DFD}．=\x{0338}\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u103A\\u094D\\u1DFD．\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:890\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{103A}\x{094D}\x{1DFD}．=\x{0338}\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u103A\\u094D\\u1DFD．\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:891\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{103A}\x{094D}\x{1DFD}.≠\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u103A\\u094D\\u1DFD\.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:892\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{103A}\x{094D}\x{1DFD}.≠\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u103A\\u094D\\u1DFD\.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:893\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{103A}\x{094D}\x{1DFD}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u103A\\u094D\\u1DFD\.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:894\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{103A}\x{094D}\x{1DFD}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u103A\\u094D\\u1DFD\.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:895\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴁ𐋨娤.\x{200D}\x{033C}\x{0662}𑖿", %p)}, undef, "to_unicode\(\'Ⴁ𐋨娤\.\\u200D\\u033C\\u0662𑖿\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:896\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴁ𐋨娤.\x{200D}\x{033C}\x{0662}𑖿", %p)}, undef, "to_unicode\(\'Ⴁ𐋨娤\.\\u200D\\u033C\\u0662𑖿\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:897\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ⴁ𐋨娤.\x{200D}\x{033C}\x{0662}𑖿", %p)}, undef, "to_unicode\(\'ⴁ𐋨娤\.\\u200D\\u033C\\u0662𑖿\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:898\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ⴁ𐋨娤.\x{200D}\x{033C}\x{0662}𑖿", %p)}, undef, "to_unicode\(\'ⴁ𐋨娤\.\\u200D\\u033C\\u0662𑖿\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:899\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("🄀Ⴄ\x{0669}\x{0820}。⒈\x{0FB6}ß", %p)}, undef, "to_unicode\(\'🄀Ⴄ\\u0669\\u0820\。⒈\\u0FB6ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:900\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("0.Ⴄ\x{0669}\x{0820}。1.\x{0FB6}ß", %p)}, undef, "to_unicode\(\'0\.Ⴄ\\u0669\\u0820\。1\.\\u0FB6ß\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:901\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("0.ⴄ\x{0669}\x{0820}。1.\x{0FB6}ß", %p)}, undef, "to_unicode\(\'0\.ⴄ\\u0669\\u0820\。1\.\\u0FB6ß\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:902\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("0.Ⴄ\x{0669}\x{0820}。1.\x{0FB6}SS", %p)}, undef, "to_unicode\(\'0\.Ⴄ\\u0669\\u0820\。1\.\\u0FB6SS\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:903\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("0.ⴄ\x{0669}\x{0820}。1.\x{0FB6}ss", %p)}, undef, "to_unicode\(\'0\.ⴄ\\u0669\\u0820\。1\.\\u0FB6ss\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:904\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("0.Ⴄ\x{0669}\x{0820}。1.\x{0FB6}Ss", %p)}, undef, "to_unicode\(\'0\.Ⴄ\\u0669\\u0820\。1\.\\u0FB6Ss\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:905\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🄀ⴄ\x{0669}\x{0820}。⒈\x{0FB6}ß", %p)}, undef, "to_unicode\(\'🄀ⴄ\\u0669\\u0820\。⒈\\u0FB6ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:906\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🄀Ⴄ\x{0669}\x{0820}。⒈\x{0FB6}SS", %p)}, undef, "to_unicode\(\'🄀Ⴄ\\u0669\\u0820\。⒈\\u0FB6SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:907\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🄀ⴄ\x{0669}\x{0820}。⒈\x{0FB6}ss", %p)}, undef, "to_unicode\(\'🄀ⴄ\\u0669\\u0820\。⒈\\u0FB6ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:908\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🄀Ⴄ\x{0669}\x{0820}。⒈\x{0FB6}Ss", %p)}, undef, "to_unicode\(\'🄀Ⴄ\\u0669\\u0820\。⒈\\u0FB6Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:909\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠.\x{200C}-\x{066B}", %p)}, undef, "to_unicode\(\'\≠\.\\u200C\-\\u066B\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:910\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠.\x{200C}-\x{066B}", %p)}, undef, "to_unicode\(\'\≠\.\\u200C\-\\u066B\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:911\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}.\x{200C}-\x{066B}", %p)}, undef, "to_unicode\(\'\=\\u0338\.\\u200C\-\\u066B\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:912\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}.\x{200C}-\x{066B}", %p)}, undef, "to_unicode\(\'\=\\u0338\.\\u200C\-\\u066B\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:913\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0660}۱｡󠳶𞠁\x{0665}", %p)}, undef, "to_unicode\(\'\\u0660۱｡\?𞠁\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:914\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0660}۱。󠳶𞠁\x{0665}", %p)}, undef, "to_unicode\(\'\\u0660۱\。\?𞠁\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:915\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{0663}⒖。󱅉𽷛\x{1BF3}", %p)}, undef, "to_unicode\(\'\\u200C\\u0663⒖\。\?\?\\u1BF3\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:916\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{0663}⒖。󱅉𽷛\x{1BF3}", %p)}, undef, "to_unicode\(\'\\u200C\\u0663⒖\。\?\?\\u1BF3\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:917\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{0663}15.。󱅉𽷛\x{1BF3}", %p)}, undef, "to_unicode\(\'\\u200C\\u066315\.\。\?\?\\u1BF3\'\)\ throws\ error\ P1\ V6\ B1\ C1\ A4_2\ \[data\/IdnaTest\.txt\:918\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{0663}15.。󱅉𽷛\x{1BF3}", %p)}, undef, "to_unicode\(\'\\u200C\\u066315\.\。\?\?\\u1BF3\'\)\ throws\ error\ P1\ V6\ B1\ C1\ A4_2\ \[data\/IdnaTest\.txt\:919\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BF3}.-逋񳦭󙙮", %p)}, undef, "to_unicode\(\'\\u1BF3\.\-逋\?\?\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:920\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0756}。\x{3164}\x{200D}ς", %p)}, undef, "to_unicode\(\'\\u0756\。\\u3164\\u200Dς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:921\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0756}。\x{3164}\x{200D}ς", %p)}, undef, "to_unicode\(\'\\u0756\。\\u3164\\u200Dς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:922\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0756}。\x{1160}\x{200D}ς", %p)}, undef, "to_unicode\(\'\\u0756\。\\u1160\\u200Dς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:923\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0756}。\x{1160}\x{200D}ς", %p)}, undef, "to_unicode\(\'\\u0756\。\\u1160\\u200Dς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:924\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0756}。\x{1160}\x{200D}Σ", %p)}, undef, "to_unicode\(\'\\u0756\。\\u1160\\u200DΣ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:925\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0756}。\x{1160}\x{200D}Σ", %p)}, undef, "to_unicode\(\'\\u0756\。\\u1160\\u200DΣ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:926\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0756}。\x{1160}\x{200D}σ", %p)}, undef, "to_unicode\(\'\\u0756\。\\u1160\\u200Dσ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:927\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0756}。\x{1160}\x{200D}σ", %p)}, undef, "to_unicode\(\'\\u0756\。\\u1160\\u200Dσ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:928\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0756}。\x{3164}\x{200D}Σ", %p)}, undef, "to_unicode\(\'\\u0756\。\\u3164\\u200DΣ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:929\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0756}。\x{3164}\x{200D}Σ", %p)}, undef, "to_unicode\(\'\\u0756\。\\u3164\\u200DΣ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:930\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0756}。\x{3164}\x{200D}σ", %p)}, undef, "to_unicode\(\'\\u0756\。\\u3164\\u200Dσ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:931\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0756}。\x{3164}\x{200D}σ", %p)}, undef, "to_unicode\(\'\\u0756\。\\u3164\\u200Dσ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:932\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡆႣ｡󞢧\x{0315}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'ᡆႣ｡\?\\u0315\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:933\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡆႣ｡󞢧\x{0315}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'ᡆႣ｡\?\\u0315\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:934\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡆႣ。󞢧\x{0315}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'ᡆႣ\。\?\\u0315\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:935\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡆႣ。󞢧\x{0315}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'ᡆႣ\。\?\\u0315\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:936\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡆⴃ。󞢧\x{0315}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'ᡆⴃ\。\?\\u0315\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:937\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡆⴃ。󞢧\x{0315}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'ᡆⴃ\。\?\\u0315\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:938\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡆⴃ｡󞢧\x{0315}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'ᡆⴃ｡\?\\u0315\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:939\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡆⴃ｡󞢧\x{0315}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'ᡆⴃ｡\?\\u0315\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:940\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("㭄\x{200D}\x{084F}𑚵．ς𐮮\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200D\\u084F𑚵．ς𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:941\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("㭄\x{200D}\x{084F}𑚵．ς𐮮\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200D\\u084F𑚵．ς𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:942\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("㭄\x{200D}\x{084F}𑚵.ς𐮮\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200D\\u084F𑚵\.ς𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:943\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("㭄\x{200D}\x{084F}𑚵.ς𐮮\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200D\\u084F𑚵\.ς𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:944\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("㭄\x{200D}\x{084F}𑚵.Σ𐮮\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200D\\u084F𑚵\.Σ𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:945\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("㭄\x{200D}\x{084F}𑚵.Σ𐮮\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200D\\u084F𑚵\.Σ𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:946\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("㭄\x{200D}\x{084F}𑚵.σ𐮮\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200D\\u084F𑚵\.σ𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:947\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("㭄\x{200D}\x{084F}𑚵.σ𐮮\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200D\\u084F𑚵\.σ𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:948\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("㭄\x{200D}\x{084F}𑚵．Σ𐮮\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200D\\u084F𑚵．Σ𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:949\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("㭄\x{200D}\x{084F}𑚵．Σ𐮮\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200D\\u084F𑚵．Σ𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:950\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("㭄\x{200D}\x{084F}𑚵．σ𐮮\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200D\\u084F𑚵．σ𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:951\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("㭄\x{200D}\x{084F}𑚵．σ𐮮\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200D\\u084F𑚵．σ𐮮\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:952\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{17B5}。𞯸ꡀ🄋", %p)}, undef, "to_unicode\(\'\\u17B5\。\?ꡀ🄋\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:953\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󐪺暑．⾑\x{0668}", %p)}, undef, "to_unicode\(\'\?暑．⾑\\u0668\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:954\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󐪺暑.襾\x{0668}", %p)}, undef, "to_unicode\(\'\?暑\.襾\\u0668\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:955\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄚≯ꡢ。\x{0891}\x{1DFF}", %p)}, undef, "to_unicode\(\'\󠄚\≯ꡢ\。\\u0891\\u1DFF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:956\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄚>\x{0338}ꡢ。\x{0891}\x{1DFF}", %p)}, undef, "to_unicode\(\'\󠄚\>\\u0338ꡢ\。\\u0891\\u1DFF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:957\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FDC3}𮁱\x{0B4D}𐨿.󐧤Ⴗ", %p)}, undef, "to_unicode\(\'\\uFDC3\?\\u0B4D𐨿\.\?Ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:958\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0643}\x{0645}\x{0645}𮁱\x{0B4D}𐨿.󐧤Ⴗ", %p)}, undef, "to_unicode\(\'\\u0643\\u0645\\u0645\?\\u0B4D𐨿\.\?Ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:959\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0643}\x{0645}\x{0645}𮁱\x{0B4D}𐨿.󐧤ⴗ", %p)}, undef, "to_unicode\(\'\\u0643\\u0645\\u0645\?\\u0B4D𐨿\.\?ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:960\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FDC3}𮁱\x{0B4D}𐨿.󐧤ⴗ", %p)}, undef, "to_unicode\(\'\\uFDC3\?\\u0B4D𐨿\.\?ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:961\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞀨｡\x{1B44}򡛨𞎇", %p)}, undef, "to_unicode\(\'\?｡\\u1B44\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:962\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞀨。\x{1B44}򡛨𞎇", %p)}, undef, "to_unicode\(\'\?\。\\u1B44\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:963\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠣼\x{200C}．𐺰\x{200C}ᡟ", %p)}, undef, "to_unicode\(\'\?\\u200C．\?\\u200Cᡟ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:964\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠣼\x{200C}．𐺰\x{200C}ᡟ", %p)}, undef, "to_unicode\(\'\?\\u200C．\?\\u200Cᡟ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:965\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠣼\x{200C}.𐺰\x{200C}ᡟ", %p)}, undef, "to_unicode\(\'\?\\u200C\.\?\\u200Cᡟ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:966\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠣼\x{200C}.𐺰\x{200C}ᡟ", %p)}, undef, "to_unicode\(\'\?\\u200C\.\?\\u200Cᡟ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:967\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢛ󨅟ß.ጧ", %p)}, undef, "to_unicode\(\'ᢛ\?ß\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:968\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢛ󨅟SS.ጧ", %p)}, undef, "to_unicode\(\'ᢛ\?SS\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:969\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢛ󨅟ss.ጧ", %p)}, undef, "to_unicode\(\'ᢛ\?ss\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:970\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢛ󨅟Ss.ጧ", %p)}, undef, "to_unicode\(\'ᢛ\?Ss\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:971\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⮒\x{200C}.񒚗\x{200C}", %p)}, undef, "to_unicode\(\'\⮒\\u200C\.\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:972\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⮒\x{200C}.񒚗\x{200C}", %p)}, undef, "to_unicode\(\'\⮒\\u200C\.\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:973\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤂񹞁𐹯。Ⴜ", %p)}, undef, "to_unicode\(\'\?\?𐹯\。Ⴜ\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:974\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤂񹞁𐹯。ⴜ", %p)}, undef, "to_unicode\(\'\?\?𐹯\。ⴜ\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:975\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹵⮣\x{200C}𑄰｡񷴿\x{FCB7}", %p)}, undef, "to_unicode\(\'𐹵\⮣\\u200C𑄰｡\?\\uFCB7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:976\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹵⮣\x{200C}𑄰｡񷴿\x{FCB7}", %p)}, undef, "to_unicode\(\'𐹵\⮣\\u200C𑄰｡\?\\uFCB7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:977\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹵⮣\x{200C}𑄰。񷴿\x{0636}\x{0645}", %p)}, undef, "to_unicode\(\'𐹵\⮣\\u200C𑄰\。\?\\u0636\\u0645\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:978\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹵⮣\x{200C}𑄰。񷴿\x{0636}\x{0645}", %p)}, undef, "to_unicode\(\'𐹵\⮣\\u200C𑄰\。\?\\u0636\\u0645\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:979\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴒ。デß𞤵\x{0C4D}", %p)}, undef, "to_unicode\(\'Ⴒ\。デß\?\\u0C4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:980\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴒ。テ\x{3099}ß𞤵\x{0C4D}", %p)}, undef, "to_unicode\(\'Ⴒ\。テ\\u3099ß\?\\u0C4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:981\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("ⴒ。テ\x{3099}ß𞤵\x{0C4D}", %p)}, undef, "to_unicode\(\'ⴒ\。テ\\u3099ß\?\\u0C4D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:982\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("ⴒ。デß𞤵\x{0C4D}", %p)}, undef, "to_unicode\(\'ⴒ\。デß\?\\u0C4D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:983\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ⴒ。デSS𞤵\x{0C4D}", %p)}, undef, "to_unicode\(\'Ⴒ\。デSS\?\\u0C4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:984\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴒ。テ\x{3099}SS𞤵\x{0C4D}", %p)}, undef, "to_unicode\(\'Ⴒ\。テ\\u3099SS\?\\u0C4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:985\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("ⴒ。テ\x{3099}ss𞤵\x{0C4D}", %p)}, undef, "to_unicode\(\'ⴒ\。テ\\u3099ss\?\\u0C4D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:986\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("ⴒ。デss𞤵\x{0C4D}", %p)}, undef, "to_unicode\(\'ⴒ\。デss\?\\u0C4D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:987\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ⴒ。デSs𞤵\x{0C4D}", %p)}, undef, "to_unicode\(\'Ⴒ\。デSs\?\\u0C4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:988\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴒ。テ\x{3099}Ss𞤵\x{0C4D}", %p)}, undef, "to_unicode\(\'Ⴒ\。テ\\u3099Ss\?\\u0C4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:989\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𑁿\x{0D4D}．７-\x{07D2}", %p)}, undef, "to_unicode\(\'𑁿\\u0D4D．７\-\\u07D2\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:990\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𑁿\x{0D4D}.7-\x{07D2}", %p)}, undef, "to_unicode\(\'𑁿\\u0D4D\.7\-\\u07D2\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:991\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("≯𑜫󠭇.\x{1734}񒞤𑍬ᢧ", %p)}, undef, "to_unicode\(\'\≯𑜫\?\.\\u1734\?𑍬ᢧ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:992\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}𑜫󠭇.\x{1734}񒞤𑍬ᢧ", %p)}, undef, "to_unicode\(\'\>\\u0338𑜫\?\.\\u1734\?𑍬ᢧ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:993\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1DDB}򎐙Ⴗ쏔。\x{0781}", %p)}, undef, "to_unicode\(\'\\u1DDB\?Ⴗ쏔\。\\u0781\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:994\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1DDB}򎐙Ⴗ쏔。\x{0781}", %p)}, undef, "to_unicode\(\'\\u1DDB\?Ⴗ쏔\。\\u0781\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:995\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1DDB}򎐙ⴗ쏔。\x{0781}", %p)}, undef, "to_unicode\(\'\\u1DDB\?ⴗ쏔\。\\u0781\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:996\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1DDB}򎐙ⴗ쏔。\x{0781}", %p)}, undef, "to_unicode\(\'\\u1DDB\?ⴗ쏔\。\\u0781\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:997\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß｡𐋳Ⴌ\x{0FB8}", %p)}, undef, "to_unicode\(\'ß｡𐋳Ⴌ\\u0FB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:998\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß。𐋳Ⴌ\x{0FB8}", %p)}, undef, "to_unicode\(\'ß\。𐋳Ⴌ\\u0FB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:999\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß。𐋳ⴌ\x{0FB8}", %p)}, "ß.𐋳ⴌ\x{0FB8}", "to_unicode\(\'ß\。𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1000\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß。𐋳ⴌ\x{0FB8}", %p)}, "ß.𐋳ⴌ\x{0FB8}", "to_unicode\(\'ß\。𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1001\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("SS。𐋳Ⴌ\x{0FB8}", %p)}, undef, "to_unicode\(\'SS\。𐋳Ⴌ\\u0FB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1002\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ss。𐋳ⴌ\x{0FB8}", %p)}, "ss.𐋳ⴌ\x{0FB8}", "to_unicode\(\'ss\。𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1003\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ss.xn--lgd921mvv0m", %p)}, "ss.𐋳ⴌ\x{0FB8}", "to_unicode\(\'ss\.xn\-\-lgd921mvv0m\'\)\ \[data\/IdnaTest\.txt\:1004\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ss.𐋳ⴌ\x{0FB8}", %p)}, "ss.𐋳ⴌ\x{0FB8}", "to_unicode\(\'ss\.𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1005\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("SS.𐋳Ⴌ\x{0FB8}", %p)}, undef, "to_unicode\(\'SS\.𐋳Ⴌ\\u0FB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1006\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--zca.xn--lgd921mvv0m", %p)}, "ß.𐋳ⴌ\x{0FB8}", "to_unicode\(\'xn\-\-zca\.xn\-\-lgd921mvv0m\'\)\ \[data\/IdnaTest\.txt\:1007\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß.𐋳ⴌ\x{0FB8}", %p)}, "ß.𐋳ⴌ\x{0FB8}", "to_unicode\(\'ß\.𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1008\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß.𐋳ⴌ\x{0FB8}", %p)}, "ß.𐋳ⴌ\x{0FB8}", "to_unicode\(\'ß\.𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1009\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß｡𐋳ⴌ\x{0FB8}", %p)}, "ß.𐋳ⴌ\x{0FB8}", "to_unicode\(\'ß｡𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1010\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß｡𐋳ⴌ\x{0FB8}", %p)}, "ß.𐋳ⴌ\x{0FB8}", "to_unicode\(\'ß｡𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1011\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("SS｡𐋳Ⴌ\x{0FB8}", %p)}, undef, "to_unicode\(\'SS｡𐋳Ⴌ\\u0FB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1012\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ss｡𐋳ⴌ\x{0FB8}", %p)}, "ss.𐋳ⴌ\x{0FB8}", "to_unicode\(\'ss｡𐋳ⴌ\\u0FB8\'\)\ \[data\/IdnaTest\.txt\:1013\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("-\x{069E}𐶡.\x{200C}⾝\x{09CD}", %p)}, undef, "to_unicode\(\'\-\\u069E\?\.\\u200C⾝\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1014\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{069E}𐶡.\x{200C}⾝\x{09CD}", %p)}, undef, "to_unicode\(\'\-\\u069E\?\.\\u200C⾝\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1015\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{069E}𐶡.\x{200C}身\x{09CD}", %p)}, undef, "to_unicode\(\'\-\\u069E\?\.\\u200C身\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1016\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{069E}𐶡.\x{200C}身\x{09CD}", %p)}, undef, "to_unicode\(\'\-\\u069E\?\.\\u200C身\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1017\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("😮\x{0764}𑈵𞀖.💅\x{200D}", %p)}, undef, "to_unicode\(\'😮\\u0764\?𑈵\.💅\\u200D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1018\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("😮\x{0764}𑈵𞀖.💅\x{200D}", %p)}, undef, "to_unicode\(\'😮\\u0764\?𑈵\.💅\\u200D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1019\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("😮\x{0764}𑈵𞀖.💅\x{200D}", %p)}, undef, "to_unicode\(\'😮\\u0764𑈵\?\.💅\\u200D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1020\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("😮\x{0764}𑈵𞀖.💅\x{200D}", %p)}, undef, "to_unicode\(\'😮\\u0764𑈵\?\.💅\\u200D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1021\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{08F2}\x{200D}꙳\x{0712}.ᢏ\x{200C}󠍄", %p)}, undef, "to_unicode\(\'\\u08F2\\u200D꙳\\u0712\.ᢏ\\u200C\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:1022\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08F2}\x{200D}꙳\x{0712}.ᢏ\x{200C}󠍄", %p)}, undef, "to_unicode\(\'\\u08F2\\u200D꙳\\u0712\.ᢏ\\u200C\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:1023\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴑ．\x{06BF}𞯓ᠲ", %p)}, undef, "to_unicode\(\'Ⴑ．\\u06BF\?ᠲ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1024\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴑ.\x{06BF}𞯓ᠲ", %p)}, undef, "to_unicode\(\'Ⴑ\.\\u06BF\?ᠲ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1025\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴑ.\x{06BF}𞯓ᠲ", %p)}, undef, "to_unicode\(\'ⴑ\.\\u06BF\?ᠲ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1026\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴑ．\x{06BF}𞯓ᠲ", %p)}, undef, "to_unicode\(\'ⴑ．\\u06BF\?ᠲ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1027\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1A5A}𛦝\x{0C4D}。𚝬𝟵", %p)}, undef, "to_unicode\(\'\\u1A5A\?\\u0C4D\。\?𝟵\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1028\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1A5A}𛦝\x{0C4D}。𚝬9", %p)}, undef, "to_unicode\(\'\\u1A5A\?\\u0C4D\。\?9\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1029\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{06A0}𿺆𝟗｡Ⴣ꒘\x{FCD0}񐘖", %p)}, undef, "to_unicode\(\'\\u200C\\u06A0\?𝟗｡Ⴣ꒘\\uFCD0\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1030\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{06A0}𿺆𝟗｡Ⴣ꒘\x{FCD0}񐘖", %p)}, undef, "to_unicode\(\'\\u200C\\u06A0\?𝟗｡Ⴣ꒘\\uFCD0\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1031\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{06A0}𿺆9。Ⴣ꒘\x{0645}\x{062E}񐘖", %p)}, undef, "to_unicode\(\'\\u200C\\u06A0\?9\。Ⴣ꒘\\u0645\\u062E\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1032\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{06A0}𿺆9。Ⴣ꒘\x{0645}\x{062E}񐘖", %p)}, undef, "to_unicode\(\'\\u200C\\u06A0\?9\。Ⴣ꒘\\u0645\\u062E\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1033\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{06A0}𿺆9。ⴣ꒘\x{0645}\x{062E}񐘖", %p)}, undef, "to_unicode\(\'\\u200C\\u06A0\?9\。ⴣ꒘\\u0645\\u062E\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1034\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{06A0}𿺆9。ⴣ꒘\x{0645}\x{062E}񐘖", %p)}, undef, "to_unicode\(\'\\u200C\\u06A0\?9\。ⴣ꒘\\u0645\\u062E\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1035\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{06A0}𿺆𝟗｡ⴣ꒘\x{FCD0}񐘖", %p)}, undef, "to_unicode\(\'\\u200C\\u06A0\?𝟗｡ⴣ꒘\\uFCD0\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1036\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{06A0}𿺆𝟗｡ⴣ꒘\x{FCD0}񐘖", %p)}, undef, "to_unicode\(\'\\u200C\\u06A0\?𝟗｡ⴣ꒘\\uFCD0\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1037\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡖ｡\x{031F}񗛨\x{0B82}-", %p)}, undef, "to_unicode\(\'ᡖ｡\\u031F\?\\u0B82\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1038\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡖ。\x{031F}񗛨\x{0B82}-", %p)}, undef, "to_unicode\(\'ᡖ\。\\u031F\?\\u0B82\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1039\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞠠浘。絧𞀀", %p)}, undef, "to_unicode\(\'𞠠浘\。絧\?\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1040\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{0596}Ⴋ．𝟳≯︒\x{FE0A}", %p)}, undef, "to_unicode\(\'\\u0596Ⴋ．𝟳\≯︒\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1041\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0596}Ⴋ．𝟳>\x{0338}︒\x{FE0A}", %p)}, undef, "to_unicode\(\'\\u0596Ⴋ．𝟳\>\\u0338︒\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1042\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0596}Ⴋ.7≯。\x{FE0A}", %p)}, undef, "to_unicode\(\'\\u0596Ⴋ\.7\≯\。\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1043\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0596}Ⴋ.7>\x{0338}。\x{FE0A}", %p)}, undef, "to_unicode\(\'\\u0596Ⴋ\.7\>\\u0338\。\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1044\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0596}ⴋ.7>\x{0338}。\x{FE0A}", %p)}, undef, "to_unicode\(\'\\u0596ⴋ\.7\>\\u0338\。\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1045\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0596}ⴋ.7≯。\x{FE0A}", %p)}, undef, "to_unicode\(\'\\u0596ⴋ\.7\≯\。\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1046\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0596}ⴋ．𝟳>\x{0338}︒\x{FE0A}", %p)}, undef, "to_unicode\(\'\\u0596ⴋ．𝟳\>\\u0338︒\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1047\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0596}ⴋ．𝟳≯︒\x{FE0A}", %p)}, undef, "to_unicode\(\'\\u0596ⴋ．𝟳\≯︒\\uFE0A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1048\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}F𑓂。󠺨︒\x{077E}𐹢", %p)}, undef, "to_unicode\(\'\\u200DF𑓂\。\?︒\\u077E𐹢\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1049\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}F𑓂。󠺨︒\x{077E}𐹢", %p)}, undef, "to_unicode\(\'\\u200DF𑓂\。\?︒\\u077E𐹢\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1050\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}F𑓂。󠺨。\x{077E}𐹢", %p)}, undef, "to_unicode\(\'\\u200DF𑓂\。\?\。\\u077E𐹢\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1051\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}F𑓂。󠺨。\x{077E}𐹢", %p)}, undef, "to_unicode\(\'\\u200DF𑓂\。\?\。\\u077E𐹢\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1052\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}f𑓂。󠺨。\x{077E}𐹢", %p)}, undef, "to_unicode\(\'\\u200Df𑓂\。\?\。\\u077E𐹢\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1053\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}f𑓂。󠺨。\x{077E}𐹢", %p)}, undef, "to_unicode\(\'\\u200Df𑓂\。\?\。\\u077E𐹢\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1054\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}f𑓂。󠺨︒\x{077E}𐹢", %p)}, undef, "to_unicode\(\'\\u200Df𑓂\。\?︒\\u077E𐹢\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1055\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}f𑓂。󠺨︒\x{077E}𐹢", %p)}, undef, "to_unicode\(\'\\u200Df𑓂\。\?︒\\u077E𐹢\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1056\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0845}🄇𐼗︒｡𐹻𑜫", %p)}, undef, "to_unicode\(\'\\u0845🄇\?︒｡𐹻𑜫\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:1057\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0845}6,𐼗。。𐹻𑜫", %p)}, undef, "to_unicode\(\'\\u08456\,\?\。\。𐹻𑜫\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1058\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹈.\x{1DC0}𑈱𐦭", %p)}, undef, "to_unicode\(\'\?\.\\u1DC0𑈱𐦭\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1059\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴂ䠺。𞤃񅏎󙮦\x{0693}", %p)}, undef, "to_unicode\(\'Ⴂ䠺\。\?\?\?\\u0693\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1060\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴂ䠺。𞤃񅏎󙮦\x{0693}", %p)}, undef, "to_unicode\(\'ⴂ䠺\。\?\?\?\\u0693\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1061\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🄇伐︒.𜙚\x{A8C4}", %p)}, undef, "to_unicode\(\'🄇伐︒\.\?\\uA8C4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1062\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("6,伐。.𜙚\x{A8C4}", %p)}, undef, "to_unicode\(\'6\,伐\。\.\?\\uA8C4\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1063\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹠\x{ABED}\x{FFFB}。\x{200D}𐫓Ⴚ𑂹", %p)}, undef, "to_unicode\(\'\\u200D𐹠\\uABED\\uFFFB\。\\u200D𐫓Ⴚ𑂹\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1064\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹠\x{ABED}\x{FFFB}。\x{200D}𐫓Ⴚ𑂹", %p)}, undef, "to_unicode\(\'\\u200D𐹠\\uABED\\uFFFB\。\\u200D𐫓Ⴚ𑂹\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1065\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹠\x{ABED}\x{FFFB}。\x{200D}𐫓ⴚ𑂹", %p)}, undef, "to_unicode\(\'\\u200D𐹠\\uABED\\uFFFB\。\\u200D𐫓ⴚ𑂹\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1066\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐹠\x{ABED}\x{FFFB}。\x{200D}𐫓ⴚ𑂹", %p)}, undef, "to_unicode\(\'\\u200D𐹠\\uABED\\uFFFB\。\\u200D𐫓ⴚ𑂹\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1067\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠆠．񷐴󌟈", %p)}, undef, "to_unicode\(\'\󠆠．\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1068\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠆠.񷐴󌟈", %p)}, undef, "to_unicode\(\'\󠆠\.\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1069\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐫃\x{200C}Ⴆ.≠𞷙", %p)}, undef, "to_unicode\(\'𐫃\\u200CႦ\.\≠\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1070\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐫃\x{200C}Ⴆ.≠𞷙", %p)}, undef, "to_unicode\(\'𐫃\\u200CႦ\.\≠\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1071\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐫃\x{200C}Ⴆ.=\x{0338}𞷙", %p)}, undef, "to_unicode\(\'𐫃\\u200CႦ\.\=\\u0338\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1072\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐫃\x{200C}Ⴆ.=\x{0338}𞷙", %p)}, undef, "to_unicode\(\'𐫃\\u200CႦ\.\=\\u0338\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1073\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐫃\x{200C}ⴆ.=\x{0338}𞷙", %p)}, undef, "to_unicode\(\'𐫃\\u200Cⴆ\.\=\\u0338\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1074\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐫃\x{200C}ⴆ.=\x{0338}𞷙", %p)}, undef, "to_unicode\(\'𐫃\\u200Cⴆ\.\=\\u0338\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1075\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐫃\x{200C}ⴆ.≠𞷙", %p)}, undef, "to_unicode\(\'𐫃\\u200Cⴆ\.\≠\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1076\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐫃\x{200C}ⴆ.≠𞷙", %p)}, undef, "to_unicode\(\'𐫃\\u200Cⴆ\.\≠\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1077\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠁲𙩢𝟥ꘌ．\x{0841}", %p)}, undef, "to_unicode\(\'\?\?𝟥ꘌ．\\u0841\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1078\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠁲𙩢3ꘌ.\x{0841}", %p)}, undef, "to_unicode\(\'\?\?3ꘌ\.\\u0841\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1079\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-.\x{1886}󡲣-", %p)}, undef, "to_unicode\(\'\-\.\\u1886\?\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1080\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󲚗\x{200C}｡\x{200C}𞰆ς", %p)}, undef, "to_unicode\(\'\?\\u200C｡\\u200C\?ς\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1081\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󲚗\x{200C}｡\x{200C}𞰆ς", %p)}, undef, "to_unicode\(\'\?\\u200C｡\\u200C\?ς\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1082\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󲚗\x{200C}。\x{200C}𞰆ς", %p)}, undef, "to_unicode\(\'\?\\u200C\。\\u200C\?ς\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1083\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󲚗\x{200C}。\x{200C}𞰆ς", %p)}, undef, "to_unicode\(\'\?\\u200C\。\\u200C\?ς\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1084\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󲚗\x{200C}。\x{200C}𞰆Σ", %p)}, undef, "to_unicode\(\'\?\\u200C\。\\u200C\?Σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1085\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󲚗\x{200C}。\x{200C}𞰆Σ", %p)}, undef, "to_unicode\(\'\?\\u200C\。\\u200C\?Σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1086\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󲚗\x{200C}。\x{200C}𞰆σ", %p)}, undef, "to_unicode\(\'\?\\u200C\。\\u200C\?σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1087\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󲚗\x{200C}。\x{200C}𞰆σ", %p)}, undef, "to_unicode\(\'\?\\u200C\。\\u200C\?σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1088\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󲚗\x{200C}｡\x{200C}𞰆Σ", %p)}, undef, "to_unicode\(\'\?\\u200C｡\\u200C\?Σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1089\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󲚗\x{200C}｡\x{200C}𞰆Σ", %p)}, undef, "to_unicode\(\'\?\\u200C｡\\u200C\?Σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1090\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󲚗\x{200C}｡\x{200C}𞰆σ", %p)}, undef, "to_unicode\(\'\?\\u200C｡\\u200C\?σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1091\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󲚗\x{200C}｡\x{200C}𞰆σ", %p)}, undef, "to_unicode\(\'\?\\u200C｡\\u200C\?σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1092\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("堕𑓂\x{1B02}。𐮇𞤽\x{200C}-", %p)}, undef, "to_unicode\(\'堕𑓂\\u1B02\。𐮇\?\\u200C\-\'\)\ throws\ error\ V3\ B3\ C1\ \[data\/IdnaTest\.txt\:1093\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("堕𑓂\x{1B02}。𐮇𞤽\x{200C}-", %p)}, undef, "to_unicode\(\'堕𑓂\\u1B02\。𐮇\?\\u200C\-\'\)\ throws\ error\ V3\ B3\ C1\ \[data\/IdnaTest\.txt\:1094\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𐹶𑁆ᡕ𞤢｡ᡥς\x{062A}ς", %p)}, undef, "to_unicode\(\'𐹶𑁆ᡕ\?｡ᡥς\\u062Aς\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1095\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𐹶𑁆ᡕ𞤢。ᡥς\x{062A}ς", %p)}, undef, "to_unicode\(\'𐹶𑁆ᡕ\?\。ᡥς\\u062Aς\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1096\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𐹶𑁆ᡕ𞤢。ᡥΣ\x{062A}Σ", %p)}, undef, "to_unicode\(\'𐹶𑁆ᡕ\?\。ᡥΣ\\u062AΣ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1097\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𐹶𑁆ᡕ𞤢。ᡥσ\x{062A}σ", %p)}, undef, "to_unicode\(\'𐹶𑁆ᡕ\?\。ᡥσ\\u062Aσ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1098\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𐹶𑁆ᡕ𞤢。ᡥΣ\x{062A}σ", %p)}, undef, "to_unicode\(\'𐹶𑁆ᡕ\?\。ᡥΣ\\u062Aσ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1099\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𐹶𑁆ᡕ𞤢。ᡥΣ\x{062A}ς", %p)}, undef, "to_unicode\(\'𐹶𑁆ᡕ\?\。ᡥΣ\\u062Aς\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1100\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𐹶𑁆ᡕ𞤢。ᡥσ\x{062A}ς", %p)}, undef, "to_unicode\(\'𐹶𑁆ᡕ\?\。ᡥσ\\u062Aς\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1101\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𐹶𑁆ᡕ𞤢｡ᡥΣ\x{062A}Σ", %p)}, undef, "to_unicode\(\'𐹶𑁆ᡕ\?｡ᡥΣ\\u062AΣ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1102\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𐹶𑁆ᡕ𞤢｡ᡥσ\x{062A}σ", %p)}, undef, "to_unicode\(\'𐹶𑁆ᡕ\?｡ᡥσ\\u062Aσ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1103\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𐹶𑁆ᡕ𞤢｡ᡥΣ\x{062A}σ", %p)}, undef, "to_unicode\(\'𐹶𑁆ᡕ\?｡ᡥΣ\\u062Aσ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1104\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𐹶𑁆ᡕ𞤢｡ᡥΣ\x{062A}ς", %p)}, undef, "to_unicode\(\'𐹶𑁆ᡕ\?｡ᡥΣ\\u062Aς\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1105\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𐹶𑁆ᡕ𞤢｡ᡥσ\x{062A}ς", %p)}, undef, "to_unicode\(\'𐹶𑁆ᡕ\?｡ᡥσ\\u062Aς\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:1106\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("󏒰．-𝟻ß", %p)}, undef, "to_unicode\(\'\?．\-𝟻ß\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1107\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󏒰.-5ß", %p)}, undef, "to_unicode\(\'\?\.\-5ß\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1108\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󏒰.-5SS", %p)}, undef, "to_unicode\(\'\?\.\-5SS\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1109\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󏒰．-𝟻SS", %p)}, undef, "to_unicode\(\'\?．\-𝟻SS\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1110\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󏒰．-𝟻ss", %p)}, undef, "to_unicode\(\'\?．\-𝟻ss\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1111\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󏒰．-𝟻Ss", %p)}, undef, "to_unicode\(\'\?．\-𝟻Ss\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1112\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐨿.🤒Ⴥ򑮶", %p)}, undef, "to_unicode\(\'\\u200D𐨿\.🤒Ⴥ\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1113\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐨿.🤒Ⴥ򑮶", %p)}, undef, "to_unicode\(\'\\u200D𐨿\.🤒Ⴥ\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1114\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐨿.🤒ⴥ򑮶", %p)}, undef, "to_unicode\(\'\\u200D𐨿\.🤒ⴥ\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1115\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𐨿.🤒ⴥ򑮶", %p)}, undef, "to_unicode\(\'\\u200D𐨿\.🤒ⴥ\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1116\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𵋅。ß𬵩\x{200D}", %p)}, undef, "to_unicode\(\'\?\。ß𬵩\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1117\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𵋅。ß𬵩\x{200D}", %p)}, undef, "to_unicode\(\'\?\。ß𬵩\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1118\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𵋅。SS𬵩\x{200D}", %p)}, undef, "to_unicode\(\'\?\。SS𬵩\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1119\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𵋅。SS𬵩\x{200D}", %p)}, undef, "to_unicode\(\'\?\。SS𬵩\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1120\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𵋅。ss𬵩\x{200D}", %p)}, undef, "to_unicode\(\'\?\。ss𬵩\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1121\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𵋅。ss𬵩\x{200D}", %p)}, undef, "to_unicode\(\'\?\。ss𬵩\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1122\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𵋅。Ss𬵩\x{200D}", %p)}, undef, "to_unicode\(\'\?\。Ss𬵩\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1123\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𵋅。Ss𬵩\x{200D}", %p)}, undef, "to_unicode\(\'\?\。Ss𬵩\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1124\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𭉝。\x{07F1}\x{0301}𞹻", %p)}, undef, "to_unicode\(\'\\u200C\?\。\\u07F1\\u0301𞹻\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:1125\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𭉝。\x{07F1}\x{0301}𞹻", %p)}, undef, "to_unicode\(\'\\u200C\?\。\\u07F1\\u0301𞹻\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:1126\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𭉝。\x{07F1}\x{0301}\x{063A}", %p)}, undef, "to_unicode\(\'\\u200C\?\。\\u07F1\\u0301\\u063A\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:1127\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𭉝。\x{07F1}\x{0301}\x{063A}", %p)}, undef, "to_unicode\(\'\\u200C\?\。\\u07F1\\u0301\\u063A\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:1128\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞼌\x{200C}𑈶。𐹡", %p)}, undef, "to_unicode\(\'\?\\u200C𑈶\。𐹡\'\)\ throws\ error\ P1\ V6\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1129\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞼌\x{200C}𑈶。𐹡", %p)}, undef, "to_unicode\(\'\?\\u200C𑈶\。𐹡\'\)\ throws\ error\ P1\ V6\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1130\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}ς≠", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBς\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1131\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}ς≠", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBς\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1132\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}ς=\x{0338}", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBς\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1133\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}ς=\x{0338}", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBς\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1134\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}ς≠", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBς\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1135\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}ς≠", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBς\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1136\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}ς=\x{0338}", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBς\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1137\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}ς=\x{0338}", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBς\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1138\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}Σ=\x{0338}", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBΣ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1139\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}Σ=\x{0338}", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBΣ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1140\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}Σ≠", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBΣ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1141\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}Σ≠", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBΣ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1142\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}σ≠", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBσ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1143\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}σ≠", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBσ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1144\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}σ=\x{0338}", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBσ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1145\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭。𑖿\x{1ABB}σ=\x{0338}", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭\。𑖿\\u1ABBσ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1146\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}Σ=\x{0338}", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBΣ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1147\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}Σ=\x{0338}", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBΣ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1148\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}Σ≠", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBΣ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1149\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}Σ≠", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBΣ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1150\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}σ≠", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBσ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1151\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}σ≠", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBσ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1152\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}σ=\x{0338}", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBσ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1153\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅯򇽭\x{200C}🜭｡𑖿\x{1ABB}σ=\x{0338}", %p)}, undef, "to_unicode\(\'\󠅯\?\\u200C🜭｡𑖿\\u1ABBσ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1154\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒋｡⒈\x{200D}򳴢", %p)}, undef, "to_unicode\(\'⒋｡⒈\\u200D\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1155\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒋｡⒈\x{200D}򳴢", %p)}, undef, "to_unicode\(\'⒋｡⒈\\u200D\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1156\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4.。1.\x{200D}򳴢", %p)}, undef, "to_unicode\(\'4\.\。1\.\\u200D\?\'\)\ throws\ error\ P1\ V6\ A4_2\ C2\ \[data\/IdnaTest\.txt\:1157\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4.。1.\x{200D}򳴢", %p)}, undef, "to_unicode\(\'4\.\。1\.\\u200D\?\'\)\ throws\ error\ P1\ V6\ A4_2\ C2\ \[data\/IdnaTest\.txt\:1158\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}ß｡𐇽\x{1A60}򾅢𞤾", %p)}, undef, "to_unicode\(\'\\u0644ß｡𐇽\\u1A60\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1159\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}ß｡\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_unicode\(\'\\u0644ß｡\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1160\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}ß。\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_unicode\(\'\\u0644ß\。\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1161\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}SS。\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_unicode\(\'\\u0644SS\。\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1162\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}ss。\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_unicode\(\'\\u0644ss\。\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1163\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}Ss。\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_unicode\(\'\\u0644Ss\。\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1164\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}SS｡\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_unicode\(\'\\u0644SS｡\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1165\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}ss｡\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_unicode\(\'\\u0644ss｡\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1166\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}Ss｡\x{1A60}𐇽򾅢𞤾", %p)}, undef, "to_unicode\(\'\\u0644Ss｡\\u1A60𐇽\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1167\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}SS｡𐇽\x{1A60}򾅢𞤾", %p)}, undef, "to_unicode\(\'\\u0644SS｡𐇽\\u1A60\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1168\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}ss｡𐇽\x{1A60}򾅢𞤾", %p)}, undef, "to_unicode\(\'\\u0644ss｡𐇽\\u1A60\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1169\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}Ss｡𐇽\x{1A60}򾅢𞤾", %p)}, undef, "to_unicode\(\'\\u0644Ss｡𐇽\\u1A60\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1170\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹽𑄳񼜲.\x{1DDF}\x{17B8}\x{A806}𑜫", %p)}, undef, "to_unicode\(\'𐹽𑄳\?\.\\u1DDF\\u17B8\\uA806𑜫\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1171\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴓ𑜫\x{200D}򗭓．\x{06A7}𑰶", %p)}, undef, "to_unicode\(\'Ⴓ𑜫\\u200D\?．\\u06A7\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1172\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴓ𑜫\x{200D}򗭓.\x{06A7}𑰶", %p)}, undef, "to_unicode\(\'Ⴓ𑜫\\u200D\?\.\\u06A7\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1173\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴓ𑜫\x{200D}򗭓.\x{06A7}𑰶", %p)}, undef, "to_unicode\(\'ⴓ𑜫\\u200D\?\.\\u06A7\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1174\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴓ𑜫\x{200D}򗭓．\x{06A7}𑰶", %p)}, undef, "to_unicode\(\'ⴓ𑜫\\u200D\?．\\u06A7\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1175\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐨿.🄆—", %p)}, undef, "to_unicode\(\'𐨿\.🄆\—\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1176\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐨿.5,—", %p)}, undef, "to_unicode\(\'𐨿\.5\,\—\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1177\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔊱񁦮۸。󠾭-", %p)}, undef, "to_unicode\(\'\?\?۸\。\?\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1178\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𼗸\x{07CD}𐹮。\x{06DD}ᡎᠴ", %p)}, undef, "to_unicode\(\'\?\\u07CD𐹮\。\\u06DDᡎᠴ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1179\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}ᠮႾ🄂.🚗\x{0841}𮹌\x{200C}", %p)}, undef, "to_unicode\(\'\\u200DᠮႾ🄂\.🚗\\u0841\?\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1180\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}ᠮႾ🄂.🚗\x{0841}𮹌\x{200C}", %p)}, undef, "to_unicode\(\'\\u200DᠮႾ🄂\.🚗\\u0841\?\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1181\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}ᠮႾ1,.🚗\x{0841}𮹌\x{200C}", %p)}, undef, "to_unicode\(\'\\u200DᠮႾ1\,\.🚗\\u0841\?\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1182\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}ᠮႾ1,.🚗\x{0841}𮹌\x{200C}", %p)}, undef, "to_unicode\(\'\\u200DᠮႾ1\,\.🚗\\u0841\?\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1183\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}ᠮⴞ1,.🚗\x{0841}𮹌\x{200C}", %p)}, undef, "to_unicode\(\'\\u200Dᠮⴞ1\,\.🚗\\u0841\?\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1184\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}ᠮⴞ1,.🚗\x{0841}𮹌\x{200C}", %p)}, undef, "to_unicode\(\'\\u200Dᠮⴞ1\,\.🚗\\u0841\?\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1185\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}ᠮⴞ🄂.🚗\x{0841}𮹌\x{200C}", %p)}, undef, "to_unicode\(\'\\u200Dᠮⴞ🄂\.🚗\\u0841\?\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1186\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}ᠮⴞ🄂.🚗\x{0841}𮹌\x{200C}", %p)}, undef, "to_unicode\(\'\\u200Dᠮⴞ🄂\.🚗\\u0841\?\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1187\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0601}\x{0697}．𑚶񼡷⾆", %p)}, undef, "to_unicode\(\'\\u0601\\u0697．𑚶\?⾆\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1188\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0601}\x{0697}.𑚶񼡷舌", %p)}, undef, "to_unicode\(\'\\u0601\\u0697\.𑚶\?舌\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1189\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🞅󠳡󜍙.񲖷", %p)}, undef, "to_unicode\(\'🞅\?\?\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1190\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{20E7}񯡎-򫣝.4Ⴄ\x{200C}", %p)}, undef, "to_unicode\(\'\\u20E7\?\-\?\.4Ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1191\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{20E7}񯡎-򫣝.4Ⴄ\x{200C}", %p)}, undef, "to_unicode\(\'\\u20E7\?\-\?\.4Ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1192\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{20E7}񯡎-򫣝.4ⴄ\x{200C}", %p)}, undef, "to_unicode\(\'\\u20E7\?\-\?\.4ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1193\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{20E7}񯡎-򫣝.4ⴄ\x{200C}", %p)}, undef, "to_unicode\(\'\\u20E7\?\-\?\.4ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1194\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᚭ｡𝌠ß𖫱", %p)}, "ᚭ.𝌠ß𖫱", "to_unicode\(\'ᚭ｡𝌠ß𖫱\'\)\ \[data\/IdnaTest\.txt\:1195\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᚭ｡𝌠ß𖫱", %p)}, "ᚭ.𝌠ß𖫱", "to_unicode\(\'ᚭ｡𝌠ß𖫱\'\)\ \[data\/IdnaTest\.txt\:1196\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᚭ。𝌠ß𖫱", %p)}, "ᚭ.𝌠ß𖫱", "to_unicode\(\'ᚭ\。𝌠ß𖫱\'\)\ \[data\/IdnaTest\.txt\:1197\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᚭ。𝌠ß𖫱", %p)}, "ᚭ.𝌠ß𖫱", "to_unicode\(\'ᚭ\。𝌠ß𖫱\'\)\ \[data\/IdnaTest\.txt\:1198\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᚭ。𝌠SS𖫱", %p)}, "ᚭ.𝌠ss𖫱", "to_unicode\(\'ᚭ\。𝌠SS𖫱\'\)\ \[data\/IdnaTest\.txt\:1199\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᚭ。𝌠ss𖫱", %p)}, "ᚭ.𝌠ss𖫱", "to_unicode\(\'ᚭ\。𝌠ss𖫱\'\)\ \[data\/IdnaTest\.txt\:1200\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᚭ。𝌠Ss𖫱", %p)}, "ᚭ.𝌠ss𖫱", "to_unicode\(\'ᚭ\。𝌠Ss𖫱\'\)\ \[data\/IdnaTest\.txt\:1201\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--hwe.xn--ss-ci1ub261a", %p)}, "ᚭ.𝌠ss𖫱", "to_unicode\(\'xn\-\-hwe\.xn\-\-ss\-ci1ub261a\'\)\ \[data\/IdnaTest\.txt\:1202\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᚭ.𝌠ss𖫱", %p)}, "ᚭ.𝌠ss𖫱", "to_unicode\(\'ᚭ\.𝌠ss𖫱\'\)\ \[data\/IdnaTest\.txt\:1203\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᚭ.𝌠SS𖫱", %p)}, "ᚭ.𝌠ss𖫱", "to_unicode\(\'ᚭ\.𝌠SS𖫱\'\)\ \[data\/IdnaTest\.txt\:1204\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᚭ.𝌠Ss𖫱", %p)}, "ᚭ.𝌠ss𖫱", "to_unicode\(\'ᚭ\.𝌠Ss𖫱\'\)\ \[data\/IdnaTest\.txt\:1205\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--hwe.xn--zca4946pblnc", %p)}, "ᚭ.𝌠ß𖫱", "to_unicode\(\'xn\-\-hwe\.xn\-\-zca4946pblnc\'\)\ \[data\/IdnaTest\.txt\:1206\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᚭ.𝌠ß𖫱", %p)}, "ᚭ.𝌠ß𖫱", "to_unicode\(\'ᚭ\.𝌠ß𖫱\'\)\ \[data\/IdnaTest\.txt\:1207\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᚭ.𝌠ß𖫱", %p)}, "ᚭ.𝌠ß𖫱", "to_unicode\(\'ᚭ\.𝌠ß𖫱\'\)\ \[data\/IdnaTest\.txt\:1208\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᚭ｡𝌠SS𖫱", %p)}, "ᚭ.𝌠ss𖫱", "to_unicode\(\'ᚭ｡𝌠SS𖫱\'\)\ \[data\/IdnaTest\.txt\:1209\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᚭ｡𝌠ss𖫱", %p)}, "ᚭ.𝌠ss𖫱", "to_unicode\(\'ᚭ｡𝌠ss𖫱\'\)\ \[data\/IdnaTest\.txt\:1210\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᚭ｡𝌠Ss𖫱", %p)}, "ᚭ.𝌠ss𖫱", "to_unicode\(\'ᚭ｡𝌠Ss𖫱\'\)\ \[data\/IdnaTest\.txt\:1211\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("₁｡𞤫ꡪ", %p)}, undef, "to_unicode\(\'₁｡\?ꡪ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1212\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("1。𞤫ꡪ", %p)}, undef, "to_unicode\(\'1\。\?ꡪ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1213\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𯻼\x{200C}.𞶞򻙤񥘇", %p)}, undef, "to_unicode\(\'\?\\u200C\.\?\?\?\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1214\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𯻼\x{200C}.𞶞򻙤񥘇", %p)}, undef, "to_unicode\(\'\?\\u200C\.\?\?\?\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1215\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑑄≯｡𑜤", %p)}, undef, "to_unicode\(\'\?\≯｡𑜤\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1216\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑑄>\x{0338}｡𑜤", %p)}, undef, "to_unicode\(\'\?\>\\u0338｡𑜤\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1217\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑑄≯。𑜤", %p)}, undef, "to_unicode\(\'\?\≯\。𑜤\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1218\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑑄>\x{0338}。𑜤", %p)}, undef, "to_unicode\(\'\?\>\\u0338\。𑜤\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1219\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴋ≮𱲆。\x{200D}\x{07A7}𐋣", %p)}, undef, "to_unicode\(\'Ⴋ\≮\?\。\\u200D\\u07A7𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1220\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴋ≮𱲆。\x{200D}\x{07A7}𐋣", %p)}, undef, "to_unicode\(\'Ⴋ\≮\?\。\\u200D\\u07A7𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1221\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴋ<\x{0338}𱲆。\x{200D}\x{07A7}𐋣", %p)}, undef, "to_unicode\(\'Ⴋ\<\\u0338\?\。\\u200D\\u07A7𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1222\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴋ<\x{0338}𱲆。\x{200D}\x{07A7}𐋣", %p)}, undef, "to_unicode\(\'Ⴋ\<\\u0338\?\。\\u200D\\u07A7𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1223\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴋ<\x{0338}𱲆。\x{200D}\x{07A7}𐋣", %p)}, undef, "to_unicode\(\'ⴋ\<\\u0338\?\。\\u200D\\u07A7𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1224\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴋ<\x{0338}𱲆。\x{200D}\x{07A7}𐋣", %p)}, undef, "to_unicode\(\'ⴋ\<\\u0338\?\。\\u200D\\u07A7𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1225\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴋ≮𱲆。\x{200D}\x{07A7}𐋣", %p)}, undef, "to_unicode\(\'ⴋ\≮\?\。\\u200D\\u07A7𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1226\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴋ≮𱲆。\x{200D}\x{07A7}𐋣", %p)}, undef, "to_unicode\(\'ⴋ\≮\?\。\\u200D\\u07A7𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1227\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{17D2}.򆽒≯", %p)}, undef, "to_unicode\(\'\\u17D2\.\?\≯\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1228\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{17D2}.򆽒>\x{0338}", %p)}, undef, "to_unicode\(\'\\u17D2\.\?\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1229\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񏁇\x{1734}．𐨺É⬓𑄴", %p)}, undef, "to_unicode\(\'\?\\u1734．𐨺É\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1230\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񏁇\x{1734}．𐨺E\x{0301}⬓𑄴", %p)}, undef, "to_unicode\(\'\?\\u1734．𐨺E\\u0301\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1231\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񏁇\x{1734}.𐨺É⬓𑄴", %p)}, undef, "to_unicode\(\'\?\\u1734\.𐨺É\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1232\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񏁇\x{1734}.𐨺E\x{0301}⬓𑄴", %p)}, undef, "to_unicode\(\'\?\\u1734\.𐨺E\\u0301\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1233\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񏁇\x{1734}.𐨺e\x{0301}⬓𑄴", %p)}, undef, "to_unicode\(\'\?\\u1734\.𐨺e\\u0301\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1234\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񏁇\x{1734}.𐨺é⬓𑄴", %p)}, undef, "to_unicode\(\'\?\\u1734\.𐨺é\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1235\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񏁇\x{1734}．𐨺e\x{0301}⬓𑄴", %p)}, undef, "to_unicode\(\'\?\\u1734．𐨺e\\u0301\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1236\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񏁇\x{1734}．𐨺é⬓𑄴", %p)}, undef, "to_unicode\(\'\?\\u1734．𐨺é\⬓𑄴\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1237\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢇ\x{200D}\x{A8C4}｡︒𞤺", %p)}, undef, "to_unicode\(\'ᢇ\\u200D\\uA8C4｡︒\?\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1238\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢇ\x{200D}\x{A8C4}｡︒𞤺", %p)}, undef, "to_unicode\(\'ᢇ\\u200D\\uA8C4｡︒\?\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1239\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("ᢇ\x{200D}\x{A8C4}。。𞤺", %p)}, undef, "to_unicode\(\'ᢇ\\u200D\\uA8C4\。\。\?\'\)\ throws\ error\ C2\ A4_2\ \[data\/IdnaTest\.txt\:1240\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("ᢇ\x{200D}\x{A8C4}。。𞤺", %p)}, undef, "to_unicode\(\'ᢇ\\u200D\\uA8C4\。\。\?\'\)\ throws\ error\ C2\ A4_2\ \[data\/IdnaTest\.txt\:1241\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𞩬򖙱\x{1714}\x{200C}｡\x{0631}\x{07AA}≮", %p)}, undef, "to_unicode\(\'\?\?\\u1714\\u200C｡\\u0631\\u07AA\≮\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1242\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞩬򖙱\x{1714}\x{200C}｡\x{0631}\x{07AA}<\x{0338}", %p)}, undef, "to_unicode\(\'\?\?\\u1714\\u200C｡\\u0631\\u07AA\<\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1243\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞩬򖙱\x{1714}\x{200C}。\x{0631}\x{07AA}≮", %p)}, undef, "to_unicode\(\'\?\?\\u1714\\u200C\。\\u0631\\u07AA\≮\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1244\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞩬򖙱\x{1714}\x{200C}。\x{0631}\x{07AA}<\x{0338}", %p)}, undef, "to_unicode\(\'\?\?\\u1714\\u200C\。\\u0631\\u07AA\<\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1245\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴣ．\x{0653}ᢤ", %p)}, undef, "to_unicode\(\'Ⴣ．\\u0653ᢤ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1246\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴣ.\x{0653}ᢤ", %p)}, undef, "to_unicode\(\'Ⴣ\.\\u0653ᢤ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1247\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴣ.\x{0653}ᢤ", %p)}, undef, "to_unicode\(\'ⴣ\.\\u0653ᢤ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1248\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴣ．\x{0653}ᢤ", %p)}, undef, "to_unicode\(\'ⴣ．\\u0653ᢤ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1249\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("󠄈\x{0813}．싉򄆻Ⴤ򂡐", %p)}, undef, "to_unicode\(\'\󠄈\\u0813．싉\?Ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1250\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄈\x{0813}．싉򄆻Ⴤ򂡐", %p)}, undef, "to_unicode\(\'\󠄈\\u0813．싉\?Ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1251\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄈\x{0813}.싉򄆻Ⴤ򂡐", %p)}, undef, "to_unicode\(\'\󠄈\\u0813\.싉\?Ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1252\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄈\x{0813}.싉򄆻Ⴤ򂡐", %p)}, undef, "to_unicode\(\'\󠄈\\u0813\.싉\?Ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1253\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄈\x{0813}.싉򄆻ⴤ򂡐", %p)}, undef, "to_unicode\(\'\󠄈\\u0813\.싉\?ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1254\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄈\x{0813}.싉򄆻ⴤ򂡐", %p)}, undef, "to_unicode\(\'\󠄈\\u0813\.싉\?ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1255\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄈\x{0813}．싉򄆻ⴤ򂡐", %p)}, undef, "to_unicode\(\'\󠄈\\u0813．싉\?ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1256\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄈\x{0813}．싉򄆻ⴤ򂡐", %p)}, undef, "to_unicode\(\'\󠄈\\u0813．싉\?ⴤ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1257\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{AA2C}𑲫≮．⤂", %p)}, undef, "to_unicode\(\'\\uAA2C\?\≮．\⤂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1258\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{AA2C}𑲫<\x{0338}．⤂", %p)}, undef, "to_unicode\(\'\\uAA2C\?\<\\u0338．\⤂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1259\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{AA2C}𑲫≮.⤂", %p)}, undef, "to_unicode\(\'\\uAA2C\?\≮\.\⤂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1260\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{AA2C}𑲫<\x{0338}.⤂", %p)}, undef, "to_unicode\(\'\\uAA2C\?\<\\u0338\.\⤂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1261\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0604}𐩔≮Ⴢ．Ⴃ", %p)}, undef, "to_unicode\(\'\\u0604𐩔\≮Ⴢ．Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1262\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0604}𐩔<\x{0338}Ⴢ．Ⴃ", %p)}, undef, "to_unicode\(\'\\u0604𐩔\<\\u0338Ⴢ．Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1263\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0604}𐩔≮Ⴢ.Ⴃ", %p)}, undef, "to_unicode\(\'\\u0604𐩔\≮Ⴢ\.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1264\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0604}𐩔<\x{0338}Ⴢ.Ⴃ", %p)}, undef, "to_unicode\(\'\\u0604𐩔\<\\u0338Ⴢ\.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1265\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0604}𐩔<\x{0338}ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'\\u0604𐩔\<\\u0338ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1266\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0604}𐩔≮ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'\\u0604𐩔\≮ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1267\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0604}𐩔≮Ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'\\u0604𐩔\≮Ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1268\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0604}𐩔<\x{0338}Ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'\\u0604𐩔\<\\u0338Ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1269\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0604}𐩔<\x{0338}ⴢ．ⴃ", %p)}, undef, "to_unicode\(\'\\u0604𐩔\<\\u0338ⴢ．ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1270\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0604}𐩔≮ⴢ．ⴃ", %p)}, undef, "to_unicode\(\'\\u0604𐩔\≮ⴢ．ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1271\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0604}𐩔≮Ⴢ．ⴃ", %p)}, undef, "to_unicode\(\'\\u0604𐩔\≮Ⴢ．ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1272\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0604}𐩔<\x{0338}Ⴢ．ⴃ", %p)}, undef, "to_unicode\(\'\\u0604𐩔\<\\u0338Ⴢ．ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1273\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("𑁅。-", %p)}, undef, "to_unicode\(\'𑁅\。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1274\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{0DCA}򕸽󠧱｡饈≠\x{0664}", %p)}, undef, "to_unicode\(\'\\u0DCA\?\?｡饈\≠\\u0664\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1275\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0DCA}򕸽󠧱｡饈=\x{0338}\x{0664}", %p)}, undef, "to_unicode\(\'\\u0DCA\?\?｡饈\=\\u0338\\u0664\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1276\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0DCA}򕸽󠧱。饈≠\x{0664}", %p)}, undef, "to_unicode\(\'\\u0DCA\?\?\。饈\≠\\u0664\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1277\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0DCA}򕸽󠧱。饈=\x{0338}\x{0664}", %p)}, undef, "to_unicode\(\'\\u0DCA\?\?\。饈\=\\u0338\\u0664\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1278\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞥃ᠠ⁷｡≯邅⬻4", %p)}, undef, "to_unicode\(\'\?ᠠ⁷｡\≯邅\⬻4\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1279\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞥃ᠠ⁷｡>\x{0338}邅⬻4", %p)}, undef, "to_unicode\(\'\?ᠠ⁷｡\>\\u0338邅\⬻4\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1280\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞥃ᠠ7。≯邅⬻4", %p)}, undef, "to_unicode\(\'\?ᠠ7\。\≯邅\⬻4\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1281\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞥃ᠠ7。>\x{0338}邅⬻4", %p)}, undef, "to_unicode\(\'\?ᠠ7\。\>\\u0338邅\⬻4\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1282\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򠿯ᡳ-𑐻.𐹴𐋫\x{0605}󑎳", %p)}, undef, "to_unicode\(\'\?ᡳ\-\?\.𐹴𐋫\\u0605\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1283\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򠶆\x{0845}\x{0A51}.넨-󶧈", %p)}, undef, "to_unicode\(\'\?\\u0845\\u0A51\.넨\-\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1284\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򠶆\x{0845}\x{0A51}.넨-󶧈", %p)}, undef, "to_unicode\(\'\?\\u0845\\u0A51\.넨\-\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1285\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡦᡑ\x{200D}⒈。𐋣-", %p)}, undef, "to_unicode\(\'ꡦᡑ\\u200D⒈\。𐋣\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:1286\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡦᡑ\x{200D}⒈。𐋣-", %p)}, undef, "to_unicode\(\'ꡦᡑ\\u200D⒈\。𐋣\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:1287\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ꡦᡑ\x{200D}1.。𐋣-", %p)}, undef, "to_unicode\(\'ꡦᡑ\\u200D1\.\。𐋣\-\'\)\ throws\ error\ V3\ C2\ A4_2\ \[data\/IdnaTest\.txt\:1288\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ꡦᡑ\x{200D}1.。𐋣-", %p)}, undef, "to_unicode\(\'ꡦᡑ\\u200D1\.\。𐋣\-\'\)\ throws\ error\ V3\ C2\ A4_2\ \[data\/IdnaTest\.txt\:1289\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ⴌ。􍼠\x{FB69}", %p)}, undef, "to_unicode\(\'Ⴌ\。\?\\uFB69\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1290\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴌ。􍼠\x{0679}", %p)}, undef, "to_unicode\(\'Ⴌ\。\?\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1291\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴌ。􍼠\x{0679}", %p)}, undef, "to_unicode\(\'ⴌ\。\?\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1292\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴌ。􍼠\x{FB69}", %p)}, undef, "to_unicode\(\'ⴌ\。\?\\uFB69\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1293\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐮁𐭱.\x{0F84}\x{135E}-\x{1CFA}", %p)}, undef, "to_unicode\(\'𐮁𐭱\.\\u0F84\\u135E\-\\u1CFA\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1294\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈䰹\x{200D}-。웈", %p)}, undef, "to_unicode\(\'⒈䰹\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1295\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈䰹\x{200D}-。웈", %p)}, undef, "to_unicode\(\'⒈䰹\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1296\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈䰹\x{200D}-。웈", %p)}, undef, "to_unicode\(\'⒈䰹\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1297\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈䰹\x{200D}-。웈", %p)}, undef, "to_unicode\(\'⒈䰹\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1298\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.䰹\x{200D}-。웈", %p)}, undef, "to_unicode\(\'1\.䰹\\u200D\-\。웈\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:1299\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.䰹\x{200D}-。웈", %p)}, undef, "to_unicode\(\'1\.䰹\\u200D\-\。웈\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:1300\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.䰹\x{200D}-。웈", %p)}, undef, "to_unicode\(\'1\.䰹\\u200D\-\。웈\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:1301\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.䰹\x{200D}-。웈", %p)}, undef, "to_unicode\(\'1\.䰹\\u200D\-\。웈\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:1302\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("て。\x{200C}󠳽\x{07F3}", %p)}, undef, "to_unicode\(\'て\。\\u200C\?\\u07F3\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1303\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("て。\x{200C}󠳽\x{07F3}", %p)}, undef, "to_unicode\(\'て\。\\u200C\?\\u07F3\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1304\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ς｡\x{A9C0}\x{06E7}", %p)}, undef, "to_unicode\(\'ς｡\\uA9C0\\u06E7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1305\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ς。\x{A9C0}\x{06E7}", %p)}, undef, "to_unicode\(\'ς\。\\uA9C0\\u06E7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1306\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("Σ。\x{A9C0}\x{06E7}", %p)}, undef, "to_unicode\(\'Σ\。\\uA9C0\\u06E7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1307\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("σ。\x{A9C0}\x{06E7}", %p)}, undef, "to_unicode\(\'σ\。\\uA9C0\\u06E7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1308\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("Σ｡\x{A9C0}\x{06E7}", %p)}, undef, "to_unicode\(\'Σ｡\\uA9C0\\u06E7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1309\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("σ｡\x{A9C0}\x{06E7}", %p)}, undef, "to_unicode\(\'σ｡\\uA9C0\\u06E7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1310\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{0BCD}󥫅򌉑.ႢႵ", %p)}, undef, "to_unicode\(\'\\u0BCD\?\?\.ႢႵ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1311\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0BCD}󥫅򌉑.ⴂⴕ", %p)}, undef, "to_unicode\(\'\\u0BCD\?\?\.ⴂⴕ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1312\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0BCD}󥫅򌉑.Ⴂⴕ", %p)}, undef, "to_unicode\(\'\\u0BCD\?\?\.Ⴂⴕ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1313\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1C32}🄈⾛\x{05A6}．\x{200D}򯥤\x{07FD}", %p)}, undef, "to_unicode\(\'\\u1C32🄈⾛\\u05A6．\\u200D\?\\u07FD\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1314\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1C32}🄈⾛\x{05A6}．\x{200D}򯥤\x{07FD}", %p)}, undef, "to_unicode\(\'\\u1C32🄈⾛\\u05A6．\\u200D\?\\u07FD\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1315\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1C32}7,走\x{05A6}.\x{200D}򯥤\x{07FD}", %p)}, undef, "to_unicode\(\'\\u1C327\,走\\u05A6\.\\u200D\?\\u07FD\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1316\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1C32}7,走\x{05A6}.\x{200D}򯥤\x{07FD}", %p)}, undef, "to_unicode\(\'\\u1C327\,走\\u05A6\.\\u200D\?\\u07FD\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1317\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢗ｡Ӏ񝄻", %p)}, undef, "to_unicode\(\'ᢗ｡Ӏ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1318\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢗ。Ӏ񝄻", %p)}, undef, "to_unicode\(\'ᢗ\。Ӏ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1319\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢗ。ӏ񝄻", %p)}, undef, "to_unicode\(\'ᢗ\。ӏ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1320\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢗ｡ӏ񝄻", %p)}, undef, "to_unicode\(\'ᢗ｡ӏ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1321\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0668}-。񠏇🝆ᄾ", %p)}, undef, "to_unicode\(\'\\u0668\-\。\?🝆ᄾ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1322\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-𐋷𖾑。󠆬", %p)}, undef, "to_unicode\(\'\-𐋷𖾑\。\󠆬\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1323\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200C}𐹳🐴멈.\x{ABED}񐡼", %p)}, undef, "to_unicode\(\'\\u200C𐹳🐴멈\.\\uABED\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1324\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𐹳🐴멈.\x{ABED}񐡼", %p)}, undef, "to_unicode\(\'\\u200C𐹳🐴멈\.\\uABED\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1325\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𐹳🐴멈.\x{ABED}񐡼", %p)}, undef, "to_unicode\(\'\\u200C𐹳🐴멈\.\\uABED\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1326\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𐹳🐴멈.\x{ABED}񐡼", %p)}, undef, "to_unicode\(\'\\u200C𐹳🐴멈\.\\uABED\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1327\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮.\x{0769}\x{0603}", %p)}, undef, "to_unicode\(\'\≮\.\\u0769\\u0603\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1328\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}.\x{0769}\x{0603}", %p)}, undef, "to_unicode\(\'\<\\u0338\.\\u0769\\u0603\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1329\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐶭⾆｡\x{200C}𑚶򟱃𞰘", %p)}, undef, "to_unicode\(\'\?⾆｡\\u200C𑚶\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:1330\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐶭⾆｡\x{200C}𑚶򟱃𞰘", %p)}, undef, "to_unicode\(\'\?⾆｡\\u200C𑚶\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:1331\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐶭舌。\x{200C}𑚶򟱃𞰘", %p)}, undef, "to_unicode\(\'\?舌\。\\u200C𑚶\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:1332\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐶭舌。\x{200C}𑚶򟱃𞰘", %p)}, undef, "to_unicode\(\'\?舌\。\\u200C𑚶\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:1333\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴠ-.𝟷ς𞴺ς", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.𝟷ς\?ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1334\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴠ-.𝟷ς𞴺ς", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.𝟷ς\?ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1335\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴠ-.1ς𞴺ς", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.1ς\?ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1336\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴠ-.1ς𞴺ς", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.1ς\?ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1337\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ⴠ-.1ς𞴺ς", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.1ς\?ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1338\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ⴠ-.1ς𞴺ς", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.1ς\?ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1339\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴠ-.1Σ𞴺Σ", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.1Σ\?Σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1340\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴠ-.1Σ𞴺Σ", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.1Σ\?Σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1341\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ⴠ-.1σ𞴺σ", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.1σ\?σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1342\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ⴠ-.1σ𞴺σ", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.1σ\?σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1343\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ⴠ-.𝟷ς𞴺ς", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.𝟷ς\?ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1344\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ⴠ-.𝟷ς𞴺ς", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.𝟷ς\?ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1345\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴠ-.𝟷Σ𞴺Σ", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.𝟷Σ\?Σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1346\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴠ-.𝟷Σ𞴺Σ", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.𝟷Σ\?Σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1347\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ⴠ-.𝟷σ𞴺σ", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.𝟷σ\?σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1348\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ⴠ-.𝟷σ𞴺σ", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.𝟷σ\?σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1349\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑲘󠄒𓑡｡𝟪Ⴜ", %p)}, undef, "to_unicode\(\'\?\󠄒\?｡𝟪Ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1350\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑲘󠄒𓑡。8Ⴜ", %p)}, undef, "to_unicode\(\'\?\󠄒\?\。8Ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1351\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑲘󠄒𓑡。8ⴜ", %p)}, undef, "to_unicode\(\'\?\󠄒\?\。8ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1352\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑲘󠄒𓑡｡𝟪ⴜ", %p)}, undef, "to_unicode\(\'\?\󠄒\?｡𝟪ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1353\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("䪏\x{06AB}\x{07E0}\x{0941}｡뭕ᢝ\x{17B9}", %p)}, undef, "to_unicode\(\'䪏\\u06AB\\u07E0\\u0941｡뭕ᢝ\\u17B9\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1354\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("䪏\x{06AB}\x{07E0}\x{0941}｡뭕ᢝ\x{17B9}", %p)}, undef, "to_unicode\(\'䪏\\u06AB\\u07E0\\u0941｡뭕ᢝ\\u17B9\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1355\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("䪏\x{06AB}\x{07E0}\x{0941}。뭕ᢝ\x{17B9}", %p)}, undef, "to_unicode\(\'䪏\\u06AB\\u07E0\\u0941\。뭕ᢝ\\u17B9\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1356\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("䪏\x{06AB}\x{07E0}\x{0941}。뭕ᢝ\x{17B9}", %p)}, undef, "to_unicode\(\'䪏\\u06AB\\u07E0\\u0941\。뭕ᢝ\\u17B9\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1357\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{1BAB}｡🂉󠁰", %p)}, undef, "to_unicode\(\'\\u1BAB｡🂉\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1358\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BAB}。🂉󠁰", %p)}, undef, "to_unicode\(\'\\u1BAB\。🂉\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1359\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󩎃\x{0AC4}。ς\x{200D}𐹮𑈵", %p)}, undef, "to_unicode\(\'\?\\u0AC4\。ς\\u200D𐹮𑈵\'\)\ throws\ error\ P1\ V6\ B5\ C2\ \[data\/IdnaTest\.txt\:1360\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󩎃\x{0AC4}。ς\x{200D}𐹮𑈵", %p)}, undef, "to_unicode\(\'\?\\u0AC4\。ς\\u200D𐹮𑈵\'\)\ throws\ error\ P1\ V6\ B5\ C2\ \[data\/IdnaTest\.txt\:1361\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󩎃\x{0AC4}。Σ\x{200D}𐹮𑈵", %p)}, undef, "to_unicode\(\'\?\\u0AC4\。Σ\\u200D𐹮𑈵\'\)\ throws\ error\ P1\ V6\ B5\ C2\ \[data\/IdnaTest\.txt\:1362\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󩎃\x{0AC4}。Σ\x{200D}𐹮𑈵", %p)}, undef, "to_unicode\(\'\?\\u0AC4\。Σ\\u200D𐹮𑈵\'\)\ throws\ error\ P1\ V6\ B5\ C2\ \[data\/IdnaTest\.txt\:1363\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󩎃\x{0AC4}。σ\x{200D}𐹮𑈵", %p)}, undef, "to_unicode\(\'\?\\u0AC4\。σ\\u200D𐹮𑈵\'\)\ throws\ error\ P1\ V6\ B5\ C2\ \[data\/IdnaTest\.txt\:1364\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󩎃\x{0AC4}。σ\x{200D}𐹮𑈵", %p)}, undef, "to_unicode\(\'\?\\u0AC4\。σ\\u200D𐹮𑈵\'\)\ throws\ error\ P1\ V6\ B5\ C2\ \[data\/IdnaTest\.txt\:1365\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𐫀ᡂ𑜫．𑘿", %p)}, undef, "to_unicode\(\'𐫀ᡂ𑜫．𑘿\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1366\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𐫀ᡂ𑜫.𑘿", %p)}, undef, "to_unicode\(\'𐫀ᡂ𑜫\.𑘿\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1367\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("󬚶󸋖򖩰-。\x{200C}", %p)}, undef, "to_unicode\(\'\?\?\?\-\。\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:1368\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󬚶󸋖򖩰-。\x{200C}", %p)}, undef, "to_unicode\(\'\?\?\?\-\。\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:1369\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣．\x{07C2}", %p)}, undef, "to_unicode\(\'𐹣．\\u07C2\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1370\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣.\x{07C2}", %p)}, undef, "to_unicode\(\'𐹣\.\\u07C2\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1371\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("-\x{07E1}｡Ↄ", %p)}, undef, "to_unicode\(\'\-\\u07E1｡Ↄ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1372\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{07E1}。Ↄ", %p)}, undef, "to_unicode\(\'\-\\u07E1\。Ↄ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1373\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("-\x{07E1}。ↄ", %p)}, undef, "to_unicode\(\'\-\\u07E1\。ↄ\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1374\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("-\x{07E1}｡ↄ", %p)}, undef, "to_unicode\(\'\-\\u07E1｡ↄ\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1375\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200D}-︒󠄄。ß哑\x{200C}𐵿", %p)}, undef, "to_unicode\(\'\\u200D\-︒\󠄄\。ß哑\\u200C\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1376\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-︒󠄄。ß哑\x{200C}𐵿", %p)}, undef, "to_unicode\(\'\\u200D\-︒\󠄄\。ß哑\\u200C\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1377\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-。󠄄。ß哑\x{200C}𐵿", %p)}, undef, "to_unicode\(\'\\u200D\-\。\󠄄\。ß哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1378\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-。󠄄。ß哑\x{200C}𐵿", %p)}, undef, "to_unicode\(\'\\u200D\-\。\󠄄\。ß哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1379\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-。󠄄。SS哑\x{200C}𐵿", %p)}, undef, "to_unicode\(\'\\u200D\-\。\󠄄\。SS哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1380\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-。󠄄。SS哑\x{200C}𐵿", %p)}, undef, "to_unicode\(\'\\u200D\-\。\󠄄\。SS哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1381\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-。󠄄。ss哑\x{200C}𐵿", %p)}, undef, "to_unicode\(\'\\u200D\-\。\󠄄\。ss哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1382\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-。󠄄。ss哑\x{200C}𐵿", %p)}, undef, "to_unicode\(\'\\u200D\-\。\󠄄\。ss哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1383\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-。󠄄。Ss哑\x{200C}𐵿", %p)}, undef, "to_unicode\(\'\\u200D\-\。\󠄄\。Ss哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1384\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-。󠄄。Ss哑\x{200C}𐵿", %p)}, undef, "to_unicode\(\'\\u200D\-\。\󠄄\。Ss哑\\u200C\?\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1385\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-︒󠄄。SS哑\x{200C}𐵿", %p)}, undef, "to_unicode\(\'\\u200D\-︒\󠄄\。SS哑\\u200C\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1386\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-︒󠄄。SS哑\x{200C}𐵿", %p)}, undef, "to_unicode\(\'\\u200D\-︒\󠄄\。SS哑\\u200C\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1387\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-︒󠄄。ss哑\x{200C}𐵿", %p)}, undef, "to_unicode\(\'\\u200D\-︒\󠄄\。ss哑\\u200C\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1388\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-︒󠄄。ss哑\x{200C}𐵿", %p)}, undef, "to_unicode\(\'\\u200D\-︒\󠄄\。ss哑\\u200C\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1389\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-︒󠄄。Ss哑\x{200C}𐵿", %p)}, undef, "to_unicode\(\'\\u200D\-︒\󠄄\。Ss哑\\u200C\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1390\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-︒󠄄。Ss哑\x{200C}𐵿", %p)}, undef, "to_unicode\(\'\\u200D\-︒\󠄄\。Ss哑\\u200C\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1391\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("︒．\x{FE2F}𑑂", %p)}, undef, "to_unicode\(\'︒．\\uFE2F\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1392\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("︒．𑑂\x{FE2F}", %p)}, undef, "to_unicode\(\'︒．\?\\uFE2F\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1393\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("。.𑑂\x{FE2F}", %p)}, undef, "to_unicode\(\'\。\.\?\\uFE2F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1394\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{A92C}。\x{200D}", %p)}, undef, "to_unicode\(\'\\uA92C\。\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1395\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{A92C}。\x{200D}", %p)}, undef, "to_unicode\(\'\\uA92C\。\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1396\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200D}󠸡｡\x{FCD7}", %p)}, undef, "to_unicode\(\'\\u200D\?｡\\uFCD7\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1397\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}󠸡｡\x{FCD7}", %p)}, undef, "to_unicode\(\'\\u200D\?｡\\uFCD7\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1398\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}󠸡。\x{0647}\x{062C}", %p)}, undef, "to_unicode\(\'\\u200D\?\。\\u0647\\u062C\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1399\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}󠸡。\x{0647}\x{062C}", %p)}, undef, "to_unicode\(\'\\u200D\?\。\\u0647\\u062C\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1400\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-Ⴄ𝟢\x{0663}．𑍴ς", %p)}, undef, "to_unicode\(\'\-Ⴄ𝟢\\u0663．𑍴ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1401\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-Ⴄ0\x{0663}.𑍴ς", %p)}, undef, "to_unicode\(\'\-Ⴄ0\\u0663\.𑍴ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1402\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-ⴄ0\x{0663}.𑍴ς", %p)}, undef, "to_unicode\(\'\-ⴄ0\\u0663\.𑍴ς\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1403\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("-Ⴄ0\x{0663}.𑍴Σ", %p)}, undef, "to_unicode\(\'\-Ⴄ0\\u0663\.𑍴Σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1404\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-ⴄ0\x{0663}.𑍴σ", %p)}, undef, "to_unicode\(\'\-ⴄ0\\u0663\.𑍴σ\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1405\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-ⴄ𝟢\x{0663}．𑍴ς", %p)}, undef, "to_unicode\(\'\-ⴄ𝟢\\u0663．𑍴ς\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1406\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("-Ⴄ𝟢\x{0663}．𑍴Σ", %p)}, undef, "to_unicode\(\'\-Ⴄ𝟢\\u0663．𑍴Σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1407\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-ⴄ𝟢\x{0663}．𑍴σ", %p)}, undef, "to_unicode\(\'\-ⴄ𝟢\\u0663．𑍴σ\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1408\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("󦈄。-", %p)}, undef, "to_unicode\(\'\?\。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1409\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⋠𐋮．򶈮\x{0F18}ß≯", %p)}, undef, "to_unicode\(\'\⋠𐋮．\?\\u0F18ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1410\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≼\x{0338}𐋮．򶈮\x{0F18}ß>\x{0338}", %p)}, undef, "to_unicode\(\'\≼\\u0338𐋮．\?\\u0F18ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1411\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⋠𐋮.򶈮\x{0F18}ß≯", %p)}, undef, "to_unicode\(\'\⋠𐋮\.\?\\u0F18ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1412\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≼\x{0338}𐋮.򶈮\x{0F18}ß>\x{0338}", %p)}, undef, "to_unicode\(\'\≼\\u0338𐋮\.\?\\u0F18ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1413\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≼\x{0338}𐋮.򶈮\x{0F18}SS>\x{0338}", %p)}, undef, "to_unicode\(\'\≼\\u0338𐋮\.\?\\u0F18SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1414\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⋠𐋮.򶈮\x{0F18}SS≯", %p)}, undef, "to_unicode\(\'\⋠𐋮\.\?\\u0F18SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1415\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⋠𐋮.򶈮\x{0F18}ss≯", %p)}, undef, "to_unicode\(\'\⋠𐋮\.\?\\u0F18ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1416\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≼\x{0338}𐋮.򶈮\x{0F18}ss>\x{0338}", %p)}, undef, "to_unicode\(\'\≼\\u0338𐋮\.\?\\u0F18ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1417\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≼\x{0338}𐋮.򶈮\x{0F18}Ss>\x{0338}", %p)}, undef, "to_unicode\(\'\≼\\u0338𐋮\.\?\\u0F18Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1418\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⋠𐋮.򶈮\x{0F18}Ss≯", %p)}, undef, "to_unicode\(\'\⋠𐋮\.\?\\u0F18Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1419\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≼\x{0338}𐋮．򶈮\x{0F18}SS>\x{0338}", %p)}, undef, "to_unicode\(\'\≼\\u0338𐋮．\?\\u0F18SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1420\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⋠𐋮．򶈮\x{0F18}SS≯", %p)}, undef, "to_unicode\(\'\⋠𐋮．\?\\u0F18SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1421\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⋠𐋮．򶈮\x{0F18}ss≯", %p)}, undef, "to_unicode\(\'\⋠𐋮．\?\\u0F18ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1422\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≼\x{0338}𐋮．򶈮\x{0F18}ss>\x{0338}", %p)}, undef, "to_unicode\(\'\≼\\u0338𐋮．\?\\u0F18ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1423\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≼\x{0338}𐋮．򶈮\x{0F18}Ss>\x{0338}", %p)}, undef, "to_unicode\(\'\≼\\u0338𐋮．\?\\u0F18Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1424\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⋠𐋮．򶈮\x{0F18}Ss≯", %p)}, undef, "to_unicode\(\'\⋠𐋮．\?\\u0F18Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1425\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1𐋸\x{0664}｡󠢮\x{FBA4}񷝊", %p)}, undef, "to_unicode\(\'1𐋸\\u0664｡\?\\uFBA4\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1426\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1𐋸\x{0664}。󠢮\x{06C0}񷝊", %p)}, undef, "to_unicode\(\'1𐋸\\u0664\。\?\\u06C0\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1427\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1𐋸\x{0664}。󠢮\x{06D5}\x{0654}񷝊", %p)}, undef, "to_unicode\(\'1𐋸\\u0664\。\?\\u06D5\\u0654\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1428\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("儭-｡𐹴Ⴢ񥳠\x{200C}", %p)}, undef, "to_unicode\(\'儭\-｡𐹴Ⴢ\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1429\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("儭-｡𐹴Ⴢ񥳠\x{200C}", %p)}, undef, "to_unicode\(\'儭\-｡𐹴Ⴢ\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1430\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("儭-。𐹴Ⴢ񥳠\x{200C}", %p)}, undef, "to_unicode\(\'儭\-\。𐹴Ⴢ\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1431\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("儭-。𐹴Ⴢ񥳠\x{200C}", %p)}, undef, "to_unicode\(\'儭\-\。𐹴Ⴢ\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1432\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("儭-。𐹴ⴢ񥳠\x{200C}", %p)}, undef, "to_unicode\(\'儭\-\。𐹴ⴢ\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1433\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("儭-。𐹴ⴢ񥳠\x{200C}", %p)}, undef, "to_unicode\(\'儭\-\。𐹴ⴢ\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1434\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("儭-｡𐹴ⴢ񥳠\x{200C}", %p)}, undef, "to_unicode\(\'儭\-｡𐹴ⴢ\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1435\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("儭-｡𐹴ⴢ񥳠\x{200C}", %p)}, undef, "to_unicode\(\'儭\-｡𐹴ⴢ\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1436\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟺𐋷\x{06B9}．𞤭򿍡", %p)}, undef, "to_unicode\(\'𝟺𐋷\\u06B9．\?\?\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1437\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4𐋷\x{06B9}.𞤭򿍡", %p)}, undef, "to_unicode\(\'4𐋷\\u06B9\.\?\?\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1438\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯-ꡋ𑲣.⒈𐹭", %p)}, undef, "to_unicode\(\'\≯\-ꡋ\?\.⒈𐹭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1439\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}-ꡋ𑲣.⒈𐹭", %p)}, undef, "to_unicode\(\'\>\\u0338\-ꡋ\?\.⒈𐹭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1440\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯-ꡋ𑲣.1.𐹭", %p)}, undef, "to_unicode\(\'\≯\-ꡋ\?\.1\.𐹭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1441\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}-ꡋ𑲣.1.𐹭", %p)}, undef, "to_unicode\(\'\>\\u0338\-ꡋ\?\.1\.𐹭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1442\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0330}．󰜱蚀", %p)}, undef, "to_unicode\(\'\\u0330．\?蚀\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1443\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0330}.󰜱蚀", %p)}, undef, "to_unicode\(\'\\u0330\.\?蚀\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1444\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FB39}Ⴘ.𞡼𑇀ß\x{20D7}", %p)}, undef, "to_unicode\(\'\\uFB39Ⴘ\.𞡼𑇀ß\\u20D7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1445\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{05D9}\x{05BC}Ⴘ.𞡼𑇀ß\x{20D7}", %p)}, undef, "to_unicode\(\'\\u05D9\\u05BCႸ\.𞡼𑇀ß\\u20D7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1446\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{05D9}\x{05BC}ⴘ.𞡼𑇀ß\x{20D7}", %p)}, undef, "to_unicode\(\'\\u05D9\\u05BCⴘ\.𞡼𑇀ß\\u20D7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1447\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{05D9}\x{05BC}Ⴘ.𞡼𑇀SS\x{20D7}", %p)}, undef, "to_unicode\(\'\\u05D9\\u05BCႸ\.𞡼𑇀SS\\u20D7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1448\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{05D9}\x{05BC}ⴘ.𞡼𑇀ss\x{20D7}", %p)}, undef, "to_unicode\(\'\\u05D9\\u05BCⴘ\.𞡼𑇀ss\\u20D7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1449\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{05D9}\x{05BC}Ⴘ.𞡼𑇀ss\x{20D7}", %p)}, undef, "to_unicode\(\'\\u05D9\\u05BCႸ\.𞡼𑇀ss\\u20D7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1450\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{FB39}ⴘ.𞡼𑇀ß\x{20D7}", %p)}, undef, "to_unicode\(\'\\uFB39ⴘ\.𞡼𑇀ß\\u20D7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1451\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{FB39}Ⴘ.𞡼𑇀SS\x{20D7}", %p)}, undef, "to_unicode\(\'\\uFB39Ⴘ\.𞡼𑇀SS\\u20D7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1452\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{FB39}ⴘ.𞡼𑇀ss\x{20D7}", %p)}, undef, "to_unicode\(\'\\uFB39ⴘ\.𞡼𑇀ss\\u20D7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1453\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{FB39}Ⴘ.𞡼𑇀ss\x{20D7}", %p)}, undef, "to_unicode\(\'\\uFB39Ⴘ\.𞡼𑇀ss\\u20D7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1454\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BA3}𐹰򁱓｡凬", %p)}, undef, "to_unicode\(\'\\u1BA3𐹰\?｡凬\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1455\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BA3}𐹰򁱓。凬", %p)}, undef, "to_unicode\(\'\\u1BA3𐹰\?\。凬\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1456\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🢟🄈\x{200D}ꡎ｡\x{0F84}", %p)}, undef, "to_unicode\(\'🢟🄈\\u200Dꡎ｡\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1457\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🢟🄈\x{200D}ꡎ｡\x{0F84}", %p)}, undef, "to_unicode\(\'🢟🄈\\u200Dꡎ｡\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1458\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🢟7,\x{200D}ꡎ。\x{0F84}", %p)}, undef, "to_unicode\(\'🢟7\,\\u200Dꡎ\。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1459\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🢟7,\x{200D}ꡎ。\x{0F84}", %p)}, undef, "to_unicode\(\'🢟7\,\\u200Dꡎ\。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1460\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("ꡔ。\x{1039}ᢇ", %p)}, undef, "to_unicode\(\'ꡔ\。\\u1039ᢇ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1461\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{20EB}≮.𝨖", %p)}, undef, "to_unicode\(\'\\u20EB\≮\.𝨖\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1462\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{20EB}<\x{0338}.𝨖", %p)}, undef, "to_unicode\(\'\\u20EB\<\\u0338\.𝨖\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1463\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴢ≯褦．ᠪ\x{07EA}Ⴞ\x{0767}", %p)}, undef, "to_unicode\(\'Ⴢ\≯褦．ᠪ\\u07EAႾ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1464\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴢ>\x{0338}褦．ᠪ\x{07EA}Ⴞ\x{0767}", %p)}, undef, "to_unicode\(\'Ⴢ\>\\u0338褦．ᠪ\\u07EAႾ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1465\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴢ≯褦.ᠪ\x{07EA}Ⴞ\x{0767}", %p)}, undef, "to_unicode\(\'Ⴢ\≯褦\.ᠪ\\u07EAႾ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1466\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴢ>\x{0338}褦.ᠪ\x{07EA}Ⴞ\x{0767}", %p)}, undef, "to_unicode\(\'Ⴢ\>\\u0338褦\.ᠪ\\u07EAႾ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1467\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴢ>\x{0338}褦.ᠪ\x{07EA}ⴞ\x{0767}", %p)}, undef, "to_unicode\(\'ⴢ\>\\u0338褦\.ᠪ\\u07EAⴞ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1468\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴢ≯褦.ᠪ\x{07EA}ⴞ\x{0767}", %p)}, undef, "to_unicode\(\'ⴢ\≯褦\.ᠪ\\u07EAⴞ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1469\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴢ>\x{0338}褦．ᠪ\x{07EA}ⴞ\x{0767}", %p)}, undef, "to_unicode\(\'ⴢ\>\\u0338褦．ᠪ\\u07EAⴞ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1470\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴢ≯褦．ᠪ\x{07EA}ⴞ\x{0767}", %p)}, undef, "to_unicode\(\'ⴢ\≯褦．ᠪ\\u07EAⴞ\\u0767\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1471\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򊉆󠆒\x{200C}\x{A953}。𞤙\x{067B}ꡘ", %p)}, undef, "to_unicode\(\'\?\󠆒\\u200C\\uA953\。\?\\u067Bꡘ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1472\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򊉆󠆒\x{200C}\x{A953}。𞤙\x{067B}ꡘ", %p)}, undef, "to_unicode\(\'\?\󠆒\\u200C\\uA953\。\?\\u067Bꡘ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1473\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.≯", %p)}, undef, "to_unicode\(\'\\u200C\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1474\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.≯", %p)}, undef, "to_unicode\(\'\\u200C\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1475\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1476\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1477\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𰅧񣩠-．\x{ABED}-悜", %p)}, undef, "to_unicode\(\'\?\?\-．\\uABED\-悜\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1478\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𰅧񣩠-.\x{ABED}-悜", %p)}, undef, "to_unicode\(\'\?\?\-\.\\uABED\-悜\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1479\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡉ𶓧⬞ᢜ.-\x{200D}𞣑\x{202E}", %p)}, undef, "to_unicode\(\'ᡉ\?\⬞ᢜ\.\-\\u200D𞣑\\u202E\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:1480\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡉ𶓧⬞ᢜ.-\x{200D}𞣑\x{202E}", %p)}, undef, "to_unicode\(\'ᡉ\?\⬞ᢜ\.\-\\u200D𞣑\\u202E\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:1481\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒐\x{200C}衃Ⴝ.\x{0682}Ⴔ", %p)}, undef, "to_unicode\(\'⒐\\u200C衃Ⴝ\.\\u0682Ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1482\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒐\x{200C}衃Ⴝ.\x{0682}Ⴔ", %p)}, undef, "to_unicode\(\'⒐\\u200C衃Ⴝ\.\\u0682Ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1483\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("9.\x{200C}衃Ⴝ.\x{0682}Ⴔ", %p)}, undef, "to_unicode\(\'9\.\\u200C衃Ⴝ\.\\u0682Ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1484\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("9.\x{200C}衃Ⴝ.\x{0682}Ⴔ", %p)}, undef, "to_unicode\(\'9\.\\u200C衃Ⴝ\.\\u0682Ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1485\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("9.\x{200C}衃ⴝ.\x{0682}ⴔ", %p)}, undef, "to_unicode\(\'9\.\\u200C衃ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1486\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("9.\x{200C}衃ⴝ.\x{0682}ⴔ", %p)}, undef, "to_unicode\(\'9\.\\u200C衃ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1487\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("9.\x{200C}衃Ⴝ.\x{0682}ⴔ", %p)}, undef, "to_unicode\(\'9\.\\u200C衃Ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1488\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("9.\x{200C}衃Ⴝ.\x{0682}ⴔ", %p)}, undef, "to_unicode\(\'9\.\\u200C衃Ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1489\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒐\x{200C}衃ⴝ.\x{0682}ⴔ", %p)}, undef, "to_unicode\(\'⒐\\u200C衃ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1490\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒐\x{200C}衃ⴝ.\x{0682}ⴔ", %p)}, undef, "to_unicode\(\'⒐\\u200C衃ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1491\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒐\x{200C}衃Ⴝ.\x{0682}ⴔ", %p)}, undef, "to_unicode\(\'⒐\\u200C衃Ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1492\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒐\x{200C}衃Ⴝ.\x{0682}ⴔ", %p)}, undef, "to_unicode\(\'⒐\\u200C衃Ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1493\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{07E1}\x{200C}。--⸬", %p)}, undef, "to_unicode\(\'\\u07E1\\u200C\。\-\-\⸬\'\)\ throws\ error\ V3\ B3\ C1\ \[data\/IdnaTest\.txt\:1494\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{07E1}\x{200C}。--⸬", %p)}, undef, "to_unicode\(\'\\u07E1\\u200C\。\-\-\⸬\'\)\ throws\ error\ V3\ B3\ C1\ \[data\/IdnaTest\.txt\:1495\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞥓．\x{0718}", %p)}, "𞥓.\x{0718}", "to_unicode\(\'\?．\\u0718\'\)\ \[data\/IdnaTest\.txt\:1496\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞥓.\x{0718}", %p)}, "𞥓.\x{0718}", "to_unicode\(\'\?\.\\u0718\'\)\ \[data\/IdnaTest\.txt\:1497\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("xn--of6h.xn--inb", %p)}, "𞥓.\x{0718}", "to_unicode\(\'xn\-\-of6h\.xn\-\-inb\'\)\ \[data\/IdnaTest\.txt\:1498\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("󠄽-．-\x{0DCA}", %p)}, undef, "to_unicode\(\'\󠄽\-．\-\\u0DCA\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1499\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄽-.-\x{0DCA}", %p)}, undef, "to_unicode\(\'\󠄽\-\.\-\\u0DCA\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1500\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("󠇝\x{075B}-.\x{1927}", %p)}, undef, "to_unicode\(\'\󠇝\\u075B\-\.\\u1927\'\)\ throws\ error\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1501\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𞤴󠆹⦉𐹺.\x{A806}⒌󘤸", %p)}, undef, "to_unicode\(\'\?\󠆹\⦉𐹺\.\\uA806⒌\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1502\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤴󠆹⦉𐹺.\x{A806}5.󘤸", %p)}, undef, "to_unicode\(\'\?\󠆹\⦉𐹺\.\\uA8065\.\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1503\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("󠄸₀。𑖿\x{200C}𐦂\x{200D}", %p)}, undef, "to_unicode\(\'\󠄸₀\。𑖿\\u200C𐦂\\u200D\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1504\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("󠄸₀。𑖿\x{200C}𐦂\x{200D}", %p)}, undef, "to_unicode\(\'\󠄸₀\。𑖿\\u200C𐦂\\u200D\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1505\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("󠄸0。𑖿\x{200C}𐦂\x{200D}", %p)}, undef, "to_unicode\(\'\󠄸0\。𑖿\\u200C𐦂\\u200D\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1506\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("󠄸0。𑖿\x{200C}𐦂\x{200D}", %p)}, undef, "to_unicode\(\'\󠄸0\。𑖿\\u200C𐦂\\u200D\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1507\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ⴚ𐋸󠄄。𝟝ퟶ\x{103A}", %p)}, undef, "to_unicode\(\'Ⴚ𐋸\󠄄\。𝟝ퟶ\\u103A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1508\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴚ𐋸󠄄。5ퟶ\x{103A}", %p)}, undef, "to_unicode\(\'Ⴚ𐋸\󠄄\。5ퟶ\\u103A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1509\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ⴚ𐋸󠄄。5ퟶ\x{103A}", %p)}, "ⴚ𐋸.5ퟶ\x{103A}", "to_unicode\(\'ⴚ𐋸\󠄄\。5ퟶ\\u103A\'\)\ \[data\/IdnaTest\.txt\:1510\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--ilj2659d.xn--5-dug9054m", %p)}, "ⴚ𐋸.5ퟶ\x{103A}", "to_unicode\(\'xn\-\-ilj2659d\.xn\-\-5\-dug9054m\'\)\ \[data\/IdnaTest\.txt\:1511\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ⴚ𐋸.5ퟶ\x{103A}", %p)}, "ⴚ𐋸.5ퟶ\x{103A}", "to_unicode\(\'ⴚ𐋸\.5ퟶ\\u103A\'\)\ \[data\/IdnaTest\.txt\:1512\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ⴚ𐋸.5ퟶ\x{103A}", %p)}, undef, "to_unicode\(\'Ⴚ𐋸\.5ퟶ\\u103A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1513\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ⴚ𐋸󠄄。𝟝ퟶ\x{103A}", %p)}, "ⴚ𐋸.5ퟶ\x{103A}", "to_unicode\(\'ⴚ𐋸\󠄄\。𝟝ퟶ\\u103A\'\)\ \[data\/IdnaTest\.txt\:1514\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200D}-ᠹ﹪.\x{1DE1}\x{1922}", %p)}, undef, "to_unicode\(\'\\u200D\-ᠹ﹪\.\\u1DE1\\u1922\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1515\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-ᠹ﹪.\x{1DE1}\x{1922}", %p)}, undef, "to_unicode\(\'\\u200D\-ᠹ﹪\.\\u1DE1\\u1922\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1516\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-ᠹ%.\x{1DE1}\x{1922}", %p)}, undef, "to_unicode\(\'\\u200D\-ᠹ\%\.\\u1DE1\\u1922\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1517\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-ᠹ%.\x{1DE1}\x{1922}", %p)}, undef, "to_unicode\(\'\\u200D\-ᠹ\%\.\\u1DE1\\u1922\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1518\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠.ᠿ", %p)}, undef, "to_unicode\(\'\≠\.ᠿ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1519\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}.ᠿ", %p)}, undef, "to_unicode\(\'\=\\u0338\.ᠿ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1520\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0723}\x{05A3}｡㌪", %p)}, "\x{0723}\x{05A3}.ハイツ", "to_unicode\(\'\\u0723\\u05A3｡㌪\'\)\ \[data\/IdnaTest\.txt\:1521\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0723}\x{05A3}。ハイツ", %p)}, "\x{0723}\x{05A3}.ハイツ", "to_unicode\(\'\\u0723\\u05A3\。ハイツ\'\)\ \[data\/IdnaTest\.txt\:1522\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--ucb18e.xn--eck4c5a", %p)}, "\x{0723}\x{05A3}.ハイツ", "to_unicode\(\'xn\-\-ucb18e\.xn\-\-eck4c5a\'\)\ \[data\/IdnaTest\.txt\:1523\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0723}\x{05A3}.ハイツ", %p)}, "\x{0723}\x{05A3}.ハイツ", "to_unicode\(\'\\u0723\\u05A3\.ハイツ\'\)\ \[data\/IdnaTest\.txt\:1524\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞷥󠆀≮.\x{2D7F}-", %p)}, undef, "to_unicode\(\'\?\󠆀\≮\.\\u2D7F\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1525\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞷥󠆀<\x{0338}.\x{2D7F}-", %p)}, undef, "to_unicode\(\'\?\󠆀\<\\u0338\.\\u2D7F\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1526\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("₆榎򦖎\x{0D4D}｡𞤅\x{06ED}\x{FC5A}󠮨", %p)}, undef, "to_unicode\(\'₆榎\?\\u0D4D｡\?\\u06ED\\uFC5A\?\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:1527\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("6榎򦖎\x{0D4D}。𞤅\x{06ED}\x{064A}\x{064A}󠮨", %p)}, undef, "to_unicode\(\'6榎\?\\u0D4D\。\?\\u06ED\\u064A\\u064A\?\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:1528\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𣩫．򌑲", %p)}, undef, "to_unicode\(\'𣩫．\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1529\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𣩫.򌑲", %p)}, undef, "to_unicode\(\'𣩫\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1530\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}︒｡\x{06B9}\x{200C}", %p)}, undef, "to_unicode\(\'\\u200D︒｡\\u06B9\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B3\ C1\ \[data\/IdnaTest\.txt\:1531\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}︒｡\x{06B9}\x{200C}", %p)}, undef, "to_unicode\(\'\\u200D︒｡\\u06B9\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B3\ C1\ \[data\/IdnaTest\.txt\:1532\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。。\x{06B9}\x{200C}", %p)}, undef, "to_unicode\(\'\\u200D\。\。\\u06B9\\u200C\'\)\ throws\ error\ C2\ A4_2\ B3\ C1\ \[data\/IdnaTest\.txt\:1533\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。。\x{06B9}\x{200C}", %p)}, undef, "to_unicode\(\'\\u200D\。\。\\u06B9\\u200C\'\)\ throws\ error\ C2\ A4_2\ B3\ C1\ \[data\/IdnaTest\.txt\:1534\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--skb", %p)}, "\x{06B9}", "to_unicode\(\'xn\-\-skb\'\)\ \[data\/IdnaTest\.txt\:1535\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06B9}", %p)}, "\x{06B9}", "to_unicode\(\'\\u06B9\'\)\ \[data\/IdnaTest\.txt\:1536\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹦\x{200C}𐹶。\x{206D}", %p)}, undef, "to_unicode\(\'𐹦\\u200C𐹶\。\\u206D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1537\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹦\x{200C}𐹶。\x{206D}", %p)}, undef, "to_unicode\(\'𐹦\\u200C𐹶\。\\u206D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1538\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("\x{0C4D}𝨾\x{05A9}𝟭。-𑜨", %p)}, undef, "to_unicode\(\'\\u0C4D𝨾\\u05A9𝟭\。\-𑜨\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1539\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("\x{0C4D}𝨾\x{05A9}1。-𑜨", %p)}, undef, "to_unicode\(\'\\u0C4D𝨾\\u05A91\。\-𑜨\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1540\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("򣿈。뙏", %p)}, undef, "to_unicode\(\'\?\。뙏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1541\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򣿈。뙏", %p)}, undef, "to_unicode\(\'\?\。뙏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1542\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񕨚󠄌󑽀ᡀ.\x{08B6}", %p)}, undef, "to_unicode\(\'\?\󠄌\?ᡀ\.\\u08B6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1543\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}｡񅁛", %p)}, undef, "to_unicode\(\'\\u200D｡\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1544\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}｡񅁛", %p)}, undef, "to_unicode\(\'\\u200D｡\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1545\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。񅁛", %p)}, undef, "to_unicode\(\'\\u200D\。\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1546\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。񅁛", %p)}, undef, "to_unicode\(\'\\u200D\。\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1547\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{084B}皥．-", %p)}, undef, "to_unicode\(\'\\u084B皥．\-\'\)\ throws\ error\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:1548\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{084B}皥.-", %p)}, undef, "to_unicode\(\'\\u084B皥\.\-\'\)\ throws\ error\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:1549\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𐣸\x{0315}𐮇．⒈ꡦ", %p)}, undef, "to_unicode\(\'\?\\u0315𐮇．⒈ꡦ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1550\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐣸\x{0315}𐮇.1.ꡦ", %p)}, undef, "to_unicode\(\'\?\\u0315𐮇\.1\.ꡦ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1551\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}ā𐹦", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0ā𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1552\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}ā𐹦", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0ā𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1553\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}a\x{0304}𐹦", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0a\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1554\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}a\x{0304}𐹦", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0a\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1555\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}ā𐹦", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\u1160ā𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1556\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}ā𐹦", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\u1160ā𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1557\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}a\x{0304}𐹦", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\u1160a\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1558\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}a\x{0304}𐹦", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\u1160a\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1559\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}a\x{0304}𐹦", %p)}, undef, "to_unicode\(\'ⴛ\\u200C\\u05A2\\u200D\。\\u1160a\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1560\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}a\x{0304}𐹦", %p)}, undef, "to_unicode\(\'ⴛ\\u200C\\u05A2\\u200D\。\\u1160a\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1561\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}ā𐹦", %p)}, undef, "to_unicode\(\'ⴛ\\u200C\\u05A2\\u200D\。\\u1160ā𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1562\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}ā𐹦", %p)}, undef, "to_unicode\(\'ⴛ\\u200C\\u05A2\\u200D\。\\u1160ā𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1563\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}Ā𐹦", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\u1160Ā𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1564\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}Ā𐹦", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\u1160Ā𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1565\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}A\x{0304}𐹦", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\u1160A\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1566\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{1160}A\x{0304}𐹦", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\u1160A\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1567\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}a\x{0304}𐹦", %p)}, undef, "to_unicode\(\'ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0a\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1568\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}a\x{0304}𐹦", %p)}, undef, "to_unicode\(\'ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0a\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1569\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}ā𐹦", %p)}, undef, "to_unicode\(\'ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0ā𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1570\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}ā𐹦", %p)}, undef, "to_unicode\(\'ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0ā𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1571\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}Ā𐹦", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0Ā𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1572\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}Ā𐹦", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0Ā𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1573\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}A\x{0304}𐹦", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0A\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1574\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{05A2}\x{200D}。\x{FFA0}A\x{0304}𐹦", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\u05A2\\u200D\。\\uFFA0A\\u0304𐹦\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1575\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FFF9}\x{200C}｡曳⾑𐋰≯", %p)}, undef, "to_unicode\(\'\\uFFF9\\u200C｡曳⾑𐋰\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1576\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FFF9}\x{200C}｡曳⾑𐋰≯", %p)}, undef, "to_unicode\(\'\\uFFF9\\u200C｡曳⾑𐋰\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1577\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FFF9}\x{200C}｡曳⾑𐋰>\x{0338}", %p)}, undef, "to_unicode\(\'\\uFFF9\\u200C｡曳⾑𐋰\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1578\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FFF9}\x{200C}｡曳⾑𐋰>\x{0338}", %p)}, undef, "to_unicode\(\'\\uFFF9\\u200C｡曳⾑𐋰\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1579\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FFF9}\x{200C}。曳襾𐋰≯", %p)}, undef, "to_unicode\(\'\\uFFF9\\u200C\。曳襾𐋰\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1580\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FFF9}\x{200C}。曳襾𐋰≯", %p)}, undef, "to_unicode\(\'\\uFFF9\\u200C\。曳襾𐋰\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1581\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FFF9}\x{200C}。曳襾𐋰>\x{0338}", %p)}, undef, "to_unicode\(\'\\uFFF9\\u200C\。曳襾𐋰\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1582\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FFF9}\x{200C}。曳襾𐋰>\x{0338}", %p)}, undef, "to_unicode\(\'\\uFFF9\\u200C\。曳襾𐋰\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1583\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯⒈。ß", %p)}, undef, "to_unicode\(\'\≯⒈\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1584\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}⒈。ß", %p)}, undef, "to_unicode\(\'\>\\u0338⒈\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1585\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯1.。ß", %p)}, undef, "to_unicode\(\'\≯1\.\。ß\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1586\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}1.。ß", %p)}, undef, "to_unicode\(\'\>\\u03381\.\。ß\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1587\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}1.。SS", %p)}, undef, "to_unicode\(\'\>\\u03381\.\。SS\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1588\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯1.。SS", %p)}, undef, "to_unicode\(\'\≯1\.\。SS\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1589\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}⒈。SS", %p)}, undef, "to_unicode\(\'\>\\u0338⒈\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1590\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯⒈。SS", %p)}, undef, "to_unicode\(\'\≯⒈\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1591\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0667}\x{200D}\x{FB96}｡\x{07DA}-₆Ⴙ", %p)}, undef, "to_unicode\(\'\\u0667\\u200D\\uFB96｡\\u07DA\-₆Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1592\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0667}\x{200D}\x{FB96}｡\x{07DA}-₆Ⴙ", %p)}, undef, "to_unicode\(\'\\u0667\\u200D\\uFB96｡\\u07DA\-₆Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1593\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0667}\x{200D}\x{06B3}。\x{07DA}-6Ⴙ", %p)}, undef, "to_unicode\(\'\\u0667\\u200D\\u06B3\。\\u07DA\-6Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1594\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0667}\x{200D}\x{06B3}。\x{07DA}-6Ⴙ", %p)}, undef, "to_unicode\(\'\\u0667\\u200D\\u06B3\。\\u07DA\-6Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1595\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{0667}\x{200D}\x{06B3}。\x{07DA}-6ⴙ", %p)}, undef, "to_unicode\(\'\\u0667\\u200D\\u06B3\。\\u07DA\-6ⴙ\'\)\ throws\ error\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1596\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{0667}\x{200D}\x{06B3}。\x{07DA}-6ⴙ", %p)}, undef, "to_unicode\(\'\\u0667\\u200D\\u06B3\。\\u07DA\-6ⴙ\'\)\ throws\ error\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1597\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{0667}\x{200D}\x{FB96}｡\x{07DA}-₆ⴙ", %p)}, undef, "to_unicode\(\'\\u0667\\u200D\\uFB96｡\\u07DA\-₆ⴙ\'\)\ throws\ error\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1598\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{0667}\x{200D}\x{FB96}｡\x{07DA}-₆ⴙ", %p)}, undef, "to_unicode\(\'\\u0667\\u200D\\uFB96｡\\u07DA\-₆ⴙ\'\)\ throws\ error\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1599\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200C}｡≠", %p)}, undef, "to_unicode\(\'\\u200C｡\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1600\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}｡≠", %p)}, undef, "to_unicode\(\'\\u200C｡\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1601\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}｡=\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C｡\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1602\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}｡=\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C｡\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1603\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}。≠", %p)}, undef, "to_unicode\(\'\\u200C\。\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1604\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}。≠", %p)}, undef, "to_unicode\(\'\\u200C\。\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1605\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}。=\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\。\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1606\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}。=\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\。\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1607\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𑖿𝨔.ᡟ𑖿\x{1B42}\x{200C}", %p)}, undef, "to_unicode\(\'𑖿𝨔\.ᡟ𑖿\\u1B42\\u200C\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:1608\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𑖿𝨔.ᡟ𑖿\x{1B42}\x{200C}", %p)}, undef, "to_unicode\(\'𑖿𝨔\.ᡟ𑖿\\u1B42\\u200C\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:1609\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("򔣳\x{200D}򑝱.𖬴Ↄ≠-", %p)}, undef, "to_unicode\(\'\?\\u200D\?\.𖬴Ↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1610\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔣳\x{200D}򑝱.𖬴Ↄ≠-", %p)}, undef, "to_unicode\(\'\?\\u200D\?\.𖬴Ↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1611\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔣳\x{200D}򑝱.𖬴Ↄ=\x{0338}-", %p)}, undef, "to_unicode\(\'\?\\u200D\?\.𖬴Ↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1612\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔣳\x{200D}򑝱.𖬴Ↄ=\x{0338}-", %p)}, undef, "to_unicode\(\'\?\\u200D\?\.𖬴Ↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1613\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔣳\x{200D}򑝱.𖬴ↄ=\x{0338}-", %p)}, undef, "to_unicode\(\'\?\\u200D\?\.𖬴ↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1614\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔣳\x{200D}򑝱.𖬴ↄ=\x{0338}-", %p)}, undef, "to_unicode\(\'\?\\u200D\?\.𖬴ↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1615\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔣳\x{200D}򑝱.𖬴ↄ≠-", %p)}, undef, "to_unicode\(\'\?\\u200D\?\.𖬴ↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1616\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򔣳\x{200D}򑝱.𖬴ↄ≠-", %p)}, undef, "to_unicode\(\'\?\\u200D\?\.𖬴ↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1617\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07E2}ς\x{200D}𝟳。蔑򛖢", %p)}, undef, "to_unicode\(\'\\u07E2ς\\u200D𝟳\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1618\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07E2}ς\x{200D}𝟳。蔑򛖢", %p)}, undef, "to_unicode\(\'\\u07E2ς\\u200D𝟳\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1619\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07E2}ς\x{200D}7。蔑򛖢", %p)}, undef, "to_unicode\(\'\\u07E2ς\\u200D7\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1620\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07E2}ς\x{200D}7。蔑򛖢", %p)}, undef, "to_unicode\(\'\\u07E2ς\\u200D7\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1621\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07E2}Σ\x{200D}7。蔑򛖢", %p)}, undef, "to_unicode\(\'\\u07E2Σ\\u200D7\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1622\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07E2}Σ\x{200D}7。蔑򛖢", %p)}, undef, "to_unicode\(\'\\u07E2Σ\\u200D7\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1623\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07E2}σ\x{200D}7。蔑򛖢", %p)}, undef, "to_unicode\(\'\\u07E2σ\\u200D7\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1624\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07E2}σ\x{200D}7。蔑򛖢", %p)}, undef, "to_unicode\(\'\\u07E2σ\\u200D7\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1625\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07E2}Σ\x{200D}𝟳。蔑򛖢", %p)}, undef, "to_unicode\(\'\\u07E2Σ\\u200D𝟳\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1626\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07E2}Σ\x{200D}𝟳。蔑򛖢", %p)}, undef, "to_unicode\(\'\\u07E2Σ\\u200D𝟳\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1627\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07E2}σ\x{200D}𝟳。蔑򛖢", %p)}, undef, "to_unicode\(\'\\u07E2σ\\u200D𝟳\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1628\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07E2}σ\x{200D}𝟳。蔑򛖢", %p)}, undef, "to_unicode\(\'\\u07E2σ\\u200D𝟳\。蔑\?\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1629\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹰.\x{0600}", %p)}, undef, "to_unicode\(\'𐹰\.\\u0600\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1630\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{08A8}.𱠖", %p)}, undef, "to_unicode\(\'\-\\u08A8\.\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1631\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯𞱸󠇀。誆⒈", %p)}, undef, "to_unicode\(\'\≯\?\󠇀\。誆⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1632\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}𞱸󠇀。誆⒈", %p)}, undef, "to_unicode\(\'\>\\u0338\?\󠇀\。誆⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1633\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯𞱸󠇀。誆1.", %p)}, undef, "to_unicode\(\'\≯\?\󠇀\。誆1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1634\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}𞱸󠇀。誆1.", %p)}, undef, "to_unicode\(\'\>\\u0338\?\󠇀\。誆1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1635\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0616}𞥙䐊\x{0650}．︒\x{0645}↺\x{069C}", %p)}, undef, "to_unicode\(\'\\u0616\?䐊\\u0650．︒\\u0645\↺\\u069C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1636\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{0616}𞥙䐊\x{0650}.。\x{0645}↺\x{069C}", %p)}, undef, "to_unicode\(\'\\u0616\?䐊\\u0650\.\。\\u0645\↺\\u069C\'\)\ throws\ error\ V5\ B1\ A4_2\ \[data\/IdnaTest\.txt\:1637\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("퀬-\x{DF7E}񶳒.\x{200C}\x{0AC5}󩸤۴", %p)}, undef, "to_unicode\(\'퀬\-\\uDF7E\?\.\\u200C\\u0AC5\?۴\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1638\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("퀬-\x{DF7E}񶳒.\x{200C}\x{0AC5}󩸤۴", %p)}, undef, "to_unicode\(\'퀬\-\\uDF7E\?\.\\u200C\\u0AC5\?۴\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1639\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("퀬-\x{DF7E}񶳒.\x{200C}\x{0AC5}󩸤۴", %p)}, undef, "to_unicode\(\'퀬\-\\uDF7E\?\.\\u200C\\u0AC5\?۴\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1640\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("퀬-\x{DF7E}񶳒.\x{200C}\x{0AC5}󩸤۴", %p)}, undef, "to_unicode\(\'퀬\-\\uDF7E\?\.\\u200C\\u0AC5\?۴\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1641\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴌ.𐹾︒𑁿𞾄", %p)}, undef, "to_unicode\(\'Ⴌ\.𐹾︒𑁿\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1642\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴌ.𐹾。𑁿𞾄", %p)}, undef, "to_unicode\(\'Ⴌ\.𐹾\。𑁿\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1643\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴌ.𐹾。𑁿𞾄", %p)}, undef, "to_unicode\(\'ⴌ\.𐹾\。𑁿\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1644\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴌ.𐹾︒𑁿𞾄", %p)}, undef, "to_unicode\(\'ⴌ\.𐹾︒𑁿\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1645\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񧞿╏。𞩕󠁾", %p)}, undef, "to_unicode\(\'\?\╏\。\?\?\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:1646\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}┮󠇐．\x{0C00}\x{0C4D}\x{1734}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D\┮\󠇐．\\u0C00\\u0C4D\\u1734\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1647\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}┮󠇐．\x{0C00}\x{0C4D}\x{1734}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D\┮\󠇐．\\u0C00\\u0C4D\\u1734\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1648\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}┮󠇐.\x{0C00}\x{0C4D}\x{1734}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D\┮\󠇐\.\\u0C00\\u0C4D\\u1734\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1649\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}┮󠇐.\x{0C00}\x{0C4D}\x{1734}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D\┮\󠇐\.\\u0C00\\u0C4D\\u1734\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1650\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("򹚪｡🄂", %p)}, undef, "to_unicode\(\'\?｡🄂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1651\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򹚪。1,", %p)}, undef, "to_unicode\(\'\?\。1\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1652\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𑍨刍.🛦", %p)}, undef, "to_unicode\(\'𑍨刍\.🛦\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1653\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("󠌏3｡\x{1BF1}𝟒", %p)}, undef, "to_unicode\(\'\?3｡\\u1BF1𝟒\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1654\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠌏3。\x{1BF1}4", %p)}, undef, "to_unicode\(\'\?3\。\\u1BF14\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1655\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0687}６Ⴔ辘.\x{FD22}\x{0687}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0687６Ⴔ辘\.\\uFD22\\u0687\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1656\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0687}６Ⴔ辘.\x{FD22}\x{0687}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0687６Ⴔ辘\.\\uFD22\\u0687\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1657\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0687}6Ⴔ辘.\x{0635}\x{064A}\x{0687}\x{200C}", %p)}, undef, "to_unicode\(\'\\u06876Ⴔ辘\.\\u0635\\u064A\\u0687\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1658\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0687}6Ⴔ辘.\x{0635}\x{064A}\x{0687}\x{200C}", %p)}, undef, "to_unicode\(\'\\u06876Ⴔ辘\.\\u0635\\u064A\\u0687\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1659\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{0687}6ⴔ辘.\x{0635}\x{064A}\x{0687}\x{200C}", %p)}, undef, "to_unicode\(\'\\u06876ⴔ辘\.\\u0635\\u064A\\u0687\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1660\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{0687}6ⴔ辘.\x{0635}\x{064A}\x{0687}\x{200C}", %p)}, undef, "to_unicode\(\'\\u06876ⴔ辘\.\\u0635\\u064A\\u0687\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1661\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{0687}６ⴔ辘.\x{FD22}\x{0687}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0687６ⴔ辘\.\\uFD22\\u0687\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1662\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{0687}６ⴔ辘.\x{FD22}\x{0687}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0687６ⴔ辘\.\\uFD22\\u0687\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1663\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("󠄍.𐮭𞰬򻫞۹", %p)}, undef, "to_unicode\(\'\󠄍\.𐮭\?\?۹\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1664\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A87D}≯．򻲀򒳄", %p)}, undef, "to_unicode\(\'\\uA87D\≯．\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1665\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A87D}>\x{0338}．򻲀򒳄", %p)}, undef, "to_unicode\(\'\\uA87D\>\\u0338．\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1666\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A87D}≯.򻲀򒳄", %p)}, undef, "to_unicode\(\'\\uA87D\≯\.\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1667\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A87D}>\x{0338}.򻲀򒳄", %p)}, undef, "to_unicode\(\'\\uA87D\>\\u0338\.\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1668\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ςო\x{067B}.ς\x{0714}", %p)}, undef, "to_unicode\(\'ςო\\u067B\.ς\\u0714\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1669\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σო\x{067B}.Σ\x{0714}", %p)}, undef, "to_unicode\(\'Σო\\u067B\.Σ\\u0714\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1670\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σო\x{067B}.σ\x{0714}", %p)}, undef, "to_unicode\(\'σო\\u067B\.σ\\u0714\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1671\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σო\x{067B}.σ\x{0714}", %p)}, undef, "to_unicode\(\'Σო\\u067B\.σ\\u0714\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1672\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σო\x{067B}.ς\x{0714}", %p)}, undef, "to_unicode\(\'Σო\\u067B\.ς\\u0714\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1673\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σო\x{067B}.ς\x{0714}", %p)}, undef, "to_unicode\(\'σო\\u067B\.ς\\u0714\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1674\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򄖚\x{0748}𠄯\x{075F}｡󠛩", %p)}, undef, "to_unicode\(\'\?\\u0748𠄯\\u075F｡\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1675\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򄖚\x{0748}𠄯\x{075F}。󠛩", %p)}, undef, "to_unicode\(\'\?\\u0748𠄯\\u075F\。\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1676\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠳛．\x{200D}䤫≠Ⴞ", %p)}, undef, "to_unicode\(\'\?．\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1677\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠳛．\x{200D}䤫≠Ⴞ", %p)}, undef, "to_unicode\(\'\?．\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1678\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠳛．\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_unicode\(\'\?．\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1679\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠳛．\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_unicode\(\'\?．\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1680\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠳛.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_unicode\(\'\?\.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1681\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠳛.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_unicode\(\'\?\.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1682\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠳛.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_unicode\(\'\?\.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1683\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠳛.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_unicode\(\'\?\.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1684\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠳛.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_unicode\(\'\?\.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1685\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠳛.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_unicode\(\'\?\.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1686\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠳛.\x{200D}䤫≠ⴞ", %p)}, undef, "to_unicode\(\'\?\.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1687\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠳛.\x{200D}䤫≠ⴞ", %p)}, undef, "to_unicode\(\'\?\.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1688\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠳛．\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_unicode\(\'\?．\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1689\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠳛．\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_unicode\(\'\?．\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1690\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠳛．\x{200D}䤫≠ⴞ", %p)}, undef, "to_unicode\(\'\?．\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1691\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠳛．\x{200D}䤫≠ⴞ", %p)}, undef, "to_unicode\(\'\?．\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1692\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐽘𑈵．𐹣🕥", %p)}, undef, "to_unicode\(\'\?𑈵．𐹣🕥\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1693\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐽘𑈵.𐹣🕥", %p)}, undef, "to_unicode\(\'\?𑈵\.𐹣🕥\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1694\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒊⒈𑁄。9", %p)}, undef, "to_unicode\(\'⒊⒈𑁄\。9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1695\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("3.1.𑁄。9", %p)}, undef, "to_unicode\(\'3\.1\.𑁄\。9\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1696\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("-\x{200C}\x{2DF1}≮．𐹱򭏴4₉", %p)}, undef, "to_unicode\(\'\-\\u200C\\u2DF1\≮．𐹱\?4₉\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1697\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{200C}\x{2DF1}≮．𐹱򭏴4₉", %p)}, undef, "to_unicode\(\'\-\\u200C\\u2DF1\≮．𐹱\?4₉\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1698\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{200C}\x{2DF1}<\x{0338}．𐹱򭏴4₉", %p)}, undef, "to_unicode\(\'\-\\u200C\\u2DF1\<\\u0338．𐹱\?4₉\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1699\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{200C}\x{2DF1}<\x{0338}．𐹱򭏴4₉", %p)}, undef, "to_unicode\(\'\-\\u200C\\u2DF1\<\\u0338．𐹱\?4₉\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1700\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{200C}\x{2DF1}≮.𐹱򭏴49", %p)}, undef, "to_unicode\(\'\-\\u200C\\u2DF1\≮\.𐹱\?49\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1701\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{200C}\x{2DF1}≮.𐹱򭏴49", %p)}, undef, "to_unicode\(\'\-\\u200C\\u2DF1\≮\.𐹱\?49\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1702\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{200C}\x{2DF1}<\x{0338}.𐹱򭏴49", %p)}, undef, "to_unicode\(\'\-\\u200C\\u2DF1\<\\u0338\.𐹱\?49\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1703\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{200C}\x{2DF1}<\x{0338}.𐹱򭏴49", %p)}, undef, "to_unicode\(\'\-\\u200C\\u2DF1\<\\u0338\.𐹱\?49\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1704\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-≯딾｡\x{0847}", %p)}, undef, "to_unicode\(\'\-\≯딾｡\\u0847\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1705\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("->\x{0338}딾｡\x{0847}", %p)}, undef, "to_unicode\(\'\-\>\\u0338딾｡\\u0847\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1706\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-≯딾。\x{0847}", %p)}, undef, "to_unicode\(\'\-\≯딾\。\\u0847\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1707\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("->\x{0338}딾。\x{0847}", %p)}, undef, "to_unicode\(\'\-\>\\u0338딾\。\\u0847\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1708\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑙢⒈𐹠-｡󠗐\x{200C}", %p)}, undef, "to_unicode\(\'\?⒈𐹠\-｡\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1709\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑙢⒈𐹠-｡󠗐\x{200C}", %p)}, undef, "to_unicode\(\'\?⒈𐹠\-｡\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1710\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑙢1.𐹠-。󠗐\x{200C}", %p)}, undef, "to_unicode\(\'\?1\.𐹠\-\。\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1711\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑙢1.𐹠-。󠗐\x{200C}", %p)}, undef, "to_unicode\(\'\?1\.𐹠\-\。\?\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1712\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{034A}．𐨎", %p)}, undef, "to_unicode\(\'\\u034A．𐨎\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1713\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{034A}.𐨎", %p)}, undef, "to_unicode\(\'\\u034A\.𐨎\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1714\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("훉≮｡\x{0E34}", %p)}, undef, "to_unicode\(\'훉\≮｡\\u0E34\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1715\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("훉<\x{0338}｡\x{0E34}", %p)}, undef, "to_unicode\(\'훉\<\\u0338｡\\u0E34\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1716\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("훉≮。\x{0E34}", %p)}, undef, "to_unicode\(\'훉\≮\。\\u0E34\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1717\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("훉<\x{0338}。\x{0E34}", %p)}, undef, "to_unicode\(\'훉\<\\u0338\。\\u0E34\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1718\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{2DF7}򞣉🃘．𴈇𝟸\x{0659}𞤯", %p)}, undef, "to_unicode\(\'\\u2DF7\?🃘．\?𝟸\\u0659\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1719\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{2DF7}򞣉🃘.𴈇2\x{0659}𞤯", %p)}, undef, "to_unicode\(\'\\u2DF7\?🃘\.\?2\\u0659\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1720\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󗇩ßᢞ\x{200C}。\x{0660}𞷻\x{FCD4}-", %p)}, undef, "to_unicode\(\'\?ßᢞ\\u200C\。\\u0660\?\\uFCD4\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1721\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󗇩ßᢞ\x{200C}。\x{0660}𞷻\x{FCD4}-", %p)}, undef, "to_unicode\(\'\?ßᢞ\\u200C\。\\u0660\?\\uFCD4\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1722\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󗇩ßᢞ\x{200C}。\x{0660}𞷻\x{0646}\x{062E}-", %p)}, undef, "to_unicode\(\'\?ßᢞ\\u200C\。\\u0660\?\\u0646\\u062E\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1723\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󗇩ßᢞ\x{200C}。\x{0660}𞷻\x{0646}\x{062E}-", %p)}, undef, "to_unicode\(\'\?ßᢞ\\u200C\。\\u0660\?\\u0646\\u062E\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1724\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󗇩SSᢞ\x{200C}。\x{0660}𞷻\x{0646}\x{062E}-", %p)}, undef, "to_unicode\(\'\?SSᢞ\\u200C\。\\u0660\?\\u0646\\u062E\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1725\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󗇩SSᢞ\x{200C}。\x{0660}𞷻\x{0646}\x{062E}-", %p)}, undef, "to_unicode\(\'\?SSᢞ\\u200C\。\\u0660\?\\u0646\\u062E\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1726\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󗇩ssᢞ\x{200C}。\x{0660}𞷻\x{0646}\x{062E}-", %p)}, undef, "to_unicode\(\'\?ssᢞ\\u200C\。\\u0660\?\\u0646\\u062E\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1727\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󗇩ssᢞ\x{200C}。\x{0660}𞷻\x{0646}\x{062E}-", %p)}, undef, "to_unicode\(\'\?ssᢞ\\u200C\。\\u0660\?\\u0646\\u062E\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1728\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󗇩Ssᢞ\x{200C}。\x{0660}𞷻\x{0646}\x{062E}-", %p)}, undef, "to_unicode\(\'\?Ssᢞ\\u200C\。\\u0660\?\\u0646\\u062E\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1729\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󗇩Ssᢞ\x{200C}。\x{0660}𞷻\x{0646}\x{062E}-", %p)}, undef, "to_unicode\(\'\?Ssᢞ\\u200C\。\\u0660\?\\u0646\\u062E\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1730\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󗇩SSᢞ\x{200C}。\x{0660}𞷻\x{FCD4}-", %p)}, undef, "to_unicode\(\'\?SSᢞ\\u200C\。\\u0660\?\\uFCD4\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1731\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󗇩SSᢞ\x{200C}。\x{0660}𞷻\x{FCD4}-", %p)}, undef, "to_unicode\(\'\?SSᢞ\\u200C\。\\u0660\?\\uFCD4\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1732\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󗇩ssᢞ\x{200C}。\x{0660}𞷻\x{FCD4}-", %p)}, undef, "to_unicode\(\'\?ssᢞ\\u200C\。\\u0660\?\\uFCD4\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1733\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󗇩ssᢞ\x{200C}。\x{0660}𞷻\x{FCD4}-", %p)}, undef, "to_unicode\(\'\?ssᢞ\\u200C\。\\u0660\?\\uFCD4\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1734\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󗇩Ssᢞ\x{200C}。\x{0660}𞷻\x{FCD4}-", %p)}, undef, "to_unicode\(\'\?Ssᢞ\\u200C\。\\u0660\?\\uFCD4\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1735\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󗇩Ssᢞ\x{200C}。\x{0660}𞷻\x{FCD4}-", %p)}, undef, "to_unicode\(\'\?Ssᢞ\\u200C\。\\u0660\?\\uFCD4\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:1736\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡆ。Ↄ\x{0FB5}놮-", %p)}, undef, "to_unicode\(\'ꡆ\。Ↄ\\u0FB5놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1737\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡆ。Ↄ\x{0FB5}놮-", %p)}, undef, "to_unicode\(\'ꡆ\。Ↄ\\u0FB5놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1738\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("ꡆ。ↄ\x{0FB5}놮-", %p)}, undef, "to_unicode\(\'ꡆ\。ↄ\\u0FB5놮\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1739\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("ꡆ。ↄ\x{0FB5}놮-", %p)}, undef, "to_unicode\(\'ꡆ\。ↄ\\u0FB5놮\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1740\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{FDAD}\x{200D}.񥰌\x{06A9}", %p)}, undef, "to_unicode\(\'\\uFDAD\\u200D\.\?\\u06A9\'\)\ throws\ error\ P1\ V6\ B3\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1741\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FDAD}\x{200D}.񥰌\x{06A9}", %p)}, undef, "to_unicode\(\'\\uFDAD\\u200D\.\?\\u06A9\'\)\ throws\ error\ P1\ V6\ B3\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1742\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{0645}\x{064A}\x{200D}.񥰌\x{06A9}", %p)}, undef, "to_unicode\(\'\\u0644\\u0645\\u064A\\u200D\.\?\\u06A9\'\)\ throws\ error\ P1\ V6\ B3\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1743\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0644}\x{0645}\x{064A}\x{200D}.񥰌\x{06A9}", %p)}, undef, "to_unicode\(\'\\u0644\\u0645\\u064A\\u200D\.\?\\u06A9\'\)\ throws\ error\ P1\ V6\ B3\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1744\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴜ\x{1C2F}𐳒≯。\x{06E0}\x{1732}\x{0FBA}", %p)}, undef, "to_unicode\(\'Ⴜ\\u1C2F𐳒\≯\。\\u06E0\\u1732\\u0FBA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1745\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴜ\x{1C2F}𐳒>\x{0338}。\x{06E0}\x{1732}\x{0FBA}", %p)}, undef, "to_unicode\(\'Ⴜ\\u1C2F𐳒\>\\u0338\。\\u06E0\\u1732\\u0FBA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1746\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴜ\x{1C2F}𐳒>\x{0338}。\x{06E0}\x{1732}\x{0FBA}", %p)}, undef, "to_unicode\(\'ⴜ\\u1C2F𐳒\>\\u0338\。\\u06E0\\u1732\\u0FBA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1747\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴜ\x{1C2F}𐳒≯。\x{06E0}\x{1732}\x{0FBA}", %p)}, undef, "to_unicode\(\'ⴜ\\u1C2F𐳒\≯\。\\u06E0\\u1732\\u0FBA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1748\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴜ\x{1C2F}𐲒≯。\x{06E0}\x{1732}\x{0FBA}", %p)}, undef, "to_unicode\(\'Ⴜ\\u1C2F𐲒\≯\。\\u06E0\\u1732\\u0FBA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1749\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴜ\x{1C2F}𐲒>\x{0338}。\x{06E0}\x{1732}\x{0FBA}", %p)}, undef, "to_unicode\(\'Ⴜ\\u1C2F𐲒\>\\u0338\。\\u06E0\\u1732\\u0FBA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1750\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐋵。\x{FCEC}", %p)}, "𐋵.\x{0643}\x{0645}", "to_unicode\(\'𐋵\。\\uFCEC\'\)\ \[data\/IdnaTest\.txt\:1751\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐋵。\x{0643}\x{0645}", %p)}, "𐋵.\x{0643}\x{0645}", "to_unicode\(\'𐋵\。\\u0643\\u0645\'\)\ \[data\/IdnaTest\.txt\:1752\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--p97c.xn--fhbe", %p)}, "𐋵.\x{0643}\x{0645}", "to_unicode\(\'xn\-\-p97c\.xn\-\-fhbe\'\)\ \[data\/IdnaTest\.txt\:1753\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐋵.\x{0643}\x{0645}", %p)}, "𐋵.\x{0643}\x{0645}", "to_unicode\(\'𐋵\.\\u0643\\u0645\'\)\ \[data\/IdnaTest\.txt\:1754\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("≮𝅶．񱲁\x{AAEC}\x{2E48}󰥭", %p)}, undef, "to_unicode\(\'\≮\?．\?\\uAAEC\\u2E48\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1755\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}𝅶．񱲁\x{AAEC}\x{2E48}󰥭", %p)}, undef, "to_unicode\(\'\<\\u0338\?．\?\\uAAEC\\u2E48\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1756\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮𝅶.񱲁\x{AAEC}\x{2E48}󰥭", %p)}, undef, "to_unicode\(\'\≮\?\.\?\\uAAEC\\u2E48\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1757\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}𝅶.񱲁\x{AAEC}\x{2E48}󰥭", %p)}, undef, "to_unicode\(\'\<\\u0338\?\.\?\\uAAEC\\u2E48\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1758\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{2DF0}\x{0358}ᢕ．\x{0361}𐹷󠴍", %p)}, undef, "to_unicode\(\'\\u2DF0\\u0358ᢕ．\\u0361𐹷\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1759\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{2DF0}\x{0358}ᢕ.\x{0361}𐹷󠴍", %p)}, undef, "to_unicode\(\'\\u2DF0\\u0358ᢕ\.\\u0361𐹷\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1760\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{FD79}ᡐ\x{200C}\x{06AD}．𑋪\x{05C7}", %p)}, undef, "to_unicode\(\'\\uFD79ᡐ\\u200C\\u06AD．𑋪\\u05C7\'\)\ throws\ error\ V5\ B2\ \[data\/IdnaTest\.txt\:1761\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{063A}\x{0645}\x{0645}ᡐ\x{200C}\x{06AD}.𑋪\x{05C7}", %p)}, undef, "to_unicode\(\'\\u063A\\u0645\\u0645ᡐ\\u200C\\u06AD\.𑋪\\u05C7\'\)\ throws\ error\ V5\ B2\ \[data\/IdnaTest\.txt\:1762\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𑑂｡\x{200D}󥞀🞕򥁔", %p)}, undef, "to_unicode\(\'\?｡\\u200D\?🞕\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1763\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑑂｡\x{200D}󥞀🞕򥁔", %p)}, undef, "to_unicode\(\'\?｡\\u200D\?🞕\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1764\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑑂。\x{200D}󥞀🞕򥁔", %p)}, undef, "to_unicode\(\'\?\。\\u200D\?🞕\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1765\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑑂。\x{200D}󥞀🞕򥁔", %p)}, undef, "to_unicode\(\'\?\。\\u200D\?🞕\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1766\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{05E9}。⒚", %p)}, undef, "to_unicode\(\'\-\\u05E9\。⒚\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1767\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{05E9}。19.", %p)}, undef, "to_unicode\(\'\-\\u05E9\。19\.\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1768\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("􊾻\x{0845}\x{200C}｡ᢎ\x{200D}", %p)}, undef, "to_unicode\(\'\?\\u0845\\u200C｡ᢎ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ C2\ \[data\/IdnaTest\.txt\:1769\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("􊾻\x{0845}\x{200C}｡ᢎ\x{200D}", %p)}, undef, "to_unicode\(\'\?\\u0845\\u200C｡ᢎ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ C2\ \[data\/IdnaTest\.txt\:1770\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("􊾻\x{0845}\x{200C}。ᢎ\x{200D}", %p)}, undef, "to_unicode\(\'\?\\u0845\\u200C\。ᢎ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ C2\ \[data\/IdnaTest\.txt\:1771\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("􊾻\x{0845}\x{200C}。ᢎ\x{200D}", %p)}, undef, "to_unicode\(\'\?\\u0845\\u200C\。ᢎ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ C2\ \[data\/IdnaTest\.txt\:1772\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß\x{09C1}\x{1DED}。\x{0620}8₅", %p)}, "ß\x{09C1}\x{1DED}.\x{0620}85", "to_unicode\(\'ß\\u09C1\\u1DED\。\\u06208₅\'\)\ \[data\/IdnaTest\.txt\:1773\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß\x{09C1}\x{1DED}。\x{0620}8₅", %p)}, "ß\x{09C1}\x{1DED}.\x{0620}85", "to_unicode\(\'ß\\u09C1\\u1DED\。\\u06208₅\'\)\ \[data\/IdnaTest\.txt\:1774\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß\x{09C1}\x{1DED}。\x{0620}85", %p)}, "ß\x{09C1}\x{1DED}.\x{0620}85", "to_unicode\(\'ß\\u09C1\\u1DED\。\\u062085\'\)\ \[data\/IdnaTest\.txt\:1775\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß\x{09C1}\x{1DED}。\x{0620}85", %p)}, "ß\x{09C1}\x{1DED}.\x{0620}85", "to_unicode\(\'ß\\u09C1\\u1DED\。\\u062085\'\)\ \[data\/IdnaTest\.txt\:1776\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("SS\x{09C1}\x{1DED}。\x{0620}85", %p)}, "ss\x{09C1}\x{1DED}.\x{0620}85", "to_unicode\(\'SS\\u09C1\\u1DED\。\\u062085\'\)\ \[data\/IdnaTest\.txt\:1777\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ss\x{09C1}\x{1DED}。\x{0620}85", %p)}, "ss\x{09C1}\x{1DED}.\x{0620}85", "to_unicode\(\'ss\\u09C1\\u1DED\。\\u062085\'\)\ \[data\/IdnaTest\.txt\:1778\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Ss\x{09C1}\x{1DED}。\x{0620}85", %p)}, "ss\x{09C1}\x{1DED}.\x{0620}85", "to_unicode\(\'Ss\\u09C1\\u1DED\。\\u062085\'\)\ \[data\/IdnaTest\.txt\:1779\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--ss-e2f077r.xn--85-psd", %p)}, "ss\x{09C1}\x{1DED}.\x{0620}85", "to_unicode\(\'xn\-\-ss\-e2f077r\.xn\-\-85\-psd\'\)\ \[data\/IdnaTest\.txt\:1780\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ss\x{09C1}\x{1DED}.\x{0620}85", %p)}, "ss\x{09C1}\x{1DED}.\x{0620}85", "to_unicode\(\'ss\\u09C1\\u1DED\.\\u062085\'\)\ \[data\/IdnaTest\.txt\:1781\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("SS\x{09C1}\x{1DED}.\x{0620}85", %p)}, "ss\x{09C1}\x{1DED}.\x{0620}85", "to_unicode\(\'SS\\u09C1\\u1DED\.\\u062085\'\)\ \[data\/IdnaTest\.txt\:1782\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Ss\x{09C1}\x{1DED}.\x{0620}85", %p)}, "ss\x{09C1}\x{1DED}.\x{0620}85", "to_unicode\(\'Ss\\u09C1\\u1DED\.\\u062085\'\)\ \[data\/IdnaTest\.txt\:1783\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--zca266bwrr.xn--85-psd", %p)}, "ß\x{09C1}\x{1DED}.\x{0620}85", "to_unicode\(\'xn\-\-zca266bwrr\.xn\-\-85\-psd\'\)\ \[data\/IdnaTest\.txt\:1784\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß\x{09C1}\x{1DED}.\x{0620}85", %p)}, "ß\x{09C1}\x{1DED}.\x{0620}85", "to_unicode\(\'ß\\u09C1\\u1DED\.\\u062085\'\)\ \[data\/IdnaTest\.txt\:1785\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß\x{09C1}\x{1DED}.\x{0620}85", %p)}, "ß\x{09C1}\x{1DED}.\x{0620}85", "to_unicode\(\'ß\\u09C1\\u1DED\.\\u062085\'\)\ \[data\/IdnaTest\.txt\:1786\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("SS\x{09C1}\x{1DED}。\x{0620}8₅", %p)}, "ss\x{09C1}\x{1DED}.\x{0620}85", "to_unicode\(\'SS\\u09C1\\u1DED\。\\u06208₅\'\)\ \[data\/IdnaTest\.txt\:1787\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ss\x{09C1}\x{1DED}。\x{0620}8₅", %p)}, "ss\x{09C1}\x{1DED}.\x{0620}85", "to_unicode\(\'ss\\u09C1\\u1DED\。\\u06208₅\'\)\ \[data\/IdnaTest\.txt\:1788\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Ss\x{09C1}\x{1DED}。\x{0620}8₅", %p)}, "ss\x{09C1}\x{1DED}.\x{0620}85", "to_unicode\(\'Ss\\u09C1\\u1DED\。\\u06208₅\'\)\ \[data\/IdnaTest\.txt\:1789\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0ACD}\x{0484}魅𝟣．₃𐹥ß", %p)}, undef, "to_unicode\(\'\\u0ACD\\u0484魅𝟣．₃𐹥ß\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1790\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0ACD}\x{0484}魅1.3𐹥ß", %p)}, undef, "to_unicode\(\'\\u0ACD\\u0484魅1\.3𐹥ß\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1791\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0ACD}\x{0484}魅1.3𐹥SS", %p)}, undef, "to_unicode\(\'\\u0ACD\\u0484魅1\.3𐹥SS\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1792\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0ACD}\x{0484}魅1.3𐹥ss", %p)}, undef, "to_unicode\(\'\\u0ACD\\u0484魅1\.3𐹥ss\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1793\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0ACD}\x{0484}魅1.3𐹥Ss", %p)}, undef, "to_unicode\(\'\\u0ACD\\u0484魅1\.3𐹥Ss\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1794\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0ACD}\x{0484}魅𝟣．₃𐹥SS", %p)}, undef, "to_unicode\(\'\\u0ACD\\u0484魅𝟣．₃𐹥SS\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1795\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0ACD}\x{0484}魅𝟣．₃𐹥ss", %p)}, undef, "to_unicode\(\'\\u0ACD\\u0484魅𝟣．₃𐹥ss\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1796\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0ACD}\x{0484}魅𝟣．₃𐹥Ss", %p)}, undef, "to_unicode\(\'\\u0ACD\\u0484魅𝟣．₃𐹥Ss\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1797\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{072B}｡𑓂⒈𑜫󠿻", %p)}, undef, "to_unicode\(\'\\u072B｡𑓂⒈𑜫\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1798\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{072B}。𑓂1.𑜫󠿻", %p)}, undef, "to_unicode\(\'\\u072B\。𑓂1\.𑜫\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1799\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FE0D}છ。嵨", %p)}, "છ.嵨", "to_unicode\(\'\\uFE0Dછ\。嵨\'\)\ \[data\/IdnaTest\.txt\:1800\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--6dc.xn--tot", %p)}, "છ.嵨", "to_unicode\(\'xn\-\-6dc\.xn\-\-tot\'\)\ \[data\/IdnaTest\.txt\:1801\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("છ.嵨", %p)}, "છ.嵨", "to_unicode\(\'છ\.嵨\'\)\ \[data\/IdnaTest\.txt\:1802\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴔ≠Ⴀ.𐹥𐹰", %p)}, undef, "to_unicode\(\'Ⴔ\≠Ⴀ\.𐹥𐹰\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1803\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴔ=\x{0338}Ⴀ.𐹥𐹰", %p)}, undef, "to_unicode\(\'Ⴔ\=\\u0338Ⴀ\.𐹥𐹰\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1804\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴔ=\x{0338}ⴀ.𐹥𐹰", %p)}, undef, "to_unicode\(\'ⴔ\=\\u0338ⴀ\.𐹥𐹰\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1805\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴔ≠ⴀ.𐹥𐹰", %p)}, undef, "to_unicode\(\'ⴔ\≠ⴀ\.𐹥𐹰\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1806\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{200C}⒙𐫥｡𝨵", %p)}, undef, "to_unicode\(\'\-\\u200C⒙𐫥｡𝨵\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1807\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{200C}⒙𐫥｡𝨵", %p)}, undef, "to_unicode\(\'\-\\u200C⒙𐫥｡𝨵\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1808\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("-\x{200C}18.𐫥。𝨵", %p)}, undef, "to_unicode\(\'\-\\u200C18\.𐫥\。𝨵\'\)\ throws\ error\ V3\ V5\ C1\ \[data\/IdnaTest\.txt\:1809\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("-\x{200C}18.𐫥。𝨵", %p)}, undef, "to_unicode\(\'\-\\u200C18\.𐫥\。𝨵\'\)\ throws\ error\ V3\ V5\ C1\ \[data\/IdnaTest\.txt\:1810\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("︒.ʌᠣ-𐹽", %p)}, undef, "to_unicode\(\'︒\.ʌᠣ\-𐹽\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1811\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("。.ʌᠣ-𐹽", %p)}, undef, "to_unicode\(\'\。\.ʌᠣ\-𐹽\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1812\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("。.Ʌᠣ-𐹽", %p)}, undef, "to_unicode\(\'\。\.Ʌᠣ\-𐹽\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1813\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("︒.Ʌᠣ-𐹽", %p)}, undef, "to_unicode\(\'︒\.Ʌᠣ\-𐹽\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1814\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FE05}︒。𦀾\x{1CE0}", %p)}, undef, "to_unicode\(\'\\uFE05︒\。𦀾\\u1CE0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1815\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{FE05}。。𦀾\x{1CE0}", %p)}, "𦀾\x{1CE0}", "to_unicode\(\'\\uFE05\。\。𦀾\\u1CE0\'\)\ \[data\/IdnaTest\.txt\:1816\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("xn--t6f5138v", %p)}, "𦀾\x{1CE0}", "to_unicode\(\'xn\-\-t6f5138v\'\)\ \[data\/IdnaTest\.txt\:1817\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𦀾\x{1CE0}", %p)}, "𦀾\x{1CE0}", "to_unicode\(\'𦀾\\u1CE0\'\)\ \[data\/IdnaTest\.txt\:1818\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𞮑ß􏞞。ᡁ", %p)}, undef, "to_unicode\(\'\?ß\?\。ᡁ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1819\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞮑SS􏞞。ᡁ", %p)}, undef, "to_unicode\(\'\?SS\?\。ᡁ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1820\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞮑ss􏞞。ᡁ", %p)}, undef, "to_unicode\(\'\?ss\?\。ᡁ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1821\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞮑Ss􏞞。ᡁ", %p)}, undef, "to_unicode\(\'\?Ss\?\。ᡁ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1822\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A953}\x{200D}\x{062C}\x{066C}。𱆎󻡟\x{200C}󠅆", %p)}, undef, "to_unicode\(\'\\uA953\\u200D\\u062C\\u066C\。\?\?\\u200C\󠅆\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1823\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A953}\x{200D}\x{062C}\x{066C}。𱆎󻡟\x{200C}󠅆", %p)}, undef, "to_unicode\(\'\\uA953\\u200D\\u062C\\u066C\。\?\?\\u200C\󠅆\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1824\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏．-ß\x{200C}≠", %p)}, undef, "to_unicode\(\'\?．\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1825\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏．-ß\x{200C}≠", %p)}, undef, "to_unicode\(\'\?．\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1826\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏．-ß\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\?．\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1827\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏．-ß\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\?．\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1828\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏.-ß\x{200C}≠", %p)}, undef, "to_unicode\(\'\?\.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1829\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏.-ß\x{200C}≠", %p)}, undef, "to_unicode\(\'\?\.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1830\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏.-ß\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\?\.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1831\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏.-ß\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\?\.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1832\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏.-SS\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\?\.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1833\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏.-SS\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\?\.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1834\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏.-SS\x{200C}≠", %p)}, undef, "to_unicode\(\'\?\.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1835\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏.-SS\x{200C}≠", %p)}, undef, "to_unicode\(\'\?\.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1836\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏.-ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\?\.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1837\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏.-ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\?\.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1838\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏.-ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\?\.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1839\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏.-ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\?\.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1840\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\?\.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1841\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\?\.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1842\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏.-Ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\?\.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1843\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏.-Ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\?\.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1844\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏．-SS\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\?．\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1845\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏．-SS\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\?．\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1846\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏．-SS\x{200C}≠", %p)}, undef, "to_unicode\(\'\?．\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1847\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏．-SS\x{200C}≠", %p)}, undef, "to_unicode\(\'\?．\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1848\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏．-ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\?．\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1849\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏．-ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\?．\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1850\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏．-ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\?．\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1851\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏．-ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\?．\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1852\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏．-Ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\?．\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1853\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏．-Ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\?．\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1854\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏．-Ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\?．\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1855\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕏．-Ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\?．\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1856\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡙ\x{200C}｡≯𐋲≠", %p)}, undef, "to_unicode\(\'ᡙ\\u200C｡\≯𐋲\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1857\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡙ\x{200C}｡≯𐋲≠", %p)}, undef, "to_unicode\(\'ᡙ\\u200C｡\≯𐋲\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1858\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡙ\x{200C}｡>\x{0338}𐋲=\x{0338}", %p)}, undef, "to_unicode\(\'ᡙ\\u200C｡\>\\u0338𐋲\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1859\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡙ\x{200C}｡>\x{0338}𐋲=\x{0338}", %p)}, undef, "to_unicode\(\'ᡙ\\u200C｡\>\\u0338𐋲\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1860\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡙ\x{200C}。≯𐋲≠", %p)}, undef, "to_unicode\(\'ᡙ\\u200C\。\≯𐋲\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1861\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡙ\x{200C}。≯𐋲≠", %p)}, undef, "to_unicode\(\'ᡙ\\u200C\。\≯𐋲\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1862\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡙ\x{200C}。>\x{0338}𐋲=\x{0338}", %p)}, undef, "to_unicode\(\'ᡙ\\u200C\。\>\\u0338𐋲\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1863\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡙ\x{200C}。>\x{0338}𐋲=\x{0338}", %p)}, undef, "to_unicode\(\'ᡙ\\u200C\。\>\\u0338𐋲\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1864\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹧𞲄󠁭񆼩。\x{034E}🄀", %p)}, undef, "to_unicode\(\'𐹧\?\?\?\。\\u034E🄀\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1865\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹧𞲄󠁭񆼩。\x{034E}0.", %p)}, undef, "to_unicode\(\'𐹧\?\?\?\。\\u034E0\.\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1866\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴄ．\x{200D}\x{0721}󻣋ς", %p)}, undef, "to_unicode\(\'Ⴄ．\\u200D\\u0721\?ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1867\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴄ．\x{200D}\x{0721}󻣋ς", %p)}, undef, "to_unicode\(\'Ⴄ．\\u200D\\u0721\?ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1868\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴄ.\x{200D}\x{0721}󻣋ς", %p)}, undef, "to_unicode\(\'Ⴄ\.\\u200D\\u0721\?ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1869\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴄ.\x{200D}\x{0721}󻣋ς", %p)}, undef, "to_unicode\(\'Ⴄ\.\\u200D\\u0721\?ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1870\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴄ.\x{200D}\x{0721}󻣋ς", %p)}, undef, "to_unicode\(\'ⴄ\.\\u200D\\u0721\?ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1871\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴄ.\x{200D}\x{0721}󻣋ς", %p)}, undef, "to_unicode\(\'ⴄ\.\\u200D\\u0721\?ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1872\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴄ.\x{200D}\x{0721}󻣋Σ", %p)}, undef, "to_unicode\(\'Ⴄ\.\\u200D\\u0721\?Σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1873\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴄ.\x{200D}\x{0721}󻣋Σ", %p)}, undef, "to_unicode\(\'Ⴄ\.\\u200D\\u0721\?Σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1874\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴄ.\x{200D}\x{0721}󻣋σ", %p)}, undef, "to_unicode\(\'ⴄ\.\\u200D\\u0721\?σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1875\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴄ.\x{200D}\x{0721}󻣋σ", %p)}, undef, "to_unicode\(\'ⴄ\.\\u200D\\u0721\?σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1876\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴄ．\x{200D}\x{0721}󻣋ς", %p)}, undef, "to_unicode\(\'ⴄ．\\u200D\\u0721\?ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1877\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴄ．\x{200D}\x{0721}󻣋ς", %p)}, undef, "to_unicode\(\'ⴄ．\\u200D\\u0721\?ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1878\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴄ．\x{200D}\x{0721}󻣋Σ", %p)}, undef, "to_unicode\(\'Ⴄ．\\u200D\\u0721\?Σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1879\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴄ．\x{200D}\x{0721}󻣋Σ", %p)}, undef, "to_unicode\(\'Ⴄ．\\u200D\\u0721\?Σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1880\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴄ．\x{200D}\x{0721}󻣋σ", %p)}, undef, "to_unicode\(\'ⴄ．\\u200D\\u0721\?σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1881\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴄ．\x{200D}\x{0721}󻣋σ", %p)}, undef, "to_unicode\(\'ⴄ．\\u200D\\u0721\?σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1882\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򮵛\x{0613}.Ⴕ", %p)}, undef, "to_unicode\(\'\?\\u0613\.Ⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1883\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򮵛\x{0613}.ⴕ", %p)}, undef, "to_unicode\(\'\?\\u0613\.ⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1884\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯\x{1DF3}𞤥。\x{200C}\x{A8C4}󠪉\x{200D}", %p)}, undef, "to_unicode\(\'\≯\\u1DF3\?\。\\u200C\\uA8C4\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1885\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯\x{1DF3}𞤥。\x{200C}\x{A8C4}󠪉\x{200D}", %p)}, undef, "to_unicode\(\'\≯\\u1DF3\?\。\\u200C\\uA8C4\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1886\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}\x{1DF3}𞤥。\x{200C}\x{A8C4}󠪉\x{200D}", %p)}, undef, "to_unicode\(\'\>\\u0338\\u1DF3\?\。\\u200C\\uA8C4\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1887\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}\x{1DF3}𞤥。\x{200C}\x{A8C4}󠪉\x{200D}", %p)}, undef, "to_unicode\(\'\>\\u0338\\u1DF3\?\。\\u200C\\uA8C4\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1888\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠄷｡򒑁", %p)}, undef, "to_unicode\(\'\\u200C\󠄷｡\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1889\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠄷｡򒑁", %p)}, undef, "to_unicode\(\'\\u200C\󠄷｡\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1890\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠄷。򒑁", %p)}, undef, "to_unicode\(\'\\u200C\󠄷\。\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1891\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠄷。򒑁", %p)}, undef, "to_unicode\(\'\\u200C\󠄷\。\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1892\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈\x{0DD6}焅.󗡙\x{200D}ꡟ", %p)}, undef, "to_unicode\(\'⒈\\u0DD6焅\.\?\\u200Dꡟ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1893\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈\x{0DD6}焅.󗡙\x{200D}ꡟ", %p)}, undef, "to_unicode\(\'⒈\\u0DD6焅\.\?\\u200Dꡟ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1894\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.\x{0DD6}焅.󗡙\x{200D}ꡟ", %p)}, undef, "to_unicode\(\'1\.\\u0DD6焅\.\?\\u200Dꡟ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1895\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.\x{0DD6}焅.󗡙\x{200D}ꡟ", %p)}, undef, "to_unicode\(\'1\.\\u0DD6焅\.\?\\u200Dꡟ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1896\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1DCD}ς≮.ς𝪦𞤕0", %p)}, undef, "to_unicode\(\'\\u1DCDς\≮\.ς𝪦\?0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1897\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1DCD}ς<\x{0338}.ς𝪦𞤕0", %p)}, undef, "to_unicode\(\'\\u1DCDς\<\\u0338\.ς𝪦\?0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1898\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1DCD}Σ<\x{0338}.Σ𝪦𞤕0", %p)}, undef, "to_unicode\(\'\\u1DCDΣ\<\\u0338\.Σ𝪦\?0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1899\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1DCD}Σ≮.Σ𝪦𞤕0", %p)}, undef, "to_unicode\(\'\\u1DCDΣ\≮\.Σ𝪦\?0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1900\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1DCD}σ≮.σ𝪦𞤕0", %p)}, undef, "to_unicode\(\'\\u1DCDσ\≮\.σ𝪦\?0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1901\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1DCD}σ<\x{0338}.σ𝪦𞤕0", %p)}, undef, "to_unicode\(\'\\u1DCDσ\<\\u0338\.σ𝪦\?0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1902\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򢦾ß\x{05B9}𐫙.\x{05AD}\x{08A1}", %p)}, undef, "to_unicode\(\'\?ß\\u05B9𐫙\.\\u05AD\\u08A1\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1903\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򢦾SS\x{05B9}𐫙.\x{05AD}\x{08A1}", %p)}, undef, "to_unicode\(\'\?SS\\u05B9𐫙\.\\u05AD\\u08A1\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1904\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򢦾ss\x{05B9}𐫙.\x{05AD}\x{08A1}", %p)}, undef, "to_unicode\(\'\?ss\\u05B9𐫙\.\\u05AD\\u08A1\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1905\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򢦾Ss\x{05B9}𐫙.\x{05AD}\x{08A1}", %p)}, undef, "to_unicode\(\'\?Ss\\u05B9𐫙\.\\u05AD\\u08A1\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1906\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-𞣄｡⒈", %p)}, undef, "to_unicode\(\'\-𞣄｡⒈\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1907\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-𞣄。1.", %p)}, undef, "to_unicode\(\'\-𞣄\。1\.\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1908\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("񈠢𐫖𝟡。\x{063E}𑘿", %p)}, undef, "to_unicode\(\'\?𐫖𝟡\。\\u063E𑘿\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1909\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񈠢𐫖9。\x{063E}𑘿", %p)}, undef, "to_unicode\(\'\?𐫖9\。\\u063E𑘿\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1910\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0668}\x{FC8C}\x{0668}\x{1A5D}.\x{200D}", %p)}, undef, "to_unicode\(\'\\u0668\\uFC8C\\u0668\\u1A5D\.\\u200D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1911\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0668}\x{FC8C}\x{0668}\x{1A5D}.\x{200D}", %p)}, undef, "to_unicode\(\'\\u0668\\uFC8C\\u0668\\u1A5D\.\\u200D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1912\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0668}\x{0646}\x{0645}\x{0668}\x{1A5D}.\x{200D}", %p)}, undef, "to_unicode\(\'\\u0668\\u0646\\u0645\\u0668\\u1A5D\.\\u200D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1913\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0668}\x{0646}\x{0645}\x{0668}\x{1A5D}.\x{200D}", %p)}, undef, "to_unicode\(\'\\u0668\\u0646\\u0645\\u0668\\u1A5D\.\\u200D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1914\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𝟘．Ⴇ󀳑\x{FD50}񫃱", %p)}, undef, "to_unicode\(\'𝟘．Ⴇ\?\\uFD50\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1915\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("0.Ⴇ󀳑\x{062A}\x{062C}\x{0645}񫃱", %p)}, undef, "to_unicode\(\'0\.Ⴇ\?\\u062A\\u062C\\u0645\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1916\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("0.ⴇ󀳑\x{062A}\x{062C}\x{0645}񫃱", %p)}, undef, "to_unicode\(\'0\.ⴇ\?\\u062A\\u062C\\u0645\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1917\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟘．ⴇ󀳑\x{FD50}񫃱", %p)}, undef, "to_unicode\(\'𝟘．ⴇ\?\\uFD50\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1918\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("𑇀▍.⁞ᠰ", %p)}, undef, "to_unicode\(\'𑇀\▍\.\⁞ᠰ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1919\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200D}-\x{067A}.򏯩", %p)}, undef, "to_unicode\(\'\\u200D\-\\u067A\.\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1920\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}-\x{067A}.򏯩", %p)}, undef, "to_unicode\(\'\\u200D\-\\u067A\.\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1921\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᠢ𐮂𐫘寐｡\x{200C}≯✳", %p)}, undef, "to_unicode\(\'ᠢ𐮂𐫘寐｡\\u200C\≯\✳\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1922\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᠢ𐮂𐫘寐｡\x{200C}≯✳", %p)}, undef, "to_unicode\(\'ᠢ𐮂𐫘寐｡\\u200C\≯\✳\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1923\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᠢ𐮂𐫘寐｡\x{200C}>\x{0338}✳", %p)}, undef, "to_unicode\(\'ᠢ𐮂𐫘寐｡\\u200C\>\\u0338\✳\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1924\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᠢ𐮂𐫘寐｡\x{200C}>\x{0338}✳", %p)}, undef, "to_unicode\(\'ᠢ𐮂𐫘寐｡\\u200C\>\\u0338\✳\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1925\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᠢ𐮂𐫘寐。\x{200C}≯✳", %p)}, undef, "to_unicode\(\'ᠢ𐮂𐫘寐\。\\u200C\≯\✳\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1926\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᠢ𐮂𐫘寐。\x{200C}≯✳", %p)}, undef, "to_unicode\(\'ᠢ𐮂𐫘寐\。\\u200C\≯\✳\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1927\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᠢ𐮂𐫘寐。\x{200C}>\x{0338}✳", %p)}, undef, "to_unicode\(\'ᠢ𐮂𐫘寐\。\\u200C\>\\u0338\✳\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1928\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᠢ𐮂𐫘寐。\x{200C}>\x{0338}✳", %p)}, undef, "to_unicode\(\'ᠢ𐮂𐫘寐\。\\u200C\>\\u0338\✳\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1929\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}｡󸲜ႺႴ𞨇", %p)}, undef, "to_unicode\(\'\\u200D｡\?ႺႴ\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1930\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}｡󸲜ႺႴ𞨇", %p)}, undef, "to_unicode\(\'\\u200D｡\?ႺႴ\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1931\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。󸲜ႺႴ𞨇", %p)}, undef, "to_unicode\(\'\\u200D\。\?ႺႴ\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1932\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。󸲜ႺႴ𞨇", %p)}, undef, "to_unicode\(\'\\u200D\。\?ႺႴ\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1933\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。󸲜ⴚⴔ𞨇", %p)}, undef, "to_unicode\(\'\\u200D\。\?ⴚⴔ\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1934\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。󸲜ⴚⴔ𞨇", %p)}, undef, "to_unicode\(\'\\u200D\。\?ⴚⴔ\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1935\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。󸲜Ⴚⴔ𞨇", %p)}, undef, "to_unicode\(\'\\u200D\。\?Ⴚⴔ\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1936\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。󸲜Ⴚⴔ𞨇", %p)}, undef, "to_unicode\(\'\\u200D\。\?Ⴚⴔ\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1937\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}｡󸲜ⴚⴔ𞨇", %p)}, undef, "to_unicode\(\'\\u200D｡\?ⴚⴔ\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1938\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}｡󸲜ⴚⴔ𞨇", %p)}, undef, "to_unicode\(\'\\u200D｡\?ⴚⴔ\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1939\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}｡󸲜Ⴚⴔ𞨇", %p)}, undef, "to_unicode\(\'\\u200D｡\?Ⴚⴔ\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1940\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}｡󸲜Ⴚⴔ𞨇", %p)}, undef, "to_unicode\(\'\\u200D｡\?Ⴚⴔ\?\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1941\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-3.\x{200D}ヌᢕ", %p)}, undef, "to_unicode\(\'\-3\.\\u200Dヌᢕ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:1942\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-3.\x{200D}ヌᢕ", %p)}, undef, "to_unicode\(\'\-3\.\\u200Dヌᢕ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:1943\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🂃\x{0666}ß\x{200D}。󠠂򭰍𞩒-", %p)}, undef, "to_unicode\(\'🂃\\u0666ß\\u200D\。\?\?\?\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1944\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🂃\x{0666}ß\x{200D}。󠠂򭰍𞩒-", %p)}, undef, "to_unicode\(\'🂃\\u0666ß\\u200D\。\?\?\?\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1945\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🂃\x{0666}SS\x{200D}。󠠂򭰍𞩒-", %p)}, undef, "to_unicode\(\'🂃\\u0666SS\\u200D\。\?\?\?\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1946\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🂃\x{0666}SS\x{200D}。󠠂򭰍𞩒-", %p)}, undef, "to_unicode\(\'🂃\\u0666SS\\u200D\。\?\?\?\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1947\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🂃\x{0666}ss\x{200D}。󠠂򭰍𞩒-", %p)}, undef, "to_unicode\(\'🂃\\u0666ss\\u200D\。\?\?\?\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1948\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🂃\x{0666}ss\x{200D}。󠠂򭰍𞩒-", %p)}, undef, "to_unicode\(\'🂃\\u0666ss\\u200D\。\?\?\?\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1949\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🂃\x{0666}Ss\x{200D}。󠠂򭰍𞩒-", %p)}, undef, "to_unicode\(\'🂃\\u0666Ss\\u200D\。\?\?\?\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1950\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🂃\x{0666}Ss\x{200D}。󠠂򭰍𞩒-", %p)}, undef, "to_unicode\(\'🂃\\u0666Ss\\u200D\。\?\?\?\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1951\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꇟ-𐾺\x{069F}。򰀺\x{200C}", %p)}, undef, "to_unicode\(\'ꇟ\-\?\\u069F\。\?\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1952\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꇟ-𐾺\x{069F}。򰀺\x{200C}", %p)}, undef, "to_unicode\(\'ꇟ\-\?\\u069F\。\?\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1953\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0665}.\x{0484}𐨗𝩋𴤃", %p)}, undef, "to_unicode\(\'\\u0665\.\\u0484𐨗𝩋\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1954\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-.񱼓\x{0649}𐨿", %p)}, undef, "to_unicode\(\'\-\.\?\\u0649𐨿\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1955\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󾬨ς.𞶙녫ß", %p)}, undef, "to_unicode\(\'\?ς\.\?녫ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1956\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󾬨ς.𞶙녫ß", %p)}, undef, "to_unicode\(\'\?ς\.\?녫ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1957\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󾬨Σ.𞶙녫SS", %p)}, undef, "to_unicode\(\'\?Σ\.\?녫SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1958\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󾬨Σ.𞶙녫SS", %p)}, undef, "to_unicode\(\'\?Σ\.\?녫SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1959\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󾬨σ.𞶙녫ss", %p)}, undef, "to_unicode\(\'\?σ\.\?녫ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1960\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󾬨σ.𞶙녫ss", %p)}, undef, "to_unicode\(\'\?σ\.\?녫ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1961\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󾬨Σ.𞶙녫Ss", %p)}, undef, "to_unicode\(\'\?Σ\.\?녫Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1962\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󾬨Σ.𞶙녫Ss", %p)}, undef, "to_unicode\(\'\?Σ\.\?녫Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1963\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⅎ\x{17D2}\x{200D}｡≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ\\u17D2\\u200D｡\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1964\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⅎ\x{17D2}\x{200D}｡≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ\\u17D2\\u200D｡\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1965\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⅎ\x{17D2}\x{200D}｡=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ\\u17D2\\u200D｡\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1966\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⅎ\x{17D2}\x{200D}｡=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ\\u17D2\\u200D｡\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1967\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⅎ\x{17D2}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ\\u17D2\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1968\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⅎ\x{17D2}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ\\u17D2\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1969\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⅎ\x{17D2}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ\\u17D2\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1970\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⅎ\x{17D2}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ\\u17D2\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1971\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⅎ\x{17D2}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ\\u17D2\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1972\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⅎ\x{17D2}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ\\u17D2\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1973\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⅎ\x{17D2}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ\\u17D2\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1974\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⅎ\x{17D2}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ\\u17D2\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1975\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⅎ\x{17D2}\x{200D}｡=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ\\u17D2\\u200D｡\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1976\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⅎ\x{17D2}\x{200D}｡=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ\\u17D2\\u200D｡\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1977\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⅎ\x{17D2}\x{200D}｡≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ\\u17D2\\u200D｡\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1978\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⅎ\x{17D2}\x{200D}｡≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ\\u17D2\\u200D｡\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1979\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐋺\x{AAF6}\x{A953}󧦉．\x{200C}\x{1714}\x{068F}", %p)}, undef, "to_unicode\(\'𐋺\\uAAF6\\uA953\?．\\u200C\\u1714\\u068F\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1980\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐋺\x{AAF6}\x{A953}󧦉．\x{200C}\x{1714}\x{068F}", %p)}, undef, "to_unicode\(\'𐋺\\uAAF6\\uA953\?．\\u200C\\u1714\\u068F\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1981\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐋺\x{AAF6}\x{A953}󧦉.\x{200C}\x{1714}\x{068F}", %p)}, undef, "to_unicode\(\'𐋺\\uAAF6\\uA953\?\.\\u200C\\u1714\\u068F\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1982\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐋺\x{AAF6}\x{A953}󧦉.\x{200C}\x{1714}\x{068F}", %p)}, undef, "to_unicode\(\'𐋺\\uAAF6\\uA953\?\.\\u200C\\u1714\\u068F\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1983\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񺔯\x{0FA8}．≯", %p)}, undef, "to_unicode\(\'\?\\u0FA8．\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1984\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񺔯\x{0FA8}．>\x{0338}", %p)}, undef, "to_unicode\(\'\?\\u0FA8．\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1985\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񺔯\x{0FA8}.≯", %p)}, undef, "to_unicode\(\'\?\\u0FA8\.\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1986\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񺔯\x{0FA8}.>\x{0338}", %p)}, undef, "to_unicode\(\'\?\\u0FA8\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1987\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𞡄Ⴓ．𐇽", %p)}, undef, "to_unicode\(\'\\u200D𞡄Ⴓ．𐇽\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1988\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𞡄Ⴓ．𐇽", %p)}, undef, "to_unicode\(\'\\u200D𞡄Ⴓ．𐇽\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1989\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𞡄Ⴓ.𐇽", %p)}, undef, "to_unicode\(\'\\u200D𞡄Ⴓ\.𐇽\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1990\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}𞡄Ⴓ.𐇽", %p)}, undef, "to_unicode\(\'\\u200D𞡄Ⴓ\.𐇽\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1991\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}𞡄ⴓ.𐇽", %p)}, undef, "to_unicode\(\'\\u200D𞡄ⴓ\.𐇽\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1992\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}𞡄ⴓ.𐇽", %p)}, undef, "to_unicode\(\'\\u200D𞡄ⴓ\.𐇽\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1993\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}𞡄ⴓ．𐇽", %p)}, undef, "to_unicode\(\'\\u200D𞡄ⴓ．𐇽\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1994\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}𞡄ⴓ．𐇽", %p)}, undef, "to_unicode\(\'\\u200D𞡄ⴓ．𐇽\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1995\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐪒ß\x{A8EA}．ᡤ", %p)}, undef, "to_unicode\(\'𐪒ß\\uA8EA．ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1996\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐪒ß\x{A8EA}.ᡤ", %p)}, undef, "to_unicode\(\'𐪒ß\\uA8EA\.ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1997\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐪒SS\x{A8EA}.ᡤ", %p)}, undef, "to_unicode\(\'𐪒SS\\uA8EA\.ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1998\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐪒ss\x{A8EA}.ᡤ", %p)}, undef, "to_unicode\(\'𐪒ss\\uA8EA\.ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1999\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐪒Ss\x{A8EA}.ᡤ", %p)}, undef, "to_unicode\(\'𐪒Ss\\uA8EA\.ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2000\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐪒SS\x{A8EA}．ᡤ", %p)}, undef, "to_unicode\(\'𐪒SS\\uA8EA．ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2001\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐪒ss\x{A8EA}．ᡤ", %p)}, undef, "to_unicode\(\'𐪒ss\\uA8EA．ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2002\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐪒Ss\x{A8EA}．ᡤ", %p)}, undef, "to_unicode\(\'𐪒Ss\\uA8EA．ᡤ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2003\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("𐨿󠆌鸮𑚶.ς", %p)}, undef, "to_unicode\(\'𐨿\󠆌鸮𑚶\.ς\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2004\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("𐨿󠆌鸮𑚶.Σ", %p)}, undef, "to_unicode\(\'𐨿\󠆌鸮𑚶\.Σ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2005\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("𐨿󠆌鸮𑚶.σ", %p)}, undef, "to_unicode\(\'𐨿\󠆌鸮𑚶\.σ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2006\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("⒗𞤬。-𑚶", %p)}, undef, "to_unicode\(\'⒗\?\。\-𑚶\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2007\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("16.𞤬。-𑚶", %p)}, undef, "to_unicode\(\'16\.\?\。\-𑚶\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2008\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{08B3}𞤿⾫｡𐹣\x{068F}⒈", %p)}, undef, "to_unicode\(\'\\u08B3\?⾫｡𐹣\\u068F⒈\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2009\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{08B3}𞤿隹。𐹣\x{068F}1.", %p)}, undef, "to_unicode\(\'\\u08B3\?隹\。𐹣\\u068F1\.\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2010\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{2433}𚎛𝟧\x{0661}.ᡢ8\x{0F72}\x{0600}", %p)}, undef, "to_unicode\(\'\\u2433\?𝟧\\u0661\.ᡢ8\\u0F72\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2011\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{2433}𚎛5\x{0661}.ᡢ8\x{0F72}\x{0600}", %p)}, undef, "to_unicode\(\'\\u2433\?5\\u0661\.ᡢ8\\u0F72\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2012\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹠.🄀⒒-󨰈", %p)}, undef, "to_unicode\(\'𐹠\.🄀⒒\-\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2013\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹠.0.11.-󨰈", %p)}, undef, "to_unicode\(\'𐹠\.0\.11\.\-\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2014\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς-。\x{200C}𝟭-", %p)}, undef, "to_unicode\(\'ς\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2015\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς-。\x{200C}𝟭-", %p)}, undef, "to_unicode\(\'ς\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2016\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς-。\x{200C}1-", %p)}, undef, "to_unicode\(\'ς\-\。\\u200C1\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2017\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς-。\x{200C}1-", %p)}, undef, "to_unicode\(\'ς\-\。\\u200C1\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2018\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ-。\x{200C}1-", %p)}, undef, "to_unicode\(\'Σ\-\。\\u200C1\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2019\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ-。\x{200C}1-", %p)}, undef, "to_unicode\(\'Σ\-\。\\u200C1\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2020\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ-。\x{200C}1-", %p)}, undef, "to_unicode\(\'σ\-\。\\u200C1\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2021\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ-。\x{200C}1-", %p)}, undef, "to_unicode\(\'σ\-\。\\u200C1\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2022\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ-。\x{200C}𝟭-", %p)}, undef, "to_unicode\(\'Σ\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2023\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ-。\x{200C}𝟭-", %p)}, undef, "to_unicode\(\'Σ\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2024\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ-。\x{200C}𝟭-", %p)}, undef, "to_unicode\(\'σ\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2025\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ-。\x{200C}𝟭-", %p)}, undef, "to_unicode\(\'σ\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2026\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1734}-\x{0CE2}．󠄩Ⴄ", %p)}, undef, "to_unicode\(\'\\u1734\-\\u0CE2．\󠄩Ⴄ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2027\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1734}-\x{0CE2}.󠄩Ⴄ", %p)}, undef, "to_unicode\(\'\\u1734\-\\u0CE2\.\󠄩Ⴄ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2028\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{1734}-\x{0CE2}.󠄩ⴄ", %p)}, undef, "to_unicode\(\'\\u1734\-\\u0CE2\.\󠄩ⴄ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2029\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{1734}-\x{0CE2}．󠄩ⴄ", %p)}, undef, "to_unicode\(\'\\u1734\-\\u0CE2．\󠄩ⴄ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2030\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("򭈗♋\x{06BB}𐦥｡\x{0954}⒈", %p)}, undef, "to_unicode\(\'\?\♋\\u06BB𐦥｡\\u0954⒈\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2031\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򭈗♋\x{06BB}𐦥。\x{0954}1.", %p)}, undef, "to_unicode\(\'\?\♋\\u06BB𐦥\。\\u09541\.\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2032\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{05A4}．\x{06C1}\x{1AB3}\x{200C}", %p)}, undef, "to_unicode\(\'\\u05A4．\\u06C1\\u1AB3\\u200C\'\)\ throws\ error\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:2033\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{05A4}．\x{06C1}\x{1AB3}\x{200C}", %p)}, undef, "to_unicode\(\'\\u05A4．\\u06C1\\u1AB3\\u200C\'\)\ throws\ error\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:2034\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{05A4}.\x{06C1}\x{1AB3}\x{200C}", %p)}, undef, "to_unicode\(\'\\u05A4\.\\u06C1\\u1AB3\\u200C\'\)\ throws\ error\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:2035\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{05A4}.\x{06C1}\x{1AB3}\x{200C}", %p)}, undef, "to_unicode\(\'\\u05A4\.\\u06C1\\u1AB3\\u200C\'\)\ throws\ error\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:2036\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("񢭏\x{0846}≮\x{0ACD}．𞦊", %p)}, undef, "to_unicode\(\'\?\\u0846\≮\\u0ACD．\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2037\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񢭏\x{0846}<\x{0338}\x{0ACD}．𞦊", %p)}, undef, "to_unicode\(\'\?\\u0846\<\\u0338\\u0ACD．\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2038\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񢭏\x{0846}≮\x{0ACD}.𞦊", %p)}, undef, "to_unicode\(\'\?\\u0846\≮\\u0ACD\.\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2039\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񢭏\x{0846}<\x{0338}\x{0ACD}.𞦊", %p)}, undef, "to_unicode\(\'\?\\u0846\<\\u0338\\u0ACD\.\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2040\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。𞀘⒈ꡍ擉", %p)}, undef, "to_unicode\(\'\\u200D\。\?⒈ꡍ擉\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2041\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。𞀘⒈ꡍ擉", %p)}, undef, "to_unicode\(\'\\u200D\。\?⒈ꡍ擉\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2042\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{200D}。𞀘1.ꡍ擉", %p)}, undef, "to_unicode\(\'\\u200D\。\?1\.ꡍ擉\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2043\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{200D}。𞀘1.ꡍ擉", %p)}, undef, "to_unicode\(\'\\u200D\。\?1\.ꡍ擉\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2044\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("₈\x{07CB}．\x{FB64}≠", %p)}, undef, "to_unicode\(\'₈\\u07CB．\\uFB64\≠\'\)\ throws\ error\ P1\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2045\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("₈\x{07CB}．\x{FB64}=\x{0338}", %p)}, undef, "to_unicode\(\'₈\\u07CB．\\uFB64\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2046\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("8\x{07CB}.\x{067F}≠", %p)}, undef, "to_unicode\(\'8\\u07CB\.\\u067F\≠\'\)\ throws\ error\ P1\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2047\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("8\x{07CB}.\x{067F}=\x{0338}", %p)}, undef, "to_unicode\(\'8\\u07CB\.\\u067F\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2048\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢡ\x{07DE}򹐣.⒒\x{0642}𑍦", %p)}, undef, "to_unicode\(\'ᢡ\\u07DE\?\.⒒\\u0642𑍦\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:2049\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢡ\x{07DE}򹐣.11.\x{0642}𑍦", %p)}, undef, "to_unicode\(\'ᢡ\\u07DE\?\.11\.\\u0642𑍦\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2050\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0E48}-𐹺𝟜.\x{0363}\x{06E1}⒏", %p)}, undef, "to_unicode\(\'\\u0E48\-𐹺𝟜\.\\u0363\\u06E1⒏\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2051\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0E48}-𐹺4.\x{0363}\x{06E1}8.", %p)}, undef, "to_unicode\(\'\\u0E48\-𐹺4\.\\u0363\\u06E18\.\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2052\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("⫐｡Ⴠ-󃐢", %p)}, undef, "to_unicode\(\'\⫐｡Ⴠ\-\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2053\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⫐。Ⴠ-󃐢", %p)}, undef, "to_unicode\(\'\⫐\。Ⴠ\-\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2054\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⫐。ⴠ-󃐢", %p)}, undef, "to_unicode\(\'\⫐\。ⴠ\-\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2055\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⫐｡ⴠ-󃐢", %p)}, undef, "to_unicode\(\'\⫐｡ⴠ\-\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2056\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𑑂◊．⦟∠", %p)}, undef, "to_unicode\(\'\?\◊．\⦟\∠\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2057\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𑑂◊.⦟∠", %p)}, undef, "to_unicode\(\'\?\◊\.\⦟\∠\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2058\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𿌰-\x{0662}。󋸛ꡂ", %p)}, undef, "to_unicode\(\'\?\-\\u0662\。\?ꡂ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2059\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0678}。󠏬\x{0741}𞪭𐹪", %p)}, undef, "to_unicode\(\'\\u0678\。\?\\u0741\?𐹪\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2060\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{064A}\x{0674}。󠏬\x{0741}𞪭𐹪", %p)}, undef, "to_unicode\(\'\\u064A\\u0674\。\?\\u0741\?𐹪\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2061\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫆ꌄ｡\x{200D}ᣬ", %p)}, undef, "to_unicode\(\'𐫆ꌄ｡\\u200Dᣬ\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2062\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫆ꌄ｡\x{200D}ᣬ", %p)}, undef, "to_unicode\(\'𐫆ꌄ｡\\u200Dᣬ\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2063\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫆ꌄ。\x{200D}ᣬ", %p)}, undef, "to_unicode\(\'𐫆ꌄ\。\\u200Dᣬ\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2064\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫆ꌄ。\x{200D}ᣬ", %p)}, undef, "to_unicode\(\'𐫆ꌄ\。\\u200Dᣬ\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2065\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("₀\x{0662}。󅪞≯-", %p)}, undef, "to_unicode\(\'₀\\u0662\。\?\≯\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2066\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("₀\x{0662}。󅪞>\x{0338}-", %p)}, undef, "to_unicode\(\'₀\\u0662\。\?\>\\u0338\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2067\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("0\x{0662}。󅪞≯-", %p)}, undef, "to_unicode\(\'0\\u0662\。\?\≯\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2068\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("0\x{0662}。󅪞>\x{0338}-", %p)}, undef, "to_unicode\(\'0\\u0662\。\?\>\\u0338\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2069\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{031C}𐹫-𞯃.𐋤\x{0845}", %p)}, undef, "to_unicode\(\'\\u031C𐹫\-\?\.𐋤\\u0845\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2070\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠｡𝩑𐹩Ⴡ\x{0594}", %p)}, undef, "to_unicode\(\'\≠｡𝩑𐹩Ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2071\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}｡𝩑𐹩Ⴡ\x{0594}", %p)}, undef, "to_unicode\(\'\=\\u0338｡𝩑𐹩Ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2072\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠。𝩑𐹩Ⴡ\x{0594}", %p)}, undef, "to_unicode\(\'\≠\。𝩑𐹩Ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2073\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}。𝩑𐹩Ⴡ\x{0594}", %p)}, undef, "to_unicode\(\'\=\\u0338\。𝩑𐹩Ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2074\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}。𝩑𐹩ⴡ\x{0594}", %p)}, undef, "to_unicode\(\'\=\\u0338\。𝩑𐹩ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2075\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠。𝩑𐹩ⴡ\x{0594}", %p)}, undef, "to_unicode\(\'\≠\。𝩑𐹩ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2076\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}｡𝩑𐹩ⴡ\x{0594}", %p)}, undef, "to_unicode\(\'\=\\u0338｡𝩑𐹩ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2077\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠｡𝩑𐹩ⴡ\x{0594}", %p)}, undef, "to_unicode\(\'\≠｡𝩑𐹩ⴡ\\u0594\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2078\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𖫳≠.Ⴀ𐮀", %p)}, undef, "to_unicode\(\'𖫳\≠\.Ⴀ𐮀\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2079\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𖫳=\x{0338}.Ⴀ𐮀", %p)}, undef, "to_unicode\(\'𖫳\=\\u0338\.Ⴀ𐮀\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2080\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𖫳=\x{0338}.ⴀ𐮀", %p)}, undef, "to_unicode\(\'𖫳\=\\u0338\.ⴀ𐮀\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2081\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𖫳≠.ⴀ𐮀", %p)}, undef, "to_unicode\(\'𖫳\≠\.ⴀ𐮀\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2082\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅾\x{0736}\x{0726}．ᢚ閪\x{08E2}𝩟", %p)}, undef, "to_unicode\(\'\󠅾\\u0736\\u0726．ᢚ閪\\u08E2𝩟\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2083\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅾\x{0736}\x{0726}.ᢚ閪\x{08E2}𝩟", %p)}, undef, "to_unicode\(\'\󠅾\\u0736\\u0726\.ᢚ閪\\u08E2𝩟\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2084\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200D}󠇜\x{06CB}\x{A8E9}｡\x{20DD}\x{0FB0}-ᛟ", %p)}, undef, "to_unicode\(\'\\u200D\󠇜\\u06CB\\uA8E9｡\\u20DD\\u0FB0\-ᛟ\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2085\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200D}󠇜\x{06CB}\x{A8E9}｡\x{20DD}\x{0FB0}-ᛟ", %p)}, undef, "to_unicode\(\'\\u200D\󠇜\\u06CB\\uA8E9｡\\u20DD\\u0FB0\-ᛟ\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2086\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200D}󠇜\x{06CB}\x{A8E9}。\x{20DD}\x{0FB0}-ᛟ", %p)}, undef, "to_unicode\(\'\\u200D\󠇜\\u06CB\\uA8E9\。\\u20DD\\u0FB0\-ᛟ\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2087\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200D}󠇜\x{06CB}\x{A8E9}。\x{20DD}\x{0FB0}-ᛟ", %p)}, undef, "to_unicode\(\'\\u200D\󠇜\\u06CB\\uA8E9\。\\u20DD\\u0FB0\-ᛟ\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2088\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("헁󘖙\x{0E3A}󚍚。\x{06BA}𝟜", %p)}, undef, "to_unicode\(\'헁\?\\u0E3A\?\。\\u06BA𝟜\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2089\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("헁󘖙\x{0E3A}󚍚。\x{06BA}𝟜", %p)}, undef, "to_unicode\(\'헁\?\\u0E3A\?\。\\u06BA𝟜\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2090\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("헁󘖙\x{0E3A}󚍚。\x{06BA}4", %p)}, undef, "to_unicode\(\'헁\?\\u0E3A\?\。\\u06BA4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2091\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("헁󘖙\x{0E3A}󚍚。\x{06BA}4", %p)}, undef, "to_unicode\(\'헁\?\\u0E3A\?\。\\u06BA4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2092\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹭｡󃱂\x{200C}Ⴞ", %p)}, undef, "to_unicode\(\'𐹭｡\?\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2093\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹭｡󃱂\x{200C}Ⴞ", %p)}, undef, "to_unicode\(\'𐹭｡\?\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2094\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹭。󃱂\x{200C}Ⴞ", %p)}, undef, "to_unicode\(\'𐹭\。\?\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2095\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹭。󃱂\x{200C}Ⴞ", %p)}, undef, "to_unicode\(\'𐹭\。\?\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2096\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹭。󃱂\x{200C}ⴞ", %p)}, undef, "to_unicode\(\'𐹭\。\?\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2097\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹭。󃱂\x{200C}ⴞ", %p)}, undef, "to_unicode\(\'𐹭\。\?\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2098\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹭｡󃱂\x{200C}ⴞ", %p)}, undef, "to_unicode\(\'𐹭｡\?\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2099\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹭｡󃱂\x{200C}ⴞ", %p)}, undef, "to_unicode\(\'𐹭｡\?\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2100\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A953}.\x{033D}𑂽馋", %p)}, undef, "to_unicode\(\'\\uA953\.\\u033D\?馋\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2101\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󈫝򪛸\x{200D}｡䜖", %p)}, undef, "to_unicode\(\'\?\?\\u200D｡䜖\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2102\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󈫝򪛸\x{200D}｡䜖", %p)}, undef, "to_unicode\(\'\?\?\\u200D｡䜖\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2103\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󈫝򪛸\x{200D}。䜖", %p)}, undef, "to_unicode\(\'\?\?\\u200D\。䜖\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2104\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󈫝򪛸\x{200D}。䜖", %p)}, undef, "to_unicode\(\'\?\?\\u200D\。䜖\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2105\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡯ⚉姶🄉．۷\x{200D}🎪\x{200D}", %p)}, undef, "to_unicode\(\'ᡯ\⚉姶🄉．۷\\u200D🎪\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2106\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡯ⚉姶🄉．۷\x{200D}🎪\x{200D}", %p)}, undef, "to_unicode\(\'ᡯ\⚉姶🄉．۷\\u200D🎪\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2107\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡯ⚉姶8,.۷\x{200D}🎪\x{200D}", %p)}, undef, "to_unicode\(\'ᡯ\⚉姶8\,\.۷\\u200D🎪\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2108\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡯ⚉姶8,.۷\x{200D}🎪\x{200D}", %p)}, undef, "to_unicode\(\'ᡯ\⚉姶8\,\.۷\\u200D🎪\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2109\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞽀.𐹸🚖\x{0E3A}", %p)}, undef, "to_unicode\(\'\?\.𐹸🚖\\u0E3A\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2110\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴔᠵ｡𐹧\x{0747}۹", %p)}, undef, "to_unicode\(\'Ⴔᠵ｡𐹧\\u0747۹\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2111\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴔᠵ。𐹧\x{0747}۹", %p)}, undef, "to_unicode\(\'Ⴔᠵ\。𐹧\\u0747۹\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2112\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴔᠵ。𐹧\x{0747}۹", %p)}, undef, "to_unicode\(\'ⴔᠵ\。𐹧\\u0747۹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2113\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴔᠵ｡𐹧\x{0747}۹", %p)}, undef, "to_unicode\(\'ⴔᠵ｡𐹧\\u0747۹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2114\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{135F}ᡈ\x{200C}．︒-𖾐-", %p)}, undef, "to_unicode\(\'\\u135Fᡈ\\u200C．︒\-𖾐\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:2115\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{135F}ᡈ\x{200C}．︒-𖾐-", %p)}, undef, "to_unicode\(\'\\u135Fᡈ\\u200C．︒\-𖾐\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:2116\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{135F}ᡈ\x{200C}.。-𖾐-", %p)}, undef, "to_unicode\(\'\\u135Fᡈ\\u200C\.\。\-𖾐\-\'\)\ throws\ error\ V5\ V3\ C1\ A4_2\ \[data\/IdnaTest\.txt\:2117\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{135F}ᡈ\x{200C}.。-𖾐-", %p)}, undef, "to_unicode\(\'\\u135Fᡈ\\u200C\.\。\-𖾐\-\'\)\ throws\ error\ V5\ V3\ C1\ A4_2\ \[data\/IdnaTest\.txt\:2118\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("⒈\x{0601}⒖\x{200C}.\x{1DF0}\x{07DB}", %p)}, undef, "to_unicode\(\'⒈\\u0601⒖\\u200C\.\\u1DF0\\u07DB\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:2119\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈\x{0601}⒖\x{200C}.\x{1DF0}\x{07DB}", %p)}, undef, "to_unicode\(\'⒈\\u0601⒖\\u200C\.\\u1DF0\\u07DB\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:2120\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.\x{0601}15.\x{200C}.\x{1DF0}\x{07DB}", %p)}, undef, "to_unicode\(\'1\.\\u060115\.\\u200C\.\\u1DF0\\u07DB\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:2121\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.\x{0601}15.\x{200C}.\x{1DF0}\x{07DB}", %p)}, undef, "to_unicode\(\'1\.\\u060115\.\\u200C\.\\u1DF0\\u07DB\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:2122\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝩜。-\x{0B4D}Ⴋ", %p)}, undef, "to_unicode\(\'𝩜\。\-\\u0B4DႫ\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:2123\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𝩜。-\x{0B4D}ⴋ", %p)}, undef, "to_unicode\(\'𝩜\。\-\\u0B4Dⴋ\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:2124\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("ßჀ.\x{0620}刯Ⴝ", %p)}, undef, "to_unicode\(\'ßჀ\.\\u0620刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2125\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("ßⴠ.\x{0620}刯ⴝ", %p)}, undef, "to_unicode\(\'ßⴠ\.\\u0620刯ⴝ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2126\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("SSჀ.\x{0620}刯Ⴝ", %p)}, undef, "to_unicode\(\'SSჀ\.\\u0620刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2127\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("ssⴠ.\x{0620}刯ⴝ", %p)}, undef, "to_unicode\(\'ssⴠ\.\\u0620刯ⴝ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2128\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ssⴠ.\x{0620}刯Ⴝ", %p)}, undef, "to_unicode\(\'Ssⴠ\.\\u0620刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2129\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BAA}ႣℲ｡ᠳ툻\x{0673}", %p)}, undef, "to_unicode\(\'\\u1BAAႣℲ｡ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2130\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BAA}ႣℲ｡ᠳ툻\x{0673}", %p)}, undef, "to_unicode\(\'\\u1BAAႣℲ｡ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2131\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BAA}ႣℲ。ᠳ툻\x{0673}", %p)}, undef, "to_unicode\(\'\\u1BAAႣℲ\。ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2132\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BAA}ႣℲ。ᠳ툻\x{0673}", %p)}, undef, "to_unicode\(\'\\u1BAAႣℲ\。ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2133\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{1BAA}ⴃⅎ。ᠳ툻\x{0673}", %p)}, undef, "to_unicode\(\'\\u1BAAⴃⅎ\。ᠳ툻\\u0673\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2134\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{1BAA}ⴃⅎ。ᠳ툻\x{0673}", %p)}, undef, "to_unicode\(\'\\u1BAAⴃⅎ\。ᠳ툻\\u0673\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2135\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{1BAA}Ⴃⅎ。ᠳ툻\x{0673}", %p)}, undef, "to_unicode\(\'\\u1BAAႣⅎ\。ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2136\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BAA}Ⴃⅎ。ᠳ툻\x{0673}", %p)}, undef, "to_unicode\(\'\\u1BAAႣⅎ\。ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2137\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{1BAA}ⴃⅎ｡ᠳ툻\x{0673}", %p)}, undef, "to_unicode\(\'\\u1BAAⴃⅎ｡ᠳ툻\\u0673\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2138\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{1BAA}ⴃⅎ｡ᠳ툻\x{0673}", %p)}, undef, "to_unicode\(\'\\u1BAAⴃⅎ｡ᠳ툻\\u0673\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2139\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{1BAA}Ⴃⅎ｡ᠳ툻\x{0673}", %p)}, undef, "to_unicode\(\'\\u1BAAႣⅎ｡ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2140\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BAA}Ⴃⅎ｡ᠳ툻\x{0673}", %p)}, undef, "to_unicode\(\'\\u1BAAႣⅎ｡ᠳ툻\\u0673\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2141\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{06EC}.\x{08A2}𐹫\x{067C}", %p)}, undef, "to_unicode\(\'\\u06EC\.\\u08A2𐹫\\u067C\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2142\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{06B6}\x{06DF}。₇\x{A806}", %p)}, "\x{06B6}\x{06DF}.7\x{A806}", "to_unicode\(\'\\u06B6\\u06DF\。₇\\uA806\'\)\ \[data\/IdnaTest\.txt\:2143\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{06B6}\x{06DF}。7\x{A806}", %p)}, "\x{06B6}\x{06DF}.7\x{A806}", "to_unicode\(\'\\u06B6\\u06DF\。7\\uA806\'\)\ \[data\/IdnaTest\.txt\:2144\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("xn--pkb6f.xn--7-x93e", %p)}, "\x{06B6}\x{06DF}.7\x{A806}", "to_unicode\(\'xn\-\-pkb6f\.xn\-\-7\-x93e\'\)\ \[data\/IdnaTest\.txt\:2145\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{06B6}\x{06DF}.7\x{A806}", %p)}, "\x{06B6}\x{06DF}.7\x{A806}", "to_unicode\(\'\\u06B6\\u06DF\.7\\uA806\'\)\ \[data\/IdnaTest\.txt\:2146\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ⴣ𐹻.\x{200C}𝪣≮󠩉", %p)}, undef, "to_unicode\(\'Ⴣ𐹻\.\\u200C𝪣\≮\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2147\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴣ𐹻.\x{200C}𝪣≮󠩉", %p)}, undef, "to_unicode\(\'Ⴣ𐹻\.\\u200C𝪣\≮\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2148\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴣ𐹻.\x{200C}𝪣<\x{0338}󠩉", %p)}, undef, "to_unicode\(\'Ⴣ𐹻\.\\u200C𝪣\<\\u0338\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2149\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴣ𐹻.\x{200C}𝪣<\x{0338}󠩉", %p)}, undef, "to_unicode\(\'Ⴣ𐹻\.\\u200C𝪣\<\\u0338\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2150\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴣ𐹻.\x{200C}𝪣<\x{0338}󠩉", %p)}, undef, "to_unicode\(\'ⴣ𐹻\.\\u200C𝪣\<\\u0338\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2151\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴣ𐹻.\x{200C}𝪣<\x{0338}󠩉", %p)}, undef, "to_unicode\(\'ⴣ𐹻\.\\u200C𝪣\<\\u0338\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2152\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴣ𐹻.\x{200C}𝪣≮󠩉", %p)}, undef, "to_unicode\(\'ⴣ𐹻\.\\u200C𝪣\≮\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2153\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴣ𐹻.\x{200C}𝪣≮󠩉", %p)}, undef, "to_unicode\(\'ⴣ𐹻\.\\u200C𝪣\≮\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2154\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𝟵隁⯮．\x{180D}\x{200C}", %p)}, undef, "to_unicode\(\'𝟵隁\⯮．\\u180D\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2155\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𝟵隁⯮．\x{180D}\x{200C}", %p)}, undef, "to_unicode\(\'𝟵隁\⯮．\\u180D\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2156\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("9隁⯮.\x{180D}\x{200C}", %p)}, undef, "to_unicode\(\'9隁\⯮\.\\u180D\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2157\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("9隁⯮.\x{180D}\x{200C}", %p)}, undef, "to_unicode\(\'9隁\⯮\.\\u180D\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2158\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("xn--9-mfs8024b.", %p)}, "9隁⯮.", "to_unicode\(\'xn\-\-9\-mfs8024b\.\'\)\ \[data\/IdnaTest\.txt\:2159\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("9隁⯮.", %p)}, "9隁⯮.", "to_unicode\(\'9隁\⯮\.\'\)\ \[data\/IdnaTest\.txt\:2160\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("⒏𐹧｡Ⴣ\x{0F84}彦", %p)}, undef, "to_unicode\(\'⒏𐹧｡Ⴣ\\u0F84彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2161\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("8.𐹧。Ⴣ\x{0F84}彦", %p)}, undef, "to_unicode\(\'8\.𐹧\。Ⴣ\\u0F84彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2162\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("8.𐹧。ⴣ\x{0F84}彦", %p)}, undef, "to_unicode\(\'8\.𐹧\。ⴣ\\u0F84彦\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2163\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("⒏𐹧｡ⴣ\x{0F84}彦", %p)}, undef, "to_unicode\(\'⒏𐹧｡ⴣ\\u0F84彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2164\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-问񬰔⒛。\x{0604}-񜗉橬", %p)}, undef, "to_unicode\(\'\-问\?⒛\。\\u0604\-\?橬\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2165\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-问񬰔20.。\x{0604}-񜗉橬", %p)}, undef, "to_unicode\(\'\-问\?20\.\。\\u0604\-\?橬\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:2166\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BAC}Ⴌ\x{200C}\x{0325}。𝟸", %p)}, undef, "to_unicode\(\'\\u1BACႬ\\u200C\\u0325\。𝟸\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2167\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BAC}Ⴌ\x{200C}\x{0325}。𝟸", %p)}, undef, "to_unicode\(\'\\u1BACႬ\\u200C\\u0325\。𝟸\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2168\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BAC}Ⴌ\x{200C}\x{0325}。2", %p)}, undef, "to_unicode\(\'\\u1BACႬ\\u200C\\u0325\。2\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2169\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BAC}Ⴌ\x{200C}\x{0325}。2", %p)}, undef, "to_unicode\(\'\\u1BACႬ\\u200C\\u0325\。2\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2170\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{1BAC}ⴌ\x{200C}\x{0325}。2", %p)}, undef, "to_unicode\(\'\\u1BACⴌ\\u200C\\u0325\。2\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2171\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{1BAC}ⴌ\x{200C}\x{0325}。2", %p)}, undef, "to_unicode\(\'\\u1BACⴌ\\u200C\\u0325\。2\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2172\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{1BAC}ⴌ\x{200C}\x{0325}。𝟸", %p)}, undef, "to_unicode\(\'\\u1BACⴌ\\u200C\\u0325\。𝟸\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2173\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{1BAC}ⴌ\x{200C}\x{0325}。𝟸", %p)}, undef, "to_unicode\(\'\\u1BACⴌ\\u200C\\u0325\。𝟸\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2174\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{DC5F}。\x{A806}\x{0669}󠒩", %p)}, undef, "to_unicode\(\'\\uDC5F\。\\uA806\\u0669\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2175\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄁\x{035F}⾶｡₇︒눇≮", %p)}, undef, "to_unicode\(\'\󠄁\\u035F⾶｡₇︒눇\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2176\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄁\x{035F}⾶｡₇︒눇<\x{0338}", %p)}, undef, "to_unicode\(\'\󠄁\\u035F⾶｡₇︒눇\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2177\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄁\x{035F}飛。7。눇≮", %p)}, undef, "to_unicode\(\'\󠄁\\u035F飛\。7\。눇\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2178\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄁\x{035F}飛。7。눇<\x{0338}", %p)}, undef, "to_unicode\(\'\󠄁\\u035F飛\。7\。눇\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2179\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}\x{FE09}𐹴\x{200D}．\x{200C}⿃", %p)}, undef, "to_unicode\(\'\\u200C\\uFE09𐹴\\u200D．\\u200C⿃\'\)\ throws\ error\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:2180\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}\x{FE09}𐹴\x{200D}．\x{200C}⿃", %p)}, undef, "to_unicode\(\'\\u200C\\uFE09𐹴\\u200D．\\u200C⿃\'\)\ throws\ error\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:2181\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}\x{FE09}𐹴\x{200D}.\x{200C}鳥", %p)}, undef, "to_unicode\(\'\\u200C\\uFE09𐹴\\u200D\.\\u200C鳥\'\)\ throws\ error\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:2182\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}\x{FE09}𐹴\x{200D}.\x{200C}鳥", %p)}, undef, "to_unicode\(\'\\u200C\\uFE09𐹴\\u200D\.\\u200C鳥\'\)\ throws\ error\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:2183\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("🍮．\x{200D}󠗒𐦁𝨝", %p)}, undef, "to_unicode\(\'🍮．\\u200D\?𐦁𝨝\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2184\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🍮．\x{200D}󠗒𐦁𝨝", %p)}, undef, "to_unicode\(\'🍮．\\u200D\?𐦁𝨝\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2185\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🍮.\x{200D}󠗒𐦁𝨝", %p)}, undef, "to_unicode\(\'🍮\.\\u200D\?𐦁𝨝\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2186\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🍮.\x{200D}󠗒𐦁𝨝", %p)}, undef, "to_unicode\(\'🍮\.\\u200D\?𐦁𝨝\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2187\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{067D}\x{0943}.𞤓\x{200D}", %p)}, undef, "to_unicode\(\'\\u067D\\u0943\.\?\\u200D\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:2188\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{067D}\x{0943}.𞤓\x{200D}", %p)}, undef, "to_unicode\(\'\\u067D\\u0943\.\?\\u200D\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:2189\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("xn--2ib43l.xn--te6h", %p)}, "\x{067D}\x{0943}.𞤵", "to_unicode\(\'xn\-\-2ib43l\.xn\-\-te6h\'\)\ \[data\/IdnaTest\.txt\:2190\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{067D}\x{0943}.𞤵", %p)}, "\x{067D}\x{0943}.𞤵", "to_unicode\(\'\\u067D\\u0943\.\?\'\)\ \[data\/IdnaTest\.txt\:2191\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{0664}\x{0A4D}-．󥜽\x{1039}񦦐", %p)}, undef, "to_unicode\(\'\\u0664\\u0A4D\-．\?\\u1039\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2192\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0664}\x{0A4D}-.󥜽\x{1039}񦦐", %p)}, undef, "to_unicode\(\'\\u0664\\u0A4D\-\.\?\\u1039\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2193\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4\x{103A}-𐹸｡\x{AA29}\x{200C}𐹴≮", %p)}, undef, "to_unicode\(\'4\\u103A\-𐹸｡\\uAA29\\u200C𐹴\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2194\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4\x{103A}-𐹸｡\x{AA29}\x{200C}𐹴≮", %p)}, undef, "to_unicode\(\'4\\u103A\-𐹸｡\\uAA29\\u200C𐹴\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2195\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4\x{103A}-𐹸｡\x{AA29}\x{200C}𐹴<\x{0338}", %p)}, undef, "to_unicode\(\'4\\u103A\-𐹸｡\\uAA29\\u200C𐹴\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2196\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4\x{103A}-𐹸｡\x{AA29}\x{200C}𐹴<\x{0338}", %p)}, undef, "to_unicode\(\'4\\u103A\-𐹸｡\\uAA29\\u200C𐹴\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2197\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4\x{103A}-𐹸。\x{AA29}\x{200C}𐹴≮", %p)}, undef, "to_unicode\(\'4\\u103A\-𐹸\。\\uAA29\\u200C𐹴\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2198\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4\x{103A}-𐹸。\x{AA29}\x{200C}𐹴≮", %p)}, undef, "to_unicode\(\'4\\u103A\-𐹸\。\\uAA29\\u200C𐹴\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2199\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4\x{103A}-𐹸。\x{AA29}\x{200C}𐹴<\x{0338}", %p)}, undef, "to_unicode\(\'4\\u103A\-𐹸\。\\uAA29\\u200C𐹴\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2200\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4\x{103A}-𐹸。\x{AA29}\x{200C}𐹴<\x{0338}", %p)}, undef, "to_unicode\(\'4\\u103A\-𐹸\。\\uAA29\\u200C𐹴\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2201\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}。\x{FFA0}\x{0F84}\x{0F96}", %p)}, undef, "to_unicode\(\'\\u200C\。\\uFFA0\\u0F84\\u0F96\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2202\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}。\x{FFA0}\x{0F84}\x{0F96}", %p)}, undef, "to_unicode\(\'\\u200C\。\\uFFA0\\u0F84\\u0F96\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2203\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}。\x{1160}\x{0F84}\x{0F96}", %p)}, undef, "to_unicode\(\'\\u200C\。\\u1160\\u0F84\\u0F96\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2204\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}。\x{1160}\x{0F84}\x{0F96}", %p)}, undef, "to_unicode\(\'\\u200C\。\\u1160\\u0F84\\u0F96\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2205\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯򍘅．\x{200D}𐅼򲇛", %p)}, undef, "to_unicode\(\'\≯\?．\\u200D𐅼\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2206\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯򍘅．\x{200D}𐅼򲇛", %p)}, undef, "to_unicode\(\'\≯\?．\\u200D𐅼\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2207\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}򍘅．\x{200D}𐅼򲇛", %p)}, undef, "to_unicode\(\'\>\\u0338\?．\\u200D𐅼\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2208\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}򍘅．\x{200D}𐅼򲇛", %p)}, undef, "to_unicode\(\'\>\\u0338\?．\\u200D𐅼\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2209\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯򍘅.\x{200D}𐅼򲇛", %p)}, undef, "to_unicode\(\'\≯\?\.\\u200D𐅼\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2210\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯򍘅.\x{200D}𐅼򲇛", %p)}, undef, "to_unicode\(\'\≯\?\.\\u200D𐅼\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2211\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}򍘅.\x{200D}𐅼򲇛", %p)}, undef, "to_unicode\(\'\>\\u0338\?\.\\u200D𐅼\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2212\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}򍘅.\x{200D}𐅼򲇛", %p)}, undef, "to_unicode\(\'\>\\u0338\?\.\\u200D𐅼\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2213\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0641}ß𐰯｡𝟕𐫫", %p)}, undef, "to_unicode\(\'\\u0641ß𐰯｡𝟕𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2214\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0641}ß𐰯。7𐫫", %p)}, undef, "to_unicode\(\'\\u0641ß𐰯\。7𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2215\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0641}SS𐰯。7𐫫", %p)}, undef, "to_unicode\(\'\\u0641SS𐰯\。7𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2216\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0641}ss𐰯。7𐫫", %p)}, undef, "to_unicode\(\'\\u0641ss𐰯\。7𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2217\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0641}Ss𐰯。7𐫫", %p)}, undef, "to_unicode\(\'\\u0641Ss𐰯\。7𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2218\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0641}SS𐰯｡𝟕𐫫", %p)}, undef, "to_unicode\(\'\\u0641SS𐰯｡𝟕𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2219\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0641}ss𐰯｡𝟕𐫫", %p)}, undef, "to_unicode\(\'\\u0641ss𐰯｡𝟕𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2220\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0641}Ss𐰯｡𝟕𐫫", %p)}, undef, "to_unicode\(\'\\u0641Ss𐰯｡𝟕𐫫\'\)\ throws\ error\ B2\ B1\ \[data\/IdnaTest\.txt\:2221\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("ß\x{07AC}\x{07A7}\x{08B1}。𐭁􅮙𐹲", %p)}, undef, "to_unicode\(\'ß\\u07AC\\u07A7\\u08B1\。𐭁\?𐹲\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2222\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("SS\x{07AC}\x{07A7}\x{08B1}。𐭁􅮙𐹲", %p)}, undef, "to_unicode\(\'SS\\u07AC\\u07A7\\u08B1\。𐭁\?𐹲\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2223\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ss\x{07AC}\x{07A7}\x{08B1}。𐭁􅮙𐹲", %p)}, undef, "to_unicode\(\'ss\\u07AC\\u07A7\\u08B1\。𐭁\?𐹲\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2224\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ss\x{07AC}\x{07A7}\x{08B1}。𐭁􅮙𐹲", %p)}, undef, "to_unicode\(\'Ss\\u07AC\\u07A7\\u08B1\。𐭁\?𐹲\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2225\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-｡󠉗⒌𞯛", %p)}, undef, "to_unicode\(\'\-｡\?⒌\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2226\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-。󠉗5.𞯛", %p)}, undef, "to_unicode\(\'\-\。\?5\.\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2227\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𼎏ς．-≮\x{FCAB}", %p)}, undef, "to_unicode\(\'\?ς．\-\≮\\uFCAB\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2228\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𼎏ς．-<\x{0338}\x{FCAB}", %p)}, undef, "to_unicode\(\'\?ς．\-\<\\u0338\\uFCAB\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2229\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𼎏ς.-≮\x{062E}\x{062C}", %p)}, undef, "to_unicode\(\'\?ς\.\-\≮\\u062E\\u062C\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2230\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𼎏ς.-<\x{0338}\x{062E}\x{062C}", %p)}, undef, "to_unicode\(\'\?ς\.\-\<\\u0338\\u062E\\u062C\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2231\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𼎏Σ.-<\x{0338}\x{062E}\x{062C}", %p)}, undef, "to_unicode\(\'\?Σ\.\-\<\\u0338\\u062E\\u062C\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2232\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𼎏Σ.-≮\x{062E}\x{062C}", %p)}, undef, "to_unicode\(\'\?Σ\.\-\≮\\u062E\\u062C\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2233\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𼎏σ.-≮\x{062E}\x{062C}", %p)}, undef, "to_unicode\(\'\?σ\.\-\≮\\u062E\\u062C\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2234\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𼎏σ.-<\x{0338}\x{062E}\x{062C}", %p)}, undef, "to_unicode\(\'\?σ\.\-\<\\u0338\\u062E\\u062C\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2235\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𼎏Σ．-<\x{0338}\x{FCAB}", %p)}, undef, "to_unicode\(\'\?Σ．\-\<\\u0338\\uFCAB\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2236\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𼎏Σ．-≮\x{FCAB}", %p)}, undef, "to_unicode\(\'\?Σ．\-\≮\\uFCAB\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2237\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𼎏σ．-≮\x{FCAB}", %p)}, undef, "to_unicode\(\'\?σ．\-\≮\\uFCAB\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2238\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𼎏σ．-<\x{0338}\x{FCAB}", %p)}, undef, "to_unicode\(\'\?σ．\-\<\\u0338\\uFCAB\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2239\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡗ\x{08B8}\x{0719}．񔤔󠛙\x{0C4D}\x{FC3E}", %p)}, undef, "to_unicode\(\'ꡗ\\u08B8\\u0719．\?\?\\u0C4D\\uFC3E\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2240\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡗ\x{08B8}\x{0719}.񔤔󠛙\x{0C4D}\x{0643}\x{064A}", %p)}, undef, "to_unicode\(\'ꡗ\\u08B8\\u0719\.\?\?\\u0C4D\\u0643\\u064A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2241\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𐠰\x{08B7}𞤌𐫭。𐋦\x{17CD}𝩃", %p)}, "𐠰\x{08B7}𞤮𐫭.𐋦\x{17CD}𝩃", "to_unicode\(\'𐠰\\u08B7\?𐫭\。𐋦\\u17CD𝩃\'\)\ \[data\/IdnaTest\.txt\:2242\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("xn--dzb5191kezbrw47a.xn--p4e3841jz9tf", %p)}, "𐠰\x{08B7}𞤮𐫭.𐋦\x{17CD}𝩃", "to_unicode\(\'xn\-\-dzb5191kezbrw47a\.xn\-\-p4e3841jz9tf\'\)\ \[data\/IdnaTest\.txt\:2243\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𐠰\x{08B7}𞤮𐫭.𐋦\x{17CD}𝩃", %p)}, "𐠰\x{08B7}𞤮𐫭.𐋦\x{17CD}𝩃", "to_unicode\(\'𐠰\\u08B7\?𐫭\.𐋦\\u17CD𝩃\'\)\ \[data\/IdnaTest\.txt\:2244\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("₂㘷--。\x{06D3}\x{200C}𐫆𑖿", %p)}, undef, "to_unicode\(\'₂㘷\-\-\。\\u06D3\\u200C𐫆𑖿\'\)\ throws\ error\ V2\ V3\ C1\ \[data\/IdnaTest\.txt\:2245\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("₂㘷--。\x{06D3}\x{200C}𐫆𑖿", %p)}, undef, "to_unicode\(\'₂㘷\-\-\。\\u06D3\\u200C𐫆𑖿\'\)\ throws\ error\ V2\ V3\ C1\ \[data\/IdnaTest\.txt\:2246\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("₂㘷--。\x{06D2}\x{0654}\x{200C}𐫆𑖿", %p)}, undef, "to_unicode\(\'₂㘷\-\-\。\\u06D2\\u0654\\u200C𐫆𑖿\'\)\ throws\ error\ V2\ V3\ C1\ \[data\/IdnaTest\.txt\:2247\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("₂㘷--。\x{06D2}\x{0654}\x{200C}𐫆𑖿", %p)}, undef, "to_unicode\(\'₂㘷\-\-\。\\u06D2\\u0654\\u200C𐫆𑖿\'\)\ throws\ error\ V2\ V3\ C1\ \[data\/IdnaTest\.txt\:2248\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("2㘷--。\x{06D3}\x{200C}𐫆𑖿", %p)}, undef, "to_unicode\(\'2㘷\-\-\。\\u06D3\\u200C𐫆𑖿\'\)\ throws\ error\ V2\ V3\ C1\ \[data\/IdnaTest\.txt\:2249\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("2㘷--。\x{06D3}\x{200C}𐫆𑖿", %p)}, undef, "to_unicode\(\'2㘷\-\-\。\\u06D3\\u200C𐫆𑖿\'\)\ throws\ error\ V2\ V3\ C1\ \[data\/IdnaTest\.txt\:2250\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("2㘷--。\x{06D2}\x{0654}\x{200C}𐫆𑖿", %p)}, undef, "to_unicode\(\'2㘷\-\-\。\\u06D2\\u0654\\u200C𐫆𑖿\'\)\ throws\ error\ V2\ V3\ C1\ \[data\/IdnaTest\.txt\:2251\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("2㘷--。\x{06D2}\x{0654}\x{200C}𐫆𑖿", %p)}, undef, "to_unicode\(\'2㘷\-\-\。\\u06D2\\u0654\\u200C𐫆𑖿\'\)\ throws\ error\ V2\ V3\ C1\ \[data\/IdnaTest\.txt\:2252\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("-𘊻．ᡮ\x{062D}-", %p)}, undef, "to_unicode\(\'\-\?．ᡮ\\u062D\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2253\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("-𘊻.ᡮ\x{062D}-", %p)}, undef, "to_unicode\(\'\-\?\.ᡮ\\u062D\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2254\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-ß｡ᢣ𐹭\x{063F}", %p)}, undef, "to_unicode\(\'\\u200C\-ß｡ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2255\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-ß｡ᢣ𐹭\x{063F}", %p)}, undef, "to_unicode\(\'\\u200C\-ß｡ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2256\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-ß。ᢣ𐹭\x{063F}", %p)}, undef, "to_unicode\(\'\\u200C\-ß\。ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2257\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-ß。ᢣ𐹭\x{063F}", %p)}, undef, "to_unicode\(\'\\u200C\-ß\。ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2258\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-SS。ᢣ𐹭\x{063F}", %p)}, undef, "to_unicode\(\'\\u200C\-SS\。ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2259\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-SS。ᢣ𐹭\x{063F}", %p)}, undef, "to_unicode\(\'\\u200C\-SS\。ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2260\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-ss。ᢣ𐹭\x{063F}", %p)}, undef, "to_unicode\(\'\\u200C\-ss\。ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2261\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-ss。ᢣ𐹭\x{063F}", %p)}, undef, "to_unicode\(\'\\u200C\-ss\。ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2262\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-Ss。ᢣ𐹭\x{063F}", %p)}, undef, "to_unicode\(\'\\u200C\-Ss\。ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2263\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-Ss。ᢣ𐹭\x{063F}", %p)}, undef, "to_unicode\(\'\\u200C\-Ss\。ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2264\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-SS｡ᢣ𐹭\x{063F}", %p)}, undef, "to_unicode\(\'\\u200C\-SS｡ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2265\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-SS｡ᢣ𐹭\x{063F}", %p)}, undef, "to_unicode\(\'\\u200C\-SS｡ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2266\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-ss｡ᢣ𐹭\x{063F}", %p)}, undef, "to_unicode\(\'\\u200C\-ss｡ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2267\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-ss｡ᢣ𐹭\x{063F}", %p)}, undef, "to_unicode\(\'\\u200C\-ss｡ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2268\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-Ss｡ᢣ𐹭\x{063F}", %p)}, undef, "to_unicode\(\'\\u200C\-Ss｡ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2269\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-Ss｡ᢣ𐹭\x{063F}", %p)}, undef, "to_unicode\(\'\\u200C\-Ss｡ᢣ𐹭\\u063F\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2270\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("꧐Ӏ\x{1BAA}\x{08F6}．눵", %p)}, undef, "to_unicode\(\'꧐Ӏ\\u1BAA\\u08F6．눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2271\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("꧐Ӏ\x{1BAA}\x{08F6}．눵", %p)}, undef, "to_unicode\(\'꧐Ӏ\\u1BAA\\u08F6．눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2272\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("꧐Ӏ\x{1BAA}\x{08F6}.눵", %p)}, undef, "to_unicode\(\'꧐Ӏ\\u1BAA\\u08F6\.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2273\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("꧐Ӏ\x{1BAA}\x{08F6}.눵", %p)}, undef, "to_unicode\(\'꧐Ӏ\\u1BAA\\u08F6\.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2274\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("꧐ӏ\x{1BAA}\x{08F6}.눵", %p)}, "꧐ӏ\x{1BAA}\x{08F6}.눵", "to_unicode\(\'꧐ӏ\\u1BAA\\u08F6\.눵\'\)\ \[data\/IdnaTest\.txt\:2275\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("꧐ӏ\x{1BAA}\x{08F6}.눵", %p)}, "꧐ӏ\x{1BAA}\x{08F6}.눵", "to_unicode\(\'꧐ӏ\\u1BAA\\u08F6\.눵\'\)\ \[data\/IdnaTest\.txt\:2276\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("xn--s5a04sn4u297k.xn--2e1b", %p)}, "꧐ӏ\x{1BAA}\x{08F6}.눵", "to_unicode\(\'xn\-\-s5a04sn4u297k\.xn\-\-2e1b\'\)\ \[data\/IdnaTest\.txt\:2277\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("꧐ӏ\x{1BAA}\x{08F6}．눵", %p)}, "꧐ӏ\x{1BAA}\x{08F6}.눵", "to_unicode\(\'꧐ӏ\\u1BAA\\u08F6．눵\'\)\ \[data\/IdnaTest\.txt\:2278\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("꧐ӏ\x{1BAA}\x{08F6}．눵", %p)}, "꧐ӏ\x{1BAA}\x{08F6}.눵", "to_unicode\(\'꧐ӏ\\u1BAA\\u08F6．눵\'\)\ \[data\/IdnaTest\.txt\:2279\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{A8EA}｡𖄿𑆾󠇗", %p)}, undef, "to_unicode\(\'\\uA8EA｡\?𑆾\󠇗\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2280\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A8EA}。𖄿𑆾󠇗", %p)}, undef, "to_unicode\(\'\\uA8EA\。\?𑆾\󠇗\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2281\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󇓓𑚳。񐷿≯⾇", %p)}, undef, "to_unicode\(\'\?𑚳\。\?\≯⾇\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2282\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󇓓𑚳。񐷿>\x{0338}⾇", %p)}, undef, "to_unicode\(\'\?𑚳\。\?\>\\u0338⾇\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2283\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󇓓𑚳。񐷿≯舛", %p)}, undef, "to_unicode\(\'\?𑚳\。\?\≯舛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2284\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󇓓𑚳。񐷿>\x{0338}舛", %p)}, undef, "to_unicode\(\'\?𑚳\。\?\>\\u0338舛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2285\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫇\x{0661}\x{200C}．\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'𐫇\\u0661\\u200C．\\u200D\\u200C\'\)\ throws\ error\ B3\ C1\ C2\ \[data\/IdnaTest\.txt\:2286\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫇\x{0661}\x{200C}．\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'𐫇\\u0661\\u200C．\\u200D\\u200C\'\)\ throws\ error\ B3\ C1\ C2\ \[data\/IdnaTest\.txt\:2287\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫇\x{0661}\x{200C}.\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'𐫇\\u0661\\u200C\.\\u200D\\u200C\'\)\ throws\ error\ B3\ C1\ C2\ \[data\/IdnaTest\.txt\:2288\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫇\x{0661}\x{200C}.\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'𐫇\\u0661\\u200C\.\\u200D\\u200C\'\)\ throws\ error\ B3\ C1\ C2\ \[data\/IdnaTest\.txt\:2289\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--9hb7344k.", %p)}, "𐫇\x{0661}.", "to_unicode\(\'xn\-\-9hb7344k\.\'\)\ \[data\/IdnaTest\.txt\:2290\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫇\x{0661}.", %p)}, "𐫇\x{0661}.", "to_unicode\(\'𐫇\\u0661\.\'\)\ \[data\/IdnaTest\.txt\:2291\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("񡅈砪≯ᢑ｡≯𝩚򓴔\x{200C}", %p)}, undef, "to_unicode\(\'\?砪\≯ᢑ｡\≯𝩚\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2292\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񡅈砪≯ᢑ｡≯𝩚򓴔\x{200C}", %p)}, undef, "to_unicode\(\'\?砪\≯ᢑ｡\≯𝩚\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2293\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񡅈砪>\x{0338}ᢑ｡>\x{0338}𝩚򓴔\x{200C}", %p)}, undef, "to_unicode\(\'\?砪\>\\u0338ᢑ｡\>\\u0338𝩚\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2294\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񡅈砪>\x{0338}ᢑ｡>\x{0338}𝩚򓴔\x{200C}", %p)}, undef, "to_unicode\(\'\?砪\>\\u0338ᢑ｡\>\\u0338𝩚\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2295\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񡅈砪≯ᢑ。≯𝩚򓴔\x{200C}", %p)}, undef, "to_unicode\(\'\?砪\≯ᢑ\。\≯𝩚\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2296\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񡅈砪≯ᢑ。≯𝩚򓴔\x{200C}", %p)}, undef, "to_unicode\(\'\?砪\≯ᢑ\。\≯𝩚\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2297\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񡅈砪>\x{0338}ᢑ。>\x{0338}𝩚򓴔\x{200C}", %p)}, undef, "to_unicode\(\'\?砪\>\\u0338ᢑ\。\>\\u0338𝩚\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2298\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񡅈砪>\x{0338}ᢑ。>\x{0338}𝩚򓴔\x{200C}", %p)}, undef, "to_unicode\(\'\?砪\>\\u0338ᢑ\。\>\\u0338𝩚\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2299\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴥ.𑄳㊸", %p)}, undef, "to_unicode\(\'Ⴥ\.𑄳㊸\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2300\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴥ.𑄳43", %p)}, undef, "to_unicode\(\'Ⴥ\.𑄳43\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2301\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("ⴥ.𑄳43", %p)}, undef, "to_unicode\(\'ⴥ\.𑄳43\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2302\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("ⴥ.𑄳㊸", %p)}, undef, "to_unicode\(\'ⴥ\.𑄳㊸\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2303\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𝟎\x{0663}。Ⴒᡇ\x{08F2}𐹠", %p)}, undef, "to_unicode\(\'𝟎\\u0663\。Ⴒᡇ\\u08F2𐹠\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2304\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("0\x{0663}。Ⴒᡇ\x{08F2}𐹠", %p)}, undef, "to_unicode\(\'0\\u0663\。Ⴒᡇ\\u08F2𐹠\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2305\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("0\x{0663}。ⴒᡇ\x{08F2}𐹠", %p)}, undef, "to_unicode\(\'0\\u0663\。ⴒᡇ\\u08F2𐹠\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2306\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("𝟎\x{0663}。ⴒᡇ\x{08F2}𐹠", %p)}, undef, "to_unicode\(\'𝟎\\u0663\。ⴒᡇ\\u08F2𐹠\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2307\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("񗪨󠄉\x{FFA0}\x{0FB7}.񸞰\x{A953}", %p)}, undef, "to_unicode\(\'\?\󠄉\\uFFA0\\u0FB7\.\?\\uA953\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2308\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񗪨󠄉\x{1160}\x{0FB7}.񸞰\x{A953}", %p)}, undef, "to_unicode\(\'\?\󠄉\\u1160\\u0FB7\.\?\\uA953\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2309\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{0618}.۳\x{200C}\x{A953}", %p)}, undef, "to_unicode\(\'\\u0618\.۳\\u200C\\uA953\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2310\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{0618}.۳\x{200C}\x{A953}", %p)}, undef, "to_unicode\(\'\\u0618\.۳\\u200C\\uA953\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2311\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("ᡌ．︒ᢑ", %p)}, undef, "to_unicode\(\'ᡌ．︒ᢑ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2312\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡌ.。ᢑ", %p)}, undef, "to_unicode\(\'ᡌ\.\。ᢑ\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:2313\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑋪\x{1073}｡𞽧", %p)}, undef, "to_unicode\(\'𑋪\\u1073｡\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2314\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑋪\x{1073}。𞽧", %p)}, undef, "to_unicode\(\'𑋪\\u1073\。\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2315\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞷏。ᠢ򓘆", %p)}, undef, "to_unicode\(\'\?\。ᠢ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2316\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑄳㴼．\x{200C}𐹡\x{20EB}񫺦", %p)}, undef, "to_unicode\(\'𑄳㴼．\\u200C𐹡\\u20EB\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2317\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑄳㴼．\x{200C}𐹡\x{20EB}񫺦", %p)}, undef, "to_unicode\(\'𑄳㴼．\\u200C𐹡\\u20EB\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2318\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑄳㴼.\x{200C}𐹡\x{20EB}񫺦", %p)}, undef, "to_unicode\(\'𑄳㴼\.\\u200C𐹡\\u20EB\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2319\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑄳㴼.\x{200C}𐹡\x{20EB}񫺦", %p)}, undef, "to_unicode\(\'𑄳㴼\.\\u200C𐹡\\u20EB\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2320\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񠻟𐹳𑈯｡\x{031D}", %p)}, undef, "to_unicode\(\'\?𐹳𑈯｡\\u031D\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2321\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񠻟𐹳𑈯。\x{031D}", %p)}, undef, "to_unicode\(\'\?𐹳𑈯\。\\u031D\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2322\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢊ뾜󠱴𑚶。\x{089D}𐹥", %p)}, undef, "to_unicode\(\'ᢊ뾜\?𑚶\。\\u089D𐹥\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2323\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢊ뾜󠱴𑚶。\x{089D}𐹥", %p)}, undef, "to_unicode\(\'ᢊ뾜\?𑚶\。\\u089D𐹥\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2324\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹥≠｡𐋲󠧠\x{200C}", %p)}, undef, "to_unicode\(\'𐹥\≠｡𐋲\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2325\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹥≠｡𐋲󠧠\x{200C}", %p)}, undef, "to_unicode\(\'𐹥\≠｡𐋲\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2326\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹥=\x{0338}｡𐋲󠧠\x{200C}", %p)}, undef, "to_unicode\(\'𐹥\=\\u0338｡𐋲\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2327\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹥=\x{0338}｡𐋲󠧠\x{200C}", %p)}, undef, "to_unicode\(\'𐹥\=\\u0338｡𐋲\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2328\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹥≠。𐋲󠧠\x{200C}", %p)}, undef, "to_unicode\(\'𐹥\≠\。𐋲\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2329\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹥≠。𐋲󠧠\x{200C}", %p)}, undef, "to_unicode\(\'𐹥\≠\。𐋲\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2330\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹥=\x{0338}。𐋲󠧠\x{200C}", %p)}, undef, "to_unicode\(\'𐹥\=\\u0338\。𐋲\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2331\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹥=\x{0338}。𐋲󠧠\x{200C}", %p)}, undef, "to_unicode\(\'𐹥\=\\u0338\。𐋲\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2332\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{115F}񙯠\x{094D}．\x{200D}\x{A953}𐪤", %p)}, undef, "to_unicode\(\'\\u115F\?\\u094D．\\u200D\\uA953\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2333\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{115F}񙯠\x{094D}．\x{200D}\x{A953}𐪤", %p)}, undef, "to_unicode\(\'\\u115F\?\\u094D．\\u200D\\uA953\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2334\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{115F}񙯠\x{094D}.\x{200D}\x{A953}𐪤", %p)}, undef, "to_unicode\(\'\\u115F\?\\u094D\.\\u200D\\uA953\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2335\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{115F}񙯠\x{094D}.\x{200D}\x{A953}𐪤", %p)}, undef, "to_unicode\(\'\\u115F\?\\u094D\.\\u200D\\uA953\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2336\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򌋔󠆎󠆗𑲕。≮", %p)}, undef, "to_unicode\(\'\?\󠆎\󠆗\?\。\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2337\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򌋔󠆎󠆗𑲕。<\x{0338}", %p)}, undef, "to_unicode\(\'\?\󠆎\󠆗\?\。\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2338\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠆦.\x{08E3}暀≠", %p)}, undef, "to_unicode\(\'\󠆦\.\\u08E3暀\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2339\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠆦.\x{08E3}暀=\x{0338}", %p)}, undef, "to_unicode\(\'\󠆦\.\\u08E3暀\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2340\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐡤\x{ABED}｡\x{FD30}򜖅\x{1DF0}", %p)}, undef, "to_unicode\(\'𐡤\\uABED｡\\uFD30\?\\u1DF0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2341\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐡤\x{ABED}。\x{0634}\x{0645}򜖅\x{1DF0}", %p)}, undef, "to_unicode\(\'𐡤\\uABED\。\\u0634\\u0645\?\\u1DF0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2342\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝉃\x{200D}⒈｡Ⴌ𞱓", %p)}, undef, "to_unicode\(\'𝉃\\u200D⒈｡Ⴌ\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2343\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝉃\x{200D}⒈｡Ⴌ𞱓", %p)}, undef, "to_unicode\(\'𝉃\\u200D⒈｡Ⴌ\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2344\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝉃\x{200D}1.。Ⴌ𞱓", %p)}, undef, "to_unicode\(\'𝉃\\u200D1\.\。Ⴌ\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2345\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝉃\x{200D}1.。Ⴌ𞱓", %p)}, undef, "to_unicode\(\'𝉃\\u200D1\.\。Ⴌ\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2346\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝉃\x{200D}1.。ⴌ𞱓", %p)}, undef, "to_unicode\(\'𝉃\\u200D1\.\。ⴌ\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2347\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝉃\x{200D}1.。ⴌ𞱓", %p)}, undef, "to_unicode\(\'𝉃\\u200D1\.\。ⴌ\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2348\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝉃\x{200D}⒈｡ⴌ𞱓", %p)}, undef, "to_unicode\(\'𝉃\\u200D⒈｡ⴌ\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2349\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝉃\x{200D}⒈｡ⴌ𞱓", %p)}, undef, "to_unicode\(\'𝉃\\u200D⒈｡ⴌ\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2350\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠣙\x{0A4D}𱫘𞤸.ς񵯞􈰔", %p)}, undef, "to_unicode\(\'\?\\u0A4D\?\?\.ς\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2351\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠣙\x{0A4D}𱫘𞤸.Σ񵯞􈰔", %p)}, undef, "to_unicode\(\'\?\\u0A4D\?\?\.Σ\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2352\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠣙\x{0A4D}𱫘𞤸.σ񵯞􈰔", %p)}, undef, "to_unicode\(\'\?\\u0A4D\?\?\.σ\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2353\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07D3}。\x{200C}𐫀򞭱", %p)}, undef, "to_unicode\(\'\\u07D3\。\\u200C𐫀\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2354\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07D3}。\x{200C}𐫀򞭱", %p)}, undef, "to_unicode\(\'\\u07D3\。\\u200C𐫀\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2355\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{1C2E}𞀝.\x{05A6}ꡟ𞤕󠆖", %p)}, undef, "to_unicode\(\'\\u1C2E\?\.\\u05A6ꡟ\?\󠆖\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2356\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("䂹󾖅𐋦．\x{200D}", %p)}, undef, "to_unicode\(\'䂹\?𐋦．\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2357\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("䂹󾖅𐋦．\x{200D}", %p)}, undef, "to_unicode\(\'䂹\?𐋦．\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2358\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("䂹󾖅𐋦.\x{200D}", %p)}, undef, "to_unicode\(\'䂹\?𐋦\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2359\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("䂹󾖅𐋦.\x{200D}", %p)}, undef, "to_unicode\(\'䂹\?𐋦\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2360\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9C0}\x{200C}𐹲\x{200C}｡\x{0767}🄉", %p)}, undef, "to_unicode\(\'\\uA9C0\\u200C𐹲\\u200C｡\\u0767🄉\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2361\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9C0}\x{200C}𐹲\x{200C}｡\x{0767}🄉", %p)}, undef, "to_unicode\(\'\\uA9C0\\u200C𐹲\\u200C｡\\u0767🄉\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2362\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9C0}\x{200C}𐹲\x{200C}。\x{0767}8,", %p)}, undef, "to_unicode\(\'\\uA9C0\\u200C𐹲\\u200C\。\\u07678\,\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ B3\ \[data\/IdnaTest\.txt\:2363\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9C0}\x{200C}𐹲\x{200C}。\x{0767}8,", %p)}, undef, "to_unicode\(\'\\uA9C0\\u200C𐹲\\u200C\。\\u07678\,\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ B3\ \[data\/IdnaTest\.txt\:2364\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("︒｡Ⴃ≯", %p)}, undef, "to_unicode\(\'︒｡Ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2365\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("︒｡Ⴃ>\x{0338}", %p)}, undef, "to_unicode\(\'︒｡Ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2366\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("。。Ⴃ≯", %p)}, undef, "to_unicode\(\'\。\。Ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2367\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("。。Ⴃ>\x{0338}", %p)}, undef, "to_unicode\(\'\。\。Ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2368\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("。。ⴃ>\x{0338}", %p)}, undef, "to_unicode\(\'\。\。ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2369\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("。。ⴃ≯", %p)}, undef, "to_unicode\(\'\。\。ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2370\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("︒｡ⴃ>\x{0338}", %p)}, undef, "to_unicode\(\'︒｡ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2371\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("︒｡ⴃ≯", %p)}, undef, "to_unicode\(\'︒｡ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2372\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹮｡󠢼\x{200D}", %p)}, undef, "to_unicode\(\'𐹮｡\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2373\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹮｡󠢼\x{200D}", %p)}, undef, "to_unicode\(\'𐹮｡\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2374\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹮。󠢼\x{200D}", %p)}, undef, "to_unicode\(\'𐹮\。\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2375\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹮。󠢼\x{200D}", %p)}, undef, "to_unicode\(\'𐹮\。\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2376\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴞ𐹨｡︒\x{077D}\x{200D}Ⴏ", %p)}, undef, "to_unicode\(\'Ⴞ𐹨｡︒\\u077D\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ C2\ \[data\/IdnaTest\.txt\:2377\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴞ𐹨｡︒\x{077D}\x{200D}Ⴏ", %p)}, undef, "to_unicode\(\'Ⴞ𐹨｡︒\\u077D\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ C2\ \[data\/IdnaTest\.txt\:2378\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴞ𐹨。。\x{077D}\x{200D}Ⴏ", %p)}, undef, "to_unicode\(\'Ⴞ𐹨\。\。\\u077D\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ A4_2\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2379\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴞ𐹨。。\x{077D}\x{200D}Ⴏ", %p)}, undef, "to_unicode\(\'Ⴞ𐹨\。\。\\u077D\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ A4_2\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2380\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴞ𐹨。。\x{077D}\x{200D}ⴏ", %p)}, undef, "to_unicode\(\'ⴞ𐹨\。\。\\u077D\\u200Dⴏ\'\)\ throws\ error\ B5\ B6\ A4_2\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2381\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴞ𐹨。。\x{077D}\x{200D}ⴏ", %p)}, undef, "to_unicode\(\'ⴞ𐹨\。\。\\u077D\\u200Dⴏ\'\)\ throws\ error\ B5\ B6\ A4_2\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2382\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("ⴞ𐹨｡︒\x{077D}\x{200D}ⴏ", %p)}, undef, "to_unicode\(\'ⴞ𐹨｡︒\\u077D\\u200Dⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ C2\ \[data\/IdnaTest\.txt\:2383\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴞ𐹨｡︒\x{077D}\x{200D}ⴏ", %p)}, undef, "to_unicode\(\'ⴞ𐹨｡︒\\u077D\\u200Dⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ C2\ \[data\/IdnaTest\.txt\:2384\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴆ𝟹。-\x{20D2}-\x{07D1}", %p)}, undef, "to_unicode\(\'\\u200CႦ𝟹\。\-\\u20D2\-\\u07D1\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2385\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴆ𝟹。-\x{20D2}-\x{07D1}", %p)}, undef, "to_unicode\(\'\\u200CႦ𝟹\。\-\\u20D2\-\\u07D1\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2386\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴆ3。-\x{20D2}-\x{07D1}", %p)}, undef, "to_unicode\(\'\\u200CႦ3\。\-\\u20D2\-\\u07D1\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2387\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴆ3。-\x{20D2}-\x{07D1}", %p)}, undef, "to_unicode\(\'\\u200CႦ3\。\-\\u20D2\-\\u07D1\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2388\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{200C}ⴆ3。-\x{20D2}-\x{07D1}", %p)}, undef, "to_unicode\(\'\\u200Cⴆ3\。\-\\u20D2\-\\u07D1\'\)\ throws\ error\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2389\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{200C}ⴆ3。-\x{20D2}-\x{07D1}", %p)}, undef, "to_unicode\(\'\\u200Cⴆ3\。\-\\u20D2\-\\u07D1\'\)\ throws\ error\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2390\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{200C}ⴆ𝟹。-\x{20D2}-\x{07D1}", %p)}, undef, "to_unicode\(\'\\u200Cⴆ𝟹\。\-\\u20D2\-\\u07D1\'\)\ throws\ error\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2391\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{200C}ⴆ𝟹。-\x{20D2}-\x{07D1}", %p)}, undef, "to_unicode\(\'\\u200Cⴆ𝟹\。\-\\u20D2\-\\u07D1\'\)\ throws\ error\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2392\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("箃Ⴡ-󠁝｡≠-🤖", %p)}, undef, "to_unicode\(\'箃Ⴡ\-\?｡\≠\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2393\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("箃Ⴡ-󠁝｡=\x{0338}-🤖", %p)}, undef, "to_unicode\(\'箃Ⴡ\-\?｡\=\\u0338\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2394\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("箃Ⴡ-󠁝。≠-🤖", %p)}, undef, "to_unicode\(\'箃Ⴡ\-\?\。\≠\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2395\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("箃Ⴡ-󠁝。=\x{0338}-🤖", %p)}, undef, "to_unicode\(\'箃Ⴡ\-\?\。\=\\u0338\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2396\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("箃ⴡ-󠁝。=\x{0338}-🤖", %p)}, undef, "to_unicode\(\'箃ⴡ\-\?\。\=\\u0338\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2397\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("箃ⴡ-󠁝。≠-🤖", %p)}, undef, "to_unicode\(\'箃ⴡ\-\?\。\≠\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2398\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("箃ⴡ-󠁝｡=\x{0338}-🤖", %p)}, undef, "to_unicode\(\'箃ⴡ\-\?｡\=\\u0338\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2399\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("箃ⴡ-󠁝｡≠-🤖", %p)}, undef, "to_unicode\(\'箃ⴡ\-\?｡\≠\-🤖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2400\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{07E5}.\x{06B5}", %p)}, "\x{07E5}.\x{06B5}", "to_unicode\(\'\\u07E5\.\\u06B5\'\)\ \[data\/IdnaTest\.txt\:2401\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("xn--dtb.xn--okb", %p)}, "\x{07E5}.\x{06B5}", "to_unicode\(\'xn\-\-dtb\.xn\-\-okb\'\)\ \[data\/IdnaTest\.txt\:2402\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{200C}\x{200D}.𞤿", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\.\?\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:2403\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{200C}\x{200D}.𞤿", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\.\?\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:2404\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("xn--3e6h", %p)}, "𞤿", "to_unicode\(\'xn\-\-3e6h\'\)\ \[data\/IdnaTest\.txt\:2405\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤿", %p)}, "𞤿", "to_unicode\(\'\?\'\)\ \[data\/IdnaTest\.txt\:2406\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("🜑𐹧\x{0639}.ς𑍍蜹", %p)}, undef, "to_unicode\(\'🜑𐹧\\u0639\.ς𑍍蜹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2407\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("🜑𐹧\x{0639}.Σ𑍍蜹", %p)}, undef, "to_unicode\(\'🜑𐹧\\u0639\.Σ𑍍蜹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2408\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("🜑𐹧\x{0639}.σ𑍍蜹", %p)}, undef, "to_unicode\(\'🜑𐹧\\u0639\.σ𑍍蜹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2409\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("򫠐ス􆟤\x{0669}．󚃟", %p)}, undef, "to_unicode\(\'\?ス\?\\u0669．\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2410\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򫠐ス􆟤\x{0669}.󚃟", %p)}, undef, "to_unicode\(\'\?ス\?\\u0669\.\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2411\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝪣򕡝．\x{059A}\x{D850}\x{06C2}", %p)}, undef, "to_unicode\(\'𝪣\?．\\u059A\\uD850\\u06C2\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2412\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝪣򕡝．\x{059A}\x{D850}\x{06C1}\x{0654}", %p)}, undef, "to_unicode\(\'𝪣\?．\\u059A\\uD850\\u06C1\\u0654\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2413\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝪣򕡝.\x{059A}\x{D850}\x{06C2}", %p)}, undef, "to_unicode\(\'𝪣\?\.\\u059A\\uD850\\u06C2\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2414\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝪣򕡝.\x{059A}\x{D850}\x{06C1}\x{0654}", %p)}, undef, "to_unicode\(\'𝪣\?\.\\u059A\\uD850\\u06C1\\u0654\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2415\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0660}򪓵\x{200C}。\x{0757}", %p)}, undef, "to_unicode\(\'\\u0660\?\\u200C\。\\u0757\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2416\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0660}򪓵\x{200C}。\x{0757}", %p)}, undef, "to_unicode\(\'\\u0660\?\\u200C\。\\u0757\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2417\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{103A}\x{200D}\x{200C}。-\x{200C}", %p)}, undef, "to_unicode\(\'\\u103A\\u200D\\u200C\。\-\\u200C\'\)\ throws\ error\ V5\ V3\ C1\ \[data\/IdnaTest\.txt\:2418\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{103A}\x{200D}\x{200C}。-\x{200C}", %p)}, undef, "to_unicode\(\'\\u103A\\u200D\\u200C\。\-\\u200C\'\)\ throws\ error\ V5\ V3\ C1\ \[data\/IdnaTest\.txt\:2419\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("︒｡\x{1B44}ᡉ", %p)}, undef, "to_unicode\(\'︒｡\\u1B44ᡉ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2420\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("。。\x{1B44}ᡉ", %p)}, undef, "to_unicode\(\'\。\。\\u1B44ᡉ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2421\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{0758}ß。ጫᢊ\x{0768}𝟐", %p)}, undef, "to_unicode\(\'\\u0758ß\。ጫᢊ\\u0768𝟐\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2422\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{0758}ß。ጫᢊ\x{0768}2", %p)}, undef, "to_unicode\(\'\\u0758ß\。ጫᢊ\\u07682\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2423\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{0758}SS。ጫᢊ\x{0768}2", %p)}, undef, "to_unicode\(\'\\u0758SS\。ጫᢊ\\u07682\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2424\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{0758}ss。ጫᢊ\x{0768}2", %p)}, undef, "to_unicode\(\'\\u0758ss\。ጫᢊ\\u07682\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2425\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{0758}Ss。ጫᢊ\x{0768}2", %p)}, undef, "to_unicode\(\'\\u0758Ss\。ጫᢊ\\u07682\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2426\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{0758}SS。ጫᢊ\x{0768}𝟐", %p)}, undef, "to_unicode\(\'\\u0758SS\。ጫᢊ\\u0768𝟐\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2427\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{0758}ss。ጫᢊ\x{0768}𝟐", %p)}, undef, "to_unicode\(\'\\u0758ss\。ጫᢊ\\u0768𝟐\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2428\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{0758}Ss。ጫᢊ\x{0768}𝟐", %p)}, undef, "to_unicode\(\'\\u0758Ss\。ጫᢊ\\u0768𝟐\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2429\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{07C3}𞶇ᚲ.\x{0902}\x{0353}𝟚\x{09CD}", %p)}, undef, "to_unicode\(\'\\u07C3\?ᚲ\.\\u0902\\u0353𝟚\\u09CD\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2430\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07C3}𞶇ᚲ.\x{0902}\x{0353}2\x{09CD}", %p)}, undef, "to_unicode\(\'\\u07C3\?ᚲ\.\\u0902\\u03532\\u09CD\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2431\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{1BAB}︒\x{200D}.񒶈񥹓", %p)}, undef, "to_unicode\(\'\-\\u1BAB︒\\u200D\.\?\?\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2432\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{1BAB}︒\x{200D}.񒶈񥹓", %p)}, undef, "to_unicode\(\'\-\\u1BAB︒\\u200D\.\?\?\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2433\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{1BAB}。\x{200D}.񒶈񥹓", %p)}, undef, "to_unicode\(\'\-\\u1BAB\。\\u200D\.\?\?\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2434\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{1BAB}。\x{200D}.񒶈񥹓", %p)}, undef, "to_unicode\(\'\-\\u1BAB\。\\u200D\.\?\?\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2435\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠦮.≯𞀆", %p)}, undef, "to_unicode\(\'\?\.\≯\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2436\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠦮.>\x{0338}𞀆", %p)}, undef, "to_unicode\(\'\?\.\>\\u0338\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2437\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-𑄳󠊗𐹩。𞮱", %p)}, undef, "to_unicode\(\'\-𑄳\?𐹩\。\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2438\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06B9}．ᡳ\x{115F}", %p)}, undef, "to_unicode\(\'\\u06B9．ᡳ\\u115F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2439\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06B9}.ᡳ\x{115F}", %p)}, undef, "to_unicode\(\'\\u06B9\.ᡳ\\u115F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2440\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㨛𘱎.︒𝟕\x{0D01}", %p)}, undef, "to_unicode\(\'㨛\?\.︒𝟕\\u0D01\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2441\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㨛𘱎.。7\x{0D01}", %p)}, undef, "to_unicode\(\'㨛\?\.\。7\\u0D01\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2442\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06DD}𻱧-｡𞷁\x{2064}𞤣≮", %p)}, undef, "to_unicode\(\'\\u06DD\?\-｡\?\\u2064\?\≮\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2443\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06DD}𻱧-｡𞷁\x{2064}𞤣<\x{0338}", %p)}, undef, "to_unicode\(\'\\u06DD\?\-｡\?\\u2064\?\<\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2444\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06DD}𻱧-。𞷁\x{2064}𞤣≮", %p)}, undef, "to_unicode\(\'\\u06DD\?\-\。\?\\u2064\?\≮\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2445\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06DD}𻱧-。𞷁\x{2064}𞤣<\x{0338}", %p)}, undef, "to_unicode\(\'\\u06DD\?\-\。\?\\u2064\?\<\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2446\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß\x{200C}\x{AAF6}ᢥ．⊶ჁႶ", %p)}, undef, "to_unicode\(\'ß\\u200C\\uAAF6ᢥ．\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2447\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß\x{200C}\x{AAF6}ᢥ．⊶ჁႶ", %p)}, undef, "to_unicode\(\'ß\\u200C\\uAAF6ᢥ．\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2448\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß\x{200C}\x{AAF6}ᢥ.⊶ჁႶ", %p)}, undef, "to_unicode\(\'ß\\u200C\\uAAF6ᢥ\.\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2449\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß\x{200C}\x{AAF6}ᢥ.⊶ჁႶ", %p)}, undef, "to_unicode\(\'ß\\u200C\\uAAF6ᢥ\.\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2450\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("ß\x{200C}\x{AAF6}ᢥ.⊶ⴡⴖ", %p)}, undef, "to_unicode\(\'ß\\u200C\\uAAF6ᢥ\.\⊶ⴡⴖ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2451\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("ß\x{200C}\x{AAF6}ᢥ.⊶ⴡⴖ", %p)}, undef, "to_unicode\(\'ß\\u200C\\uAAF6ᢥ\.\⊶ⴡⴖ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2452\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("SS\x{200C}\x{AAF6}ᢥ.⊶ჁႶ", %p)}, undef, "to_unicode\(\'SS\\u200C\\uAAF6ᢥ\.\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2453\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("SS\x{200C}\x{AAF6}ᢥ.⊶ჁႶ", %p)}, undef, "to_unicode\(\'SS\\u200C\\uAAF6ᢥ\.\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2454\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("ss\x{200C}\x{AAF6}ᢥ.⊶ⴡⴖ", %p)}, undef, "to_unicode\(\'ss\\u200C\\uAAF6ᢥ\.\⊶ⴡⴖ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2455\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("ss\x{200C}\x{AAF6}ᢥ.⊶ⴡⴖ", %p)}, undef, "to_unicode\(\'ss\\u200C\\uAAF6ᢥ\.\⊶ⴡⴖ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2456\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ss\x{200C}\x{AAF6}ᢥ.⊶Ⴡⴖ", %p)}, undef, "to_unicode\(\'Ss\\u200C\\uAAF6ᢥ\.\⊶Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2457\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ss\x{200C}\x{AAF6}ᢥ.⊶Ⴡⴖ", %p)}, undef, "to_unicode\(\'Ss\\u200C\\uAAF6ᢥ\.\⊶Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2458\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("xn--ss-4epx629f.xn--ifh802b6a", %p)}, "ss\x{AAF6}ᢥ.⊶ⴡⴖ", "to_unicode\(\'xn\-\-ss\-4epx629f\.xn\-\-ifh802b6a\'\)\ \[data\/IdnaTest\.txt\:2459\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("ss\x{AAF6}ᢥ.⊶ⴡⴖ", %p)}, "ss\x{AAF6}ᢥ.⊶ⴡⴖ", "to_unicode\(\'ss\\uAAF6ᢥ\.\⊶ⴡⴖ\'\)\ \[data\/IdnaTest\.txt\:2460\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("SS\x{AAF6}ᢥ.⊶ჁႶ", %p)}, undef, "to_unicode\(\'SS\\uAAF6ᢥ\.\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2461\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ss\x{AAF6}ᢥ.⊶Ⴡⴖ", %p)}, undef, "to_unicode\(\'Ss\\uAAF6ᢥ\.\⊶Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2462\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("ß\x{200C}\x{AAF6}ᢥ．⊶ⴡⴖ", %p)}, undef, "to_unicode\(\'ß\\u200C\\uAAF6ᢥ．\⊶ⴡⴖ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2463\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("ß\x{200C}\x{AAF6}ᢥ．⊶ⴡⴖ", %p)}, undef, "to_unicode\(\'ß\\u200C\\uAAF6ᢥ．\⊶ⴡⴖ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2464\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("SS\x{200C}\x{AAF6}ᢥ．⊶ჁႶ", %p)}, undef, "to_unicode\(\'SS\\u200C\\uAAF6ᢥ．\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2465\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("SS\x{200C}\x{AAF6}ᢥ．⊶ჁႶ", %p)}, undef, "to_unicode\(\'SS\\u200C\\uAAF6ᢥ．\⊶ჁႶ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2466\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("ss\x{200C}\x{AAF6}ᢥ．⊶ⴡⴖ", %p)}, undef, "to_unicode\(\'ss\\u200C\\uAAF6ᢥ．\⊶ⴡⴖ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2467\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("ss\x{200C}\x{AAF6}ᢥ．⊶ⴡⴖ", %p)}, undef, "to_unicode\(\'ss\\u200C\\uAAF6ᢥ．\⊶ⴡⴖ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2468\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ss\x{200C}\x{AAF6}ᢥ．⊶Ⴡⴖ", %p)}, undef, "to_unicode\(\'Ss\\u200C\\uAAF6ᢥ．\⊶Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2469\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ss\x{200C}\x{AAF6}ᢥ．⊶Ⴡⴖ", %p)}, undef, "to_unicode\(\'Ss\\u200C\\uAAF6ᢥ．\⊶Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2470\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。ς󠁉", %p)}, undef, "to_unicode\(\'\\u200D\。ς\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2471\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。ς󠁉", %p)}, undef, "to_unicode\(\'\\u200D\。ς\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2472\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。Σ󠁉", %p)}, undef, "to_unicode\(\'\\u200D\。Σ\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2473\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。Σ󠁉", %p)}, undef, "to_unicode\(\'\\u200D\。Σ\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2474\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。σ󠁉", %p)}, undef, "to_unicode\(\'\\u200D\。σ\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2475\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。σ󠁉", %p)}, undef, "to_unicode\(\'\\u200D\。σ\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2476\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞵑ß.\x{0751}\x{200D}𞤛-", %p)}, undef, "to_unicode\(\'\?ß\.\\u0751\\u200D\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2477\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞵑ß.\x{0751}\x{200D}𞤛-", %p)}, undef, "to_unicode\(\'\?ß\.\\u0751\\u200D\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2478\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞵑SS.\x{0751}\x{200D}𞤛-", %p)}, undef, "to_unicode\(\'\?SS\.\\u0751\\u200D\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2479\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞵑SS.\x{0751}\x{200D}𞤛-", %p)}, undef, "to_unicode\(\'\?SS\.\\u0751\\u200D\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2480\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞵑ss.\x{0751}\x{200D}𞤛-", %p)}, undef, "to_unicode\(\'\?ss\.\\u0751\\u200D\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2481\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞵑ss.\x{0751}\x{200D}𞤛-", %p)}, undef, "to_unicode\(\'\?ss\.\\u0751\\u200D\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2482\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞵑Ss.\x{0751}\x{200D}𞤛-", %p)}, undef, "to_unicode\(\'\?Ss\.\\u0751\\u200D\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2483\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞵑Ss.\x{0751}\x{200D}𞤛-", %p)}, undef, "to_unicode\(\'\?Ss\.\\u0751\\u200D\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2484\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑘽\x{200D}𞤧．𐹧󡦪-", %p)}, undef, "to_unicode\(\'𑘽\\u200D\?．𐹧\?\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2485\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑘽\x{200D}𞤧．𐹧󡦪-", %p)}, undef, "to_unicode\(\'𑘽\\u200D\?．𐹧\?\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2486\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑘽\x{200D}𞤧.𐹧󡦪-", %p)}, undef, "to_unicode\(\'𑘽\\u200D\?\.𐹧\?\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2487\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑘽\x{200D}𞤧.𐹧󡦪-", %p)}, undef, "to_unicode\(\'𑘽\\u200D\?\.𐹧\?\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2488\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒒򨘙򳳠𑓀.-󞡊", %p)}, undef, "to_unicode\(\'⒒\?\?𑓀\.\-\?\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2489\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("11.򨘙򳳠𑓀.-󞡊", %p)}, undef, "to_unicode\(\'11\.\?\?𑓀\.\-\?\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2490\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-｡\x{200D}", %p)}, undef, "to_unicode\(\'\-｡\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2491\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-｡\x{200D}", %p)}, undef, "to_unicode\(\'\-｡\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2492\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-。\x{200D}", %p)}, undef, "to_unicode\(\'\-\。\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2493\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-。\x{200D}", %p)}, undef, "to_unicode\(\'\-\。\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2494\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮ᡬ．ς¹-\x{DB09}", %p)}, undef, "to_unicode\(\'\≮ᡬ．ς¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2495\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}ᡬ．ς¹-\x{DB09}", %p)}, undef, "to_unicode\(\'\<\\u0338ᡬ．ς¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2496\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮ᡬ.ς1-\x{DB09}", %p)}, undef, "to_unicode\(\'\≮ᡬ\.ς1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2497\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}ᡬ.ς1-\x{DB09}", %p)}, undef, "to_unicode\(\'\<\\u0338ᡬ\.ς1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2498\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}ᡬ.Σ1-\x{DB09}", %p)}, undef, "to_unicode\(\'\<\\u0338ᡬ\.Σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2499\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮ᡬ.Σ1-\x{DB09}", %p)}, undef, "to_unicode\(\'\≮ᡬ\.Σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2500\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮ᡬ.σ1-\x{DB09}", %p)}, undef, "to_unicode\(\'\≮ᡬ\.σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2501\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}ᡬ.σ1-\x{DB09}", %p)}, undef, "to_unicode\(\'\<\\u0338ᡬ\.σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2502\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}ᡬ．Σ¹-\x{DB09}", %p)}, undef, "to_unicode\(\'\<\\u0338ᡬ．Σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2503\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮ᡬ．Σ¹-\x{DB09}", %p)}, undef, "to_unicode\(\'\≮ᡬ．Σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2504\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮ᡬ．σ¹-\x{DB09}", %p)}, undef, "to_unicode\(\'\≮ᡬ．σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2505\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}ᡬ．σ¹-\x{DB09}", %p)}, undef, "to_unicode\(\'\<\\u0338ᡬ．σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2506\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ቬ򔠼񁗶｡𐨬𝟠", %p)}, undef, "to_unicode\(\'ቬ\?\?｡𐨬𝟠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2507\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ቬ򔠼񁗶。𐨬8", %p)}, undef, "to_unicode\(\'ቬ\?\?\。𐨬8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2508\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐱲。蔫\x{0766}", %p)}, undef, "to_unicode\(\'\?\。蔫\\u0766\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2509\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򒲧₃｡ꡚ𛇑󠄳\x{0647}", %p)}, undef, "to_unicode\(\'\?₃｡ꡚ\?\󠄳\\u0647\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2510\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򒲧3。ꡚ𛇑󠄳\x{0647}", %p)}, undef, "to_unicode\(\'\?3\。ꡚ\?\󠄳\\u0647\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2511\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("蓸\x{0642}≠.ß", %p)}, undef, "to_unicode\(\'蓸\\u0642\≠\.ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2512\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("蓸\x{0642}=\x{0338}.ß", %p)}, undef, "to_unicode\(\'蓸\\u0642\=\\u0338\.ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2513\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("蓸\x{0642}=\x{0338}.SS", %p)}, undef, "to_unicode\(\'蓸\\u0642\=\\u0338\.SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2514\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("蓸\x{0642}≠.SS", %p)}, undef, "to_unicode\(\'蓸\\u0642\≠\.SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2515\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{084E}\x{067A}\x{0DD3}⒊.𐹹𞱩󠃪\x{200C}", %p)}, undef, "to_unicode\(\'\\u084E\\u067A\\u0DD3⒊\.𐹹\?\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2516\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{084E}\x{067A}\x{0DD3}⒊.𐹹𞱩󠃪\x{200C}", %p)}, undef, "to_unicode\(\'\\u084E\\u067A\\u0DD3⒊\.𐹹\?\?\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2517\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{084E}\x{067A}\x{0DD3}3..𐹹𞱩󠃪\x{200C}", %p)}, undef, "to_unicode\(\'\\u084E\\u067A\\u0DD33\.\.𐹹\?\?\\u200C\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ C1\ \[data\/IdnaTest\.txt\:2518\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{084E}\x{067A}\x{0DD3}3..𐹹𞱩󠃪\x{200C}", %p)}, undef, "to_unicode\(\'\\u084E\\u067A\\u0DD33\.\.𐹹\?\?\\u200C\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ C1\ \[data\/IdnaTest\.txt\:2519\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς\x{200D}-.Ⴣ𦟙", %p)}, undef, "to_unicode\(\'ς\\u200D\-\.Ⴣ𦟙\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2520\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς\x{200D}-.Ⴣ𦟙", %p)}, undef, "to_unicode\(\'ς\\u200D\-\.Ⴣ𦟙\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2521\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ς\x{200D}-.ⴣ𦟙", %p)}, undef, "to_unicode\(\'ς\\u200D\-\.ⴣ𦟙\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2522\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ς\x{200D}-.ⴣ𦟙", %p)}, undef, "to_unicode\(\'ς\\u200D\-\.ⴣ𦟙\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2523\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Σ\x{200D}-.Ⴣ𦟙", %p)}, undef, "to_unicode\(\'Σ\\u200D\-\.Ⴣ𦟙\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2524\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ\x{200D}-.Ⴣ𦟙", %p)}, undef, "to_unicode\(\'Σ\\u200D\-\.Ⴣ𦟙\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2525\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("σ\x{200D}-.ⴣ𦟙", %p)}, undef, "to_unicode\(\'σ\\u200D\-\.ⴣ𦟙\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2526\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("σ\x{200D}-.ⴣ𦟙", %p)}, undef, "to_unicode\(\'σ\\u200D\-\.ⴣ𦟙\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2527\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("≠。🞳𝟲", %p)}, undef, "to_unicode\(\'\≠\。🞳𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2528\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}。🞳𝟲", %p)}, undef, "to_unicode\(\'\=\\u0338\。🞳𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2529\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠。🞳6", %p)}, undef, "to_unicode\(\'\≠\。🞳6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2530\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}。🞳6", %p)}, undef, "to_unicode\(\'\=\\u0338\。🞳6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2531\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󅬽.蠔", %p)}, undef, "to_unicode\(\'\?\.蠔\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2532\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{08E6}\x{200D}．뼽", %p)}, undef, "to_unicode\(\'\\u08E6\\u200D．뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2533\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{08E6}\x{200D}．뼽", %p)}, undef, "to_unicode\(\'\\u08E6\\u200D．뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2534\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{08E6}\x{200D}．뼽", %p)}, undef, "to_unicode\(\'\\u08E6\\u200D．뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2535\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{08E6}\x{200D}．뼽", %p)}, undef, "to_unicode\(\'\\u08E6\\u200D．뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2536\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{08E6}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u08E6\\u200D\.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2537\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{08E6}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u08E6\\u200D\.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2538\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{08E6}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u08E6\\u200D\.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2539\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{08E6}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u08E6\\u200D\.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2540\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("₇\x{0BCD}􃂷\x{06D2}。👖\x{0675}-𞪑", %p)}, undef, "to_unicode\(\'₇\\u0BCD\?\\u06D2\。👖\\u0675\-\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2541\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("7\x{0BCD}􃂷\x{06D2}。👖\x{0627}\x{0674}-𞪑", %p)}, undef, "to_unicode\(\'7\\u0BCD\?\\u06D2\。👖\\u0627\\u0674\-\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2542\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("-｡\x{077B}", %p)}, undef, "to_unicode\(\'\-｡\\u077B\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2543\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("-。\x{077B}", %p)}, undef, "to_unicode\(\'\-\。\\u077B\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2544\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𑇌𵛓｡-⒈ꡏ\x{072B}", %p)}, undef, "to_unicode\(\'𑇌\?｡\-⒈ꡏ\\u072B\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2545\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑇌𵛓。-1.ꡏ\x{072B}", %p)}, undef, "to_unicode\(\'𑇌\?\。\-1\.ꡏ\\u072B\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2546\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("璛\x{1734}\x{06AF}.-", %p)}, undef, "to_unicode\(\'璛\\u1734\\u06AF\.\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2547\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("󠆰\x{08A1}\x{0A4D}샕．𐹲휁", %p)}, undef, "to_unicode\(\'\󠆰\\u08A1\\u0A4D샕．𐹲휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2548\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("󠆰\x{08A1}\x{0A4D}샕．𐹲휁", %p)}, undef, "to_unicode\(\'\󠆰\\u08A1\\u0A4D샕．𐹲휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2549\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("󠆰\x{08A1}\x{0A4D}샕.𐹲휁", %p)}, undef, "to_unicode\(\'\󠆰\\u08A1\\u0A4D샕\.𐹲휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2550\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("󠆰\x{08A1}\x{0A4D}샕.𐹲휁", %p)}, undef, "to_unicode\(\'\󠆰\\u08A1\\u0A4D샕\.𐹲휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2551\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("񍨽．񋸕", %p)}, undef, "to_unicode\(\'\?．\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2552\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񍨽.񋸕", %p)}, undef, "to_unicode\(\'\?\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2553\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{067D}𞥕｡𑑂𞤶Ⴍ-", %p)}, undef, "to_unicode\(\'\\u067D\?｡\?\?Ⴍ\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2554\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{067D}𞥕。𑑂𞤶Ⴍ-", %p)}, undef, "to_unicode\(\'\\u067D\?\。\?\?Ⴍ\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2555\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{067D}𞥕。𑑂𞤶ⴍ-", %p)}, undef, "to_unicode\(\'\\u067D\?\。\?\?ⴍ\-\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2556\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{067D}𞥕｡𑑂𞤶ⴍ-", %p)}, undef, "to_unicode\(\'\\u067D\?｡\?\?ⴍ\-\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2557\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𐯀𐸉𞧏。񢚧₄Ⴋ񂹫", %p)}, undef, "to_unicode\(\'\?\?\?\。\?₄Ⴋ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2558\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐯀𐸉𞧏。񢚧4Ⴋ񂹫", %p)}, undef, "to_unicode\(\'\?\?\?\。\?4Ⴋ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2559\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐯀𐸉𞧏。񢚧4ⴋ񂹫", %p)}, undef, "to_unicode\(\'\?\?\?\。\?4ⴋ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2560\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐯀𐸉𞧏。񢚧₄ⴋ񂹫", %p)}, undef, "to_unicode\(\'\?\?\?\。\?₄ⴋ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2561\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4\x{06BD}︒󠑥.≠", %p)}, undef, "to_unicode\(\'4\\u06BD︒\?\.\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2562\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4\x{06BD}︒󠑥.=\x{0338}", %p)}, undef, "to_unicode\(\'4\\u06BD︒\?\.\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2563\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4\x{06BD}。󠑥.≠", %p)}, undef, "to_unicode\(\'4\\u06BD\。\?\.\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2564\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4\x{06BD}。󠑥.=\x{0338}", %p)}, undef, "to_unicode\(\'4\\u06BD\。\?\.\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2565\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟓。\x{06D7}", %p)}, undef, "to_unicode\(\'𝟓\。\\u06D7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2566\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("5。\x{06D7}", %p)}, undef, "to_unicode\(\'5\。\\u06D7\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2567\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}򺸩.⾕", %p)}, undef, "to_unicode\(\'\\u200C\?\.⾕\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2568\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}򺸩.⾕", %p)}, undef, "to_unicode\(\'\\u200C\?\.⾕\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2569\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}򺸩.谷", %p)}, undef, "to_unicode\(\'\\u200C\?\.谷\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2570\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}򺸩.谷", %p)}, undef, "to_unicode\(\'\\u200C\?\.谷\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2571\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("︒󎰇\x{200D}.-\x{073C}\x{200C}", %p)}, undef, "to_unicode\(\'︒\?\\u200D\.\-\\u073C\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:2572\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("︒󎰇\x{200D}.-\x{073C}\x{200C}", %p)}, undef, "to_unicode\(\'︒\?\\u200D\.\-\\u073C\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:2573\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("。󎰇\x{200D}.-\x{073C}\x{200C}", %p)}, undef, "to_unicode\(\'\。\?\\u200D\.\-\\u073C\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:2574\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("。󎰇\x{200D}.-\x{073C}\x{200C}", %p)}, undef, "to_unicode\(\'\。\?\\u200D\.\-\\u073C\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:2575\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯𞤟。ᡨ", %p)}, undef, "to_unicode\(\'\≯\?\。ᡨ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2576\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}𞤟。ᡨ", %p)}, undef, "to_unicode\(\'\>\\u0338\?\。ᡨ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2577\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("\x{0F74}𫫰𝨄。\x{0713}𐹦", %p)}, undef, "to_unicode\(\'\\u0F74𫫰𝨄\。\\u0713𐹦\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2578\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{033C}\x{07DB}⁷𝟹｡𝟬", %p)}, undef, "to_unicode\(\'\\u033C\\u07DB⁷𝟹｡𝟬\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2579\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{033C}\x{07DB}73。0", %p)}, undef, "to_unicode\(\'\\u033C\\u07DB73\。0\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2580\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200D}．𝟗", %p)}, undef, "to_unicode\(\'\\u200D．𝟗\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2581\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}．𝟗", %p)}, undef, "to_unicode\(\'\\u200D．𝟗\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2582\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}.9", %p)}, undef, "to_unicode\(\'\\u200D\.9\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2583\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}.9", %p)}, undef, "to_unicode\(\'\\u200D\.9\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2584\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("9", %p)}, "9", "to_unicode\(\'9\'\)\ \[data\/IdnaTest\.txt\:2585\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{0779}ᡭ𪕈。\x{06B6}\x{08D9}", %p)}, undef, "to_unicode\(\'\\u0779ᡭ𪕈\。\\u06B6\\u08D9\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2586\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{0726}５\x{07E2}겙。\x{1CF4}𐷚", %p)}, undef, "to_unicode\(\'\\u0726５\\u07E2겙\。\\u1CF4\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2587\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0726}５\x{07E2}겙。\x{1CF4}𐷚", %p)}, undef, "to_unicode\(\'\\u0726５\\u07E2겙\。\\u1CF4\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2588\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0726}5\x{07E2}겙。\x{1CF4}𐷚", %p)}, undef, "to_unicode\(\'\\u07265\\u07E2겙\。\\u1CF4\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2589\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0726}5\x{07E2}겙。\x{1CF4}𐷚", %p)}, undef, "to_unicode\(\'\\u07265\\u07E2겙\。\\u1CF4\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2590\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴍ𿣍ꡨ\x{05AE}。Ⴞ\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴍ\?ꡨ\\u05AE\。Ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2591\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴍ𿣍ꡨ\x{05AE}。Ⴞ\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴍ\?ꡨ\\u05AE\。Ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2592\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴍ𿣍ꡨ\x{05AE}。ⴞ\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'ⴍ\?ꡨ\\u05AE\。ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2593\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴍ𿣍ꡨ\x{05AE}。ⴞ\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'ⴍ\?ꡨ\\u05AE\。ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2594\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐋰。󑓱", %p)}, undef, "to_unicode\(\'𐋰\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2595\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󡎦\x{17B4}\x{0B4D}.𐹾", %p)}, undef, "to_unicode\(\'\?\\u17B4\\u0B4D\.𐹾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2596\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08DF}Ⴋ𶿸귤．򠅼𝟢휪\x{0AE3}", %p)}, undef, "to_unicode\(\'\\u08DFႫ\?귤．\?𝟢휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2597\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08DF}Ⴋ𶿸귤．򠅼𝟢휪\x{0AE3}", %p)}, undef, "to_unicode\(\'\\u08DFႫ\?귤．\?𝟢휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2598\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08DF}Ⴋ𶿸귤.򠅼0휪\x{0AE3}", %p)}, undef, "to_unicode\(\'\\u08DFႫ\?귤\.\?0휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2599\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08DF}Ⴋ𶿸귤.򠅼0휪\x{0AE3}", %p)}, undef, "to_unicode\(\'\\u08DFႫ\?귤\.\?0휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2600\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08DF}ⴋ𶿸귤.򠅼0휪\x{0AE3}", %p)}, undef, "to_unicode\(\'\\u08DFⴋ\?귤\.\?0휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2601\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08DF}ⴋ𶿸귤.򠅼0휪\x{0AE3}", %p)}, undef, "to_unicode\(\'\\u08DFⴋ\?귤\.\?0휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2602\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08DF}ⴋ𶿸귤．򠅼𝟢휪\x{0AE3}", %p)}, undef, "to_unicode\(\'\\u08DFⴋ\?귤．\?𝟢휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2603\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08DF}ⴋ𶿸귤．򠅼𝟢휪\x{0AE3}", %p)}, undef, "to_unicode\(\'\\u08DFⴋ\?귤．\?𝟢휪\\u0AE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2604\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0784}．𞡝\x{0601}", %p)}, undef, "to_unicode\(\'\\u0784．𞡝\\u0601\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2605\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0784}.𞡝\x{0601}", %p)}, undef, "to_unicode\(\'\\u0784\.𞡝\\u0601\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2606\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0ACD}₃.8\x{A8C4}\x{200D}🃤", %p)}, undef, "to_unicode\(\'\\u0ACD₃\.8\\uA8C4\\u200D🃤\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2607\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0ACD}3.8\x{A8C4}\x{200D}🃤", %p)}, undef, "to_unicode\(\'\\u0ACD3\.8\\uA8C4\\u200D🃤\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2608\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("℻⩷𝆆。𞤠󠆁\x{180C}", %p)}, "fax⩷𝆆.𞥂", "to_unicode\(\'℻\⩷𝆆\。\?\󠆁\\u180C\'\)\ \[data\/IdnaTest\.txt\:2609\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("FAX⩷𝆆。𞤠󠆁\x{180C}", %p)}, "fax⩷𝆆.𞥂", "to_unicode\(\'FAX\⩷𝆆\。\?\󠆁\\u180C\'\)\ \[data\/IdnaTest\.txt\:2610\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("fax⩷𝆆。𞤠󠆁\x{180C}", %p)}, "fax⩷𝆆.𞥂", "to_unicode\(\'fax\⩷𝆆\。\?\󠆁\\u180C\'\)\ \[data\/IdnaTest\.txt\:2611\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("Fax⩷𝆆。𞤠󠆁\x{180C}", %p)}, "fax⩷𝆆.𞥂", "to_unicode\(\'Fax\⩷𝆆\。\?\󠆁\\u180C\'\)\ \[data\/IdnaTest\.txt\:2612\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("xn--fax-4c9a1676t.xn--6e6h", %p)}, "fax⩷𝆆.𞥂", "to_unicode\(\'xn\-\-fax\-4c9a1676t\.xn\-\-6e6h\'\)\ \[data\/IdnaTest\.txt\:2613\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("fax⩷𝆆.𞥂", %p)}, "fax⩷𝆆.𞥂", "to_unicode\(\'fax\⩷𝆆\.\?\'\)\ \[data\/IdnaTest\.txt\:2614\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("FAX⩷𝆆.𞥂", %p)}, "fax⩷𝆆.𞥂", "to_unicode\(\'FAX\⩷𝆆\.\?\'\)\ \[data\/IdnaTest\.txt\:2615\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("Fax⩷𝆆.𞥂", %p)}, "fax⩷𝆆.𞥂", "to_unicode\(\'Fax\⩷𝆆\.\?\'\)\ \[data\/IdnaTest\.txt\:2616\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("ꡕ≠\x{105E}󮿱｡𐵧󠄫\x{FFA0}", %p)}, undef, "to_unicode\(\'ꡕ\≠\\u105E\?｡\?\󠄫\\uFFA0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2617\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡕ=\x{0338}\x{105E}󮿱｡𐵧󠄫\x{FFA0}", %p)}, undef, "to_unicode\(\'ꡕ\=\\u0338\\u105E\?｡\?\󠄫\\uFFA0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2618\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡕ≠\x{105E}󮿱。𐵧󠄫\x{1160}", %p)}, undef, "to_unicode\(\'ꡕ\≠\\u105E\?\。\?\󠄫\\u1160\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2619\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡕ=\x{0338}\x{105E}󮿱。𐵧󠄫\x{1160}", %p)}, undef, "to_unicode\(\'ꡕ\=\\u0338\\u105E\?\。\?\󠄫\\u1160\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2620\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("鱊。\x{200C}", %p)}, undef, "to_unicode\(\'鱊\。\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2621\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("鱊。\x{200C}", %p)}, undef, "to_unicode\(\'鱊\。\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2622\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--rt6a.", %p)}, "鱊.", "to_unicode\(\'xn\-\-rt6a\.\'\)\ \[data\/IdnaTest\.txt\:2623\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("鱊.", %p)}, "鱊.", "to_unicode\(\'鱊\.\'\)\ \[data\/IdnaTest\.txt\:2624\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("8𐹣．𑍨", %p)}, undef, "to_unicode\(\'8𐹣．𑍨\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2625\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("8𐹣.𑍨", %p)}, undef, "to_unicode\(\'8𐹣\.𑍨\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2626\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("⏹𐧀．𐫯", %p)}, undef, "to_unicode\(\'\⏹𐧀．𐫯\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2627\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("⏹𐧀.𐫯", %p)}, undef, "to_unicode\(\'\⏹𐧀\.𐫯\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2628\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤺\x{07CC}4．\x{200D}", %p)}, undef, "to_unicode\(\'\?\\u07CC4．\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2629\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤺\x{07CC}4．\x{200D}", %p)}, undef, "to_unicode\(\'\?\\u07CC4．\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2630\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤺\x{07CC}4.\x{200D}", %p)}, undef, "to_unicode\(\'\?\\u07CC4\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2631\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤺\x{07CC}4.\x{200D}", %p)}, undef, "to_unicode\(\'\?\\u07CC4\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2632\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("xn--4-0bd15808a.", %p)}, "𞤺\x{07CC}4.", "to_unicode\(\'xn\-\-4\-0bd15808a\.\'\)\ \[data\/IdnaTest\.txt\:2633\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤺\x{07CC}4.", %p)}, "𞤺\x{07CC}4.", "to_unicode\(\'\?\\u07CC4\.\'\)\ \[data\/IdnaTest\.txt\:2634\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("⒗\x{0981}\x{20EF}-.\x{08E2}•", %p)}, undef, "to_unicode\(\'⒗\\u0981\\u20EF\-\.\\u08E2\•\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2635\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("16.\x{0981}\x{20EF}-.\x{08E2}•", %p)}, undef, "to_unicode\(\'16\.\\u0981\\u20EF\-\.\\u08E2\•\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2636\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-｡䏛", %p)}, undef, "to_unicode\(\'\-｡䏛\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2637\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-。䏛", %p)}, undef, "to_unicode\(\'\-\。䏛\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2638\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}񒃠．\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\?．\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2639\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}񒃠．\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\?．\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2640\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}񒃠.\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\?\.\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2641\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}񒃠.\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\?\.\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2642\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈⓰󥣇｡𐹠\x{200D}򗷦Ⴕ", %p)}, undef, "to_unicode\(\'⒈⓰\?｡𐹠\\u200D\?Ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2643\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈⓰󥣇｡𐹠\x{200D}򗷦Ⴕ", %p)}, undef, "to_unicode\(\'⒈⓰\?｡𐹠\\u200D\?Ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2644\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.⓰󥣇。𐹠\x{200D}򗷦Ⴕ", %p)}, undef, "to_unicode\(\'1\.⓰\?\。𐹠\\u200D\?Ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2645\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.⓰󥣇。𐹠\x{200D}򗷦Ⴕ", %p)}, undef, "to_unicode\(\'1\.⓰\?\。𐹠\\u200D\?Ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2646\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.⓰󥣇。𐹠\x{200D}򗷦ⴕ", %p)}, undef, "to_unicode\(\'1\.⓰\?\。𐹠\\u200D\?ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2647\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.⓰󥣇。𐹠\x{200D}򗷦ⴕ", %p)}, undef, "to_unicode\(\'1\.⓰\?\。𐹠\\u200D\?ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2648\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈⓰󥣇｡𐹠\x{200D}򗷦ⴕ", %p)}, undef, "to_unicode\(\'⒈⓰\?｡𐹠\\u200D\?ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2649\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈⓰󥣇｡𐹠\x{200D}򗷦ⴕ", %p)}, undef, "to_unicode\(\'⒈⓰\?｡𐹠\\u200D\?ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2650\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞠊ᠮ-ß｡\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_unicode\(\'𞠊ᠮ\-ß｡\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2651\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞠊ᠮ-ß。\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_unicode\(\'𞠊ᠮ\-ß\。\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2652\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞠊ᠮ-SS。\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_unicode\(\'𞠊ᠮ\-SS\。\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2653\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞠊ᠮ-ss。\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_unicode\(\'𞠊ᠮ\-ss\。\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2654\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞠊ᠮ-Ss。\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_unicode\(\'𞠊ᠮ\-Ss\。\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2655\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞠊ᠮ-SS｡\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_unicode\(\'𞠊ᠮ\-SS｡\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2656\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞠊ᠮ-ss｡\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_unicode\(\'𞠊ᠮ\-ss｡\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2657\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞠊ᠮ-Ss｡\x{1CD0}効\x{0601}𷣭", %p)}, undef, "to_unicode\(\'𞠊ᠮ\-Ss｡\\u1CD0効\\u0601\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2658\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑇀.󠨱", %p)}, undef, "to_unicode\(\'𑇀\.\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2659\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("␒3\x{FB88}｡𝟘𐨿𐹆", %p)}, undef, "to_unicode\(\'\␒3\\uFB88｡𝟘𐨿\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2660\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("␒3\x{0688}。0𐨿𐹆", %p)}, undef, "to_unicode\(\'\␒3\\u0688\。0𐨿\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2661\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{076B}６\x{0A81}\x{08A6}。\x{1DE3}", %p)}, undef, "to_unicode\(\'\\u076B６\\u0A81\\u08A6\。\\u1DE3\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2662\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{076B}6\x{0A81}\x{08A6}。\x{1DE3}", %p)}, undef, "to_unicode\(\'\\u076B6\\u0A81\\u08A6\。\\u1DE3\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2663\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{0605}-𽤞Ⴂ。򅤶\x{200D}", %p)}, undef, "to_unicode\(\'\\u0605\-\?Ⴂ\。\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2664\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0605}-𽤞Ⴂ。򅤶\x{200D}", %p)}, undef, "to_unicode\(\'\\u0605\-\?Ⴂ\。\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2665\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0605}-𽤞ⴂ。򅤶\x{200D}", %p)}, undef, "to_unicode\(\'\\u0605\-\?ⴂ\。\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2666\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0605}-𽤞ⴂ。򅤶\x{200D}", %p)}, undef, "to_unicode\(\'\\u0605\-\?ⴂ\。\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2667\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⾆．ꡈ５≯ß", %p)}, undef, "to_unicode\(\'⾆．ꡈ５\≯ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2668\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⾆．ꡈ５>\x{0338}ß", %p)}, undef, "to_unicode\(\'⾆．ꡈ５\>\\u0338ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2669\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("舌.ꡈ5≯ß", %p)}, undef, "to_unicode\(\'舌\.ꡈ5\≯ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2670\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("舌.ꡈ5>\x{0338}ß", %p)}, undef, "to_unicode\(\'舌\.ꡈ5\>\\u0338ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2671\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("舌.ꡈ5>\x{0338}SS", %p)}, undef, "to_unicode\(\'舌\.ꡈ5\>\\u0338SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2672\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("舌.ꡈ5≯SS", %p)}, undef, "to_unicode\(\'舌\.ꡈ5\≯SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2673\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("舌.ꡈ5≯ss", %p)}, undef, "to_unicode\(\'舌\.ꡈ5\≯ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2674\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("舌.ꡈ5>\x{0338}ss", %p)}, undef, "to_unicode\(\'舌\.ꡈ5\>\\u0338ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2675\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("舌.ꡈ5>\x{0338}Ss", %p)}, undef, "to_unicode\(\'舌\.ꡈ5\>\\u0338Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2676\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("舌.ꡈ5≯Ss", %p)}, undef, "to_unicode\(\'舌\.ꡈ5\≯Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2677\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⾆．ꡈ５>\x{0338}SS", %p)}, undef, "to_unicode\(\'⾆．ꡈ５\>\\u0338SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2678\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⾆．ꡈ５≯SS", %p)}, undef, "to_unicode\(\'⾆．ꡈ５\≯SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2679\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⾆．ꡈ５≯ss", %p)}, undef, "to_unicode\(\'⾆．ꡈ５\≯ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2680\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⾆．ꡈ５>\x{0338}ss", %p)}, undef, "to_unicode\(\'⾆．ꡈ５\>\\u0338ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2681\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⾆．ꡈ５>\x{0338}Ss", %p)}, undef, "to_unicode\(\'⾆．ꡈ５\>\\u0338Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2682\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⾆．ꡈ５≯Ss", %p)}, undef, "to_unicode\(\'⾆．ꡈ５\≯Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2683\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0ACD}8\x{200D}．򾂈\x{075C}", %p)}, undef, "to_unicode\(\'\\u0ACD8\\u200D．\?\\u075C\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2684\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0ACD}8\x{200D}．򾂈\x{075C}", %p)}, undef, "to_unicode\(\'\\u0ACD8\\u200D．\?\\u075C\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2685\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0ACD}8\x{200D}.򾂈\x{075C}", %p)}, undef, "to_unicode\(\'\\u0ACD8\\u200D\.\?\\u075C\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2686\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0ACD}8\x{200D}.򾂈\x{075C}", %p)}, undef, "to_unicode\(\'\\u0ACD8\\u200D\.\?\\u075C\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2687\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򸷆\x{0A70}≮򹓙．񞎧⁷󠯙\x{06B6}", %p)}, undef, "to_unicode\(\'\?\\u0A70\≮\?．\?⁷\?\\u06B6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2688\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򸷆\x{0A70}<\x{0338}򹓙．񞎧⁷󠯙\x{06B6}", %p)}, undef, "to_unicode\(\'\?\\u0A70\<\\u0338\?．\?⁷\?\\u06B6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2689\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򸷆\x{0A70}≮򹓙.񞎧7󠯙\x{06B6}", %p)}, undef, "to_unicode\(\'\?\\u0A70\≮\?\.\?7\?\\u06B6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2690\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򸷆\x{0A70}<\x{0338}򹓙.񞎧7󠯙\x{06B6}", %p)}, undef, "to_unicode\(\'\?\\u0A70\<\\u0338\?\.\?7\?\\u06B6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2691\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤪.ς", %p)}, "𞤪.ς", "to_unicode\(\'\?\.ς\'\)\ \[data\/IdnaTest\.txt\:2692\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤪.ς", %p)}, "𞤪.ς", "to_unicode\(\'\?\.ς\'\)\ \[data\/IdnaTest\.txt\:2693\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤪.Σ", %p)}, "𞤪.σ", "to_unicode\(\'\?\.Σ\'\)\ \[data\/IdnaTest\.txt\:2694\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤪.σ", %p)}, "𞤪.σ", "to_unicode\(\'\?\.σ\'\)\ \[data\/IdnaTest\.txt\:2695\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("xn--ie6h.xn--4xa", %p)}, "𞤪.σ", "to_unicode\(\'xn\-\-ie6h\.xn\-\-4xa\'\)\ \[data\/IdnaTest\.txt\:2696\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("xn--ie6h.xn--3xa", %p)}, "𞤪.ς", "to_unicode\(\'xn\-\-ie6h\.xn\-\-3xa\'\)\ \[data\/IdnaTest\.txt\:2697\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200C}Ⴚ｡ς", %p)}, undef, "to_unicode\(\'\\u200CႺ｡ς\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2698\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴚ｡ς", %p)}, undef, "to_unicode\(\'\\u200CႺ｡ς\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2699\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴚ。ς", %p)}, undef, "to_unicode\(\'\\u200CႺ\。ς\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2700\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴚ。ς", %p)}, undef, "to_unicode\(\'\\u200CႺ\。ς\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2701\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200C}ⴚ。ς", %p)}, undef, "to_unicode\(\'\\u200Cⴚ\。ς\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2702\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200C}ⴚ。ς", %p)}, undef, "to_unicode\(\'\\u200Cⴚ\。ς\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2703\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200C}Ⴚ。Σ", %p)}, undef, "to_unicode\(\'\\u200CႺ\。Σ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2704\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴚ。Σ", %p)}, undef, "to_unicode\(\'\\u200CႺ\。Σ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2705\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200C}ⴚ。σ", %p)}, undef, "to_unicode\(\'\\u200Cⴚ\。σ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2706\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200C}ⴚ。σ", %p)}, undef, "to_unicode\(\'\\u200Cⴚ\。σ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2707\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("xn--ilj.xn--4xa", %p)}, "ⴚ.σ", "to_unicode\(\'xn\-\-ilj\.xn\-\-4xa\'\)\ \[data\/IdnaTest\.txt\:2708\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴚ.σ", %p)}, "ⴚ.σ", "to_unicode\(\'ⴚ\.σ\'\)\ \[data\/IdnaTest\.txt\:2709\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ⴚ.Σ", %p)}, undef, "to_unicode\(\'Ⴚ\.Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2710\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴚ.ς", %p)}, "ⴚ.ς", "to_unicode\(\'ⴚ\.ς\'\)\ \[data\/IdnaTest\.txt\:2711\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴚ.ς", %p)}, "ⴚ.ς", "to_unicode\(\'ⴚ\.ς\'\)\ \[data\/IdnaTest\.txt\:2712\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ⴚ.ς", %p)}, undef, "to_unicode\(\'Ⴚ\.ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2713\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("xn--ilj.xn--3xa", %p)}, "ⴚ.ς", "to_unicode\(\'xn\-\-ilj\.xn\-\-3xa\'\)\ \[data\/IdnaTest\.txt\:2714\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ⴚ.σ", %p)}, undef, "to_unicode\(\'Ⴚ\.σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2715\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200C}ⴚ｡ς", %p)}, undef, "to_unicode\(\'\\u200Cⴚ｡ς\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2716\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200C}ⴚ｡ς", %p)}, undef, "to_unicode\(\'\\u200Cⴚ｡ς\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2717\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200C}Ⴚ｡Σ", %p)}, undef, "to_unicode\(\'\\u200CႺ｡Σ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2718\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴚ｡Σ", %p)}, undef, "to_unicode\(\'\\u200CႺ｡Σ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2719\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200C}ⴚ｡σ", %p)}, undef, "to_unicode\(\'\\u200Cⴚ｡σ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2720\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200C}ⴚ｡σ", %p)}, undef, "to_unicode\(\'\\u200Cⴚ｡σ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2721\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤃．𐹦", %p)}, undef, "to_unicode\(\'\?．𐹦\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2722\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤃.𐹦", %p)}, undef, "to_unicode\(\'\?\.𐹦\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2723\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}⾕。\x{200C}\x{0310}\x{A953}ꡎ", %p)}, undef, "to_unicode\(\'\\u200D⾕\。\\u200C\\u0310\\uA953ꡎ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2724\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}⾕。\x{200C}\x{0310}\x{A953}ꡎ", %p)}, undef, "to_unicode\(\'\\u200D⾕\。\\u200C\\u0310\\uA953ꡎ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2725\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}⾕。\x{200C}\x{A953}\x{0310}ꡎ", %p)}, undef, "to_unicode\(\'\\u200D⾕\。\\u200C\\uA953\\u0310ꡎ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2726\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}⾕。\x{200C}\x{A953}\x{0310}ꡎ", %p)}, undef, "to_unicode\(\'\\u200D⾕\。\\u200C\\uA953\\u0310ꡎ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2727\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}谷。\x{200C}\x{A953}\x{0310}ꡎ", %p)}, undef, "to_unicode\(\'\\u200D谷\。\\u200C\\uA953\\u0310ꡎ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2728\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}谷。\x{200C}\x{A953}\x{0310}ꡎ", %p)}, undef, "to_unicode\(\'\\u200D谷\。\\u200C\\uA953\\u0310ꡎ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2729\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{06AA}-뉔．𞤐\x{200C}", %p)}, undef, "to_unicode\(\'\\u06AA\-뉔．\?\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2730\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{06AA}-뉔．𞤐\x{200C}", %p)}, undef, "to_unicode\(\'\\u06AA\-뉔．\?\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2731\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{06AA}-뉔．𞤐\x{200C}", %p)}, undef, "to_unicode\(\'\\u06AA\-뉔．\?\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2732\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{06AA}-뉔．𞤐\x{200C}", %p)}, undef, "to_unicode\(\'\\u06AA\-뉔．\?\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2733\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{06AA}-뉔.𞤐\x{200C}", %p)}, undef, "to_unicode\(\'\\u06AA\-뉔\.\?\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2734\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{06AA}-뉔.𞤐\x{200C}", %p)}, undef, "to_unicode\(\'\\u06AA\-뉔\.\?\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2735\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{06AA}-뉔.𞤐\x{200C}", %p)}, undef, "to_unicode\(\'\\u06AA\-뉔\.\?\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2736\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{06AA}-뉔.𞤐\x{200C}", %p)}, undef, "to_unicode\(\'\\u06AA\-뉔\.\?\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2737\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("񔲵５ᦛς.\x{A8C4}\x{077B}\x{1CD2}\x{0738}", %p)}, undef, "to_unicode\(\'\?５ᦛς\.\\uA8C4\\u077B\\u1CD2\\u0738\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2738\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񔲵５ᦛς.\x{A8C4}\x{077B}\x{0738}\x{1CD2}", %p)}, undef, "to_unicode\(\'\?５ᦛς\.\\uA8C4\\u077B\\u0738\\u1CD2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2739\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񔲵5ᦛς.\x{A8C4}\x{077B}\x{0738}\x{1CD2}", %p)}, undef, "to_unicode\(\'\?5ᦛς\.\\uA8C4\\u077B\\u0738\\u1CD2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2740\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񔲵5ᦛΣ.\x{A8C4}\x{077B}\x{0738}\x{1CD2}", %p)}, undef, "to_unicode\(\'\?5ᦛΣ\.\\uA8C4\\u077B\\u0738\\u1CD2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2741\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񔲵5ᦛσ.\x{A8C4}\x{077B}\x{0738}\x{1CD2}", %p)}, undef, "to_unicode\(\'\?5ᦛσ\.\\uA8C4\\u077B\\u0738\\u1CD2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2742\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񔲵５ᦛΣ.\x{A8C4}\x{077B}\x{0738}\x{1CD2}", %p)}, undef, "to_unicode\(\'\?５ᦛΣ\.\\uA8C4\\u077B\\u0738\\u1CD2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2743\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񔲵５ᦛσ.\x{A8C4}\x{077B}\x{0738}\x{1CD2}", %p)}, undef, "to_unicode\(\'\?５ᦛσ\.\\uA8C4\\u077B\\u0738\\u1CD2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2744\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񔲵５ᦛΣ.\x{A8C4}\x{077B}\x{1CD2}\x{0738}", %p)}, undef, "to_unicode\(\'\?５ᦛΣ\.\\uA8C4\\u077B\\u1CD2\\u0738\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2745\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񔲵５ᦛσ.\x{A8C4}\x{077B}\x{1CD2}\x{0738}", %p)}, undef, "to_unicode\(\'\?５ᦛσ\.\\uA8C4\\u077B\\u1CD2\\u0738\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2746\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("淽。ᠾ", %p)}, "淽.ᠾ", "to_unicode\(\'淽\。ᠾ\'\)\ \[data\/IdnaTest\.txt\:2747\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--34w.xn--x7e", %p)}, "淽.ᠾ", "to_unicode\(\'xn\-\-34w\.xn\-\-x7e\'\)\ \[data\/IdnaTest\.txt\:2748\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("淽.ᠾ", %p)}, "淽.ᠾ", "to_unicode\(\'淽\.ᠾ\'\)\ \[data\/IdnaTest\.txt\:2749\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐹴𑘷。-", %p)}, undef, "to_unicode\(\'𐹴𑘷\。\-\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2750\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("򬨩Ⴓ❓｡𑄨", %p)}, undef, "to_unicode\(\'\?Ⴓ\❓｡𑄨\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2751\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򬨩Ⴓ❓。𑄨", %p)}, undef, "to_unicode\(\'\?Ⴓ\❓\。𑄨\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2752\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򬨩ⴓ❓。𑄨", %p)}, undef, "to_unicode\(\'\?ⴓ\❓\。𑄨\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2753\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򬨩ⴓ❓｡𑄨", %p)}, undef, "to_unicode\(\'\?ⴓ\❓｡𑄨\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2754\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𐹡𞤌Ⴇ｡ßႣ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?Ⴇ｡ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2755\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𐹡𞤌Ⴇ｡ßႣ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?Ⴇ｡ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2756\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𐹡𞤌Ⴇ。ßႣ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?Ⴇ\。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2757\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𐹡𞤌Ⴇ。ßႣ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?Ⴇ\。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2758\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{200C}𐹡𞤌ⴇ。ßⴃ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?ⴇ\。ßⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2759\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{200C}𐹡𞤌ⴇ。ßⴃ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?ⴇ\。ßⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2760\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200C}𐹡𞤌Ⴇ。SSႣ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?Ⴇ\。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2761\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𐹡𞤌Ⴇ。SSႣ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?Ⴇ\。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2762\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{200C}𐹡𞤌ⴇ。ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?ⴇ\。ssⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2763\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{200C}𐹡𞤌ⴇ。ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?ⴇ\。ssⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2764\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200C}𐹡𞤌Ⴇ。Ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?Ⴇ\。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2765\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𐹡𞤌Ⴇ。Ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?Ⴇ\。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2766\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{200C}𐹡𞤌ⴇ｡ßⴃ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?ⴇ｡ßⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2767\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{200C}𐹡𞤌ⴇ｡ßⴃ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?ⴇ｡ßⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2768\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200C}𐹡𞤌Ⴇ｡SSႣ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?Ⴇ｡SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2769\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𐹡𞤌Ⴇ｡SSႣ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?Ⴇ｡SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2770\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{200C}𐹡𞤌ⴇ｡ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?ⴇ｡ssⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2771\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{200C}𐹡𞤌ⴇ｡ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?ⴇ｡ssⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2772\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200C}𐹡𞤌Ⴇ｡Ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?Ⴇ｡Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2773\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𐹡𞤌Ⴇ｡Ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C𐹡\?Ⴇ｡Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2774\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{17FF}｡𞬳", %p)}, undef, "to_unicode\(\'\\u17FF｡\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2775\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{17FF}。𞬳", %p)}, undef, "to_unicode\(\'\\u17FF\。\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2776\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{0652}\x{200D}｡\x{0CCD}𑚳", %p)}, undef, "to_unicode\(\'\\u0652\\u200D｡\\u0CCD𑚳\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2777\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{0652}\x{200D}｡\x{0CCD}𑚳", %p)}, undef, "to_unicode\(\'\\u0652\\u200D｡\\u0CCD𑚳\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2778\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{0652}\x{200D}。\x{0CCD}𑚳", %p)}, undef, "to_unicode\(\'\\u0652\\u200D\。\\u0CCD𑚳\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2779\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{0652}\x{200D}。\x{0CCD}𑚳", %p)}, undef, "to_unicode\(\'\\u0652\\u200D\。\\u0CCD𑚳\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2780\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("-≠ᠻ．\x{076D}𞥃≮󟷺", %p)}, undef, "to_unicode\(\'\-\≠ᠻ．\\u076D\?\≮\?\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2781\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-=\x{0338}ᠻ．\x{076D}𞥃<\x{0338}󟷺", %p)}, undef, "to_unicode\(\'\-\=\\u0338ᠻ．\\u076D\?\<\\u0338\?\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2782\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-≠ᠻ.\x{076D}𞥃≮󟷺", %p)}, undef, "to_unicode\(\'\-\≠ᠻ\.\\u076D\?\≮\?\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2783\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-=\x{0338}ᠻ.\x{076D}𞥃<\x{0338}󟷺", %p)}, undef, "to_unicode\(\'\-\=\\u0338ᠻ\.\\u076D\?\<\\u0338\?\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2784\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠰆≯\x{07B5}𐻪．򊥕≮𑁆\x{084C}", %p)}, undef, "to_unicode\(\'\?\≯\\u07B5\?．\?\≮𑁆\\u084C\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2785\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠰆>\x{0338}\x{07B5}𐻪．򊥕<\x{0338}𑁆\x{084C}", %p)}, undef, "to_unicode\(\'\?\>\\u0338\\u07B5\?．\?\<\\u0338𑁆\\u084C\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2786\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠰆≯\x{07B5}𐻪.򊥕≮𑁆\x{084C}", %p)}, undef, "to_unicode\(\'\?\≯\\u07B5\?\.\?\≮𑁆\\u084C\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2787\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠰆>\x{0338}\x{07B5}𐻪.򊥕<\x{0338}𑁆\x{084C}", %p)}, undef, "to_unicode\(\'\?\>\\u0338\\u07B5\?\.\?\<\\u0338𑁆\\u084C\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2788\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠󦋂.\x{0600}\x{0BCD}-\x{06B9}", %p)}, undef, "to_unicode\(\'\≠\?\.\\u0600\\u0BCD\-\\u06B9\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2789\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}󦋂.\x{0600}\x{0BCD}-\x{06B9}", %p)}, undef, "to_unicode\(\'\=\\u0338\?\.\\u0600\\u0BCD\-\\u06B9\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2790\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{17DD}󠁣≠｡𐹼𐋤", %p)}, undef, "to_unicode\(\'\\u17DD\?\≠｡𐹼𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2791\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{17DD}󠁣=\x{0338}｡𐹼𐋤", %p)}, undef, "to_unicode\(\'\\u17DD\?\=\\u0338｡𐹼𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2792\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{17DD}󠁣≠。𐹼𐋤", %p)}, undef, "to_unicode\(\'\\u17DD\?\≠\。𐹼𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2793\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{17DD}󠁣=\x{0338}。𐹼𐋤", %p)}, undef, "to_unicode\(\'\\u17DD\?\=\\u0338\。𐹼𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2794\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß𰀻񆬗｡𝩨🕮ß", %p)}, undef, "to_unicode\(\'ß\?\?｡𝩨🕮ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2795\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß𰀻񆬗。𝩨🕮ß", %p)}, undef, "to_unicode\(\'ß\?\?\。𝩨🕮ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2796\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("SS𰀻񆬗。𝩨🕮SS", %p)}, undef, "to_unicode\(\'SS\?\?\。𝩨🕮SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2797\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ss𰀻񆬗。𝩨🕮ss", %p)}, undef, "to_unicode\(\'ss\?\?\。𝩨🕮ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2798\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ss𰀻񆬗。𝩨🕮Ss", %p)}, undef, "to_unicode\(\'Ss\?\?\。𝩨🕮Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2799\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("SS𰀻񆬗｡𝩨🕮SS", %p)}, undef, "to_unicode\(\'SS\?\?｡𝩨🕮SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2800\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ss𰀻񆬗｡𝩨🕮ss", %p)}, undef, "to_unicode\(\'ss\?\?｡𝩨🕮ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2801\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ss𰀻񆬗｡𝩨🕮Ss", %p)}, undef, "to_unicode\(\'Ss\?\?｡𝩨🕮Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2802\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u200D\。\\u200C\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2803\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u200D\。\\u200C\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2804\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0483}𐭞\x{200D}.\x{17B9}𞯌򟩚", %p)}, undef, "to_unicode\(\'\\u0483𐭞\\u200D\.\\u17B9\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2805\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0483}𐭞\x{200D}.\x{17B9}𞯌򟩚", %p)}, undef, "to_unicode\(\'\\u0483𐭞\\u200D\.\\u17B9\?\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2806\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𐠨\x{200C}临。ꡢ򄷞ⶏ𐹣", %p)}, undef, "to_unicode\(\'\\u200C𐠨\\u200C临\。ꡢ\?ⶏ𐹣\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2807\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𐠨\x{200C}临。ꡢ򄷞ⶏ𐹣", %p)}, undef, "to_unicode\(\'\\u200C𐠨\\u200C临\。ꡢ\?ⶏ𐹣\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2808\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠑘．󠄮", %p)}, undef, "to_unicode\(\'\?．\󠄮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2809\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠑘.󠄮", %p)}, undef, "to_unicode\(\'\?\.\󠄮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2810\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫄\x{0D4D}．\x{AAF6}", %p)}, undef, "to_unicode\(\'𐫄\\u0D4D．\\uAAF6\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2811\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫄\x{0D4D}.\x{AAF6}", %p)}, undef, "to_unicode\(\'𐫄\\u0D4D\.\\uAAF6\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2812\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{A9B7}󝵙멹。⒛󠨇", %p)}, undef, "to_unicode\(\'\\uA9B7\?멹\。⒛\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2813\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9B7}󝵙멹。⒛󠨇", %p)}, undef, "to_unicode\(\'\\uA9B7\?멹\。⒛\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2814\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9B7}󝵙멹。20.󠨇", %p)}, undef, "to_unicode\(\'\\uA9B7\?멹\。20\.\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2815\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9B7}󝵙멹。20.󠨇", %p)}, undef, "to_unicode\(\'\\uA9B7\?멹\。20\.\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2816\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴅ󲬹릖󠶚.\x{0777}𐹳⒊", %p)}, undef, "to_unicode\(\'Ⴅ\?릖\?\.\\u0777𐹳⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2817\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴅ󲬹릖󠶚.\x{0777}𐹳⒊", %p)}, undef, "to_unicode\(\'Ⴅ\?릖\?\.\\u0777𐹳⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2818\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴅ󲬹릖󠶚.\x{0777}𐹳3.", %p)}, undef, "to_unicode\(\'Ⴅ\?릖\?\.\\u0777𐹳3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2819\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴅ󲬹릖󠶚.\x{0777}𐹳3.", %p)}, undef, "to_unicode\(\'Ⴅ\?릖\?\.\\u0777𐹳3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2820\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴅ󲬹릖󠶚.\x{0777}𐹳3.", %p)}, undef, "to_unicode\(\'ⴅ\?릖\?\.\\u0777𐹳3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2821\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴅ󲬹릖󠶚.\x{0777}𐹳3.", %p)}, undef, "to_unicode\(\'ⴅ\?릖\?\.\\u0777𐹳3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2822\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴅ󲬹릖󠶚.\x{0777}𐹳⒊", %p)}, undef, "to_unicode\(\'ⴅ\?릖\?\.\\u0777𐹳⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2823\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴅ󲬹릖󠶚.\x{0777}𐹳⒊", %p)}, undef, "to_unicode\(\'ⴅ\?릖\?\.\\u0777𐹳⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2824\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}｡︒", %p)}, undef, "to_unicode\(\'\\u200C｡︒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2825\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}｡︒", %p)}, undef, "to_unicode\(\'\\u200C｡︒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2826\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}。。", %p)}, undef, "to_unicode\(\'\\u200C\。\。\'\)\ throws\ error\ C1\ A4_2\ \[data\/IdnaTest\.txt\:2827\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}。。", %p)}, undef, "to_unicode\(\'\\u200C\。\。\'\)\ throws\ error\ C1\ A4_2\ \[data\/IdnaTest\.txt\:2828\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯\x{076D}．₄", %p)}, undef, "to_unicode\(\'\≯\\u076D．₄\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2829\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}\x{076D}．₄", %p)}, undef, "to_unicode\(\'\>\\u0338\\u076D．₄\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2830\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯\x{076D}.4", %p)}, undef, "to_unicode\(\'\≯\\u076D\.4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2831\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}\x{076D}.4", %p)}, undef, "to_unicode\(\'\>\\u0338\\u076D\.4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2832\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡲ-𝟹.ß-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡲ\-𝟹\.ß\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2833\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡲ-𝟹.ß-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡲ\-𝟹\.ß\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2834\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡲ-3.ß-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡲ\-3\.ß\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2835\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡲ-3.ß-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡲ\-3\.ß\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2836\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡲ-3.SS-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡲ\-3\.SS\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2837\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡲ-3.SS-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡲ\-3\.SS\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2838\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡲ-3.ss-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡲ\-3\.ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2839\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡲ-3.ss-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡲ\-3\.ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2840\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡲ-3.Ss-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡲ\-3\.Ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2841\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡲ-3.Ss-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡲ\-3\.Ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2842\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡲ-𝟹.SS-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡲ\-𝟹\.SS\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2843\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡲ-𝟹.SS-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡲ\-𝟹\.SS\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2844\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡲ-𝟹.ss-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡲ\-𝟹\.ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2845\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡲ-𝟹.ss-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡲ\-𝟹\.ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2846\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡲ-𝟹.Ss-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡲ\-𝟹\.Ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2847\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡲ-𝟹.Ss-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡲ\-𝟹\.Ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2848\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FD08}𝟦\x{0647}󎊯｡Ӏ", %p)}, undef, "to_unicode\(\'\\uFD08𝟦\\u0647\?｡Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2849\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0636}\x{064A}4\x{0647}󎊯。Ӏ", %p)}, undef, "to_unicode\(\'\\u0636\\u064A4\\u0647\?\。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2850\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0636}\x{064A}4\x{0647}󎊯。ӏ", %p)}, undef, "to_unicode\(\'\\u0636\\u064A4\\u0647\?\。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2851\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FD08}𝟦\x{0647}󎊯｡ӏ", %p)}, undef, "to_unicode\(\'\\uFD08𝟦\\u0647\?｡ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2852\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-.\x{0602}\x{0622}𑆾🐹", %p)}, undef, "to_unicode\(\'\-\.\\u0602\\u0622𑆾🐹\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2853\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-.\x{0602}\x{0627}\x{0653}𑆾🐹", %p)}, undef, "to_unicode\(\'\-\.\\u0602\\u0627\\u0653𑆾🐹\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2854\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󙶜ᢘ。\x{1A7F}⺢", %p)}, undef, "to_unicode\(\'\?ᢘ\。\\u1A7F⺢\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2855\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠ႷᠤႫ｡\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_unicode\(\'\≠ႷᠤႫ｡\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2856\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}ႷᠤႫ｡\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_unicode\(\'\=\\u0338ႷᠤႫ｡\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2857\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠ႷᠤႫ。\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_unicode\(\'\≠ႷᠤႫ\。\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2858\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}ႷᠤႫ。\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_unicode\(\'\=\\u0338ႷᠤႫ\。\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2859\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}ⴗᠤⴋ。\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_unicode\(\'\=\\u0338ⴗᠤⴋ\。\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2860\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠ⴗᠤⴋ。\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_unicode\(\'\≠ⴗᠤⴋ\。\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2861\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠Ⴗᠤⴋ。\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_unicode\(\'\≠Ⴗᠤⴋ\。\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2862\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}Ⴗᠤⴋ。\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_unicode\(\'\=\\u0338Ⴗᠤⴋ\。\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2863\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}ⴗᠤⴋ｡\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_unicode\(\'\=\\u0338ⴗᠤⴋ｡\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2864\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠ⴗᠤⴋ｡\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_unicode\(\'\≠ⴗᠤⴋ｡\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2865\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠Ⴗᠤⴋ｡\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_unicode\(\'\≠Ⴗᠤⴋ｡\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2866\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}Ⴗᠤⴋ｡\x{D907}\x{034C}\x{0633}觴", %p)}, undef, "to_unicode\(\'\=\\u0338Ⴗᠤⴋ｡\\uD907\\u034C\\u0633觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2867\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0667}.𐥨", %p)}, undef, "to_unicode\(\'\\u0667\.\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2868\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9C0}𝟯｡\x{200D}񼑥𐹪\x{1BF3}", %p)}, undef, "to_unicode\(\'\\uA9C0𝟯｡\\u200D\?𐹪\\u1BF3\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2869\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9C0}𝟯｡\x{200D}񼑥𐹪\x{1BF3}", %p)}, undef, "to_unicode\(\'\\uA9C0𝟯｡\\u200D\?𐹪\\u1BF3\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2870\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9C0}3。\x{200D}񼑥𐹪\x{1BF3}", %p)}, undef, "to_unicode\(\'\\uA9C03\。\\u200D\?𐹪\\u1BF3\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2871\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9C0}3。\x{200D}񼑥𐹪\x{1BF3}", %p)}, undef, "to_unicode\(\'\\uA9C03\。\\u200D\?𐹪\\u1BF3\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2872\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򣕄4񠖽.≯\x{0664}𑀾󠸌", %p)}, undef, "to_unicode\(\'\?4\?\.\≯\\u0664𑀾\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2873\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򣕄4񠖽.>\x{0338}\x{0664}𑀾󠸌", %p)}, undef, "to_unicode\(\'\?4\?\.\>\\u0338\\u0664𑀾\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2874\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򗆧𝟯。⒈\x{1A76}𝟚򠘌", %p)}, undef, "to_unicode\(\'\?𝟯\。⒈\\u1A76𝟚\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2875\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򗆧3。1.\x{1A76}2򠘌", %p)}, undef, "to_unicode\(\'\?3\。1\.\\u1A762\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2876\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}₅⒈。≯𝟴\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D₅⒈\。\≯𝟴\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2877\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}₅⒈。≯𝟴\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D₅⒈\。\≯𝟴\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2878\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}₅⒈。>\x{0338}𝟴\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D₅⒈\。\>\\u0338𝟴\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2879\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}₅⒈。>\x{0338}𝟴\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D₅⒈\。\>\\u0338𝟴\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2880\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}51.。≯8\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D51\.\。\≯8\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A4_2\ \[data\/IdnaTest\.txt\:2881\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}51.。≯8\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D51\.\。\≯8\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A4_2\ \[data\/IdnaTest\.txt\:2882\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}51.。>\x{0338}8\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D51\.\。\>\\u03388\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A4_2\ \[data\/IdnaTest\.txt\:2883\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}51.。>\x{0338}8\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D51\.\。\>\\u03388\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A4_2\ \[data\/IdnaTest\.txt\:2884\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡰ\x{0697}\x{1086}．򪘙\x{072F}≠\x{200C}", %p)}, undef, "to_unicode\(\'ꡰ\\u0697\\u1086．\?\\u072F\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2885\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡰ\x{0697}\x{1086}．򪘙\x{072F}≠\x{200C}", %p)}, undef, "to_unicode\(\'ꡰ\\u0697\\u1086．\?\\u072F\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2886\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡰ\x{0697}\x{1086}．򪘙\x{072F}=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'ꡰ\\u0697\\u1086．\?\\u072F\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2887\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡰ\x{0697}\x{1086}．򪘙\x{072F}=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'ꡰ\\u0697\\u1086．\?\\u072F\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2888\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡰ\x{0697}\x{1086}.򪘙\x{072F}≠\x{200C}", %p)}, undef, "to_unicode\(\'ꡰ\\u0697\\u1086\.\?\\u072F\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2889\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡰ\x{0697}\x{1086}.򪘙\x{072F}≠\x{200C}", %p)}, undef, "to_unicode\(\'ꡰ\\u0697\\u1086\.\?\\u072F\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2890\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡰ\x{0697}\x{1086}.򪘙\x{072F}=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'ꡰ\\u0697\\u1086\.\?\\u072F\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2891\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡰ\x{0697}\x{1086}.򪘙\x{072F}=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'ꡰ\\u0697\\u1086\.\?\\u072F\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2892\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑄱｡򪌿𐹵", %p)}, undef, "to_unicode\(\'𑄱｡\?𐹵\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2893\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑄱。򪌿𐹵", %p)}, undef, "to_unicode\(\'𑄱\。\?𐹵\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2894\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟥\x{0600}。\x{073D}", %p)}, undef, "to_unicode\(\'𝟥\\u0600\。\\u073D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2895\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("3\x{0600}。\x{073D}", %p)}, undef, "to_unicode\(\'3\\u0600\。\\u073D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2896\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0637}𐹣\x{0666}.\x{076D}긷", %p)}, undef, "to_unicode\(\'\\u0637𐹣\\u0666\.\\u076D긷\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2897\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0637}𐹣\x{0666}.\x{076D}긷", %p)}, undef, "to_unicode\(\'\\u0637𐹣\\u0666\.\\u076D긷\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2898\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("︒Ↄ\x{2DE7}򾀃．Ⴗ𐣞", %p)}, undef, "to_unicode\(\'︒Ↄ\\u2DE7\?．Ⴗ\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2899\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("。Ↄ\x{2DE7}򾀃.Ⴗ𐣞", %p)}, undef, "to_unicode\(\'\。Ↄ\\u2DE7\?\.Ⴗ\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2900\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("。ↄ\x{2DE7}򾀃.ⴗ𐣞", %p)}, undef, "to_unicode\(\'\。ↄ\\u2DE7\?\.ⴗ\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2901\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("︒ↄ\x{2DE7}򾀃．ⴗ𐣞", %p)}, undef, "to_unicode\(\'︒ↄ\\u2DE7\?．ⴗ\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2902\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0600}.\x{05B1}", %p)}, undef, "to_unicode\(\'\\u0600\.\\u05B1\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2903\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς≯｡𐹽", %p)}, undef, "to_unicode\(\'ς\≯｡𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2904\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς>\x{0338}｡𐹽", %p)}, undef, "to_unicode\(\'ς\>\\u0338｡𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2905\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς≯。𐹽", %p)}, undef, "to_unicode\(\'ς\≯\。𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2906\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς>\x{0338}。𐹽", %p)}, undef, "to_unicode\(\'ς\>\\u0338\。𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2907\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ>\x{0338}。𐹽", %p)}, undef, "to_unicode\(\'Σ\>\\u0338\。𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2908\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ≯。𐹽", %p)}, undef, "to_unicode\(\'Σ\≯\。𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2909\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ≯。𐹽", %p)}, undef, "to_unicode\(\'σ\≯\。𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2910\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ>\x{0338}。𐹽", %p)}, undef, "to_unicode\(\'σ\>\\u0338\。𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2911\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ>\x{0338}｡𐹽", %p)}, undef, "to_unicode\(\'Σ\>\\u0338｡𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2912\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ≯｡𐹽", %p)}, undef, "to_unicode\(\'Σ\≯｡𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2913\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ≯｡𐹽", %p)}, undef, "to_unicode\(\'σ\≯｡𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2914\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ>\x{0338}｡𐹽", %p)}, undef, "to_unicode\(\'σ\>\\u0338｡𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2915\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{17D2}\x{200D}\x{075F}。𐹶", %p)}, undef, "to_unicode\(\'\\u17D2\\u200D\\u075F\。𐹶\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2916\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𾷂\x{0A42}Ⴊ񂂟.≮", %p)}, undef, "to_unicode\(\'\?\\u0A42Ⴊ\?\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2917\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𾷂\x{0A42}Ⴊ񂂟.<\x{0338}", %p)}, undef, "to_unicode\(\'\?\\u0A42Ⴊ\?\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2918\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𾷂\x{0A42}ⴊ񂂟.<\x{0338}", %p)}, undef, "to_unicode\(\'\?\\u0A42ⴊ\?\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2919\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𾷂\x{0A42}ⴊ񂂟.≮", %p)}, undef, "to_unicode\(\'\?\\u0A42ⴊ\?\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2920\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("ꡠ．۲", %p)}, "ꡠ.۲", "to_unicode\(\'ꡠ．۲\'\)\ \[data\/IdnaTest\.txt\:2921\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("ꡠ.۲", %p)}, "ꡠ.۲", "to_unicode\(\'ꡠ\.۲\'\)\ \[data\/IdnaTest\.txt\:2922\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("xn--5c9a.xn--fmb", %p)}, "ꡠ.۲", "to_unicode\(\'xn\-\-5c9a\.xn\-\-fmb\'\)\ \[data\/IdnaTest\.txt\:2923\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𐹣񄷄｡ꡬ🄄", %p)}, undef, "to_unicode\(\'𐹣\?｡ꡬ🄄\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2924\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹣񄷄。ꡬ3,", %p)}, undef, "to_unicode\(\'𐹣\?\。ꡬ3\,\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2925\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{0C4D}𞾀𑲓｡\x{200D}\x{0D4D}", %p)}, undef, "to_unicode\(\'\-\\u0C4D\?\?｡\\u200D\\u0D4D\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2926\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{0C4D}𞾀𑲓｡\x{200D}\x{0D4D}", %p)}, undef, "to_unicode\(\'\-\\u0C4D\?\?｡\\u200D\\u0D4D\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2927\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{0C4D}𞾀𑲓。\x{200D}\x{0D4D}", %p)}, undef, "to_unicode\(\'\-\\u0C4D\?\?\。\\u200D\\u0D4D\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2928\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{0C4D}𞾀𑲓。\x{200D}\x{0D4D}", %p)}, undef, "to_unicode\(\'\-\\u0C4D\?\?\。\\u200D\\u0D4D\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2929\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A67D}\x{200C}霣🄆｡\x{200C}𑁂\x{1B01}", %p)}, undef, "to_unicode\(\'\\uA67D\\u200C霣🄆｡\\u200C𑁂\\u1B01\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2930\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A67D}\x{200C}霣🄆｡\x{200C}𑁂\x{1B01}", %p)}, undef, "to_unicode\(\'\\uA67D\\u200C霣🄆｡\\u200C𑁂\\u1B01\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2931\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A67D}\x{200C}霣🄆｡\x{200C}𑁂\x{1B01}", %p)}, undef, "to_unicode\(\'\\uA67D\\u200C霣🄆｡\\u200C𑁂\\u1B01\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2932\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A67D}\x{200C}霣🄆｡\x{200C}𑁂\x{1B01}", %p)}, undef, "to_unicode\(\'\\uA67D\\u200C霣🄆｡\\u200C𑁂\\u1B01\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2933\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A67D}\x{200C}霣5,。\x{200C}𑁂\x{1B01}", %p)}, undef, "to_unicode\(\'\\uA67D\\u200C霣5\,\。\\u200C𑁂\\u1B01\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2934\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A67D}\x{200C}霣5,。\x{200C}𑁂\x{1B01}", %p)}, undef, "to_unicode\(\'\\uA67D\\u200C霣5\,\。\\u200C𑁂\\u1B01\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2935\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("兎｡ᠼ󠴜𑚶𑰿", %p)}, undef, "to_unicode\(\'兎｡ᠼ\?𑚶\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2936\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("兎。ᠼ󠴜𑚶𑰿", %p)}, undef, "to_unicode\(\'兎\。ᠼ\?𑚶\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2937\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟙｡\x{200D}𝟸\x{200D}⁷", %p)}, undef, "to_unicode\(\'𝟙｡\\u200D𝟸\\u200D⁷\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2938\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟙｡\x{200D}𝟸\x{200D}⁷", %p)}, undef, "to_unicode\(\'𝟙｡\\u200D𝟸\\u200D⁷\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2939\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1。\x{200D}2\x{200D}7", %p)}, undef, "to_unicode\(\'1\。\\u200D2\\u200D7\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2940\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1。\x{200D}2\x{200D}7", %p)}, undef, "to_unicode\(\'1\。\\u200D2\\u200D7\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2941\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.27", %p)}, "1.27", "to_unicode\(\'1\.27\'\)\ \[data\/IdnaTest\.txt\:2942\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡨ-｡󠻋𝟷", %p)}, undef, "to_unicode\(\'ᡨ\-｡\?𝟷\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2943\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡨ-。󠻋1", %p)}, undef, "to_unicode\(\'ᡨ\-\。\?1\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2944\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰻񵀐𐫚．\x{0668}⁹", %p)}, undef, "to_unicode\(\'\?\?𐫚．\\u0668⁹\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2945\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰻񵀐𐫚.\x{0668}9", %p)}, undef, "to_unicode\(\'\?\?𐫚\.\\u06689\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2946\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴜ򈷭\x{0F80}⾇。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴜ\?\\u0F80⾇\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2947\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴜ򈷭\x{0F80}⾇。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴜ\?\\u0F80⾇\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2948\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴜ򈷭\x{0F80}舛。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴜ\?\\u0F80舛\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2949\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴜ򈷭\x{0F80}舛。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴜ\?\\u0F80舛\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2950\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴜ򈷭\x{0F80}舛。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'ⴜ\?\\u0F80舛\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2951\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴜ򈷭\x{0F80}舛。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'ⴜ\?\\u0F80舛\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2952\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴜ򈷭\x{0F80}⾇。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'ⴜ\?\\u0F80⾇\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2953\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴜ򈷭\x{0F80}⾇。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'ⴜ\?\\u0F80⾇\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2954\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("𑁆𝟰.\x{200D}", %p)}, undef, "to_unicode\(\'𑁆𝟰\.\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2955\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("𑁆𝟰.\x{200D}", %p)}, undef, "to_unicode\(\'𑁆𝟰\.\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2956\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("𑁆4.\x{200D}", %p)}, undef, "to_unicode\(\'𑁆4\.\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2957\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("𑁆4.\x{200D}", %p)}, undef, "to_unicode\(\'𑁆4\.\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2958\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("񮴘Ⴞ癀｡𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\?Ⴞ癀｡𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2959\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񮴘Ⴞ癀｡𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\?Ⴞ癀｡𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2960\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񮴘Ⴞ癀｡𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\?Ⴞ癀｡𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2961\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񮴘Ⴞ癀｡𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\?Ⴞ癀｡𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2962\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񮴘Ⴞ癀。𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\?Ⴞ癀\。𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2963\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񮴘Ⴞ癀。𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\?Ⴞ癀\。𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2964\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񮴘Ⴞ癀。𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\?Ⴞ癀\。𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2965\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񮴘Ⴞ癀。𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\?Ⴞ癀\。𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2966\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񮴘ⴞ癀。𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\?ⴞ癀\。𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2967\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񮴘ⴞ癀。𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\?ⴞ癀\。𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2968\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񮴘ⴞ癀。𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\?ⴞ癀\。𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2969\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񮴘ⴞ癀。𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\?ⴞ癀\。𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2970\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񮴘ⴞ癀｡𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\?ⴞ癀｡𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2971\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񮴘ⴞ癀｡𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\?ⴞ癀｡𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2972\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񮴘ⴞ癀｡𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\?ⴞ癀｡𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2973\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񮴘ⴞ癀｡𑘿\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\?ⴞ癀｡𑘿\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2974\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󚀅-\x{0BCD}。\x{06B9}", %p)}, undef, "to_unicode\(\'\?\-\\u0BCD\。\\u06B9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2975\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡃ𝟧≯ᠣ．氁񨏱ꁫ", %p)}, undef, "to_unicode\(\'ᡃ𝟧\≯ᠣ．氁\?ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2976\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡃ𝟧>\x{0338}ᠣ．氁񨏱ꁫ", %p)}, undef, "to_unicode\(\'ᡃ𝟧\>\\u0338ᠣ．氁\?ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2977\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡃ5≯ᠣ.氁񨏱ꁫ", %p)}, undef, "to_unicode\(\'ᡃ5\≯ᠣ\.氁\?ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2978\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡃ5>\x{0338}ᠣ.氁񨏱ꁫ", %p)}, undef, "to_unicode\(\'ᡃ5\>\\u0338ᠣ\.氁\?ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2979\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𐹬𝩇．\x{0F76}", %p)}, undef, "to_unicode\(\'𐹬𝩇．\\u0F76\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2980\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𐹬𝩇．\x{0FB2}\x{0F80}", %p)}, undef, "to_unicode\(\'𐹬𝩇．\\u0FB2\\u0F80\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2981\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𐹬𝩇.\x{0FB2}\x{0F80}", %p)}, undef, "to_unicode\(\'𐹬𝩇\.\\u0FB2\\u0F80\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2982\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("-𑈶⒏．⒎𰛢󠎭", %p)}, undef, "to_unicode\(\'\-𑈶⒏．⒎\?\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2983\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-𑈶8..7.𰛢󠎭", %p)}, undef, "to_unicode\(\'\-𑈶8\.\.7\.\?\?\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2984\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴁ畝\x{200D}．≮", %p)}, undef, "to_unicode\(\'\\u200CႡ畝\\u200D．\≮\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2985\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴁ畝\x{200D}．≮", %p)}, undef, "to_unicode\(\'\\u200CႡ畝\\u200D．\≮\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2986\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴁ畝\x{200D}．<\x{0338}", %p)}, undef, "to_unicode\(\'\\u200CႡ畝\\u200D．\<\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2987\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴁ畝\x{200D}．<\x{0338}", %p)}, undef, "to_unicode\(\'\\u200CႡ畝\\u200D．\<\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2988\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴁ畝\x{200D}.≮", %p)}, undef, "to_unicode\(\'\\u200CႡ畝\\u200D\.\≮\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2989\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴁ畝\x{200D}.≮", %p)}, undef, "to_unicode\(\'\\u200CႡ畝\\u200D\.\≮\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2990\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴁ畝\x{200D}.<\x{0338}", %p)}, undef, "to_unicode\(\'\\u200CႡ畝\\u200D\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2991\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Ⴁ畝\x{200D}.<\x{0338}", %p)}, undef, "to_unicode\(\'\\u200CႡ畝\\u200D\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2992\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ⴁ畝\x{200D}.<\x{0338}", %p)}, undef, "to_unicode\(\'\\u200Cⴁ畝\\u200D\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2993\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ⴁ畝\x{200D}.<\x{0338}", %p)}, undef, "to_unicode\(\'\\u200Cⴁ畝\\u200D\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2994\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ⴁ畝\x{200D}.≮", %p)}, undef, "to_unicode\(\'\\u200Cⴁ畝\\u200D\.\≮\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2995\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ⴁ畝\x{200D}.≮", %p)}, undef, "to_unicode\(\'\\u200Cⴁ畝\\u200D\.\≮\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2996\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ⴁ畝\x{200D}．<\x{0338}", %p)}, undef, "to_unicode\(\'\\u200Cⴁ畝\\u200D．\<\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2997\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ⴁ畝\x{200D}．<\x{0338}", %p)}, undef, "to_unicode\(\'\\u200Cⴁ畝\\u200D．\<\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2998\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ⴁ畝\x{200D}．≮", %p)}, undef, "to_unicode\(\'\\u200Cⴁ畝\\u200D．\≮\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2999\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ⴁ畝\x{200D}．≮", %p)}, undef, "to_unicode\(\'\\u200Cⴁ畝\\u200D．\≮\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3000\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("歷｡𐹻≯󳛽\x{200D}", %p)}, undef, "to_unicode\(\'歷｡𐹻\≯\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3001\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("歷｡𐹻≯󳛽\x{200D}", %p)}, undef, "to_unicode\(\'歷｡𐹻\≯\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3002\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("歷｡𐹻>\x{0338}󳛽\x{200D}", %p)}, undef, "to_unicode\(\'歷｡𐹻\>\\u0338\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3003\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("歷｡𐹻>\x{0338}󳛽\x{200D}", %p)}, undef, "to_unicode\(\'歷｡𐹻\>\\u0338\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3004\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("歷。𐹻≯󳛽\x{200D}", %p)}, undef, "to_unicode\(\'歷\。𐹻\≯\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3005\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("歷。𐹻≯󳛽\x{200D}", %p)}, undef, "to_unicode\(\'歷\。𐹻\≯\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3006\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("歷。𐹻>\x{0338}󳛽\x{200D}", %p)}, undef, "to_unicode\(\'歷\。𐹻\>\\u0338\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3007\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("歷。𐹻>\x{0338}󳛽\x{200D}", %p)}, undef, "to_unicode\(\'歷\。𐹻\>\\u0338\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3008\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0ECB}\x{200D}．鎁󠰑", %p)}, undef, "to_unicode\(\'\\u0ECB\\u200D．鎁\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3009\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0ECB}\x{200D}．鎁󠰑", %p)}, undef, "to_unicode\(\'\\u0ECB\\u200D．鎁\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3010\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0ECB}\x{200D}.鎁󠰑", %p)}, undef, "to_unicode\(\'\\u0ECB\\u200D\.鎁\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3011\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0ECB}\x{200D}.鎁󠰑", %p)}, undef, "to_unicode\(\'\\u0ECB\\u200D\.鎁\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3012\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}\x{200C}𞤀｡𱘅𐶃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\?｡\?\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3013\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}\x{200C}𞤀｡𱘅𐶃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\?｡\?\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3014\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}\x{200C}𞤀。𱘅𐶃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\?\。\?\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3015\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}\x{200C}𞤀。𱘅𐶃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\?\。\?\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3016\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0628}≠𝟫-.ς⒍𐹦≠", %p)}, undef, "to_unicode\(\'\\u0628\≠𝟫\-\.ς⒍𐹦\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3017\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0628}=\x{0338}𝟫-.ς⒍𐹦=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0628\=\\u0338𝟫\-\.ς⒍𐹦\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3018\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0628}≠9-.ς6.𐹦≠", %p)}, undef, "to_unicode\(\'\\u0628\≠9\-\.ς6\.𐹦\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3019\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0628}=\x{0338}9-.ς6.𐹦=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0628\=\\u03389\-\.ς6\.𐹦\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3020\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0628}=\x{0338}9-.Σ6.𐹦=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0628\=\\u03389\-\.Σ6\.𐹦\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3021\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0628}≠9-.Σ6.𐹦≠", %p)}, undef, "to_unicode\(\'\\u0628\≠9\-\.Σ6\.𐹦\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3022\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0628}≠9-.σ6.𐹦≠", %p)}, undef, "to_unicode\(\'\\u0628\≠9\-\.σ6\.𐹦\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3023\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0628}=\x{0338}9-.σ6.𐹦=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0628\=\\u03389\-\.σ6\.𐹦\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3024\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0628}=\x{0338}𝟫-.Σ⒍𐹦=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0628\=\\u0338𝟫\-\.Σ⒍𐹦\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3025\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0628}≠𝟫-.Σ⒍𐹦≠", %p)}, undef, "to_unicode\(\'\\u0628\≠𝟫\-\.Σ⒍𐹦\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3026\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0628}≠𝟫-.σ⒍𐹦≠", %p)}, undef, "to_unicode\(\'\\u0628\≠𝟫\-\.σ⒍𐹦\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3027\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0628}=\x{0338}𝟫-.σ⒍𐹦=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0628\=\\u0338𝟫\-\.σ⒍𐹦\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3028\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򉛴.-ᡢ\x{0592}𝨠", %p)}, undef, "to_unicode\(\'\?\.\-ᡢ\\u0592𝨠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3029\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06CB}⒈ß󠄽。񷋍-", %p)}, undef, "to_unicode\(\'\\u06CB⒈ß\󠄽\。\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3030\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06CB}1.ß󠄽。񷋍-", %p)}, undef, "to_unicode\(\'\\u06CB1\.ß\󠄽\。\?\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3031\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06CB}1.SS󠄽。񷋍-", %p)}, undef, "to_unicode\(\'\\u06CB1\.SS\󠄽\。\?\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3032\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06CB}1.ss󠄽。񷋍-", %p)}, undef, "to_unicode\(\'\\u06CB1\.ss\󠄽\。\?\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3033\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06CB}1.Ss󠄽。񷋍-", %p)}, undef, "to_unicode\(\'\\u06CB1\.Ss\󠄽\。\?\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3034\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06CB}⒈SS󠄽。񷋍-", %p)}, undef, "to_unicode\(\'\\u06CB⒈SS\󠄽\。\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3035\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06CB}⒈ss󠄽。񷋍-", %p)}, undef, "to_unicode\(\'\\u06CB⒈ss\󠄽\。\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3036\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06CB}⒈Ss󠄽。񷋍-", %p)}, undef, "to_unicode\(\'\\u06CB⒈Ss\󠄽\。\?\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3037\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫．\x{1BAA}ςႦ\x{200D}", %p)}, undef, "to_unicode\(\'\?．\\u1BAAςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3038\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫．\x{1BAA}ςႦ\x{200D}", %p)}, undef, "to_unicode\(\'\?．\\u1BAAςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3039\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫.\x{1BAA}ςႦ\x{200D}", %p)}, undef, "to_unicode\(\'\?\.\\u1BAAςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3040\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫.\x{1BAA}ςႦ\x{200D}", %p)}, undef, "to_unicode\(\'\?\.\\u1BAAςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3041\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫.\x{1BAA}ςⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\?\.\\u1BAAςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3042\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫.\x{1BAA}ςⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\?\.\\u1BAAςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3043\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫.\x{1BAA}ΣႦ\x{200D}", %p)}, undef, "to_unicode\(\'\?\.\\u1BAAΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3044\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫.\x{1BAA}ΣႦ\x{200D}", %p)}, undef, "to_unicode\(\'\?\.\\u1BAAΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3045\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫.\x{1BAA}σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\?\.\\u1BAAσⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3046\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫.\x{1BAA}σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\?\.\\u1BAAσⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3047\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫.\x{1BAA}Σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\?\.\\u1BAAΣⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3048\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫.\x{1BAA}Σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\?\.\\u1BAAΣⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3049\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫．\x{1BAA}ςⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\?．\\u1BAAςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3050\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫．\x{1BAA}ςⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\?．\\u1BAAςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3051\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫．\x{1BAA}ΣႦ\x{200D}", %p)}, undef, "to_unicode\(\'\?．\\u1BAAΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3052\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫．\x{1BAA}ΣႦ\x{200D}", %p)}, undef, "to_unicode\(\'\?．\\u1BAAΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3053\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫．\x{1BAA}σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\?．\\u1BAAσⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3054\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫．\x{1BAA}σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\?．\\u1BAAσⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3055\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫．\x{1BAA}Σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\?．\\u1BAAΣⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3056\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𿀫．\x{1BAA}Σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\?．\\u1BAAΣⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3057\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⾆\x{08E2}.𝈴", %p)}, undef, "to_unicode\(\'⾆\\u08E2\.𝈴\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3058\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("舌\x{08E2}.𝈴", %p)}, undef, "to_unicode\(\'舌\\u08E2\.𝈴\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3059\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⫞𐹶𖫴。⭠⒈", %p)}, undef, "to_unicode\(\'\⫞𐹶𖫴\。\⭠⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3060\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("⫞𐹶𖫴。⭠1.", %p)}, undef, "to_unicode\(\'\⫞𐹶𖫴\。\⭠1\.\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3061\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("⒈\x{200C}\x{AAEC}︒．\x{0ACD}", %p)}, undef, "to_unicode\(\'⒈\\u200C\\uAAEC︒．\\u0ACD\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3062\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈\x{200C}\x{AAEC}︒．\x{0ACD}", %p)}, undef, "to_unicode\(\'⒈\\u200C\\uAAEC︒．\\u0ACD\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3063\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("1.\x{200C}\x{AAEC}。.\x{0ACD}", %p)}, undef, "to_unicode\(\'1\.\\u200C\\uAAEC\。\.\\u0ACD\'\)\ throws\ error\ V5\ C1\ A4_2\ \[data\/IdnaTest\.txt\:3064\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("1.\x{200C}\x{AAEC}。.\x{0ACD}", %p)}, undef, "to_unicode\(\'1\.\\u200C\\uAAEC\。\.\\u0ACD\'\)\ throws\ error\ V5\ C1\ A4_2\ \[data\/IdnaTest\.txt\:3065\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{0C46}。䰀\x{0668}𞭅󠅼", %p)}, undef, "to_unicode\(\'\\u0C46\。䰀\\u0668\?\󠅼\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3066\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß\x{200D}.\x{1BF2}񄾼", %p)}, undef, "to_unicode\(\'ß\\u200D\.\\u1BF2\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3067\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß\x{200D}.\x{1BF2}񄾼", %p)}, undef, "to_unicode\(\'ß\\u200D\.\\u1BF2\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3068\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("SS\x{200D}.\x{1BF2}񄾼", %p)}, undef, "to_unicode\(\'SS\\u200D\.\\u1BF2\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3069\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("SS\x{200D}.\x{1BF2}񄾼", %p)}, undef, "to_unicode\(\'SS\\u200D\.\\u1BF2\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3070\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ss\x{200D}.\x{1BF2}񄾼", %p)}, undef, "to_unicode\(\'ss\\u200D\.\\u1BF2\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3071\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ss\x{200D}.\x{1BF2}񄾼", %p)}, undef, "to_unicode\(\'ss\\u200D\.\\u1BF2\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3072\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ss\x{200D}.\x{1BF2}񄾼", %p)}, undef, "to_unicode\(\'Ss\\u200D\.\\u1BF2\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3073\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ss\x{200D}.\x{1BF2}񄾼", %p)}, undef, "to_unicode\(\'Ss\\u200D\.\\u1BF2\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3074\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑓂\x{200C}≮.≮", %p)}, undef, "to_unicode\(\'𑓂\\u200C\≮\.\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3075\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑓂\x{200C}<\x{0338}.<\x{0338}", %p)}, undef, "to_unicode\(\'𑓂\\u200C\<\\u0338\.\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3076\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🕼．\x{FFA0}", %p)}, undef, "to_unicode\(\'🕼．\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3077\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🕼.\x{1160}", %p)}, undef, "to_unicode\(\'🕼\.\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3078\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡔ\x{FD82}。񷘎", %p)}, undef, "to_unicode\(\'ᡔ\\uFD82\。\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3079\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡔ\x{0644}\x{062D}\x{0649}。񷘎", %p)}, undef, "to_unicode\(\'ᡔ\\u0644\\u062D\\u0649\。\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3080\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("爕򳙑．𝟰気", %p)}, undef, "to_unicode\(\'爕\?．𝟰気\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3081\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("爕򳙑.4気", %p)}, undef, "to_unicode\(\'爕\?\.4気\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3082\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒋𑍍Ⴝ-．𞬪\x{0DCA}\x{05B5}", %p)}, undef, "to_unicode\(\'⒋𑍍Ⴝ\-．\?\\u0DCA\\u05B5\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3083\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4.𑍍Ⴝ-.𞬪\x{0DCA}\x{05B5}", %p)}, undef, "to_unicode\(\'4\.𑍍Ⴝ\-\.\?\\u0DCA\\u05B5\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3084\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4.𑍍ⴝ-.𞬪\x{0DCA}\x{05B5}", %p)}, undef, "to_unicode\(\'4\.𑍍ⴝ\-\.\?\\u0DCA\\u05B5\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3085\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒋𑍍ⴝ-．𞬪\x{0DCA}\x{05B5}", %p)}, undef, "to_unicode\(\'⒋𑍍ⴝ\-．\?\\u0DCA\\u05B5\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3086\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󞝃。򑆃񉢗--", %p)}, undef, "to_unicode\(\'\?\。\?\?\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ \[data\/IdnaTest\.txt\:3087\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200D}\x{07DF}｡\x{200C}\x{ABED}", %p)}, undef, "to_unicode\(\'\\u200D\\u07DF｡\\u200C\\uABED\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3088\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200D}\x{07DF}｡\x{200C}\x{ABED}", %p)}, undef, "to_unicode\(\'\\u200D\\u07DF｡\\u200C\\uABED\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3089\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200D}\x{07DF}。\x{200C}\x{ABED}", %p)}, undef, "to_unicode\(\'\\u200D\\u07DF\。\\u200C\\uABED\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3090\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200D}\x{07DF}。\x{200C}\x{ABED}", %p)}, undef, "to_unicode\(\'\\u200D\\u07DF\。\\u200C\\uABED\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3091\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𞮽\x{07FF}\x{084E}｡ᢍ򝹁𐫘", %p)}, undef, "to_unicode\(\'\?\\u07FF\\u084E｡ᢍ\?𐫘\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3092\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞮽\x{07FF}\x{084E}。ᢍ򝹁𐫘", %p)}, undef, "to_unicode\(\'\?\\u07FF\\u084E\。ᢍ\?𐫘\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3093\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{06ED}𞺌𑄚\x{1714}.ꡞ\x{08B7}", %p)}, undef, "to_unicode\(\'\\u06ED𞺌𑄚\\u1714\.ꡞ\\u08B7\'\)\ throws\ error\ V5\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:3094\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{06ED}\x{0645}𑄚\x{1714}.ꡞ\x{08B7}", %p)}, undef, "to_unicode\(\'\\u06ED\\u0645𑄚\\u1714\.ꡞ\\u08B7\'\)\ throws\ error\ V5\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:3095\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}｡ς\x{063C}ς", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC｡ς\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3096\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}｡ς\x{063C}ς", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC｡ς\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3097\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}。ς\x{063C}ς", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC\。ς\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3098\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}。ς\x{063C}ς", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC\。ς\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3099\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}。Σ\x{063C}Σ", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC\。Σ\\u063CΣ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3100\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}。Σ\x{063C}Σ", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC\。Σ\\u063CΣ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3101\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}。σ\x{063C}σ", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC\。σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3102\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}。σ\x{063C}σ", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC\。σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3103\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}。Σ\x{063C}σ", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC\。Σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3104\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}。Σ\x{063C}σ", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC\。Σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3105\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}。Σ\x{063C}ς", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC\。Σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3106\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}。Σ\x{063C}ς", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC\。Σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3107\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}。σ\x{063C}ς", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC\。σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3108\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}。σ\x{063C}ς", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC\。σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3109\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}｡Σ\x{063C}Σ", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC｡Σ\\u063CΣ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3110\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}｡Σ\x{063C}Σ", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC｡Σ\\u063CΣ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3111\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}｡σ\x{063C}σ", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC｡σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3112\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}｡σ\x{063C}σ", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC｡σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3113\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}｡Σ\x{063C}σ", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC｡Σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3114\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}｡Σ\x{063C}σ", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC｡Σ\\u063Cσ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3115\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}｡Σ\x{063C}ς", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC｡Σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3116\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}｡Σ\x{063C}ς", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC｡Σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3117\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}｡σ\x{063C}ς", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC｡σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3118\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񻂵킃𑘶\x{07DC}｡σ\x{063C}ς", %p)}, undef, "to_unicode\(\'\?킃𑘶\\u07DC｡σ\\u063Cς\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3119\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("蔰。󠁹\x{08DD}-𑈵", %p)}, undef, "to_unicode\(\'蔰\。\?\\u08DD\-𑈵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3120\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ςჅ。\x{075A}", %p)}, undef, "to_unicode\(\'ςჅ\。\\u075A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3121\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ςⴥ。\x{075A}", %p)}, "ςⴥ.\x{075A}", "to_unicode\(\'ςⴥ\。\\u075A\'\)\ \[data\/IdnaTest\.txt\:3122\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ςⴥ。\x{075A}", %p)}, "ςⴥ.\x{075A}", "to_unicode\(\'ςⴥ\。\\u075A\'\)\ \[data\/IdnaTest\.txt\:3123\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("ΣჅ。\x{075A}", %p)}, undef, "to_unicode\(\'ΣჅ\。\\u075A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3124\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("σⴥ。\x{075A}", %p)}, "σⴥ.\x{075A}", "to_unicode\(\'σⴥ\。\\u075A\'\)\ \[data\/IdnaTest\.txt\:3125\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("Σⴥ。\x{075A}", %p)}, "σⴥ.\x{075A}", "to_unicode\(\'Σⴥ\。\\u075A\'\)\ \[data\/IdnaTest\.txt\:3126\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("xn--4xa203s.xn--epb", %p)}, "σⴥ.\x{075A}", "to_unicode\(\'xn\-\-4xa203s\.xn\-\-epb\'\)\ \[data\/IdnaTest\.txt\:3127\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("σⴥ.\x{075A}", %p)}, "σⴥ.\x{075A}", "to_unicode\(\'σⴥ\.\\u075A\'\)\ \[data\/IdnaTest\.txt\:3128\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("ΣჅ.\x{075A}", %p)}, undef, "to_unicode\(\'ΣჅ\.\\u075A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3129\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("Σⴥ.\x{075A}", %p)}, "σⴥ.\x{075A}", "to_unicode\(\'Σⴥ\.\\u075A\'\)\ \[data\/IdnaTest\.txt\:3130\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("xn--3xa403s.xn--epb", %p)}, "ςⴥ.\x{075A}", "to_unicode\(\'xn\-\-3xa403s\.xn\-\-epb\'\)\ \[data\/IdnaTest\.txt\:3131\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ςⴥ.\x{075A}", %p)}, "ςⴥ.\x{075A}", "to_unicode\(\'ςⴥ\.\\u075A\'\)\ \[data\/IdnaTest\.txt\:3132\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ςⴥ.\x{075A}", %p)}, "ςⴥ.\x{075A}", "to_unicode\(\'ςⴥ\.\\u075A\'\)\ \[data\/IdnaTest\.txt\:3133\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{0C4D}Ⴉ𞰓．\x{1B72}", %p)}, undef, "to_unicode\(\'\\u0C4DႩ\?．\\u1B72\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3134\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0C4D}Ⴉ𞰓.\x{1B72}", %p)}, undef, "to_unicode\(\'\\u0C4DႩ\?\.\\u1B72\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3135\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0C4D}ⴉ𞰓.\x{1B72}", %p)}, undef, "to_unicode\(\'\\u0C4Dⴉ\?\.\\u1B72\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3136\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0C4D}ⴉ𞰓．\x{1B72}", %p)}, undef, "to_unicode\(\'\\u0C4Dⴉ\?．\\u1B72\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3137\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⮷≮񎈴󠄟。𐠄", %p)}, undef, "to_unicode\(\'\⮷\≮\?\󠄟\。𐠄\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3138\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⮷<\x{0338}񎈴󠄟。𐠄", %p)}, undef, "to_unicode\(\'\⮷\<\\u0338\?\󠄟\。𐠄\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3139\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}｡\x{200D}ẏ\x{200C}ᡤ", %p)}, undef, "to_unicode\(\'\\u06BC｡\\u200Dẏ\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3140\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}｡\x{200D}ẏ\x{200C}ᡤ", %p)}, undef, "to_unicode\(\'\\u06BC｡\\u200Dẏ\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3141\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}｡\x{200D}y\x{0307}\x{200C}ᡤ", %p)}, undef, "to_unicode\(\'\\u06BC｡\\u200Dy\\u0307\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3142\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}｡\x{200D}y\x{0307}\x{200C}ᡤ", %p)}, undef, "to_unicode\(\'\\u06BC｡\\u200Dy\\u0307\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3143\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}。\x{200D}ẏ\x{200C}ᡤ", %p)}, undef, "to_unicode\(\'\\u06BC\。\\u200Dẏ\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3144\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}。\x{200D}ẏ\x{200C}ᡤ", %p)}, undef, "to_unicode\(\'\\u06BC\。\\u200Dẏ\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3145\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}。\x{200D}y\x{0307}\x{200C}ᡤ", %p)}, undef, "to_unicode\(\'\\u06BC\。\\u200Dy\\u0307\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3146\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}。\x{200D}y\x{0307}\x{200C}ᡤ", %p)}, undef, "to_unicode\(\'\\u06BC\。\\u200Dy\\u0307\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3147\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}。\x{200D}Y\x{0307}\x{200C}ᡤ", %p)}, undef, "to_unicode\(\'\\u06BC\。\\u200DY\\u0307\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3148\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}。\x{200D}Y\x{0307}\x{200C}ᡤ", %p)}, undef, "to_unicode\(\'\\u06BC\。\\u200DY\\u0307\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3149\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}。\x{200D}Ẏ\x{200C}ᡤ", %p)}, undef, "to_unicode\(\'\\u06BC\。\\u200DẎ\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3150\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}。\x{200D}Ẏ\x{200C}ᡤ", %p)}, undef, "to_unicode\(\'\\u06BC\。\\u200DẎ\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3151\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--vkb.xn--08e172a", %p)}, "\x{06BC}.ẏᡤ", "to_unicode\(\'xn\-\-vkb\.xn\-\-08e172a\'\)\ \[data\/IdnaTest\.txt\:3152\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}.ẏᡤ", %p)}, "\x{06BC}.ẏᡤ", "to_unicode\(\'\\u06BC\.ẏᡤ\'\)\ \[data\/IdnaTest\.txt\:3153\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}.y\x{0307}ᡤ", %p)}, "\x{06BC}.ẏᡤ", "to_unicode\(\'\\u06BC\.y\\u0307ᡤ\'\)\ \[data\/IdnaTest\.txt\:3154\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}.Y\x{0307}ᡤ", %p)}, "\x{06BC}.ẏᡤ", "to_unicode\(\'\\u06BC\.Y\\u0307ᡤ\'\)\ \[data\/IdnaTest\.txt\:3155\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}.Ẏᡤ", %p)}, "\x{06BC}.ẏᡤ", "to_unicode\(\'\\u06BC\.Ẏᡤ\'\)\ \[data\/IdnaTest\.txt\:3156\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}｡\x{200D}Y\x{0307}\x{200C}ᡤ", %p)}, undef, "to_unicode\(\'\\u06BC｡\\u200DY\\u0307\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3157\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}｡\x{200D}Y\x{0307}\x{200C}ᡤ", %p)}, undef, "to_unicode\(\'\\u06BC｡\\u200DY\\u0307\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3158\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}｡\x{200D}Ẏ\x{200C}ᡤ", %p)}, undef, "to_unicode\(\'\\u06BC｡\\u200DẎ\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3159\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BC}｡\x{200D}Ẏ\x{200C}ᡤ", %p)}, undef, "to_unicode\(\'\\u06BC｡\\u200DẎ\\u200Cᡤ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3160\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹹𑲛。񑂐\x{0DCA}", %p)}, undef, "to_unicode\(\'𐹹\?\。\?\\u0DCA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3161\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-≠𑈵｡嵕\x{FEF1}۴\x{A953}", %p)}, undef, "to_unicode\(\'\-\≠𑈵｡嵕\\uFEF1۴\\uA953\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3162\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-=\x{0338}𑈵｡嵕\x{FEF1}۴\x{A953}", %p)}, undef, "to_unicode\(\'\-\=\\u0338𑈵｡嵕\\uFEF1۴\\uA953\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3163\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-≠𑈵。嵕\x{064A}۴\x{A953}", %p)}, undef, "to_unicode\(\'\-\≠𑈵\。嵕\\u064A۴\\uA953\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3164\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-=\x{0338}𑈵。嵕\x{064A}۴\x{A953}", %p)}, undef, "to_unicode\(\'\-\=\\u0338𑈵\。嵕\\u064A۴\\uA953\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3165\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}񍸰𐹶\x{076E}．\x{06C1}\x{200D}≯\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\?𐹶\\u076E．\\u06C1\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3166\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}񍸰𐹶\x{076E}．\x{06C1}\x{200D}≯\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\?𐹶\\u076E．\\u06C1\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3167\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}񍸰𐹶\x{076E}．\x{06C1}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\?𐹶\\u076E．\\u06C1\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3168\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}񍸰𐹶\x{076E}．\x{06C1}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\?𐹶\\u076E．\\u06C1\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3169\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}񍸰𐹶\x{076E}.\x{06C1}\x{200D}≯\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\?𐹶\\u076E\.\\u06C1\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3170\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}񍸰𐹶\x{076E}.\x{06C1}\x{200D}≯\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\?𐹶\\u076E\.\\u06C1\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3171\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}񍸰𐹶\x{076E}.\x{06C1}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\?𐹶\\u076E\.\\u06C1\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3172\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}񍸰𐹶\x{076E}.\x{06C1}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\?𐹶\\u076E\.\\u06C1\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3173\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮．\x{17B5}\x{0855}𐫔", %p)}, undef, "to_unicode\(\'\≮．\\u17B5\\u0855𐫔\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3174\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}．\x{17B5}\x{0855}𐫔", %p)}, undef, "to_unicode\(\'\<\\u0338．\\u17B5\\u0855𐫔\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3175\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮.\x{17B5}\x{0855}𐫔", %p)}, undef, "to_unicode\(\'\≮\.\\u17B5\\u0855𐫔\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3176\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}.\x{17B5}\x{0855}𐫔", %p)}, undef, "to_unicode\(\'\<\\u0338\.\\u17B5\\u0855𐫔\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3177\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐩗\x{200D}｡ႩႵ", %p)}, undef, "to_unicode\(\'𐩗\\u200D｡ႩႵ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3178\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐩗\x{200D}｡ႩႵ", %p)}, undef, "to_unicode\(\'𐩗\\u200D｡ႩႵ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3179\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐩗\x{200D}。ႩႵ", %p)}, undef, "to_unicode\(\'𐩗\\u200D\。ႩႵ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3180\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐩗\x{200D}。ႩႵ", %p)}, undef, "to_unicode\(\'𐩗\\u200D\。ႩႵ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3181\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("𐩗\x{200D}。ⴉⴕ", %p)}, undef, "to_unicode\(\'𐩗\\u200D\。ⴉⴕ\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:3182\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("𐩗\x{200D}。ⴉⴕ", %p)}, undef, "to_unicode\(\'𐩗\\u200D\。ⴉⴕ\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:3183\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𐩗\x{200D}。Ⴉⴕ", %p)}, undef, "to_unicode\(\'𐩗\\u200D\。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3184\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐩗\x{200D}。Ⴉⴕ", %p)}, undef, "to_unicode\(\'𐩗\\u200D\。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3185\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("xn--pt9c.xn--0kjya", %p)}, "𐩗.ⴉⴕ", "to_unicode\(\'xn\-\-pt9c\.xn\-\-0kjya\'\)\ \[data\/IdnaTest\.txt\:3186\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("𐩗.ⴉⴕ", %p)}, "𐩗.ⴉⴕ", "to_unicode\(\'𐩗\.ⴉⴕ\'\)\ \[data\/IdnaTest\.txt\:3187\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𐩗.ႩႵ", %p)}, undef, "to_unicode\(\'𐩗\.ႩႵ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3188\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐩗.Ⴉⴕ", %p)}, undef, "to_unicode\(\'𐩗\.Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3189\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("𐩗\x{200D}｡ⴉⴕ", %p)}, undef, "to_unicode\(\'𐩗\\u200D｡ⴉⴕ\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:3190\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("𐩗\x{200D}｡ⴉⴕ", %p)}, undef, "to_unicode\(\'𐩗\\u200D｡ⴉⴕ\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:3191\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𐩗\x{200D}｡Ⴉⴕ", %p)}, undef, "to_unicode\(\'𐩗\\u200D｡Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3192\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐩗\x{200D}｡Ⴉⴕ", %p)}, undef, "to_unicode\(\'𐩗\\u200D｡Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3193\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{200C}ㄤ．\x{032E}󕨑\x{09C2}", %p)}, undef, "to_unicode\(\'\\u200C\\u200Cㄤ．\\u032E\?\\u09C2\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3194\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{200C}ㄤ．\x{032E}󕨑\x{09C2}", %p)}, undef, "to_unicode\(\'\\u200C\\u200Cㄤ．\\u032E\?\\u09C2\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3195\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{200C}ㄤ.\x{032E}󕨑\x{09C2}", %p)}, undef, "to_unicode\(\'\\u200C\\u200Cㄤ\.\\u032E\?\\u09C2\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3196\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{200C}ㄤ.\x{032E}󕨑\x{09C2}", %p)}, undef, "to_unicode\(\'\\u200C\\u200Cㄤ\.\\u032E\?\\u09C2\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3197\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐋻｡-\x{200C}𐫄Ⴗ", %p)}, undef, "to_unicode\(\'𐋻｡\-\\u200C𐫄Ⴗ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3198\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐋻｡-\x{200C}𐫄Ⴗ", %p)}, undef, "to_unicode\(\'𐋻｡\-\\u200C𐫄Ⴗ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3199\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐋻。-\x{200C}𐫄Ⴗ", %p)}, undef, "to_unicode\(\'𐋻\。\-\\u200C𐫄Ⴗ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3200\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐋻。-\x{200C}𐫄Ⴗ", %p)}, undef, "to_unicode\(\'𐋻\。\-\\u200C𐫄Ⴗ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3201\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐋻。-\x{200C}𐫄ⴗ", %p)}, undef, "to_unicode\(\'𐋻\。\-\\u200C𐫄ⴗ\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:3202\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐋻。-\x{200C}𐫄ⴗ", %p)}, undef, "to_unicode\(\'𐋻\。\-\\u200C𐫄ⴗ\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:3203\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐋻｡-\x{200C}𐫄ⴗ", %p)}, undef, "to_unicode\(\'𐋻｡\-\\u200C𐫄ⴗ\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:3204\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐋻｡-\x{200C}𐫄ⴗ", %p)}, undef, "to_unicode\(\'𐋻｡\-\\u200C𐫄ⴗ\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:3205\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("🙑𐷺．≠\x{200C}", %p)}, undef, "to_unicode\(\'🙑\?．\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3206\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🙑𐷺．≠\x{200C}", %p)}, undef, "to_unicode\(\'🙑\?．\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3207\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🙑𐷺．=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'🙑\?．\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3208\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🙑𐷺．=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'🙑\?．\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3209\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🙑𐷺.≠\x{200C}", %p)}, undef, "to_unicode\(\'🙑\?\.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3210\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🙑𐷺.≠\x{200C}", %p)}, undef, "to_unicode\(\'🙑\?\.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3211\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🙑𐷺.=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'🙑\?\.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3212\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🙑𐷺.=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'🙑\?\.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3213\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{064C}\x{1CD2}｡𞮞\x{2D7F}⧎", %p)}, undef, "to_unicode\(\'\\u064C\\u1CD2｡\?\\u2D7F\⧎\'\)\ throws\ error\ P1\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:3214\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{064C}\x{1CD2}。𞮞\x{2D7F}⧎", %p)}, undef, "to_unicode\(\'\\u064C\\u1CD2\。\?\\u2D7F\⧎\'\)\ throws\ error\ P1\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:3215\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴔ𝨨₃󠁦．𝟳𑂹\x{0B82}", %p)}, undef, "to_unicode\(\'Ⴔ𝨨₃\?．𝟳𑂹\\u0B82\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3216\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴔ𝨨3󠁦.7𑂹\x{0B82}", %p)}, undef, "to_unicode\(\'Ⴔ𝨨3\?\.7𑂹\\u0B82\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3217\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴔ𝨨3󠁦.7𑂹\x{0B82}", %p)}, undef, "to_unicode\(\'ⴔ𝨨3\?\.7𑂹\\u0B82\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3218\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴔ𝨨₃󠁦．𝟳𑂹\x{0B82}", %p)}, undef, "to_unicode\(\'ⴔ𝨨₃\?．𝟳𑂹\\u0B82\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3219\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("䏈\x{200C}。\x{200C}⒈񱢕", %p)}, undef, "to_unicode\(\'䏈\\u200C\。\\u200C⒈\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3220\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("䏈\x{200C}。\x{200C}⒈񱢕", %p)}, undef, "to_unicode\(\'䏈\\u200C\。\\u200C⒈\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3221\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("䏈\x{200C}。\x{200C}1.񱢕", %p)}, undef, "to_unicode\(\'䏈\\u200C\。\\u200C1\.\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3222\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("䏈\x{200C}。\x{200C}1.񱢕", %p)}, undef, "to_unicode\(\'䏈\\u200C\。\\u200C1\.\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3223\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("１\x{AAF6}ß𑲥｡\x{1DD8}", %p)}, undef, "to_unicode\(\'１\\uAAF6ß\?｡\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3224\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("1\x{AAF6}ß𑲥。\x{1DD8}", %p)}, undef, "to_unicode\(\'1\\uAAF6ß\?\。\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3225\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("1\x{AAF6}SS𑲥。\x{1DD8}", %p)}, undef, "to_unicode\(\'1\\uAAF6SS\?\。\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3226\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("1\x{AAF6}ss𑲥。\x{1DD8}", %p)}, undef, "to_unicode\(\'1\\uAAF6ss\?\。\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3227\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("1\x{AAF6}Ss𑲥。\x{1DD8}", %p)}, undef, "to_unicode\(\'1\\uAAF6Ss\?\。\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3228\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("１\x{AAF6}SS𑲥｡\x{1DD8}", %p)}, undef, "to_unicode\(\'１\\uAAF6SS\?｡\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3229\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("１\x{AAF6}ss𑲥｡\x{1DD8}", %p)}, undef, "to_unicode\(\'１\\uAAF6ss\?｡\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3230\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("１\x{AAF6}Ss𑲥｡\x{1DD8}", %p)}, undef, "to_unicode\(\'１\\uAAF6Ss\?｡\\u1DD8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3231\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200D}񫶩𞪯\x{0CCD}｡\x{077C}⒈", %p)}, undef, "to_unicode\(\'\\u200D\?\?\\u0CCD｡\\u077C⒈\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3232\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}񫶩𞪯\x{0CCD}｡\x{077C}⒈", %p)}, undef, "to_unicode\(\'\\u200D\?\?\\u0CCD｡\\u077C⒈\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3233\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}񫶩𞪯\x{0CCD}。\x{077C}1.", %p)}, undef, "to_unicode\(\'\\u200D\?\?\\u0CCD\。\\u077C1\.\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3234\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}񫶩𞪯\x{0CCD}。\x{077C}1.", %p)}, undef, "to_unicode\(\'\\u200D\?\?\\u0CCD\。\\u077C1\.\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3235\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1AB6}．𞤳򓢖򻉒\x{07D7}", %p)}, undef, "to_unicode\(\'\\u1AB6．\?\?\?\\u07D7\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:3236\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1AB6}.𞤳򓢖򻉒\x{07D7}", %p)}, undef, "to_unicode\(\'\\u1AB6\.\?\?\?\\u07D7\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:3237\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0842}𞩚⒈．󠬌８򏳏\x{0770}", %p)}, undef, "to_unicode\(\'\\u0842\?⒈．\?８\?\\u0770\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3238\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0842}𞩚1..󠬌8򏳏\x{0770}", %p)}, undef, "to_unicode\(\'\\u0842\?1\.\.\?8\?\\u0770\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3239\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0361}𐫫\x{0369}ᡷ。-󠰛鞰", %p)}, undef, "to_unicode\(\'\\u0361𐫫\\u0369ᡷ\。\-\?鞰\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3240\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-.\x{0ACD}剘ß𐫃", %p)}, undef, "to_unicode\(\'\-\.\\u0ACD剘ß𐫃\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3241\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-.\x{0ACD}剘SS𐫃", %p)}, undef, "to_unicode\(\'\-\.\\u0ACD剘SS𐫃\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3242\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-.\x{0ACD}剘ss𐫃", %p)}, undef, "to_unicode\(\'\-\.\\u0ACD剘ss𐫃\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3243\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-.\x{0ACD}剘Ss𐫃", %p)}, undef, "to_unicode\(\'\-\.\\u0ACD剘Ss𐫃\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3244\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{08FB}𞵸｡-", %p)}, undef, "to_unicode\(\'\\u08FB\?｡\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3245\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08FB}𞵸。-", %p)}, undef, "to_unicode\(\'\\u08FB\?\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3246\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈󠈻𐹲｡≠\x{0603}𐹽", %p)}, undef, "to_unicode\(\'⒈\?𐹲｡\≠\\u0603𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3247\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈󠈻𐹲｡=\x{0338}\x{0603}𐹽", %p)}, undef, "to_unicode\(\'⒈\?𐹲｡\=\\u0338\\u0603𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3248\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.󠈻𐹲。≠\x{0603}𐹽", %p)}, undef, "to_unicode\(\'1\.\?𐹲\。\≠\\u0603𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3249\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.󠈻𐹲。=\x{0338}\x{0603}𐹽", %p)}, undef, "to_unicode\(\'1\.\?𐹲\。\=\\u0338\\u0603𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3250\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹢󠈚Ⴎ\x{200C}.㖾𐹡", %p)}, undef, "to_unicode\(\'𐹢\?Ⴎ\\u200C\.㖾𐹡\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3251\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹢󠈚Ⴎ\x{200C}.㖾𐹡", %p)}, undef, "to_unicode\(\'𐹢\?Ⴎ\\u200C\.㖾𐹡\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3252\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹢󠈚ⴎ\x{200C}.㖾𐹡", %p)}, undef, "to_unicode\(\'𐹢\?ⴎ\\u200C\.㖾𐹡\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3253\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹢󠈚ⴎ\x{200C}.㖾𐹡", %p)}, undef, "to_unicode\(\'𐹢\?ⴎ\\u200C\.㖾𐹡\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3254\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򩼗．\x{07C7}ᡖႳႧ", %p)}, undef, "to_unicode\(\'\?．\\u07C7ᡖႳႧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3255\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򩼗.\x{07C7}ᡖႳႧ", %p)}, undef, "to_unicode\(\'\?\.\\u07C7ᡖႳႧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3256\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򩼗.\x{07C7}ᡖⴓⴇ", %p)}, undef, "to_unicode\(\'\?\.\\u07C7ᡖⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3257\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򩼗.\x{07C7}ᡖႳⴇ", %p)}, undef, "to_unicode\(\'\?\.\\u07C7ᡖႳⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3258\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򩼗．\x{07C7}ᡖⴓⴇ", %p)}, undef, "to_unicode\(\'\?．\\u07C7ᡖⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3259\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򩼗．\x{07C7}ᡖႳⴇ", %p)}, undef, "to_unicode\(\'\?．\\u07C7ᡖႳⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3260\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}􅍉.\x{06B3}\x{0775}", %p)}, undef, "to_unicode\(\'\\u200D\?\.\\u06B3\\u0775\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3261\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}􅍉.\x{06B3}\x{0775}", %p)}, undef, "to_unicode\(\'\\u200D\?\.\\u06B3\\u0775\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3262\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲤱⒛⾳．ꡦ⒈", %p)}, undef, "to_unicode\(\'\?⒛⾳．ꡦ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3263\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲤱20.音.ꡦ1.", %p)}, undef, "to_unicode\(\'\?20\.音\.ꡦ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3264\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07DC}８񳦓-｡򞲙𑁿𐩥\x{09CD}", %p)}, undef, "to_unicode\(\'\\u07DC８\?\-｡\?𑁿𐩥\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3265\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07DC}8񳦓-。򞲙𑁿𐩥\x{09CD}", %p)}, undef, "to_unicode\(\'\\u07DC8\?\-\。\?𑁿𐩥\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3266\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴕ。۰≮ß\x{0745}", %p)}, undef, "to_unicode\(\'Ⴕ\。۰\≮ß\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3267\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴕ。۰<\x{0338}ß\x{0745}", %p)}, undef, "to_unicode\(\'Ⴕ\。۰\<\\u0338ß\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3268\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴕ。۰<\x{0338}ß\x{0745}", %p)}, undef, "to_unicode\(\'ⴕ\。۰\<\\u0338ß\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3269\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴕ。۰≮ß\x{0745}", %p)}, undef, "to_unicode\(\'ⴕ\。۰\≮ß\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3270\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴕ。۰≮SS\x{0745}", %p)}, undef, "to_unicode\(\'Ⴕ\。۰\≮SS\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3271\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴕ。۰<\x{0338}SS\x{0745}", %p)}, undef, "to_unicode\(\'Ⴕ\。۰\<\\u0338SS\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3272\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴕ。۰<\x{0338}ss\x{0745}", %p)}, undef, "to_unicode\(\'ⴕ\。۰\<\\u0338ss\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3273\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴕ。۰≮ss\x{0745}", %p)}, undef, "to_unicode\(\'ⴕ\。۰\≮ss\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3274\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴕ。۰≮Ss\x{0745}", %p)}, undef, "to_unicode\(\'Ⴕ\。۰\≮Ss\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3275\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴕ。۰<\x{0338}Ss\x{0745}", %p)}, undef, "to_unicode\(\'Ⴕ\。۰\<\\u0338Ss\\u0745\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3276\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("\x{07E9}-.𝨗꒱\x{1B72}", %p)}, undef, "to_unicode\(\'\\u07E9\-\.𝨗꒱\\u1B72\'\)\ throws\ error\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:3277\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𞼸\x{200C}.≯䕵⫧", %p)}, undef, "to_unicode\(\'\?\\u200C\.\≯䕵\⫧\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3278\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞼸\x{200C}.≯䕵⫧", %p)}, undef, "to_unicode\(\'\?\\u200C\.\≯䕵\⫧\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3279\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞼸\x{200C}.>\x{0338}䕵⫧", %p)}, undef, "to_unicode\(\'\?\\u200C\.\>\\u0338䕵\⫧\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3280\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞼸\x{200C}.>\x{0338}䕵⫧", %p)}, undef, "to_unicode\(\'\?\\u200C\.\>\\u0338䕵\⫧\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3281\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐨅ß\x{FC57}.\x{06AC}۳︒", %p)}, undef, "to_unicode\(\'𐨅ß\\uFC57\.\\u06AC۳︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:3282\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("𐨅ß\x{064A}\x{062E}.\x{06AC}۳。", %p)}, undef, "to_unicode\(\'𐨅ß\\u064A\\u062E\.\\u06AC۳\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3283\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("𐨅SS\x{064A}\x{062E}.\x{06AC}۳。", %p)}, undef, "to_unicode\(\'𐨅SS\\u064A\\u062E\.\\u06AC۳\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3284\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("𐨅ss\x{064A}\x{062E}.\x{06AC}۳。", %p)}, undef, "to_unicode\(\'𐨅ss\\u064A\\u062E\.\\u06AC۳\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3285\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("𐨅Ss\x{064A}\x{062E}.\x{06AC}۳。", %p)}, undef, "to_unicode\(\'𐨅Ss\\u064A\\u062E\.\\u06AC۳\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3286\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𐨅SS\x{FC57}.\x{06AC}۳︒", %p)}, undef, "to_unicode\(\'𐨅SS\\uFC57\.\\u06AC۳︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:3287\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐨅ss\x{FC57}.\x{06AC}۳︒", %p)}, undef, "to_unicode\(\'𐨅ss\\uFC57\.\\u06AC۳︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:3288\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐨅Ss\x{FC57}.\x{06AC}۳︒", %p)}, undef, "to_unicode\(\'𐨅Ss\\uFC57\.\\u06AC۳︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:3289\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-≮🡒\x{1CED}.񏿾Ⴁ\x{0714}", %p)}, undef, "to_unicode\(\'\-\≮🡒\\u1CED\.\?Ⴁ\\u0714\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3290\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-<\x{0338}🡒\x{1CED}.񏿾Ⴁ\x{0714}", %p)}, undef, "to_unicode\(\'\-\<\\u0338🡒\\u1CED\.\?Ⴁ\\u0714\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3291\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-<\x{0338}🡒\x{1CED}.񏿾ⴁ\x{0714}", %p)}, undef, "to_unicode\(\'\-\<\\u0338🡒\\u1CED\.\?ⴁ\\u0714\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3292\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-≮🡒\x{1CED}.񏿾ⴁ\x{0714}", %p)}, undef, "to_unicode\(\'\-\≮🡒\\u1CED\.\?ⴁ\\u0714\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3293\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤨｡ꡏ\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'\?｡ꡏ\\u200D\\u200C\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3294\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤨｡ꡏ\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'\?｡ꡏ\\u200D\\u200C\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3295\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤨。ꡏ\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'\?\。ꡏ\\u200D\\u200C\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3296\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤨。ꡏ\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'\?\。ꡏ\\u200D\\u200C\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3297\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("xn--ge6h.xn--oc9a", %p)}, "𞤨.ꡏ", "to_unicode\(\'xn\-\-ge6h\.xn\-\-oc9a\'\)\ \[data\/IdnaTest\.txt\:3298\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤨.ꡏ", %p)}, "𞤨.ꡏ", "to_unicode\(\'\?\.ꡏ\'\)\ \[data\/IdnaTest\.txt\:3299\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("󠅹𑂶．ᢌ𑂹\x{0669}", %p)}, undef, "to_unicode\(\'\󠅹𑂶．ᢌ𑂹\\u0669\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3300\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("󠅹𑂶.ᢌ𑂹\x{0669}", %p)}, undef, "to_unicode\(\'\󠅹𑂶\.ᢌ𑂹\\u0669\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3301\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ⅎ󠅺񝵒。≯⾑", %p)}, undef, "to_unicode\(\'Ⅎ\󠅺\?\。\≯⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3302\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⅎ󠅺񝵒。>\x{0338}⾑", %p)}, undef, "to_unicode\(\'Ⅎ\󠅺\?\。\>\\u0338⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3303\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⅎ󠅺񝵒。≯襾", %p)}, undef, "to_unicode\(\'Ⅎ\󠅺\?\。\≯襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3304\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⅎ󠅺񝵒。>\x{0338}襾", %p)}, undef, "to_unicode\(\'Ⅎ\󠅺\?\。\>\\u0338襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3305\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⅎ󠅺񝵒。>\x{0338}襾", %p)}, undef, "to_unicode\(\'ⅎ\󠅺\?\。\>\\u0338襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3306\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⅎ󠅺񝵒。≯襾", %p)}, undef, "to_unicode\(\'ⅎ\󠅺\?\。\≯襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3307\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⅎ󠅺񝵒。>\x{0338}⾑", %p)}, undef, "to_unicode\(\'ⅎ\󠅺\?\。\>\\u0338⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3308\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⅎ󠅺񝵒。≯⾑", %p)}, undef, "to_unicode\(\'ⅎ\󠅺\?\。\≯⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3309\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς\x{200D}\x{0DD4}\x{0660}｡-", %p)}, undef, "to_unicode\(\'ς\\u200D\\u0DD4\\u0660｡\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3310\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς\x{200D}\x{0DD4}\x{0660}｡-", %p)}, undef, "to_unicode\(\'ς\\u200D\\u0DD4\\u0660｡\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3311\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς\x{200D}\x{0DD4}\x{0660}。-", %p)}, undef, "to_unicode\(\'ς\\u200D\\u0DD4\\u0660\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3312\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς\x{200D}\x{0DD4}\x{0660}。-", %p)}, undef, "to_unicode\(\'ς\\u200D\\u0DD4\\u0660\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3313\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ\x{200D}\x{0DD4}\x{0660}。-", %p)}, undef, "to_unicode\(\'Σ\\u200D\\u0DD4\\u0660\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3314\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ\x{200D}\x{0DD4}\x{0660}。-", %p)}, undef, "to_unicode\(\'Σ\\u200D\\u0DD4\\u0660\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3315\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ\x{200D}\x{0DD4}\x{0660}。-", %p)}, undef, "to_unicode\(\'σ\\u200D\\u0DD4\\u0660\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3316\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ\x{200D}\x{0DD4}\x{0660}。-", %p)}, undef, "to_unicode\(\'σ\\u200D\\u0DD4\\u0660\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3317\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ\x{200D}\x{0DD4}\x{0660}｡-", %p)}, undef, "to_unicode\(\'Σ\\u200D\\u0DD4\\u0660｡\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3318\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ\x{200D}\x{0DD4}\x{0660}｡-", %p)}, undef, "to_unicode\(\'Σ\\u200D\\u0DD4\\u0660｡\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3319\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ\x{200D}\x{0DD4}\x{0660}｡-", %p)}, undef, "to_unicode\(\'σ\\u200D\\u0DD4\\u0660｡\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3320\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ\x{200D}\x{0DD4}\x{0660}｡-", %p)}, undef, "to_unicode\(\'σ\\u200D\\u0DD4\\u0660｡\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3321\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.ßႩ-", %p)}, undef, "to_unicode\(\'\\u200C\.ßႩ\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:3322\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.ßႩ-", %p)}, undef, "to_unicode\(\'\\u200C\.ßႩ\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:3323\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200C}.ßⴉ-", %p)}, undef, "to_unicode\(\'\\u200C\.ßⴉ\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:3324\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200C}.ßⴉ-", %p)}, undef, "to_unicode\(\'\\u200C\.ßⴉ\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:3325\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200C}.SSႩ-", %p)}, undef, "to_unicode\(\'\\u200C\.SSႩ\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:3326\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.SSႩ-", %p)}, undef, "to_unicode\(\'\\u200C\.SSႩ\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:3327\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200C}.ssⴉ-", %p)}, undef, "to_unicode\(\'\\u200C\.ssⴉ\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:3328\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200C}.ssⴉ-", %p)}, undef, "to_unicode\(\'\\u200C\.ssⴉ\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:3329\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200C}.Ssⴉ-", %p)}, undef, "to_unicode\(\'\\u200C\.Ssⴉ\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:3330\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200C}.Ssⴉ-", %p)}, undef, "to_unicode\(\'\\u200C\.Ssⴉ\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:3331\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("󍭲𐫍㓱。⾑", %p)}, undef, "to_unicode\(\'\?𐫍㓱\。⾑\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3332\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󍭲𐫍㓱。襾", %p)}, undef, "to_unicode\(\'\?𐫍㓱\。襾\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3333\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06A0}𐮋𐹰≮。≯󠦗\x{200D}", %p)}, undef, "to_unicode\(\'\\u06A0𐮋𐹰\≮\。\≯\?\\u200D\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3334\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06A0}𐮋𐹰≮。≯󠦗\x{200D}", %p)}, undef, "to_unicode\(\'\\u06A0𐮋𐹰\≮\。\≯\?\\u200D\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3335\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06A0}𐮋𐹰<\x{0338}。>\x{0338}󠦗\x{200D}", %p)}, undef, "to_unicode\(\'\\u06A0𐮋𐹰\<\\u0338\。\>\\u0338\?\\u200D\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3336\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06A0}𐮋𐹰<\x{0338}。>\x{0338}󠦗\x{200D}", %p)}, undef, "to_unicode\(\'\\u06A0𐮋𐹰\<\\u0338\。\>\\u0338\?\\u200D\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3337\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟞｡񃰶\x{0777}\x{08B0}⩋", %p)}, undef, "to_unicode\(\'𝟞｡\?\\u0777\\u08B0\⩋\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3338\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("6。񃰶\x{0777}\x{08B0}⩋", %p)}, undef, "to_unicode\(\'6\。\?\\u0777\\u08B0\⩋\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3339\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-\x{FCFD}。𑇀𑍴", %p)}, undef, "to_unicode\(\'\-\\uFCFD\。𑇀𑍴\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3340\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-\x{FCFD}。𑇀𑍴", %p)}, undef, "to_unicode\(\'\-\\uFCFD\。𑇀𑍴\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3341\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-\x{0634}\x{0649}。𑇀𑍴", %p)}, undef, "to_unicode\(\'\-\\u0634\\u0649\。𑇀𑍴\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3342\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200C}󠊶𝟏.\x{0D43}򪥐𐹬󊓶", %p)}, undef, "to_unicode\(\'\\u200C\?𝟏\.\\u0D43\?𐹬\?\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:3343\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠊶𝟏.\x{0D43}򪥐𐹬󊓶", %p)}, undef, "to_unicode\(\'\\u200C\?𝟏\.\\u0D43\?𐹬\?\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:3344\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠊶1.\x{0D43}򪥐𐹬󊓶", %p)}, undef, "to_unicode\(\'\\u200C\?1\.\\u0D43\?𐹬\?\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:3345\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠊶1.\x{0D43}򪥐𐹬󊓶", %p)}, undef, "to_unicode\(\'\\u200C\?1\.\\u0D43\?𐹬\?\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:3346\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("齙--𝟰.ß", %p)}, "齙--4.ß", "to_unicode\(\'齙\-\-𝟰\.ß\'\)\ \[data\/IdnaTest\.txt\:3347\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("齙--𝟰.ß", %p)}, "齙--4.ß", "to_unicode\(\'齙\-\-𝟰\.ß\'\)\ \[data\/IdnaTest\.txt\:3348\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("齙--4.ß", %p)}, "齙--4.ß", "to_unicode\(\'齙\-\-4\.ß\'\)\ \[data\/IdnaTest\.txt\:3349\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("齙--4.ß", %p)}, "齙--4.ß", "to_unicode\(\'齙\-\-4\.ß\'\)\ \[data\/IdnaTest\.txt\:3350\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("齙--4.SS", %p)}, "齙--4.ss", "to_unicode\(\'齙\-\-4\.SS\'\)\ \[data\/IdnaTest\.txt\:3351\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn----4-p16k.ss", %p)}, "齙--4.ss", "to_unicode\(\'xn\-\-\-\-4\-p16k\.ss\'\)\ \[data\/IdnaTest\.txt\:3352\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn----4-p16k.xn--zca", %p)}, "齙--4.ß", "to_unicode\(\'xn\-\-\-\-4\-p16k\.xn\-\-zca\'\)\ \[data\/IdnaTest\.txt\:3353\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("齙--𝟰.SS", %p)}, "齙--4.ss", "to_unicode\(\'齙\-\-𝟰\.SS\'\)\ \[data\/IdnaTest\.txt\:3354\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{1BF2}.𐹢𞀖\x{200C}", %p)}, undef, "to_unicode\(\'\\u1BF2\.𐹢\?\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3355\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{1BF2}.𐹢𞀖\x{200C}", %p)}, undef, "to_unicode\(\'\\u1BF2\.𐹢\?\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3356\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("󃲙󠋘｡\x{DEDE}-\x{200D}", %p)}, undef, "to_unicode\(\'\?\?｡\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3357\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󃲙󠋘｡\x{DEDE}-\x{200D}", %p)}, undef, "to_unicode\(\'\?\?｡\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3358\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󃲙󠋘。\x{DEDE}-\x{200D}", %p)}, undef, "to_unicode\(\'\?\?\。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3359\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󃲙󠋘。\x{DEDE}-\x{200D}", %p)}, undef, "to_unicode\(\'\?\?\。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3360\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1A60}．𞵷-𝪩悎", %p)}, undef, "to_unicode\(\'\\u1A60．\?\-𝪩悎\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3361\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1A60}.𞵷-𝪩悎", %p)}, undef, "to_unicode\(\'\\u1A60\.\?\-𝪩悎\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3362\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𛜯󠊛．𞤳񏥾", %p)}, undef, "to_unicode\(\'\?\?．\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3363\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𛜯󠊛.𞤳񏥾", %p)}, undef, "to_unicode\(\'\?\?\.\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3364\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{071C}𐫒\x{062E}.𐋲", %p)}, "\x{071C}𐫒\x{062E}.𐋲", "to_unicode\(\'\\u071C𐫒\\u062E\.𐋲\'\)\ \[data\/IdnaTest\.txt\:3365\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--tgb98b8643d.xn--m97c", %p)}, "\x{071C}𐫒\x{062E}.𐋲", "to_unicode\(\'xn\-\-tgb98b8643d\.xn\-\-m97c\'\)\ \[data\/IdnaTest\.txt\:3366\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𐼑𞤓\x{0637}\x{08E2}.\x{DF56}", %p)}, undef, "to_unicode\(\'\?\?\\u0637\\u08E2\.\\uDF56\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3367\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ↄ。\x{0A4D}\x{1CD4}𞷣", %p)}, undef, "to_unicode\(\'Ↄ\。\\u0A4D\\u1CD4\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3368\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ↄ。\x{1CD4}\x{0A4D}𞷣", %p)}, undef, "to_unicode\(\'Ↄ\。\\u1CD4\\u0A4D\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3369\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ↄ。\x{1CD4}\x{0A4D}𞷣", %p)}, undef, "to_unicode\(\'ↄ\。\\u1CD4\\u0A4D\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3370\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ↄ。\x{0A4D}\x{1CD4}𞷣", %p)}, undef, "to_unicode\(\'ↄ\。\\u0A4D\\u1CD4\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3371\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠪢-。򛂏≮𑜫", %p)}, undef, "to_unicode\(\'\?\-\。\?\≮𑜫\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3372\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠪢-。򛂏<\x{0338}𑜫", %p)}, undef, "to_unicode\(\'\?\-\。\?\<\\u0338𑜫\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3373\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠉹\x{200D}。򌿧≮Ⴉ", %p)}, undef, "to_unicode\(\'\\u200C\?\\u200D\。\?\≮Ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3374\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠉹\x{200D}。򌿧≮Ⴉ", %p)}, undef, "to_unicode\(\'\\u200C\?\\u200D\。\?\≮Ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3375\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠉹\x{200D}。򌿧<\x{0338}Ⴉ", %p)}, undef, "to_unicode\(\'\\u200C\?\\u200D\。\?\<\\u0338Ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3376\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠉹\x{200D}。򌿧<\x{0338}Ⴉ", %p)}, undef, "to_unicode\(\'\\u200C\?\\u200D\。\?\<\\u0338Ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3377\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠉹\x{200D}。򌿧<\x{0338}ⴉ", %p)}, undef, "to_unicode\(\'\\u200C\?\\u200D\。\?\<\\u0338ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3378\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠉹\x{200D}。򌿧<\x{0338}ⴉ", %p)}, undef, "to_unicode\(\'\\u200C\?\\u200D\。\?\<\\u0338ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3379\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠉹\x{200D}。򌿧≮ⴉ", %p)}, undef, "to_unicode\(\'\\u200C\?\\u200D\。\?\≮ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3380\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠉹\x{200D}。򌿧≮ⴉ", %p)}, undef, "to_unicode\(\'\\u200C\?\\u200D\。\?\≮ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3381\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹯-𑄴\x{08BC}。︒䖐⾆", %p)}, undef, "to_unicode\(\'𐹯\-𑄴\\u08BC\。︒䖐⾆\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3382\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𐹯-𑄴\x{08BC}。。䖐舌", %p)}, undef, "to_unicode\(\'𐹯\-𑄴\\u08BC\。\。䖐舌\'\)\ throws\ error\ B1\ A4_2\ \[data\/IdnaTest\.txt\:3383\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𝪞Ⴐ｡쪡", %p)}, undef, "to_unicode\(\'𝪞Ⴐ｡쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3384\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝪞Ⴐ｡쪡", %p)}, undef, "to_unicode\(\'𝪞Ⴐ｡쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3385\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝪞Ⴐ。쪡", %p)}, undef, "to_unicode\(\'𝪞Ⴐ\。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3386\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝪞Ⴐ。쪡", %p)}, undef, "to_unicode\(\'𝪞Ⴐ\。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3387\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𝪞ⴐ。쪡", %p)}, undef, "to_unicode\(\'𝪞ⴐ\。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3388\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𝪞ⴐ。쪡", %p)}, undef, "to_unicode\(\'𝪞ⴐ\。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3389\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𝪞ⴐ｡쪡", %p)}, undef, "to_unicode\(\'𝪞ⴐ｡쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3390\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𝪞ⴐ｡쪡", %p)}, undef, "to_unicode\(\'𝪞ⴐ｡쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3391\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{0E3A}쩁𐹬.􋉳", %p)}, undef, "to_unicode\(\'\\u0E3A쩁𐹬\.\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3392\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0E3A}쩁𐹬.􋉳", %p)}, undef, "to_unicode\(\'\\u0E3A쩁𐹬\.\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3393\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡅ０\x{200C}｡⎢󤨄", %p)}, undef, "to_unicode\(\'ᡅ０\\u200C｡\⎢\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3394\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡅ０\x{200C}｡⎢󤨄", %p)}, undef, "to_unicode\(\'ᡅ０\\u200C｡\⎢\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3395\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡅ0\x{200C}。⎢󤨄", %p)}, undef, "to_unicode\(\'ᡅ0\\u200C\。\⎢\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3396\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡅ0\x{200C}。⎢󤨄", %p)}, undef, "to_unicode\(\'ᡅ0\\u200C\。\⎢\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3397\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲮚９ꍩ\x{17D3}．\x{200D}ß", %p)}, undef, "to_unicode\(\'\?９ꍩ\\u17D3．\\u200Dß\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3398\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲮚９ꍩ\x{17D3}．\x{200D}ß", %p)}, undef, "to_unicode\(\'\?９ꍩ\\u17D3．\\u200Dß\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3399\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲮚9ꍩ\x{17D3}.\x{200D}ß", %p)}, undef, "to_unicode\(\'\?9ꍩ\\u17D3\.\\u200Dß\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3400\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲮚9ꍩ\x{17D3}.\x{200D}ß", %p)}, undef, "to_unicode\(\'\?9ꍩ\\u17D3\.\\u200Dß\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3401\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲮚9ꍩ\x{17D3}.\x{200D}SS", %p)}, undef, "to_unicode\(\'\?9ꍩ\\u17D3\.\\u200DSS\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3402\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲮚9ꍩ\x{17D3}.\x{200D}SS", %p)}, undef, "to_unicode\(\'\?9ꍩ\\u17D3\.\\u200DSS\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3403\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲮚9ꍩ\x{17D3}.\x{200D}ss", %p)}, undef, "to_unicode\(\'\?9ꍩ\\u17D3\.\\u200Dss\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3404\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲮚9ꍩ\x{17D3}.\x{200D}ss", %p)}, undef, "to_unicode\(\'\?9ꍩ\\u17D3\.\\u200Dss\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3405\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲮚9ꍩ\x{17D3}.\x{200D}Ss", %p)}, undef, "to_unicode\(\'\?9ꍩ\\u17D3\.\\u200DSs\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3406\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲮚9ꍩ\x{17D3}.\x{200D}Ss", %p)}, undef, "to_unicode\(\'\?9ꍩ\\u17D3\.\\u200DSs\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3407\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲮚９ꍩ\x{17D3}．\x{200D}SS", %p)}, undef, "to_unicode\(\'\?９ꍩ\\u17D3．\\u200DSS\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3408\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲮚９ꍩ\x{17D3}．\x{200D}SS", %p)}, undef, "to_unicode\(\'\?９ꍩ\\u17D3．\\u200DSS\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3409\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲮚９ꍩ\x{17D3}．\x{200D}ss", %p)}, undef, "to_unicode\(\'\?９ꍩ\\u17D3．\\u200Dss\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3410\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲮚９ꍩ\x{17D3}．\x{200D}ss", %p)}, undef, "to_unicode\(\'\?９ꍩ\\u17D3．\\u200Dss\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3411\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲮚９ꍩ\x{17D3}．\x{200D}Ss", %p)}, undef, "to_unicode\(\'\?９ꍩ\\u17D3．\\u200DSs\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3412\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲮚９ꍩ\x{17D3}．\x{200D}Ss", %p)}, undef, "to_unicode\(\'\?９ꍩ\\u17D3．\\u200DSs\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3413\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("ꗷ𑆀.\x{075D}𐩒", %p)}, "ꗷ𑆀.\x{075D}𐩒", "to_unicode\(\'ꗷ𑆀\.\\u075D𐩒\'\)\ \[data\/IdnaTest\.txt\:3414\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("xn--ju8a625r.xn--hpb0073k", %p)}, "ꗷ𑆀.\x{075D}𐩒", "to_unicode\(\'xn\-\-ju8a625r\.xn\-\-hpb0073k\'\)\ \[data\/IdnaTest\.txt\:3415\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("⒐≯-。︒򩑣-񞛠", %p)}, undef, "to_unicode\(\'⒐\≯\-\。︒\?\-\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3416\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒐>\x{0338}-。︒򩑣-񞛠", %p)}, undef, "to_unicode\(\'⒐\>\\u0338\-\。︒\?\-\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3417\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("9.≯-。。򩑣-񞛠", %p)}, undef, "to_unicode\(\'9\.\≯\-\。\。\?\-\?\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3418\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("9.>\x{0338}-。。򩑣-񞛠", %p)}, undef, "to_unicode\(\'9\.\>\\u0338\-\。\。\?\-\?\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3419\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򈪚\x{0CE3}Ⴡ󠢏．\x{061D}", %p)}, undef, "to_unicode\(\'\?\\u0CE3Ⴡ\?．\\u061D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3420\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򈪚\x{0CE3}Ⴡ󠢏.\x{061D}", %p)}, undef, "to_unicode\(\'\?\\u0CE3Ⴡ\?\.\\u061D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3421\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򈪚\x{0CE3}ⴡ󠢏.\x{061D}", %p)}, undef, "to_unicode\(\'\?\\u0CE3ⴡ\?\.\\u061D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3422\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򈪚\x{0CE3}ⴡ󠢏．\x{061D}", %p)}, undef, "to_unicode\(\'\?\\u0CE3ⴡ\?．\\u061D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3423\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{1DEB}。𐋩\x{0638}-𐫮", %p)}, undef, "to_unicode\(\'\\u1DEB\。𐋩\\u0638\-𐫮\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3424\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("싇。⾇𐳋Ⴝ", %p)}, undef, "to_unicode\(\'싇\。⾇𐳋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3425\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("싇。⾇𐳋Ⴝ", %p)}, undef, "to_unicode\(\'싇\。⾇𐳋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3426\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("싇。舛𐳋Ⴝ", %p)}, undef, "to_unicode\(\'싇\。舛𐳋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3427\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("싇。舛𐳋Ⴝ", %p)}, undef, "to_unicode\(\'싇\。舛𐳋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3428\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("싇。舛𐳋ⴝ", %p)}, undef, "to_unicode\(\'싇\。舛𐳋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3429\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("싇。舛𐳋ⴝ", %p)}, undef, "to_unicode\(\'싇\。舛𐳋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3430\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("싇。舛𐲋Ⴝ", %p)}, undef, "to_unicode\(\'싇\。舛𐲋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3431\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("싇。舛𐲋Ⴝ", %p)}, undef, "to_unicode\(\'싇\。舛𐲋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3432\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("싇。舛𐲋ⴝ", %p)}, undef, "to_unicode\(\'싇\。舛𐲋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3433\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("싇。舛𐲋ⴝ", %p)}, undef, "to_unicode\(\'싇\。舛𐲋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3434\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("싇。⾇𐳋ⴝ", %p)}, undef, "to_unicode\(\'싇\。⾇𐳋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3435\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("싇。⾇𐳋ⴝ", %p)}, undef, "to_unicode\(\'싇\。⾇𐳋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3436\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("싇。⾇𐲋Ⴝ", %p)}, undef, "to_unicode\(\'싇\。⾇𐲋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3437\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("싇。⾇𐲋Ⴝ", %p)}, undef, "to_unicode\(\'싇\。⾇𐲋Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3438\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("싇。⾇𐲋ⴝ", %p)}, undef, "to_unicode\(\'싇\。⾇𐲋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3439\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("싇。⾇𐲋ⴝ", %p)}, undef, "to_unicode\(\'싇\。⾇𐲋ⴝ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:3440\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𐹠ς。\x{200C}\x{06BF}Ⴠ", %p)}, undef, "to_unicode\(\'𐹠ς\。\\u200C\\u06BFჀ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3441\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹠ς。\x{200C}\x{06BF}Ⴠ", %p)}, undef, "to_unicode\(\'𐹠ς\。\\u200C\\u06BFჀ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3442\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹠ς。\x{200C}\x{06BF}ⴠ", %p)}, undef, "to_unicode\(\'𐹠ς\。\\u200C\\u06BFⴠ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:3443\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹠ς。\x{200C}\x{06BF}ⴠ", %p)}, undef, "to_unicode\(\'𐹠ς\。\\u200C\\u06BFⴠ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:3444\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𐹠Σ。\x{200C}\x{06BF}Ⴠ", %p)}, undef, "to_unicode\(\'𐹠Σ\。\\u200C\\u06BFჀ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3445\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹠Σ。\x{200C}\x{06BF}Ⴠ", %p)}, undef, "to_unicode\(\'𐹠Σ\。\\u200C\\u06BFჀ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3446\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹠σ。\x{200C}\x{06BF}ⴠ", %p)}, undef, "to_unicode\(\'𐹠σ\。\\u200C\\u06BFⴠ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:3447\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹠σ。\x{200C}\x{06BF}ⴠ", %p)}, undef, "to_unicode\(\'𐹠σ\。\\u200C\\u06BFⴠ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:3448\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("򇒐\x{200C}\x{0604}.\x{069A}-ß", %p)}, undef, "to_unicode\(\'\?\\u200C\\u0604\.\\u069A\-ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3449\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򇒐\x{200C}\x{0604}.\x{069A}-ß", %p)}, undef, "to_unicode\(\'\?\\u200C\\u0604\.\\u069A\-ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3450\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򇒐\x{200C}\x{0604}.\x{069A}-SS", %p)}, undef, "to_unicode\(\'\?\\u200C\\u0604\.\\u069A\-SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3451\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򇒐\x{200C}\x{0604}.\x{069A}-SS", %p)}, undef, "to_unicode\(\'\?\\u200C\\u0604\.\\u069A\-SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3452\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򇒐\x{200C}\x{0604}.\x{069A}-ss", %p)}, undef, "to_unicode\(\'\?\\u200C\\u0604\.\\u069A\-ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3453\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򇒐\x{200C}\x{0604}.\x{069A}-ss", %p)}, undef, "to_unicode\(\'\?\\u200C\\u0604\.\\u069A\-ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3454\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򇒐\x{200C}\x{0604}.\x{069A}-Ss", %p)}, undef, "to_unicode\(\'\?\\u200C\\u0604\.\\u069A\-Ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3455\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򇒐\x{200C}\x{0604}.\x{069A}-Ss", %p)}, undef, "to_unicode\(\'\?\\u200C\\u0604\.\\u069A\-Ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3456\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{200D}\x{17B5}\x{067A}.-\x{FBB0}󅄞𐸚", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\\u17B5\\u067A\.\-\\uFBB0\?\?\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:3457\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{200D}\x{17B5}\x{067A}.-\x{FBB0}󅄞𐸚", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\\u17B5\\u067A\.\-\\uFBB0\?\?\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:3458\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{200D}\x{17B5}\x{067A}.-\x{06D3}󅄞𐸚", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\\u17B5\\u067A\.\-\\u06D3\?\?\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:3459\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{200D}\x{17B5}\x{067A}.-\x{06D3}󅄞𐸚", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\\u17B5\\u067A\.\-\\u06D3\?\?\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:3460\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{200D}\x{17B5}\x{067A}.-\x{06D2}\x{0654}󅄞𐸚", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\\u17B5\\u067A\.\-\\u06D2\\u0654\?\?\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:3461\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{200D}\x{17B5}\x{067A}.-\x{06D2}\x{0654}󅄞𐸚", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\\u17B5\\u067A\.\-\\u06D2\\u0654\?\?\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:3462\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򡶱｡𐮬≠", %p)}, undef, "to_unicode\(\'\?｡𐮬\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3463\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򡶱｡𐮬=\x{0338}", %p)}, undef, "to_unicode\(\'\?｡𐮬\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3464\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򡶱。𐮬≠", %p)}, undef, "to_unicode\(\'\?\。𐮬\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3465\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򡶱。𐮬=\x{0338}", %p)}, undef, "to_unicode\(\'\?\。𐮬\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3466\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0FB2}𞶅｡𐹮𐹷덝۵", %p)}, undef, "to_unicode\(\'\\u0FB2\?｡𐹮𐹷덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3467\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0FB2}𞶅｡𐹮𐹷덝۵", %p)}, undef, "to_unicode\(\'\\u0FB2\?｡𐹮𐹷덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3468\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0FB2}𞶅。𐹮𐹷덝۵", %p)}, undef, "to_unicode\(\'\\u0FB2\?\。𐹮𐹷덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3469\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0FB2}𞶅。𐹮𐹷덝۵", %p)}, undef, "to_unicode\(\'\\u0FB2\?\。𐹮𐹷덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3470\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴏ󠅋-．\x{200D}Ⴉ", %p)}, undef, "to_unicode\(\'Ⴏ\󠅋\-．\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3471\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴏ󠅋-．\x{200D}Ⴉ", %p)}, undef, "to_unicode\(\'Ⴏ\󠅋\-．\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3472\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴏ󠅋-.\x{200D}Ⴉ", %p)}, undef, "to_unicode\(\'Ⴏ\󠅋\-\.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3473\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴏ󠅋-.\x{200D}Ⴉ", %p)}, undef, "to_unicode\(\'Ⴏ\󠅋\-\.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3474\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴏ󠅋-.\x{200D}ⴉ", %p)}, undef, "to_unicode\(\'ⴏ\󠅋\-\.\\u200Dⴉ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3475\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴏ󠅋-.\x{200D}ⴉ", %p)}, undef, "to_unicode\(\'ⴏ\󠅋\-\.\\u200Dⴉ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3476\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴏ󠅋-．\x{200D}ⴉ", %p)}, undef, "to_unicode\(\'ⴏ\󠅋\-．\\u200Dⴉ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3477\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴏ󠅋-．\x{200D}ⴉ", %p)}, undef, "to_unicode\(\'ⴏ\󠅋\-．\\u200Dⴉ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3478\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("⇧𐨏󠾈󯶅。\x{0600}󠈵󠆉", %p)}, undef, "to_unicode\(\'\⇧𐨏\?\?\。\\u0600\?\󠆉\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3479\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠𐮂.↑🄇⒈", %p)}, undef, "to_unicode\(\'\≠𐮂\.\↑🄇⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3480\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}𐮂.↑🄇⒈", %p)}, undef, "to_unicode\(\'\=\\u0338𐮂\.\↑🄇⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3481\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠𐮂.↑6,1.", %p)}, undef, "to_unicode\(\'\≠𐮂\.\↑6\,1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3482\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}𐮂.↑6,1.", %p)}, undef, "to_unicode\(\'\=\\u0338𐮂\.\↑6\,1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3483\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝩏󠲉ß.ᢤ򄦌\x{200C}𐹫", %p)}, undef, "to_unicode\(\'𝩏\?ß\.ᢤ\?\\u200C𐹫\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3484\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝩏󠲉ß.ᢤ򄦌\x{200C}𐹫", %p)}, undef, "to_unicode\(\'𝩏\?ß\.ᢤ\?\\u200C𐹫\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3485\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝩏󠲉SS.ᢤ򄦌\x{200C}𐹫", %p)}, undef, "to_unicode\(\'𝩏\?SS\.ᢤ\?\\u200C𐹫\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3486\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝩏󠲉SS.ᢤ򄦌\x{200C}𐹫", %p)}, undef, "to_unicode\(\'𝩏\?SS\.ᢤ\?\\u200C𐹫\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3487\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝩏󠲉ss.ᢤ򄦌\x{200C}𐹫", %p)}, undef, "to_unicode\(\'𝩏\?ss\.ᢤ\?\\u200C𐹫\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3488\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝩏󠲉ss.ᢤ򄦌\x{200C}𐹫", %p)}, undef, "to_unicode\(\'𝩏\?ss\.ᢤ\?\\u200C𐹫\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3489\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝩏󠲉Ss.ᢤ򄦌\x{200C}𐹫", %p)}, undef, "to_unicode\(\'𝩏\?Ss\.ᢤ\?\\u200C𐹫\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3490\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝩏󠲉Ss.ᢤ򄦌\x{200C}𐹫", %p)}, undef, "to_unicode\(\'𝩏\?Ss\.ᢤ\?\\u200C𐹫\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3491\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß𐵳񗘁Ⴇ｡\x{A67A}", %p)}, undef, "to_unicode\(\'ß\?\?Ⴇ｡\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3492\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß𐵳񗘁Ⴇ。\x{A67A}", %p)}, undef, "to_unicode\(\'ß\?\?Ⴇ\。\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3493\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß𐵳񗘁ⴇ。\x{A67A}", %p)}, undef, "to_unicode\(\'ß\?\?ⴇ\。\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3494\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("SS𐵳񗘁Ⴇ。\x{A67A}", %p)}, undef, "to_unicode\(\'SS\?\?Ⴇ\。\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3495\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ss𐵳񗘁ⴇ。\x{A67A}", %p)}, undef, "to_unicode\(\'ss\?\?ⴇ\。\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3496\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ss𐵳񗘁Ⴇ。\x{A67A}", %p)}, undef, "to_unicode\(\'Ss\?\?Ⴇ\。\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3497\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß𐵳񗘁ⴇ｡\x{A67A}", %p)}, undef, "to_unicode\(\'ß\?\?ⴇ｡\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3498\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("SS𐵳񗘁Ⴇ｡\x{A67A}", %p)}, undef, "to_unicode\(\'SS\?\?Ⴇ｡\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3499\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ss𐵳񗘁ⴇ｡\x{A67A}", %p)}, undef, "to_unicode\(\'ss\?\?ⴇ｡\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3500\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ss𐵳񗘁Ⴇ｡\x{A67A}", %p)}, undef, "to_unicode\(\'Ss\?\?Ⴇ｡\\uA67A\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3501\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{1714}。󠆣-𑋪", %p)}, undef, "to_unicode\(\'\\u1714\。\󠆣\-𑋪\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3502\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{ABE8}-．򨏜\x{05BD}ß", %p)}, undef, "to_unicode\(\'\\uABE8\-．\?\\u05BDß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3503\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{ABE8}-.򨏜\x{05BD}ß", %p)}, undef, "to_unicode\(\'\\uABE8\-\.\?\\u05BDß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3504\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{ABE8}-.򨏜\x{05BD}SS", %p)}, undef, "to_unicode\(\'\\uABE8\-\.\?\\u05BDSS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3505\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{ABE8}-.򨏜\x{05BD}ss", %p)}, undef, "to_unicode\(\'\\uABE8\-\.\?\\u05BDss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3506\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{ABE8}-.򨏜\x{05BD}Ss", %p)}, undef, "to_unicode\(\'\\uABE8\-\.\?\\u05BDSs\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3507\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{ABE8}-．򨏜\x{05BD}SS", %p)}, undef, "to_unicode\(\'\\uABE8\-．\?\\u05BDSS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3508\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{ABE8}-．򨏜\x{05BD}ss", %p)}, undef, "to_unicode\(\'\\uABE8\-．\?\\u05BDss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3509\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{ABE8}-．򨏜\x{05BD}Ss", %p)}, undef, "to_unicode\(\'\\uABE8\-．\?\\u05BDSs\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3510\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡓ-≮。\x{066B}󠅱ᡄ", %p)}, undef, "to_unicode\(\'ᡓ\-\≮\。\\u066B\󠅱ᡄ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3511\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡓ-<\x{0338}。\x{066B}󠅱ᡄ", %p)}, undef, "to_unicode\(\'ᡓ\-\<\\u0338\。\\u066B\󠅱ᡄ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3512\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𝟥♮𑜫\x{08ED}．\x{17D2}𑜫8󠆏", %p)}, undef, "to_unicode\(\'𝟥\♮𑜫\\u08ED．\\u17D2𑜫8\󠆏\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3513\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("3♮𑜫\x{08ED}.\x{17D2}𑜫8󠆏", %p)}, undef, "to_unicode\(\'3\♮𑜫\\u08ED\.\\u17D2𑜫8\󠆏\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3514\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("-｡򕌀\x{200D}❡", %p)}, undef, "to_unicode\(\'\-｡\?\\u200D\❡\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3515\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-｡򕌀\x{200D}❡", %p)}, undef, "to_unicode\(\'\-｡\?\\u200D\❡\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3516\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-。򕌀\x{200D}❡", %p)}, undef, "to_unicode\(\'\-\。\?\\u200D\❡\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3517\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-。򕌀\x{200D}❡", %p)}, undef, "to_unicode\(\'\-\。\?\\u200D\❡\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3518\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟓☱𝟐򥰵｡𝪮񐡳", %p)}, undef, "to_unicode\(\'𝟓\☱𝟐\?｡𝪮\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3519\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("5☱2򥰵。𝪮񐡳", %p)}, undef, "to_unicode\(\'5\☱2\?\。𝪮\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3520\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-.-├򖦣", %p)}, undef, "to_unicode\(\'\-\.\-\├\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3521\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{05A5}\x{076D}｡\x{200D}󠀘", %p)}, undef, "to_unicode\(\'\\u05A5\\u076D｡\\u200D\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3522\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{05A5}\x{076D}｡\x{200D}󠀘", %p)}, undef, "to_unicode\(\'\\u05A5\\u076D｡\\u200D\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3523\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{05A5}\x{076D}。\x{200D}󠀘", %p)}, undef, "to_unicode\(\'\\u05A5\\u076D\。\\u200D\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3524\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{05A5}\x{076D}。\x{200D}󠀘", %p)}, undef, "to_unicode\(\'\\u05A5\\u076D\。\\u200D\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3525\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("쥥󔏉Ⴎ．\x{200C}⒈⒈𐫒", %p)}, undef, "to_unicode\(\'쥥\?Ⴎ．\\u200C⒈⒈𐫒\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3526\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("쥥󔏉Ⴎ．\x{200C}⒈⒈𐫒", %p)}, undef, "to_unicode\(\'쥥\?Ⴎ．\\u200C⒈⒈𐫒\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3527\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("쥥󔏉Ⴎ．\x{200C}⒈⒈𐫒", %p)}, undef, "to_unicode\(\'쥥\?Ⴎ．\\u200C⒈⒈𐫒\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3528\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("쥥󔏉Ⴎ．\x{200C}⒈⒈𐫒", %p)}, undef, "to_unicode\(\'쥥\?Ⴎ．\\u200C⒈⒈𐫒\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3529\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("쥥󔏉Ⴎ.\x{200C}1.1.𐫒", %p)}, undef, "to_unicode\(\'쥥\?Ⴎ\.\\u200C1\.1\.𐫒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3530\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("쥥󔏉Ⴎ.\x{200C}1.1.𐫒", %p)}, undef, "to_unicode\(\'쥥\?Ⴎ\.\\u200C1\.1\.𐫒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3531\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("쥥󔏉Ⴎ.\x{200C}1.1.𐫒", %p)}, undef, "to_unicode\(\'쥥\?Ⴎ\.\\u200C1\.1\.𐫒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3532\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("쥥󔏉Ⴎ.\x{200C}1.1.𐫒", %p)}, undef, "to_unicode\(\'쥥\?Ⴎ\.\\u200C1\.1\.𐫒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3533\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("쥥󔏉ⴎ.\x{200C}1.1.𐫒", %p)}, undef, "to_unicode\(\'쥥\?ⴎ\.\\u200C1\.1\.𐫒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3534\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("쥥󔏉ⴎ.\x{200C}1.1.𐫒", %p)}, undef, "to_unicode\(\'쥥\?ⴎ\.\\u200C1\.1\.𐫒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3535\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("쥥󔏉ⴎ.\x{200C}1.1.𐫒", %p)}, undef, "to_unicode\(\'쥥\?ⴎ\.\\u200C1\.1\.𐫒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3536\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("쥥󔏉ⴎ.\x{200C}1.1.𐫒", %p)}, undef, "to_unicode\(\'쥥\?ⴎ\.\\u200C1\.1\.𐫒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3537\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("쥥󔏉ⴎ．\x{200C}⒈⒈𐫒", %p)}, undef, "to_unicode\(\'쥥\?ⴎ．\\u200C⒈⒈𐫒\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3538\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("쥥󔏉ⴎ．\x{200C}⒈⒈𐫒", %p)}, undef, "to_unicode\(\'쥥\?ⴎ．\\u200C⒈⒈𐫒\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3539\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("쥥󔏉ⴎ．\x{200C}⒈⒈𐫒", %p)}, undef, "to_unicode\(\'쥥\?ⴎ．\\u200C⒈⒈𐫒\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3540\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("쥥󔏉ⴎ．\x{200C}⒈⒈𐫒", %p)}, undef, "to_unicode\(\'쥥\?ⴎ．\\u200C⒈⒈𐫒\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3541\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{0827}𝟶\x{06A0}-。𑄳", %p)}, undef, "to_unicode\(\'\\u0827𝟶\\u06A0\-\。𑄳\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3542\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{0827}0\x{06A0}-。𑄳", %p)}, undef, "to_unicode\(\'\\u08270\\u06A0\-\。𑄳\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3543\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("ς．\x{FDC1}🞛⒈", %p)}, undef, "to_unicode\(\'ς．\\uFDC1🞛⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3544\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ς.\x{0641}\x{0645}\x{064A}🞛1.", %p)}, "ς.\x{0641}\x{0645}\x{064A}🞛1.", "to_unicode\(\'ς\.\\u0641\\u0645\\u064A🞛1\.\'\)\ \[data\/IdnaTest\.txt\:3545\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ς.\x{0641}\x{0645}\x{064A}🞛1.", %p)}, "ς.\x{0641}\x{0645}\x{064A}🞛1.", "to_unicode\(\'ς\.\\u0641\\u0645\\u064A🞛1\.\'\)\ \[data\/IdnaTest\.txt\:3546\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Σ.\x{0641}\x{0645}\x{064A}🞛1.", %p)}, "σ.\x{0641}\x{0645}\x{064A}🞛1.", "to_unicode\(\'Σ\.\\u0641\\u0645\\u064A🞛1\.\'\)\ \[data\/IdnaTest\.txt\:3547\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("σ.\x{0641}\x{0645}\x{064A}🞛1.", %p)}, "σ.\x{0641}\x{0645}\x{064A}🞛1.", "to_unicode\(\'σ\.\\u0641\\u0645\\u064A🞛1\.\'\)\ \[data\/IdnaTest\.txt\:3548\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--4xa.xn--1-gocmu97674d.", %p)}, "σ.\x{0641}\x{0645}\x{064A}🞛1.", "to_unicode\(\'xn\-\-4xa\.xn\-\-1\-gocmu97674d\.\'\)\ \[data\/IdnaTest\.txt\:3549\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--3xa.xn--1-gocmu97674d.", %p)}, "ς.\x{0641}\x{0645}\x{064A}🞛1.", "to_unicode\(\'xn\-\-3xa\.xn\-\-1\-gocmu97674d\.\'\)\ \[data\/IdnaTest\.txt\:3550\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Σ．\x{FDC1}🞛⒈", %p)}, undef, "to_unicode\(\'Σ．\\uFDC1🞛⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3551\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ．\x{FDC1}🞛⒈", %p)}, undef, "to_unicode\(\'σ．\\uFDC1🞛⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3552\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🗩-｡𐹻󐞆񥉮", %p)}, undef, "to_unicode\(\'🗩\-｡𐹻\?\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3553\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🗩-。𐹻󐞆񥉮", %p)}, undef, "to_unicode\(\'🗩\-\。𐹻\?\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3554\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐡜-🔪｡𝟻\x{200C}𐿀", %p)}, undef, "to_unicode\(\'𐡜\-🔪｡𝟻\\u200C\?\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:3555\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐡜-🔪｡𝟻\x{200C}𐿀", %p)}, undef, "to_unicode\(\'𐡜\-🔪｡𝟻\\u200C\?\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:3556\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐡜-🔪。5\x{200C}𐿀", %p)}, undef, "to_unicode\(\'𐡜\-🔪\。5\\u200C\?\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:3557\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐡜-🔪。5\x{200C}𐿀", %p)}, undef, "to_unicode\(\'𐡜\-🔪\。5\\u200C\?\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:3558\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}ß．\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200Dß．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3559\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}ß．\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200Dß．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3560\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}ß．\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200Dß．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3561\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}ß．\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200Dß．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3562\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}ß.\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200Dß\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3563\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}ß.\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200Dß\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3564\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}ß.\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200Dß\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3565\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}ß.\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200Dß\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3566\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}SS.\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200DSS\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3567\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}SS.\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200DSS\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3568\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}SS.\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200DSS\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3569\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}SS.\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200DSS\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3570\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}ss.\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200Dss\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3571\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}ss.\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200Dss\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3572\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}ss.\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200Dss\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3573\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}ss.\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200Dss\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3574\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}Ss.\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200DSs\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3575\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}Ss.\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200DSs\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3576\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}Ss.\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200DSs\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3577\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}Ss.\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200DSs\.\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3578\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}SS．\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200DSS．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3579\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}SS．\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200DSS．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3580\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}SS．\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200DSS．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3581\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}SS．\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200DSS．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3582\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}ss．\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200Dss．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3583\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}ss．\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200Dss．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3584\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}ss．\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200Dss．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3585\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}ss．\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200Dss．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3586\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}Ss．\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200DSs．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3587\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}Ss．\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200DSs．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3588\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}Ss．\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200DSs．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3589\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹣늿\x{200D}Ss．\x{07CF}0\x{05BC}", %p)}, undef, "to_unicode\(\'𐹣늿\\u200DSs．\\u07CF0\\u05BC\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3590\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("9󠇥．󪴴ᢓ", %p)}, undef, "to_unicode\(\'9\󠇥．\?ᢓ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3591\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("9󠇥.󪴴ᢓ", %p)}, undef, "to_unicode\(\'9\󠇥\.\?ᢓ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3592\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.𐫭🠗ß⽟", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.𐫭🠗ß⽟\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3593\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.𐫭🠗ß⽟", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.𐫭🠗ß⽟\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3594\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{1160}.𐫭🠗ß玉", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.𐫭🠗ß玉\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3595\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{1160}.𐫭🠗ß玉", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.𐫭🠗ß玉\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3596\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{1160}.𐫭🠗SS玉", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.𐫭🠗SS玉\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3597\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{1160}.𐫭🠗SS玉", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.𐫭🠗SS玉\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3598\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{1160}.𐫭🠗ss玉", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.𐫭🠗ss玉\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3599\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{1160}.𐫭🠗ss玉", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.𐫭🠗ss玉\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3600\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{1160}.𐫭🠗Ss玉", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.𐫭🠗Ss玉\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3601\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{1160}.𐫭🠗Ss玉", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.𐫭🠗Ss玉\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3602\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.𐫭🠗SS⽟", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.𐫭🠗SS⽟\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3603\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.𐫭🠗SS⽟", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.𐫭🠗SS⽟\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3604\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.𐫭🠗ss⽟", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.𐫭🠗ss⽟\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3605\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.𐫭🠗ss⽟", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.𐫭🠗ss⽟\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3606\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.𐫭🠗Ss⽟", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.𐫭🠗Ss⽟\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3607\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.𐫭🠗Ss⽟", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.𐫭🠗Ss⽟\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3608\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("︒Ⴖ\x{0366}．\x{200C}", %p)}, undef, "to_unicode\(\'︒Ⴖ\\u0366．\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3609\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("︒Ⴖ\x{0366}．\x{200C}", %p)}, undef, "to_unicode\(\'︒Ⴖ\\u0366．\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3610\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("。Ⴖ\x{0366}.\x{200C}", %p)}, undef, "to_unicode\(\'\。Ⴖ\\u0366\.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3611\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("。Ⴖ\x{0366}.\x{200C}", %p)}, undef, "to_unicode\(\'\。Ⴖ\\u0366\.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3612\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("。ⴖ\x{0366}.\x{200C}", %p)}, undef, "to_unicode\(\'\。ⴖ\\u0366\.\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3613\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("。ⴖ\x{0366}.\x{200C}", %p)}, undef, "to_unicode\(\'\。ⴖ\\u0366\.\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3614\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("xn--hva754s.", %p)}, "ⴖ\x{0366}.", "to_unicode\(\'xn\-\-hva754s\.\'\)\ \[data\/IdnaTest\.txt\:3615\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴖ\x{0366}.", %p)}, "ⴖ\x{0366}.", "to_unicode\(\'ⴖ\\u0366\.\'\)\ \[data\/IdnaTest\.txt\:3616\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ⴖ\x{0366}.", %p)}, undef, "to_unicode\(\'Ⴖ\\u0366\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3617\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("︒ⴖ\x{0366}．\x{200C}", %p)}, undef, "to_unicode\(\'︒ⴖ\\u0366．\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3618\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("︒ⴖ\x{0366}．\x{200C}", %p)}, undef, "to_unicode\(\'︒ⴖ\\u0366．\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3619\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08BB}．\x{200C}Ⴃ𞀒", %p)}, undef, "to_unicode\(\'\\u08BB．\\u200CႣ\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3620\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08BB}．\x{200C}Ⴃ𞀒", %p)}, undef, "to_unicode\(\'\\u08BB．\\u200CႣ\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3621\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08BB}.\x{200C}Ⴃ𞀒", %p)}, undef, "to_unicode\(\'\\u08BB\.\\u200CႣ\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3622\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{08BB}.\x{200C}Ⴃ𞀒", %p)}, undef, "to_unicode\(\'\\u08BB\.\\u200CႣ\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3623\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{08BB}.\x{200C}ⴃ𞀒", %p)}, undef, "to_unicode\(\'\\u08BB\.\\u200Cⴃ\?\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3624\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{08BB}.\x{200C}ⴃ𞀒", %p)}, undef, "to_unicode\(\'\\u08BB\.\\u200Cⴃ\?\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3625\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("xn--hzb.xn--ukj4430l", %p)}, "\x{08BB}.ⴃ𞀒", "to_unicode\(\'xn\-\-hzb\.xn\-\-ukj4430l\'\)\ \[data\/IdnaTest\.txt\:3626\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{08BB}.ⴃ𞀒", %p)}, "\x{08BB}.ⴃ𞀒", "to_unicode\(\'\\u08BB\.ⴃ\?\'\)\ \[data\/IdnaTest\.txt\:3627\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{08BB}.Ⴃ𞀒", %p)}, undef, "to_unicode\(\'\\u08BB\.Ⴃ\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3628\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{08BB}．\x{200C}ⴃ𞀒", %p)}, undef, "to_unicode\(\'\\u08BB．\\u200Cⴃ\?\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3629\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{08BB}．\x{200C}ⴃ𞀒", %p)}, undef, "to_unicode\(\'\\u08BB．\\u200Cⴃ\?\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3630\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200D}\x{200C}。２䫷󠧷", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\。２䫷\?\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:3631\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}\x{200C}。２䫷󠧷", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\。２䫷\?\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:3632\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}\x{200C}。2䫷󠧷", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\。2䫷\?\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:3633\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}\x{200C}。2䫷󠧷", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\。2䫷\?\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:3634\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-𞀤󜠐。򈬖", %p)}, undef, "to_unicode\(\'\-\?\?\。\?\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3635\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󳛂︒\x{200C}㟀．\x{0624}⒈", %p)}, undef, "to_unicode\(\'\?︒\\u200C㟀．\\u0624⒈\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3636\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󳛂︒\x{200C}㟀．\x{0624}⒈", %p)}, undef, "to_unicode\(\'\?︒\\u200C㟀．\\u0624⒈\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3637\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󳛂︒\x{200C}㟀．\x{0648}\x{0654}⒈", %p)}, undef, "to_unicode\(\'\?︒\\u200C㟀．\\u0648\\u0654⒈\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3638\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󳛂︒\x{200C}㟀．\x{0648}\x{0654}⒈", %p)}, undef, "to_unicode\(\'\?︒\\u200C㟀．\\u0648\\u0654⒈\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3639\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󳛂。\x{200C}㟀.\x{0624}1.", %p)}, undef, "to_unicode\(\'\?\。\\u200C㟀\.\\u06241\.\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3640\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󳛂。\x{200C}㟀.\x{0624}1.", %p)}, undef, "to_unicode\(\'\?\。\\u200C㟀\.\\u06241\.\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3641\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󳛂。\x{200C}㟀.\x{0648}\x{0654}1.", %p)}, undef, "to_unicode\(\'\?\。\\u200C㟀\.\\u0648\\u06541\.\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3642\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󳛂。\x{200C}㟀.\x{0648}\x{0654}1.", %p)}, undef, "to_unicode\(\'\?\。\\u200C㟀\.\\u0648\\u06541\.\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3643\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𑲜\x{07CA}𝅼。-\x{200D}", %p)}, undef, "to_unicode\(\'\?\\u07CA𝅼\。\-\\u200D\'\)\ throws\ error\ V5\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3644\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𑲜\x{07CA}𝅼。-\x{200D}", %p)}, undef, "to_unicode\(\'\?\\u07CA𝅼\。\-\\u200D\'\)\ throws\ error\ V5\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3645\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200C}．Ⴉ≠𐫶", %p)}, undef, "to_unicode\(\'\\u200C．Ⴉ\≠𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3646\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}．Ⴉ≠𐫶", %p)}, undef, "to_unicode\(\'\\u200C．Ⴉ\≠𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3647\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}．Ⴉ=\x{0338}𐫶", %p)}, undef, "to_unicode\(\'\\u200C．Ⴉ\=\\u0338𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3648\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}．Ⴉ=\x{0338}𐫶", %p)}, undef, "to_unicode\(\'\\u200C．Ⴉ\=\\u0338𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3649\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.Ⴉ≠𐫶", %p)}, undef, "to_unicode\(\'\\u200C\.Ⴉ\≠𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3650\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.Ⴉ≠𐫶", %p)}, undef, "to_unicode\(\'\\u200C\.Ⴉ\≠𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3651\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.Ⴉ=\x{0338}𐫶", %p)}, undef, "to_unicode\(\'\\u200C\.Ⴉ\=\\u0338𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3652\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.Ⴉ=\x{0338}𐫶", %p)}, undef, "to_unicode\(\'\\u200C\.Ⴉ\=\\u0338𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3653\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.ⴉ=\x{0338}𐫶", %p)}, undef, "to_unicode\(\'\\u200C\.ⴉ\=\\u0338𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3654\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.ⴉ=\x{0338}𐫶", %p)}, undef, "to_unicode\(\'\\u200C\.ⴉ\=\\u0338𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3655\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.ⴉ≠𐫶", %p)}, undef, "to_unicode\(\'\\u200C\.ⴉ\≠𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3656\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.ⴉ≠𐫶", %p)}, undef, "to_unicode\(\'\\u200C\.ⴉ\≠𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3657\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}．ⴉ=\x{0338}𐫶", %p)}, undef, "to_unicode\(\'\\u200C．ⴉ\=\\u0338𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3658\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}．ⴉ=\x{0338}𐫶", %p)}, undef, "to_unicode\(\'\\u200C．ⴉ\=\\u0338𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3659\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}．ⴉ≠𐫶", %p)}, undef, "to_unicode\(\'\\u200C．ⴉ\≠𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3660\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}．ⴉ≠𐫶", %p)}, undef, "to_unicode\(\'\\u200C．ⴉ\≠𐫶\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3661\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0750}。≯ς", %p)}, undef, "to_unicode\(\'\\u0750\。\≯ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3662\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0750}。>\x{0338}ς", %p)}, undef, "to_unicode\(\'\\u0750\。\>\\u0338ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3663\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0750}。>\x{0338}Σ", %p)}, undef, "to_unicode\(\'\\u0750\。\>\\u0338Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3664\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0750}。≯Σ", %p)}, undef, "to_unicode\(\'\\u0750\。\≯Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3665\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0750}。≯σ", %p)}, undef, "to_unicode\(\'\\u0750\。\≯σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3666\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0750}。>\x{0338}σ", %p)}, undef, "to_unicode\(\'\\u0750\。\>\\u0338σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3667\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07FC}𐸆.𓖏︒񊨩Ⴐ", %p)}, undef, "to_unicode\(\'\\u07FC\?\.\?︒\?Ⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3668\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07FC}𐸆.𓖏。񊨩Ⴐ", %p)}, undef, "to_unicode\(\'\\u07FC\?\.\?\。\?Ⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3669\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07FC}𐸆.𓖏。񊨩ⴐ", %p)}, undef, "to_unicode\(\'\\u07FC\?\.\?\。\?ⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3670\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07FC}𐸆.𓖏︒񊨩ⴐ", %p)}, undef, "to_unicode\(\'\\u07FC\?\.\?︒\?ⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3671\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴥ⚭󠖫⋃｡𑌼", %p)}, undef, "to_unicode\(\'Ⴥ\⚭\?\⋃｡𑌼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3672\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴥ⚭󠖫⋃。𑌼", %p)}, undef, "to_unicode\(\'Ⴥ\⚭\?\⋃\。𑌼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3673\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴥ⚭󠖫⋃。𑌼", %p)}, undef, "to_unicode\(\'ⴥ\⚭\?\⋃\。𑌼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3674\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴥ⚭󠖫⋃｡𑌼", %p)}, undef, "to_unicode\(\'ⴥ\⚭\?\⋃｡𑌼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3675\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🄈。󠷳\x{0844}", %p)}, undef, "to_unicode\(\'🄈\。\?\\u0844\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3676\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("7,。󠷳\x{0844}", %p)}, undef, "to_unicode\(\'7\,\。\?\\u0844\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3677\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮\x{0846}。섖쮖ß", %p)}, undef, "to_unicode\(\'\≮\\u0846\。섖쮖ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3678\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}\x{0846}。섖쮖ß", %p)}, undef, "to_unicode\(\'\<\\u0338\\u0846\。섖쮖ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3679\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}\x{0846}。섖쮖SS", %p)}, undef, "to_unicode\(\'\<\\u0338\\u0846\。섖쮖SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3680\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮\x{0846}。섖쮖SS", %p)}, undef, "to_unicode\(\'\≮\\u0846\。섖쮖SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3681\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮\x{0846}。섖쮖ss", %p)}, undef, "to_unicode\(\'\≮\\u0846\。섖쮖ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3682\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}\x{0846}。섖쮖ss", %p)}, undef, "to_unicode\(\'\<\\u0338\\u0846\。섖쮖ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3683\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}\x{0846}。섖쮖Ss", %p)}, undef, "to_unicode\(\'\<\\u0338\\u0846\。섖쮖Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3684\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮\x{0846}。섖쮖Ss", %p)}, undef, "to_unicode\(\'\≮\\u0846\。섖쮖Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3685\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("󠆓⛏-。ꡒ", %p)}, undef, "to_unicode\(\'\󠆓\⛏\-\。ꡒ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3686\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{07BB}𐹳\x{0626}𑁆。\x{08A7}\x{06B0}\x{200C}ᢒ", %p)}, undef, "to_unicode\(\'\\u07BB𐹳\\u0626𑁆\。\\u08A7\\u06B0\\u200Cᢒ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3687\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07BB}𐹳\x{064A}𑁆\x{0654}。\x{08A7}\x{06B0}\x{200C}ᢒ", %p)}, undef, "to_unicode\(\'\\u07BB𐹳\\u064A𑁆\\u0654\。\\u08A7\\u06B0\\u200Cᢒ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3688\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0816}.𐨕𚚕", %p)}, undef, "to_unicode\(\'\\u0816\.𐨕\?\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3689\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("--。𽊆\x{0767}𐽋𞠬", %p)}, undef, "to_unicode\(\'\-\-\。\?\\u0767\?𞠬\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3690\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򛭦𐋥𹸐.≯\x{08B0}\x{08A6}󔛣", %p)}, undef, "to_unicode\(\'\?𐋥\?\.\≯\\u08B0\\u08A6\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3691\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򛭦𐋥𹸐.>\x{0338}\x{08B0}\x{08A6}󔛣", %p)}, undef, "to_unicode\(\'\?𐋥\?\.\>\\u0338\\u08B0\\u08A6\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3692\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("䔛󠇒򤸞𐹧．-䤷", %p)}, undef, "to_unicode\(\'䔛\󠇒\?𐹧．\-䤷\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3693\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("䔛󠇒򤸞𐹧.-䤷", %p)}, undef, "to_unicode\(\'䔛\󠇒\?𐹧\.\-䤷\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3694\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹩．\x{200D}-", %p)}, undef, "to_unicode\(\'𐹩．\\u200D\-\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3695\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹩．\x{200D}-", %p)}, undef, "to_unicode\(\'𐹩．\\u200D\-\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3696\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹩.\x{200D}-", %p)}, undef, "to_unicode\(\'𐹩\.\\u200D\-\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3697\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹩.\x{200D}-", %p)}, undef, "to_unicode\(\'𐹩\.\\u200D\-\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3698\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("񂈦帷｡≯萺\x{1DC8}-", %p)}, undef, "to_unicode\(\'\?帷｡\≯萺\\u1DC8\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3699\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񂈦帷｡>\x{0338}萺\x{1DC8}-", %p)}, undef, "to_unicode\(\'\?帷｡\>\\u0338萺\\u1DC8\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3700\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񂈦帷。≯萺\x{1DC8}-", %p)}, undef, "to_unicode\(\'\?帷\。\≯萺\\u1DC8\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3701\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񂈦帷。>\x{0338}萺\x{1DC8}-", %p)}, undef, "to_unicode\(\'\?帷\。\>\\u0338萺\\u1DC8\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3702\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}攌\x{ABED}。ᢖ-Ⴘ", %p)}, undef, "to_unicode\(\'\\u200D攌\\uABED\。ᢖ\-Ⴘ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3703\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}攌\x{ABED}。ᢖ-Ⴘ", %p)}, undef, "to_unicode\(\'\\u200D攌\\uABED\。ᢖ\-Ⴘ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3704\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200D}攌\x{ABED}。ᢖ-ⴘ", %p)}, undef, "to_unicode\(\'\\u200D攌\\uABED\。ᢖ\-ⴘ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3705\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200D}攌\x{ABED}。ᢖ-ⴘ", %p)}, undef, "to_unicode\(\'\\u200D攌\\uABED\。ᢖ\-ⴘ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3706\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("xn--p9ut19m.xn----mck373i", %p)}, "攌\x{ABED}.ᢖ-ⴘ", "to_unicode\(\'xn\-\-p9ut19m\.xn\-\-\-\-mck373i\'\)\ \[data\/IdnaTest\.txt\:3707\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("攌\x{ABED}.ᢖ-ⴘ", %p)}, "攌\x{ABED}.ᢖ-ⴘ", "to_unicode\(\'攌\\uABED\.ᢖ\-ⴘ\'\)\ \[data\/IdnaTest\.txt\:3708\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("攌\x{ABED}.ᢖ-Ⴘ", %p)}, undef, "to_unicode\(\'攌\\uABED\.ᢖ\-Ⴘ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3709\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ꖨ．⒗３툒۳", %p)}, undef, "to_unicode\(\'\\u200Cꖨ．⒗３툒۳\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3710\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ꖨ．⒗３툒۳", %p)}, undef, "to_unicode\(\'\\u200Cꖨ．⒗３툒۳\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3711\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ꖨ．⒗３툒۳", %p)}, undef, "to_unicode\(\'\\u200Cꖨ．⒗３툒۳\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3712\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ꖨ．⒗３툒۳", %p)}, undef, "to_unicode\(\'\\u200Cꖨ．⒗３툒۳\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3713\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200C}ꖨ.16.3툒۳", %p)}, undef, "to_unicode\(\'\\u200Cꖨ\.16\.3툒۳\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3714\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200C}ꖨ.16.3툒۳", %p)}, undef, "to_unicode\(\'\\u200Cꖨ\.16\.3툒۳\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3715\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200C}ꖨ.16.3툒۳", %p)}, undef, "to_unicode\(\'\\u200Cꖨ\.16\.3툒۳\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3716\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200C}ꖨ.16.3툒۳", %p)}, undef, "to_unicode\(\'\\u200Cꖨ\.16\.3툒۳\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3717\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("xn--9r8a.16.xn--3-nyc0117m", %p)}, "ꖨ.16.3툒۳", "to_unicode\(\'xn\-\-9r8a\.16\.xn\-\-3\-nyc0117m\'\)\ \[data\/IdnaTest\.txt\:3718\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("ꖨ.16.3툒۳", %p)}, "ꖨ.16.3툒۳", "to_unicode\(\'ꖨ\.16\.3툒۳\'\)\ \[data\/IdnaTest\.txt\:3719\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("ꖨ.16.3툒۳", %p)}, "ꖨ.16.3툒۳", "to_unicode\(\'ꖨ\.16\.3툒۳\'\)\ \[data\/IdnaTest\.txt\:3720\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("⒈걾6.𐱁\x{06D0}", %p)}, undef, "to_unicode\(\'⒈걾6\.𐱁\\u06D0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3721\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈걾6.𐱁\x{06D0}", %p)}, undef, "to_unicode\(\'⒈걾6\.𐱁\\u06D0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3722\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("1.걾6.𐱁\x{06D0}", %p)}, "1.걾6.𐱁\x{06D0}", "to_unicode\(\'1\.걾6\.𐱁\\u06D0\'\)\ \[data\/IdnaTest\.txt\:3723\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("1.걾6.𐱁\x{06D0}", %p)}, "1.걾6.𐱁\x{06D0}", "to_unicode\(\'1\.걾6\.𐱁\\u06D0\'\)\ \[data\/IdnaTest\.txt\:3724\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("1.xn--6-945e.xn--glb1794k", %p)}, "1.걾6.𐱁\x{06D0}", "to_unicode\(\'1\.xn\-\-6\-945e\.xn\-\-glb1794k\'\)\ \[data\/IdnaTest\.txt\:3725\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𐲞𝟶≮≮.󠀧\x{0639}", %p)}, undef, "to_unicode\(\'𐲞𝟶\≮\≮\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3726\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐲞𝟶<\x{0338}<\x{0338}.󠀧\x{0639}", %p)}, undef, "to_unicode\(\'𐲞𝟶\<\\u0338\<\\u0338\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3727\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐲞0≮≮.󠀧\x{0639}", %p)}, undef, "to_unicode\(\'𐲞0\≮\≮\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3728\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐲞0<\x{0338}<\x{0338}.󠀧\x{0639}", %p)}, undef, "to_unicode\(\'𐲞0\<\\u0338\<\\u0338\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3729\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐳞0<\x{0338}<\x{0338}.󠀧\x{0639}", %p)}, undef, "to_unicode\(\'𐳞0\<\\u0338\<\\u0338\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3730\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐳞0≮≮.󠀧\x{0639}", %p)}, undef, "to_unicode\(\'𐳞0\≮\≮\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3731\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐳞𝟶<\x{0338}<\x{0338}.󠀧\x{0639}", %p)}, undef, "to_unicode\(\'𐳞𝟶\<\\u0338\<\\u0338\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3732\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐳞𝟶≮≮.󠀧\x{0639}", %p)}, undef, "to_unicode\(\'𐳞𝟶\≮\≮\.\?\\u0639\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3733\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0AE3}.𐹺\x{115F}", %p)}, undef, "to_unicode\(\'\\u0AE3\.𐹺\\u115F\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3734\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𝟏𝨙⸖.\x{200D}", %p)}, undef, "to_unicode\(\'𝟏𝨙\⸖\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3735\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𝟏𝨙⸖.\x{200D}", %p)}, undef, "to_unicode\(\'𝟏𝨙\⸖\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3736\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("1𝨙⸖.\x{200D}", %p)}, undef, "to_unicode\(\'1𝨙\⸖\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3737\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("1𝨙⸖.\x{200D}", %p)}, undef, "to_unicode\(\'1𝨙\⸖\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3738\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("xn--1-5bt6845n.", %p)}, "1𝨙⸖.", "to_unicode\(\'xn\-\-1\-5bt6845n\.\'\)\ \[data\/IdnaTest\.txt\:3739\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("1𝨙⸖.", %p)}, "1𝨙⸖.", "to_unicode\(\'1𝨙\⸖\.\'\)\ \[data\/IdnaTest\.txt\:3740\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𞤐≠\x{0726}\x{1A60}｡-\x{200C}\x{07D5}", %p)}, undef, "to_unicode\(\'\?\≠\\u0726\\u1A60｡\-\\u200C\\u07D5\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:3741\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤐≠\x{0726}\x{1A60}｡-\x{200C}\x{07D5}", %p)}, undef, "to_unicode\(\'\?\≠\\u0726\\u1A60｡\-\\u200C\\u07D5\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:3742\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤐=\x{0338}\x{0726}\x{1A60}｡-\x{200C}\x{07D5}", %p)}, undef, "to_unicode\(\'\?\=\\u0338\\u0726\\u1A60｡\-\\u200C\\u07D5\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:3743\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤐=\x{0338}\x{0726}\x{1A60}｡-\x{200C}\x{07D5}", %p)}, undef, "to_unicode\(\'\?\=\\u0338\\u0726\\u1A60｡\-\\u200C\\u07D5\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:3744\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤐≠\x{0726}\x{1A60}。-\x{200C}\x{07D5}", %p)}, undef, "to_unicode\(\'\?\≠\\u0726\\u1A60\。\-\\u200C\\u07D5\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:3745\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤐≠\x{0726}\x{1A60}。-\x{200C}\x{07D5}", %p)}, undef, "to_unicode\(\'\?\≠\\u0726\\u1A60\。\-\\u200C\\u07D5\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:3746\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤐=\x{0338}\x{0726}\x{1A60}。-\x{200C}\x{07D5}", %p)}, undef, "to_unicode\(\'\?\=\\u0338\\u0726\\u1A60\。\-\\u200C\\u07D5\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:3747\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤐=\x{0338}\x{0726}\x{1A60}。-\x{200C}\x{07D5}", %p)}, undef, "to_unicode\(\'\?\=\\u0338\\u0726\\u1A60\。\-\\u200C\\u07D5\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:3748\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹰\x{0368}-ꡧ｡\x{0675}", %p)}, undef, "to_unicode\(\'𐹰\\u0368\-ꡧ｡\\u0675\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3749\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹰\x{0368}-ꡧ。\x{0627}\x{0674}", %p)}, undef, "to_unicode\(\'𐹰\\u0368\-ꡧ\。\\u0627\\u0674\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3750\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("F󠅟｡򏗅♚", %p)}, undef, "to_unicode\(\'F\󠅟｡\?\♚\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3751\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("F󠅟。򏗅♚", %p)}, undef, "to_unicode\(\'F\󠅟\。\?\♚\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3752\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("f󠅟。򏗅♚", %p)}, undef, "to_unicode\(\'f\󠅟\。\?\♚\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3753\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("f󠅟｡򏗅♚", %p)}, undef, "to_unicode\(\'f\󠅟｡\?\♚\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3754\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0B4D}𑄴\x{1DE9}。𝟮Ⴘ𞀨񃥇", %p)}, undef, "to_unicode\(\'\\u0B4D𑄴\\u1DE9\。𝟮Ⴘ\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3755\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0B4D}𑄴\x{1DE9}。2Ⴘ𞀨񃥇", %p)}, undef, "to_unicode\(\'\\u0B4D𑄴\\u1DE9\。2Ⴘ\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3756\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0B4D}𑄴\x{1DE9}。2ⴘ𞀨񃥇", %p)}, undef, "to_unicode\(\'\\u0B4D𑄴\\u1DE9\。2ⴘ\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3757\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0B4D}𑄴\x{1DE9}。𝟮ⴘ𞀨񃥇", %p)}, undef, "to_unicode\(\'\\u0B4D𑄴\\u1DE9\。𝟮ⴘ\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3758\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򓠭\x{200C}\x{200C}⒈。勉𑁅", %p)}, undef, "to_unicode\(\'\?\\u200C\\u200C⒈\。勉𑁅\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3759\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򓠭\x{200C}\x{200C}⒈。勉𑁅", %p)}, undef, "to_unicode\(\'\?\\u200C\\u200C⒈\。勉𑁅\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3760\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򓠭\x{200C}\x{200C}1.。勉𑁅", %p)}, undef, "to_unicode\(\'\?\\u200C\\u200C1\.\。勉𑁅\'\)\ throws\ error\ P1\ V6\ C1\ A4_2\ \[data\/IdnaTest\.txt\:3761\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򓠭\x{200C}\x{200C}1.。勉𑁅", %p)}, undef, "to_unicode\(\'\?\\u200C\\u200C1\.\。勉𑁅\'\)\ throws\ error\ P1\ V6\ C1\ A4_2\ \[data\/IdnaTest\.txt\:3762\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡃ.玿񫈜󕞐", %p)}, undef, "to_unicode\(\'ᡃ\.玿\?\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3763\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{200C}｡⒈≯𝟵", %p)}, undef, "to_unicode\(\'\\u200C\\u200C｡⒈\≯𝟵\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3764\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{200C}｡⒈≯𝟵", %p)}, undef, "to_unicode\(\'\\u200C\\u200C｡⒈\≯𝟵\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3765\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{200C}｡⒈>\x{0338}𝟵", %p)}, undef, "to_unicode\(\'\\u200C\\u200C｡⒈\>\\u0338𝟵\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3766\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{200C}｡⒈>\x{0338}𝟵", %p)}, undef, "to_unicode\(\'\\u200C\\u200C｡⒈\>\\u0338𝟵\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3767\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{200C}。1.≯9", %p)}, undef, "to_unicode\(\'\\u200C\\u200C\。1\.\≯9\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3768\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{200C}。1.≯9", %p)}, undef, "to_unicode\(\'\\u200C\\u200C\。1\.\≯9\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3769\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{200C}。1.>\x{0338}9", %p)}, undef, "to_unicode\(\'\\u200C\\u200C\。1\.\>\\u03389\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3770\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{200C}。1.>\x{0338}9", %p)}, undef, "to_unicode\(\'\\u200C\\u200C\。1\.\>\\u03389\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3771\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{115F}\x{1DE0}򐀁.𺻆≯𐮁", %p)}, undef, "to_unicode\(\'\\u115F\\u1DE0\?\.\?\≯𐮁\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3772\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{115F}\x{1DE0}򐀁.𺻆>\x{0338}𐮁", %p)}, undef, "to_unicode\(\'\\u115F\\u1DE0\?\.\?\>\\u0338𐮁\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3773\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄫𝩤\x{200D}\x{063E}.𝩩-\x{081E}󑼩", %p)}, undef, "to_unicode\(\'\󠄫𝩤\\u200D\\u063E\.𝩩\-\\u081E\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3774\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄫𝩤\x{200D}\x{063E}.𝩩-\x{081E}󑼩", %p)}, undef, "to_unicode\(\'\󠄫𝩤\\u200D\\u063E\.𝩩\-\\u081E\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3775\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{20DA}．𑘿-", %p)}, undef, "to_unicode\(\'\\u20DA．𑘿\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3776\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{20DA}.𑘿-", %p)}, undef, "to_unicode\(\'\\u20DA\.𑘿\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3777\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("䮸ß.󠵟󠭎紙\x{08A8}", %p)}, undef, "to_unicode\(\'䮸ß\.\?\?紙\\u08A8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3778\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("䮸SS.󠵟󠭎紙\x{08A8}", %p)}, undef, "to_unicode\(\'䮸SS\.\?\?紙\\u08A8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3779\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("䮸ss.󠵟󠭎紙\x{08A8}", %p)}, undef, "to_unicode\(\'䮸ss\.\?\?紙\\u08A8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3780\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("䮸Ss.󠵟󠭎紙\x{08A8}", %p)}, undef, "to_unicode\(\'䮸Ss\.\?\?紙\\u08A8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3781\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-Ⴞ.-𝩨⅔𐦕", %p)}, undef, "to_unicode\(\'\-Ⴞ\.\-𝩨⅔𐦕\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3782\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-Ⴞ.-𝩨2⁄3𐦕", %p)}, undef, "to_unicode\(\'\-Ⴞ\.\-𝩨2\⁄3𐦕\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3783\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("-ⴞ.-𝩨2⁄3𐦕", %p)}, undef, "to_unicode\(\'\-ⴞ\.\-𝩨2\⁄3𐦕\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:3784\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("-ⴞ.-𝩨⅔𐦕", %p)}, undef, "to_unicode\(\'\-ⴞ\.\-𝩨⅔𐦕\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:3785\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("󧈯𐹯\x{0AC2}｡򖢨𐮁񇼖ᡂ", %p)}, undef, "to_unicode\(\'\?𐹯\\u0AC2｡\?𐮁\?ᡂ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3786\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󧈯𐹯\x{0AC2}。򖢨𐮁񇼖ᡂ", %p)}, undef, "to_unicode\(\'\?𐹯\\u0AC2\。\?𐮁\?ᡂ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3787\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1082}-\x{200D}\x{A8EA}．ꡊ\x{200D}񼸳", %p)}, undef, "to_unicode\(\'\\u1082\-\\u200D\\uA8EA．ꡊ\\u200D\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3788\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1082}-\x{200D}\x{A8EA}．ꡊ\x{200D}񼸳", %p)}, undef, "to_unicode\(\'\\u1082\-\\u200D\\uA8EA．ꡊ\\u200D\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3789\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1082}-\x{200D}\x{A8EA}.ꡊ\x{200D}񼸳", %p)}, undef, "to_unicode\(\'\\u1082\-\\u200D\\uA8EA\.ꡊ\\u200D\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3790\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1082}-\x{200D}\x{A8EA}.ꡊ\x{200D}񼸳", %p)}, undef, "to_unicode\(\'\\u1082\-\\u200D\\uA8EA\.ꡊ\\u200D\?\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3791\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("۱。≠\x{0668}", %p)}, undef, "to_unicode\(\'۱\。\≠\\u0668\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3792\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("۱。=\x{0338}\x{0668}", %p)}, undef, "to_unicode\(\'۱\。\=\\u0338\\u0668\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3793\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𑈵廊.𐠍", %p)}, undef, "to_unicode\(\'𑈵廊\.𐠍\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3794\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200D}\x{0356}-．-Ⴐ\x{0661}", %p)}, undef, "to_unicode\(\'\\u200D\\u0356\-．\-Ⴐ\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3795\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}\x{0356}-．-Ⴐ\x{0661}", %p)}, undef, "to_unicode\(\'\\u200D\\u0356\-．\-Ⴐ\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3796\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}\x{0356}-.-Ⴐ\x{0661}", %p)}, undef, "to_unicode\(\'\\u200D\\u0356\-\.\-Ⴐ\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3797\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}\x{0356}-.-Ⴐ\x{0661}", %p)}, undef, "to_unicode\(\'\\u200D\\u0356\-\.\-Ⴐ\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3798\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200D}\x{0356}-.-ⴐ\x{0661}", %p)}, undef, "to_unicode\(\'\\u200D\\u0356\-\.\-ⴐ\\u0661\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3799\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200D}\x{0356}-.-ⴐ\x{0661}", %p)}, undef, "to_unicode\(\'\\u200D\\u0356\-\.\-ⴐ\\u0661\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3800\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200D}\x{0356}-．-ⴐ\x{0661}", %p)}, undef, "to_unicode\(\'\\u200D\\u0356\-．\-ⴐ\\u0661\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3801\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200D}\x{0356}-．-ⴐ\x{0661}", %p)}, undef, "to_unicode\(\'\\u200D\\u0356\-．\-ⴐ\\u0661\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3802\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{063A}\x{0661}挏󾯐.-", %p)}, undef, "to_unicode\(\'\\u063A\\u0661挏\?\.\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3803\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{06EF}｡𐹧𞤽", %p)}, undef, "to_unicode\(\'\\u06EF｡𐹧\?\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3804\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{06EF}。𐹧𞤽", %p)}, undef, "to_unicode\(\'\\u06EF\。𐹧\?\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3805\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ⴞ𶛀𛗻．ᢗ릫", %p)}, undef, "to_unicode\(\'Ⴞ\?\?．ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3806\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴞ𶛀𛗻．ᢗ릫", %p)}, undef, "to_unicode\(\'Ⴞ\?\?．ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3807\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴞ𶛀𛗻.ᢗ릫", %p)}, undef, "to_unicode\(\'Ⴞ\?\?\.ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3808\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴞ𶛀𛗻.ᢗ릫", %p)}, undef, "to_unicode\(\'Ⴞ\?\?\.ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3809\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴞ𶛀𛗻.ᢗ릫", %p)}, undef, "to_unicode\(\'ⴞ\?\?\.ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3810\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴞ𶛀𛗻.ᢗ릫", %p)}, undef, "to_unicode\(\'ⴞ\?\?\.ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3811\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴞ𶛀𛗻．ᢗ릫", %p)}, undef, "to_unicode\(\'ⴞ\?\?．ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3812\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴞ𶛀𛗻．ᢗ릫", %p)}, undef, "to_unicode\(\'ⴞ\?\?．ᢗ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3813\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠎃󗭞\x{06B7}𐹷｡≯\x{200C}\x{1DFE}", %p)}, undef, "to_unicode\(\'\?\?\\u06B7𐹷｡\≯\\u200C\\u1DFE\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3814\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠎃󗭞\x{06B7}𐹷｡≯\x{200C}\x{1DFE}", %p)}, undef, "to_unicode\(\'\?\?\\u06B7𐹷｡\≯\\u200C\\u1DFE\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3815\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠎃󗭞\x{06B7}𐹷｡>\x{0338}\x{200C}\x{1DFE}", %p)}, undef, "to_unicode\(\'\?\?\\u06B7𐹷｡\>\\u0338\\u200C\\u1DFE\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3816\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠎃󗭞\x{06B7}𐹷｡>\x{0338}\x{200C}\x{1DFE}", %p)}, undef, "to_unicode\(\'\?\?\\u06B7𐹷｡\>\\u0338\\u200C\\u1DFE\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3817\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠎃󗭞\x{06B7}𐹷。≯\x{200C}\x{1DFE}", %p)}, undef, "to_unicode\(\'\?\?\\u06B7𐹷\。\≯\\u200C\\u1DFE\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3818\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠎃󗭞\x{06B7}𐹷。≯\x{200C}\x{1DFE}", %p)}, undef, "to_unicode\(\'\?\?\\u06B7𐹷\。\≯\\u200C\\u1DFE\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3819\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠎃󗭞\x{06B7}𐹷。>\x{0338}\x{200C}\x{1DFE}", %p)}, undef, "to_unicode\(\'\?\?\\u06B7𐹷\。\>\\u0338\\u200C\\u1DFE\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3820\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠎃󗭞\x{06B7}𐹷。>\x{0338}\x{200C}\x{1DFE}", %p)}, undef, "to_unicode\(\'\?\?\\u06B7𐹷\。\>\\u0338\\u200C\\u1DFE\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3821\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᛎ󠅍󠐕\x{200D}｡𐹾𐹪𐻝-", %p)}, undef, "to_unicode\(\'ᛎ\󠅍\?\\u200D｡𐹾𐹪\?\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3822\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᛎ󠅍󠐕\x{200D}｡𐹾𐹪𐻝-", %p)}, undef, "to_unicode\(\'ᛎ\󠅍\?\\u200D｡𐹾𐹪\?\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3823\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᛎ󠅍󠐕\x{200D}。𐹾𐹪𐻝-", %p)}, undef, "to_unicode\(\'ᛎ\󠅍\?\\u200D\。𐹾𐹪\?\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3824\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᛎ󠅍󠐕\x{200D}。𐹾𐹪𐻝-", %p)}, undef, "to_unicode\(\'ᛎ\󠅍\?\\u200D\。𐹾𐹪\?\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3825\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐹶.𐫂", %p)}, undef, "to_unicode\(\'𐹶\.𐫂\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3826\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("ß\x{200D}\x{103A}｡⒈", %p)}, undef, "to_unicode\(\'ß\\u200D\\u103A｡⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3827\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß\x{200D}\x{103A}｡⒈", %p)}, undef, "to_unicode\(\'ß\\u200D\\u103A｡⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3828\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("ß\x{200D}\x{103A}。1.", %p)}, undef, "to_unicode\(\'ß\\u200D\\u103A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3829\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("ß\x{200D}\x{103A}。1.", %p)}, undef, "to_unicode\(\'ß\\u200D\\u103A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3830\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("SS\x{200D}\x{103A}。1.", %p)}, undef, "to_unicode\(\'SS\\u200D\\u103A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3831\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("SS\x{200D}\x{103A}。1.", %p)}, undef, "to_unicode\(\'SS\\u200D\\u103A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3832\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("ss\x{200D}\x{103A}。1.", %p)}, undef, "to_unicode\(\'ss\\u200D\\u103A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3833\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("ss\x{200D}\x{103A}。1.", %p)}, undef, "to_unicode\(\'ss\\u200D\\u103A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3834\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("Ss\x{200D}\x{103A}。1.", %p)}, undef, "to_unicode\(\'Ss\\u200D\\u103A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3835\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("Ss\x{200D}\x{103A}。1.", %p)}, undef, "to_unicode\(\'Ss\\u200D\\u103A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3836\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("xn--ss-f4j.1.", %p)}, "ss\x{103A}.1.", "to_unicode\(\'xn\-\-ss\-f4j\.1\.\'\)\ \[data\/IdnaTest\.txt\:3837\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("ss\x{103A}.1.", %p)}, "ss\x{103A}.1.", "to_unicode\(\'ss\\u103A\.1\.\'\)\ \[data\/IdnaTest\.txt\:3838\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("SS\x{103A}.1.", %p)}, "ss\x{103A}.1.", "to_unicode\(\'SS\\u103A\.1\.\'\)\ \[data\/IdnaTest\.txt\:3839\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("Ss\x{103A}.1.", %p)}, "ss\x{103A}.1.", "to_unicode\(\'Ss\\u103A\.1\.\'\)\ \[data\/IdnaTest\.txt\:3840\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("SS\x{200D}\x{103A}｡⒈", %p)}, undef, "to_unicode\(\'SS\\u200D\\u103A｡⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3841\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("SS\x{200D}\x{103A}｡⒈", %p)}, undef, "to_unicode\(\'SS\\u200D\\u103A｡⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3842\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ss\x{200D}\x{103A}｡⒈", %p)}, undef, "to_unicode\(\'ss\\u200D\\u103A｡⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3843\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ss\x{200D}\x{103A}｡⒈", %p)}, undef, "to_unicode\(\'ss\\u200D\\u103A｡⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3844\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ss\x{200D}\x{103A}｡⒈", %p)}, undef, "to_unicode\(\'Ss\\u200D\\u103A｡⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3845\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ss\x{200D}\x{103A}｡⒈", %p)}, undef, "to_unicode\(\'Ss\\u200D\\u103A｡⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3846\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0B4D}\x{200C}𙶵𞻘。\x{200D}", %p)}, undef, "to_unicode\(\'\\u0B4D\\u200C\?\?\。\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3847\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0B4D}\x{200C}𙶵𞻘。\x{200D}", %p)}, undef, "to_unicode\(\'\\u0B4D\\u200C\?\?\。\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3848\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮅｡\x{06BC}🁕", %p)}, undef, "to_unicode\(\'𐮅｡\\u06BC🁕\'\)\ throws\ error\ B3\ \[data\/IdnaTest\.txt\:3849\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮅。\x{06BC}🁕", %p)}, undef, "to_unicode\(\'𐮅\。\\u06BC🁕\'\)\ throws\ error\ B3\ \[data\/IdnaTest\.txt\:3850\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{0620}\x{17D2}。𐫔󠀧\x{200C}𑈵", %p)}, undef, "to_unicode\(\'\\u0620\\u17D2\。𐫔\?\\u200C𑈵\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:3851\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0620}\x{17D2}。𐫔󠀧\x{200C}𑈵", %p)}, undef, "to_unicode\(\'\\u0620\\u17D2\。𐫔\?\\u200C𑈵\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:3852\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񋉕.𞣕𞤊", %p)}, undef, "to_unicode\(\'\?\.𞣕\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3853\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{06CC}𐨿．ß\x{0F84}𑍬", %p)}, "\x{06CC}𐨿.ß\x{0F84}𑍬", "to_unicode\(\'\\u06CC𐨿．ß\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3854\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{06CC}𐨿．ß\x{0F84}𑍬", %p)}, "\x{06CC}𐨿.ß\x{0F84}𑍬", "to_unicode\(\'\\u06CC𐨿．ß\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3855\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{06CC}𐨿.ß\x{0F84}𑍬", %p)}, "\x{06CC}𐨿.ß\x{0F84}𑍬", "to_unicode\(\'\\u06CC𐨿\.ß\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3856\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{06CC}𐨿.ß\x{0F84}𑍬", %p)}, "\x{06CC}𐨿.ß\x{0F84}𑍬", "to_unicode\(\'\\u06CC𐨿\.ß\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3857\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{06CC}𐨿.SS\x{0F84}𑍬", %p)}, "\x{06CC}𐨿.ss\x{0F84}𑍬", "to_unicode\(\'\\u06CC𐨿\.SS\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3858\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{06CC}𐨿.ss\x{0F84}𑍬", %p)}, "\x{06CC}𐨿.ss\x{0F84}𑍬", "to_unicode\(\'\\u06CC𐨿\.ss\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3859\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{06CC}𐨿.Ss\x{0F84}𑍬", %p)}, "\x{06CC}𐨿.ss\x{0F84}𑍬", "to_unicode\(\'\\u06CC𐨿\.Ss\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3860\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--clb2593k.xn--ss-toj6092t", %p)}, "\x{06CC}𐨿.ss\x{0F84}𑍬", "to_unicode\(\'xn\-\-clb2593k\.xn\-\-ss\-toj6092t\'\)\ \[data\/IdnaTest\.txt\:3861\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--clb2593k.xn--zca216edt0r", %p)}, "\x{06CC}𐨿.ß\x{0F84}𑍬", "to_unicode\(\'xn\-\-clb2593k\.xn\-\-zca216edt0r\'\)\ \[data\/IdnaTest\.txt\:3862\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{06CC}𐨿．SS\x{0F84}𑍬", %p)}, "\x{06CC}𐨿.ss\x{0F84}𑍬", "to_unicode\(\'\\u06CC𐨿．SS\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3863\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{06CC}𐨿．ss\x{0F84}𑍬", %p)}, "\x{06CC}𐨿.ss\x{0F84}𑍬", "to_unicode\(\'\\u06CC𐨿．ss\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3864\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{06CC}𐨿．Ss\x{0F84}𑍬", %p)}, "\x{06CC}𐨿.ss\x{0F84}𑍬", "to_unicode\(\'\\u06CC𐨿．Ss\\u0F84𑍬\'\)\ \[data\/IdnaTest\.txt\:3865\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𝟠≮\x{200C}｡󠅱\x{17B4}", %p)}, undef, "to_unicode\(\'𝟠\≮\\u200C｡\󠅱\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3866\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟠≮\x{200C}｡󠅱\x{17B4}", %p)}, undef, "to_unicode\(\'𝟠\≮\\u200C｡\󠅱\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3867\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟠<\x{0338}\x{200C}｡󠅱\x{17B4}", %p)}, undef, "to_unicode\(\'𝟠\<\\u0338\\u200C｡\󠅱\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3868\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟠<\x{0338}\x{200C}｡󠅱\x{17B4}", %p)}, undef, "to_unicode\(\'𝟠\<\\u0338\\u200C｡\󠅱\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3869\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("8≮\x{200C}。󠅱\x{17B4}", %p)}, undef, "to_unicode\(\'8\≮\\u200C\。\󠅱\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3870\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("8≮\x{200C}。󠅱\x{17B4}", %p)}, undef, "to_unicode\(\'8\≮\\u200C\。\󠅱\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3871\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("8<\x{0338}\x{200C}。󠅱\x{17B4}", %p)}, undef, "to_unicode\(\'8\<\\u0338\\u200C\。\󠅱\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3872\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("8<\x{0338}\x{200C}。󠅱\x{17B4}", %p)}, undef, "to_unicode\(\'8\<\\u0338\\u200C\。\󠅱\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3873\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢕ≯︒񄂯．Ⴀ", %p)}, undef, "to_unicode\(\'ᢕ\≯︒\?．Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3874\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢕ>\x{0338}︒񄂯．Ⴀ", %p)}, undef, "to_unicode\(\'ᢕ\>\\u0338︒\?．Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3875\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢕ≯。񄂯.Ⴀ", %p)}, undef, "to_unicode\(\'ᢕ\≯\。\?\.Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3876\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢕ>\x{0338}。񄂯.Ⴀ", %p)}, undef, "to_unicode\(\'ᢕ\>\\u0338\。\?\.Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3877\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢕ>\x{0338}。񄂯.ⴀ", %p)}, undef, "to_unicode\(\'ᢕ\>\\u0338\。\?\.ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3878\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢕ≯。񄂯.ⴀ", %p)}, undef, "to_unicode\(\'ᢕ\≯\。\?\.ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3879\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢕ>\x{0338}︒񄂯．ⴀ", %p)}, undef, "to_unicode\(\'ᢕ\>\\u0338︒\?．ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3880\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢕ≯︒񄂯．ⴀ", %p)}, undef, "to_unicode\(\'ᢕ\≯︒\?．ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3881\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0F9F}．-\x{082A}", %p)}, undef, "to_unicode\(\'\\u0F9F．\-\\u082A\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3882\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0F9F}.-\x{082A}", %p)}, undef, "to_unicode\(\'\\u0F9F\.\-\\u082A\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3883\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("ᵬ󠆠．핒⒒⒈􈄦", %p)}, undef, "to_unicode\(\'ᵬ\󠆠．핒⒒⒈\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3884\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᵬ󠆠．핒⒒⒈􈄦", %p)}, undef, "to_unicode\(\'ᵬ\󠆠．핒⒒⒈\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3885\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᵬ󠆠.핒11.1.􈄦", %p)}, undef, "to_unicode\(\'ᵬ\󠆠\.핒11\.1\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3886\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᵬ󠆠.핒11.1.􈄦", %p)}, undef, "to_unicode\(\'ᵬ\󠆠\.핒11\.1\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3887\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ς𑓂𐋢．\x{0668}", %p)}, undef, "to_unicode\(\'ς𑓂𐋢．\\u0668\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3888\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ς𑓂𐋢.\x{0668}", %p)}, undef, "to_unicode\(\'ς𑓂𐋢\.\\u0668\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3889\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Σ𑓂𐋢.\x{0668}", %p)}, undef, "to_unicode\(\'Σ𑓂𐋢\.\\u0668\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3890\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("σ𑓂𐋢.\x{0668}", %p)}, undef, "to_unicode\(\'σ𑓂𐋢\.\\u0668\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3891\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Σ𑓂𐋢．\x{0668}", %p)}, undef, "to_unicode\(\'Σ𑓂𐋢．\\u0668\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3892\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("σ𑓂𐋢．\x{0668}", %p)}, undef, "to_unicode\(\'σ𑓂𐋢．\\u0668\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3893\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{A953}\x{200C}𐋻\x{200D}.\x{2DF8}𞿄𐹲", %p)}, undef, "to_unicode\(\'\\uA953\\u200C𐋻\\u200D\.\\u2DF8\?𐹲\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3894\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A953}\x{200C}𐋻\x{200D}.\x{2DF8}𞿄𐹲", %p)}, undef, "to_unicode\(\'\\uA953\\u200C𐋻\\u200D\.\\u2DF8\?𐹲\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3895\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⊼。񪧖\x{0695}", %p)}, undef, "to_unicode\(\'\⊼\。\?\\u0695\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3896\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐯬񖋔。󜳥", %p)}, undef, "to_unicode\(\'\?\?\。\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3897\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0601}𑍧\x{07DD}。ς򬍘🀞\x{17B5}", %p)}, undef, "to_unicode\(\'\\u0601𑍧\\u07DD\。ς\?🀞\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3898\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0601}𑍧\x{07DD}。Σ򬍘🀞\x{17B5}", %p)}, undef, "to_unicode\(\'\\u0601𑍧\\u07DD\。Σ\?🀞\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3899\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0601}𑍧\x{07DD}。σ򬍘🀞\x{17B5}", %p)}, undef, "to_unicode\(\'\\u0601𑍧\\u07DD\。σ\?🀞\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3900\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-𐳲\x{0646}󠺐。\x{ABED}𝟥", %p)}, undef, "to_unicode\(\'\-𐳲\\u0646\?\。\\uABED𝟥\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3901\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-𐳲\x{0646}󠺐。\x{ABED}3", %p)}, undef, "to_unicode\(\'\-𐳲\\u0646\?\。\\uABED3\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3902\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-𐲲\x{0646}󠺐。\x{ABED}3", %p)}, undef, "to_unicode\(\'\-𐲲\\u0646\?\。\\uABED3\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3903\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-𐲲\x{0646}󠺐。\x{ABED}𝟥", %p)}, undef, "to_unicode\(\'\-𐲲\\u0646\?\。\\uABED𝟥\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3904\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠴦｡񲨕≮𐦜", %p)}, undef, "to_unicode\(\'\\u200C\?｡\?\≮𐦜\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3905\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠴦｡񲨕≮𐦜", %p)}, undef, "to_unicode\(\'\\u200C\?｡\?\≮𐦜\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3906\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠴦｡񲨕<\x{0338}𐦜", %p)}, undef, "to_unicode\(\'\\u200C\?｡\?\<\\u0338𐦜\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3907\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠴦｡񲨕<\x{0338}𐦜", %p)}, undef, "to_unicode\(\'\\u200C\?｡\?\<\\u0338𐦜\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3908\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠴦。񲨕≮𐦜", %p)}, undef, "to_unicode\(\'\\u200C\?\。\?\≮𐦜\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3909\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠴦。񲨕≮𐦜", %p)}, undef, "to_unicode\(\'\\u200C\?\。\?\≮𐦜\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3910\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠴦。񲨕<\x{0338}𐦜", %p)}, undef, "to_unicode\(\'\\u200C\?\。\?\<\\u0338𐦜\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3911\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}󠴦。񲨕<\x{0338}𐦜", %p)}, undef, "to_unicode\(\'\\u200C\?\。\?\<\\u0338𐦜\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3912\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈✌򟬟．𝟡񠱣", %p)}, undef, "to_unicode\(\'⒈\✌\?．𝟡\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3913\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.✌򟬟.9񠱣", %p)}, undef, "to_unicode\(\'1\.\✌\?\.9\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3914\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𑆾𞤬𐮆.\x{0666}\x{1DD4}", %p)}, undef, "to_unicode\(\'𑆾\?𐮆\.\\u0666\\u1DD4\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3915\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ς．\x{A9C0}\x{A8C4}", %p)}, undef, "to_unicode\(\'ς．\\uA9C0\\uA8C4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3916\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ς.\x{A9C0}\x{A8C4}", %p)}, undef, "to_unicode\(\'ς\.\\uA9C0\\uA8C4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3917\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("Σ.\x{A9C0}\x{A8C4}", %p)}, undef, "to_unicode\(\'Σ\.\\uA9C0\\uA8C4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3918\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("σ.\x{A9C0}\x{A8C4}", %p)}, undef, "to_unicode\(\'σ\.\\uA9C0\\uA8C4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3919\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("Σ．\x{A9C0}\x{A8C4}", %p)}, undef, "to_unicode\(\'Σ．\\uA9C0\\uA8C4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3920\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("σ．\x{A9C0}\x{A8C4}", %p)}, undef, "to_unicode\(\'σ．\\uA9C0\\uA8C4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3921\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𑰶\x{200C}≯𐳐．\x{085B}", %p)}, undef, "to_unicode\(\'\?\\u200C\≯𐳐．\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3922\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰶\x{200C}≯𐳐．\x{085B}", %p)}, undef, "to_unicode\(\'\?\\u200C\≯𐳐．\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3923\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰶\x{200C}>\x{0338}𐳐．\x{085B}", %p)}, undef, "to_unicode\(\'\?\\u200C\>\\u0338𐳐．\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3924\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰶\x{200C}>\x{0338}𐳐．\x{085B}", %p)}, undef, "to_unicode\(\'\?\\u200C\>\\u0338𐳐．\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3925\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰶\x{200C}≯𐳐.\x{085B}", %p)}, undef, "to_unicode\(\'\?\\u200C\≯𐳐\.\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3926\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰶\x{200C}≯𐳐.\x{085B}", %p)}, undef, "to_unicode\(\'\?\\u200C\≯𐳐\.\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3927\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰶\x{200C}>\x{0338}𐳐.\x{085B}", %p)}, undef, "to_unicode\(\'\?\\u200C\>\\u0338𐳐\.\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3928\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰶\x{200C}>\x{0338}𐳐.\x{085B}", %p)}, undef, "to_unicode\(\'\?\\u200C\>\\u0338𐳐\.\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3929\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰶\x{200C}>\x{0338}𐲐.\x{085B}", %p)}, undef, "to_unicode\(\'\?\\u200C\>\\u0338𐲐\.\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3930\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰶\x{200C}>\x{0338}𐲐.\x{085B}", %p)}, undef, "to_unicode\(\'\?\\u200C\>\\u0338𐲐\.\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3931\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰶\x{200C}≯𐲐.\x{085B}", %p)}, undef, "to_unicode\(\'\?\\u200C\≯𐲐\.\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3932\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰶\x{200C}≯𐲐.\x{085B}", %p)}, undef, "to_unicode\(\'\?\\u200C\≯𐲐\.\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3933\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰶\x{200C}>\x{0338}𐲐．\x{085B}", %p)}, undef, "to_unicode\(\'\?\\u200C\>\\u0338𐲐．\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3934\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰶\x{200C}>\x{0338}𐲐．\x{085B}", %p)}, undef, "to_unicode\(\'\?\\u200C\>\\u0338𐲐．\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3935\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰶\x{200C}≯𐲐．\x{085B}", %p)}, undef, "to_unicode\(\'\?\\u200C\≯𐲐．\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3936\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰶\x{200C}≯𐲐．\x{085B}", %p)}, undef, "to_unicode\(\'\?\\u200C\≯𐲐．\\u085B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3937\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("羚｡≯", %p)}, undef, "to_unicode\(\'羚｡\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3938\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("羚｡>\x{0338}", %p)}, undef, "to_unicode\(\'羚｡\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3939\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("羚。≯", %p)}, undef, "to_unicode\(\'羚\。\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3940\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("羚。>\x{0338}", %p)}, undef, "to_unicode\(\'羚\。\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3941\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑓂\x{1759}．\x{08A8}", %p)}, undef, "to_unicode\(\'𑓂\\u1759．\\u08A8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3942\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑓂\x{1759}.\x{08A8}", %p)}, undef, "to_unicode\(\'𑓂\\u1759\.\\u08A8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3943\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󨣿󠇀\x{200D}｡\x{0663}ҠჀ𝟑", %p)}, undef, "to_unicode\(\'\?\󠇀\\u200D｡\\u0663ҠჀ𝟑\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3944\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󨣿󠇀\x{200D}｡\x{0663}ҠჀ𝟑", %p)}, undef, "to_unicode\(\'\?\󠇀\\u200D｡\\u0663ҠჀ𝟑\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3945\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󨣿󠇀\x{200D}。\x{0663}ҠჀ3", %p)}, undef, "to_unicode\(\'\?\󠇀\\u200D\。\\u0663ҠჀ3\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3946\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󨣿󠇀\x{200D}。\x{0663}ҠჀ3", %p)}, undef, "to_unicode\(\'\?\󠇀\\u200D\。\\u0663ҠჀ3\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3947\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󨣿󠇀\x{200D}。\x{0663}ҡⴠ3", %p)}, undef, "to_unicode\(\'\?\󠇀\\u200D\。\\u0663ҡⴠ3\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3948\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󨣿󠇀\x{200D}。\x{0663}ҡⴠ3", %p)}, undef, "to_unicode\(\'\?\󠇀\\u200D\。\\u0663ҡⴠ3\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3949\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󨣿󠇀\x{200D}。\x{0663}Ҡⴠ3", %p)}, undef, "to_unicode\(\'\?\󠇀\\u200D\。\\u0663Ҡⴠ3\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3950\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󨣿󠇀\x{200D}。\x{0663}Ҡⴠ3", %p)}, undef, "to_unicode\(\'\?\󠇀\\u200D\。\\u0663Ҡⴠ3\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3951\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󨣿󠇀\x{200D}｡\x{0663}ҡⴠ𝟑", %p)}, undef, "to_unicode\(\'\?\󠇀\\u200D｡\\u0663ҡⴠ𝟑\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3952\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󨣿󠇀\x{200D}｡\x{0663}ҡⴠ𝟑", %p)}, undef, "to_unicode\(\'\?\󠇀\\u200D｡\\u0663ҡⴠ𝟑\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3953\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󨣿󠇀\x{200D}｡\x{0663}Ҡⴠ𝟑", %p)}, undef, "to_unicode\(\'\?\󠇀\\u200D｡\\u0663Ҡⴠ𝟑\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3954\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󨣿󠇀\x{200D}｡\x{0663}Ҡⴠ𝟑", %p)}, undef, "to_unicode\(\'\?\󠇀\\u200D｡\\u0663Ҡⴠ𝟑\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3955\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("ᡷ。𐹢\x{08E0}", %p)}, undef, "to_unicode\(\'ᡷ\。𐹢\\u08E0\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3956\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("򕮇\x{1BF3}｡\x{0666}񗜼\x{17D2}ß", %p)}, undef, "to_unicode\(\'\?\\u1BF3｡\\u0666\?\\u17D2ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3957\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򕮇\x{1BF3}。\x{0666}񗜼\x{17D2}ß", %p)}, undef, "to_unicode\(\'\?\\u1BF3\。\\u0666\?\\u17D2ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3958\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򕮇\x{1BF3}。\x{0666}񗜼\x{17D2}SS", %p)}, undef, "to_unicode\(\'\?\\u1BF3\。\\u0666\?\\u17D2SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3959\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򕮇\x{1BF3}。\x{0666}񗜼\x{17D2}ss", %p)}, undef, "to_unicode\(\'\?\\u1BF3\。\\u0666\?\\u17D2ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3960\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򕮇\x{1BF3}。\x{0666}񗜼\x{17D2}Ss", %p)}, undef, "to_unicode\(\'\?\\u1BF3\。\\u0666\?\\u17D2Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3961\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򕮇\x{1BF3}｡\x{0666}񗜼\x{17D2}SS", %p)}, undef, "to_unicode\(\'\?\\u1BF3｡\\u0666\?\\u17D2SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3962\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򕮇\x{1BF3}｡\x{0666}񗜼\x{17D2}ss", %p)}, undef, "to_unicode\(\'\?\\u1BF3｡\\u0666\?\\u17D2ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3963\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򕮇\x{1BF3}｡\x{0666}񗜼\x{17D2}Ss", %p)}, undef, "to_unicode\(\'\?\\u1BF3｡\\u0666\?\\u17D2Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3964\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0664}򤽎𑲛.󠔢︒≠", %p)}, undef, "to_unicode\(\'\\u0664\?\?\.\?︒\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3965\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0664}򤽎𑲛.󠔢︒=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0664\?\?\.\?︒\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3966\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0664}򤽎𑲛.󠔢。≠", %p)}, undef, "to_unicode\(\'\\u0664\?\?\.\?\。\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3967\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0664}򤽎𑲛.󠔢。=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0664\?\?\.\?\。\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3968\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("➆񷧕ỗ⒈．򑬒񡘮\x{085B}𝟫", %p)}, undef, "to_unicode\(\'➆\?ỗ⒈．\?\?\\u085B𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3969\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("➆񷧕o\x{0302}\x{0303}⒈．򑬒񡘮\x{085B}𝟫", %p)}, undef, "to_unicode\(\'➆\?o\\u0302\\u0303⒈．\?\?\\u085B𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3970\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("➆񷧕ỗ1..򑬒񡘮\x{085B}9", %p)}, undef, "to_unicode\(\'➆\?ỗ1\.\.\?\?\\u085B9\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3971\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("➆񷧕o\x{0302}\x{0303}1..򑬒񡘮\x{085B}9", %p)}, undef, "to_unicode\(\'➆\?o\\u0302\\u03031\.\.\?\?\\u085B9\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3972\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("➆񷧕O\x{0302}\x{0303}1..򑬒񡘮\x{085B}9", %p)}, undef, "to_unicode\(\'➆\?O\\u0302\\u03031\.\.\?\?\\u085B9\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3973\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("➆񷧕Ỗ1..򑬒񡘮\x{085B}9", %p)}, undef, "to_unicode\(\'➆\?Ỗ1\.\.\?\?\\u085B9\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3974\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("➆񷧕O\x{0302}\x{0303}⒈．򑬒񡘮\x{085B}𝟫", %p)}, undef, "to_unicode\(\'➆\?O\\u0302\\u0303⒈．\?\?\\u085B𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3975\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("➆񷧕Ỗ⒈．򑬒񡘮\x{085B}𝟫", %p)}, undef, "to_unicode\(\'➆\?Ỗ⒈．\?\?\\u085B𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3976\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{200D}｡𞤘", %p)}, undef, "to_unicode\(\'\\u200D｡\?\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3977\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{200D}｡𞤘", %p)}, undef, "to_unicode\(\'\\u200D｡\?\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3978\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{200D}。𞤘", %p)}, undef, "to_unicode\(\'\\u200D\。\?\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3979\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{200D}。𞤘", %p)}, undef, "to_unicode\(\'\\u200D\。\?\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3980\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("xn--ye6h", %p)}, "𞤺", "to_unicode\(\'xn\-\-ye6h\'\)\ \[data\/IdnaTest\.txt\:3981\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤺", %p)}, "𞤺", "to_unicode\(\'\?\'\)\ \[data\/IdnaTest\.txt\:3982\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0829}\x{0724}.ᢣ", %p)}, undef, "to_unicode\(\'\\u0829\\u0724\.ᢣ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3983\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{073C}\x{200C}-。𓐾ß", %p)}, undef, "to_unicode\(\'\\u073C\\u200C\-\。\?ß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3984\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{073C}\x{200C}-。𓐾ß", %p)}, undef, "to_unicode\(\'\\u073C\\u200C\-\。\?ß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3985\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{073C}\x{200C}-。𓐾SS", %p)}, undef, "to_unicode\(\'\\u073C\\u200C\-\。\?SS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3986\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{073C}\x{200C}-。𓐾SS", %p)}, undef, "to_unicode\(\'\\u073C\\u200C\-\。\?SS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3987\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{073C}\x{200C}-。𓐾ss", %p)}, undef, "to_unicode\(\'\\u073C\\u200C\-\。\?ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3988\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{073C}\x{200C}-。𓐾ss", %p)}, undef, "to_unicode\(\'\\u073C\\u200C\-\。\?ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3989\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{073C}\x{200C}-。𓐾Ss", %p)}, undef, "to_unicode\(\'\\u073C\\u200C\-\。\?Ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3990\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{073C}\x{200C}-。𓐾Ss", %p)}, undef, "to_unicode\(\'\\u073C\\u200C\-\。\?Ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3991\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ς🃡⒗.\x{0CC6}仧\x{0756}", %p)}, undef, "to_unicode\(\'\\u200Cς🃡⒗\.\\u0CC6仧\\u0756\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3992\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}ς🃡⒗.\x{0CC6}仧\x{0756}", %p)}, undef, "to_unicode\(\'\\u200Cς🃡⒗\.\\u0CC6仧\\u0756\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3993\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}ς🃡16..\x{0CC6}仧\x{0756}", %p)}, undef, "to_unicode\(\'\\u200Cς🃡16\.\.\\u0CC6仧\\u0756\'\)\ throws\ error\ V5\ C1\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:3994\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}ς🃡16..\x{0CC6}仧\x{0756}", %p)}, undef, "to_unicode\(\'\\u200Cς🃡16\.\.\\u0CC6仧\\u0756\'\)\ throws\ error\ V5\ C1\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:3995\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}Σ🃡16..\x{0CC6}仧\x{0756}", %p)}, undef, "to_unicode\(\'\\u200CΣ🃡16\.\.\\u0CC6仧\\u0756\'\)\ throws\ error\ V5\ C1\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:3996\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}Σ🃡16..\x{0CC6}仧\x{0756}", %p)}, undef, "to_unicode\(\'\\u200CΣ🃡16\.\.\\u0CC6仧\\u0756\'\)\ throws\ error\ V5\ C1\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:3997\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}σ🃡16..\x{0CC6}仧\x{0756}", %p)}, undef, "to_unicode\(\'\\u200Cσ🃡16\.\.\\u0CC6仧\\u0756\'\)\ throws\ error\ V5\ C1\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:3998\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}σ🃡16..\x{0CC6}仧\x{0756}", %p)}, undef, "to_unicode\(\'\\u200Cσ🃡16\.\.\\u0CC6仧\\u0756\'\)\ throws\ error\ V5\ C1\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:3999\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200C}Σ🃡⒗.\x{0CC6}仧\x{0756}", %p)}, undef, "to_unicode\(\'\\u200CΣ🃡⒗\.\\u0CC6仧\\u0756\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4000\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}Σ🃡⒗.\x{0CC6}仧\x{0756}", %p)}, undef, "to_unicode\(\'\\u200CΣ🃡⒗\.\\u0CC6仧\\u0756\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4001\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}σ🃡⒗.\x{0CC6}仧\x{0756}", %p)}, undef, "to_unicode\(\'\\u200Cσ🃡⒗\.\\u0CC6仧\\u0756\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4002\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}σ🃡⒗.\x{0CC6}仧\x{0756}", %p)}, undef, "to_unicode\(\'\\u200Cσ🃡⒗\.\\u0CC6仧\\u0756\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4003\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("-.𞸚", %p)}, undef, "to_unicode\(\'\-\.𞸚\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4004\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("-.\x{0638}", %p)}, undef, "to_unicode\(\'\-\.\\u0638\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4005\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򏛓\x{0683}.\x{0F7E}\x{0634}", %p)}, undef, "to_unicode\(\'\?\\u0683\.\\u0F7E\\u0634\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4006\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0FE6}\x{0843}񽶬.𐮏", %p)}, undef, "to_unicode\(\'\\u0FE6\\u0843\?\.𐮏\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4007\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("2񎨠\x{07CB}ß。ᠽ", %p)}, undef, "to_unicode\(\'2\?\\u07CBß\。ᠽ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4008\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("2񎨠\x{07CB}SS。ᠽ", %p)}, undef, "to_unicode\(\'2\?\\u07CBSS\。ᠽ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4009\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("2񎨠\x{07CB}ss。ᠽ", %p)}, undef, "to_unicode\(\'2\?\\u07CBss\。ᠽ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4010\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("2񎨠\x{07CB}Ss。ᠽ", %p)}, undef, "to_unicode\(\'2\?\\u07CBSs\。ᠽ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4011\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}≮．\x{06CE}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\≮．\\u06CEß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4012\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}≮．\x{06CE}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\≮．\\u06CEß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4013\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}<\x{0338}．\x{06CE}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\<\\u0338．\\u06CEß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4014\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}<\x{0338}．\x{06CE}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\<\\u0338．\\u06CEß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4015\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}≮.\x{06CE}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\≮\.\\u06CEß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4016\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}≮.\x{06CE}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\≮\.\\u06CEß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4017\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}<\x{0338}.\x{06CE}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\<\\u0338\.\\u06CEß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4018\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}<\x{0338}.\x{06CE}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\<\\u0338\.\\u06CEß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4019\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}<\x{0338}.\x{06CE}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\<\\u0338\.\\u06CESS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4020\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}<\x{0338}.\x{06CE}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\<\\u0338\.\\u06CESS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4021\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}≮.\x{06CE}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\≮\.\\u06CESS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4022\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}≮.\x{06CE}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\≮\.\\u06CESS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4023\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}≮.\x{06CE}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\≮\.\\u06CEss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4024\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}≮.\x{06CE}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\≮\.\\u06CEss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4025\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}<\x{0338}.\x{06CE}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\<\\u0338\.\\u06CEss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4026\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}<\x{0338}.\x{06CE}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\<\\u0338\.\\u06CEss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4027\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}<\x{0338}.\x{06CE}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\<\\u0338\.\\u06CESs\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4028\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}<\x{0338}.\x{06CE}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\<\\u0338\.\\u06CESs\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4029\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}≮.\x{06CE}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\≮\.\\u06CESs\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4030\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}≮.\x{06CE}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\≮\.\\u06CESs\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4031\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}<\x{0338}．\x{06CE}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\<\\u0338．\\u06CESS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4032\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}<\x{0338}．\x{06CE}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\<\\u0338．\\u06CESS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4033\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}≮．\x{06CE}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\≮．\\u06CESS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4034\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}≮．\x{06CE}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\≮．\\u06CESS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4035\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}≮．\x{06CE}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\≮．\\u06CEss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4036\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}≮．\x{06CE}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\≮．\\u06CEss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4037\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}<\x{0338}．\x{06CE}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\<\\u0338．\\u06CEss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4038\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}<\x{0338}．\x{06CE}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\<\\u0338．\\u06CEss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4039\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}<\x{0338}．\x{06CE}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\<\\u0338．\\u06CESs\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4040\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}<\x{0338}．\x{06CE}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\<\\u0338．\\u06CESs\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4041\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}≮．\x{06CE}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\≮．\\u06CESs\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4042\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㸳\x{07CA}≮．\x{06CE}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u07CA\≮．\\u06CESs\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4043\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-򷝬\x{135E}𑜧.\x{1DEB}-︒", %p)}, undef, "to_unicode\(\'\-\?\\u135E𑜧\.\\u1DEB\-︒\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4044\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-򷝬\x{135E}𑜧.\x{1DEB}-。", %p)}, undef, "to_unicode\(\'\-\?\\u135E𑜧\.\\u1DEB\-\。\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4045\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("︒.򚠡\x{1A59}", %p)}, undef, "to_unicode\(\'︒\.\?\\u1A59\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4046\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("。.򚠡\x{1A59}", %p)}, undef, "to_unicode\(\'\。\.\?\\u1A59\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4047\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{0323}\x{2DE1}。\x{200C}⓾\x{200C}\x{06B9}", %p)}, undef, "to_unicode\(\'\\u0323\\u2DE1\。\\u200C⓾\\u200C\\u06B9\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4048\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{0323}\x{2DE1}。\x{200C}⓾\x{200C}\x{06B9}", %p)}, undef, "to_unicode\(\'\\u0323\\u2DE1\。\\u200C⓾\\u200C\\u06B9\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4049\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𞠶ᠴ\x{06DD}｡\x{1074}𞤵󠅦", %p)}, undef, "to_unicode\(\'𞠶ᠴ\\u06DD｡\\u1074\?\󠅦\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B1\ \[data\/IdnaTest\.txt\:4050\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞠶ᠴ\x{06DD}。\x{1074}𞤵󠅦", %p)}, undef, "to_unicode\(\'𞠶ᠴ\\u06DD\。\\u1074\?\󠅦\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B1\ \[data\/IdnaTest\.txt\:4051\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑰺.-򑟏", %p)}, undef, "to_unicode\(\'\?\.\-\?\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:4052\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠻩．赏", %p)}, undef, "to_unicode\(\'\?．赏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4053\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠻩.赏", %p)}, undef, "to_unicode\(\'\?\.赏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4054\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06B0}ᠡ｡Ⴁ", %p)}, undef, "to_unicode\(\'\\u06B0ᠡ｡Ⴁ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4055\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06B0}ᠡ。Ⴁ", %p)}, undef, "to_unicode\(\'\\u06B0ᠡ\。Ⴁ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4056\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{06B0}ᠡ。ⴁ", %p)}, undef, "to_unicode\(\'\\u06B0ᠡ\。ⴁ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4057\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{06B0}ᠡ｡ⴁ", %p)}, undef, "to_unicode\(\'\\u06B0ᠡ｡ⴁ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4058\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{20DE}Ⴊ\x{06BB}ς｡-", %p)}, undef, "to_unicode\(\'\\u20DEႪ\\u06BBς｡\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4059\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{20DE}Ⴊ\x{06BB}ς。-", %p)}, undef, "to_unicode\(\'\\u20DEႪ\\u06BBς\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4060\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{20DE}ⴊ\x{06BB}ς。-", %p)}, undef, "to_unicode\(\'\\u20DEⴊ\\u06BBς\。\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4061\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{20DE}Ⴊ\x{06BB}Σ。-", %p)}, undef, "to_unicode\(\'\\u20DEႪ\\u06BBΣ\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4062\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{20DE}ⴊ\x{06BB}σ。-", %p)}, undef, "to_unicode\(\'\\u20DEⴊ\\u06BBσ\。\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4063\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{20DE}Ⴊ\x{06BB}σ。-", %p)}, undef, "to_unicode\(\'\\u20DEႪ\\u06BBσ\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4064\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{20DE}ⴊ\x{06BB}ς｡-", %p)}, undef, "to_unicode\(\'\\u20DEⴊ\\u06BBς｡\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4065\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{20DE}Ⴊ\x{06BB}Σ｡-", %p)}, undef, "to_unicode\(\'\\u20DEႪ\\u06BBΣ｡\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4066\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{20DE}ⴊ\x{06BB}σ｡-", %p)}, undef, "to_unicode\(\'\\u20DEⴊ\\u06BBσ｡\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4067\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{20DE}Ⴊ\x{06BB}σ｡-", %p)}, undef, "to_unicode\(\'\\u20DEႪ\\u06BBσ｡\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4068\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴍ．񍇦\x{200C}", %p)}, undef, "to_unicode\(\'Ⴍ．\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4069\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴍ．񍇦\x{200C}", %p)}, undef, "to_unicode\(\'Ⴍ．\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4070\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴍ.񍇦\x{200C}", %p)}, undef, "to_unicode\(\'Ⴍ\.\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4071\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴍ.񍇦\x{200C}", %p)}, undef, "to_unicode\(\'Ⴍ\.\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4072\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴍ.񍇦\x{200C}", %p)}, undef, "to_unicode\(\'ⴍ\.\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4073\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴍ.񍇦\x{200C}", %p)}, undef, "to_unicode\(\'ⴍ\.\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4074\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴍ．񍇦\x{200C}", %p)}, undef, "to_unicode\(\'ⴍ．\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4075\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴍ．񍇦\x{200C}", %p)}, undef, "to_unicode\(\'ⴍ．\?\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4076\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򉟂󠵣.𐫫\x{1A60}󴺖\x{1B44}", %p)}, undef, "to_unicode\(\'\?\?\.𐫫\\u1A60\?\\u1B44\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4077\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯❊ᠯ｡𐹱⺨", %p)}, undef, "to_unicode\(\'\≯\❊ᠯ｡𐹱⺨\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4078\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}❊ᠯ｡𐹱⺨", %p)}, undef, "to_unicode\(\'\>\\u0338\❊ᠯ｡𐹱⺨\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4079\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯❊ᠯ。𐹱⺨", %p)}, undef, "to_unicode\(\'\≯\❊ᠯ\。𐹱⺨\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4080\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}❊ᠯ。𐹱⺨", %p)}, undef, "to_unicode\(\'\>\\u0338\❊ᠯ\。𐹱⺨\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4081\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("􁕜𐹧𞭁𐹩。Ⴈ𐫮Ⴏ", %p)}, undef, "to_unicode\(\'\?𐹧\?𐹩\。Ⴈ𐫮Ⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4082\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("􁕜𐹧𞭁𐹩。ⴈ𐫮ⴏ", %p)}, undef, "to_unicode\(\'\?𐹧\?𐹩\。ⴈ𐫮ⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4083\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𞠂。\x{A926}", %p)}, undef, "to_unicode\(\'𞠂\。\\uA926\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4084\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𝟔𐹫．\x{0733}\x{1037}９ꡇ", %p)}, undef, "to_unicode\(\'𝟔𐹫．\\u0733\\u1037９ꡇ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4085\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𝟔𐹫．\x{1037}\x{0733}９ꡇ", %p)}, undef, "to_unicode\(\'𝟔𐹫．\\u1037\\u0733９ꡇ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4086\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("6𐹫.\x{1037}\x{0733}9ꡇ", %p)}, undef, "to_unicode\(\'6𐹫\.\\u1037\\u07339ꡇ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4087\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{0724}\x{0603}𞲶．\x{06D8}", %p)}, undef, "to_unicode\(\'\\u0724\\u0603\?．\\u06D8\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4088\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0724}\x{0603}𞲶.\x{06D8}", %p)}, undef, "to_unicode\(\'\\u0724\\u0603\?\.\\u06D8\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4089\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("✆񱔩ꡋ．\x{0632}\x{200D}𞣴", %p)}, undef, "to_unicode\(\'\✆\?ꡋ．\\u0632\\u200D\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4090\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("✆񱔩ꡋ．\x{0632}\x{200D}𞣴", %p)}, undef, "to_unicode\(\'\✆\?ꡋ．\\u0632\\u200D\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4091\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("✆񱔩ꡋ.\x{0632}\x{200D}𞣴", %p)}, undef, "to_unicode\(\'\✆\?ꡋ\.\\u0632\\u200D\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4092\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("✆񱔩ꡋ.\x{0632}\x{200D}𞣴", %p)}, undef, "to_unicode\(\'\✆\?ꡋ\.\\u0632\\u200D\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4093\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0845}񃾰𞸍-．≠򃁟𑋪", %p)}, undef, "to_unicode\(\'\\u0845\?𞸍\-．\≠\?𑋪\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4094\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0845}񃾰𞸍-．=\x{0338}򃁟𑋪", %p)}, undef, "to_unicode\(\'\\u0845\?𞸍\-．\=\\u0338\?𑋪\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4095\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0845}񃾰\x{0646}-.≠򃁟𑋪", %p)}, undef, "to_unicode\(\'\\u0845\?\\u0646\-\.\≠\?𑋪\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4096\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0845}񃾰\x{0646}-.=\x{0338}򃁟𑋪", %p)}, undef, "to_unicode\(\'\\u0845\?\\u0646\-\.\=\\u0338\?𑋪\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4097\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟛．笠", %p)}, "3.笠", "to_unicode\(\'𝟛．笠\'\)\ \[data\/IdnaTest\.txt\:4098\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟛．笠", %p)}, "3.笠", "to_unicode\(\'𝟛．笠\'\)\ \[data\/IdnaTest\.txt\:4099\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("3.笠", %p)}, "3.笠", "to_unicode\(\'3\.笠\'\)\ \[data\/IdnaTest\.txt\:4100\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("3.xn--6vz", %p)}, "3.笠", "to_unicode\(\'3\.xn\-\-6vz\'\)\ \[data\/IdnaTest\.txt\:4101\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{200D}.Ⴞ𐋷", %p)}, undef, "to_unicode\(\'\-\\u200D\.Ⴞ𐋷\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:4102\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{200D}.Ⴞ𐋷", %p)}, undef, "to_unicode\(\'\-\\u200D\.Ⴞ𐋷\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:4103\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-\x{200D}.ⴞ𐋷", %p)}, undef, "to_unicode\(\'\-\\u200D\.ⴞ𐋷\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:4104\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-\x{200D}.ⴞ𐋷", %p)}, undef, "to_unicode\(\'\-\\u200D\.ⴞ𐋷\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:4105\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200D}ςß\x{0731}．\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200Dςß\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4106\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}ςß\x{0731}．\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200Dςß\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4107\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}ςß\x{0731}.\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200Dςß\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4108\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}ςß\x{0731}.\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200Dςß\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4109\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}ΣSS\x{0731}.\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200DΣSS\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4110\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}ΣSS\x{0731}.\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200DΣSS\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4111\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}σss\x{0731}.\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200Dσss\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4112\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}σss\x{0731}.\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200Dσss\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4113\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}Σss\x{0731}.\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200DΣss\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4114\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}Σss\x{0731}.\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200DΣss\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4115\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}Σß\x{0731}.\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200DΣß\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4116\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}Σß\x{0731}.\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200DΣß\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4117\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}σß\x{0731}.\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200Dσß\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4118\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}σß\x{0731}.\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200Dσß\\u0731\.\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4119\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}ΣSS\x{0731}．\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200DΣSS\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4120\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}ΣSS\x{0731}．\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200DΣSS\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4121\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}σss\x{0731}．\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200Dσss\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4122\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}σss\x{0731}．\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200Dσss\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4123\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}Σss\x{0731}．\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200DΣss\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4124\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}Σss\x{0731}．\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200DΣss\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4125\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}Σß\x{0731}．\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200DΣß\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4126\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}Σß\x{0731}．\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200DΣß\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4127\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}σß\x{0731}．\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200Dσß\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4128\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}σß\x{0731}．\x{0BCD}", %p)}, undef, "to_unicode\(\'\\u200Dσß\\u0731．\\u0BCD\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4129\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠．\x{200D}", %p)}, undef, "to_unicode\(\'\≠．\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4130\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠．\x{200D}", %p)}, undef, "to_unicode\(\'\≠．\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4131\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}．\x{200D}", %p)}, undef, "to_unicode\(\'\=\\u0338．\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4132\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}．\x{200D}", %p)}, undef, "to_unicode\(\'\=\\u0338．\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4133\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠.\x{200D}", %p)}, undef, "to_unicode\(\'\≠\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4134\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠.\x{200D}", %p)}, undef, "to_unicode\(\'\≠\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4135\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}.\x{200D}", %p)}, undef, "to_unicode\(\'\=\\u0338\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4136\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}.\x{200D}", %p)}, undef, "to_unicode\(\'\=\\u0338\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4137\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FC01}｡\x{0C81}ᠼ▗򒁋", %p)}, undef, "to_unicode\(\'\\uFC01｡\\u0C81ᠼ\▗\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4138\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0626}\x{062D}。\x{0C81}ᠼ▗򒁋", %p)}, undef, "to_unicode\(\'\\u0626\\u062D\。\\u0C81ᠼ\▗\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4139\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{064A}\x{0654}\x{062D}。\x{0C81}ᠼ▗򒁋", %p)}, undef, "to_unicode\(\'\\u064A\\u0654\\u062D\。\\u0C81ᠼ\▗\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4140\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󧋵\x{09CD}ς．ς𐨿", %p)}, undef, "to_unicode\(\'\?\\u09CDς．ς𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4141\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󧋵\x{09CD}ς.ς𐨿", %p)}, undef, "to_unicode\(\'\?\\u09CDς\.ς𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4142\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󧋵\x{09CD}Σ.Σ𐨿", %p)}, undef, "to_unicode\(\'\?\\u09CDΣ\.Σ𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4143\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󧋵\x{09CD}σ.ς𐨿", %p)}, undef, "to_unicode\(\'\?\\u09CDσ\.ς𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4144\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󧋵\x{09CD}σ.σ𐨿", %p)}, undef, "to_unicode\(\'\?\\u09CDσ\.σ𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4145\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󧋵\x{09CD}Σ.σ𐨿", %p)}, undef, "to_unicode\(\'\?\\u09CDΣ\.σ𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4146\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󧋵\x{09CD}Σ.ς𐨿", %p)}, undef, "to_unicode\(\'\?\\u09CDΣ\.ς𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4147\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󧋵\x{09CD}Σ．Σ𐨿", %p)}, undef, "to_unicode\(\'\?\\u09CDΣ．Σ𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4148\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󧋵\x{09CD}σ．ς𐨿", %p)}, undef, "to_unicode\(\'\?\\u09CDσ．ς𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4149\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󧋵\x{09CD}σ．σ𐨿", %p)}, undef, "to_unicode\(\'\?\\u09CDσ．σ𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4150\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󧋵\x{09CD}Σ．σ𐨿", %p)}, undef, "to_unicode\(\'\?\\u09CDΣ．σ𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4151\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󧋵\x{09CD}Σ．ς𐨿", %p)}, undef, "to_unicode\(\'\?\\u09CDΣ．ς𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4152\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐫓\x{07D8}牅\x{08F8}｡𞦤\x{1A17}򱍰Ⴙ", %p)}, undef, "to_unicode\(\'𐫓\\u07D8牅\\u08F8｡\?\\u1A17\?Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4153\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐫓\x{07D8}牅\x{08F8}。𞦤\x{1A17}򱍰Ⴙ", %p)}, undef, "to_unicode\(\'𐫓\\u07D8牅\\u08F8\。\?\\u1A17\?Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4154\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐫓\x{07D8}牅\x{08F8}。𞦤\x{1A17}򱍰ⴙ", %p)}, undef, "to_unicode\(\'𐫓\\u07D8牅\\u08F8\。\?\\u1A17\?ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4155\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐫓\x{07D8}牅\x{08F8}｡𞦤\x{1A17}򱍰ⴙ", %p)}, undef, "to_unicode\(\'𐫓\\u07D8牅\\u08F8｡\?\\u1A17\?ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4156\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񣤒｡륧", %p)}, undef, "to_unicode\(\'\?｡륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4157\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񣤒｡륧", %p)}, undef, "to_unicode\(\'\?｡륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4158\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񣤒。륧", %p)}, undef, "to_unicode\(\'\?\。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4159\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񣤒。륧", %p)}, undef, "to_unicode\(\'\?\。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4160\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹷\x{200D}。󉵢", %p)}, undef, "to_unicode\(\'𐹷\\u200D\。\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4161\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹷\x{200D}。󉵢", %p)}, undef, "to_unicode\(\'𐹷\\u200D\。\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4162\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴘ\x{06C2}𑲭｡-", %p)}, undef, "to_unicode\(\'Ⴘ\\u06C2\?｡\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4163\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴘ\x{06C1}\x{0654}𑲭｡-", %p)}, undef, "to_unicode\(\'Ⴘ\\u06C1\\u0654\?｡\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4164\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴘ\x{06C2}𑲭。-", %p)}, undef, "to_unicode\(\'Ⴘ\\u06C2\?\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4165\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴘ\x{06C1}\x{0654}𑲭。-", %p)}, undef, "to_unicode\(\'Ⴘ\\u06C1\\u0654\?\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4166\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("ⴘ\x{06C1}\x{0654}𑲭。-", %p)}, undef, "to_unicode\(\'ⴘ\\u06C1\\u0654\?\。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4167\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("ⴘ\x{06C2}𑲭。-", %p)}, undef, "to_unicode\(\'ⴘ\\u06C2\?\。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4168\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("ⴘ\x{06C1}\x{0654}𑲭｡-", %p)}, undef, "to_unicode\(\'ⴘ\\u06C1\\u0654\?｡\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4169\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("ⴘ\x{06C2}𑲭｡-", %p)}, undef, "to_unicode\(\'ⴘ\\u06C2\?｡\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4170\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{A806}\x{067B}₆ᡐ。🛇\x{FCDD}", %p)}, undef, "to_unicode\(\'\\uA806\\u067B₆ᡐ\。🛇\\uFCDD\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4171\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{A806}\x{067B}6ᡐ。🛇\x{064A}\x{0645}", %p)}, undef, "to_unicode\(\'\\uA806\\u067B6ᡐ\。🛇\\u064A\\u0645\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4172\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("򸍂.㇄ᡟ𐫂\x{0622}", %p)}, undef, "to_unicode\(\'\?\.㇄ᡟ𐫂\\u0622\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4173\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򸍂.㇄ᡟ𐫂\x{0627}\x{0653}", %p)}, undef, "to_unicode\(\'\?\.㇄ᡟ𐫂\\u0627\\u0653\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4174\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07DF}򵚌。-\x{07E9}", %p)}, undef, "to_unicode\(\'\\u07DF\?\。\-\\u07E9\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4175\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς\x{0643}⾑．\x{200C}ᢟ\x{200C}⒈", %p)}, undef, "to_unicode\(\'ς\\u0643⾑．\\u200Cᢟ\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:4176\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς\x{0643}⾑．\x{200C}ᢟ\x{200C}⒈", %p)}, undef, "to_unicode\(\'ς\\u0643⾑．\\u200Cᢟ\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:4177\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς\x{0643}襾.\x{200C}ᢟ\x{200C}1.", %p)}, undef, "to_unicode\(\'ς\\u0643襾\.\\u200Cᢟ\\u200C1\.\'\)\ throws\ error\ B5\ C1\ \[data\/IdnaTest\.txt\:4178\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς\x{0643}襾.\x{200C}ᢟ\x{200C}1.", %p)}, undef, "to_unicode\(\'ς\\u0643襾\.\\u200Cᢟ\\u200C1\.\'\)\ throws\ error\ B5\ C1\ \[data\/IdnaTest\.txt\:4179\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ\x{0643}襾.\x{200C}ᢟ\x{200C}1.", %p)}, undef, "to_unicode\(\'Σ\\u0643襾\.\\u200Cᢟ\\u200C1\.\'\)\ throws\ error\ B5\ C1\ \[data\/IdnaTest\.txt\:4180\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ\x{0643}襾.\x{200C}ᢟ\x{200C}1.", %p)}, undef, "to_unicode\(\'Σ\\u0643襾\.\\u200Cᢟ\\u200C1\.\'\)\ throws\ error\ B5\ C1\ \[data\/IdnaTest\.txt\:4181\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ\x{0643}襾.\x{200C}ᢟ\x{200C}1.", %p)}, undef, "to_unicode\(\'σ\\u0643襾\.\\u200Cᢟ\\u200C1\.\'\)\ throws\ error\ B5\ C1\ \[data\/IdnaTest\.txt\:4182\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ\x{0643}襾.\x{200C}ᢟ\x{200C}1.", %p)}, undef, "to_unicode\(\'σ\\u0643襾\.\\u200Cᢟ\\u200C1\.\'\)\ throws\ error\ B5\ C1\ \[data\/IdnaTest\.txt\:4183\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ\x{0643}⾑．\x{200C}ᢟ\x{200C}⒈", %p)}, undef, "to_unicode\(\'Σ\\u0643⾑．\\u200Cᢟ\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:4184\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ\x{0643}⾑．\x{200C}ᢟ\x{200C}⒈", %p)}, undef, "to_unicode\(\'Σ\\u0643⾑．\\u200Cᢟ\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:4185\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ\x{0643}⾑．\x{200C}ᢟ\x{200C}⒈", %p)}, undef, "to_unicode\(\'σ\\u0643⾑．\\u200Cᢟ\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:4186\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ\x{0643}⾑．\x{200C}ᢟ\x{200C}⒈", %p)}, undef, "to_unicode\(\'σ\\u0643⾑．\\u200Cᢟ\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:4187\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡆ𑓝．𞵆", %p)}, undef, "to_unicode\(\'ᡆ\?．\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4188\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡆ𑓝.𞵆", %p)}, undef, "to_unicode\(\'ᡆ\?\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4189\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0A4D}𦍓\x{1DEE}｡\x{200C}\x{08BD}񝹲", %p)}, undef, "to_unicode\(\'\\u0A4D𦍓\\u1DEE｡\\u200C\\u08BD\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4190\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0A4D}𦍓\x{1DEE}｡\x{200C}\x{08BD}񝹲", %p)}, undef, "to_unicode\(\'\\u0A4D𦍓\\u1DEE｡\\u200C\\u08BD\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4191\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0A4D}𦍓\x{1DEE}。\x{200C}\x{08BD}񝹲", %p)}, undef, "to_unicode\(\'\\u0A4D𦍓\\u1DEE\。\\u200C\\u08BD\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4192\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0A4D}𦍓\x{1DEE}。\x{200C}\x{08BD}񝹲", %p)}, undef, "to_unicode\(\'\\u0A4D𦍓\\u1DEE\。\\u200C\\u08BD\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4193\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{062E}\x{0748}񅪪-．\x{200C}먿", %p)}, undef, "to_unicode\(\'\\u062E\\u0748\?\-．\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:4194\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{062E}\x{0748}񅪪-．\x{200C}먿", %p)}, undef, "to_unicode\(\'\\u062E\\u0748\?\-．\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:4195\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{062E}\x{0748}񅪪-．\x{200C}먿", %p)}, undef, "to_unicode\(\'\\u062E\\u0748\?\-．\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:4196\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{062E}\x{0748}񅪪-．\x{200C}먿", %p)}, undef, "to_unicode\(\'\\u062E\\u0748\?\-．\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:4197\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{062E}\x{0748}񅪪-.\x{200C}먿", %p)}, undef, "to_unicode\(\'\\u062E\\u0748\?\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:4198\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{062E}\x{0748}񅪪-.\x{200C}먿", %p)}, undef, "to_unicode\(\'\\u062E\\u0748\?\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:4199\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{062E}\x{0748}񅪪-.\x{200C}먿", %p)}, undef, "to_unicode\(\'\\u062E\\u0748\?\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:4200\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{062E}\x{0748}񅪪-.\x{200C}먿", %p)}, undef, "to_unicode\(\'\\u062E\\u0748\?\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:4201\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("􋿦｡ᠽ", %p)}, undef, "to_unicode\(\'\?｡ᠽ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4202\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("􋿦。ᠽ", %p)}, undef, "to_unicode\(\'\?\。ᠽ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4203\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("嬃𝍌．\x{200D}\x{0B44}", %p)}, undef, "to_unicode\(\'嬃𝍌．\\u200D\\u0B44\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4204\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("嬃𝍌．\x{200D}\x{0B44}", %p)}, undef, "to_unicode\(\'嬃𝍌．\\u200D\\u0B44\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4205\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("嬃𝍌.\x{200D}\x{0B44}", %p)}, undef, "to_unicode\(\'嬃𝍌\.\\u200D\\u0B44\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4206\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("嬃𝍌.\x{200D}\x{0B44}", %p)}, undef, "to_unicode\(\'嬃𝍌\.\\u200D\\u0B44\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4207\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{0602}𝌪≯．𚋲򵁨", %p)}, undef, "to_unicode\(\'\\u0602𝌪\≯．\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4208\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0602}𝌪>\x{0338}．𚋲򵁨", %p)}, undef, "to_unicode\(\'\\u0602𝌪\>\\u0338．\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4209\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0602}𝌪≯.𚋲򵁨", %p)}, undef, "to_unicode\(\'\\u0602𝌪\≯\.\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4210\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0602}𝌪>\x{0338}.𚋲򵁨", %p)}, undef, "to_unicode\(\'\\u0602𝌪\>\\u0338\.\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4211\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򫾥\x{08B7}\x{17CC}\x{A9C0}.𞼠", %p)}, undef, "to_unicode\(\'\?\\u08B7\\u17CC\\uA9C0\.\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4212\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.񟛤", %p)}, undef, "to_unicode\(\'\\u200C\.\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4213\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.񟛤", %p)}, undef, "to_unicode\(\'\\u200C\.\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4214\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򺛕Ⴃ䠅．𐸑", %p)}, undef, "to_unicode\(\'\?Ⴃ䠅．\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4215\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򺛕Ⴃ䠅.𐸑", %p)}, undef, "to_unicode\(\'\?Ⴃ䠅\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4216\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򺛕ⴃ䠅.𐸑", %p)}, undef, "to_unicode\(\'\?ⴃ䠅\.\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4217\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򺛕ⴃ䠅．𐸑", %p)}, undef, "to_unicode\(\'\?ⴃ䠅．\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4218\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BF1}𐹳𐹵𞤚｡𝟨Ⴅ", %p)}, undef, "to_unicode\(\'\\u1BF1𐹳𐹵\?｡𝟨Ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4219\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BF1}𐹳𐹵𞤚。6Ⴅ", %p)}, undef, "to_unicode\(\'\\u1BF1𐹳𐹵\?\。6Ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4220\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{1BF1}𐹳𐹵𞤚。6ⴅ", %p)}, undef, "to_unicode\(\'\\u1BF1𐹳𐹵\?\。6ⴅ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4221\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{1BF1}𐹳𐹵𞤚｡𝟨ⴅ", %p)}, undef, "to_unicode\(\'\\u1BF1𐹳𐹵\?｡𝟨ⴅ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4222\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("-｡︒", %p)}, undef, "to_unicode\(\'\-｡︒\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4223\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-。。", %p)}, undef, "to_unicode\(\'\-\。\。\'\)\ throws\ error\ V3\ A4_2\ \[data\/IdnaTest\.txt\:4224\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07DB}Ⴠ｡-⁵--", %p)}, undef, "to_unicode\(\'\\u07DBჀ｡\-⁵\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4225\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07DB}Ⴠ。-5--", %p)}, undef, "to_unicode\(\'\\u07DBჀ\。\-5\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4226\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{07DB}ⴠ。-5--", %p)}, undef, "to_unicode\(\'\\u07DBⴠ\。\-5\-\-\'\)\ throws\ error\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4227\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{07DB}ⴠ｡-⁵--", %p)}, undef, "to_unicode\(\'\\u07DBⴠ｡\-⁵\-\-\'\)\ throws\ error\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4228\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("≯\x{D8DD}󠑕｡𐹷𐹻≯𐷒", %p)}, undef, "to_unicode\(\'\≯\\uD8DD\?｡𐹷𐹻\≯\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4229\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}\x{D8DD}󠑕｡𐹷𐹻>\x{0338}𐷒", %p)}, undef, "to_unicode\(\'\>\\u0338\\uD8DD\?｡𐹷𐹻\>\\u0338\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4230\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯\x{D8DD}󠑕。𐹷𐹻≯𐷒", %p)}, undef, "to_unicode\(\'\≯\\uD8DD\?\。𐹷𐹻\≯\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4231\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}\x{D8DD}󠑕。𐹷𐹻>\x{0338}𐷒", %p)}, undef, "to_unicode\(\'\>\\u0338\\uD8DD\?\。𐹷𐹻\>\\u0338\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4232\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㍔\x{08E6}\x{077C}\x{200D}。\x{0346}򁳊𝅶\x{0604}", %p)}, undef, "to_unicode\(\'㍔\\u08E6\\u077C\\u200D\。\\u0346\?\?\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4233\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㍔\x{08E6}\x{077C}\x{200D}。\x{0346}򁳊𝅶\x{0604}", %p)}, undef, "to_unicode\(\'㍔\\u08E6\\u077C\\u200D\。\\u0346\?\?\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4234\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ルーブル\x{08E6}\x{077C}\x{200D}。\x{0346}򁳊𝅶\x{0604}", %p)}, undef, "to_unicode\(\'ルーブル\\u08E6\\u077C\\u200D\。\\u0346\?\?\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4235\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ルーブル\x{08E6}\x{077C}\x{200D}。\x{0346}򁳊𝅶\x{0604}", %p)}, undef, "to_unicode\(\'ルーブル\\u08E6\\u077C\\u200D\。\\u0346\?\?\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4236\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ルーフ\x{3099}ル\x{08E6}\x{077C}\x{200D}。\x{0346}򁳊𝅶\x{0604}", %p)}, undef, "to_unicode\(\'ルーフ\\u3099ル\\u08E6\\u077C\\u200D\。\\u0346\?\?\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4237\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ルーフ\x{3099}ル\x{08E6}\x{077C}\x{200D}。\x{0346}򁳊𝅶\x{0604}", %p)}, undef, "to_unicode\(\'ルーフ\\u3099ル\\u08E6\\u077C\\u200D\。\\u0346\?\?\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4238\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}.F", %p)}, undef, "to_unicode\(\'\\u200D\.F\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4239\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}.F", %p)}, undef, "to_unicode\(\'\\u200D\.F\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4240\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("f", %p)}, "f", "to_unicode\(\'f\'\)\ \[data\/IdnaTest\.txt\:4241\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}㨲｡ß", %p)}, undef, "to_unicode\(\'\\u200D㨲｡ß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4242\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}㨲｡ß", %p)}, undef, "to_unicode\(\'\\u200D㨲｡ß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4243\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}㨲。ß", %p)}, undef, "to_unicode\(\'\\u200D㨲\。ß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4244\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}㨲。ß", %p)}, undef, "to_unicode\(\'\\u200D㨲\。ß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4245\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}㨲。SS", %p)}, undef, "to_unicode\(\'\\u200D㨲\。SS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4246\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}㨲。SS", %p)}, undef, "to_unicode\(\'\\u200D㨲\。SS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4247\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--9bm.ss", %p)}, "㨲.ss", "to_unicode\(\'xn\-\-9bm\.ss\'\)\ \[data\/IdnaTest\.txt\:4248\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㨲.ss", %p)}, "㨲.ss", "to_unicode\(\'㨲\.ss\'\)\ \[data\/IdnaTest\.txt\:4249\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}㨲｡SS", %p)}, undef, "to_unicode\(\'\\u200D㨲｡SS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4250\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}㨲｡SS", %p)}, undef, "to_unicode\(\'\\u200D㨲｡SS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4251\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0605}\x{067E}｡\x{08A8}", %p)}, undef, "to_unicode\(\'\\u0605\\u067E｡\\u08A8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4252\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0605}\x{067E}。\x{08A8}", %p)}, undef, "to_unicode\(\'\\u0605\\u067E\。\\u08A8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4253\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("⾑\x{0753}𞤁。𐹵\x{0682}", %p)}, undef, "to_unicode\(\'⾑\\u0753\?\。𐹵\\u0682\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4254\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("襾\x{0753}𞤁。𐹵\x{0682}", %p)}, undef, "to_unicode\(\'襾\\u0753\?\。𐹵\\u0682\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4255\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("񦴻ς-\x{20EB}｡\x{0754}-ꡛ", %p)}, undef, "to_unicode\(\'\?ς\-\\u20EB｡\\u0754\-ꡛ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4256\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񦴻ς-\x{20EB}。\x{0754}-ꡛ", %p)}, undef, "to_unicode\(\'\?ς\-\\u20EB\。\\u0754\-ꡛ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4257\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񦴻Σ-\x{20EB}。\x{0754}-ꡛ", %p)}, undef, "to_unicode\(\'\?Σ\-\\u20EB\。\\u0754\-ꡛ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4258\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񦴻σ-\x{20EB}。\x{0754}-ꡛ", %p)}, undef, "to_unicode\(\'\?σ\-\\u20EB\。\\u0754\-ꡛ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4259\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񦴻Σ-\x{20EB}｡\x{0754}-ꡛ", %p)}, undef, "to_unicode\(\'\?Σ\-\\u20EB｡\\u0754\-ꡛ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4260\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񦴻σ-\x{20EB}｡\x{0754}-ꡛ", %p)}, undef, "to_unicode\(\'\?σ\-\\u20EB｡\\u0754\-ꡛ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4261\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}．􀸨", %p)}, undef, "to_unicode\(\'\\u200D．\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4262\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}．􀸨", %p)}, undef, "to_unicode\(\'\\u200D．\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4263\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}.􀸨", %p)}, undef, "to_unicode\(\'\\u200D\.\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4264\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}.􀸨", %p)}, undef, "to_unicode\(\'\\u200D\.\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4265\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񣭻񌥁｡≠𝟲", %p)}, undef, "to_unicode\(\'\?\?｡\≠𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4266\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񣭻񌥁｡=\x{0338}𝟲", %p)}, undef, "to_unicode\(\'\?\?｡\=\\u0338𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4267\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񣭻񌥁。≠6", %p)}, undef, "to_unicode\(\'\?\?\。\≠6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4268\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񣭻񌥁。=\x{0338}6", %p)}, undef, "to_unicode\(\'\?\?\。\=\\u03386\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4269\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅊ᡭ\x{200D}.𐥡", %p)}, undef, "to_unicode\(\'\󠅊ᡭ\\u200D\.\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4270\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠅊ᡭ\x{200D}.𐥡", %p)}, undef, "to_unicode\(\'\󠅊ᡭ\\u200D\.\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4271\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0C40}\x{0855}𐥛𑄴．󭰵", %p)}, undef, "to_unicode\(\'\\u0C40\\u0855\?𑄴．\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4272\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0C40}\x{0855}𐥛𑄴.󭰵", %p)}, undef, "to_unicode\(\'\\u0C40\\u0855\?𑄴\.\?\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4273\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤮。𑇊\x{200C}≯\x{1CE6}", %p)}, undef, "to_unicode\(\'\?\。𑇊\\u200C\≯\\u1CE6\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4274\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤮。𑇊\x{200C}≯\x{1CE6}", %p)}, undef, "to_unicode\(\'\?\。𑇊\\u200C\≯\\u1CE6\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4275\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤮。𑇊\x{200C}>\x{0338}\x{1CE6}", %p)}, undef, "to_unicode\(\'\?\。𑇊\\u200C\>\\u0338\\u1CE6\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4276\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤮。𑇊\x{200C}>\x{0338}\x{1CE6}", %p)}, undef, "to_unicode\(\'\?\。𑇊\\u200C\>\\u0338\\u1CE6\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4277\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄀𝟕.𞤌񛗓Ⴉ", %p)}, undef, "to_unicode\(\'\󠄀𝟕\.\?\?Ⴉ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4278\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄀7.𞤌񛗓Ⴉ", %p)}, undef, "to_unicode\(\'\󠄀7\.\?\?Ⴉ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4279\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄀7.𞤌񛗓ⴉ", %p)}, undef, "to_unicode\(\'\󠄀7\.\?\?ⴉ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4280\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄀𝟕.𞤌񛗓ⴉ", %p)}, undef, "to_unicode\(\'\󠄀𝟕\.\?\?ⴉ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4281\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("閃9𝩍。Ↄ\x{0669}\x{08B1}\x{0B4D}", %p)}, undef, "to_unicode\(\'閃9𝩍\。Ↄ\\u0669\\u08B1\\u0B4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4282\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("閃9𝩍。ↄ\x{0669}\x{08B1}\x{0B4D}", %p)}, undef, "to_unicode\(\'閃9𝩍\。ↄ\\u0669\\u08B1\\u0B4D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4283\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{AAF6}ᢏ\x{0E3A}２.𐋢\x{0745}\x{0F9F}︒", %p)}, undef, "to_unicode\(\'\\uAAF6ᢏ\\u0E3A２\.𐋢\\u0745\\u0F9F︒\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4284\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{AAF6}ᢏ\x{0E3A}2.𐋢\x{0745}\x{0F9F}。", %p)}, undef, "to_unicode\(\'\\uAAF6ᢏ\\u0E3A2\.𐋢\\u0745\\u0F9F\。\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4285\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("󅴧｡≠-󠙄⾛", %p)}, undef, "to_unicode\(\'\?｡\≠\-\?⾛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4286\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󅴧｡=\x{0338}-󠙄⾛", %p)}, undef, "to_unicode\(\'\?｡\=\\u0338\-\?⾛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4287\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󅴧。≠-󠙄走", %p)}, undef, "to_unicode\(\'\?\。\≠\-\?走\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4288\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󅴧。=\x{0338}-󠙄走", %p)}, undef, "to_unicode\(\'\?\。\=\\u0338\-\?走\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4289\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{076E}\x{0604}Ⴊ。-≠\x{1160}", %p)}, undef, "to_unicode\(\'\\u076E\\u0604Ⴊ\。\-\≠\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4290\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{076E}\x{0604}Ⴊ。-=\x{0338}\x{1160}", %p)}, undef, "to_unicode\(\'\\u076E\\u0604Ⴊ\。\-\=\\u0338\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4291\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{076E}\x{0604}ⴊ。-=\x{0338}\x{1160}", %p)}, undef, "to_unicode\(\'\\u076E\\u0604ⴊ\。\-\=\\u0338\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4292\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{076E}\x{0604}ⴊ。-≠\x{1160}", %p)}, undef, "to_unicode\(\'\\u076E\\u0604ⴊ\。\-\≠\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4293\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FB4F}𐹧𝟒≯｡\x{200C}", %p)}, undef, "to_unicode\(\'\\uFB4F𐹧𝟒\≯｡\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4294\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FB4F}𐹧𝟒≯｡\x{200C}", %p)}, undef, "to_unicode\(\'\\uFB4F𐹧𝟒\≯｡\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4295\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FB4F}𐹧𝟒>\x{0338}｡\x{200C}", %p)}, undef, "to_unicode\(\'\\uFB4F𐹧𝟒\>\\u0338｡\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4296\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FB4F}𐹧𝟒>\x{0338}｡\x{200C}", %p)}, undef, "to_unicode\(\'\\uFB4F𐹧𝟒\>\\u0338｡\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4297\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{05D0}\x{05DC}𐹧4≯。\x{200C}", %p)}, undef, "to_unicode\(\'\\u05D0\\u05DC𐹧4\≯\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4298\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{05D0}\x{05DC}𐹧4≯。\x{200C}", %p)}, undef, "to_unicode\(\'\\u05D0\\u05DC𐹧4\≯\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4299\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{05D0}\x{05DC}𐹧4>\x{0338}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u05D0\\u05DC𐹧4\>\\u0338\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4300\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{05D0}\x{05DC}𐹧4>\x{0338}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u05D0\\u05DC𐹧4\>\\u0338\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4301\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟎。甯", %p)}, "0.甯", "to_unicode\(\'𝟎\。甯\'\)\ \[data\/IdnaTest\.txt\:4302\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("0。甯", %p)}, "0.甯", "to_unicode\(\'0\。甯\'\)\ \[data\/IdnaTest\.txt\:4303\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("0.xn--qny", %p)}, "0.甯", "to_unicode\(\'0\.xn\-\-qny\'\)\ \[data\/IdnaTest\.txt\:4304\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("0.甯", %p)}, "0.甯", "to_unicode\(\'0\.甯\'\)\ \[data\/IdnaTest\.txt\:4305\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("-⾆．\x{AAF6}", %p)}, undef, "to_unicode\(\'\-⾆．\\uAAF6\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4306\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("-舌.\x{AAF6}", %p)}, undef, "to_unicode\(\'\-舌\.\\uAAF6\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4307\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("-｡ᢘ", %p)}, undef, "to_unicode\(\'\-｡ᢘ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4308\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-。ᢘ", %p)}, undef, "to_unicode\(\'\-\。ᢘ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4309\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🂴Ⴋ.≮", %p)}, undef, "to_unicode\(\'🂴Ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4310\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🂴Ⴋ.<\x{0338}", %p)}, undef, "to_unicode\(\'🂴Ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4311\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🂴ⴋ.<\x{0338}", %p)}, undef, "to_unicode\(\'🂴ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4312\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🂴ⴋ.≮", %p)}, undef, "to_unicode\(\'🂴ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4313\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("璼𝨭｡\x{200C}󠇟", %p)}, undef, "to_unicode\(\'璼𝨭｡\\u200C\󠇟\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4314\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("璼𝨭｡\x{200C}󠇟", %p)}, undef, "to_unicode\(\'璼𝨭｡\\u200C\󠇟\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4315\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("璼𝨭。\x{200C}󠇟", %p)}, undef, "to_unicode\(\'璼𝨭\。\\u200C\󠇟\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4316\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("璼𝨭。\x{200C}󠇟", %p)}, undef, "to_unicode\(\'璼𝨭\。\\u200C\󠇟\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4317\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("xn--gky8837e.", %p)}, "璼𝨭.", "to_unicode\(\'xn\-\-gky8837e\.\'\)\ \[data\/IdnaTest\.txt\:4318\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("璼𝨭.", %p)}, "璼𝨭.", "to_unicode\(\'璼𝨭\.\'\)\ \[data\/IdnaTest\.txt\:4319\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{0669}8񂍽｡-5🞥", %p)}, undef, "to_unicode\(\'\\u06698\?｡\-5🞥\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4320\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0669}8񂍽。-5🞥", %p)}, undef, "to_unicode\(\'\\u06698\?\。\-5🞥\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4321\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.\x{200C}", %p)}, undef, "to_unicode\(\'\\u200C\.\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4322\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.\x{200C}", %p)}, undef, "to_unicode\(\'\\u200C\.\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4323\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}튛.\x{0716}", %p)}, undef, "to_unicode\(\'\\u200D튛\.\\u0716\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4324\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}튛.\x{0716}", %p)}, undef, "to_unicode\(\'\\u200D튛\.\\u0716\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4325\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}튛.\x{0716}", %p)}, undef, "to_unicode\(\'\\u200D튛\.\\u0716\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4326\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}튛.\x{0716}", %p)}, undef, "to_unicode\(\'\\u200D튛\.\\u0716\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4327\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--157b.xn--gnb", %p)}, "튛.\x{0716}", "to_unicode\(\'xn\-\-157b\.xn\-\-gnb\'\)\ \[data\/IdnaTest\.txt\:4328\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("튛.\x{0716}", %p)}, "튛.\x{0716}", "to_unicode\(\'튛\.\\u0716\'\)\ \[data\/IdnaTest\.txt\:4329\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("튛.\x{0716}", %p)}, "튛.\x{0716}", "to_unicode\(\'튛\.\\u0716\'\)\ \[data\/IdnaTest\.txt\:4330\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡋ𐹰𞽳.\x{0779}ⴞ", %p)}, undef, "to_unicode\(\'ᡋ𐹰\?\.\\u0779ⴞ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4331\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᡋ𐹰𞽳.\x{0779}Ⴞ", %p)}, undef, "to_unicode\(\'ᡋ𐹰\?\.\\u0779Ⴞ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4332\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐷃\x{0662}𝅻𝟧．𐹮𐹬Ⴇ", %p)}, undef, "to_unicode\(\'\?\\u0662𝅻𝟧．𐹮𐹬Ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4333\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐷃\x{0662}𝅻5.𐹮𐹬Ⴇ", %p)}, undef, "to_unicode\(\'\?\\u0662𝅻5\.𐹮𐹬Ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4334\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐷃\x{0662}𝅻5.𐹮𐹬ⴇ", %p)}, undef, "to_unicode\(\'\?\\u0662𝅻5\.𐹮𐹬ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4335\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐷃\x{0662}𝅻𝟧．𐹮𐹬ⴇ", %p)}, undef, "to_unicode\(\'\?\\u0662𝅻𝟧．𐹮𐹬ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4336\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴗ．\x{05C2}𑄴\x{A9B7}񘃨", %p)}, undef, "to_unicode\(\'Ⴗ．\\u05C2𑄴\\uA9B7\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4337\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴗ．𑄴\x{05C2}\x{A9B7}񘃨", %p)}, undef, "to_unicode\(\'Ⴗ．𑄴\\u05C2\\uA9B7\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4338\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴗ.𑄴\x{05C2}\x{A9B7}񘃨", %p)}, undef, "to_unicode\(\'Ⴗ\.𑄴\\u05C2\\uA9B7\?\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4339\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴗ.𑄴\x{05C2}\x{A9B7}񘃨", %p)}, undef, "to_unicode\(\'ⴗ\.𑄴\\u05C2\\uA9B7\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4340\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴗ．𑄴\x{05C2}\x{A9B7}񘃨", %p)}, undef, "to_unicode\(\'ⴗ．𑄴\\u05C2\\uA9B7\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4341\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴗ．\x{05C2}𑄴\x{A9B7}񘃨", %p)}, undef, "to_unicode\(\'ⴗ．\\u05C2𑄴\\uA9B7\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4342\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟾𾤘．򇕛\x{066C}", %p)}, undef, "to_unicode\(\'𝟾\?．\?\\u066C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4343\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("8𾤘.򇕛\x{066C}", %p)}, undef, "to_unicode\(\'8\?\.\?\\u066C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4344\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈酫︒。\x{08D6}", %p)}, undef, "to_unicode\(\'⒈酫︒\。\\u08D6\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4345\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("1.酫。。\x{08D6}", %p)}, undef, "to_unicode\(\'1\.酫\。\。\\u08D6\'\)\ throws\ error\ V5\ A4_2\ \[data\/IdnaTest\.txt\:4346\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{2DE3}\x{200C}≮\x{1A6B}.\x{200C}\x{0E3A}", %p)}, undef, "to_unicode\(\'\\u2DE3\\u200C\≮\\u1A6B\.\\u200C\\u0E3A\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4347\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{2DE3}\x{200C}≮\x{1A6B}.\x{200C}\x{0E3A}", %p)}, undef, "to_unicode\(\'\\u2DE3\\u200C\≮\\u1A6B\.\\u200C\\u0E3A\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4348\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{2DE3}\x{200C}<\x{0338}\x{1A6B}.\x{200C}\x{0E3A}", %p)}, undef, "to_unicode\(\'\\u2DE3\\u200C\<\\u0338\\u1A6B\.\\u200C\\u0E3A\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4349\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{2DE3}\x{200C}<\x{0338}\x{1A6B}.\x{200C}\x{0E3A}", %p)}, undef, "to_unicode\(\'\\u2DE3\\u200C\<\\u0338\\u1A6B\.\\u200C\\u0E3A\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4350\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞪂。ႷႽ¹\x{200D}", %p)}, undef, "to_unicode\(\'\?\。ႷႽ¹\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4351\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞪂。ႷႽ¹\x{200D}", %p)}, undef, "to_unicode\(\'\?\。ႷႽ¹\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4352\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞪂。ႷႽ1\x{200D}", %p)}, undef, "to_unicode\(\'\?\。ႷႽ1\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4353\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞪂。ႷႽ1\x{200D}", %p)}, undef, "to_unicode\(\'\?\。ႷႽ1\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4354\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞪂。ⴗⴝ1\x{200D}", %p)}, undef, "to_unicode\(\'\?\。ⴗⴝ1\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4355\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞪂。ⴗⴝ1\x{200D}", %p)}, undef, "to_unicode\(\'\?\。ⴗⴝ1\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4356\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞪂。Ⴗⴝ1\x{200D}", %p)}, undef, "to_unicode\(\'\?\。Ⴗⴝ1\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4357\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞪂。Ⴗⴝ1\x{200D}", %p)}, undef, "to_unicode\(\'\?\。Ⴗⴝ1\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4358\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞪂。ⴗⴝ¹\x{200D}", %p)}, undef, "to_unicode\(\'\?\。ⴗⴝ¹\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4359\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞪂。ⴗⴝ¹\x{200D}", %p)}, undef, "to_unicode\(\'\?\。ⴗⴝ¹\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4360\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞪂。Ⴗⴝ¹\x{200D}", %p)}, undef, "to_unicode\(\'\?\。Ⴗⴝ¹\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4361\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞪂。Ⴗⴝ¹\x{200D}", %p)}, undef, "to_unicode\(\'\?\。Ⴗⴝ¹\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4362\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑄴𑄳2.𞳿󠀳-", %p)}, undef, "to_unicode\(\'𑄴𑄳2\.\?\?\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:4363\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕲󟶶\x{0665}｡񀁁𑄳𞤃\x{0710}", %p)}, undef, "to_unicode\(\'\?\?\\u0665｡\?𑄳\?\\u0710\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:4364\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠕲󟶶\x{0665}。񀁁𑄳𞤃\x{0710}", %p)}, undef, "to_unicode\(\'\?\?\\u0665\。\?𑄳\?\\u0710\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:4365\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0720}򲠽𐹢\x{17BB}｡ςᢈ🝭\x{200C}", %p)}, undef, "to_unicode\(\'\\u0720\?𐹢\\u17BB｡ςᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ C1\ \[data\/IdnaTest\.txt\:4366\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0720}򲠽𐹢\x{17BB}｡ςᢈ🝭\x{200C}", %p)}, undef, "to_unicode\(\'\\u0720\?𐹢\\u17BB｡ςᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ C1\ \[data\/IdnaTest\.txt\:4367\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0720}򲠽𐹢\x{17BB}。ςᢈ🝭\x{200C}", %p)}, undef, "to_unicode\(\'\\u0720\?𐹢\\u17BB\。ςᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ C1\ \[data\/IdnaTest\.txt\:4368\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0720}򲠽𐹢\x{17BB}。ςᢈ🝭\x{200C}", %p)}, undef, "to_unicode\(\'\\u0720\?𐹢\\u17BB\。ςᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ C1\ \[data\/IdnaTest\.txt\:4369\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0720}򲠽𐹢\x{17BB}。Σᢈ🝭\x{200C}", %p)}, undef, "to_unicode\(\'\\u0720\?𐹢\\u17BB\。Σᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ C1\ \[data\/IdnaTest\.txt\:4370\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0720}򲠽𐹢\x{17BB}。Σᢈ🝭\x{200C}", %p)}, undef, "to_unicode\(\'\\u0720\?𐹢\\u17BB\。Σᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ C1\ \[data\/IdnaTest\.txt\:4371\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0720}򲠽𐹢\x{17BB}。σᢈ🝭\x{200C}", %p)}, undef, "to_unicode\(\'\\u0720\?𐹢\\u17BB\。σᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ C1\ \[data\/IdnaTest\.txt\:4372\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0720}򲠽𐹢\x{17BB}。σᢈ🝭\x{200C}", %p)}, undef, "to_unicode\(\'\\u0720\?𐹢\\u17BB\。σᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ C1\ \[data\/IdnaTest\.txt\:4373\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0720}򲠽𐹢\x{17BB}｡Σᢈ🝭\x{200C}", %p)}, undef, "to_unicode\(\'\\u0720\?𐹢\\u17BB｡Σᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ C1\ \[data\/IdnaTest\.txt\:4374\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0720}򲠽𐹢\x{17BB}｡Σᢈ🝭\x{200C}", %p)}, undef, "to_unicode\(\'\\u0720\?𐹢\\u17BB｡Σᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ C1\ \[data\/IdnaTest\.txt\:4375\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0720}򲠽𐹢\x{17BB}｡σᢈ🝭\x{200C}", %p)}, undef, "to_unicode\(\'\\u0720\?𐹢\\u17BB｡σᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ C1\ \[data\/IdnaTest\.txt\:4376\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0720}򲠽𐹢\x{17BB}｡σᢈ🝭\x{200C}", %p)}, undef, "to_unicode\(\'\\u0720\?𐹢\\u17BB｡σᢈ🝭\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ C1\ \[data\/IdnaTest\.txt\:4377\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}--≮。𐹧", %p)}, undef, "to_unicode\(\'\\u200D\-\-\≮\。𐹧\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:4378\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}--≮。𐹧", %p)}, undef, "to_unicode\(\'\\u200D\-\-\≮\。𐹧\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:4379\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}--<\x{0338}。𐹧", %p)}, undef, "to_unicode\(\'\\u200D\-\-\<\\u0338\。𐹧\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:4380\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}--<\x{0338}。𐹧", %p)}, undef, "to_unicode\(\'\\u200D\-\-\<\\u0338\。𐹧\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:4381\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A806}。𻚏\x{0FB0}⒕", %p)}, undef, "to_unicode\(\'\\uA806\。\?\\u0FB0⒕\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4382\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A806}。𻚏\x{0FB0}14.", %p)}, undef, "to_unicode\(\'\\uA806\。\?\\u0FB014\.\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4383\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򮉂\x{06BC}．𑆺\x{0669}", %p)}, undef, "to_unicode\(\'\?\\u06BC．𑆺\\u0669\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4384\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򮉂\x{06BC}.𑆺\x{0669}", %p)}, undef, "to_unicode\(\'\?\\u06BC\.𑆺\\u0669\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4385\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠁎\x{06D0}-。𞤴", %p)}, undef, "to_unicode\(\'\?\\u06D0\-\。\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4386\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𝟠4󠇗𝈻．\x{200D}𐋵⛧\x{200D}", %p)}, undef, "to_unicode\(\'𝟠4\󠇗𝈻．\\u200D𐋵\⛧\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4387\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𝟠4󠇗𝈻．\x{200D}𐋵⛧\x{200D}", %p)}, undef, "to_unicode\(\'𝟠4\󠇗𝈻．\\u200D𐋵\⛧\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4388\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("84󠇗𝈻.\x{200D}𐋵⛧\x{200D}", %p)}, undef, "to_unicode\(\'84\󠇗𝈻\.\\u200D𐋵\⛧\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4389\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("84󠇗𝈻.\x{200D}𐋵⛧\x{200D}", %p)}, undef, "to_unicode\(\'84\󠇗𝈻\.\\u200D𐋵\⛧\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4390\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--84-s850a.xn--59h6326e", %p)}, "84𝈻.𐋵⛧", "to_unicode\(\'xn\-\-84\-s850a\.xn\-\-59h6326e\'\)\ \[data\/IdnaTest\.txt\:4391\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("84𝈻.𐋵⛧", %p)}, "84𝈻.𐋵⛧", "to_unicode\(\'84𝈻\.𐋵\⛧\'\)\ \[data\/IdnaTest\.txt\:4392\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("-\x{0601}｡ᡪ", %p)}, undef, "to_unicode\(\'\-\\u0601｡ᡪ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4393\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{0601}。ᡪ", %p)}, undef, "to_unicode\(\'\-\\u0601\。ᡪ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4394\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮𝟕．謖ß≯", %p)}, undef, "to_unicode\(\'\≮𝟕．謖ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4395\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}𝟕．謖ß>\x{0338}", %p)}, undef, "to_unicode\(\'\<\\u0338𝟕．謖ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4396\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮7.謖ß≯", %p)}, undef, "to_unicode\(\'\≮7\.謖ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4397\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}7.謖ß>\x{0338}", %p)}, undef, "to_unicode\(\'\<\\u03387\.謖ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4398\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}7.謖SS>\x{0338}", %p)}, undef, "to_unicode\(\'\<\\u03387\.謖SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4399\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮7.謖SS≯", %p)}, undef, "to_unicode\(\'\≮7\.謖SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4400\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮7.謖ss≯", %p)}, undef, "to_unicode\(\'\≮7\.謖ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4401\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}7.謖ss>\x{0338}", %p)}, undef, "to_unicode\(\'\<\\u03387\.謖ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4402\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}7.謖Ss>\x{0338}", %p)}, undef, "to_unicode\(\'\<\\u03387\.謖Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4403\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮7.謖Ss≯", %p)}, undef, "to_unicode\(\'\≮7\.謖Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4404\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}𝟕．謖SS>\x{0338}", %p)}, undef, "to_unicode\(\'\<\\u0338𝟕．謖SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4405\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮𝟕．謖SS≯", %p)}, undef, "to_unicode\(\'\≮𝟕．謖SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4406\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮𝟕．謖ss≯", %p)}, undef, "to_unicode\(\'\≮𝟕．謖ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4407\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}𝟕．謖ss>\x{0338}", %p)}, undef, "to_unicode\(\'\<\\u0338𝟕．謖ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4408\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}𝟕．謖Ss>\x{0338}", %p)}, undef, "to_unicode\(\'\<\\u0338𝟕．謖Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4409\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮𝟕．謖Ss≯", %p)}, undef, "to_unicode\(\'\≮𝟕．謖Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4410\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("朶Ⴉ𞪡.𝨽\x{0825}📻-", %p)}, undef, "to_unicode\(\'朶Ⴉ\?\.𝨽\\u0825📻\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4411\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("朶ⴉ𞪡.𝨽\x{0825}📻-", %p)}, undef, "to_unicode\(\'朶ⴉ\?\.𝨽\\u0825📻\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4412\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐤎。󑿰\x{200C}≮\x{200D}", %p)}, undef, "to_unicode\(\'𐤎\。\?\\u200C\≮\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:4413\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐤎。󑿰\x{200C}≮\x{200D}", %p)}, undef, "to_unicode\(\'𐤎\。\?\\u200C\≮\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:4414\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐤎。󑿰\x{200C}<\x{0338}\x{200D}", %p)}, undef, "to_unicode\(\'𐤎\。\?\\u200C\<\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:4415\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐤎。󑿰\x{200C}<\x{0338}\x{200D}", %p)}, undef, "to_unicode\(\'𐤎\。\?\\u200C\<\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:4416\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񭜎⒈｡\x{200C}𝟤", %p)}, undef, "to_unicode\(\'\?⒈｡\\u200C𝟤\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4417\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񭜎⒈｡\x{200C}𝟤", %p)}, undef, "to_unicode\(\'\?⒈｡\\u200C𝟤\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4418\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񭜎1.。\x{200C}2", %p)}, undef, "to_unicode\(\'\?1\.\。\\u200C2\'\)\ throws\ error\ P1\ V6\ A4_2\ C1\ \[data\/IdnaTest\.txt\:4419\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񭜎1.。\x{200C}2", %p)}, undef, "to_unicode\(\'\?1\.\。\\u200C2\'\)\ throws\ error\ P1\ V6\ A4_2\ C1\ \[data\/IdnaTest\.txt\:4420\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠟊𐹤\x{200D}．𐹳󙄵𐹶", %p)}, undef, "to_unicode\(\'\?𐹤\\u200D．𐹳\?𐹶\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4421\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠟊𐹤\x{200D}．𐹳󙄵𐹶", %p)}, undef, "to_unicode\(\'\?𐹤\\u200D．𐹳\?𐹶\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4422\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠟊𐹤\x{200D}.𐹳󙄵𐹶", %p)}, undef, "to_unicode\(\'\?𐹤\\u200D\.𐹳\?𐹶\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4423\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠟊𐹤\x{200D}.𐹳󙄵𐹶", %p)}, undef, "to_unicode\(\'\?𐹤\\u200D\.𐹳\?𐹶\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4424\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤴𐹻𑓂𐭝．\x{094D}\x{FE07}􉛯", %p)}, undef, "to_unicode\(\'\?𐹻𑓂𐭝．\\u094D\\uFE07\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4425\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤴𐹻𑓂𐭝.\x{094D}\x{FE07}􉛯", %p)}, undef, "to_unicode\(\'\?𐹻𑓂𐭝\.\\u094D\\uFE07\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4426\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0668}｡𐹠𐹽񗮶", %p)}, undef, "to_unicode\(\'\\u0668｡𐹠𐹽\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4427\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0668}。𐹠𐹽񗮶", %p)}, undef, "to_unicode\(\'\\u0668\。𐹠𐹽\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4428\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1160}񍀜.8򶾵\x{069C}", %p)}, undef, "to_unicode\(\'\\u1160\?\.8\?\\u069C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4429\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}\x{200C}󠆪｡ß𑓃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\󠆪｡ß𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4430\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}\x{200C}󠆪｡ß𑓃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\󠆪｡ß𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4431\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}\x{200C}󠆪。ß𑓃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\󠆪\。ß𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4432\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}\x{200C}󠆪。ß𑓃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\󠆪\。ß𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4433\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}\x{200C}󠆪。SS𑓃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\󠆪\。SS𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4434\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}\x{200C}󠆪。SS𑓃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\󠆪\。SS𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4435\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}\x{200C}󠆪。ss𑓃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\󠆪\。ss𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4436\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}\x{200C}󠆪。ss𑓃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\󠆪\。ss𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4437\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}\x{200C}󠆪。Ss𑓃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\󠆪\。Ss𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4438\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}\x{200C}󠆪。Ss𑓃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\󠆪\。Ss𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4439\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--ss-bh7o", %p)}, "ss𑓃", "to_unicode\(\'xn\-\-ss\-bh7o\'\)\ \[data\/IdnaTest\.txt\:4440\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ss𑓃", %p)}, "ss𑓃", "to_unicode\(\'ss𑓃\'\)\ \[data\/IdnaTest\.txt\:4441\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("SS𑓃", %p)}, "ss𑓃", "to_unicode\(\'SS𑓃\'\)\ \[data\/IdnaTest\.txt\:4442\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Ss𑓃", %p)}, "ss𑓃", "to_unicode\(\'Ss𑓃\'\)\ \[data\/IdnaTest\.txt\:4443\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}\x{200C}󠆪｡SS𑓃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\󠆪｡SS𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4444\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}\x{200C}󠆪｡SS𑓃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\󠆪｡SS𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4445\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}\x{200C}󠆪｡ss𑓃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\󠆪｡ss𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4446\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}\x{200C}󠆪｡ss𑓃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\󠆪｡ss𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4447\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}\x{200C}󠆪｡Ss𑓃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\󠆪｡Ss𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4448\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}\x{200C}󠆪｡Ss𑓃", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\󠆪｡Ss𑓃\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4449\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("︒\x{200C}ヶ䒩.ꡪ", %p)}, undef, "to_unicode\(\'︒\\u200Cヶ䒩\.ꡪ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4450\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("︒\x{200C}ヶ䒩.ꡪ", %p)}, undef, "to_unicode\(\'︒\\u200Cヶ䒩\.ꡪ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4451\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("。\x{200C}ヶ䒩.ꡪ", %p)}, undef, "to_unicode\(\'\。\\u200Cヶ䒩\.ꡪ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4452\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("。\x{200C}ヶ䒩.ꡪ", %p)}, undef, "to_unicode\(\'\。\\u200Cヶ䒩\.ꡪ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4453\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("xn--qekw60d.xn--gd9a", %p)}, "ヶ䒩.ꡪ", "to_unicode\(\'xn\-\-qekw60d\.xn\-\-gd9a\'\)\ \[data\/IdnaTest\.txt\:4454\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("ヶ䒩.ꡪ", %p)}, "ヶ䒩.ꡪ", "to_unicode\(\'ヶ䒩\.ꡪ\'\)\ \[data\/IdnaTest\.txt\:4455\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200C}⒈𤮍.󢓋\x{1A60}", %p)}, undef, "to_unicode\(\'\\u200C⒈𤮍\.\?\\u1A60\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4456\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}⒈𤮍.󢓋\x{1A60}", %p)}, undef, "to_unicode\(\'\\u200C⒈𤮍\.\?\\u1A60\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4457\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}1.𤮍.󢓋\x{1A60}", %p)}, undef, "to_unicode\(\'\\u200C1\.𤮍\.\?\\u1A60\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4458\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}1.𤮍.󢓋\x{1A60}", %p)}, undef, "to_unicode\(\'\\u200C1\.𤮍\.\?\\u1A60\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4459\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈\x{200C}𐫓󠀺。\x{1A60}񤰵\x{200D}", %p)}, undef, "to_unicode\(\'⒈\\u200C𐫓\?\。\\u1A60\?\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:4460\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈\x{200C}𐫓󠀺。\x{1A60}񤰵\x{200D}", %p)}, undef, "to_unicode\(\'⒈\\u200C𐫓\?\。\\u1A60\?\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:4461\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.\x{200C}𐫓󠀺。\x{1A60}񤰵\x{200D}", %p)}, undef, "to_unicode\(\'1\.\\u200C𐫓\?\。\\u1A60\?\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:4462\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("1.\x{200C}𐫓󠀺。\x{1A60}񤰵\x{200D}", %p)}, undef, "to_unicode\(\'1\.\\u200C𐫓\?\。\\u1A60\?\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:4463\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝅵｡𝟫𞀈䬺⒈", %p)}, undef, "to_unicode\(\'\?｡𝟫\?䬺⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4464\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝅵。9𞀈䬺1.", %p)}, undef, "to_unicode\(\'\?\。9\?䬺1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4465\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򡼺≯。盚\x{0635}", %p)}, undef, "to_unicode\(\'\?\≯\。盚\\u0635\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4466\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򡼺>\x{0338}。盚\x{0635}", %p)}, undef, "to_unicode\(\'\?\>\\u0338\。盚\\u0635\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4467\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-񿰭\x{05B4}。-󠁊𐢸≯", %p)}, undef, "to_unicode\(\'\-\?\\u05B4\。\-\?\?\≯\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4468\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-񿰭\x{05B4}。-󠁊𐢸>\x{0338}", %p)}, undef, "to_unicode\(\'\-\?\\u05B4\。\-\?\?\>\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4469\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󿭓\x{1B44}\x{200C}\x{0A4D}．𐭛񳋔", %p)}, undef, "to_unicode\(\'\?\\u1B44\\u200C\\u0A4D．𐭛\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4470\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󿭓\x{1B44}\x{200C}\x{0A4D}.𐭛񳋔", %p)}, undef, "to_unicode\(\'\?\\u1B44\\u200C\\u0A4D\.𐭛\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4471\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("⾇.\x{067D}𞤴\x{06BB}\x{200D}", %p)}, undef, "to_unicode\(\'⾇\.\\u067D\?\\u06BB\\u200D\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:4472\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("⾇.\x{067D}𞤴\x{06BB}\x{200D}", %p)}, undef, "to_unicode\(\'⾇\.\\u067D\?\\u06BB\\u200D\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:4473\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("舛.\x{067D}𞤴\x{06BB}\x{200D}", %p)}, undef, "to_unicode\(\'舛\.\\u067D\?\\u06BB\\u200D\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:4474\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("舛.\x{067D}𞤴\x{06BB}\x{200D}", %p)}, undef, "to_unicode\(\'舛\.\\u067D\?\\u06BB\\u200D\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:4475\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("xn--8c1a.xn--2ib8jn539l", %p)}, "舛.\x{067D}𞤴\x{06BB}", "to_unicode\(\'xn\-\-8c1a\.xn\-\-2ib8jn539l\'\)\ \[data\/IdnaTest\.txt\:4476\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("舛.\x{067D}𞤴\x{06BB}", %p)}, "舛.\x{067D}𞤴\x{06BB}", "to_unicode\(\'舛\.\\u067D\?\\u06BB\'\)\ \[data\/IdnaTest\.txt\:4477\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("4򭆥。\x{0767}≯", %p)}, undef, "to_unicode\(\'4\?\。\\u0767\≯\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4478\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4򭆥。\x{0767}>\x{0338}", %p)}, undef, "to_unicode\(\'4\?\。\\u0767\>\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4479\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲔏𞫨񺿂硲．\x{06AD}", %p)}, undef, "to_unicode\(\'\?\?\?硲．\\u06AD\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4480\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𲔏𞫨񺿂硲.\x{06AD}", %p)}, undef, "to_unicode\(\'\?\?\?硲\.\\u06AD\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4481\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.\x{FE08}\x{0666}Ⴆ℮", %p)}, undef, "to_unicode\(\'\\u200C\.\\uFE08\\u0666Ⴆ℮\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:4482\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}.\x{FE08}\x{0666}Ⴆ℮", %p)}, undef, "to_unicode\(\'\\u200C\.\\uFE08\\u0666Ⴆ℮\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:4483\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200C}.\x{FE08}\x{0666}ⴆ℮", %p)}, undef, "to_unicode\(\'\\u200C\.\\uFE08\\u0666ⴆ℮\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:4484\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{200C}.\x{FE08}\x{0666}ⴆ℮", %p)}, undef, "to_unicode\(\'\\u200C\.\\uFE08\\u0666ⴆ℮\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:4485\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{06A3}．\x{0D4D}\x{200D}Ϟ", %p)}, undef, "to_unicode\(\'\\u06A3．\\u0D4D\\u200DϞ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4486\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06A3}.\x{0D4D}\x{200D}Ϟ", %p)}, undef, "to_unicode\(\'\\u06A3\.\\u0D4D\\u200DϞ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4487\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06A3}.\x{0D4D}\x{200D}ϟ", %p)}, undef, "to_unicode\(\'\\u06A3\.\\u0D4D\\u200Dϟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4488\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06A3}．\x{0D4D}\x{200D}ϟ", %p)}, undef, "to_unicode\(\'\\u06A3．\\u0D4D\\u200Dϟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4489\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}𞸇𑘿。\x{0623}𐮂-腍", %p)}, undef, "to_unicode\(\'\\u200C𞸇𑘿\。\\u0623𐮂\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4490\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}𞸇𑘿。\x{0623}𐮂-腍", %p)}, undef, "to_unicode\(\'\\u200C𞸇𑘿\。\\u0623𐮂\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4491\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}𞸇𑘿。\x{0627}\x{0654}𐮂-腍", %p)}, undef, "to_unicode\(\'\\u200C𞸇𑘿\。\\u0627\\u0654𐮂\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4492\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}𞸇𑘿。\x{0627}\x{0654}𐮂-腍", %p)}, undef, "to_unicode\(\'\\u200C𞸇𑘿\。\\u0627\\u0654𐮂\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4493\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}\x{062D}𑘿。\x{0623}𐮂-腍", %p)}, undef, "to_unicode\(\'\\u200C\\u062D𑘿\。\\u0623𐮂\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4494\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}\x{062D}𑘿。\x{0623}𐮂-腍", %p)}, undef, "to_unicode\(\'\\u200C\\u062D𑘿\。\\u0623𐮂\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4495\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}\x{062D}𑘿。\x{0627}\x{0654}𐮂-腍", %p)}, undef, "to_unicode\(\'\\u200C\\u062D𑘿\。\\u0627\\u0654𐮂\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4496\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}\x{062D}𑘿。\x{0627}\x{0654}𐮂-腍", %p)}, undef, "to_unicode\(\'\\u200C\\u062D𑘿\。\\u0627\\u0654𐮂\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4497\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("-򭷙\x{066B}纛｡𝟛񭤇🄅", %p)}, undef, "to_unicode\(\'\-\?\\u066B纛｡𝟛\?🄅\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4498\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-򭷙\x{066B}纛。3񭤇4,", %p)}, undef, "to_unicode\(\'\-\?\\u066B纛\。3\?4\,\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4499\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🔔．Ⴂ\x{07CC}\x{0BCD}𐋮", %p)}, undef, "to_unicode\(\'🔔．Ⴂ\\u07CC\\u0BCD𐋮\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4500\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🔔.Ⴂ\x{07CC}\x{0BCD}𐋮", %p)}, undef, "to_unicode\(\'🔔\.Ⴂ\\u07CC\\u0BCD𐋮\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4501\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("🔔.ⴂ\x{07CC}\x{0BCD}𐋮", %p)}, undef, "to_unicode\(\'🔔\.ⴂ\\u07CC\\u0BCD𐋮\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4502\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("🔔．ⴂ\x{07CC}\x{0BCD}𐋮", %p)}, undef, "to_unicode\(\'🔔．ⴂ\\u07CC\\u0BCD𐋮\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4503\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("軥\x{06B3}.-𖬵", %p)}, undef, "to_unicode\(\'軥\\u06B3\.\-𖬵\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4504\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹤\x{07CA}\x{06B6}.𐨂-", %p)}, undef, "to_unicode\(\'𐹤\\u07CA\\u06B6\.𐨂\-\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:4505\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("-󠅱0｡\x{17CF}\x{1DFD}톇십", %p)}, undef, "to_unicode\(\'\-\󠅱0｡\\u17CF\\u1DFD톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4506\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("-󠅱0｡\x{17CF}\x{1DFD}톇십", %p)}, undef, "to_unicode\(\'\-\󠅱0｡\\u17CF\\u1DFD톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4507\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("-󠅱0。\x{17CF}\x{1DFD}톇십", %p)}, undef, "to_unicode\(\'\-\󠅱0\。\\u17CF\\u1DFD톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4508\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("-󠅱0。\x{17CF}\x{1DFD}톇십", %p)}, undef, "to_unicode\(\'\-\󠅱0\。\\u17CF\\u1DFD톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4509\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("ꡰ︒--｡\x{17CC}靈𐹢񘳮", %p)}, undef, "to_unicode\(\'ꡰ︒\-\-｡\\u17CC靈𐹢\?\'\)\ throws\ error\ P1\ V2\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4510\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡰ。--。\x{17CC}靈𐹢񘳮", %p)}, undef, "to_unicode\(\'ꡰ\。\-\-\。\\u17CC靈𐹢\?\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4511\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{115F}ႿႵრ｡\x{0B4D}", %p)}, undef, "to_unicode\(\'\\u115FႿႵრ｡\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4512\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{115F}ႿႵრ。\x{0B4D}", %p)}, undef, "to_unicode\(\'\\u115FႿႵრ\。\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4513\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{115F}ⴟⴕრ。\x{0B4D}", %p)}, undef, "to_unicode\(\'\\u115Fⴟⴕრ\。\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4514\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{115F}Ⴟⴕრ。\x{0B4D}", %p)}, undef, "to_unicode\(\'\\u115FႿⴕრ\。\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4515\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{115F}ⴟⴕრ｡\x{0B4D}", %p)}, undef, "to_unicode\(\'\\u115Fⴟⴕრ｡\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4516\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{115F}Ⴟⴕრ｡\x{0B4D}", %p)}, undef, "to_unicode\(\'\\u115FႿⴕრ｡\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4517\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🄃𐹠.\x{0664}󠅇", %p)}, undef, "to_unicode\(\'🄃𐹠\.\\u0664\󠅇\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4518\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("2,𐹠.\x{0664}󠅇", %p)}, undef, "to_unicode\(\'2\,𐹠\.\\u0664\󠅇\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4519\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򻲼\x{200C}\x{FC5B}．\x{07D2}\x{0848}\x{1BF3}", %p)}, undef, "to_unicode\(\'\?\\u200C\\uFC5B．\\u07D2\\u0848\\u1BF3\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4520\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򻲼\x{200C}\x{FC5B}．\x{07D2}\x{0848}\x{1BF3}", %p)}, undef, "to_unicode\(\'\?\\u200C\\uFC5B．\\u07D2\\u0848\\u1BF3\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4521\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򻲼\x{200C}\x{0630}\x{0670}.\x{07D2}\x{0848}\x{1BF3}", %p)}, undef, "to_unicode\(\'\?\\u200C\\u0630\\u0670\.\\u07D2\\u0848\\u1BF3\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4522\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򻲼\x{200C}\x{0630}\x{0670}.\x{07D2}\x{0848}\x{1BF3}", %p)}, undef, "to_unicode\(\'\?\\u200C\\u0630\\u0670\.\\u07D2\\u0848\\u1BF3\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4523\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}\x{200D}𞵪\x{200C}。ᡘ𑲭\x{17B5}", %p)}, undef, "to_unicode\(\'\\u200D\\u200D\?\\u200C\。ᡘ\?\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:4524\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}\x{200D}𞵪\x{200C}。ᡘ𑲭\x{17B5}", %p)}, undef, "to_unicode\(\'\\u200D\\u200D\?\\u200C\。ᡘ\?\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:4525\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞷻。⚄񗑇𑁿", %p)}, undef, "to_unicode\(\'\?\。\⚄\?𑁿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4526\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A8C4}≠．𞠨\x{0667}", %p)}, undef, "to_unicode\(\'\\uA8C4\≠．𞠨\\u0667\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4527\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A8C4}=\x{0338}．𞠨\x{0667}", %p)}, undef, "to_unicode\(\'\\uA8C4\=\\u0338．𞠨\\u0667\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4528\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A8C4}≠.𞠨\x{0667}", %p)}, undef, "to_unicode\(\'\\uA8C4\≠\.𞠨\\u0667\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4529\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A8C4}=\x{0338}.𞠨\x{0667}", %p)}, undef, "to_unicode\(\'\\uA8C4\=\\u0338\.𞠨\\u0667\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4530\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𝟛𝆪\x{A8C4}｡\x{A8EA}-", %p)}, undef, "to_unicode\(\'𝟛𝆪\\uA8C4｡\\uA8EA\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4531\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𝟛\x{A8C4}𝆪｡\x{A8EA}-", %p)}, undef, "to_unicode\(\'𝟛\\uA8C4𝆪｡\\uA8EA\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4532\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("3\x{A8C4}𝆪。\x{A8EA}-", %p)}, undef, "to_unicode\(\'3\\uA8C4𝆪\。\\uA8EA\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4533\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{075F}\x{1BA2}\x{103A}Ⴇ.4", %p)}, undef, "to_unicode\(\'\\u075F\\u1BA2\\u103AႧ\.4\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4534\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{075F}\x{1BA2}\x{103A}ⴇ.4", %p)}, undef, "to_unicode\(\'\\u075F\\u1BA2\\u103Aⴇ\.4\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4535\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("ᄹ｡\x{0ECA}򠯤󠄞", %p)}, undef, "to_unicode\(\'ᄹ｡\\u0ECA\?\󠄞\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4536\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᄹ。\x{0ECA}򠯤󠄞", %p)}, undef, "to_unicode\(\'ᄹ\。\\u0ECA\?\󠄞\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4537\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴆ򻢩．󠆡\x{FE09}𞤍", %p)}, undef, "to_unicode\(\'Ⴆ\?．\󠆡\\uFE09\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4538\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴆ򻢩.󠆡\x{FE09}𞤍", %p)}, undef, "to_unicode\(\'Ⴆ\?\.\󠆡\\uFE09\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4539\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴆ򻢩.󠆡\x{FE09}𞤍", %p)}, undef, "to_unicode\(\'ⴆ\?\.\󠆡\\uFE09\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4540\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴆ򻢩．󠆡\x{FE09}𞤍", %p)}, undef, "to_unicode\(\'ⴆ\?．\󠆡\\uFE09\?\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4541\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß\x{080B}︒\x{067B}．帼F∬\x{200C}", %p)}, undef, "to_unicode\(\'ß\\u080B︒\\u067B．帼F\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4542\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß\x{080B}︒\x{067B}．帼F∬\x{200C}", %p)}, undef, "to_unicode\(\'ß\\u080B︒\\u067B．帼F\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4543\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ß\x{080B}。\x{067B}.帼F∫∫\x{200C}", %p)}, undef, "to_unicode\(\'ß\\u080B\。\\u067B\.帼F\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4544\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ß\x{080B}。\x{067B}.帼F∫∫\x{200C}", %p)}, undef, "to_unicode\(\'ß\\u080B\。\\u067B\.帼F\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4545\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ß\x{080B}。\x{067B}.帼f∫∫\x{200C}", %p)}, undef, "to_unicode\(\'ß\\u080B\。\\u067B\.帼f\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4546\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ß\x{080B}。\x{067B}.帼f∫∫\x{200C}", %p)}, undef, "to_unicode\(\'ß\\u080B\。\\u067B\.帼f\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4547\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("SS\x{080B}。\x{067B}.帼F∫∫\x{200C}", %p)}, undef, "to_unicode\(\'SS\\u080B\。\\u067B\.帼F\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4548\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("SS\x{080B}。\x{067B}.帼F∫∫\x{200C}", %p)}, undef, "to_unicode\(\'SS\\u080B\。\\u067B\.帼F\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4549\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ss\x{080B}。\x{067B}.帼f∫∫\x{200C}", %p)}, undef, "to_unicode\(\'ss\\u080B\。\\u067B\.帼f\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4550\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ss\x{080B}。\x{067B}.帼f∫∫\x{200C}", %p)}, undef, "to_unicode\(\'ss\\u080B\。\\u067B\.帼f\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4551\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("Ss\x{080B}。\x{067B}.帼F∫∫\x{200C}", %p)}, undef, "to_unicode\(\'Ss\\u080B\。\\u067B\.帼F\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4552\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("Ss\x{080B}。\x{067B}.帼F∫∫\x{200C}", %p)}, undef, "to_unicode\(\'Ss\\u080B\。\\u067B\.帼F\∫\∫\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4553\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("ß\x{080B}︒\x{067B}．帼f∬\x{200C}", %p)}, undef, "to_unicode\(\'ß\\u080B︒\\u067B．帼f\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4554\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß\x{080B}︒\x{067B}．帼f∬\x{200C}", %p)}, undef, "to_unicode\(\'ß\\u080B︒\\u067B．帼f\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4555\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("SS\x{080B}︒\x{067B}．帼F∬\x{200C}", %p)}, undef, "to_unicode\(\'SS\\u080B︒\\u067B．帼F\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4556\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("SS\x{080B}︒\x{067B}．帼F∬\x{200C}", %p)}, undef, "to_unicode\(\'SS\\u080B︒\\u067B．帼F\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4557\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ss\x{080B}︒\x{067B}．帼f∬\x{200C}", %p)}, undef, "to_unicode\(\'ss\\u080B︒\\u067B．帼f\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4558\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ss\x{080B}︒\x{067B}．帼f∬\x{200C}", %p)}, undef, "to_unicode\(\'ss\\u080B︒\\u067B．帼f\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4559\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ss\x{080B}︒\x{067B}．帼F∬\x{200C}", %p)}, undef, "to_unicode\(\'Ss\\u080B︒\\u067B．帼F\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4560\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ss\x{080B}︒\x{067B}．帼F∬\x{200C}", %p)}, undef, "to_unicode\(\'Ss\\u080B︒\\u067B．帼F\∬\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4561\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󘪗｡𐹴𞨌\x{200D}", %p)}, undef, "to_unicode\(\'\?｡𐹴\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4562\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󘪗｡𐹴𞨌\x{200D}", %p)}, undef, "to_unicode\(\'\?｡𐹴\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4563\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󘪗。𐹴𞨌\x{200D}", %p)}, undef, "to_unicode\(\'\?\。𐹴\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4564\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󘪗。𐹴𞨌\x{200D}", %p)}, undef, "to_unicode\(\'\?\。𐹴\?\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4565\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񗛨.򅟢𝟨\x{A8C4}", %p)}, undef, "to_unicode\(\'\?\.\?𝟨\\uA8C4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4566\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񗛨.򅟢6\x{A8C4}", %p)}, undef, "to_unicode\(\'\?\.\?6\\uA8C4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4567\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1AB2}\x{FD8E}。-۹ႱႨ", %p)}, undef, "to_unicode\(\'\\u1AB2\\uFD8E\。\-۹ႱႨ\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4568\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1AB2}\x{0645}\x{062E}\x{062C}。-۹ႱႨ", %p)}, undef, "to_unicode\(\'\\u1AB2\\u0645\\u062E\\u062C\。\-۹ႱႨ\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4569\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{1AB2}\x{0645}\x{062E}\x{062C}。-۹ⴑⴈ", %p)}, undef, "to_unicode\(\'\\u1AB2\\u0645\\u062E\\u062C\。\-۹ⴑⴈ\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4570\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{1AB2}\x{0645}\x{062E}\x{062C}。-۹Ⴑⴈ", %p)}, undef, "to_unicode\(\'\\u1AB2\\u0645\\u062E\\u062C\。\-۹Ⴑⴈ\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4571\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{1AB2}\x{FD8E}。-۹ⴑⴈ", %p)}, undef, "to_unicode\(\'\\u1AB2\\uFD8E\。\-۹ⴑⴈ\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4572\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{1AB2}\x{FD8E}。-۹Ⴑⴈ", %p)}, undef, "to_unicode\(\'\\u1AB2\\uFD8E\。\-۹Ⴑⴈ\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4573\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤤．-\x{08A3}︒", %p)}, undef, "to_unicode\(\'\?．\-\\u08A3︒\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4574\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞤤.-\x{08A3}。", %p)}, undef, "to_unicode\(\'\?\.\-\\u08A3\。\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4575\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200C}𐺨.\x{0859}--", %p)}, undef, "to_unicode\(\'\\u200C\?\.\\u0859\-\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4576\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𐺨.\x{0859}--", %p)}, undef, "to_unicode\(\'\\u200C\?\.\\u0859\-\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4577\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐋸󮘋Ⴢ.Ⴁ", %p)}, undef, "to_unicode\(\'𐋸\?Ⴢ\.Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4578\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐋸󮘋ⴢ.ⴁ", %p)}, undef, "to_unicode\(\'𐋸\?ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4579\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐋸󮘋Ⴢ.ⴁ", %p)}, undef, "to_unicode\(\'𐋸\?Ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4580\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񗑿\x{A806}₄򩞆｡𲩧󠒹ς", %p)}, undef, "to_unicode\(\'\?\\uA806₄\?｡\?\?ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4581\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񗑿\x{A806}4򩞆。𲩧󠒹ς", %p)}, undef, "to_unicode\(\'\?\\uA8064\?\。\?\?ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4582\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񗑿\x{A806}4򩞆。𲩧󠒹Σ", %p)}, undef, "to_unicode\(\'\?\\uA8064\?\。\?\?Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4583\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񗑿\x{A806}4򩞆。𲩧󠒹σ", %p)}, undef, "to_unicode\(\'\?\\uA8064\?\。\?\?σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4584\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񗑿\x{A806}₄򩞆｡𲩧󠒹Σ", %p)}, undef, "to_unicode\(\'\?\\uA806₄\?｡\?\?Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4585\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񗑿\x{A806}₄򩞆｡𲩧󠒹σ", %p)}, undef, "to_unicode\(\'\?\\uA806₄\?｡\?\?σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4586\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("󠆀\x{0723}。\x{1DF4}\x{0775}", %p)}, undef, "to_unicode\(\'\󠆀\\u0723\。\\u1DF4\\u0775\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4587\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𐹱\x{0842}𝪨｡𬼖Ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'𐹱\\u0842𝪨｡\?Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4588\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹱\x{0842}𝪨｡𬼖Ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'𐹱\\u0842𝪨｡\?Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4589\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹱\x{0842}𝪨。𬼖Ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'𐹱\\u0842𝪨\。\?Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4590\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹱\x{0842}𝪨。𬼖Ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'𐹱\\u0842𝪨\。\?Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4591\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹱\x{0842}𝪨。𬼖ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'𐹱\\u0842𝪨\。\?ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4592\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹱\x{0842}𝪨。𬼖ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'𐹱\\u0842𝪨\。\?ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4593\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹱\x{0842}𝪨｡𬼖ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'𐹱\\u0842𝪨｡\?ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4594\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹱\x{0842}𝪨｡𬼖ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'𐹱\\u0842𝪨｡\?ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4595\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1714}𐭪󠙘\x{200D}｡-𐹴", %p)}, undef, "to_unicode\(\'\\u1714𐭪\?\\u200D｡\-𐹴\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:4596\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1714}𐭪󠙘\x{200D}｡-𐹴", %p)}, undef, "to_unicode\(\'\\u1714𐭪\?\\u200D｡\-𐹴\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:4597\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1714}𐭪󠙘\x{200D}。-𐹴", %p)}, undef, "to_unicode\(\'\\u1714𐭪\?\\u200D\。\-𐹴\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:4598\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1714}𐭪󠙘\x{200D}。-𐹴", %p)}, undef, "to_unicode\(\'\\u1714𐭪\?\\u200D\。\-𐹴\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:4599\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𾢬｡\x{0729}︒쯙𝟧", %p)}, undef, "to_unicode\(\'\?｡\\u0729︒쯙𝟧\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4600\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𾢬｡\x{0729}︒쯙𝟧", %p)}, undef, "to_unicode\(\'\?｡\\u0729︒쯙𝟧\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4601\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𾢬。\x{0729}。쯙5", %p)}, undef, "to_unicode\(\'\?\。\\u0729\。쯙5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4602\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𾢬。\x{0729}。쯙5", %p)}, undef, "to_unicode\(\'\?\。\\u0729\。쯙5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4603\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤟-。\x{0762}≮뻐", %p)}, undef, "to_unicode\(\'\?\-\。\\u0762\≮뻐\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B2\ \[data\/IdnaTest\.txt\:4604\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞤟-。\x{0762}<\x{0338}뻐", %p)}, undef, "to_unicode\(\'\?\-\。\\u0762\<\\u0338뻐\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B2\ \[data\/IdnaTest\.txt\:4605\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞥩-򊫠．\x{08B4}≠", %p)}, undef, "to_unicode\(\'\?\-\?．\\u08B4\≠\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4606\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞥩-򊫠．\x{08B4}=\x{0338}", %p)}, undef, "to_unicode\(\'\?\-\?．\\u08B4\=\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4607\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞥩-򊫠.\x{08B4}≠", %p)}, undef, "to_unicode\(\'\?\-\?\.\\u08B4\≠\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4608\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞥩-򊫠.\x{08B4}=\x{0338}", %p)}, undef, "to_unicode\(\'\?\-\?\.\\u08B4\=\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4609\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-񅂏ςႼ．\x{0661}", %p)}, undef, "to_unicode\(\'\-\?ςႼ．\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4610\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-񅂏ςႼ.\x{0661}", %p)}, undef, "to_unicode\(\'\-\?ςႼ\.\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4611\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-񅂏ςⴜ.\x{0661}", %p)}, undef, "to_unicode\(\'\-\?ςⴜ\.\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4612\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-񅂏ΣႼ.\x{0661}", %p)}, undef, "to_unicode\(\'\-\?ΣႼ\.\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4613\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-񅂏σⴜ.\x{0661}", %p)}, undef, "to_unicode\(\'\-\?σⴜ\.\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4614\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-񅂏Σⴜ.\x{0661}", %p)}, undef, "to_unicode\(\'\-\?Σⴜ\.\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4615\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-񅂏ςⴜ．\x{0661}", %p)}, undef, "to_unicode\(\'\-\?ςⴜ．\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4616\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-񅂏ΣႼ．\x{0661}", %p)}, undef, "to_unicode\(\'\-\?ΣႼ．\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4617\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-񅂏σⴜ．\x{0661}", %p)}, undef, "to_unicode\(\'\-\?σⴜ．\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4618\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-񅂏Σⴜ．\x{0661}", %p)}, undef, "to_unicode\(\'\-\?Σⴜ．\\u0661\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4619\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{17CA}.\x{200D}𝟮𑀿", %p)}, undef, "to_unicode\(\'\\u17CA\.\\u200D𝟮𑀿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4620\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{17CA}.\x{200D}𝟮𑀿", %p)}, undef, "to_unicode\(\'\\u17CA\.\\u200D𝟮𑀿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4621\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{17CA}.\x{200D}2𑀿", %p)}, undef, "to_unicode\(\'\\u17CA\.\\u200D2𑀿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4622\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{17CA}.\x{200D}2𑀿", %p)}, undef, "to_unicode\(\'\\u17CA\.\\u200D2𑀿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4623\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("≯𝟖｡\x{1A60}𐫓򟇑", %p)}, undef, "to_unicode\(\'\≯𝟖｡\\u1A60𐫓\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4624\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}𝟖｡\x{1A60}𐫓򟇑", %p)}, undef, "to_unicode\(\'\>\\u0338𝟖｡\\u1A60𐫓\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4625\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≯8。\x{1A60}𐫓򟇑", %p)}, undef, "to_unicode\(\'\≯8\。\\u1A60𐫓\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4626\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode(">\x{0338}8。\x{1A60}𐫓򟇑", %p)}, undef, "to_unicode\(\'\>\\u03388\。\\u1A60𐫓\?\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4627\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑲫Ↄ\x{0664}｡\x{200C}", %p)}, undef, "to_unicode\(\'\?Ↄ\\u0664｡\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4628\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑲫Ↄ\x{0664}｡\x{200C}", %p)}, undef, "to_unicode\(\'\?Ↄ\\u0664｡\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4629\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑲫Ↄ\x{0664}。\x{200C}", %p)}, undef, "to_unicode\(\'\?Ↄ\\u0664\。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4630\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑲫Ↄ\x{0664}。\x{200C}", %p)}, undef, "to_unicode\(\'\?Ↄ\\u0664\。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4631\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𑲫ↄ\x{0664}。\x{200C}", %p)}, undef, "to_unicode\(\'\?ↄ\\u0664\。\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4632\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𑲫ↄ\x{0664}。\x{200C}", %p)}, undef, "to_unicode\(\'\?ↄ\\u0664\。\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4633\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𑲫ↄ\x{0664}｡\x{200C}", %p)}, undef, "to_unicode\(\'\?ↄ\\u0664｡\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4634\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𑲫ↄ\x{0664}｡\x{200C}", %p)}, undef, "to_unicode\(\'\?ↄ\\u0664｡\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4635\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{0C00}𝟵\x{200D}\x{FC9D}.\x{200D}\x{0750}⒈", %p)}, undef, "to_unicode\(\'\\u0C00𝟵\\u200D\\uFC9D\.\\u200D\\u0750⒈\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4636\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0C00}𝟵\x{200D}\x{FC9D}.\x{200D}\x{0750}⒈", %p)}, undef, "to_unicode\(\'\\u0C00𝟵\\u200D\\uFC9D\.\\u200D\\u0750⒈\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4637\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0C00}9\x{200D}\x{0628}\x{062D}.\x{200D}\x{0750}1.", %p)}, undef, "to_unicode\(\'\\u0C009\\u200D\\u0628\\u062D\.\\u200D\\u07501\.\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:4638\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0C00}9\x{200D}\x{0628}\x{062D}.\x{200D}\x{0750}1.", %p)}, undef, "to_unicode\(\'\\u0C009\\u200D\\u0628\\u062D\.\\u200D\\u07501\.\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:4639\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{AAF6}。嬶ß葽", %p)}, undef, "to_unicode\(\'\\uAAF6\。嬶ß葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4640\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{AAF6}。嬶SS葽", %p)}, undef, "to_unicode\(\'\\uAAF6\。嬶SS葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4641\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{AAF6}。嬶ss葽", %p)}, undef, "to_unicode\(\'\\uAAF6\。嬶ss葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4642\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("\x{AAF6}。嬶Ss葽", %p)}, undef, "to_unicode\(\'\\uAAF6\。嬶Ss葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4643\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𑚶⒈。񞻡𐹺", %p)}, undef, "to_unicode\(\'𑚶⒈\。\?𐹺\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4644\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑚶1.。񞻡𐹺", %p)}, undef, "to_unicode\(\'𑚶1\.\。\?𐹺\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:4645\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑜤︒≮．񚕽\x{05D8}𞾩", %p)}, undef, "to_unicode\(\'𑜤︒\≮．\?\\u05D8\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4646\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑜤︒<\x{0338}．񚕽\x{05D8}𞾩", %p)}, undef, "to_unicode\(\'𑜤︒\<\\u0338．\?\\u05D8\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4647\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑜤。≮.񚕽\x{05D8}𞾩", %p)}, undef, "to_unicode\(\'𑜤\。\≮\.\?\\u05D8\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4648\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑜤。<\x{0338}.񚕽\x{05D8}𞾩", %p)}, undef, "to_unicode\(\'𑜤\。\<\\u0338\.\?\\u05D8\?\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4649\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠆋\x{0603}񏦤.⇁ς򏋈򺇥", %p)}, undef, "to_unicode\(\'\󠆋\\u0603\?\.\⇁ς\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4650\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠆋\x{0603}񏦤.⇁Σ򏋈򺇥", %p)}, undef, "to_unicode\(\'\󠆋\\u0603\?\.\⇁Σ\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4651\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠆋\x{0603}񏦤.⇁σ򏋈򺇥", %p)}, undef, "to_unicode\(\'\󠆋\\u0603\?\.\⇁σ\?\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4652\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς𑐽𵢈𑜫｡𞬩\x{200C}𐫄", %p)}, undef, "to_unicode\(\'ς\?\?𑜫｡\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4653\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς𑐽𵢈𑜫｡𞬩\x{200C}𐫄", %p)}, undef, "to_unicode\(\'ς\?\?𑜫｡\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4654\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς𑐽𵢈𑜫。𞬩\x{200C}𐫄", %p)}, undef, "to_unicode\(\'ς\?\?𑜫\。\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4655\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς𑐽𵢈𑜫。𞬩\x{200C}𐫄", %p)}, undef, "to_unicode\(\'ς\?\?𑜫\。\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4656\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ𑐽𵢈𑜫。𞬩\x{200C}𐫄", %p)}, undef, "to_unicode\(\'Σ\?\?𑜫\。\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4657\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ𑐽𵢈𑜫。𞬩\x{200C}𐫄", %p)}, undef, "to_unicode\(\'Σ\?\?𑜫\。\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4658\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ𑐽𵢈𑜫。𞬩\x{200C}𐫄", %p)}, undef, "to_unicode\(\'σ\?\?𑜫\。\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4659\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ𑐽𵢈𑜫。𞬩\x{200C}𐫄", %p)}, undef, "to_unicode\(\'σ\?\?𑜫\。\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4660\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ𑐽𵢈𑜫｡𞬩\x{200C}𐫄", %p)}, undef, "to_unicode\(\'Σ\?\?𑜫｡\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4661\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ𑐽𵢈𑜫｡𞬩\x{200C}𐫄", %p)}, undef, "to_unicode\(\'Σ\?\?𑜫｡\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4662\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ𑐽𵢈𑜫｡𞬩\x{200C}𐫄", %p)}, undef, "to_unicode\(\'σ\?\?𑜫｡\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4663\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ𑐽𵢈𑜫｡𞬩\x{200C}𐫄", %p)}, undef, "to_unicode\(\'σ\?\?𑜫｡\?\\u200C𐫄\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4664\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-򵏽｡-\x{FC4C}\x{075B}", %p)}, undef, "to_unicode\(\'\-\?｡\-\\uFC4C\\u075B\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4665\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-򵏽。-\x{0646}\x{062D}\x{075B}", %p)}, undef, "to_unicode\(\'\-\?\。\-\\u0646\\u062D\\u075B\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4666\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⺢򇺅𝟤｡\x{200D}🚷", %p)}, undef, "to_unicode\(\'⺢\?𝟤｡\\u200D🚷\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4667\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⺢򇺅𝟤｡\x{200D}🚷", %p)}, undef, "to_unicode\(\'⺢\?𝟤｡\\u200D🚷\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4668\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⺢򇺅2。\x{200D}🚷", %p)}, undef, "to_unicode\(\'⺢\?2\。\\u200D🚷\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4669\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⺢򇺅2。\x{200D}🚷", %p)}, undef, "to_unicode\(\'⺢\?2\。\\u200D🚷\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4670\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0CF8}\x{200D}\x{2DFE}𐹲｡򤐶", %p)}, undef, "to_unicode\(\'\\u0CF8\\u200D\\u2DFE𐹲｡\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4671\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0CF8}\x{200D}\x{2DFE}𐹲｡򤐶", %p)}, undef, "to_unicode\(\'\\u0CF8\\u200D\\u2DFE𐹲｡\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4672\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0CF8}\x{200D}\x{2DFE}𐹲。򤐶", %p)}, undef, "to_unicode\(\'\\u0CF8\\u200D\\u2DFE𐹲\。\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4673\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0CF8}\x{200D}\x{2DFE}𐹲。򤐶", %p)}, undef, "to_unicode\(\'\\u0CF8\\u200D\\u2DFE𐹲\。\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4674\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹢．Ⴍ₉⁸", %p)}, undef, "to_unicode\(\'𐹢．Ⴍ₉⁸\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4675\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹢.Ⴍ98", %p)}, undef, "to_unicode\(\'𐹢\.Ⴍ98\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4676\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹢.ⴍ98", %p)}, undef, "to_unicode\(\'𐹢\.ⴍ98\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4677\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹢．ⴍ₉⁸", %p)}, undef, "to_unicode\(\'𐹢．ⴍ₉⁸\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4678\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{200C}\x{034F}｡ß\x{08E2}⒚≯", %p)}, undef, "to_unicode\(\'\\u200C\\u034F｡ß\\u08E2⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4679\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}｡ß\x{08E2}⒚≯", %p)}, undef, "to_unicode\(\'\\u200C\\u034F｡ß\\u08E2⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4680\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}｡ß\x{08E2}⒚>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u034F｡ß\\u08E2⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4681\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}｡ß\x{08E2}⒚>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u034F｡ß\\u08E2⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4682\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}。ß\x{08E2}19.≯", %p)}, undef, "to_unicode\(\'\\u200C\\u034F\。ß\\u08E219\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4683\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}。ß\x{08E2}19.≯", %p)}, undef, "to_unicode\(\'\\u200C\\u034F\。ß\\u08E219\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4684\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}。ß\x{08E2}19.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u034F\。ß\\u08E219\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4685\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}。ß\x{08E2}19.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u034F\。ß\\u08E219\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4686\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}。SS\x{08E2}19.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u034F\。SS\\u08E219\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4687\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}。SS\x{08E2}19.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u034F\。SS\\u08E219\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4688\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}。SS\x{08E2}19.≯", %p)}, undef, "to_unicode\(\'\\u200C\\u034F\。SS\\u08E219\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4689\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}。SS\x{08E2}19.≯", %p)}, undef, "to_unicode\(\'\\u200C\\u034F\。SS\\u08E219\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4690\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}。ss\x{08E2}19.≯", %p)}, undef, "to_unicode\(\'\\u200C\\u034F\。ss\\u08E219\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4691\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}。ss\x{08E2}19.≯", %p)}, undef, "to_unicode\(\'\\u200C\\u034F\。ss\\u08E219\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4692\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}。ss\x{08E2}19.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u034F\。ss\\u08E219\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4693\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}。ss\x{08E2}19.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u034F\。ss\\u08E219\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4694\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}。Ss\x{08E2}19.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u034F\。Ss\\u08E219\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4695\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}。Ss\x{08E2}19.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u034F\。Ss\\u08E219\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4696\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}。Ss\x{08E2}19.≯", %p)}, undef, "to_unicode\(\'\\u200C\\u034F\。Ss\\u08E219\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4697\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}。Ss\x{08E2}19.≯", %p)}, undef, "to_unicode\(\'\\u200C\\u034F\。Ss\\u08E219\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4698\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}｡SS\x{08E2}⒚>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u034F｡SS\\u08E2⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4699\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}｡SS\x{08E2}⒚>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u034F｡SS\\u08E2⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4700\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}｡SS\x{08E2}⒚≯", %p)}, undef, "to_unicode\(\'\\u200C\\u034F｡SS\\u08E2⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4701\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}｡SS\x{08E2}⒚≯", %p)}, undef, "to_unicode\(\'\\u200C\\u034F｡SS\\u08E2⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4702\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}｡ss\x{08E2}⒚≯", %p)}, undef, "to_unicode\(\'\\u200C\\u034F｡ss\\u08E2⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4703\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}｡ss\x{08E2}⒚≯", %p)}, undef, "to_unicode\(\'\\u200C\\u034F｡ss\\u08E2⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4704\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}｡ss\x{08E2}⒚>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u034F｡ss\\u08E2⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4705\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}｡ss\x{08E2}⒚>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u034F｡ss\\u08E2⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4706\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}｡Ss\x{08E2}⒚>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u034F｡Ss\\u08E2⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4707\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}｡Ss\x{08E2}⒚>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u034F｡Ss\\u08E2⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4708\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}｡Ss\x{08E2}⒚≯", %p)}, undef, "to_unicode\(\'\\u200C\\u034F｡Ss\\u08E2⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4709\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}\x{034F}｡Ss\x{08E2}⒚≯", %p)}, undef, "to_unicode\(\'\\u200C\\u034F｡Ss\\u08E2⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4710\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𞥍ᡌ．𣃔", %p)}, undef, "to_unicode\(\'\\u200C\?ᡌ．𣃔\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4711\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𞥍ᡌ．𣃔", %p)}, undef, "to_unicode\(\'\\u200C\?ᡌ．𣃔\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4712\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𞥍ᡌ.𣃔", %p)}, undef, "to_unicode\(\'\\u200C\?ᡌ\.𣃔\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4713\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𞥍ᡌ.𣃔", %p)}, undef, "to_unicode\(\'\\u200C\?ᡌ\.𣃔\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4714\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07D0}򜬝-񡢬。\x{0FA0}Ⴛ𞷏𝆬", %p)}, undef, "to_unicode\(\'\\u07D0\?\-\?\。\\u0FA0Ⴛ\?𝆬\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4715\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{07D0}򜬝-񡢬。\x{0FA0}ⴛ𞷏𝆬", %p)}, undef, "to_unicode\(\'\\u07D0\?\-\?\。\\u0FA0ⴛ\?𝆬\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4716\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𝨥。⫟𑈾", %p)}, undef, "to_unicode\(\'𝨥\。\⫟\?\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4717\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("⾛\x{0753}.Ⴕ𞠬\x{0604}\x{200D}", %p)}, undef, "to_unicode\(\'⾛\\u0753\.Ⴕ𞠬\\u0604\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4718\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⾛\x{0753}.Ⴕ𞠬\x{0604}\x{200D}", %p)}, undef, "to_unicode\(\'⾛\\u0753\.Ⴕ𞠬\\u0604\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4719\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("走\x{0753}.Ⴕ𞠬\x{0604}\x{200D}", %p)}, undef, "to_unicode\(\'走\\u0753\.Ⴕ𞠬\\u0604\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4720\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("走\x{0753}.Ⴕ𞠬\x{0604}\x{200D}", %p)}, undef, "to_unicode\(\'走\\u0753\.Ⴕ𞠬\\u0604\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4721\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("走\x{0753}.ⴕ𞠬\x{0604}\x{200D}", %p)}, undef, "to_unicode\(\'走\\u0753\.ⴕ𞠬\\u0604\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4722\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("走\x{0753}.ⴕ𞠬\x{0604}\x{200D}", %p)}, undef, "to_unicode\(\'走\\u0753\.ⴕ𞠬\\u0604\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4723\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⾛\x{0753}.ⴕ𞠬\x{0604}\x{200D}", %p)}, undef, "to_unicode\(\'⾛\\u0753\.ⴕ𞠬\\u0604\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4724\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⾛\x{0753}.ⴕ𞠬\x{0604}\x{200D}", %p)}, undef, "to_unicode\(\'⾛\\u0753\.ⴕ𞠬\\u0604\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4725\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-ᢗ\x{200C}🄄.𑜢", %p)}, undef, "to_unicode\(\'\-ᢗ\\u200C🄄\.𑜢\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:4726\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-ᢗ\x{200C}🄄.𑜢", %p)}, undef, "to_unicode\(\'\-ᢗ\\u200C🄄\.𑜢\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:4727\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-ᢗ\x{200C}3,.𑜢", %p)}, undef, "to_unicode\(\'\-ᢗ\\u200C3\,\.𑜢\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:4728\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-ᢗ\x{200C}3,.𑜢", %p)}, undef, "to_unicode\(\'\-ᢗ\\u200C3\,\.𑜢\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:4729\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠𐸁𹏁\x{200C}.Ⴚ򳄠", %p)}, undef, "to_unicode\(\'\≠\?\?\\u200C\.Ⴚ\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4730\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠𐸁𹏁\x{200C}.Ⴚ򳄠", %p)}, undef, "to_unicode\(\'\≠\?\?\\u200C\.Ⴚ\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4731\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}𐸁𹏁\x{200C}.Ⴚ򳄠", %p)}, undef, "to_unicode\(\'\=\\u0338\?\?\\u200C\.Ⴚ\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4732\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}𐸁𹏁\x{200C}.Ⴚ򳄠", %p)}, undef, "to_unicode\(\'\=\\u0338\?\?\\u200C\.Ⴚ\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4733\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}𐸁𹏁\x{200C}.ⴚ򳄠", %p)}, undef, "to_unicode\(\'\=\\u0338\?\?\\u200C\.ⴚ\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4734\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}𐸁𹏁\x{200C}.ⴚ򳄠", %p)}, undef, "to_unicode\(\'\=\\u0338\?\?\\u200C\.ⴚ\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4735\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠𐸁𹏁\x{200C}.ⴚ򳄠", %p)}, undef, "to_unicode\(\'\≠\?\?\\u200C\.ⴚ\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4736\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≠𐸁𹏁\x{200C}.ⴚ򳄠", %p)}, undef, "to_unicode\(\'\≠\?\?\\u200C\.ⴚ\?\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4737\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("\x{0669}｡󠇀𑇊", %p)}, undef, "to_unicode\(\'\\u0669｡\󠇀𑇊\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4738\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("\x{0669}。󠇀𑇊", %p)}, undef, "to_unicode\(\'\\u0669\。\󠇀𑇊\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4739\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{1086}𞶀≯⒍。-", %p)}, undef, "to_unicode\(\'\\u1086\?\≯⒍\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4740\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1086}𞶀>\x{0338}⒍。-", %p)}, undef, "to_unicode\(\'\\u1086\?\>\\u0338⒍\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4741\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1086}𞶀≯6.。-", %p)}, undef, "to_unicode\(\'\\u1086\?\≯6\.\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ A4_2\ \[data\/IdnaTest\.txt\:4742\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1086}𞶀>\x{0338}6.。-", %p)}, undef, "to_unicode\(\'\\u1086\?\>\\u03386\.\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ A4_2\ \[data\/IdnaTest\.txt\:4743\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{17B4}.쮇-", %p)}, undef, "to_unicode\(\'\\u17B4\.쮇\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4744\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{17B4}.쮇-", %p)}, undef, "to_unicode\(\'\\u17B4\.쮇\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4745\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𑓂。⒈-􀪛", %p)}, undef, "to_unicode\(\'\\u200C𑓂\。⒈\-\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4746\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𑓂。⒈-􀪛", %p)}, undef, "to_unicode\(\'\\u200C𑓂\。⒈\-\?\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4747\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𑓂。1.-􀪛", %p)}, undef, "to_unicode\(\'\\u200C𑓂\。1\.\-\?\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4748\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200C}𑓂。1.-􀪛", %p)}, undef, "to_unicode\(\'\\u200C𑓂\。1\.\-\?\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4749\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈\x{FEAE}\x{200C}。\x{20E9}🖞\x{200C}𖬴", %p)}, undef, "to_unicode\(\'⒈\\uFEAE\\u200C\。\\u20E9🖞\\u200C𖬴\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4750\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒈\x{FEAE}\x{200C}。\x{20E9}🖞\x{200C}𖬴", %p)}, undef, "to_unicode\(\'⒈\\uFEAE\\u200C\。\\u20E9🖞\\u200C𖬴\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4751\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("1.\x{0631}\x{200C}。\x{20E9}🖞\x{200C}𖬴", %p)}, undef, "to_unicode\(\'1\.\\u0631\\u200C\。\\u20E9🖞\\u200C𖬴\'\)\ throws\ error\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:4752\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("1.\x{0631}\x{200C}。\x{20E9}🖞\x{200C}𖬴", %p)}, undef, "to_unicode\(\'1\.\\u0631\\u200C\。\\u20E9🖞\\u200C𖬴\'\)\ throws\ error\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:4753\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("󌭇｡𝟐\x{1BA8}\x{07D4}", %p)}, undef, "to_unicode\(\'\?｡𝟐\\u1BA8\\u07D4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4754\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󌭇。2\x{1BA8}\x{07D4}", %p)}, undef, "to_unicode\(\'\?\。2\\u1BA8\\u07D4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4755\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FD8F}򫳺.ς\x{200D}𐹷", %p)}, undef, "to_unicode\(\'\\uFD8F\?\.ς\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4756\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FD8F}򫳺.ς\x{200D}𐹷", %p)}, undef, "to_unicode\(\'\\uFD8F\?\.ς\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4757\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0645}\x{062E}\x{0645}򫳺.ς\x{200D}𐹷", %p)}, undef, "to_unicode\(\'\\u0645\\u062E\\u0645\?\.ς\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4758\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0645}\x{062E}\x{0645}򫳺.ς\x{200D}𐹷", %p)}, undef, "to_unicode\(\'\\u0645\\u062E\\u0645\?\.ς\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4759\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0645}\x{062E}\x{0645}򫳺.Σ\x{200D}𐹷", %p)}, undef, "to_unicode\(\'\\u0645\\u062E\\u0645\?\.Σ\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4760\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0645}\x{062E}\x{0645}򫳺.Σ\x{200D}𐹷", %p)}, undef, "to_unicode\(\'\\u0645\\u062E\\u0645\?\.Σ\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4761\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0645}\x{062E}\x{0645}򫳺.σ\x{200D}𐹷", %p)}, undef, "to_unicode\(\'\\u0645\\u062E\\u0645\?\.σ\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4762\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0645}\x{062E}\x{0645}򫳺.σ\x{200D}𐹷", %p)}, undef, "to_unicode\(\'\\u0645\\u062E\\u0645\?\.σ\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4763\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FD8F}򫳺.Σ\x{200D}𐹷", %p)}, undef, "to_unicode\(\'\\uFD8F\?\.Σ\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4764\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FD8F}򫳺.Σ\x{200D}𐹷", %p)}, undef, "to_unicode\(\'\\uFD8F\?\.Σ\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4765\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FD8F}򫳺.σ\x{200D}𐹷", %p)}, undef, "to_unicode\(\'\\uFD8F\?\.σ\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4766\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FD8F}򫳺.σ\x{200D}𐹷", %p)}, undef, "to_unicode\(\'\\uFD8F\?\.σ\\u200D𐹷\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4767\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("⒎\x{06C1}\x{0605}｡\x{AAF6}۵𐇽", %p)}, undef, "to_unicode\(\'⒎\\u06C1\\u0605｡\\uAAF6۵𐇽\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4768\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("7.\x{06C1}\x{0605}。\x{AAF6}۵𐇽", %p)}, undef, "to_unicode\(\'7\.\\u06C1\\u0605\。\\uAAF6۵𐇽\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4769\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-ᡥ᠆󍲭。\x{0605}\x{1A5D}𐹡", %p)}, undef, "to_unicode\(\'\-ᡥ᠆\?\。\\u0605\\u1A5D𐹡\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4770\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}.\x{06BD}\x{0663}\x{0596}", %p)}, undef, "to_unicode\(\'\\u200D\.\\u06BD\\u0663\\u0596\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4771\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}.\x{06BD}\x{0663}\x{0596}", %p)}, undef, "to_unicode\(\'\\u200D\.\\u06BD\\u0663\\u0596\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4772\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--hcb32bni", %p)}, "\x{06BD}\x{0663}\x{0596}", "to_unicode\(\'xn\-\-hcb32bni\'\)\ \[data\/IdnaTest\.txt\:4773\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06BD}\x{0663}\x{0596}", %p)}, "\x{06BD}\x{0663}\x{0596}", "to_unicode\(\'\\u06BD\\u0663\\u0596\'\)\ \[data\/IdnaTest\.txt\:4774\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㒧۱.Ⴚ\x{0678}\x{200D}", %p)}, undef, "to_unicode\(\'㒧۱\.Ⴚ\\u0678\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4775\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㒧۱.Ⴚ\x{0678}\x{200D}", %p)}, undef, "to_unicode\(\'㒧۱\.Ⴚ\\u0678\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4776\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㒧۱.Ⴚ\x{064A}\x{0674}\x{200D}", %p)}, undef, "to_unicode\(\'㒧۱\.Ⴚ\\u064A\\u0674\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4777\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("㒧۱.Ⴚ\x{064A}\x{0674}\x{200D}", %p)}, undef, "to_unicode\(\'㒧۱\.Ⴚ\\u064A\\u0674\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4778\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("㒧۱.ⴚ\x{064A}\x{0674}\x{200D}", %p)}, undef, "to_unicode\(\'㒧۱\.ⴚ\\u064A\\u0674\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4779\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("㒧۱.ⴚ\x{064A}\x{0674}\x{200D}", %p)}, undef, "to_unicode\(\'㒧۱\.ⴚ\\u064A\\u0674\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4780\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("㒧۱.ⴚ\x{0678}\x{200D}", %p)}, undef, "to_unicode\(\'㒧۱\.ⴚ\\u0678\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4781\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("㒧۱.ⴚ\x{0678}\x{200D}", %p)}, undef, "to_unicode\(\'㒧۱\.ⴚ\\u0678\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4782\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0F94}ꡋ-．-𖬴", %p)}, undef, "to_unicode\(\'\\u0F94ꡋ\-．\-𖬴\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4783\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0F94}ꡋ-.-𖬴", %p)}, undef, "to_unicode\(\'\\u0F94ꡋ\-\.\-𖬴\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4784\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("񿒳-⋢\x{200C}．标-", %p)}, undef, "to_unicode\(\'\?\-\⋢\\u200C．标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4785\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񿒳-⋢\x{200C}．标-", %p)}, undef, "to_unicode\(\'\?\-\⋢\\u200C．标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4786\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񿒳-⊑\x{0338}\x{200C}．标-", %p)}, undef, "to_unicode\(\'\?\-\⊑\\u0338\\u200C．标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4787\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񿒳-⊑\x{0338}\x{200C}．标-", %p)}, undef, "to_unicode\(\'\?\-\⊑\\u0338\\u200C．标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4788\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񿒳-⋢\x{200C}.标-", %p)}, undef, "to_unicode\(\'\?\-\⋢\\u200C\.标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4789\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񿒳-⋢\x{200C}.标-", %p)}, undef, "to_unicode\(\'\?\-\⋢\\u200C\.标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4790\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񿒳-⊑\x{0338}\x{200C}.标-", %p)}, undef, "to_unicode\(\'\?\-\⊑\\u0338\\u200C\.标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4791\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񿒳-⊑\x{0338}\x{200C}.标-", %p)}, undef, "to_unicode\(\'\?\-\⊑\\u0338\\u200C\.标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4792\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{0671}．ς\x{07DC}", %p)}, undef, "to_unicode\(\'\\u0671．ς\\u07DC\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4793\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{0671}.ς\x{07DC}", %p)}, undef, "to_unicode\(\'\\u0671\.ς\\u07DC\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4794\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{0671}.Σ\x{07DC}", %p)}, undef, "to_unicode\(\'\\u0671\.Σ\\u07DC\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4795\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{0671}.σ\x{07DC}", %p)}, undef, "to_unicode\(\'\\u0671\.σ\\u07DC\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4796\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{0671}．Σ\x{07DC}", %p)}, undef, "to_unicode\(\'\\u0671．Σ\\u07DC\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4797\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{0671}．σ\x{07DC}", %p)}, undef, "to_unicode\(\'\\u0671．σ\\u07DC\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4798\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("񼈶\x{0605}．\x{08C1}\x{200D}𑑂𱼱", %p)}, undef, "to_unicode\(\'\?\\u0605．\\u08C1\\u200D\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4799\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񼈶\x{0605}．\x{08C1}\x{200D}𑑂𱼱", %p)}, undef, "to_unicode\(\'\?\\u0605．\\u08C1\\u200D\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4800\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񼈶\x{0605}.\x{08C1}\x{200D}𑑂𱼱", %p)}, undef, "to_unicode\(\'\?\\u0605\.\\u08C1\\u200D\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4801\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񼈶\x{0605}.\x{08C1}\x{200D}𑑂𱼱", %p)}, undef, "to_unicode\(\'\?\\u0605\.\\u08C1\\u200D\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4802\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹾𐋩𞵜｡\x{1BF2}", %p)}, undef, "to_unicode\(\'𐹾𐋩\?｡\\u1BF2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4803\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹾𐋩𞵜。\x{1BF2}", %p)}, undef, "to_unicode\(\'𐹾𐋩\?\。\\u1BF2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4804\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("6\x{1160}\x{1C33}󠸧.򟜊锰\x{072C}ς", %p)}, undef, "to_unicode\(\'6\\u1160\\u1C33\?\.\?锰\\u072Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4805\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("6\x{1160}\x{1C33}󠸧.򟜊锰\x{072C}Σ", %p)}, undef, "to_unicode\(\'6\\u1160\\u1C33\?\.\?锰\\u072CΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4806\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("6\x{1160}\x{1C33}󠸧.򟜊锰\x{072C}σ", %p)}, undef, "to_unicode\(\'6\\u1160\\u1C33\?\.\?锰\\u072Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4807\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06B3}\x{FE04}񅎦𝟽｡𐹽", %p)}, undef, "to_unicode\(\'\\u06B3\\uFE04\?𝟽｡𐹽\'\)\ throws\ error\ P1\ V6\ B2\ B1\ \[data\/IdnaTest\.txt\:4808\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{06B3}\x{FE04}񅎦7。𐹽", %p)}, undef, "to_unicode\(\'\\u06B3\\uFE04\?7\。𐹽\'\)\ throws\ error\ P1\ V6\ B2\ B1\ \[data\/IdnaTest\.txt\:4809\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞮧．\x{200C}⫞", %p)}, undef, "to_unicode\(\'\?．\\u200C\⫞\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4810\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞮧．\x{200C}⫞", %p)}, undef, "to_unicode\(\'\?．\\u200C\⫞\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4811\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞮧.\x{200C}⫞", %p)}, undef, "to_unicode\(\'\?\.\\u200C\⫞\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4812\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𞮧.\x{200C}⫞", %p)}, undef, "to_unicode\(\'\?\.\\u200C\⫞\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4813\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-񕉴.\x{06E0}ᢚ-", %p)}, undef, "to_unicode\(\'\-\?\.\\u06E0ᢚ\-\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4814\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("⌁\x{200D}𑄴．\x{200C}𝟩\x{066C}", %p)}, undef, "to_unicode\(\'\⌁\\u200D𑄴．\\u200C𝟩\\u066C\'\)\ throws\ error\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:4815\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("⌁\x{200D}𑄴．\x{200C}𝟩\x{066C}", %p)}, undef, "to_unicode\(\'\⌁\\u200D𑄴．\\u200C𝟩\\u066C\'\)\ throws\ error\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:4816\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("⌁\x{200D}𑄴.\x{200C}7\x{066C}", %p)}, undef, "to_unicode\(\'\⌁\\u200D𑄴\.\\u200C7\\u066C\'\)\ throws\ error\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:4817\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("⌁\x{200D}𑄴.\x{200C}7\x{066C}", %p)}, undef, "to_unicode\(\'\⌁\\u200D𑄴\.\\u200C7\\u066C\'\)\ throws\ error\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:4818\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("︒\x{FD05}\x{0E37}\x{FEFC}。岓\x{1BF2}󠾃ᡂ", %p)}, undef, "to_unicode\(\'︒\\uFD05\\u0E37\\uFEFC\。岓\\u1BF2\?ᡂ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4819\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("。\x{0635}\x{0649}\x{0E37}\x{0644}\x{0627}。岓\x{1BF2}󠾃ᡂ", %p)}, undef, "to_unicode\(\'\。\\u0635\\u0649\\u0E37\\u0644\\u0627\。岓\\u1BF2\?ᡂ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4820\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("𐹨。8𑁆", %p)}, undef, "to_unicode\(\'𐹨\。8𑁆\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4821\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞀕\x{0D43}．ꡚ\x{08FA}𐹰\x{0D44}", %p)}, undef, "to_unicode\(\'\?\\u0D43．ꡚ\\u08FA𐹰\\u0D44\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4822\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𞀕\x{0D43}.ꡚ\x{08FA}𐹰\x{0D44}", %p)}, undef, "to_unicode\(\'\?\\u0D43\.ꡚ\\u08FA𐹰\\u0D44\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4823\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("󆩏𐦹\x{0303}｡󠍅", %p)}, undef, "to_unicode\(\'\?\?\\u0303｡\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4824\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󆩏𐦹\x{0303}。󠍅", %p)}, undef, "to_unicode\(\'\?\?\\u0303\。\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4825\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("ᢌ．-\x{085A}", %p)}, undef, "to_unicode\(\'ᢌ．\-\\u085A\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4826\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("ᢌ.-\x{085A}", %p)}, undef, "to_unicode\(\'ᢌ\.\-\\u085A\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4827\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𥛛𑘶｡𐹬𐲸\x{0BCD}", %p)}, undef, "to_unicode\(\'𥛛𑘶｡𐹬\?\\u0BCD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4828\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𥛛𑘶。𐹬𐲸\x{0BCD}", %p)}, undef, "to_unicode\(\'𥛛𑘶\。𐹬\?\\u0BCD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4829\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴐ\x{077F}．\x{200C}", %p)}, undef, "to_unicode\(\'Ⴐ\\u077F．\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4830\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴐ\x{077F}．\x{200C}", %p)}, undef, "to_unicode\(\'Ⴐ\\u077F．\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4831\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴐ\x{077F}.\x{200C}", %p)}, undef, "to_unicode\(\'Ⴐ\\u077F\.\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4832\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴐ\x{077F}.\x{200C}", %p)}, undef, "to_unicode\(\'Ⴐ\\u077F\.\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4833\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("ⴐ\x{077F}.\x{200C}", %p)}, undef, "to_unicode\(\'ⴐ\\u077F\.\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4834\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("ⴐ\x{077F}.\x{200C}", %p)}, undef, "to_unicode\(\'ⴐ\\u077F\.\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4835\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("ⴐ\x{077F}．\x{200C}", %p)}, undef, "to_unicode\(\'ⴐ\\u077F．\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4836\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("ⴐ\x{077F}．\x{200C}", %p)}, undef, "to_unicode\(\'ⴐ\\u077F．\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4837\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("🄅𑲞-⒈。\x{200D}ᠩ\x{06A5}", %p)}, undef, "to_unicode\(\'🄅\?\-⒈\。\\u200Dᠩ\\u06A5\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4838\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("🄅𑲞-⒈。\x{200D}ᠩ\x{06A5}", %p)}, undef, "to_unicode\(\'🄅\?\-⒈\。\\u200Dᠩ\\u06A5\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4839\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4,𑲞-1.。\x{200D}ᠩ\x{06A5}", %p)}, undef, "to_unicode\(\'4\,\?\-1\.\。\\u200Dᠩ\\u06A5\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ C2\ \[data\/IdnaTest\.txt\:4840\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("4,𑲞-1.。\x{200D}ᠩ\x{06A5}", %p)}, undef, "to_unicode\(\'4\,\?\-1\.\。\\u200Dᠩ\\u06A5\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ C2\ \[data\/IdnaTest\.txt\:4841\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񗀤。𞤪򮿋", %p)}, undef, "to_unicode\(\'\?\。\?\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4842\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("\x{05C1}۲｡𐮊\x{066C}𝨊鄨", %p)}, undef, "to_unicode\(\'\\u05C1۲｡𐮊\\u066C𝨊鄨\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:4843\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("\x{05C1}۲。𐮊\x{066C}𝨊鄨", %p)}, undef, "to_unicode\(\'\\u05C1۲\。𐮊\\u066C𝨊鄨\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:4844\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𞭳-ꡁ。\x{1A69}\x{0BCD}-", %p)}, undef, "to_unicode\(\'\?\-ꡁ\。\\u1A69\\u0BCD\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:4845\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1039}-𚮭🞢．ß", %p)}, undef, "to_unicode\(\'\\u1039\-\?🞢．ß\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4846\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1039}-𚮭🞢.ß", %p)}, undef, "to_unicode\(\'\\u1039\-\?🞢\.ß\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4847\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1039}-𚮭🞢.SS", %p)}, undef, "to_unicode\(\'\\u1039\-\?🞢\.SS\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4848\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1039}-𚮭🞢．SS", %p)}, undef, "to_unicode\(\'\\u1039\-\?🞢．SS\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4849\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FCF2}-\x{200C}｡Ⴟ\x{200C}␣", %p)}, undef, "to_unicode\(\'\\uFCF2\-\\u200C｡Ⴟ\\u200C\␣\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4850\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{FCF2}-\x{200C}｡Ⴟ\x{200C}␣", %p)}, undef, "to_unicode\(\'\\uFCF2\-\\u200C｡Ⴟ\\u200C\␣\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4851\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0640}\x{064E}\x{0651}-\x{200C}。Ⴟ\x{200C}␣", %p)}, undef, "to_unicode\(\'\\u0640\\u064E\\u0651\-\\u200C\。Ⴟ\\u200C\␣\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4852\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0640}\x{064E}\x{0651}-\x{200C}。Ⴟ\x{200C}␣", %p)}, undef, "to_unicode\(\'\\u0640\\u064E\\u0651\-\\u200C\。Ⴟ\\u200C\␣\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4853\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{0640}\x{064E}\x{0651}-\x{200C}。ⴟ\x{200C}␣", %p)}, undef, "to_unicode\(\'\\u0640\\u064E\\u0651\-\\u200C\。ⴟ\\u200C\␣\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:4854\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{0640}\x{064E}\x{0651}-\x{200C}。ⴟ\x{200C}␣", %p)}, undef, "to_unicode\(\'\\u0640\\u064E\\u0651\-\\u200C\。ⴟ\\u200C\␣\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:4855\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{FCF2}-\x{200C}｡ⴟ\x{200C}␣", %p)}, undef, "to_unicode\(\'\\uFCF2\-\\u200C｡ⴟ\\u200C\␣\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:4856\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{FCF2}-\x{200C}｡ⴟ\x{200C}␣", %p)}, undef, "to_unicode\(\'\\uFCF2\-\\u200C｡ⴟ\\u200C\␣\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:4857\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{0D4D}-\x{200D}\x{200C}｡񥞧₅≠", %p)}, undef, "to_unicode\(\'\\u0D4D\-\\u200D\\u200C｡\?₅\≠\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4858\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0D4D}-\x{200D}\x{200C}｡񥞧₅≠", %p)}, undef, "to_unicode\(\'\\u0D4D\-\\u200D\\u200C｡\?₅\≠\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4859\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0D4D}-\x{200D}\x{200C}｡񥞧₅=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0D4D\-\\u200D\\u200C｡\?₅\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4860\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0D4D}-\x{200D}\x{200C}｡񥞧₅=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0D4D\-\\u200D\\u200C｡\?₅\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4861\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0D4D}-\x{200D}\x{200C}。񥞧5≠", %p)}, undef, "to_unicode\(\'\\u0D4D\-\\u200D\\u200C\。\?5\≠\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4862\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0D4D}-\x{200D}\x{200C}。񥞧5≠", %p)}, undef, "to_unicode\(\'\\u0D4D\-\\u200D\\u200C\。\?5\≠\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4863\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0D4D}-\x{200D}\x{200C}。񥞧5=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0D4D\-\\u200D\\u200C\。\?5\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4864\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0D4D}-\x{200D}\x{200C}。񥞧5=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0D4D\-\\u200D\\u200C\。\?5\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4865\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("锣。\x{0A4D}󠘻󠚆", %p)}, undef, "to_unicode\(\'锣\。\\u0A4D\?\?\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4866\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{063D}𑈾．\x{0649}\x{200D}\x{A92B}", %p)}, undef, "to_unicode\(\'\\u063D\?．\\u0649\\u200D\\uA92B\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:4867\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{063D}𑈾．\x{0649}\x{200D}\x{A92B}", %p)}, undef, "to_unicode\(\'\\u063D\?．\\u0649\\u200D\\uA92B\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:4868\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{063D}𑈾.\x{0649}\x{200D}\x{A92B}", %p)}, undef, "to_unicode\(\'\\u063D\?\.\\u0649\\u200D\\uA92B\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:4869\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{063D}𑈾.\x{0649}\x{200D}\x{A92B}", %p)}, undef, "to_unicode\(\'\\u063D\?\.\\u0649\\u200D\\uA92B\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:4870\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("xn--8gb2338k.xn--lhb0154f", %p)}, "\x{063D}𑈾.\x{0649}\x{A92B}", "to_unicode\(\'xn\-\-8gb2338k\.xn\-\-lhb0154f\'\)\ \[data\/IdnaTest\.txt\:4871\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{063D}𑈾.\x{0649}\x{A92B}", %p)}, "\x{063D}𑈾.\x{0649}\x{A92B}", "to_unicode\(\'\\u063D\?\.\\u0649\\uA92B\'\)\ \[data\/IdnaTest\.txt\:4872\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("\x{0666}⁴Ⴅ．\x{08BD}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0666⁴Ⴅ．\\u08BD\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4873\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0666}⁴Ⴅ．\x{08BD}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0666⁴Ⴅ．\\u08BD\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4874\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0666}4Ⴅ.\x{08BD}\x{200C}", %p)}, undef, "to_unicode\(\'\\u06664Ⴅ\.\\u08BD\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4875\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0666}4Ⴅ.\x{08BD}\x{200C}", %p)}, undef, "to_unicode\(\'\\u06664Ⴅ\.\\u08BD\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4876\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{0666}4ⴅ.\x{08BD}\x{200C}", %p)}, undef, "to_unicode\(\'\\u06664ⴅ\.\\u08BD\\u200C\'\)\ throws\ error\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4877\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{0666}4ⴅ.\x{08BD}\x{200C}", %p)}, undef, "to_unicode\(\'\\u06664ⴅ\.\\u08BD\\u200C\'\)\ throws\ error\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4878\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{0666}⁴ⴅ．\x{08BD}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0666⁴ⴅ．\\u08BD\\u200C\'\)\ throws\ error\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4879\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("\x{0666}⁴ⴅ．\x{08BD}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0666⁴ⴅ．\\u08BD\\u200C\'\)\ throws\ error\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4880\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("ჁႱ6\x{0318}。ß\x{1B03}", %p)}, undef, "to_unicode\(\'ჁႱ6\\u0318\。ß\\u1B03\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4881\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("ⴡⴑ6\x{0318}。ß\x{1B03}", %p)}, "ⴡⴑ6\x{0318}.ß\x{1B03}", "to_unicode\(\'ⴡⴑ6\\u0318\。ß\\u1B03\'\)\ \[data\/IdnaTest\.txt\:4882\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("ⴡⴑ6\x{0318}。ß\x{1B03}", %p)}, "ⴡⴑ6\x{0318}.ß\x{1B03}", "to_unicode\(\'ⴡⴑ6\\u0318\。ß\\u1B03\'\)\ \[data\/IdnaTest\.txt\:4883\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("ჁႱ6\x{0318}。SS\x{1B03}", %p)}, undef, "to_unicode\(\'ჁႱ6\\u0318\。SS\\u1B03\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4884\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("ⴡⴑ6\x{0318}。ss\x{1B03}", %p)}, "ⴡⴑ6\x{0318}.ss\x{1B03}", "to_unicode\(\'ⴡⴑ6\\u0318\。ss\\u1B03\'\)\ \[data\/IdnaTest\.txt\:4885\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ⴡⴑ6\x{0318}。Ss\x{1B03}", %p)}, undef, "to_unicode\(\'Ⴡⴑ6\\u0318\。Ss\\u1B03\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4886\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("xn--6-8cb7433a2ba.xn--ss-2vq", %p)}, "ⴡⴑ6\x{0318}.ss\x{1B03}", "to_unicode\(\'xn\-\-6\-8cb7433a2ba\.xn\-\-ss\-2vq\'\)\ \[data\/IdnaTest\.txt\:4887\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("ⴡⴑ6\x{0318}.ss\x{1B03}", %p)}, "ⴡⴑ6\x{0318}.ss\x{1B03}", "to_unicode\(\'ⴡⴑ6\\u0318\.ss\\u1B03\'\)\ \[data\/IdnaTest\.txt\:4888\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("ჁႱ6\x{0318}.SS\x{1B03}", %p)}, undef, "to_unicode\(\'ჁႱ6\\u0318\.SS\\u1B03\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4889\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴡⴑ6\x{0318}.Ss\x{1B03}", %p)}, undef, "to_unicode\(\'Ⴡⴑ6\\u0318\.Ss\\u1B03\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4890\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("xn--6-8cb7433a2ba.xn--zca894k", %p)}, "ⴡⴑ6\x{0318}.ß\x{1B03}", "to_unicode\(\'xn\-\-6\-8cb7433a2ba\.xn\-\-zca894k\'\)\ \[data\/IdnaTest\.txt\:4891\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("ⴡⴑ6\x{0318}.ß\x{1B03}", %p)}, "ⴡⴑ6\x{0318}.ß\x{1B03}", "to_unicode\(\'ⴡⴑ6\\u0318\.ß\\u1B03\'\)\ \[data\/IdnaTest\.txt\:4892\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("ⴡⴑ6\x{0318}.ß\x{1B03}", %p)}, "ⴡⴑ6\x{0318}.ß\x{1B03}", "to_unicode\(\'ⴡⴑ6\\u0318\.ß\\u1B03\'\)\ \[data\/IdnaTest\.txt\:4893\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("򋡐｡≯𑋪", %p)}, undef, "to_unicode\(\'\?｡\≯𑋪\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4894\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򋡐｡>\x{0338}𑋪", %p)}, undef, "to_unicode\(\'\?｡\>\\u0338𑋪\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4895\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򋡐。≯𑋪", %p)}, undef, "to_unicode\(\'\?\。\≯𑋪\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4896\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򋡐。>\x{0338}𑋪", %p)}, undef, "to_unicode\(\'\?\。\>\\u0338𑋪\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4897\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{065A}۲。\x{200C}-\x{1BF3}\x{08E2}", %p)}, undef, "to_unicode\(\'\\u065A۲\。\\u200C\-\\u1BF3\\u08E2\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4898\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{065A}۲。\x{200C}-\x{1BF3}\x{08E2}", %p)}, undef, "to_unicode\(\'\\u065A۲\。\\u200C\-\\u1BF3\\u08E2\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4899\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄏𖬴󠲽｡\x{FFA0}", %p)}, undef, "to_unicode\(\'\󠄏𖬴\?｡\\uFFA0\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4900\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠄏𖬴󠲽。\x{1160}", %p)}, undef, "to_unicode\(\'\󠄏𖬴\?\。\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4901\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß⒈\x{0760}\x{D7AE}．􉖲󠅄\x{0605}򉔯", %p)}, undef, "to_unicode\(\'ß⒈\\u0760\\uD7AE．\?\󠅄\\u0605\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4902\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ß1.\x{0760}\x{D7AE}.􉖲󠅄\x{0605}򉔯", %p)}, undef, "to_unicode\(\'ß1\.\\u0760\\uD7AE\.\?\󠅄\\u0605\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:4903\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("SS1.\x{0760}\x{D7AE}.􉖲󠅄\x{0605}򉔯", %p)}, undef, "to_unicode\(\'SS1\.\\u0760\\uD7AE\.\?\󠅄\\u0605\?\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:4904\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("SS⒈\x{0760}\x{D7AE}．􉖲󠅄\x{0605}򉔯", %p)}, undef, "to_unicode\(\'SS⒈\\u0760\\uD7AE．\?\󠅄\\u0605\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4905\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ss⒈\x{0760}\x{D7AE}．􉖲󠅄\x{0605}򉔯", %p)}, undef, "to_unicode\(\'ss⒈\\u0760\\uD7AE．\?\󠅄\\u0605\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4906\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ss⒈\x{0760}\x{D7AE}．􉖲󠅄\x{0605}򉔯", %p)}, undef, "to_unicode\(\'Ss⒈\\u0760\\uD7AE．\?\󠅄\\u0605\?\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4907\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠭔.𐋱₂", %p)}, undef, "to_unicode\(\'\?\.𐋱₂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4908\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠭔.𐋱2", %p)}, undef, "to_unicode\(\'\?\.𐋱2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4909\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0716}\x{0947}。-ß\x{06A5}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0716\\u0947\。\-ß\\u06A5\\u200C\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:4910\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0716}\x{0947}。-ß\x{06A5}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0716\\u0947\。\-ß\\u06A5\\u200C\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:4911\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0716}\x{0947}。-SS\x{06A5}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0716\\u0947\。\-SS\\u06A5\\u200C\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:4912\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0716}\x{0947}。-SS\x{06A5}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0716\\u0947\。\-SS\\u06A5\\u200C\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:4913\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0716}\x{0947}。-ss\x{06A5}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0716\\u0947\。\-ss\\u06A5\\u200C\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:4914\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0716}\x{0947}。-ss\x{06A5}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0716\\u0947\。\-ss\\u06A5\\u200C\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:4915\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0716}\x{0947}。-Ss\x{06A5}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0716\\u0947\。\-Ss\\u06A5\\u200C\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:4916\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{0716}\x{0947}。-Ss\x{06A5}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0716\\u0947\。\-Ss\\u06A5\\u200C\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:4917\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BA9}\x{200D}\x{062A}񡚈．\x{1CD5}䷉Ⴡ", %p)}, undef, "to_unicode\(\'\\u1BA9\\u200D\\u062A\?．\\u1CD5䷉Ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4918\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BA9}\x{200D}\x{062A}񡚈．\x{1CD5}䷉Ⴡ", %p)}, undef, "to_unicode\(\'\\u1BA9\\u200D\\u062A\?．\\u1CD5䷉Ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4919\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BA9}\x{200D}\x{062A}񡚈.\x{1CD5}䷉Ⴡ", %p)}, undef, "to_unicode\(\'\\u1BA9\\u200D\\u062A\?\.\\u1CD5䷉Ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4920\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BA9}\x{200D}\x{062A}񡚈.\x{1CD5}䷉Ⴡ", %p)}, undef, "to_unicode\(\'\\u1BA9\\u200D\\u062A\?\.\\u1CD5䷉Ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4921\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BA9}\x{200D}\x{062A}񡚈.\x{1CD5}䷉ⴡ", %p)}, undef, "to_unicode\(\'\\u1BA9\\u200D\\u062A\?\.\\u1CD5䷉ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4922\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BA9}\x{200D}\x{062A}񡚈.\x{1CD5}䷉ⴡ", %p)}, undef, "to_unicode\(\'\\u1BA9\\u200D\\u062A\?\.\\u1CD5䷉ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4923\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BA9}\x{200D}\x{062A}񡚈．\x{1CD5}䷉ⴡ", %p)}, undef, "to_unicode\(\'\\u1BA9\\u200D\\u062A\?．\\u1CD5䷉ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4924\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BA9}\x{200D}\x{062A}񡚈．\x{1CD5}䷉ⴡ", %p)}, undef, "to_unicode\(\'\\u1BA9\\u200D\\u062A\?．\\u1CD5䷉ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4925\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{2DBF}.ß\x{200D}", %p)}, undef, "to_unicode\(\'\\u2DBF\.ß\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4926\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{2DBF}.ß\x{200D}", %p)}, undef, "to_unicode\(\'\\u2DBF\.ß\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4927\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{2DBF}.SS\x{200D}", %p)}, undef, "to_unicode\(\'\\u2DBF\.SS\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4928\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{2DBF}.SS\x{200D}", %p)}, undef, "to_unicode\(\'\\u2DBF\.SS\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4929\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{2DBF}.ss\x{200D}", %p)}, undef, "to_unicode\(\'\\u2DBF\.ss\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4930\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{2DBF}.ss\x{200D}", %p)}, undef, "to_unicode\(\'\\u2DBF\.ss\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4931\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{2DBF}.Ss\x{200D}", %p)}, undef, "to_unicode\(\'\\u2DBF\.Ss\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4932\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{2DBF}.Ss\x{200D}", %p)}, undef, "to_unicode\(\'\\u2DBF\.Ss\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4933\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BF3}︒.\x{062A}≯ꡂ", %p)}, undef, "to_unicode\(\'\\u1BF3︒\.\\u062A\≯ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4934\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BF3}︒.\x{062A}>\x{0338}ꡂ", %p)}, undef, "to_unicode\(\'\\u1BF3︒\.\\u062A\>\\u0338ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4935\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BF3}。.\x{062A}≯ꡂ", %p)}, undef, "to_unicode\(\'\\u1BF3\。\.\\u062A\≯ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B2\ B3\ \[data\/IdnaTest\.txt\:4936\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{1BF3}。.\x{062A}>\x{0338}ꡂ", %p)}, undef, "to_unicode\(\'\\u1BF3\。\.\\u062A\>\\u0338ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B2\ B3\ \[data\/IdnaTest\.txt\:4937\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮≠񏻃｡-𫠆\x{06B7}𐹪", %p)}, undef, "to_unicode\(\'\≮\≠\?｡\-𫠆\\u06B7𐹪\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4938\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}=\x{0338}񏻃｡-𫠆\x{06B7}𐹪", %p)}, undef, "to_unicode\(\'\<\\u0338\=\\u0338\?｡\-𫠆\\u06B7𐹪\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4939\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮≠񏻃。-𫠆\x{06B7}𐹪", %p)}, undef, "to_unicode\(\'\≮\≠\?\。\-𫠆\\u06B7𐹪\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4940\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}=\x{0338}񏻃。-𫠆\x{06B7}𐹪", %p)}, undef, "to_unicode\(\'\<\\u0338\=\\u0338\?\。\-𫠆\\u06B7𐹪\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4941\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹡\x{0777}。ꡂ", %p)}, undef, "to_unicode\(\'𐹡\\u0777\。ꡂ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4942\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("Ⴉ𝆅񔻅\x{0619}.ß𐧦𐹳\x{0775}", %p)}, undef, "to_unicode\(\'Ⴉ𝆅\?\\u0619\.ß𐧦𐹳\\u0775\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4943\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴉ𝆅񔻅\x{0619}.ß𐧦𐹳\x{0775}", %p)}, undef, "to_unicode\(\'ⴉ𝆅\?\\u0619\.ß𐧦𐹳\\u0775\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4944\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴉ𝆅񔻅\x{0619}.SS𐧦𐹳\x{0775}", %p)}, undef, "to_unicode\(\'Ⴉ𝆅\?\\u0619\.SS𐧦𐹳\\u0775\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4945\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ⴉ𝆅񔻅\x{0619}.ss𐧦𐹳\x{0775}", %p)}, undef, "to_unicode\(\'ⴉ𝆅\?\\u0619\.ss𐧦𐹳\\u0775\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4946\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Ⴉ𝆅񔻅\x{0619}.Ss𐧦𐹳\x{0775}", %p)}, undef, "to_unicode\(\'Ⴉ𝆅\?\\u0619\.Ss𐧦𐹳\\u0775\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4947\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}\x{0643}𐧾↙.񊽡", %p)}, undef, "to_unicode\(\'\\u200D\\u0643𐧾\↙\.\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4948\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}\x{0643}𐧾↙.񊽡", %p)}, undef, "to_unicode\(\'\\u200D\\u0643𐧾\↙\.\?\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4949\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("梉。\x{200C}", %p)}, undef, "to_unicode\(\'梉\。\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4950\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("梉。\x{200C}", %p)}, undef, "to_unicode\(\'梉\。\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4951\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--7zv.", %p)}, "梉.", "to_unicode\(\'xn\-\-7zv\.\'\)\ \[data\/IdnaTest\.txt\:4952\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("梉.", %p)}, "梉.", "to_unicode\(\'梉\.\'\)\ \[data\/IdnaTest\.txt\:4953\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡣ-≠.\x{200D}𞤗𐅢Ↄ", %p)}, undef, "to_unicode\(\'ꡣ\-\≠\.\\u200D\?𐅢Ↄ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4954\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡣ-≠.\x{200D}𞤗𐅢Ↄ", %p)}, undef, "to_unicode\(\'ꡣ\-\≠\.\\u200D\?𐅢Ↄ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4955\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡣ-=\x{0338}.\x{200D}𞤗𐅢Ↄ", %p)}, undef, "to_unicode\(\'ꡣ\-\=\\u0338\.\\u200D\?𐅢Ↄ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4956\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡣ-=\x{0338}.\x{200D}𞤗𐅢Ↄ", %p)}, undef, "to_unicode\(\'ꡣ\-\=\\u0338\.\\u200D\?𐅢Ↄ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4957\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡣ-=\x{0338}.\x{200D}𞤗𐅢ↄ", %p)}, undef, "to_unicode\(\'ꡣ\-\=\\u0338\.\\u200D\?𐅢ↄ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4958\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡣ-=\x{0338}.\x{200D}𞤗𐅢ↄ", %p)}, undef, "to_unicode\(\'ꡣ\-\=\\u0338\.\\u200D\?𐅢ↄ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4959\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡣ-≠.\x{200D}𞤗𐅢ↄ", %p)}, undef, "to_unicode\(\'ꡣ\-\≠\.\\u200D\?𐅢ↄ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4960\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ꡣ-≠.\x{200D}𞤗𐅢ↄ", %p)}, undef, "to_unicode\(\'ꡣ\-\≠\.\\u200D\?𐅢ↄ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4961\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς⒐𝆫⸵｡𐱢🄊𝟳", %p)}, undef, "to_unicode\(\'ς⒐𝆫\⸵｡\?🄊𝟳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4962\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς9.𝆫⸵。𐱢9,7", %p)}, undef, "to_unicode\(\'ς9\.𝆫\⸵\。\?9\,7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4963\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ9.𝆫⸵。𐱢9,7", %p)}, undef, "to_unicode\(\'Σ9\.𝆫\⸵\。\?9\,7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4964\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ9.𝆫⸵。𐱢9,7", %p)}, undef, "to_unicode\(\'σ9\.𝆫\⸵\。\?9\,7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4965\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ⒐𝆫⸵｡𐱢🄊𝟳", %p)}, undef, "to_unicode\(\'Σ⒐𝆫\⸵｡\?🄊𝟳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4966\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ⒐𝆫⸵｡𐱢🄊𝟳", %p)}, undef, "to_unicode\(\'σ⒐𝆫\⸵｡\?🄊𝟳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4967\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{0853}．\x{200C}ß", %p)}, undef, "to_unicode\(\'\\u0853．\\u200Cß\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4968\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{0853}．\x{200C}ß", %p)}, undef, "to_unicode\(\'\\u0853．\\u200Cß\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4969\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{0853}.\x{200C}ß", %p)}, undef, "to_unicode\(\'\\u0853\.\\u200Cß\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4970\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{0853}.\x{200C}ß", %p)}, undef, "to_unicode\(\'\\u0853\.\\u200Cß\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4971\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{0853}.\x{200C}SS", %p)}, undef, "to_unicode\(\'\\u0853\.\\u200CSS\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4972\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{0853}.\x{200C}SS", %p)}, undef, "to_unicode\(\'\\u0853\.\\u200CSS\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4973\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{0853}.\x{200C}ss", %p)}, undef, "to_unicode\(\'\\u0853\.\\u200Css\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4974\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{0853}.\x{200C}ss", %p)}, undef, "to_unicode\(\'\\u0853\.\\u200Css\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4975\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{0853}.\x{200C}Ss", %p)}, undef, "to_unicode\(\'\\u0853\.\\u200CSs\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4976\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{0853}.\x{200C}Ss", %p)}, undef, "to_unicode\(\'\\u0853\.\\u200CSs\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4977\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("xn--iwb.ss", %p)}, "\x{0853}.ss", "to_unicode\(\'xn\-\-iwb\.ss\'\)\ \[data\/IdnaTest\.txt\:4978\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{0853}.ss", %p)}, "\x{0853}.ss", "to_unicode\(\'\\u0853\.ss\'\)\ \[data\/IdnaTest\.txt\:4979\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{0853}．\x{200C}SS", %p)}, undef, "to_unicode\(\'\\u0853．\\u200CSS\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4980\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{0853}．\x{200C}SS", %p)}, undef, "to_unicode\(\'\\u0853．\\u200CSS\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4981\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{0853}．\x{200C}ss", %p)}, undef, "to_unicode\(\'\\u0853．\\u200Css\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4982\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{0853}．\x{200C}ss", %p)}, undef, "to_unicode\(\'\\u0853．\\u200Css\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4983\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{0853}．\x{200C}Ss", %p)}, undef, "to_unicode\(\'\\u0853．\\u200CSs\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4984\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("\x{0853}．\x{200C}Ss", %p)}, undef, "to_unicode\(\'\\u0853．\\u200CSs\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4985\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("񯶣-.\x{200D}\x{074E}\x{A94D}󠻨", %p)}, undef, "to_unicode\(\'\?\-\.\\u200D\\u074E\\uA94D\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4986\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񯶣-.\x{200D}\x{074E}\x{A94D}󠻨", %p)}, undef, "to_unicode\(\'\?\-\.\\u200D\\u074E\\uA94D\?\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4987\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("䃚蟥-。-񽒘⒈", %p)}, undef, "to_unicode\(\'䃚蟥\-\。\-\?⒈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4988\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("䃚蟥-。-񽒘1.", %p)}, undef, "to_unicode\(\'䃚蟥\-\。\-\?1\.\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4989\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹸䚵-ꡡ。⺇", %p)}, undef, "to_unicode\(\'𐹸䚵\-ꡡ\。⺇\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4990\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𑄳。\x{1ADC}𐹻", %p)}, undef, "to_unicode\(\'𑄳\。\\u1ADC𐹻\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4991\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮𐹻.⒎𑂵\x{06BA}\x{0602}", %p)}, undef, "to_unicode\(\'\≮𐹻\.⒎𑂵\\u06BA\\u0602\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4992\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}𐹻.⒎𑂵\x{06BA}\x{0602}", %p)}, undef, "to_unicode\(\'\<\\u0338𐹻\.⒎𑂵\\u06BA\\u0602\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4993\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("≮𐹻.7.𑂵\x{06BA}\x{0602}", %p)}, undef, "to_unicode\(\'\≮𐹻\.7\.𑂵\\u06BA\\u0602\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4994\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("<\x{0338}𐹻.7.𑂵\x{06BA}\x{0602}", %p)}, undef, "to_unicode\(\'\<\\u0338𐹻\.7\.𑂵\\u06BA\\u0602\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4995\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢔ≠􋉂.\x{200D}𐋢", %p)}, undef, "to_unicode\(\'ᢔ\≠\?\.\\u200D𐋢\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4996\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢔ≠􋉂.\x{200D}𐋢", %p)}, undef, "to_unicode\(\'ᢔ\≠\?\.\\u200D𐋢\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4997\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢔ=\x{0338}􋉂.\x{200D}𐋢", %p)}, undef, "to_unicode\(\'ᢔ\=\\u0338\?\.\\u200D𐋢\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4998\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ᢔ=\x{0338}􋉂.\x{200D}𐋢", %p)}, undef, "to_unicode\(\'ᢔ\=\\u0338\?\.\\u200D𐋢\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4999\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐩁≮񣊛≯．\x{066C}𞵕⳿", %p)}, undef, "to_unicode\(\'𐩁\≮\?\≯．\\u066C\?⳿\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:5000\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐩁<\x{0338}񣊛>\x{0338}．\x{066C}𞵕⳿", %p)}, undef, "to_unicode\(\'𐩁\<\\u0338\?\>\\u0338．\\u066C\?⳿\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:5001\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐩁≮񣊛≯.\x{066C}𞵕⳿", %p)}, undef, "to_unicode\(\'𐩁\≮\?\≯\.\\u066C\?⳿\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:5002\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐩁<\x{0338}񣊛>\x{0338}.\x{066C}𞵕⳿", %p)}, undef, "to_unicode\(\'𐩁\<\\u0338\?\>\\u0338\.\\u066C\?⳿\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:5003\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-｡⺐", %p)}, undef, "to_unicode\(\'\-｡⺐\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:5004\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-。⺐", %p)}, undef, "to_unicode\(\'\-\。⺐\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:5005\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠰩𑲬．\x{065C}", %p)}, undef, "to_unicode\(\'\?\?．\\u065C\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5006\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󠰩𑲬.\x{065C}", %p)}, undef, "to_unicode\(\'\?\?\.\\u065C\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5007\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐍺.񚇃\x{200C}", %p)}, undef, "to_unicode\(\'𐍺\.\?\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5008\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐍺.񚇃\x{200C}", %p)}, undef, "to_unicode\(\'𐍺\.\?\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5009\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{063D}\x{06E3}.𐨎", %p)}, undef, "to_unicode\(\'\\u063D\\u06E3\.𐨎\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5010\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("漦Ⴙς.񡻀𐴄", %p)}, undef, "to_unicode\(\'漦Ⴙς\.\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5011\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("漦ⴙς.񡻀𐴄", %p)}, undef, "to_unicode\(\'漦ⴙς\.\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5012\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("漦ႹΣ.񡻀𐴄", %p)}, undef, "to_unicode\(\'漦ႹΣ\.\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5013\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("漦ⴙσ.񡻀𐴄", %p)}, undef, "to_unicode\(\'漦ⴙσ\.\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5014\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("漦Ⴙσ.񡻀𐴄", %p)}, undef, "to_unicode\(\'漦Ⴙσ\.\?\?\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5015\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹫踧\x{0CCD}򫚇.󜀃⒈𝨤", %p)}, undef, "to_unicode\(\'𐹫踧\\u0CCD\?\.\?⒈𝨤\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5016\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𐹫踧\x{0CCD}򫚇.󜀃1.𝨤", %p)}, undef, "to_unicode\(\'𐹫踧\\u0CCD\?\.\?1\.𝨤\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:5017\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}≮．󠟪𹫏-", %p)}, undef, "to_unicode\(\'\\u200D\≮．\?\?\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5018\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}≮．󠟪𹫏-", %p)}, undef, "to_unicode\(\'\\u200D\≮．\?\?\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5019\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}<\x{0338}．󠟪𹫏-", %p)}, undef, "to_unicode\(\'\\u200D\<\\u0338．\?\?\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5020\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}<\x{0338}．󠟪𹫏-", %p)}, undef, "to_unicode\(\'\\u200D\<\\u0338．\?\?\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5021\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}≮.󠟪𹫏-", %p)}, undef, "to_unicode\(\'\\u200D\≮\.\?\?\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5022\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}≮.󠟪𹫏-", %p)}, undef, "to_unicode\(\'\\u200D\≮\.\?\?\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5023\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}<\x{0338}.󠟪𹫏-", %p)}, undef, "to_unicode\(\'\\u200D\<\\u0338\.\?\?\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5024\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}<\x{0338}.󠟪𹫏-", %p)}, undef, "to_unicode\(\'\\u200D\<\\u0338\.\?\?\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5025\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}\x{200D}襔。Ⴜ5ꡮ񵝏", %p)}, undef, "to_unicode\(\'\\u200D\\u200D襔\。Ⴜ5ꡮ\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:5026\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}\x{200D}襔。Ⴜ5ꡮ񵝏", %p)}, undef, "to_unicode\(\'\\u200D\\u200D襔\。Ⴜ5ꡮ\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:5027\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}\x{200D}襔。ⴜ5ꡮ񵝏", %p)}, undef, "to_unicode\(\'\\u200D\\u200D襔\。ⴜ5ꡮ\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:5028\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{200D}\x{200D}襔。ⴜ5ꡮ񵝏", %p)}, undef, "to_unicode\(\'\\u200D\\u200D襔\。ⴜ5ꡮ\?\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:5029\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫜𑌼\x{200D}．婀", %p)}, undef, "to_unicode\(\'𐫜𑌼\\u200D．婀\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:5030\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫜𑌼\x{200D}．婀", %p)}, undef, "to_unicode\(\'𐫜𑌼\\u200D．婀\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:5031\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫜𑌼\x{200D}.婀", %p)}, undef, "to_unicode\(\'𐫜𑌼\\u200D\.婀\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:5032\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫜𑌼\x{200D}.婀", %p)}, undef, "to_unicode\(\'𐫜𑌼\\u200D\.婀\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:5033\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--ix9c26l.xn--q0s", %p)}, "𐫜𑌼.婀", "to_unicode\(\'xn\-\-ix9c26l\.xn\-\-q0s\'\)\ \[data\/IdnaTest\.txt\:5034\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫜𑌼.婀", %p)}, "𐫜𑌼.婀", "to_unicode\(\'𐫜𑌼\.婀\'\)\ \[data\/IdnaTest\.txt\:5035\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("󠅽︒︒𐹯｡⬳\x{1A78}", %p)}, undef, "to_unicode\(\'\󠅽︒︒𐹯｡\⬳\\u1A78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5036\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("󠅽。。𐹯。⬳\x{1A78}", %p)}, undef, "to_unicode\(\'\󠅽\。\。𐹯\。\⬳\\u1A78\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:5037\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𝟖ß．󠄐-\x{DBDA}Ⴏ", %p)}, undef, "to_unicode\(\'𝟖ß．\󠄐\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:5038\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("8ß.󠄐-\x{DBDA}Ⴏ", %p)}, undef, "to_unicode\(\'8ß\.\󠄐\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:5039\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("8ß.󠄐-\x{DBDA}ⴏ", %p)}, undef, "to_unicode\(\'8ß\.\󠄐\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:5040\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("8SS.󠄐-\x{DBDA}Ⴏ", %p)}, undef, "to_unicode\(\'8SS\.\󠄐\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:5041\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("8ss.󠄐-\x{DBDA}ⴏ", %p)}, undef, "to_unicode\(\'8ss\.\󠄐\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:5042\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟖ß．󠄐-\x{DBDA}ⴏ", %p)}, undef, "to_unicode\(\'𝟖ß．\󠄐\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:5043\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟖SS．󠄐-\x{DBDA}Ⴏ", %p)}, undef, "to_unicode\(\'𝟖SS．\󠄐\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:5044\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟖ss．󠄐-\x{DBDA}ⴏ", %p)}, undef, "to_unicode\(\'𝟖ss．\󠄐\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:5045\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝟖Ss．󠄐-\x{DBDA}Ⴏ", %p)}, undef, "to_unicode\(\'𝟖Ss．\󠄐\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:5046\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{200D}󠋟.\x{200C}𐹣Ⴅ", %p)}, undef, "to_unicode\(\'\-\\u200D\?\.\\u200C𐹣Ⴅ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:5047\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{200D}󠋟.\x{200C}𐹣Ⴅ", %p)}, undef, "to_unicode\(\'\-\\u200D\?\.\\u200C𐹣Ⴅ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:5048\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{200D}󠋟.\x{200C}𐹣ⴅ", %p)}, undef, "to_unicode\(\'\-\\u200D\?\.\\u200C𐹣ⴅ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:5049\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("-\x{200D}󠋟.\x{200C}𐹣ⴅ", %p)}, undef, "to_unicode\(\'\-\\u200D\?\.\\u200C𐹣ⴅ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:5050\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9B9}\x{200D}큷𻶡｡₂", %p)}, undef, "to_unicode\(\'\\uA9B9\\u200D큷\?｡₂\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5051\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9B9}\x{200D}큷𻶡｡₂", %p)}, undef, "to_unicode\(\'\\uA9B9\\u200D큷\?｡₂\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5052\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9B9}\x{200D}큷𻶡｡₂", %p)}, undef, "to_unicode\(\'\\uA9B9\\u200D큷\?｡₂\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5053\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9B9}\x{200D}큷𻶡｡₂", %p)}, undef, "to_unicode\(\'\\uA9B9\\u200D큷\?｡₂\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5054\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9B9}\x{200D}큷𻶡。2", %p)}, undef, "to_unicode\(\'\\uA9B9\\u200D큷\?\。2\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5055\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9B9}\x{200D}큷𻶡。2", %p)}, undef, "to_unicode\(\'\\uA9B9\\u200D큷\?\。2\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5056\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9B9}\x{200D}큷𻶡。2", %p)}, undef, "to_unicode\(\'\\uA9B9\\u200D큷\?\。2\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5057\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{A9B9}\x{200D}큷𻶡。2", %p)}, undef, "to_unicode\(\'\\uA9B9\\u200D큷\?\。2\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5058\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{DF4D}.🄄𞯘", %p)}, undef, "to_unicode\(\'\\uDF4D\.🄄\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5059\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("\x{DF4D}.3,𞯘", %p)}, undef, "to_unicode\(\'\\uDF4D\.3\,\?\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5060\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝨖𐩙。\x{06DD}󀡶\x{A8C5}⒈", %p)}, undef, "to_unicode\(\'𝨖\?\。\\u06DD\?\\uA8C5⒈\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:5061\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𝨖𐩙。\x{06DD}󀡶\x{A8C5}1.", %p)}, undef, "to_unicode\(\'𝨖\?\。\\u06DD\?\\uA8C51\.\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:5062\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򒈣\x{05E1}\x{06B8}。Ⴈ\x{200D}", %p)}, undef, "to_unicode\(\'\?\\u05E1\\u06B8\。Ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:5063\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򒈣\x{05E1}\x{06B8}。Ⴈ\x{200D}", %p)}, undef, "to_unicode\(\'\?\\u05E1\\u06B8\。Ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:5064\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򒈣\x{05E1}\x{06B8}。ⴈ\x{200D}", %p)}, undef, "to_unicode\(\'\?\\u05E1\\u06B8\。ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:5065\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("򒈣\x{05E1}\x{06B8}。ⴈ\x{200D}", %p)}, undef, "to_unicode\(\'\?\\u05E1\\u06B8\。ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:5066\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󀚶𝨱\x{07E6}⒈．𑗝髯\x{200C}", %p)}, undef, "to_unicode\(\'\?𝨱\\u07E6⒈．𑗝髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ C1\ \[data\/IdnaTest\.txt\:5067\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󀚶𝨱\x{07E6}⒈．𑗝髯\x{200C}", %p)}, undef, "to_unicode\(\'\?𝨱\\u07E6⒈．𑗝髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ C1\ \[data\/IdnaTest\.txt\:5068\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󀚶𝨱\x{07E6}1..𑗝髯\x{200C}", %p)}, undef, "to_unicode\(\'\?𝨱\\u07E61\.\.𑗝髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ A4_2\ C1\ \[data\/IdnaTest\.txt\:5069\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("󀚶𝨱\x{07E6}1..𑗝髯\x{200C}", %p)}, undef, "to_unicode\(\'\?𝨱\\u07E61\.\.𑗝髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ A4_2\ C1\ \[data\/IdnaTest\.txt\:5070\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𐫀．\x{0689}𑌀", %p)}, "𐫀.\x{0689}𑌀", "to_unicode\(\'𐫀．\\u0689𑌀\'\)\ \[data\/IdnaTest\.txt\:5071\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𐫀.\x{0689}𑌀", %p)}, "𐫀.\x{0689}𑌀", "to_unicode\(\'𐫀\.\\u0689𑌀\'\)\ \[data\/IdnaTest\.txt\:5072\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("xn--pw9c.xn--fjb8658k", %p)}, "𐫀.\x{0689}𑌀", "to_unicode\(\'xn\-\-pw9c\.xn\-\-fjb8658k\'\)\ \[data\/IdnaTest\.txt\:5073\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𑋪．𐳝", %p)}, undef, "to_unicode\(\'𑋪．𐳝\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5074\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𑋪.𐳝", %p)}, undef, "to_unicode\(\'𑋪\.𐳝\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5075\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𑋪.𐲝", %p)}, undef, "to_unicode\(\'𑋪\.𐲝\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5076\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v8.0 (perl v5.24.0) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v8.0; is(eval{uts46_to_unicode("𑋪．𐲝", %p)}, undef, "to_unicode\(\'𑋪．𐲝\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5077\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("≠膣。\x{0F83}", %p)}, undef, "to_unicode\(\'\≠膣\。\\u0F83\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5078\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("=\x{0338}膣。\x{0F83}", %p)}, undef, "to_unicode\(\'\=\\u0338膣\。\\u0F83\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5079\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񰀎-\x{077D}｡ß", %p)}, undef, "to_unicode\(\'\?\-\\u077D｡ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5080\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񰀎-\x{077D}。ß", %p)}, undef, "to_unicode\(\'\?\-\\u077D\。ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5081\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񰀎-\x{077D}。SS", %p)}, undef, "to_unicode\(\'\?\-\\u077D\。SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5082\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("񰀎-\x{077D}｡SS", %p)}, undef, "to_unicode\(\'\?\-\\u077D｡SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5083\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς𐹠ᡚ𑄳．⾭𐹽𽐖𐫜", %p)}, undef, "to_unicode\(\'ς𐹠ᡚ𑄳．⾭𐹽\?𐫜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5084\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("ς𐹠ᡚ𑄳.靑𐹽𽐖𐫜", %p)}, undef, "to_unicode\(\'ς𐹠ᡚ𑄳\.靑𐹽\?𐫜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5085\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ𐹠ᡚ𑄳.靑𐹽𽐖𐫜", %p)}, undef, "to_unicode\(\'Σ𐹠ᡚ𑄳\.靑𐹽\?𐫜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5086\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ𐹠ᡚ𑄳.靑𐹽𽐖𐫜", %p)}, undef, "to_unicode\(\'σ𐹠ᡚ𑄳\.靑𐹽\?𐫜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5087\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("Σ𐹠ᡚ𑄳．⾭𐹽𽐖𐫜", %p)}, undef, "to_unicode\(\'Σ𐹠ᡚ𑄳．⾭𐹽\?𐫜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5088\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("σ𐹠ᡚ𑄳．⾭𐹽𽐖𐫜", %p)}, undef, "to_unicode\(\'σ𐹠ᡚ𑄳．⾭𐹽\?𐫜\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5089\]") or ($@ and diag($@)); +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐋷。\x{200D}", %p)}, undef, "to_unicode\(\'𐋷\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:5090\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐋷。\x{200D}", %p)}, undef, "to_unicode\(\'𐋷\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:5091\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--r97c.", %p)}, "𐋷.", "to_unicode\(\'xn\-\-r97c\.\'\)\ \[data\/IdnaTest\.txt\:5092\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐋷.", %p)}, "𐋷.", "to_unicode\(\'𐋷\.\'\)\ \[data\/IdnaTest\.txt\:5093\]") or ($@ and diag($@)); } +SKIP: { skip sprintf("requires Unicode® v9.0 (perl v5.25.3) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v9.0; is(eval{uts46_to_unicode("𑰳𑈯。⥪", %p)}, undef, "to_unicode\(\'\?𑈯\。\⥪\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5094\]") or ($@ and diag($@)); } +is(eval{uts46_to_unicode("𑆀䁴񤧣．Ⴕ𝟜\x{200C}\x{0348}", %p)}, undef, "to_unicode\(\'𑆀䁴\?．Ⴕ𝟜\\u200C\\u0348\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5095\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑆀䁴񤧣．Ⴕ𝟜\x{200C}\x{0348}", %p)}, undef, "to_unicode\(\'𑆀䁴\?．Ⴕ𝟜\\u200C\\u0348\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5096\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑆀䁴񤧣.Ⴕ4\x{200C}\x{0348}", %p)}, undef, "to_unicode\(\'𑆀䁴\?\.Ⴕ4\\u200C\\u0348\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5097\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑆀䁴񤧣.Ⴕ4\x{200C}\x{0348}", %p)}, undef, "to_unicode\(\'𑆀䁴\?\.Ⴕ4\\u200C\\u0348\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5098\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑆀䁴񤧣.ⴕ4\x{200C}\x{0348}", %p)}, undef, "to_unicode\(\'𑆀䁴\?\.ⴕ4\\u200C\\u0348\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5099\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑆀䁴񤧣.ⴕ4\x{200C}\x{0348}", %p)}, undef, "to_unicode\(\'𑆀䁴\?\.ⴕ4\\u200C\\u0348\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5100\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑆀䁴񤧣．ⴕ𝟜\x{200C}\x{0348}", %p)}, undef, "to_unicode\(\'𑆀䁴\?．ⴕ𝟜\\u200C\\u0348\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5101\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("𑆀䁴񤧣．ⴕ𝟜\x{200C}\x{0348}", %p)}, undef, "to_unicode\(\'𑆀䁴\?．ⴕ𝟜\\u200C\\u0348\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5102\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("憡\x{DF1F}\x{200C}Ⴔ.𐋮\x{200D}≠", %p)}, undef, "to_unicode\(\'憡\\uDF1F\\u200CႴ\.𐋮\\u200D\≠\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:5103\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("憡\x{DF1F}\x{200C}Ⴔ.𐋮\x{200D}≠", %p)}, undef, "to_unicode\(\'憡\\uDF1F\\u200CႴ\.𐋮\\u200D\≠\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:5104\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("憡\x{DF1F}\x{200C}Ⴔ.𐋮\x{200D}=\x{0338}", %p)}, undef, "to_unicode\(\'憡\\uDF1F\\u200CႴ\.𐋮\\u200D\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:5105\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("憡\x{DF1F}\x{200C}Ⴔ.𐋮\x{200D}=\x{0338}", %p)}, undef, "to_unicode\(\'憡\\uDF1F\\u200CႴ\.𐋮\\u200D\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:5106\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("憡\x{DF1F}\x{200C}ⴔ.𐋮\x{200D}=\x{0338}", %p)}, undef, "to_unicode\(\'憡\\uDF1F\\u200Cⴔ\.𐋮\\u200D\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:5107\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("憡\x{DF1F}\x{200C}ⴔ.𐋮\x{200D}=\x{0338}", %p)}, undef, "to_unicode\(\'憡\\uDF1F\\u200Cⴔ\.𐋮\\u200D\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:5108\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("憡\x{DF1F}\x{200C}ⴔ.𐋮\x{200D}≠", %p)}, undef, "to_unicode\(\'憡\\uDF1F\\u200Cⴔ\.𐋮\\u200D\≠\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:5109\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("憡\x{DF1F}\x{200C}ⴔ.𐋮\x{200D}≠", %p)}, undef, "to_unicode\(\'憡\\uDF1F\\u200Cⴔ\.𐋮\\u200D\≠\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:5110\]") or ($@ and diag($@)); + + +exit(0); diff --git a/t/xtra_pp.t b/t/xtra_pp.t new file mode 100644 index 0000000..02831f4 --- /dev/null +++ b/t/xtra_pp.t @@ -0,0 +1,26 @@ +use strict; +use utf8; +use warnings; + +BEGIN { + binmode STDOUT, ':utf8'; + binmode STDERR, ':utf8'; +} + +use Test::More tests => 3 + 1; +use Test::NoWarnings; + +{ + $Net::IDN::Punycode::_NO_XS = 1; +} +use Net::IDN::UTS46 (':all'); + +no warnings 'utf8'; + +my %p = ("TransitionalProcessing" => "0"); + +is(eval{uts46_to_ascii("xn--0.pt", %p)}, undef, "to_ascii\(\'xn\-\-0\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:256\]") or ($@ and diag($@)); +is(eval{uts46_to_unicode("xn--0.pt", %p)}, undef, "to_unicode\(\'xn\-\-0\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:256\]") or ($@ and diag($@)); +is(eval{Net::IDN::Punycode::decode_punycode(0)}, undef, "decode_punycode(0) throws error") or ($@ and diag($@)); + +exit(0);