Net-IDN-Encode-2.100000755000765000024 012260275732 14110 5ustar00cfaerberstaff000000000000Net-IDN-Encode-2.100/Build.PL000444000765000024 176012260275730 15543 0ustar00cfaerberstaff000000000000require 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/Unicode/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; Net-IDN-Encode-2.100/Changes000444000765000024 1167512260275730 15570 0ustar00cfaerberstaff000000000000Revision history for Perl extension Net::IDN::Encode 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 Net-IDN-Encode-2.100/LICENSE000444000765000024 4374712260275730 15307 0ustar00cfaerberstaff000000000000This software is copyright (c) 2013 by Claus Frber . 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) 2013 by Claus Frber . 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, Suite 500, Boston, MA 02110-1335 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) 2013 by Claus Frber . 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 Net-IDN-Encode-2.100/Makefile.PL000444000765000024 76012260275730 16200 0ustar00cfaerberstaff000000000000# Note: this file was auto-generated by Module::Build::Compat version 0.4203 require 5.008005; use ExtUtils::MakeMaker; WriteMakefile ( 'PL_FILES' => {}, 'PREREQ_PM' => { 'Unicode::Normalize' => 0, 'Test::NoWarnings' => 0, 'Test::More' => 0, 'ExtUtils::CBuilder' => 0 }, 'EXE_FILES' => [], 'INSTALLDIRS' => 'site', 'NAME' => 'Net::IDN::Encode', 'VERSION_FROM' => 'lib/Net/IDN/Encode.pm' ) ; Net-IDN-Encode-2.100/MANIFEST000444000765000024 120212260275730 15367 0ustar00cfaerberstaff000000000000Build.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/10pod.t t/11pod_cover.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 Net-IDN-Encode-2.100/META.json000444000765000024 205512260275730 15666 0ustar00cfaerberstaff000000000000{ "abstract" : "Internationalizing Domain Names in Applications (UTS #46)", "author" : [ "Claus Färber " ], "dynamic_config" : 1, "generated_by" : "Module::Build version 0.4203", "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.100" } Net-IDN-Encode-2.100/META.yml000444000765000024 116712260275730 15521 0ustar00cfaerberstaff000000000000--- 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.4203, CPAN::Meta::Converter version 2.133380' 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.100 Net-IDN-Encode-2.100/README000444000765000024 116412260275730 15125 0ustar00cfaerberstaff000000000000OVERVIEW 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 Frber ACKNOWLEDGMENTS Tatsuhiko Miyagawa Robert Urban Net-IDN-Encode-2.100/SIGNATURE000644000765000024 612412260275732 15536 0ustar00cfaerberstaff000000000000This file contains message digests of all files listed in MANIFEST, signed via the Module::Signature module, version 0.73. 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 04a13098c55c43968a5e156a521f92dbade4c0bb Build.PL SHA1 ad80304898d11f2277e8b78444d753a4b8a61b82 Changes SHA1 296afab11451d2129927fd8ae8d387caa797ed2b LICENSE SHA1 b947efa2ea37142ead6dfab2e1bc3ef6ccf2666b MANIFEST SHA1 24756d04a0b988d1f2bf15a88bb67ae6dba955f1 META.json SHA1 7fc45e1ca2d90869a0d75bded8f26e3df1d36e4c META.yml SHA1 38c224f088709880fb0bb2056b9acb8f28d512c4 Makefile.PL SHA1 3807b576f4488318a73d35db802b2609e2560070 README SHA1 c7825316b854216c50a88b5750c3a08a91e56695 eg/hello_idn.pl SHA1 da626e4a67218dc2ed50b4a5b45b258078db0681 eg/hello_idn_email.pl SHA1 050a1eb48fd605665518a4e1ecd076a748754229 lib/Net/IDN/Encode.pm SHA1 06fb96d373d1c8e35252a0d591fc63f2614b58f6 lib/Net/IDN/Overview.pod SHA1 f0f3fce7868cf66d8ac09ab577c3bc2fade4f927 lib/Net/IDN/Punycode.pm SHA1 6be71e4aef31bb784c7d4b819297b1150bb458b6 lib/Net/IDN/Punycode.xs SHA1 7d2e1af3ae83512014e76b2ac3a90e8a8f37fd56 lib/Net/IDN/Punycode/PP.pm SHA1 dada16900da3525b864719d2811402f64a125b4e lib/Net/IDN/Standards.pod SHA1 3eb8109a6d15c174a502a2638b08627cf97a10f3 lib/Net/IDN/UTS46.pm SHA1 ad28f2c430fc75a16fcd734d4d8f63a2daec3095 lib/Net/IDN/UTS46/_Mapping.pm SHA1 aee3164d2582e59a5cacc389f455a54d5a3e42e5 t/00use.t SHA1 4bf2ce7aa9320362cccabd1e8a1b623192584890 t/10pod.t SHA1 7b363ec736008d60ede786cd9e62ae8db99e7628 t/11pod_cover.t SHA1 42c6a0a5c049f8e43ee1197a3f25600527d9a58c t/domain_to_ascii.t SHA1 4984ddb57d80f5514c6362fc72b63381fc2dc078 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 df7dcecc51df1eea73d643cd51000580bdfedbf1 t/uts46_to_ascii-trans.t SHA1 cb9fe694ece3dbe931d6cd71628718456a8a9d3a t/uts46_to_ascii.t SHA1 817e6b14ea0565dfac581b5b8d0eaebe2911d9ec t/uts46_to_unicode.t SHA1 245b13d82d5ab98b510dc4b0221cab1ffd347237 t/xtra_pp.t -----BEGIN PGP SIGNATURE----- iQEcBAEBCAAGBQJSwXvYAAoJEIS+srvgrWBmsAoH/AkYnh/6rC7nWu5dWLAuCrnF TNHjPg+dJBQv+VQoI7fh5CwnMyT6HYE9SqP6g+yRK06Bn0KPG/Vpre28um0BwFZd DTAuE7oLpyk4mMaJPpn1A2NCFp6q3hjRV7V1A8hO+wPcb26fPNewqSIfjwZuxU3b 7Grfi5nD3T3faGSnpvi+klHKef2ZIVZubv3VsV9U4d8dgFntUb/ZlDppz47o5bGy g7Fr2lp9KeMGFsoex6ansYjvz4TavrJz9BGJYfHGXlk5pc9n9kXJtiXcJy+FuADZ Ii3gJnz87252UfWqQOT6ztvcgSP7GMwaV+1T7mGhigPD5wtZ521wau2U1seotDs= =bp1G -----END PGP SIGNATURE----- Net-IDN-Encode-2.100/eg000755000765000024 012260275730 14501 5ustar00cfaerberstaff000000000000Net-IDN-Encode-2.100/eg/hello_idn.pl000444000765000024 42012260275730 17104 0ustar00cfaerberstaff000000000000#!/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($_); } Net-IDN-Encode-2.100/eg/hello_idn_email.pl000444000765000024 43612260275730 20262 0ustar00cfaerberstaff000000000000#!/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($_); } Net-IDN-Encode-2.100/lib000755000765000024 012260275730 14654 5ustar00cfaerberstaff000000000000Net-IDN-Encode-2.100/lib/Net000755000765000024 012260275730 15402 5ustar00cfaerberstaff000000000000Net-IDN-Encode-2.100/lib/Net/IDN000755000765000024 012260275730 16014 5ustar00cfaerberstaff000000000000Net-IDN-Encode-2.100/lib/Net/IDN/Encode.pm000555000765000024 2415612260275730 17737 0ustar00cfaerberstaff000000000000package Net::IDN::Encode; require 5.006; use strict; use utf8; use warnings; our $VERSION = "2.100"; $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 (); 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}|^$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-hypen, 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. =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 follwing 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 follwing 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-2013 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 Net-IDN-Encode-2.100/lib/Net/IDN/Overview.pod000444000765000024 774512260275730 20500 0ustar00cfaerberstaff000000000000=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 orginal 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 prepration, 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 and 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 Net-IDN-Encode-2.100/lib/Net/IDN/Punycode.pm000444000765000024 553512260275730 20305 0ustar00cfaerberstaff000000000000package Net::IDN::Punycode; use 5.006; use strict; use utf8; use warnings; use Exporter; our $VERSION = "1.101"; $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 = undef; 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. 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. Note that this module 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. =head1 WARNING Usually, it is not a good idea to use this module directly. If you convert domain labels (or other strings) without proper prepration, 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, you might be fooled by different Unicode normalization forms (for example, some environments might automatically convert your data to NFD, which 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-2013 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 Net-IDN-Encode-2.100/lib/Net/IDN/Punycode.xs000444000765000024 1523212260275730 20336 0ustar00cfaerberstaff000000000000#include "EXTERN.h" #include "perl.h" #include "XSUB.h" #ifdef XS_VERSION #undef XS_VERSION #endif #define XS_VERSION "1.101" #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)) 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)); }; 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; PPCODE: 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); sv_2mortal(RETVAL); /* so we can use croak w/o memory leaks */ SvPOK_only(RETVAL); /* UTF8 is off (BASE chars only) */ re_s = re_p = SvPV_nolen(RETVAL); re_e = re_s + SvLEN(RETVAL); /* copy basic code points */ while(in_p < in_e) { if( isBASE(*in_p) ) *re_p++ = *in_p; in_p++; } h = re_p - re_s; /* add DELIM if needed */ if(h) *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;) { #ifdef utf8_to_uvchr_buf c = utf8_to_uvchr_buf((U8*)in_p, (U8*)in_e, &u8); #else c = utf8_to_uvchr((U8*)in_p, &u8); #endif 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;) { #ifdef utf8_to_uvchr_buf c = utf8_to_uvchr_buf((U8*)in_p, (U8*)in_e, &u8); #else c = utf8_to_uvchr((U8*)in_p, &u8); #endif c = NATIVE_TO_UNI(c); if(c < n) { ++delta; } else if( c == n ) { q = delta; for(k = BASE;; k += BASE) { if(re_p >= re_e) { length_guess = re_e - re_s + 16; re_e = SvGROW(RETVAL, length_guess); re_p = re_e + (re_p - re_s); re_s = re_e; re_e = re_s + SvLEN(RETVAL); } t = TMIN_MAX(k - bias); if(q < t) break; *re_p++ = enc_digit[t + ((q-t) % (BASE-t))]; q = (q-t) / (BASE-t); } if(q > BASE) croak("input exceeds punycode limit"); *re_p++ = enc_digit[q]; bias = adapt(delta, h+1, first); delta = first = 0; ++h; } in_p += u8; } ++delta; ++n; } *re_p = 0; SvCUR_set(RETVAL, re_p - re_s); ST(0) = RETVAL; XSRETURN(1); 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; PPCODE: 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); sv_2mortal(RETVAL); /* so we can use croak w/o memory leaks */ 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; *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 */ if(re_p + u8 >= re_e) { length_guess = re_e - re_p + u8 + 16; re_e = SvGROW(RETVAL, length_guess); re_p = re_e + (re_p - re_s); re_s = re_e; re_e = re_s + SvLEN(RETVAL); } j = i; for(skip_p = re_s; j > 0; j--) /* find position in UTF-8 */ skip_p+=UTF8SKIP(skip_p); 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 */ *re_p = 0; SvCUR_set(RETVAL, re_p - re_s); ST(0) = RETVAL; XSRETURN(1); Net-IDN-Encode-2.100/lib/Net/IDN/Standards.pod000555000765000024 703412260275730 20607 0ustar00cfaerberstaff000000000000=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 hypen (i.e. C). Words and names from langauges that require additional characters (such as diacritics or special characters) or other scripts could not be used. Internationalizied 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 Net-IDN-Encode-2.100/lib/Net/IDN/UTS46.pm000444000765000024 4233712260275730 17365 0ustar00cfaerberstaff000000000000package 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/^$IDNA_PREFIX(\p{ASCII}+)$/oi) { 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-2013 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) Net-IDN-Encode-2.100/lib/Net/IDN/Punycode000755000765000024 012260275730 17602 5ustar00cfaerberstaff000000000000Net-IDN-Encode-2.100/lib/Net/IDN/Punycode/PP.pm000444000765000024 1112512260275730 20634 0ustar00cfaerberstaff000000000000package 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 Net-IDN-Encode-2.100/lib/Net/IDN/UTS46000755000765000024 012260275730 16641 5ustar00cfaerberstaff000000000000Net-IDN-Encode-2.100/lib/Net/IDN/UTS46/_Mapping.pm000444000765000024 54627112260275730 21145 0ustar00cfaerberstaff000000000000# *** 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 = 6.003_000_001; our $UNICODE_VERSION = 6.003_000; our $UNICODE_DATE = "20130926"; 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, 0x037F, 0x0383, 0x038B, undef, 0x038D, undef, 0x03A2, undef, 0x04C0, undef, 0x0528, 0x0530, 0x0557, 0x0558, 0x0560, undef, 0x0588, undef, 0x058B, 0x058E, 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, 0x08A1, undef, 0x08AD, 0x08E3, 0x08FF, undef, 0x0978, undef, 0x0980, 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, 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, 0x0C00, 0x0C04, undef, 0x0C0D, undef, 0x0C11, undef, 0x0C29, undef, 0x0C34, undef, 0x0C3A, 0x0C3C, 0x0C45, undef, 0x0C49, undef, 0x0C4E, 0x0C54, 0x0C57, undef, 0x0C5A, 0x0C5F, 0x0C64, 0x0C65, 0x0C70, 0x0C77, 0x0C80, 0x0C81, 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, 0x0D01, 0x0D04, undef, 0x0D0D, undef, 0x0D11, undef, 0x0D3B, 0x0D3C, 0x0D45, undef, 0x0D49, undef, 0x0D4F, 0x0D56, 0x0D58, 0x0D5F, 0x0D64, 0x0D65, 0x0D76, 0x0D78, 0x0D80, 0x0D81, 0x0D84, undef, 0x0D97, 0x0D99, 0x0DB2, undef, 0x0DBC, undef, 0x0DBE, 0x0DBF, 0x0DC7, 0x0DC9, 0x0DCB, 0x0DCE, 0x0DD5, undef, 0x0DD7, undef, 0x0DE0, 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, 0x13F5, 0x13FF, 0x1680, undef, 0x169D, 0x169F, 0x16F1, 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, 0x191D, 0x191F, 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, 0x1AFF, 0x1B4C, 0x1B4F, 0x1B7D, 0x1B7F, 0x1BF4, 0x1BFB, 0x1C38, 0x1C3A, 0x1C4A, 0x1C4C, 0x1C80, 0x1CBF, 0x1CC8, 0x1CCF, 0x1CF7, 0x1CFF, 0x1DE7, 0x1DFB, 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, 0x20BB, 0x20CF, 0x20F1, 0x20FF, 0x2132, undef, 0x2183, undef, 0x218A, 0x218F, 0x23F4, 0x23FF, 0x2427, 0x243F, 0x244B, 0x245F, 0x2488, 0x249B, 0x2700, undef, 0x2B4D, 0x2B4F, 0x2B5A, 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, 0x2E3C, 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, 0x9FCD, 0x9FFF, 0xA48D, 0xA48F, 0xA4C7, 0xA4CF, 0xA62C, 0xA63F, 0xA698, 0xA69E, 0xA6F8, 0xA6FF, 0xA78F, undef, 0xA794, 0xA79F, 0xA7AB, 0xA7F7, 0xA82C, 0xA82F, 0xA83A, 0xA83F, 0xA878, 0xA87F, 0xA8C5, 0xA8CD, 0xA8DA, 0xA8DF, 0xA8FC, 0xA8FF, 0xA954, 0xA95E, 0xA97D, 0xA97F, 0xA9CE, undef, 0xA9DA, 0xA9DD, 0xA9E0, 0xA9FF, 0xAA37, 0xAA3F, 0xAA4E, 0xAA4F, 0xAA5A, 0xAA5B, 0xAA7C, 0xAA7F, 0xAAC3, 0xAADA, 0xAAF7, 0xAB00, 0xAB07, 0xAB08, 0xAB0F, 0xAB10, 0xAB17, 0xAB1F, 0xAB27, undef, 0xAB2F, 0xABBF, 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, 0xFE27, 0xFE30, 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, 0x1018B, 0x1018F, 0x1019C, 0x101CF, 0x101FE, 0x1027F, 0x1029D, 0x1029F, 0x102D1, 0x102FF, 0x1031F, undef, 0x10324, 0x1032F, 0x1034B, 0x1037F, 0x1039E, undef, 0x103C4, 0x103C7, 0x103D6, 0x103FF, 0x1049E, 0x1049F, 0x104AA, 0x107FF, 0x10806, 0x10807, 0x10809, undef, 0x10836, undef, 0x10839, 0x1083B, 0x1083D, 0x1083E, 0x10856, undef, 0x10860, 0x108FF, 0x1091C, 0x1091E, 0x1093A, 0x1093E, 0x10940, 0x1097F, 0x109B8, 0x109BD, 0x109C0, 0x109FF, 0x10A04, undef, 0x10A07, 0x10A0B, 0x10A14, undef, 0x10A18, undef, 0x10A34, 0x10A37, 0x10A3B, 0x10A3E, 0x10A48, 0x10A4F, 0x10A59, 0x10A5F, 0x10A80, 0x10AFF, 0x10B36, 0x10B38, 0x10B56, 0x10B57, 0x10B73, 0x10B77, 0x10B80, 0x10BFF, 0x10C49, 0x10E5F, 0x10E7F, 0x10FFF, 0x1104E, 0x11051, 0x11070, 0x1107F, 0x110BD, undef, 0x110C2, 0x110CF, 0x110E9, 0x110EF, 0x110FA, 0x110FF, 0x11135, undef, 0x11144, 0x1117F, 0x111C9, 0x111CF, 0x111DA, 0x1167F, 0x116B8, 0x116BF, 0x116CA, 0x11FFF, 0x1236F, 0x123FF, 0x12463, 0x1246F, 0x12474, 0x12FFF, 0x1342F, 0x167FF, 0x16A39, 0x16EFF, 0x16F45, 0x16F4F, 0x16F7F, 0x16F8E, 0x16FA0, 0x1AFFF, 0x1B002, 0x1CFFF, 0x1D0F6, 0x1D0FF, 0x1D127, 0x1D128, 0x1D173, 0x1D17A, 0x1D1DE, 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, 0x1D800, 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, 0x1F0BF, 0x1F0C0, 0x1F0D0, undef, 0x1F0E0, 0x1F100, 0x1F10B, 0x1F10F, 0x1F12F, undef, 0x1F16C, 0x1F16F, 0x1F19B, 0x1F1E5, 0x1F203, 0x1F20F, 0x1F23B, 0x1F23F, 0x1F249, 0x1F24F, 0x1F252, 0x1F2FF, 0x1F321, 0x1F32F, 0x1F336, undef, 0x1F37D, 0x1F37F, 0x1F394, 0x1F39F, 0x1F3C5, undef, 0x1F3CB, 0x1F3DF, 0x1F3F1, 0x1F3FF, 0x1F43F, undef, 0x1F441, undef, 0x1F4F8, undef, 0x1F4FD, 0x1F4FF, 0x1F53E, 0x1F53F, 0x1F544, 0x1F54F, 0x1F568, 0x1F5FA, 0x1F641, 0x1F644, 0x1F650, 0x1F67F, 0x1F6C6, 0x1F6FF, 0x1F774, 0x1FFFF, 0x2A6D7, 0x2A6FF, 0x2B735, 0x2B73F, 0x2B81E, 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, 0x0559, 0x055F, 0x0561, 0x0586, 0x0589, 0x058A, 0x058F, undef, 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, undef, 0x08A2, 0x08AC, 0x08E4, 0x08FE, 0x0900, 0x0957, 0x0960, 0x0977, 0x0979, 0x097F, 0x0981, 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, 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, 0x0C01, 0x0C03, 0x0C05, 0x0C0C, 0x0C0E, 0x0C10, 0x0C12, 0x0C28, 0x0C2A, 0x0C33, 0x0C35, 0x0C39, 0x0C3D, 0x0C44, 0x0C46, 0x0C48, 0x0C4A, 0x0C4D, 0x0C55, 0x0C56, 0x0C58, 0x0C59, 0x0C60, 0x0C63, 0x0C66, 0x0C6F, 0x0C78, 0x0C7F, 0x0C82, 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, 0x0D02, 0x0D03, 0x0D05, 0x0D0C, 0x0D0E, 0x0D10, 0x0D12, 0x0D3A, 0x0D3D, 0x0D44, 0x0D46, 0x0D48, 0x0D4A, 0x0D4E, 0x0D57, undef, 0x0D60, 0x0D63, 0x0D66, 0x0D75, 0x0D79, 0x0D7F, 0x0D82, 0x0D83, 0x0D85, 0x0D96, 0x0D9A, 0x0DB1, 0x0DB3, 0x0DBB, 0x0DBD, undef, 0x0DC0, 0x0DC6, 0x0DCA, undef, 0x0DCF, 0x0DD4, 0x0DD6, undef, 0x0DD8, 0x0DDF, 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, 0x13F4, 0x1400, 0x167F, 0x1681, 0x169C, 0x16A0, 0x16F0, 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, 0x191C, 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, 0x1B00, 0x1B4B, 0x1B50, 0x1B7C, 0x1B80, 0x1BF3, 0x1BFC, 0x1C37, 0x1C3B, 0x1C49, 0x1C4D, 0x1C7F, 0x1CC0, 0x1CC7, 0x1CD0, 0x1CF6, 0x1D00, 0x1D2B, 0x1D2F, undef, 0x1D3B, undef, 0x1D4E, undef, 0x1D6B, 0x1D77, 0x1D79, 0x1D9A, 0x1DC0, 0x1DE6, 0x1DFC, 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, 0x20BA, 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, 0x2190, 0x222B, 0x222E, undef, 0x2231, 0x225F, 0x2261, 0x226D, 0x2270, 0x2328, 0x232B, 0x23F3, 0x2400, 0x2426, 0x2440, 0x244A, 0x24EB, 0x26FF, 0x2701, 0x2A0B, 0x2A0D, 0x2A73, 0x2A77, 0x2ADB, 0x2ADD, 0x2B4C, 0x2B50, 0x2B59, 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, 0x2E3B, 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, 0x9FCC, 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, 0xA69F, 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, undef, 0xA791, undef, 0xA793, undef, 0xA7A1, undef, 0xA7A3, undef, 0xA7A5, undef, 0xA7A7, undef, 0xA7A9, undef, 0xA7FA, 0xA82B, 0xA830, 0xA839, 0xA840, 0xA877, 0xA880, 0xA8C4, 0xA8CE, 0xA8D9, 0xA8E0, 0xA8FB, 0xA900, 0xA953, 0xA95F, 0xA97C, 0xA980, 0xA9CD, 0xA9CF, 0xA9D9, 0xA9DE, 0xA9DF, 0xAA00, 0xAA36, 0xAA40, 0xAA4D, 0xAA50, 0xAA59, 0xAA5C, 0xAA7B, 0xAA80, 0xAAC2, 0xAADB, 0xAAF6, 0xAB01, 0xAB06, 0xAB09, 0xAB0E, 0xAB11, 0xAB16, 0xAB20, 0xAB26, 0xAB28, 0xAB2E, 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, 0xFE26, 0xFE45, 0xFE46, 0xFE73, undef, 0x10000, 0x1000B, 0x1000D, 0x10026, 0x10028, 0x1003A, 0x1003C, 0x1003D, 0x1003F, 0x1004D, 0x10050, 0x1005D, 0x10080, 0x100FA, 0x10100, 0x10102, 0x10107, 0x10133, 0x10137, 0x1018A, 0x10190, 0x1019B, 0x101D0, 0x101FD, 0x10280, 0x1029C, 0x102A0, 0x102D0, 0x10300, 0x1031E, 0x10320, 0x10323, 0x10330, 0x1034A, 0x10380, 0x1039D, 0x1039F, 0x103C3, 0x103C8, 0x103D5, 0x10428, 0x1049D, 0x104A0, 0x104A9, 0x10800, 0x10805, 0x10808, undef, 0x1080A, 0x10835, 0x10837, 0x10838, 0x1083C, undef, 0x1083F, 0x10855, 0x10857, 0x1085F, 0x10900, 0x1091B, 0x1091F, 0x10939, 0x1093F, undef, 0x10980, 0x109B7, 0x109BE, 0x109BF, 0x10A00, 0x10A03, 0x10A05, 0x10A06, 0x10A0C, 0x10A13, 0x10A15, 0x10A17, 0x10A19, 0x10A33, 0x10A38, 0x10A3A, 0x10A3F, 0x10A47, 0x10A50, 0x10A58, 0x10A60, 0x10A7F, 0x10B00, 0x10B35, 0x10B39, 0x10B55, 0x10B58, 0x10B72, 0x10B78, 0x10B7F, 0x10C00, 0x10C48, 0x10E60, 0x10E7E, 0x11000, 0x1104D, 0x11052, 0x1106F, 0x11080, 0x110BC, 0x110BE, 0x110C1, 0x110D0, 0x110E8, 0x110F0, 0x110F9, 0x11100, 0x11134, 0x11136, 0x11143, 0x11180, 0x111C8, 0x111D0, 0x111D9, 0x11680, 0x116B7, 0x116C0, 0x116C9, 0x12000, 0x1236E, 0x12400, 0x12462, 0x12470, 0x12473, 0x13000, 0x1342E, 0x16800, 0x16A38, 0x16F00, 0x16F44, 0x16F50, 0x16F7E, 0x16F8F, 0x16F9F, 0x1B000, 0x1B001, 0x1D000, 0x1D0F5, 0x1D100, 0x1D126, 0x1D129, 0x1D15D, 0x1D165, 0x1D172, 0x1D17B, 0x1D1BA, 0x1D1C1, 0x1D1DD, 0x1D200, 0x1D245, 0x1D300, 0x1D356, 0x1D360, 0x1D371, 0x1EEF0, 0x1EEF1, 0x1F000, 0x1F02B, 0x1F030, 0x1F093, 0x1F0A0, 0x1F0AE, 0x1F0B1, 0x1F0BE, 0x1F0C1, 0x1F0CF, 0x1F0D1, 0x1F0DF, 0x1F150, 0x1F169, 0x1F170, 0x1F18F, 0x1F191, 0x1F19A, 0x1F1E6, 0x1F1FF, 0x1F300, 0x1F320, 0x1F330, 0x1F335, 0x1F337, 0x1F37C, 0x1F380, 0x1F393, 0x1F3A0, 0x1F3C4, 0x1F3C6, 0x1F3CA, 0x1F3E0, 0x1F3F0, 0x1F400, 0x1F43E, 0x1F440, undef, 0x1F442, 0x1F4F7, 0x1F4F9, 0x1F4FC, 0x1F500, 0x1F53D, 0x1F540, 0x1F543, 0x1F550, 0x1F567, 0x1F5FB, 0x1F640, 0x1F645, 0x1F64F, 0x1F680, 0x1F6C5, 0x1F700, 0x1F773, 0x20000, 0x2A6D6, 0x2A700, 0x2B734, 0x2B740, 0x2B81D, ); 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 => "", 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, 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 => "ͷ", 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 => "ԧ", 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 => "ნ", 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 => "ꚗ", 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 => "ꞓ", 0xA7A0 => "ꞡ", 0xA7A2 => "ꞣ", 0xA7A4 => "ꞥ", 0xA7A6 => "ꞧ", 0xA7A8 => "ꞩ", 0xA7AA => "ɦ", 0xA7F8 => "ħ", 0xA7F9 => "œ", 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 => "𐑏", 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", 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 => "営", 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, 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, 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, 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, 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, 0xA7A0, undef, 0xA7A2, undef, 0xA7A4, undef, 0xA7A6, undef, 0xA7A8, undef, 0xA7AA, undef, 0xA7F8, 0xA7F9, 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, 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, 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, 0x1F23A, 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{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{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}0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\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{1D6C1}𝛂𝛃𝛄𝛅𝛆𝛇𝛈𝛉𝛊𝛋𝛌𝛍𝛎𝛏𝛐𝛑𝛒𝛓𝛔𝛕𝛖𝛗𝛘𝛙𝛚\x{1D6DB}𝛜𝛝𝛞𝛟𝛠𝛡𝛢𝛣𝛤𝛥𝛦𝛧𝛨𝛩𝛪𝛫𝛬𝛭𝛮𝛯𝛰𝛱𝛲𝛳𝛴𝛵𝛶𝛷𝛸𝛹𝛺\x{1D6FB}𝛼𝛽𝛾𝛿𝜀𝜁𝜂𝜃𝜄𝜅𝜆𝜇𝜈𝜉𝜊𝜋𝜌𝜍𝜎𝜏𝜐𝜑𝜒𝜓𝜔\x{1D715}𝜖𝜗𝜘𝜙𝜚𝜛𝜜𝜝𝜞𝜟𝜠𝜡𝜢𝜣𝜤𝜥𝜦𝜧𝜨𝜩𝜪𝜫𝜬𝜭𝜮𝜯𝜰𝜱𝜲𝜳𝜴\x{1D735}𝜶𝜷𝜸𝜹𝜺𝜻𝜼𝜽𝜾𝜿𝝀𝝁𝝂𝝃𝝄𝝅𝝆𝝇𝝈𝝉𝝊𝝋𝝌𝝍𝝎\x{1D74F}𝝐𝝑𝝒𝝓𝝔𝝕𝝖𝝗𝝘𝝙𝝚𝝛𝝜𝝝𝝞𝝟𝝠𝝡𝝢𝝣𝝤𝝥𝝦𝝧𝝨𝝩𝝪𝝫𝝬𝝭𝝮\x{1D76F}𝝰𝝱𝝲𝝳𝝴𝝵𝝶𝝷𝝸𝝹𝝺𝝻𝝼𝝽𝝾𝝿𝞀𝞁𝞂𝞃𝞄𝞅𝞆𝞇𝞈\x{1D789}𝞊𝞋𝞌𝞍𝞎𝞏𝞐𝞑𝞒𝞓𝞔𝞕𝞖𝞗𝞘𝞙𝞚𝞛𝞜𝞝𝞞𝞟𝞠𝞡𝞢𝞣𝞤𝞥𝞦𝞧𝞨\x{1D7A9}𝞪𝞫𝞬𝞭𝞮𝞯𝞰𝞱𝞲𝞳𝞴𝞵𝞶𝞷𝞸𝞹𝞺𝞻𝞼𝞽𝞾𝞿𝟀𝟁𝟂\x{1D7C3}𝟄𝟅𝟆𝟇𝟈𝟉𝟊𝟋𝟎𝟏𝟐𝟑𝟒𝟓𝟔𝟕𝟖𝟗𝟘𝟙𝟚𝟛𝟜𝟝𝟞𝟟𝟠𝟡𝟢𝟣𝟤𝟥𝟦𝟧𝟨𝟩𝟪𝟫𝟬𝟭𝟮𝟯𝟰𝟱𝟲𝟳𝟴𝟵𝟶𝟷𝟸𝟹𝟺𝟻𝟼𝟽𝟾𝟿𞸀𞸁𞸂𞸃𞸅𞸆𞸇𞸈𞸉𞸊𞸋𞸌𞸍𞸎𞸏𞸐𞸑𞸒𞸓𞸔𞸕𞸖𞸗𞸘𞸙𞸚𞸛𞸜𞸝𞸞𞸟𞸡𞸢𞸤𞸧𞸩𞸪𞸫𞸬𞸭𞸮𞸯𞸰𞸱𞸲𞸴𞸵𞸶𞸷𞸹𞸻𞹂𞹇𞹉𞹋𞹍𞹎𞹏𞹑𞹒𞹔𞹗𞹙𞹛𞹝𞹟𞹡𞹢𞹤𞹧𞹨𞹩𞹪𞹬𞹭𞹮𞹯𞹰𞹱𞹲𞹴𞹵𞹶𞹷𞹹𞹺𞹻𞹼𞹾𞺀𞺁𞺂𞺃𞺄𞺅𞺆𞺇𞺈𞺉𞺋𞺌𞺍𞺎𞺏𞺐𞺑𞺒𞺓𞺔𞺕𞺖𞺗𞺘𞺙𞺚𞺛𞺡𞺢𞺣𞺥𞺦𞺧𞺨𞺩𞺫𞺬𞺭𞺮𞺯𞺰𞺱𞺲𞺳𞺴𞺵𞺶𞺷𞺸𞺹𞺺𞺻\x{1F12B}\x{1F12C}\x{1F130}\x{1F131}\x{1F132}\x{1F133}\x{1F134}\x{1F135}\x{1F136}\x{1F137}\x{1F138}\x{1F139}\x{1F13A}\x{1F13B}\x{1F13C}\x{1F13D}\x{1F13E}\x{1F13F}\x{1F140}\x{1F141}\x{1F142}\x{1F143}\x{1F144}\x{1F145}\x{1F146}\x{1F147}\x{1F148}\x{1F149}\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{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}𐐨𐐩𐐪𐐫𐐬𐐭𐐮𐐯𐐰𐐱𐐲𐐳𐐴𐐵𐐶𐐷𐐸𐐹𐐺𐐻𐐼𐐽𐐾𐐿𐑀𐑁𐑂𐑃𐑄𐑅𐑆𐑇𐑈𐑉𐑊𐑋𐑌𐑍𐑎𐑏abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefgijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzacdgjknopqstuvwxyzabcdfhijklmnpqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabdefgjklmnopqstuvwxyabcdefghijklmnopqrstuvwxyzabdefgijklmostuvwxyabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzıȷαβγδεζηθικλμνξοπρθστυφχψω\x{2207}αβγδεζηθικλμνξοπρσστυφχψω\x{2202}εθκφρπαβγδεζηθικλμνξοπρθστυφχψω\x{2207}αβγδεζηθικλμνξοπρσστυφχψω\x{2202}εθκφρπαβγδεζηθικλμνξοπρθστυφχψω\x{2207}αβγδεζηθικλμνξοπρσστυφχψω\x{2202}εθκφρπαβγδεζηθικλμνξοπρθστυφχψω\x{2207}αβγδεζηθικλμνξοπρσστυφχψω\x{2202}εθκφρπαβγδεζηθικλμνξοπρθστυφχψω\x{2207}αβγδεζηθικλμνξοπρσστυφχψω\x{2202}εθκφρπϝϝ01234567890123456789012345678901234567890123456789ابجدوزحطيكلمنسعفصقرشتثخذضظغٮںڡٯبجهحيكلمنسعفصقشتثخضغجحيلنسعصقشخضغںٯبجهحطيكمنسعفصقشتثخضظغٮڡابجدهوزحطيلمنسعفصقرشتثخذضظغبجدوزحطيلمنسعفصقرشتثخذضظغ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-2013 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) Net-IDN-Encode-2.100/t000755000765000024 012260275730 14351 5ustar00cfaerberstaff000000000000Net-IDN-Encode-2.100/t/00use.t000444000765000024 34412260275730 15610 0ustar00cfaerberstaff000000000000use 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); Net-IDN-Encode-2.100/t/10pod.t000444000765000024 21612260275730 15575 0ustar00cfaerberstaff000000000000use strict; use Test::More; eval "use Test::Pod 1.00"; plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; all_pod_files_ok(); Net-IDN-Encode-2.100/t/11pod_cover.t000444000765000024 67512260275730 17005 0ustar00cfaerberstaff000000000000use strict; use Test::More; eval "use Test::Pod::Coverage;"; plan skip_all => "Test::Pod::Coverage required for testing POD coverage" if $@; plan tests => 3; pod_coverage_ok('Net::IDN::Encode', { 'trustme' => [ qr/^IsIDNA/ ] }, 'Net::IDN::Encode is covered by POD', ); pod_coverage_ok('Net::IDN::Punycode', 'Net::IDN::Punycode is covered by POD' ); pod_coverage_ok('Net::IDN::UTS46', { 'trustme' => [ qr/^(to_ascii|to_unicode|mapping)$/ ] }); Net-IDN-Encode-2.100/t/domain_to_ascii.t000555000765000024 302512260275730 20017 0ustar00cfaerberstaff000000000000use utf8; use strict; BEGIN { binmode STDOUT, ':utf8'; binmode STDERR, ':utf8'; } use Net::IDN::Encode qw(:all); use Test::More tests => 1 + 11; use Test::NoWarnings; use Net::IDN::Encode qw(:all); is(eval{domain_to_ascii('müller')} || $@, 'xn--mller-kva', 'single label'); 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'); Net-IDN-Encode-2.100/t/domain_to_unicode.t000555000765000024 266512260275730 20366 0ustar00cfaerberstaff000000000000use utf8; use strict; BEGIN { binmode STDOUT, ':utf8'; binmode STDERR, ':utf8'; } use Test::More tests => 1 + 10; 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('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("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'); Net-IDN-Encode-2.100/t/encode_bytes.t000444000765000024 253312260275730 17341 0ustar00cfaerberstaff000000000000use 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('mller'),'xn--mller-kva'); is(to_unicode('mueller'),'mueller'); is(to_unicode('xn--mller-kva'),'mller'); is(to_unicode('mller'),'mller'); 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('mller.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'),'mller.example.com'); is(domain_to_unicode('mller.example.com'),'mller.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@mller.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@mller.example.com'); is(email_to_unicode(''),''); is(email_to_unicode(undef), undef); is(email_to_unicode('test'),'test'); Net-IDN-Encode-2.100/t/encode_utf8.t000444000765000024 366712260275730 17112 0ustar00cfaerberstaff000000000000use 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'); Net-IDN-Encode-2.100/t/punycode_vec-pp.t000444000765000024 1426712260275730 20025 0ustar00cfaerberstaff000000000000use 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. Net-IDN-Encode-2.100/t/punycode_vec-xs.t000444000765000024 1461612260275730 20036 0ustar00cfaerberstaff000000000000use 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. Net-IDN-Encode-2.100/t/uts46_api_call.t000444000765000024 67612260275730 17475 0ustar00cfaerberstaff000000000000use bytes; use strict; use Test::More tests => 1+6; use Test::NoWarnings; use Net::IDN::UTS46 qw(:all); is(uts46_to_ascii('mller'),'xn--mller-kva'); is(Net::IDN::UTS46::to_ascii('mller'),'xn--mller-kva'); is(Net::IDN::UTS46::uts46_to_ascii('mller'),'xn--mller-kva'); is(uts46_to_unicode('xn--mller-kva'),'mller'); is(Net::IDN::UTS46::to_unicode('xn--mller-kva'),'mller'); is(Net::IDN::UTS46::uts46_to_unicode('xn--mller-kva'),'mller'); Net-IDN-Encode-2.100/t/uts46_encode_bytes.t000444000765000024 57712260275730 20374 0ustar00cfaerberstaff000000000000use 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('mller'),'xn--mller-kva'); is(uts46_to_unicode('mueller'),'mueller'); is(uts46_to_unicode('xn--mller-kva'),'mller'); is(uts46_to_unicode('mller'),'mller'); Net-IDN-Encode-2.100/t/uts46_encode_utf8.t000444000765000024 105212260275730 20141 0ustar00cfaerberstaff000000000000use 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'),'中央大学'); Net-IDN-Encode-2.100/t/uts46_to_ascii-trans.t000444000765000024 332010512260275730 20743 0ustar00cfaerberstaff000000000000# *** 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 warnings; BEGIN { binmode STDOUT, ':utf8'; binmode STDERR, ':utf8'; } use Test::More tests => 3785 + 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\:60\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("faß.de", %p)}, "fass.de", "to_ascii\(\'faß\.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\:63\]") 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\:65\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("à\x{05D0}", %p)}, undef, "to_ascii\(\'à\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:69\]") 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\: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("À\x{05D0}", %p)}, undef, "to_ascii\(\'À\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:72\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0à.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0à\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:73\]") 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\: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("0À.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0À\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:76\]") 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\:77\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("à.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'à\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:78\]") 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\: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("À.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'À\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:81\]") 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\:82\]") 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\:83\]") 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\: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("À.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_ascii\(\'À\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:86\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0308}.\x{05D0}", %p)}, undef, "to_ascii\(\'\\u0308\.\\u05D0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:87\]") 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\:88\]") 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\: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("À.\x{05D0}0\x{0660}", %p)}, undef, "to_ascii\(\'À\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:91\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("àˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'àˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:92\]") 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\: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("Àˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'Àˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:95\]") 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\:96\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("à\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'à\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:97\]") 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\: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("À\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'À\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:100\]") 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\:101\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{200C}b", %p)}, "ab", "to_ascii\(\'a\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:105\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{200C}B", %p)}, "ab", "to_ascii\(\'A\\u200CB\'\)\ \[data\/IdnaTest\.txt\:107\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{200C}b", %p)}, "ab", "to_ascii\(\'A\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:109\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ab", %p)}, "ab", "to_ascii\(\'ab\'\)\ \[data\/IdnaTest\.txt\:111\]") 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\: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\:114\]") 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\:116\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ab-fsf", %p)}, "xn--ab-fsf", "to_ascii\(\'xn\-\-ab\-fsf\'\)\ \[data\/IdnaTest\.txt\:118\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{094D}b", %p)}, "xn--ab-fsf", "to_ascii\(\'a\\u094Db\'\)\ \[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("xn--ab-fsf604u", %p)}, "xn--ab-fsf604u", "to_ascii\(\'xn\-\-ab\-fsf604u\'\)\ \[data\/IdnaTest\.txt\:122\]") 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\: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\:125\]") 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\: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\ \[data\/IdnaTest\.txt\:129\]") 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\: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{200D}b", %p)}, "ab", "to_ascii\(\'a\\u200Db\'\)\ \[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\:136\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{200D}b", %p)}, "ab", "to_ascii\(\'A\\u200Db\'\)\ \[data\/IdnaTest\.txt\:138\]") 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\:140\]") 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\:142\]") 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\:144\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ab-fsf014u", %p)}, "xn--ab-fsf014u", "to_ascii\(\'xn\-\-ab\-fsf014u\'\)\ \[data\/IdnaTest\.txt\:146\]") 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\: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\:149\]") 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\: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\ \[data\/IdnaTest\.txt\:153\]") 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\: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\ \[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\ \[data\/IdnaTest\.txt\:159\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("¡", %p)}, "xn--7a", "to_ascii\(\'\¡\'\)\ \[data\/IdnaTest\.txt\:164\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--7a", %p)}, "xn--7a", "to_ascii\(\'xn\-\-7a\'\)\ \[data\/IdnaTest\.txt\:165\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。", %p)}, undef, "to_ascii\(\'\。\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:166\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1234567890ä1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890ä1234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:167\]") 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\:168\]") 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\:169\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1234567890Ä1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890Ä1234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:170\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("www.eXample.cOm", %p)}, "www.example.com", "to_ascii\(\'www\.eXample\.cOm\'\)\ \[data\/IdnaTest\.txt\:171\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Bücher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'Bücher\.de\'\)\ \[data\/IdnaTest\.txt\:172\]") 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\:173\]") 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\:174\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("bücher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'bücher\.de\'\)\ \[data\/IdnaTest\.txt\:175\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("BÜCHER.DE", %p)}, "xn--bcher-kva.de", "to_ascii\(\'BÜCHER\.DE\'\)\ \[data\/IdnaTest\.txt\:176\]") 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\:177\]") 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\:178\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ÖBB", %p)}, "xn--bb-eka", "to_ascii\(\'ÖBB\'\)\ \[data\/IdnaTest\.txt\:179\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("O\x{0308}BB", %p)}, "xn--bb-eka", "to_ascii\(\'O\\u0308BB\'\)\ \[data\/IdnaTest\.txt\:180\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("o\x{0308}bb", %p)}, "xn--bb-eka", "to_ascii\(\'o\\u0308bb\'\)\ \[data\/IdnaTest\.txt\:181\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("öbb", %p)}, "xn--bb-eka", "to_ascii\(\'öbb\'\)\ \[data\/IdnaTest\.txt\:182\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Öbb", %p)}, "xn--bb-eka", "to_ascii\(\'Öbb\'\)\ \[data\/IdnaTest\.txt\:183\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("O\x{0308}bb", %p)}, "xn--bb-eka", "to_ascii\(\'O\\u0308bb\'\)\ \[data\/IdnaTest\.txt\:184\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--bb-eka", %p)}, "xn--bb-eka", "to_ascii\(\'xn\-\-bb\-eka\'\)\ \[data\/IdnaTest\.txt\:185\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βόλος.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:186\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βο\x{0301}λος.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:188\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ΒΟ\x{0301}ΛΟΣ.COM", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'ΒΟ\\u0301ΛΟΣ\.COM\'\)\ \[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("βόλοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'βόλοσ\.com\'\)\ \[data\/IdnaTest\.txt\:192\]") 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\:194\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βόλοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'Βόλοσ\.com\'\)\ \[data\/IdnaTest\.txt\:195\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--nxasmq6b.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'xn\-\-nxasmq6b\.com\'\)\ \[data\/IdnaTest\.txt\:196\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βο\x{0301}λος.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'Βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:197\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βόλος.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'Βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:199\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--nxasmm1c.com", %p)}, "xn--nxasmm1c.com", "to_ascii\(\'xn\-\-nxasmm1c\.com\'\)\ \[data\/IdnaTest\.txt\:201\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--nxasmm1c", %p)}, "xn--nxasmm1c", "to_ascii\(\'xn\-\-nxasmm1c\'\)\ \[data\/IdnaTest\.txt\:202\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βόλος", %p)}, "xn--nxasmq6b", "to_ascii\(\'βόλος\'\)\ \[data\/IdnaTest\.txt\:203\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βο\x{0301}λος", %p)}, "xn--nxasmq6b", "to_ascii\(\'βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:205\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ΒΟ\x{0301}ΛΟΣ", %p)}, "xn--nxasmq6b", "to_ascii\(\'ΒΟ\\u0301ΛΟΣ\'\)\ \[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("βόλοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'βόλοσ\'\)\ \[data\/IdnaTest\.txt\:209\]") 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\:211\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βόλοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'Βόλοσ\'\)\ \[data\/IdnaTest\.txt\:212\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--nxasmq6b", %p)}, "xn--nxasmq6b", "to_ascii\(\'xn\-\-nxasmq6b\'\)\ \[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\:216\]") 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\:218\]") 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\:220\]") 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\:221\]") 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\:222\]") 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\:223\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--mgba3gch31f", %p)}, "xn--mgba3gch31f", "to_ascii\(\'xn\-\-mgba3gch31f\'\)\ \[data\/IdnaTest\.txt\:225\]") 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\:226\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--mgba3gch31f060k", %p)}, "xn--mgba3gch31f060k", "to_ascii\(\'xn\-\-mgba3gch31f060k\'\)\ \[data\/IdnaTest\.txt\:227\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--mgba3gch31f060k.com", %p)}, "xn--mgba3gch31f060k.com", "to_ascii\(\'xn\-\-mgba3gch31f060k\.com\'\)\ \[data\/IdnaTest\.txt\:228\]") 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\:229\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--mgba3gch31f.com", %p)}, "xn--mgba3gch31f.com", "to_ascii\(\'xn\-\-mgba3gch31f\.com\'\)\ \[data\/IdnaTest\.txt\:231\]") 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\:232\]") 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\:233\]") 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\:234\]") 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\:235\]") 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\:236\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ü.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'Ü\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:237\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ü.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'ü\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:238\]") 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\:239\]") 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\:240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ü.ü", %p)}, "xn--tda.xn--tda", "to_ascii\(\'ü\.ü\'\)\ \[data\/IdnaTest\.txt\:241\]") 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\:242\]") 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\:243\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ü.Ü", %p)}, "xn--tda.xn--tda", "to_ascii\(\'Ü\.Ü\'\)\ \[data\/IdnaTest\.txt\:244\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ü.ü", %p)}, "xn--tda.xn--tda", "to_ascii\(\'Ü\.ü\'\)\ \[data\/IdnaTest\.txt\:245\]") 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\:246\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--u-ccb", %p)}, undef, "to_ascii\(\'xn\-\-u\-ccb\'\)\ throws\ error\ V1\ \[data\/IdnaTest\.txt\:247\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a⒈com", %p)}, undef, "to_ascii\(\'a⒈com\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:248\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a1.com", %p)}, "a1.com", "to_ascii\(\'a1\.com\'\)\ \[data\/IdnaTest\.txt\:249\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A⒈COM", %p)}, undef, "to_ascii\(\'A⒈COM\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:250\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A⒈Com", %p)}, undef, "to_ascii\(\'A⒈Com\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:251\]") 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\:252\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--0.pt", %p)}, undef, "to_ascii\(\'xn\-\-0\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:253\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--a.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\.pt\'\)\ throws\ error\ V6\ \[data\/IdnaTest\.txt\:254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--a-Ä.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-Ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:255\]") 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\:256\]") 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\:257\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--a-ä.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-ä\.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\ A3\ \[data\/IdnaTest\.txt\:259\]") 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\: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-Ä.pt", %p)}, undef, "to_ascii\(\'Xn\-\-A\-Ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:262\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語。JP", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。JP\'\)\ \[data\/IdnaTest\.txt\:263\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語。JP", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。JP\'\)\ \[data\/IdnaTest\.txt\:264\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--wgv71a119e.jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'xn\-\-wgv71a119e\.jp\'\)\ \[data\/IdnaTest\.txt\:265\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語.jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\.jp\'\)\ \[data\/IdnaTest\.txt\:266\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語。jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。jp\'\)\ \[data\/IdnaTest\.txt\:267\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語。Jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。Jp\'\)\ \[data\/IdnaTest\.txt\:268\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("☕", %p)}, "xn--53h", "to_ascii\(\'\☕\'\)\ \[data\/IdnaTest\.txt\:269\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--53h", %p)}, "xn--53h", "to_ascii\(\'xn\-\-53h\'\)\ \[data\/IdnaTest\.txt\:270\]") 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\:271\]") 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\:273\]") 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\:275\]") 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\: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\ 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σσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_ascii\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ throws\ error\ 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\ A4_2\ \[data\/IdnaTest\.txt\:283\]") 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\:285\]") 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\:287\]") 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\:289\]") 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\:291\]") 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\:293\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--bss", %p)}, "xn--bss", "to_ascii\(\'xn\-\-bss\'\)\ \[data\/IdnaTest\.txt\:295\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("夙", %p)}, "xn--bss", "to_ascii\(\'夙\'\)\ \[data\/IdnaTest\.txt\:296\]") 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\:297\]") 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}𝔰\x{E01EF}ffl", %p)}, "xn--bssffl", "to_ascii\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD-\\u180Cℬ\\uFE00ſ\\u2064𝔰\\uDB40\\uDDEFffl\'\)\ \[data\/IdnaTest\.txt\:299\]") 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\x{E01EF}ffl", %p)}, "xn--bssffl", "to_ascii\(\'x\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00s\\u2064s\\uDB40\\uDDEFffl\'\)\ \[data\/IdnaTest\.txt\:300\]") 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\x{E01EF}ffl", %p)}, "xn--bssffl", "to_ascii\(\'x\\u034Fn\\u200B\-\\u00AD\-\\u180Cb\\uFE00s\\u2064s\\uDB40\\uDDEFffl\'\)\ \[data\/IdnaTest\.txt\:301\]") 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\x{E01EF}FFL", %p)}, "xn--bssffl", "to_ascii\(\'X\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00S\\u2064S\\uDB40\\uDDEFFFL\'\)\ \[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\x{034F}n\x{200B}-\x{00AD}-\x{180C}B\x{FE00}s\x{2064}s\x{E01EF}ffl", %p)}, "xn--bssffl", "to_ascii\(\'X\\u034Fn\\u200B\-\\u00AD\-\\u180CB\\uFE00s\\u2064s\\uDB40\\uDDEFffl\'\)\ \[data\/IdnaTest\.txt\:303\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("xn--bssffl", %p)}, "xn--bssffl", "to_ascii\(\'xn\-\-bssffl\'\)\ \[data\/IdnaTest\.txt\:304\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("夡夞夜夙", %p)}, "xn--bssffl", "to_ascii\(\'夡夞夜夙\'\)\ \[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{034F}ℕ\x{200B}﹣\x{00AD}-\x{180C}ℬ\x{FE00}S\x{2064}𝔰\x{E01EF}FFL", %p)}, "xn--bssffl", "to_ascii\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD-\\u180Cℬ\\uFE00S\\u2064𝔰\\uDB40\\uDDEFFFL\'\)\ \[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\x{E01EF}FFL", %p)}, "xn--bssffl", "to_ascii\(\'x\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00S\\u2064s\\uDB40\\uDDEFFFL\'\)\ \[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{034F}ℕ\x{200B}﹣\x{00AD}-\x{180C}ℬ\x{FE00}s\x{2064}𝔰\x{E01EF}ffl", %p)}, "xn--bssffl", "to_ascii\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD-\\u180Cℬ\\uFE00s\\u2064𝔰\\uDB40\\uDDEFffl\'\)\ \[data\/IdnaTest\.txt\:308\]") 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\:309\]") 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\:310\]") 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\:311\]") 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\:312\]") 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\:313\]") 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\:314\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'ä1234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:315\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0308}1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'a\\u03081234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:316\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0308}1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'A\\u03081234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:317\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'Ä1234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:318\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--1234567890123456789012345678901234567890123456789012345-9te", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'xn\-\-1234567890123456789012345678901234567890123456789012345\-9te\'\)\ \[data\/IdnaTest\.txt\:319\]") 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\:320\]") 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\:321\]") 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\:322\]") 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\:323\]") 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\: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.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:330\]") 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\:331\]") 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\:332\]") 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\:333\]") 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\:334\]") 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\:335\]") 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\:336\]") 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\:337\]") 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\:338\]") 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\: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.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:341\]") 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\:342\]") 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\:343\]") 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\:344\]") 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\:345\]") 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\:346\]") 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\:347\]") 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\:348\]") 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\:349\]") 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\:350\]") 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\:351\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a..c", %p)}, undef, "to_ascii\(\'a\.\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:352\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.-b.", %p)}, undef, "to_ascii\(\'a\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:353\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b-.c", %p)}, undef, "to_ascii\(\'a\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:354\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.-.c", %p)}, undef, "to_ascii\(\'a\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:355\]") 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\:356\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.\x{00AD}.c", %p)}, undef, "to_ascii\(\'ä\.\\u00AD\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:357\]") 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\:358\]") 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\:359\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.\x{00AD}.C", %p)}, undef, "to_ascii\(\'Ä\.\\u00AD\.C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:360\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.-b.", %p)}, undef, "to_ascii\(\'ä\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:361\]") 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\:362\]") 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\:363\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.-B.", %p)}, undef, "to_ascii\(\'Ä\.\-B\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:364\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.b-.c", %p)}, undef, "to_ascii\(\'ä\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:365\]") 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\:366\]") 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\:367\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.B-.C", %p)}, undef, "to_ascii\(\'Ä\.B\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:368\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.-.c", %p)}, undef, "to_ascii\(\'ä\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:369\]") 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\:370\]") 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\:371\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.-.C", %p)}, undef, "to_ascii\(\'Ä\.\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:372\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.bc--de.f", %p)}, undef, "to_ascii\(\'ä\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:373\]") 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\:374\]") 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\:375\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.BC--DE.F", %p)}, undef, "to_ascii\(\'Ä\.BC\-\-DE\.F\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:376\]") 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\:377\]") 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\:378\]") 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\:379\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A0", %p)}, "a0", "to_ascii\(\'A0\'\)\ \[data\/IdnaTest\.txt\:380\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0A", %p)}, "0a", "to_ascii\(\'0A\'\)\ \[data\/IdnaTest\.txt\:381\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0A.\x{05D0}", %p)}, "0a.xn--4db", "to_ascii\(\'0A\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:382\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0a.xn--4db", %p)}, "0a.xn--4db", "to_ascii\(\'0a\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:383\]") 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\:384\]") 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\:385\]") 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\:386\]") 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\:387\]") 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\:388\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("b-.\x{05D0}", %p)}, undef, "to_ascii\(\'b\-\.\\u05D0\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:389\]") 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\:390\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{05D0}", %p)}, undef, "to_ascii\(\'a\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:391\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{05D0}", %p)}, undef, "to_ascii\(\'A\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:392\]") 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\:393\]") 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\:394\]") 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\:395\]") 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\:396\]") 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\: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}A\x{05C7}", %p)}, undef, "to_ascii\(\'\\u05D0A\\u05C7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:398\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{05D0}\x{05EA}", %p)}, "xn--4db6c", "to_ascii\(\'\\u05D0\\u05EA\'\)\ \[data\/IdnaTest\.txt\:399\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--4db6c", %p)}, "xn--4db6c", "to_ascii\(\'xn\-\-4db6c\'\)\ \[data\/IdnaTest\.txt\:400\]") 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\:401\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--4db6c0a", %p)}, "xn--4db6c0a", "to_ascii\(\'xn\-\-4db6c0a\'\)\ \[data\/IdnaTest\.txt\:402\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{05D0}Tz", %p)}, undef, "to_ascii\(\'a\\u05D0Tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:403\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{05D0}tz", %p)}, undef, "to_ascii\(\'a\\u05D0tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:404\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{05D0}TZ", %p)}, undef, "to_ascii\(\'A\\u05D0TZ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:405\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{05D0}tz", %p)}, undef, "to_ascii\(\'A\\u05D0tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:406\]") 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\:407\]") 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\:408\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05D0}7\x{05EA}", %p)}, "xn--7-zhc3f", "to_ascii\(\'\\u05D07\\u05EA\'\)\ \[data\/IdnaTest\.txt\:409\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--7-zhc3f", %p)}, "xn--7-zhc3f", "to_ascii\(\'xn\-\-7\-zhc3f\'\)\ \[data\/IdnaTest\.txt\:410\]") 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\:411\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--4db6c6t", %p)}, "xn--4db6c6t", "to_ascii\(\'xn\-\-4db6c6t\'\)\ \[data\/IdnaTest\.txt\:412\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a7\x{0667}z", %p)}, undef, "to_ascii\(\'a7\\u0667z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:413\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A7\x{0667}Z", %p)}, undef, "to_ascii\(\'A7\\u0667Z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:414\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A7\x{0667}z", %p)}, undef, "to_ascii\(\'A7\\u0667z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:415\]") 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\:416\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{0BCD}\x{200D}", %p)}, "xn--dmc4b", "to_ascii\(\'ஹ\\u0BCD\\u200D\'\)\ \[data\/IdnaTest\.txt\:417\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--dmc4b", %p)}, "xn--dmc4b", "to_ascii\(\'xn\-\-dmc4b\'\)\ \[data\/IdnaTest\.txt\:419\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{0BCD}", %p)}, "xn--dmc4b", "to_ascii\(\'ஹ\\u0BCD\'\)\ \[data\/IdnaTest\.txt\:420\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--dmc4b194h", %p)}, "xn--dmc4b194h", "to_ascii\(\'xn\-\-dmc4b194h\'\)\ \[data\/IdnaTest\.txt\:421\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{200D}", %p)}, "xn--dmc", "to_ascii\(\'ஹ\\u200D\'\)\ \[data\/IdnaTest\.txt\:422\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--dmc", %p)}, "xn--dmc", "to_ascii\(\'xn\-\-dmc\'\)\ \[data\/IdnaTest\.txt\:424\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ", %p)}, "xn--dmc", "to_ascii\(\'ஹ\'\)\ \[data\/IdnaTest\.txt\:425\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:426\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{0BCD}\x{200C}", %p)}, "xn--dmc4b", "to_ascii\(\'ஹ\\u0BCD\\u200C\'\)\ \[data\/IdnaTest\.txt\:428\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--dmc4by94h", %p)}, "xn--dmc4by94h", "to_ascii\(\'xn\-\-dmc4by94h\'\)\ \[data\/IdnaTest\.txt\:430\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{200C}", %p)}, "xn--dmc", "to_ascii\(\'ஹ\\u200C\'\)\ \[data\/IdnaTest\.txt\:431\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}", %p)}, undef, "to_ascii\(\'\\u200C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:433\]") 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\:435\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2gxqia", %p)}, "xn--ghb2gxqia", "to_ascii\(\'xn\-\-ghb2gxqia\'\)\ \[data\/IdnaTest\.txt\:437\]") 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\:438\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2gxqia7523a", %p)}, "xn--ghb2gxqia7523a", "to_ascii\(\'xn\-\-ghb2gxqia7523a\'\)\ \[data\/IdnaTest\.txt\:439\]") 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\:440\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2g3q", %p)}, "xn--ghb2g3q", "to_ascii\(\'xn\-\-ghb2g3q\'\)\ \[data\/IdnaTest\.txt\:442\]") 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\:443\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2g3qq34f", %p)}, "xn--ghb2g3qq34f", "to_ascii\(\'xn\-\-ghb2g3qq34f\'\)\ \[data\/IdnaTest\.txt\:444\]") 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\:445\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb25aga", %p)}, "xn--ghb25aga", "to_ascii\(\'xn\-\-ghb25aga\'\)\ \[data\/IdnaTest\.txt\:447\]") 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\:448\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb25aga828w", %p)}, "xn--ghb25aga828w", "to_ascii\(\'xn\-\-ghb25aga828w\'\)\ \[data\/IdnaTest\.txt\:449\]") 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\:450\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb65a", %p)}, "xn--ghb65a", "to_ascii\(\'xn\-\-ghb65a\'\)\ \[data\/IdnaTest\.txt\:452\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{06EF}", %p)}, "xn--ghb65a", "to_ascii\(\'\\u0644\\u06EF\'\)\ \[data\/IdnaTest\.txt\:453\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb65a953d", %p)}, "xn--ghb65a953d", "to_ascii\(\'xn\-\-ghb65a953d\'\)\ \[data\/IdnaTest\.txt\:454\]") 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\:455\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2gxq", %p)}, "xn--ghb2gxq", "to_ascii\(\'xn\-\-ghb2gxq\'\)\ \[data\/IdnaTest\.txt\:457\]") 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\:458\]") 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\:459\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--cmba", %p)}, "xn--cmba", "to_ascii\(\'xn\-\-cmba\'\)\ \[data\/IdnaTest\.txt\:461\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EF}\x{06EF}", %p)}, "xn--cmba", "to_ascii\(\'\\u06EF\\u06EF\'\)\ \[data\/IdnaTest\.txt\:462\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{200C}", %p)}, "xn--ghb", "to_ascii\(\'\\u0644\\u200C\'\)\ \[data\/IdnaTest\.txt\:463\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb", %p)}, "xn--ghb", "to_ascii\(\'xn\-\-ghb\'\)\ \[data\/IdnaTest\.txt\:465\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}", %p)}, "xn--ghb", "to_ascii\(\'\\u0644\'\)\ \[data\/IdnaTest\.txt\:466\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⁷∝\x{A8EC}\x{E2410}.-\x{E01D1}", %p)}, undef, "to_ascii\(\'⁷\∝\\uA8EC\\uDB49\\uDC10.\-\\uDB40\\uDDD1\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:470\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("7∝\x{A8EC}\x{E2410}.-\x{E01D1}", %p)}, undef, "to_ascii\(\'7\∝\\uA8EC\\uDB49\\uDC10\.\-\\uDB40\\uDDD1\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:471\]") 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{0769}.ꡰ", %p)}, "xn--tpb.xn--md9a", "to_ascii\(\'\\u0769\.ꡰ\'\)\ \[data\/IdnaTest\.txt\:472\]") 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--tpb.xn--md9a", %p)}, "xn--tpb.xn--md9a", "to_ascii\(\'xn\-\-tpb\.xn\-\-md9a\'\)\ \[data\/IdnaTest\.txt\:473\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≯\x{066B}。-", %p)}, undef, "to_ascii\(\'\≯\\u066B。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:474\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{066B}。-", %p)}, undef, "to_ascii\(\'\>\\u0338\\u066B。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:475\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{066B}。-", %p)}, undef, "to_ascii\(\'\≯\\u066B\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:476\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{066B}。-", %p)}, undef, "to_ascii\(\'\>\\u0338\\u066B\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:477\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{066B}⾕.\x{115F}⚙ςႭ", %p)}, undef, "to_ascii\(\'⾛\\u066B⾕\.\\u115F\⚙ςႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:478\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{066B}谷.\x{115F}⚙ςႭ", %p)}, undef, "to_ascii\(\'走\\u066B谷\.\\u115F\⚙ςႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:479\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{066B}谷.\x{115F}⚙ςⴍ", %p)}, undef, "to_ascii\(\'走\\u066B谷\.\\u115F\⚙ςⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:480\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{066B}谷.\x{115F}⚙ΣႭ", %p)}, undef, "to_ascii\(\'走\\u066B谷\.\\u115F\⚙ΣႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:481\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{066B}谷.\x{115F}⚙σⴍ", %p)}, undef, "to_ascii\(\'走\\u066B谷\.\\u115F\⚙σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:482\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{066B}谷.\x{115F}⚙Σⴍ", %p)}, undef, "to_ascii\(\'走\\u066B谷\.\\u115F\⚙Σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:483\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{066B}⾕.\x{115F}⚙ςⴍ", %p)}, undef, "to_ascii\(\'⾛\\u066B⾕\.\\u115F\⚙ςⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:484\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{066B}⾕.\x{115F}⚙ΣႭ", %p)}, undef, "to_ascii\(\'⾛\\u066B⾕\.\\u115F\⚙ΣႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:485\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{066B}⾕.\x{115F}⚙σⴍ", %p)}, undef, "to_ascii\(\'⾛\\u066B⾕\.\\u115F\⚙σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:486\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{066B}⾕.\x{115F}⚙Σⴍ", %p)}, undef, "to_ascii\(\'⾛\\u066B⾕\.\\u115F\⚙Σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:487\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}≠ᡈ≯.솣-\x{0646}Ⴀ", %p)}, undef, "to_ascii\(\'\\u200D\≠ᡈ\≯\.솣\-\\u0646Ⴀ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:488\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}=\x{0338}ᡈ>\x{0338}.솣-\x{0646}Ⴀ", %p)}, undef, "to_ascii\(\'\\u200D\=\\u0338ᡈ\>\\u0338\.솣\-\\u0646Ⴀ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:490\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}=\x{0338}ᡈ>\x{0338}.솣-\x{0646}ⴀ", %p)}, undef, "to_ascii\(\'\\u200D\=\\u0338ᡈ\>\\u0338\.솣\-\\u0646ⴀ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:492\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}≠ᡈ≯.솣-\x{0646}ⴀ", %p)}, undef, "to_ascii\(\'\\u200D\≠ᡈ\≯\.솣\-\\u0646ⴀ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:494\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E8204}.\x{FD05}\x{032F}\x{072E}\x{10E7C}", %p)}, undef, "to_ascii\(\'\\uDB60\\uDE04.\\uFD05\\u032F\\u072E\\uD803\\uDE7C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:496\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E8204}.\x{0635}\x{0649}\x{032F}\x{072E}\x{10E7C}", %p)}, undef, "to_ascii\(\'\\uDB60\\uDE04\.\\u0635\\u0649\\u032F\\u072E\\uD803\\uDE7C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:497\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B5606}\x{1039}.\x{AAF6}", %p)}, undef, "to_ascii\(\'\\uDA95\\uDE06\\u1039\.\\uAAF6\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:498\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠼ\x{0FB3}\x{BCBAD}。\x{1D177}Ⴣ\x{07E4}", %p)}, undef, "to_ascii\(\'ᠼ\\u0FB3\\uDAB2\\uDFAD\。\\uD834\\uDD77Ⴣ\\u07E4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:499\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠼ\x{0FB3}\x{BCBAD}。\x{1D177}ⴣ\x{07E4}", %p)}, undef, "to_ascii\(\'ᠼ\\u0FB3\\uDAB2\\uDFAD\。\\uD834\\uDD77ⴣ\\u07E4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:500\]") 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{10E6A}\x{09CD}ς🃌。\x{1A76}렧", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6A\\u09CDς🃌\。\\u1A76렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:501\]") 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{10E6A}\x{09CD}ς🃌。\x{1A76}렧", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6A\\u09CDς🃌\。\\u1A76렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:502\]") 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{10E6A}\x{09CD}Σ🃌。\x{1A76}렧", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6A\\u09CDΣ🃌\。\\u1A76렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:503\]") 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{10E6A}\x{09CD}Σ🃌。\x{1A76}렧", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6A\\u09CDΣ🃌\。\\u1A76렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:504\]") 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{10E6A}\x{09CD}σ🃌。\x{1A76}렧", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6A\\u09CDσ🃌\。\\u1A76렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:505\]") 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{10E6A}\x{09CD}σ🃌。\x{1A76}렧", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6A\\u09CDσ🃌\。\\u1A76렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:506\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-\x{200D}。\x{0755}\x{200C}\x{200D}⒈", %p)}, undef, "to_ascii\(\'\-\\u200D\。\\u0755\\u200C\\u200D⒈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:507\]") 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{0755}\x{200C}\x{200D}1.", %p)}, undef, "to_ascii\(\'\-\\u200D\。\\u0755\\u200C\\u200D1\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:509\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{D4ADD}.Ⴒ\x{111C0}", %p)}, undef, "to_ascii\(\'\\u200C\\uDB12\\uDEDD\.Ⴒ\\uD804\\uDDC0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:511\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{D4ADD}.ⴒ\x{111C0}", %p)}, undef, "to_ascii\(\'\\u200C\\uDB12\\uDEDD\.ⴒ\\uD804\\uDDC0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:513\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("繱\x{0E3A}\x{200D}.9︒", %p)}, undef, "to_ascii\(\'繱\\u0E3A\\u200D\.9︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:515\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("繱\x{0E3A}\x{200D}.9。", %p)}, "xn--o4c7658c.9.", "to_ascii\(\'繱\\u0E3A\\u200D\.9\。\'\)\ \[data\/IdnaTest\.txt\:516\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--o4c7658c.9.", %p)}, "xn--o4c7658c.9.", "to_ascii\(\'xn\-\-o4c7658c\.9\.\'\)\ \[data\/IdnaTest\.txt\:518\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("繱\x{0E3A}.9.", %p)}, "xn--o4c7658c.9.", "to_ascii\(\'繱\\u0E3A\.9\.\'\)\ \[data\/IdnaTest\.txt\:519\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--o4c042gf52e.9.", %p)}, "xn--o4c042gf52e.9.", "to_ascii\(\'xn\-\-o4c042gf52e\.9\.\'\)\ \[data\/IdnaTest\.txt\:520\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("繱\x{0E3A}\x{200D}.9.", %p)}, "xn--o4c7658c.9.", "to_ascii\(\'繱\\u0E3A\\u200D\.9\.\'\)\ \[data\/IdnaTest\.txt\:521\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E01DF}.\x{E016C}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDDF.\\uDB40\\uDD6C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:523\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E01DF}.\x{E016C}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDDF\.\\uDB40\\uDD6C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:524\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{20D8}。\x{200D}", %p)}, "xn--ss-1ju.", "to_ascii\(\'ß\\u20D8\。\\u200D\'\)\ \[data\/IdnaTest\.txt\:525\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{20D8}。\x{200D}", %p)}, "xn--ss-1ju.", "to_ascii\(\'SS\\u20D8\。\\u200D\'\)\ \[data\/IdnaTest\.txt\:527\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{20D8}。\x{200D}", %p)}, "xn--ss-1ju.", "to_ascii\(\'ss\\u20D8\。\\u200D\'\)\ \[data\/IdnaTest\.txt\:529\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{20D8}。\x{200D}", %p)}, "xn--ss-1ju.", "to_ascii\(\'Ss\\u20D8\。\\u200D\'\)\ \[data\/IdnaTest\.txt\:531\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ss-1ju.", %p)}, "xn--ss-1ju.", "to_ascii\(\'xn\-\-ss\-1ju\.\'\)\ \[data\/IdnaTest\.txt\:533\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{20D8}.", %p)}, "xn--ss-1ju.", "to_ascii\(\'ss\\u20D8\.\'\)\ \[data\/IdnaTest\.txt\:534\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{20D8}.", %p)}, "xn--ss-1ju.", "to_ascii\(\'SS\\u20D8\.\'\)\ \[data\/IdnaTest\.txt\:535\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{20D8}.", %p)}, "xn--ss-1ju.", "to_ascii\(\'Ss\\u20D8\.\'\)\ \[data\/IdnaTest\.txt\:536\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DD7}\x{200C}⒈.\x{E0387}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDD7\\u200C⒈.\\uDB40\\uDF87\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:537\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DD7}\x{200C}1..\x{E0387}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDD7\\u200C1\.\.\\uDB40\\uDF87\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:539\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{F6C8F}\x{1D242}\x{1CF4}ß。\x{B373C}", %p)}, undef, "to_ascii\(\'\\uDB9B\\uDC8F\\uD834\\uDE42\\u1CF4ß\。\\uDA8D\\uDF3C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:541\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{F6C8F}\x{1D242}\x{1CF4}SS。\x{B373C}", %p)}, undef, "to_ascii\(\'\\uDB9B\\uDC8F\\uD834\\uDE42\\u1CF4SS\。\\uDA8D\\uDF3C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:542\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{F6C8F}\x{1D242}\x{1CF4}ss。\x{B373C}", %p)}, undef, "to_ascii\(\'\\uDB9B\\uDC8F\\uD834\\uDE42\\u1CF4ss\。\\uDA8D\\uDF3C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:543\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{F6C8F}\x{1D242}\x{1CF4}Ss。\x{B373C}", %p)}, undef, "to_ascii\(\'\\uDB9B\\uDC8F\\uD834\\uDE42\\u1CF4Ss\。\\uDA8D\\uDF3C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:544\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡊ\x{200C}\x{062F}。\x{60C9A}䉜\x{200D}\x{3E9BB}", %p)}, undef, "to_ascii\(\'ᡊ\\u200C\\u062F\。\\uD943\\uDC9A䉜\\u200D\\uD8BA\\uDDBB\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:545\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}ς\x{084A}⒈.≮\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAς\\u084A⒈\.\≮\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:547\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}ς\x{084A}⒈.<\x{0338}\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAς\\u084A⒈\.\<\\u0338\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:548\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}ς\x{084A}1..≮\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAς\\u084A1\.\.\≮\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:549\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}ς\x{084A}1..<\x{0338}\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAς\\u084A1\.\.\<\\u0338\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:550\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}Σ\x{084A}1..<\x{0338}\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAΣ\\u084A1\.\.\<\\u0338\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:551\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}Σ\x{084A}1..≮\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAΣ\\u084A1\.\.\≮\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:552\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}σ\x{084A}1..≮\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAσ\\u084A1\.\.\≮\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:553\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}σ\x{084A}1..<\x{0338}\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAσ\\u084A1\.\.\<\\u0338\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:554\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}Σ\x{084A}⒈.<\x{0338}\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAΣ\\u084A⒈\.\<\\u0338\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:555\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}Σ\x{084A}⒈.≮\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAΣ\\u084A⒈\.\≮\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:556\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}σ\x{084A}⒈.≮\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAσ\\u084A⒈\.\≮\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:557\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}σ\x{084A}⒈.<\x{0338}\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAσ\\u084A⒈\.\<\\u0338\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:558\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3164}\x{0ACD}Ⴀ\x{0942}.\x{180B}", %p)}, undef, "to_ascii\(\'\\u3164\\u0ACDႠ\\u0942\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:559\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1160}\x{0ACD}Ⴀ\x{0942}.\x{180B}", %p)}, undef, "to_ascii\(\'\\u1160\\u0ACDႠ\\u0942\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:560\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1160}\x{0ACD}ⴀ\x{0942}.\x{180B}", %p)}, undef, "to_ascii\(\'\\u1160\\u0ACDⴀ\\u0942\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:561\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3164}\x{0ACD}ⴀ\x{0942}.\x{180B}", %p)}, undef, "to_ascii\(\'\\u3164\\u0ACDⴀ\\u0942\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:562\]") 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{116B6}\x{1A77}\x{1032}\x{E0153}", %p)}, undef, "to_ascii\(\'🎲\\u200D.\\uD805\\uDEB6\\u1A77\\u1032\\uDB40\\uDD53\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:563\]") 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{116B6}\x{1A77}\x{1032}\x{E0153}", %p)}, undef, "to_ascii\(\'🎲\\u200D\.\\uD805\\uDEB6\\u1A77\\u1032\\uDB40\\uDD53\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:565\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≮\x{10811}\x{1E8A1}.≯\x{7F4ED}ᠴ", %p)}, undef, "to_ascii\(\'\≮\\uD802\\uDC11\\uD83A\\uDCA1\.\≯\\uD9BD\\uDCEDᠴ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:567\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{10811}\x{1E8A1}.>\x{0338}\x{7F4ED}ᠴ", %p)}, undef, "to_ascii\(\'\<\\u0338\\uD802\\uDC11\\uD83A\\uDCA1\.\>\\u0338\\uD9BD\\uDCEDᠴ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:568\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE05}\x{1EEFE}\x{10F6E}٪。\x{A953}ꡏ", %p)}, undef, "to_ascii\(\'\\uFE05\\uD83B\\uDEFE\\uD803\\uDF6E٪。\\uA953ꡏ\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:569\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE05}\x{1EEFE}\x{10F6E}٪。\x{A953}ꡏ", %p)}, undef, "to_ascii\(\'\\uFE05\\uD83B\\uDEFE\\uD803\\uDF6E٪\。\\uA953ꡏ\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:570\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06D7}。\x{1091DF}", %p)}, undef, "to_ascii\(\'\\u06D7\。\\uDBE4\\uDDDF\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:571\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ACD}\x{1103A}.\x{1160}", %p)}, undef, "to_ascii\(\'\\u0ACD\\uD804\\uDC3A.\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:572\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ACD}\x{1103A}.\x{1160}", %p)}, undef, "to_ascii\(\'\\u0ACD\\uD804\\uDC3A\.\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:573\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{068A}\x{200D}。\x{D8C20}\x{109CB}", %p)}, undef, "to_ascii\(\'\-\\u068A\\u200D\。\\uDB23\\uDC20\\uD802\\uDDCB\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:574\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06AA}゜≯\x{73334}。\x{E01B5}⾇滸\x{0669}", %p)}, undef, "to_ascii\(\'\\u06AA゜\≯\\uD98C\\uDF34\。\\uDB40\\uDDB5⾇滸\\u0669\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:576\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06AA}゜>\x{0338}\x{73334}。\x{E01B5}⾇滸\x{0669}", %p)}, undef, "to_ascii\(\'\\u06AA゜\>\\u0338\\uD98C\\uDF34\。\\uDB40\\uDDB5⾇滸\\u0669\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:577\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06AA}\x{0020}\x{309A}≯\x{73334}。\x{E01B5}舛滸\x{0669}", %p)}, undef, "to_ascii\(\'\\u06AA\\u0020\\u309A\≯\\uD98C\\uDF34\。\\uDB40\\uDDB5舛滸\\u0669\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:578\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06AA}\x{0020}\x{309A}>\x{0338}\x{73334}。\x{E01B5}舛滸\x{0669}", %p)}, undef, "to_ascii\(\'\\u06AA\\u0020\\u309A\>\\u0338\\uD98C\\uDF34\。\\uDB40\\uDDB5舛滸\\u0669\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:579\]") 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{1BAB}", %p)}, undef, "to_ascii\(\'蔏。\\u1BAB\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:580\]") 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{1BAB}", %p)}, undef, "to_ascii\(\'蔏\。\\u1BAB\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:581\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("🄁\x{0712}。\x{E0107}", %p)}, undef, "to_ascii\(\'🄁\\u0712\。\\uDB40\\uDD07\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:582\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0,\x{0712}。\x{E0107}", %p)}, undef, "to_ascii\(\'0\,\\u0712\。\\uDB40\\uDD07\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:583\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A005C}-䟖F。\x{0855}⒈\x{10E67}", %p)}, undef, "to_ascii\(\'\\uDA40\\uDC5C\-䟖F\。\\u0855⒈\\uD803\\uDE67\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:584\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A005C}-䟖F。\x{0855}1.\x{10E67}", %p)}, undef, "to_ascii\(\'\\uDA40\\uDC5C\-䟖F\。\\u08551\.\\uD803\\uDE67\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:585\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A005C}-䟖f。\x{0855}1.\x{10E67}", %p)}, undef, "to_ascii\(\'\\uDA40\\uDC5C\-䟖f\。\\u08551\.\\uD803\\uDE67\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:586\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A005C}-䟖f。\x{0855}⒈\x{10E67}", %p)}, undef, "to_ascii\(\'\\uDA40\\uDC5C\-䟖f\。\\u0855⒈\\uD803\\uDE67\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:587\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7D}", %p)}, undef, "to_ascii\(\'\\u200C。\\uD803\\uDE7D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:588\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7D}", %p)}, undef, "to_ascii\(\'\\u200C\。\\uD803\\uDE7D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:590\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1EA6A}.≯\x{200C}-\x{07DE}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDE6A\.\≯\\u200C\-\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:592\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EA6A}.>\x{0338}\x{200C}-\x{07DE}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDE6A\.\>\\u0338\\u200C\-\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:594\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08FB}-。≠\x{1096E}", %p)}, undef, "to_ascii\(\'\\u08FB\-\。\≠\\uD802\\uDD6E\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:596\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08FB}-。=\x{0338}\x{1096E}", %p)}, undef, "to_ascii\(\'\\u08FB\-\。\=\\u0338\\uD802\\uDD6E\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:597\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A5DB4}\x{1A60}。\x{200D}\x{1EA86}", %p)}, undef, "to_ascii\(\'\\uDA57\\uDDB4\\u1A60\。\\u200D\\uD83A\\uDE86\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:598\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A38}\x{0D4D}🄉。㧉\x{3FB78}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE38\\u0D4D🄉。㧉\\uD8BE\\uDF78\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:600\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0D4D}\x{10A38}🄉。㧉\x{3FB78}", %p)}, undef, "to_ascii\(\'\\u0D4D\\uD802\\uDE38🄉。㧉\\uD8BE\\uDF78\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:601\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0D4D}\x{10A38}8,。㧉\x{3FB78}", %p)}, undef, "to_ascii\(\'\\u0D4D\\uD802\\uDE388\,\。㧉\\uD8BE\\uDF78\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:602\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{8E039}\x{10E66}\x{108C1}。≯⒙", %p)}, undef, "to_ascii\(\'\\u200C\\uD9F8\\uDC39\\uD803\\uDE66\\uD802\\uDCC1\。\≯⒙\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:603\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{8E039}\x{10E66}\x{108C1}。>\x{0338}⒙", %p)}, undef, "to_ascii\(\'\\u200C\\uD9F8\\uDC39\\uD803\\uDE66\\uD802\\uDCC1\。\>\\u0338⒙\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:605\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{8E039}\x{10E66}\x{108C1}。≯18.", %p)}, undef, "to_ascii\(\'\\u200C\\uD9F8\\uDC39\\uD803\\uDE66\\uD802\\uDCC1\。\≯18\.\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:607\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{8E039}\x{10E66}\x{108C1}。>\x{0338}18.", %p)}, undef, "to_ascii\(\'\\u200C\\uD9F8\\uDC39\\uD803\\uDE66\\uD802\\uDCC1\。\>\\u033818\.\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:609\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}.\x{0665}\x{173D0}-\x{200D}", %p)}, undef, "to_ascii\(\'\\u1A60.\\u0665\\uD81C\\uDFD0\-\\u200D\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:611\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}.\x{0665}\x{173D0}-\x{200D}", %p)}, undef, "to_ascii\(\'\\u1A60\.\\u0665\\uD81C\\uDFD0\-\\u200D\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:613\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0CA6}ς\x{E5CA6}。\x{FFA0}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDCA6ς\\uDB57\\uDCA6。\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:615\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0CA6}ς\x{E5CA6}。\x{1160}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDCA6ς\\uDB57\\uDCA6\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:616\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0CA6}Σ\x{E5CA6}。\x{1160}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDCA6Σ\\uDB57\\uDCA6\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:617\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0CA6}σ\x{E5CA6}。\x{1160}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDCA6σ\\uDB57\\uDCA6\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:618\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0CA6}Σ\x{E5CA6}。\x{FFA0}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDCA6Σ\\uDB57\\uDCA6。\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:619\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0CA6}σ\x{E5CA6}。\x{FFA0}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDCA6σ\\uDB57\\uDCA6。\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:620\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0684}\x{A8E1}ꡢ\x{06C9}.\x{1EAE1}\x{A806}Ⴃ", %p)}, undef, "to_ascii\(\'\\u0684\\uA8E1ꡢ\\u06C9\.\\uD83A\\uDEE1\\uA806Ⴃ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:621\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0684}\x{A8E1}ꡢ\x{06C9}.\x{1EAE1}\x{A806}ⴃ", %p)}, undef, "to_ascii\(\'\\u0684\\uA8E1ꡢ\\u06C9\.\\uD83A\\uDEE1\\uA806ⴃ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:622\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E75}\x{094D}-킼.\x{0C4D}\x{0F79}\x{10E7E}≯", %p)}, undef, "to_ascii\(\'\\uD803\\uDE75\\u094D\-킼\.\\u0C4D\\u0F79\\uD803\\uDE7E\≯\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:623\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E75}\x{094D}-킼.\x{0C4D}\x{0F79}\x{10E7E}>\x{0338}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE75\\u094D\-킼\.\\u0C4D\\u0F79\\uD803\\uDE7E\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:624\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E75}\x{094D}-킼.\x{0C4D}\x{0FB3}\x{0F71}\x{0F80}\x{10E7E}≯", %p)}, undef, "to_ascii\(\'\\uD803\\uDE75\\u094D\-킼\.\\u0C4D\\u0FB3\\u0F71\\u0F80\\uD803\\uDE7E\≯\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:625\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E75}\x{094D}-킼.\x{0C4D}\x{0FB3}\x{0F71}\x{0F80}\x{10E7E}>\x{0338}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE75\\u094D\-킼\.\\u0C4D\\u0FB3\\u0F71\\u0F80\\uD803\\uDE7E\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:626\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。ᠯ\x{0600}\x{AB323}\x{0A4D}", %p)}, undef, "to_ascii\(\'\-\。ᠯ\\u0600\\uDA6C\\uDF23\\u0A4D\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:627\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㼣\x{A679}.\x{FE23}\x{E819}ᢗ🄉", %p)}, undef, "to_ascii\(\'\\u200D㼣\\uA679.\\uFE23\\uE819ᢗ🄉\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:628\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㼣\x{A679}.\x{FE23}\x{E819}ᢗ8,", %p)}, undef, "to_ascii\(\'\\u200D㼣\\uA679\.\\uFE23\\uE819ᢗ8\,\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:630\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒\x{B9953}ς\x{97D30}。\x{076A}", %p)}, undef, "to_ascii\(\'︒\\uDAA6\\uDD53ς\\uDA1F\\uDD30。\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:632\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。\x{B9953}ς\x{97D30}。\x{076A}", %p)}, undef, "to_ascii\(\'\。\\uDAA6\\uDD53ς\\uDA1F\\uDD30\。\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:633\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。\x{B9953}Σ\x{97D30}。\x{076A}", %p)}, undef, "to_ascii\(\'\。\\uDAA6\\uDD53Σ\\uDA1F\\uDD30\。\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:634\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。\x{B9953}σ\x{97D30}。\x{076A}", %p)}, undef, "to_ascii\(\'\。\\uDAA6\\uDD53σ\\uDA1F\\uDD30\。\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:635\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒\x{B9953}Σ\x{97D30}。\x{076A}", %p)}, undef, "to_ascii\(\'︒\\uDAA6\\uDD53Σ\\uDA1F\\uDD30。\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:636\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒\x{B9953}σ\x{97D30}。\x{076A}", %p)}, undef, "to_ascii\(\'︒\\uDAA6\\uDD53σ\\uDA1F\\uDD30。\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:637\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E88E}.\x{FC20}\x{914D9}≯\x{1A7F}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDC8E.\\uFC20\\uDA05\\uDCD9\≯\\u1A7F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:638\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E88E}.\x{FC20}\x{914D9}>\x{0338}\x{1A7F}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDC8E.\\uFC20\\uDA05\\uDCD9\>\\u0338\\u1A7F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:639\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E88E}.\x{0635}\x{062D}\x{914D9}≯\x{1A7F}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDC8E\.\\u0635\\u062D\\uDA05\\uDCD9\≯\\u1A7F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:640\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E88E}.\x{0635}\x{062D}\x{914D9}>\x{0338}\x{1A7F}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDC8E\.\\u0635\\u062D\\uDA05\\uDCD9\>\\u0338\\u1A7F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:641\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08FE}\x{5DD8C}.\x{1EFC6}", %p)}, undef, "to_ascii\(\'\\u08FE\\uD937\\uDD8C\.\\uD83B\\uDFC6\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:642\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}≠。Ⴟ\x{2DE3}Ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\≠。Ⴟ\\u2DE3Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:643\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}=\x{0338}。Ⴟ\x{2DE3}Ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\=\\u0338。Ⴟ\\u2DE3Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:644\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}≠。Ⴟ\x{2DE3}Ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\≠\。Ⴟ\\u2DE3Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:645\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}=\x{0338}。Ⴟ\x{2DE3}Ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\=\\u0338\。Ⴟ\\u2DE3Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:646\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}=\x{0338}。ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\=\\u0338\。ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:647\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}≠。ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\≠\。ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:648\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}≠。Ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\≠\。Ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:649\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}=\x{0338}。Ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\=\\u0338\。Ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:650\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}=\x{0338}。ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\=\\u0338。ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:651\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}≠。ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\≠。ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:652\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}≠。Ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\≠。Ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:653\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}=\x{0338}。Ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\=\\u0338。Ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:654\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{E0271}\x{E016B}Ⴥ。-\x{066C}ᡳ\x{08ED}", %p)}, undef, "to_ascii\(\'\-\\uDB40\\uDE71\\uDB40\\uDD6BჅ\。\-\\u066Cᡳ\\u08ED\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:655\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{E0271}\x{E016B}ⴥ。-\x{066C}ᡳ\x{08ED}", %p)}, undef, "to_ascii\(\'\-\\uDB40\\uDE71\\uDB40\\uDD6Bⴥ\。\-\\u066Cᡳ\\u08ED\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:656\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E012B}。\x{0A4D}︒ᢖᢔ", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD2B\。\\u0A4D︒ᢖᢔ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:657\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E012B}。\x{0A4D}。ᢖᢔ", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD2B\。\\u0A4D\。ᢖᢔ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:658\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴙꡱ.\x{E015A}\x{200D}", %p)}, undef, "to_ascii\(\'Ⴙꡱ\.\\uDB40\\uDD5A\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:659\]") 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{E015A}\x{200D}", %p)}, "xn--hlj6950b.", "to_ascii\(\'ⴙꡱ\.\\uDB40\\uDD5A\\u200D\'\)\ \[data\/IdnaTest\.txt\:661\]") 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--hlj6950b.", %p)}, "xn--hlj6950b.", "to_ascii\(\'xn\-\-hlj6950b\.\'\)\ \[data\/IdnaTest\.txt\:663\]") 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--hlj6950b.", "to_ascii\(\'ⴙꡱ\.\'\)\ \[data\/IdnaTest\.txt\:664\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴙꡱ.", %p)}, undef, "to_ascii\(\'Ⴙꡱ\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:665\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B72}。⒎⒋\x{10CD6}ꡙ", %p)}, undef, "to_ascii\(\'\\u1B72。⒎⒋\\uD803\\uDCD6ꡙ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:666\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B72}。7.4.\x{10CD6}ꡙ", %p)}, undef, "to_ascii\(\'\\u1B72\。7\.4\.\\uD803\\uDCD6ꡙ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:667\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒋ᠬ。-\x{0747}", %p)}, undef, "to_ascii\(\'⒋ᠬ。\-\\u0747\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:668\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4.ᠬ。-\x{0747}", %p)}, undef, "to_ascii\(\'4\.ᠬ\。\-\\u0747\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:669\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{37E15}\x{0604}。\x{AAF6}ς\x{10D5F}\x{AA4C}", %p)}, undef, "to_ascii\(\'\\u200D\\uD89F\\uDE15\\u0604。\\uAAF6ς\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:670\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{37E15}\x{0604}。\x{AAF6}ς\x{10D5F}\x{AA4C}", %p)}, undef, "to_ascii\(\'\\u200D\\uD89F\\uDE15\\u0604\。\\uAAF6ς\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:672\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{37E15}\x{0604}。\x{AAF6}Σ\x{10D5F}\x{AA4C}", %p)}, undef, "to_ascii\(\'\\u200D\\uD89F\\uDE15\\u0604\。\\uAAF6Σ\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:674\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{37E15}\x{0604}。\x{AAF6}σ\x{10D5F}\x{AA4C}", %p)}, undef, "to_ascii\(\'\\u200D\\uD89F\\uDE15\\u0604\。\\uAAF6σ\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:676\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{37E15}\x{0604}。\x{AAF6}Σ\x{10D5F}\x{AA4C}", %p)}, undef, "to_ascii\(\'\\u200D\\uD89F\\uDE15\\u0604。\\uAAF6Σ\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:678\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{37E15}\x{0604}。\x{AAF6}σ\x{10D5F}\x{AA4C}", %p)}, undef, "to_ascii\(\'\\u200D\\uD89F\\uDE15\\u0604。\\uAAF6σ\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:680\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{ECD8E}Ⴓ⒪.\x{1B42}\x{60C9C}\x{1EC97}\x{066C}", %p)}, undef, "to_ascii\(\'⒈\\uDB73\\uDD8EႳ⒪.\\u1B42\\uD943\\uDC9C\\uD83B\\uDC97\\u066C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:682\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{ECD8E}Ⴓ(o).\x{1B42}\x{60C9C}\x{1EC97}\x{066C}", %p)}, undef, "to_ascii\(\'1\.\\uDB73\\uDD8EႳ\(o\)\.\\u1B42\\uD943\\uDC9C\\uD83B\\uDC97\\u066C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:683\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{ECD8E}ⴓ(o).\x{1B42}\x{60C9C}\x{1EC97}\x{066C}", %p)}, undef, "to_ascii\(\'1\.\\uDB73\\uDD8Eⴓ\(o\)\.\\u1B42\\uD943\\uDC9C\\uD83B\\uDC97\\u066C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:684\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{ECD8E}Ⴓ(O).\x{1B42}\x{60C9C}\x{1EC97}\x{066C}", %p)}, undef, "to_ascii\(\'1\.\\uDB73\\uDD8EႳ\(O\)\.\\u1B42\\uD943\\uDC9C\\uD83B\\uDC97\\u066C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:685\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{ECD8E}ⴓ⒪.\x{1B42}\x{60C9C}\x{1EC97}\x{066C}", %p)}, undef, "to_ascii\(\'⒈\\uDB73\\uDD8Eⴓ⒪.\\u1B42\\uD943\\uDC9C\\uD83B\\uDC97\\u066C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:686\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07E7}.\x{0855}\x{109DE}\x{066C}\x{07DE}", %p)}, undef, "to_ascii\(\'\\u07E7\.\\u0855\\uD802\\uDDDE\\u066C\\u07DE\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:687\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EC17}-。\x{1BAB}獀", %p)}, undef, "to_ascii\(\'\\uD83B\\uDC17\-。\\u1BAB獀\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:688\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EC17}-。\x{1BAB}獀", %p)}, undef, "to_ascii\(\'\\uD83B\\uDC17\-\。\\u1BAB獀\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:689\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-䷊ꡡ.\x{E0C24}\x{4A8EB}۸", %p)}, undef, "to_ascii\(\'\-䷊ꡡ.\\uDB43\\uDC24\\uD8EA\\uDCEB۸\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:690\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-䷊ꡡ.\x{E0C24}\x{4A8EB}۸", %p)}, undef, "to_ascii\(\'\-䷊ꡡ\.\\uDB43\\uDC24\\uD8EA\\uDCEB۸\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:691\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🁝˶𣾪\x{332DE}.\x{0850}9", %p)}, undef, "to_ascii\(\'🁝˶𣾪\\uD88C\\uDEDE\.\\u08509\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:692\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0663}.\x{07A9}", %p)}, undef, "to_ascii\(\'\≮\\u0663.\\u07A9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:693\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0663}.\x{07A9}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0663.\\u07A9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:694\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0663}.\x{07A9}", %p)}, undef, "to_ascii\(\'\≮\\u0663\.\\u07A9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:695\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0663}.\x{07A9}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0663\.\\u07A9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:696\]") 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{10E62}ᯛ\x{1BAA}。脥", %p)}, undef, "to_ascii\(\'\\uD803\\uDE62ᯛ\\u1BAA。脥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:697\]") 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{10E62}ᯛ\x{1BAA}。脥", %p)}, undef, "to_ascii\(\'\\uD803\\uDE62ᯛ\\u1BAA\。脥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:698\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0F84}\x{115F}\x{10E89}\x{9C047}.-", %p)}, undef, "to_ascii\(\'\\u0F84\\u115F\\uD803\\uDE89\\uDA30\\uDC47\.\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:699\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。\x{E005D}", %p)}, undef, "to_ascii\(\'\\u200C。\\uDB40\\uDC5D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:700\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。\x{E005D}", %p)}, undef, "to_ascii\(\'\\u200C\。\\uDB40\\uDC5D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:702\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠤ\x{AA2C}.\x{06C7}Ⴎ", %p)}, undef, "to_ascii\(\'ᠤ\\uAA2C.\\u06C7Ⴎ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:704\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠤ\x{AA2C}.\x{06C7}Ⴎ", %p)}, undef, "to_ascii\(\'ᠤ\\uAA2C\.\\u06C7Ⴎ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:705\]") 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{AA2C}.\x{06C7}ⴎ", %p)}, undef, "to_ascii\(\'ᠤ\\uAA2C\.\\u06C7ⴎ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:706\]") 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{AA2C}.\x{06C7}ⴎ", %p)}, undef, "to_ascii\(\'ᠤ\\uAA2C.\\u06C7ⴎ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:707\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᡅ\x{A949}Ξ.\x{68897}㛨∋", %p)}, undef, "to_ascii\(\'ᡅ\\uA949Ξ.\\uD962\\uDC97㛨\∋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:708\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡅ\x{A949}Ξ.\x{68897}㛨∋", %p)}, undef, "to_ascii\(\'ᡅ\\uA949Ξ\.\\uD962\\uDC97㛨\∋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:709\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡅ\x{A949}ξ.\x{68897}㛨∋", %p)}, undef, "to_ascii\(\'ᡅ\\uA949ξ\.\\uD962\\uDC97㛨\∋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:710\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡅ\x{A949}ξ.\x{68897}㛨∋", %p)}, undef, "to_ascii\(\'ᡅ\\uA949ξ.\\uD962\\uDC97㛨\∋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:711\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ\x{0765}︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-。Ⴛ\\u0765︒\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:712\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ\x{0765}︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-。Ⴛ\\u0765︒\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:714\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ\x{0765}。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。Ⴛ\\u0765\。\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:716\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ\x{0765}。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。Ⴛ\\u0765\。\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:718\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ\x{0765}。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。ⴛ\\u0765\。\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:720\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ\x{0765}。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。ⴛ\\u0765\。\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:722\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ\x{0765}︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-。ⴛ\\u0765︒\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:724\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ\x{0765}︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-。ⴛ\\u0765︒\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:726\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⽖.︒⌄\x{200C}\x{10E62}", %p)}, undef, "to_ascii\(\'⽖\.︒\⌄\\u200C\\uD803\\uDE62\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:728\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E62}", %p)}, undef, "to_ascii\(\'爪\.\。\⌄\\u200C\\uD803\\uDE62\'\)\ throws\ error\ A4_2\ B1\ \[data\/IdnaTest\.txt\:730\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{10B9E}.\x{10E72}Ⴑ\x{4D0E5}\x{0694}", %p)}, undef, "to_ascii\(\'\\uD802\\uDF9E\.\\uD803\\uDE72Ⴑ\\uD8F4\\uDCE5\\u0694\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:732\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10B9E}.\x{10E72}ⴑ\x{4D0E5}\x{0694}", %p)}, undef, "to_ascii\(\'\\uD802\\uDF9E\.\\uD803\\uDE72ⴑ\\uD8F4\\uDCE5\\u0694\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:733\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0362}\x{2B951}.🄈Ⴛ", %p)}, undef, "to_ascii\(\'\\u0362\\uD86E\\uDD51.🄈Ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:734\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0362}\x{2B951}.7,Ⴛ", %p)}, undef, "to_ascii\(\'\\u0362\\uD86E\\uDD51\.7\,Ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:735\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0362}\x{2B951}.7,ⴛ", %p)}, undef, "to_ascii\(\'\\u0362\\uD86E\\uDD51\.7\,ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:736\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0362}\x{2B951}.🄈ⴛ", %p)}, undef, "to_ascii\(\'\\u0362\\uD86E\\uDD51.🄈ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:737\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{A69F}齀。릿\x{1EF8C}", %p)}, undef, "to_ascii\(\'\-\\uA69F齀\。릿\\uD83B\\uDF8C\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:738\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{A69F}齀。릿\x{1EF8C}", %p)}, undef, "to_ascii\(\'\-\\uA69F齀\。릿\\uD83B\\uDF8C\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:739\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DFE}\x{0852}鹝꾗。\x{64262}\x{200D}\x{200D}⏃", %p)}, undef, "to_ascii\(\'\\u2DFE\\u0852鹝꾗\。\\uD950\\uDE62\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:740\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DFE}\x{0852}鹝꾗。\x{64262}\x{200D}\x{200D}⏃", %p)}, undef, "to_ascii\(\'\\u2DFE\\u0852鹝꾗\。\\uD950\\uDE62\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:742\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.-\x{1EACC}--", %p)}, undef, "to_ascii\(\'\≮.\-\\uD83A\\uDECC\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:744\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.-\x{1EACC}--", %p)}, undef, "to_ascii\(\'\<\\u0338.\-\\uD83A\\uDECC\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:745\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.-\x{1EACC}--", %p)}, undef, "to_ascii\(\'\≮\.\-\\uD83A\\uDECC\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:746\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.-\x{1EACC}--", %p)}, undef, "to_ascii\(\'\<\\u0338\.\-\\uD83A\\uDECC\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:747\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}ς3", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68؉\。\\u200Dς3\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:748\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}ς3", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68؉\。\\u200Dς3\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:750\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}Σ3", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68؉\。\\u200DΣ3\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:752\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}σ3", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68؉\。\\u200Dσ3\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:754\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}Σ3", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68؉\。\\u200DΣ3\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:756\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}σ3", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68؉\。\\u200Dσ3\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:758\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ς\x{DF8CA}₃.\x{10D7D}", %p)}, undef, "to_ascii\(\'ς\\uDB3E\\uDCCA₃\.\\uD803\\uDD7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:760\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{DF8CA}3.\x{10D7D}", %p)}, undef, "to_ascii\(\'ς\\uDB3E\\uDCCA3\.\\uD803\\uDD7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:761\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{DF8CA}3.\x{10D7D}", %p)}, undef, "to_ascii\(\'Σ\\uDB3E\\uDCCA3\.\\uD803\\uDD7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:762\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{DF8CA}3.\x{10D7D}", %p)}, undef, "to_ascii\(\'σ\\uDB3E\\uDCCA3\.\\uD803\\uDD7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:763\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{DF8CA}₃.\x{10D7D}", %p)}, undef, "to_ascii\(\'Σ\\uDB3E\\uDCCA₃\.\\uD803\\uDD7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:764\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{DF8CA}₃.\x{10D7D}", %p)}, undef, "to_ascii\(\'σ\\uDB3E\\uDCCA₃\.\\uD803\\uDD7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:765\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{0760}⒉\x{077C}.-\x{07E6}\x{1B42}", %p)}, undef, "to_ascii\(\'\\u200C\\u0760⒉\\u077C.\-\\u07E6\\u1B42\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:766\]") 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}\x{0760}2.\x{077C}.-\x{07E6}\x{1B42}", %p)}, undef, "to_ascii\(\'\\u200C\\u07602\.\\u077C\.\-\\u07E6\\u1B42\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:768\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{7C1E5}。\x{07A0}넯\x{E8610}", %p)}, undef, "to_ascii\(\'\\uD9B0\\uDDE5\。\\u07A0넯\\uDB61\\uDE10\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:770\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7C1E5}。\x{07A0}넯\x{E8610}", %p)}, undef, "to_ascii\(\'\\uD9B0\\uDDE5\。\\u07A0넯\\uDB61\\uDE10\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:771\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{076E}Ⴘ。\x{0603}Ⴈ\x{FE03}", %p)}, undef, "to_ascii\(\'\\u076EႸ\。\\u0603Ⴈ\\uFE03\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:772\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{076E}ⴘ。\x{0603}ⴈ\x{FE03}", %p)}, undef, "to_ascii\(\'\\u076Eⴘ\。\\u0603ⴈ\\uFE03\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:773\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟑\x{E02D1}\x{071B}。牣\x{10E78}Ⴜᣥ", %p)}, undef, "to_ascii\(\'𝟑\\uDB40\\uDED1\\u071B\。牣\\uD803\\uDE78Ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:774\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{E02D1}\x{071B}。牣\x{10E78}Ⴜᣥ", %p)}, undef, "to_ascii\(\'3\\uDB40\\uDED1\\u071B\。牣\\uD803\\uDE78Ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:775\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{E02D1}\x{071B}。牣\x{10E78}ⴜᣥ", %p)}, undef, "to_ascii\(\'3\\uDB40\\uDED1\\u071B\。牣\\uD803\\uDE78ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:776\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟑\x{E02D1}\x{071B}。牣\x{10E78}ⴜᣥ", %p)}, undef, "to_ascii\(\'𝟑\\uDB40\\uDED1\\u071B\。牣\\uD803\\uDE78ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:777\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-⒐\x{FB3C}⒈.Ⴓ", %p)}, undef, "to_ascii\(\'\-⒐\\uFB3C⒈\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:778\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-⒐\x{05DC}\x{05BC}⒈.Ⴓ", %p)}, undef, "to_ascii\(\'\-⒐\\u05DC\\u05BC⒈\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:779\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-9.\x{05DC}\x{05BC}1..Ⴓ", %p)}, undef, "to_ascii\(\'\-9\.\\u05DC\\u05BC1\.\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:780\]") 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{05DC}\x{05BC}1..ⴓ", %p)}, undef, "to_ascii\(\'\-9\.\\u05DC\\u05BC1\.\.ⴓ\'\)\ throws\ error\ V3\ A4_2\ \[data\/IdnaTest\.txt\:781\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-⒐\x{05DC}\x{05BC}⒈.ⴓ", %p)}, undef, "to_ascii\(\'\-⒐\\u05DC\\u05BC⒈\.ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:782\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-⒐\x{FB3C}⒈.ⴓ", %p)}, undef, "to_ascii\(\'\-⒐\\uFB3C⒈\.ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:783\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}긃.𩃹-", %p)}, undef, "to_ascii\(\'\\u200C긃\.𩃹\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:784\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}긃.𩃹-", %p)}, undef, "to_ascii\(\'\\u200C긃\.𩃹\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:786\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("뉓泓\x{8C224}.\x{11046}\x{200D}", %p)}, undef, "to_ascii\(\'뉓泓\\uD9F0\\uDE24\.\\uD804\\uDC46\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:788\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("뉓泓\x{8C224}.\x{11046}\x{200D}", %p)}, undef, "to_ascii\(\'뉓泓\\uD9F0\\uDE24\.\\uD804\\uDC46\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:789\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E7E}ß。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE7Eß。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:790\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E7E}ß。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE7Eß\。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:792\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E7E}SS。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE7ESS\。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:794\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E7E}ss。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE7Ess\。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:796\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E7E}Ss。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE7ESs\。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:798\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E7E}SS。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE7ESS。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:800\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E7E}ss。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE7Ess。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:802\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E7E}Ss。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE7ESs。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:804\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{11046}.\x{A8C4}-≮≠", %p)}, undef, "to_ascii\(\'\\uD804\\uDC46.\\uA8C4\-\≮\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:806\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{11046}.\x{A8C4}-<\x{0338}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uD804\\uDC46.\\uA8C4\-\<\\u0338\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:807\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{11046}.\x{A8C4}-≮≠", %p)}, undef, "to_ascii\(\'\\uD804\\uDC46\.\\uA8C4\-\≮\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:808\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{11046}.\x{A8C4}-<\x{0338}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uD804\\uDC46\.\\uA8C4\-\<\\u0338\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:809\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1039}Ⴑ\x{115F}.\x{A8C4}Ⅎ", %p)}, undef, "to_ascii\(\'\\u1039Ⴑ\\u115F.\\uA8C4Ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:810\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1039}Ⴑ\x{115F}.\x{A8C4}Ⅎ", %p)}, undef, "to_ascii\(\'\\u1039Ⴑ\\u115F\.\\uA8C4Ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:811\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1039}ⴑ\x{115F}.\x{A8C4}ⅎ", %p)}, undef, "to_ascii\(\'\\u1039ⴑ\\u115F\.\\uA8C4ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:812\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1039}Ⴑ\x{115F}.\x{A8C4}ⅎ", %p)}, undef, "to_ascii\(\'\\u1039Ⴑ\\u115F\.\\uA8C4ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:813\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1039}ⴑ\x{115F}.\x{A8C4}ⅎ", %p)}, undef, "to_ascii\(\'\\u1039ⴑ\\u115F.\\uA8C4ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:814\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1039}Ⴑ\x{115F}.\x{A8C4}ⅎ", %p)}, undef, "to_ascii\(\'\\u1039Ⴑ\\u115F.\\uA8C4ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:815\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82222}。Ⴃ\x{1EEA8}\x{10E7E}똯", %p)}, undef, "to_ascii\(\'\\uD9C8\\uDE22\。Ⴃ\\uD83B\\uDEA8\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:816\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82222}。Ⴃ\x{1EEA8}\x{10E7E}똯", %p)}, undef, "to_ascii\(\'\\uD9C8\\uDE22\。Ⴃ\\uD83B\\uDEA8\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:817\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82222}。Ⴃ\x{0637}\x{10E7E}똯", %p)}, undef, "to_ascii\(\'\\uD9C8\\uDE22\。Ⴃ\\u0637\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:818\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82222}。Ⴃ\x{0637}\x{10E7E}똯", %p)}, undef, "to_ascii\(\'\\uD9C8\\uDE22\。Ⴃ\\u0637\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:819\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82222}。ⴃ\x{0637}\x{10E7E}똯", %p)}, undef, "to_ascii\(\'\\uD9C8\\uDE22\。ⴃ\\u0637\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:820\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82222}。ⴃ\x{0637}\x{10E7E}똯", %p)}, undef, "to_ascii\(\'\\uD9C8\\uDE22\。ⴃ\\u0637\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:821\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82222}。ⴃ\x{1EEA8}\x{10E7E}똯", %p)}, undef, "to_ascii\(\'\\uD9C8\\uDE22\。ⴃ\\uD83B\\uDEA8\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:822\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82222}。ⴃ\x{1EEA8}\x{10E7E}똯", %p)}, undef, "to_ascii\(\'\\uD9C8\\uDE22\。ⴃ\\uD83B\\uDEA8\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:823\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06AC}。⳻\x{E01AD}\x{2D7F}\x{3164}", %p)}, undef, "to_ascii\(\'\\u06AC。⳻\\uDB40\\uDDAD\\u2D7F\\u3164\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:824\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06AC}。⳻\x{E01AD}\x{2D7F}\x{1160}", %p)}, undef, "to_ascii\(\'\\u06AC\。⳻\\uDB40\\uDDAD\\u2D7F\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:825\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10B1C}⾇.ᢣ-𝟢", %p)}, undef, "to_ascii\(\'\\uD802\\uDF1C⾇.ᢣ\-𝟢\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:826\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10B1C}舛.ᢣ-0", %p)}, undef, "to_ascii\(\'\\uD802\\uDF1C舛\.ᢣ\-0\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:827\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴉ猕\x{4C0A1}≮.︒", %p)}, undef, "to_ascii\(\'Ⴉ猕\\uD8F0\\uDCA1\≮.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:828\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ猕\x{4C0A1}<\x{0338}.︒", %p)}, undef, "to_ascii\(\'Ⴉ猕\\uD8F0\\uDCA1\<\\u0338.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:829\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ猕\x{4C0A1}≮.。", %p)}, undef, "to_ascii\(\'Ⴉ猕\\uD8F0\\uDCA1\≮\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:830\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ猕\x{4C0A1}<\x{0338}.。", %p)}, undef, "to_ascii\(\'Ⴉ猕\\uD8F0\\uDCA1\<\\u0338\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:831\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ猕\x{4C0A1}<\x{0338}.。", %p)}, undef, "to_ascii\(\'ⴉ猕\\uD8F0\\uDCA1\<\\u0338\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:832\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ猕\x{4C0A1}≮.。", %p)}, undef, "to_ascii\(\'ⴉ猕\\uD8F0\\uDCA1\≮\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:833\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ猕\x{4C0A1}<\x{0338}.︒", %p)}, undef, "to_ascii\(\'ⴉ猕\\uD8F0\\uDCA1\<\\u0338.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:834\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ猕\x{4C0A1}≮.︒", %p)}, undef, "to_ascii\(\'ⴉ猕\\uD8F0\\uDCA1\≮.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:835\]") 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{0682}\x{0F91}", %p)}, undef, "to_ascii\(\'⳪。ᢙ鳳\\u0682\\u0F91\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:836\]") 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{0682}\x{0F91}", %p)}, undef, "to_ascii\(\'⳪\。ᢙ鳳\\u0682\\u0F91\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:837\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}\x{0600}。ß", %p)}, undef, "to_ascii\(\'\\u200D\\u0600\。ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:838\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{0600}。SS", %p)}, undef, "to_ascii\(\'\\u200D\\u0600\。SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:840\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Å둄-.\x{200C}", %p)}, undef, "to_ascii\(\'Å둄\-.\\u200C\'\)\ throws\ error\ V3\ \[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\ \[data\/IdnaTest\.txt\:844\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Å둄-.\x{200C}", %p)}, undef, "to_ascii\(\'Å둄\-\.\\u200C\'\)\ throws\ error\ V3\ \[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\ \[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\ \[data\/IdnaTest\.txt\:850\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("å둄-.\x{200C}", %p)}, undef, "to_ascii\(\'å둄\-\.\\u200C\'\)\ throws\ error\ V3\ \[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\ \[data\/IdnaTest\.txt\:854\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("å둄-.\x{200C}", %p)}, undef, "to_ascii\(\'å둄\-.\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:856\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E01E1}\x{11AFF}\x{065E}\x{068D}.\x{2C83D}-\x{0618}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDE1\\uD806\\uDEFF\\u065E\\u068D\.\\uD872\\uDC3D\-\\u0618\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:858\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς.ß\x{D722C}\x{10E72}\x{0BCD}", %p)}, undef, "to_ascii\(\'ς\.ß\\uDB1C\\uDE2C\\uD803\\uDE72\\u0BCD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:859\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ.SS\x{D722C}\x{10E72}\x{0BCD}", %p)}, undef, "to_ascii\(\'Σ\.SS\\uDB1C\\uDE2C\\uD803\\uDE72\\u0BCD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:860\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ.ss\x{D722C}\x{10E72}\x{0BCD}", %p)}, undef, "to_ascii\(\'σ\.ss\\uDB1C\\uDE2C\\uD803\\uDE72\\u0BCD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:861\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ.ss\x{D722C}\x{10E72}\x{0BCD}", %p)}, undef, "to_ascii\(\'Σ\.ss\\uDB1C\\uDE2C\\uD803\\uDE72\\u0BCD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:862\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ.ß\x{D722C}\x{10E72}\x{0BCD}", %p)}, undef, "to_ascii\(\'Σ\.ß\\uDB1C\\uDE2C\\uD803\\uDE72\\u0BCD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:863\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ.ß\x{D722C}\x{10E72}\x{0BCD}", %p)}, undef, "to_ascii\(\'σ\.ß\\uDB1C\\uDE2C\\uD803\\uDE72\\u0BCD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:864\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{067C}\x{E01D0}。\x{10E65}\x{E01E3}", %p)}, undef, "to_ascii\(\'\\u067C\\uDB40\\uDDD0。\\uD803\\uDE65\\uDB40\\uDDE3\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:865\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{067C}\x{E01D0}。\x{10E65}\x{E01E3}", %p)}, undef, "to_ascii\(\'\\u067C\\uDB40\\uDDD0\。\\uD803\\uDE65\\uDB40\\uDDE3\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:866\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("밬\x{200C}\x{1E9A9}。\x{E0391}\x{9F04D}-\x{1ED1A}", %p)}, undef, "to_ascii\(\'밬\\u200C\\uD83A\\uDDA9。\\uDB40\\uDF91\\uDA3C\\uDC4D\-\\uD83B\\uDD1A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:867\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("밬\x{200C}\x{1E9A9}。\x{E0391}\x{9F04D}-\x{1ED1A}", %p)}, undef, "to_ascii\(\'밬\\u200C\\uD83A\\uDDA9。\\uDB40\\uDF91\\uDA3C\\uDC4D\-\\uD83B\\uDD1A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:869\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("밬\x{200C}\x{1E9A9}。\x{E0391}\x{9F04D}-\x{1ED1A}", %p)}, undef, "to_ascii\(\'밬\\u200C\\uD83A\\uDDA9\。\\uDB40\\uDF91\\uDA3C\\uDC4D\-\\uD83B\\uDD1A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:871\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("밬\x{200C}\x{1E9A9}。\x{E0391}\x{9F04D}-\x{1ED1A}", %p)}, undef, "to_ascii\(\'밬\\u200C\\uD83A\\uDDA9\。\\uDB40\\uDF91\\uDA3C\\uDC4D\-\\uD83B\\uDD1A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:873\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("룱\x{200D}\x{BE542}\x{200C}。\x{E01A9}︒", %p)}, undef, "to_ascii\(\'룱\\u200D\\uDAB9\\uDD42\\u200C\。\\uDB40\\uDDA9︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:875\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("룱\x{200D}\x{BE542}\x{200C}。\x{E01A9}︒", %p)}, undef, "to_ascii\(\'룱\\u200D\\uDAB9\\uDD42\\u200C\。\\uDB40\\uDDA9︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:877\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("룱\x{200D}\x{BE542}\x{200C}。\x{E01A9}。", %p)}, undef, "to_ascii\(\'룱\\u200D\\uDAB9\\uDD42\\u200C\。\\uDB40\\uDDA9\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:879\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("룱\x{200D}\x{BE542}\x{200C}。\x{E01A9}。", %p)}, undef, "to_ascii\(\'룱\\u200D\\uDAB9\\uDD42\\u200C\。\\uDB40\\uDDA9\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:881\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₆.\x{FE07}⒈ß", %p)}, undef, "to_ascii\(\'₆.\\uFE07⒈ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:883\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6.\x{FE07}1.ß", %p)}, "6.1.ss", "to_ascii\(\'6\.\\uFE071\.ß\'\)\ \[data\/IdnaTest\.txt\:884\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6.\x{FE07}1.SS", %p)}, "6.1.ss", "to_ascii\(\'6\.\\uFE071\.SS\'\)\ \[data\/IdnaTest\.txt\:886\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6.1.ss", %p)}, "6.1.ss", "to_ascii\(\'6\.1\.ss\'\)\ \[data\/IdnaTest\.txt\:887\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6.1.xn--zca", %p)}, "6.1.xn--zca", "to_ascii\(\'6\.1\.xn\-\-zca\'\)\ \[data\/IdnaTest\.txt\:888\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6.1.ß", %p)}, "6.1.ss", "to_ascii\(\'6\.1\.ß\'\)\ \[data\/IdnaTest\.txt\:889\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₆.\x{FE07}⒈SS", %p)}, undef, "to_ascii\(\'₆.\\uFE07⒈SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:891\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₆.\x{FE07}⒈ss", %p)}, undef, "to_ascii\(\'₆.\\uFE07⒈ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:892\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₆.\x{FE07}⒈Ss", %p)}, undef, "to_ascii\(\'₆.\\uFE07⒈Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:893\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82F0D}\x{17D2}。\x{1EBE7}\x{A4D5C}\x{E0160}", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDF0D\\u17D2。\\uD83A\\uDFE7\\uDA53\\uDD5C\\uDB40\\uDD60\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:894\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82F0D}\x{17D2}。\x{1EBE7}\x{A4D5C}\x{E0160}", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDF0D\\u17D2\。\\uD83A\\uDFE7\\uDA53\\uDD5C\\uDB40\\uDD60\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:895\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2CEF}\x{0CCD}\x{094D}.≠\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u2CEF\\u0CCD\\u094D.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:896\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}\x{094D}\x{2CEF}.≠\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u0CCD\\u094D\\u2CEF.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:898\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}\x{094D}\x{2CEF}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u0CCD\\u094D\\u2CEF.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:900\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}\x{094D}\x{2CEF}.≠\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u0CCD\\u094D\\u2CEF\.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:902\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}\x{094D}\x{2CEF}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u0CCD\\u094D\\u2CEF\.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:904\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴁ¹娤.\x{200D}\x{E0152}\x{0669}\x{E005F}", %p)}, undef, "to_ascii\(\'Ⴁ¹娤\.\\u200D\\uDB40\\uDD52\\u0669\\uDB40\\uDC5F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:906\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴁ1娤.\x{200D}\x{E0152}\x{0669}\x{E005F}", %p)}, undef, "to_ascii\(\'Ⴁ1娤\.\\u200D\\uDB40\\uDD52\\u0669\\uDB40\\uDC5F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:908\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴁ1娤.\x{200D}\x{E0152}\x{0669}\x{E005F}", %p)}, undef, "to_ascii\(\'ⴁ1娤\.\\u200D\\uDB40\\uDD52\\u0669\\uDB40\\uDC5F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:910\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴁ¹娤.\x{200D}\x{E0152}\x{0669}\x{E005F}", %p)}, undef, "to_ascii\(\'ⴁ¹娤\.\\u200D\\uDB40\\uDD52\\u0669\\uDB40\\uDC5F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:912\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒚Ⴄ\x{0669}\x{E0065}。⒈\x{1D1AB}ß", %p)}, undef, "to_ascii\(\'⒚Ⴄ\\u0669\\uDB40\\uDC65\。⒈\\uD834\\uDDABß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:914\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("19.Ⴄ\x{0669}\x{E0065}。1.\x{1D1AB}ß", %p)}, undef, "to_ascii\(\'19\.Ⴄ\\u0669\\uDB40\\uDC65\。1\.\\uD834\\uDDABß\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:915\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("19.ⴄ\x{0669}\x{E0065}。1.\x{1D1AB}ß", %p)}, undef, "to_ascii\(\'19\.ⴄ\\u0669\\uDB40\\uDC65\。1\.\\uD834\\uDDABß\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:916\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("19.Ⴄ\x{0669}\x{E0065}。1.\x{1D1AB}SS", %p)}, undef, "to_ascii\(\'19\.Ⴄ\\u0669\\uDB40\\uDC65\。1\.\\uD834\\uDDABSS\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:917\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("19.ⴄ\x{0669}\x{E0065}。1.\x{1D1AB}ss", %p)}, undef, "to_ascii\(\'19\.ⴄ\\u0669\\uDB40\\uDC65\。1\.\\uD834\\uDDABss\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:918\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("19.Ⴄ\x{0669}\x{E0065}。1.\x{1D1AB}Ss", %p)}, undef, "to_ascii\(\'19\.Ⴄ\\u0669\\uDB40\\uDC65\。1\.\\uD834\\uDDABSs\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:919\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒚ⴄ\x{0669}\x{E0065}。⒈\x{1D1AB}ß", %p)}, undef, "to_ascii\(\'⒚ⴄ\\u0669\\uDB40\\uDC65\。⒈\\uD834\\uDDABß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:920\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒚Ⴄ\x{0669}\x{E0065}。⒈\x{1D1AB}SS", %p)}, undef, "to_ascii\(\'⒚Ⴄ\\u0669\\uDB40\\uDC65\。⒈\\uD834\\uDDABSS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:921\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒚ⴄ\x{0669}\x{E0065}。⒈\x{1D1AB}ss", %p)}, undef, "to_ascii\(\'⒚ⴄ\\u0669\\uDB40\\uDC65\。⒈\\uD834\\uDDABss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:922\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒚Ⴄ\x{0669}\x{E0065}。⒈\x{1D1AB}Ss", %p)}, undef, "to_ascii\(\'⒚Ⴄ\\u0669\\uDB40\\uDC65\。⒈\\uD834\\uDDABSs\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:923\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠.\x{200C}-\x{0662}", %p)}, undef, "to_ascii\(\'\≠\.\\u200C\-\\u0662\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:924\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}.\x{200C}-\x{0662}", %p)}, undef, "to_ascii\(\'\=\\u0338\.\\u200C\-\\u0662\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:926\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E78}𝟭。\x{E0825}\x{10ACB}\x{10E6D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE78𝟭。\\uDB42\\uDC25\\uD802\\uDECB\\uD803\\uDE6D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:928\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E78}1。\x{E0825}\x{10ACB}\x{10E6D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE781\。\\uDB42\\uDC25\\uD802\\uDECB\\uD803\\uDE6D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:929\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{10E77}𝟓。\x{5E121}\x{EB555}\x{A8C4}", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE77𝟓\。\\uD938\\uDD21\\uDB6D\\uDD55\\uA8C4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:930\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{10E77}5。\x{5E121}\x{EB555}\x{A8C4}", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE775\。\\uD938\\uDD21\\uDB6D\\uDD55\\uA8C4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:932\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{110B9}.-逋\x{8A281}\x{C017F}", %p)}, undef, "to_ascii\(\'\\uD804\\uDCB9\.\-逋\\uD9E8\\uDE81\\uDAC0\\uDD7F\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:934\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0630}。\x{3164}\x{200D}ς", %p)}, undef, "to_ascii\(\'\\u0630\。\\u3164\\u200Dς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:935\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0630}。\x{1160}\x{200D}ς", %p)}, undef, "to_ascii\(\'\\u0630\。\\u1160\\u200Dς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:937\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0630}。\x{1160}\x{200D}Σ", %p)}, undef, "to_ascii\(\'\\u0630\。\\u1160\\u200DΣ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:939\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0630}。\x{1160}\x{200D}σ", %p)}, undef, "to_ascii\(\'\\u0630\。\\u1160\\u200Dσ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:941\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0630}。\x{3164}\x{200D}Σ", %p)}, undef, "to_ascii\(\'\\u0630\。\\u3164\\u200DΣ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:943\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0630}。\x{3164}\x{200D}σ", %p)}, undef, "to_ascii\(\'\\u0630\。\\u3164\\u200Dσ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:945\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{077C}Ⴃ。\x{E98A7}\x{309A}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'\\u077CႣ。\\uDB66\\uDCA7\\u309A\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:947\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{077C}Ⴃ。\x{E98A7}\x{309A}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'\\u077CႣ\。\\uDB66\\uDCA7\\u309A\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:949\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{077C}ⴃ。\x{E98A7}\x{309A}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'\\u077Cⴃ\。\\uDB66\\uDCA7\\u309A\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:951\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{077C}ⴃ。\x{E98A7}\x{309A}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'\\u077Cⴃ。\\uDB66\\uDCA7\\u309A\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:953\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᡶ🁺.ς\\u063A\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:955\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᡶ🁺\.ς\\u063A\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:957\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᡶ🁺\.Σ\\u063A\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:959\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᡶ🁺\.σ\\u063A\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:961\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᡶ🁺.Σ\\u063A\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:963\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᡶ🁺.σ\\u063A\\u200C\\u200D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:965\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{17B5}。\x{067F}\x{06EE}😽", %p)}, undef, "to_ascii\(\'\\u17B5\。\\u067F\\u06EE😽\'\)\ throws\ error\ P1\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:967\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E73}暑.⾑\x{0600}", %p)}, undef, "to_ascii\(\'\\u0E73暑.⾑\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:968\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E73}暑.襾\x{0600}", %p)}, undef, "to_ascii\(\'\\u0E73暑\.襾\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:969\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF8}≯\x{07DE}。\x{FB28}\x{1B42}", %p)}, undef, "to_ascii\(\'\\u2DF8\≯\\u07DE\。\\uFB28\\u1B42\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:970\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF8}>\x{0338}\x{07DE}。\x{FB28}\x{1B42}", %p)}, undef, "to_ascii\(\'\\u2DF8\>\\u0338\\u07DE\。\\uFB28\\u1B42\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:971\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF8}≯\x{07DE}。\x{05EA}\x{1B42}", %p)}, undef, "to_ascii\(\'\\u2DF8\≯\\u07DE\。\\u05EA\\u1B42\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:972\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF8}>\x{0338}\x{07DE}。\x{05EA}\x{1B42}", %p)}, undef, "to_ascii\(\'\\u2DF8\>\\u0338\\u07DE\。\\u05EA\\u1B42\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:973\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{109AE}\x{5A632}\x{1039}\x{A9C0}.\x{65732}Ⴗ", %p)}, undef, "to_ascii\(\'\\uD802\\uDDAE\\uD929\\uDE32\\u1039\\uA9C0\.\\uD955\\uDF32Ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:974\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{109AE}\x{5A632}\x{1039}\x{A9C0}.\x{65732}ⴗ", %p)}, undef, "to_ascii\(\'\\uD802\\uDDAE\\uD929\\uDE32\\u1039\\uA9C0\.\\uD955\\uDF32ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:975\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0365}。\x{0CCD}\x{436E9}\x{9992E}", %p)}, undef, "to_ascii\(\'\\u0365。\\u0CCD\\uD8CD\\uDEE9\\uDA26\\uDD2E\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:976\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0365}。\x{0CCD}\x{436E9}\x{9992E}", %p)}, undef, "to_ascii\(\'\\u0365\。\\u0CCD\\uD8CD\\uDEE9\\uDA26\\uDD2E\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:977\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DCD}\x{200C}.\x{069D}\x{200C}ꡘ", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDCD\\u200C.\\u069D\\u200Cꡘ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:978\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DCD}\x{200C}.\x{069D}\x{200C}ꡘ", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDCD\\u200C\.\\u069D\\u200Cꡘ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:980\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D9}\x{B49CE}ß.ጧ", %p)}, undef, "to_ascii\(\'\\u07D9\\uDA92\\uDDCEß\.ጧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:982\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D9}\x{B49CE}SS.ጧ", %p)}, undef, "to_ascii\(\'\\u07D9\\uDA92\\uDDCESS\.ጧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:983\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D9}\x{B49CE}ss.ጧ", %p)}, undef, "to_ascii\(\'\\u07D9\\uDA92\\uDDCEss\.ጧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:984\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D9}\x{B49CE}Ss.ጧ", %p)}, undef, "to_ascii\(\'\\u07D9\\uDA92\\uDDCESs\.ጧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:985\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EFE}\x{200C}.\x{EDBBF}\x{200C}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEFE\\u200C\.\\uDB76\\uDFBF\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:986\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0710}\x{50DE4}\x{10E7D}。Ⴜ", %p)}, undef, "to_ascii\(\'\\u0710\\uD903\\uDDE4\\uD803\\uDE7D\。Ⴜ\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:988\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0710}\x{50DE4}\x{10E7D}。ⴜ", %p)}, undef, "to_ascii\(\'\\u0710\\uD903\\uDDE4\\uD803\\uDE7D\。ⴜ\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:989\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0601}\x{2BA3}\x{200C}\x{05A6}。\x{8BF30}\x{1EB89}", %p)}, undef, "to_ascii\(\'\\u0601\\u2BA3\\u200C\\u05A6。\\uD9EF\\uDF30\\uD83A\\uDF89\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:990\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0601}\x{2BA3}\x{200C}\x{05A6}。\x{8BF30}\x{1EB89}", %p)}, undef, "to_ascii\(\'\\u0601\\u2BA3\\u200C\\u05A6\。\\uD9EF\\uDF30\\uD83A\\uDF89\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:992\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ。デß\x{07E5}\x{0DCA}", %p)}, undef, "to_ascii\(\'Ⴒ\。デß\\u07E5\\u0DCA\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:994\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ。テ\x{3099}ß\x{07E5}\x{0DCA}", %p)}, undef, "to_ascii\(\'Ⴒ\。テ\\u3099ß\\u07E5\\u0DCA\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:995\]") 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{3099}ß\x{07E5}\x{0DCA}", %p)}, undef, "to_ascii\(\'ⴒ\。テ\\u3099ß\\u07E5\\u0DCA\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:996\]") 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{0DCA}", %p)}, undef, "to_ascii\(\'ⴒ\。デß\\u07E5\\u0DCA\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:997\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴒ。デSS\x{07E5}\x{0DCA}", %p)}, undef, "to_ascii\(\'Ⴒ\。デSS\\u07E5\\u0DCA\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:998\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ。テ\x{3099}SS\x{07E5}\x{0DCA}", %p)}, undef, "to_ascii\(\'Ⴒ\。テ\\u3099SS\\u07E5\\u0DCA\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:999\]") 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{3099}ss\x{07E5}\x{0DCA}", %p)}, undef, "to_ascii\(\'ⴒ\。テ\\u3099ss\\u07E5\\u0DCA\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1000\]") 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("ⴒ。デss\x{07E5}\x{0DCA}", %p)}, undef, "to_ascii\(\'ⴒ\。デss\\u07E5\\u0DCA\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1001\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴒ。デSs\x{07E5}\x{0DCA}", %p)}, undef, "to_ascii\(\'Ⴒ\。デSs\\u07E5\\u0DCA\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1002\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ。テ\x{3099}Ss\x{07E5}\x{0DCA}", %p)}, undef, "to_ascii\(\'Ⴒ\。テ\\u3099Ss\\u07E5\\u0DCA\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1003\]") 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{094D}\x{1714}.𝟠-\x{07DE}", %p)}, undef, "to_ascii\(\'\\u094D\\u1714.𝟠\-\\u07DE\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1004\]") 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{094D}\x{1714}.8-\x{07DE}", %p)}, undef, "to_ascii\(\'\\u094D\\u1714\.8\-\\u07DE\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1005\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≯\x{0BCD}\x{0017}.\x{A806}𩬾\x{E012B}\x{077F}", %p)}, undef, "to_ascii\(\'\≯\\u0BCD\\u0017\.\\uA806𩬾\\uDB40\\uDD2B\\u077F\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1006\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{0BCD}\x{0017}.\x{A806}𩬾\x{E012B}\x{077F}", %p)}, undef, "to_ascii\(\'\>\\u0338\\u0BCD\\u0017\.\\uA806𩬾\\uDB40\\uDD2B\\u077F\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1007\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0102}\x{C9AE1}Ⴗ쏔。\x{1EFC3}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD02\\uDAE6\\uDEE1Ⴗ쏔\。\\uD83B\\uDFC3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1008\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0102}\x{C9AE1}Ⴗ쏔。\x{1EFC3}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD02\\uDAE6\\uDEE1Ⴗ쏔\。\\uD83B\\uDFC3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1009\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0102}\x{C9AE1}ⴗ쏔。\x{1EFC3}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD02\\uDAE6\\uDEE1ⴗ쏔\。\\uD83B\\uDFC3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1010\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0102}\x{C9AE1}ⴗ쏔。\x{1EFC3}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD02\\uDAE6\\uDEE1ⴗ쏔\。\\uD83B\\uDFC3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1011\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß。🄃Ⴌ\x{0FC6}", %p)}, undef, "to_ascii\(\'ß。🄃Ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1012\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß。2,Ⴌ\x{0FC6}", %p)}, undef, "to_ascii\(\'ß\。2\,Ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1013\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß。2,ⴌ\x{0FC6}", %p)}, undef, "to_ascii\(\'ß\。2\,ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1014\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS。2,Ⴌ\x{0FC6}", %p)}, undef, "to_ascii\(\'SS\。2\,Ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1015\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss。2,ⴌ\x{0FC6}", %p)}, undef, "to_ascii\(\'ss\。2\,ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1016\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß。🄃ⴌ\x{0FC6}", %p)}, undef, "to_ascii\(\'ß。🄃ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1017\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS。🄃Ⴌ\x{0FC6}", %p)}, undef, "to_ascii\(\'SS。🄃Ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1018\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss。🄃ⴌ\x{0FC6}", %p)}, undef, "to_ascii\(\'ss。🄃ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1019\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{07E0}\x{1E8C4}.\x{200C}∖\x{A953}", %p)}, undef, "to_ascii\(\'\-\\u07E0\\uD83A\\uDCC4\.\\u200C\∖\\uA953\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1020\]") 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{1BF1}\x{111C0}.☠\x{200D}", %p)}, "xn--56e26q0321avb7g.xn--h4h", "to_ascii\(\'🏨ᠣ\\u1BF1\\uD804\\uDDC0\.\☠\\u200D\'\)\ \[data\/IdnaTest\.txt\:1022\]") 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--56e26q0321avb7g.xn--h4h", %p)}, "xn--56e26q0321avb7g.xn--h4h", "to_ascii\(\'xn\-\-56e26q0321avb7g\.xn\-\-h4h\'\)\ \[data\/IdnaTest\.txt\:1024\]") 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{1BF1}\x{111C0}.☠", %p)}, "xn--56e26q0321avb7g.xn--h4h", "to_ascii\(\'🏨ᠣ\\u1BF1\\uD804\\uDDC0\.\☠\'\)\ \[data\/IdnaTest\.txt\:1025\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0FAD}\x{200D}\x{08FB}\x{077A}.\x{0853}\x{200C}\x{E0344}", %p)}, undef, "to_ascii\(\'\\u0FAD\\u200D\\u08FB\\u077A\.\\u0853\\u200C\\uDB40\\uDF44\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:1026\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴑ.\x{062E}\x{10AC5}\x{0758}", %p)}, undef, "to_ascii\(\'Ⴑ.\\u062E\\uD802\\uDEC5\\u0758\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1028\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴑ.\x{062E}\x{10AC5}\x{0758}", %p)}, undef, "to_ascii\(\'Ⴑ\.\\u062E\\uD802\\uDEC5\\u0758\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1029\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴑ.\x{062E}\x{10AC5}\x{0758}", %p)}, undef, "to_ascii\(\'ⴑ\.\\u062E\\uD802\\uDEC5\\u0758\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1030\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴑ.\x{062E}\x{10AC5}\x{0758}", %p)}, undef, "to_ascii\(\'ⴑ.\\u062E\\uD802\\uDEC5\\u0758\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1031\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0954}\x{AD48F}\x{0DCA}。\x{10B96E}𝟻", %p)}, undef, "to_ascii\(\'\\u0954\\uDA75\\uDC8F\\u0DCA\。\\uDBEE\\uDD6E𝟻\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1032\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0954}\x{AD48F}\x{0DCA}。\x{10B96E}5", %p)}, undef, "to_ascii\(\'\\u0954\\uDA75\\uDC8F\\u0DCA\。\\uDBEE\\uDD6E5\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1033\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{062E}\x{3730B}2。Ⴣ\x{07F1}\x{1EFFA}\x{79880}", %p)}, undef, "to_ascii\(\'\\u200C\\u062E\\uD89C\\uDF0B2。Ⴣ\\u07F1\\uD83B\\uDFFA\\uD9A6\\uDC80\'\)\ throws\ error\ P1\ V6\ B2\ B5\ \[data\/IdnaTest\.txt\:1034\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{062E}\x{3730B}2。Ⴣ\x{07F1}\x{1EFFA}\x{79880}", %p)}, undef, "to_ascii\(\'\\u200C\\u062E\\uD89C\\uDF0B2\。Ⴣ\\u07F1\\uD83B\\uDFFA\\uD9A6\\uDC80\'\)\ throws\ error\ P1\ V6\ B2\ B5\ \[data\/IdnaTest\.txt\:1036\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{062E}\x{3730B}2。ⴣ\x{07F1}\x{1EFFA}\x{79880}", %p)}, undef, "to_ascii\(\'\\u200C\\u062E\\uD89C\\uDF0B2\。ⴣ\\u07F1\\uD83B\\uDFFA\\uD9A6\\uDC80\'\)\ throws\ error\ P1\ V6\ B2\ B5\ \[data\/IdnaTest\.txt\:1038\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{062E}\x{3730B}2。ⴣ\x{07F1}\x{1EFFA}\x{79880}", %p)}, undef, "to_ascii\(\'\\u200C\\u062E\\uD89C\\uDF0B2。ⴣ\\u07F1\\uD83B\\uDFFA\\uD9A6\\uDC80\'\)\ throws\ error\ P1\ V6\ B2\ B5\ \[data\/IdnaTest\.txt\:1040\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BE}。\x{116B5}\x{8ED6C}\x{E0001}-", %p)}, undef, "to_ascii\(\'\\u06BE。\\uD805\\uDEB5\\uD9FB\\uDD6C\\uDB40\\uDC01\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1042\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BE}。\x{116B5}\x{8ED6C}\x{E0001}-", %p)}, undef, "to_ascii\(\'\\u06BE\。\\uD805\\uDEB5\\uD9FB\\uDD6C\\uDB40\\uDC01\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1043\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10D4B}\x{106843}。絧\x{0953}", %p)}, undef, "to_ascii\(\'\\uD803\\uDD4B\\uDBDA\\uDC43\。絧\\u0953\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1044\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}Ⴋ.5≯︒\x{E0195}", %p)}, undef, "to_ascii\(\'\\u0DCAႫ.5\≯︒\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1045\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}Ⴋ.5>\x{0338}︒\x{E0195}", %p)}, undef, "to_ascii\(\'\\u0DCAႫ.5\>\\u0338︒\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1046\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}Ⴋ.5≯。\x{E0195}", %p)}, undef, "to_ascii\(\'\\u0DCAႫ\.5\≯\。\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1047\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}Ⴋ.5>\x{0338}。\x{E0195}", %p)}, undef, "to_ascii\(\'\\u0DCAႫ\.5\>\\u0338\。\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1048\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}ⴋ.5>\x{0338}。\x{E0195}", %p)}, undef, "to_ascii\(\'\\u0DCAⴋ\.5\>\\u0338\。\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1049\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}ⴋ.5≯。\x{E0195}", %p)}, undef, "to_ascii\(\'\\u0DCAⴋ\.5\≯\。\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1050\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}ⴋ.5>\x{0338}︒\x{E0195}", %p)}, undef, "to_ascii\(\'\\u0DCAⴋ.5\>\\u0338︒\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1051\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}ⴋ.5≯︒\x{E0195}", %p)}, undef, "to_ascii\(\'\\u0DCAⴋ.5\≯︒\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1052\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}F\x{A806}。\x{2DFA}︒\x{07E6}\x{10E75}", %p)}, undef, "to_ascii\(\'\\u200DF\\uA806\。\\u2DFA︒\\u07E6\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1053\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}F\x{A806}。\x{2DFA}。\x{07E6}\x{10E75}", %p)}, undef, "to_ascii\(\'\\u200DF\\uA806\。\\u2DFA\。\\u07E6\\uD803\\uDE75\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1055\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}f\x{A806}。\x{2DFA}。\x{07E6}\x{10E75}", %p)}, undef, "to_ascii\(\'\\u200Df\\uA806\。\\u2DFA\。\\u07E6\\uD803\\uDE75\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1057\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}f\x{A806}。\x{2DFA}︒\x{07E6}\x{10E75}", %p)}, undef, "to_ascii\(\'\\u200Df\\uA806\。\\u2DFA︒\\u07E6\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1059\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{068C}𝟖\x{FC29}︒。\x{10E77}\x{17D2}", %p)}, undef, "to_ascii\(\'\\u068C𝟖\\uFC29︒。\\uD803\\uDE77\\u17D2\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:1061\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{068C}8\x{0639}\x{062C}。。\x{10E77}\x{17D2}", %p)}, undef, "to_ascii\(\'\\u068C8\\u0639\\u062C\。\。\\uD803\\uDE77\\u17D2\'\)\ throws\ error\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1062\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FCDF}.\x{E01B6}\x{0650}\x{08BB}", %p)}, undef, "to_ascii\(\'\\uFCDF\.\\uDB40\\uDDB6\\u0650\\u08BB\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1063\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0626}\x{0645}.\x{E01B6}\x{0650}\x{08BB}", %p)}, undef, "to_ascii\(\'\\u0626\\u0645\.\\uDB40\\uDDB6\\u0650\\u08BB\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1064\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{064A}\x{0654}\x{0645}.\x{E01B6}\x{0650}\x{08BB}", %p)}, undef, "to_ascii\(\'\\u064A\\u0654\\u0645\.\\uDB40\\uDDB6\\u0650\\u08BB\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1065\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴂ䠺。\x{0683}\x{DB798}\x{5A942}\x{084A}", %p)}, undef, "to_ascii\(\'Ⴂ䠺\。\\u0683\\uDB2D\\uDF98\\uD92A\\uDD42\\u084A\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1066\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴂ䠺。\x{0683}\x{DB798}\x{5A942}\x{084A}", %p)}, undef, "to_ascii\(\'ⴂ䠺\。\\u0683\\uDB2D\\uDF98\\uD92A\\uDD42\\u084A\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1067\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟚伐︒.\x{85C24}\x{0A4D}", %p)}, undef, "to_ascii\(\'𝟚伐︒\.\\uD9D7\\uDC24\\u0A4D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1068\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2伐。.\x{85C24}\x{0A4D}", %p)}, undef, "to_ascii\(\'2伐\。\.\\uD9D7\\uDC24\\u0A4D\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1069\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E79}\x{0B4D}\x{E001B}。\x{200D}\x{07DC}Ⴚ\x{1039}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE79\\u0B4D\\uDB40\\uDC1B\。\\u200D\\u07DCႺ\\u1039\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1070\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E79}\x{0B4D}\x{E001B}。\x{200D}\x{07DC}ⴚ\x{1039}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE79\\u0B4D\\uDB40\\uDC1B\。\\u200D\\u07DCⴚ\\u1039\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1072\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A70}.\x{1AAC0}\x{666A4}", %p)}, undef, "to_ascii\(\'\\u0A70.\\uD82A\\uDEC0\\uD959\\uDEA4\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1074\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A70}.\x{1AAC0}\x{666A4}", %p)}, undef, "to_ascii\(\'\\u0A70\.\\uD82A\\uDEC0\\uD959\\uDEA4\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1075\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡰ\x{200C}Ⴆ.≠\x{10F03}", %p)}, undef, "to_ascii\(\'ꡰ\\u200CႦ\.\≠\\uD803\\uDF03\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1076\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡰ\x{200C}Ⴆ.=\x{0338}\x{10F03}", %p)}, undef, "to_ascii\(\'ꡰ\\u200CႦ\.\=\\u0338\\uD803\\uDF03\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1078\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡰ\x{200C}ⴆ.=\x{0338}\x{10F03}", %p)}, undef, "to_ascii\(\'ꡰ\\u200Cⴆ\.\=\\u0338\\uD803\\uDF03\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1080\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡰ\x{200C}ⴆ.≠\x{10F03}", %p)}, undef, "to_ascii\(\'ꡰ\\u200Cⴆ\.\≠\\uD803\\uDF03\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1082\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1030}\x{14A04}₀ꘌ.\x{067F}", %p)}, undef, "to_ascii\(\'\\u1030\\uD812\\uDE04₀ꘌ.\\u067F\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1084\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1030}\x{14A04}0ꘌ.\x{067F}", %p)}, undef, "to_ascii\(\'\\u1030\\uD812\\uDE040ꘌ\.\\u067F\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1085\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.\x{07F0}\x{BC92C}-", %p)}, undef, "to_ascii\(\'\-\.\\u07F0\\uDAB2\\uDD2C\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1086\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7227F}\x{200C}。\x{200C}\x{1EC50}ς", %p)}, undef, "to_ascii\(\'\\uD988\\uDE7F\\u200C。\\u200C\\uD83B\\uDC50ς\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1087\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7227F}\x{200C}。\x{200C}\x{1EC50}ς", %p)}, undef, "to_ascii\(\'\\uD988\\uDE7F\\u200C\。\\u200C\\uD83B\\uDC50ς\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1089\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7227F}\x{200C}。\x{200C}\x{1EC50}Σ", %p)}, undef, "to_ascii\(\'\\uD988\\uDE7F\\u200C\。\\u200C\\uD83B\\uDC50Σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1091\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7227F}\x{200C}。\x{200C}\x{1EC50}σ", %p)}, undef, "to_ascii\(\'\\uD988\\uDE7F\\u200C\。\\u200C\\uD83B\\uDC50σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1093\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7227F}\x{200C}。\x{200C}\x{1EC50}Σ", %p)}, undef, "to_ascii\(\'\\uD988\\uDE7F\\u200C。\\u200C\\uD83B\\uDC50Σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1095\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7227F}\x{200C}。\x{200C}\x{1EC50}σ", %p)}, undef, "to_ascii\(\'\\uD988\\uDE7F\\u200C。\\u200C\\uD83B\\uDC50σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1097\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("堕\x{094D}\x{E0A2D}。\x{07D8}\x{0722}\x{200C}-", %p)}, undef, "to_ascii\(\'堕\\u094D\\uDB42\\uDE2D\。\\u07D8\\u0722\\u200C\-\'\)\ throws\ error\ P1\ V6\ V3\ B3\ \[data\/IdnaTest\.txt\:1099\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}ς\x{0847}ς", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726。\\u07E9ς\\u0847ς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1101\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}ς\x{0847}ς", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726\。\\u07E9ς\\u0847ς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1102\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}Σ\x{0847}Σ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726\。\\u07E9Σ\\u0847Σ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1103\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}σ\x{0847}σ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726\。\\u07E9σ\\u0847σ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1104\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}Σ\x{0847}σ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726\。\\u07E9Σ\\u0847σ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1105\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}Σ\x{0847}ς", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726\。\\u07E9Σ\\u0847ς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1106\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}σ\x{0847}ς", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726\。\\u07E9σ\\u0847ς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1107\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}Σ\x{0847}Σ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726。\\u07E9Σ\\u0847Σ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1108\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}σ\x{0847}σ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726。\\u07E9σ\\u0847σ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1109\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}Σ\x{0847}σ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726。\\u07E9Σ\\u0847σ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1110\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}Σ\x{0847}ς", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726。\\u07E9Σ\\u0847ς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1111\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}σ\x{0847}ς", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726。\\u07E9σ\\u0847ς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1112\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{BBB8C}.-5ß", %p)}, undef, "to_ascii\(\'\\uDAAE\\uDF8C.\-5ß\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1113\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{BBB8C}.-5ß", %p)}, undef, "to_ascii\(\'\\uDAAE\\uDF8C\.\-5ß\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1114\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{BBB8C}.-5SS", %p)}, undef, "to_ascii\(\'\\uDAAE\\uDF8C\.\-5SS\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1115\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{BBB8C}.-5SS", %p)}, undef, "to_ascii\(\'\\uDAAE\\uDF8C.\-5SS\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1116\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{A806}.\x{0FA6}Ⴥ\x{15445}", %p)}, undef, "to_ascii\(\'\\u200D\\uA806\.\\u0FA6Ⴥ\\uD815\\uDC45\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1117\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{A806}.\x{0FA6}ⴥ\x{15445}", %p)}, undef, "to_ascii\(\'\\u200D\\uA806\.\\u0FA6ⴥ\\uD815\\uDC45\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1119\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DEA33}。ß樲\x{200D}", %p)}, undef, "to_ascii\(\'\\uDB3A\\uDE33\。ß樲\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1121\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DEA33}。SS樲\x{200D}", %p)}, undef, "to_ascii\(\'\\uDB3A\\uDE33\。SS樲\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1123\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DEA33}。ss樲\x{200D}", %p)}, undef, "to_ascii\(\'\\uDB3A\\uDE33\。ss樲\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1125\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DEA33}。Ss樲\x{200D}", %p)}, undef, "to_ascii\(\'\\uDB3A\\uDE33\。Ss樲\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1127\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1413C}。\x{FE24}\x{E0BE1}\x{10CD0}", %p)}, undef, "to_ascii\(\'\\u200C\\uD810\\uDD3C\。\\uFE24\\uDB42\\uDFE1\\uD803\\uDCD0\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1129\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{109FD}\x{200C}\x{0735}。\x{0602}", %p)}, undef, "to_ascii\(\'\\uD802\\uDDFD\\u200C\\u0735\。\\u0602\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1131\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}ς≠", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4ς\≠\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1133\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}ς=\x{0338}", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4ς\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1135\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}ς≠", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4ς\≠\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1137\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}ς=\x{0338}", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4ς\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1139\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}Σ=\x{0338}", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4Σ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1141\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}Σ≠", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4Σ\≠\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1143\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}σ≠", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4σ\≠\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1145\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}σ=\x{0338}", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4σ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1147\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}Σ=\x{0338}", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4Σ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1149\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}Σ≠", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4Σ\≠\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1151\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}σ≠", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4σ\≠\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1153\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}σ=\x{0338}", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4σ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1155\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6。⒈\x{200D}\x{1B4F1}", %p)}, undef, "to_ascii\(\'6。⒈\\u200D\\uD82D\\uDCF1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1157\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6。1.\x{200D}\x{1B4F1}", %p)}, undef, "to_ascii\(\'6\。1\.\\u200D\\uD82D\\uDCF1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1159\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠬß。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_ascii\(\'ᠬß。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1161\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠬß。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_ascii\(\'ᠬß\。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1162\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠬSS。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_ascii\(\'ᠬSS\。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1163\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠬss。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_ascii\(\'ᠬss\。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1164\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠬSs。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_ascii\(\'ᠬSs\。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1165\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠬSS。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_ascii\(\'ᠬSS。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1166\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠬss。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_ascii\(\'ᠬss。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1167\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠬSs。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_ascii\(\'ᠬSs。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1168\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0666}\x{17D2}\x{593A5}.\x{0AE2}\x{0F93}\x{1A60}\x{0D4D}", %p)}, undef, "to_ascii\(\'\\u0666\\u17D2\\uD924\\uDFA5\.\\u0AE2\\u0F93\\u1A60\\u0D4D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1169\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0666}\x{17D2}\x{593A5}.\x{0AE2}\x{0F92}\x{0FB7}\x{1A60}\x{0D4D}", %p)}, undef, "to_ascii\(\'\\u0666\\u17D2\\uD924\\uDFA5\.\\u0AE2\\u0F92\\u0FB7\\u1A60\\u0D4D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1170\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴓ\x{ABED}\x{200D}\x{34F17}.ᠹ\x{E0077}", %p)}, undef, "to_ascii\(\'Ⴓ\\uABED\\u200D\\uD893\\uDF17.ᠹ\\uDB40\\uDC77\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1171\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴓ\x{ABED}\x{200D}\x{34F17}.ᠹ\x{E0077}", %p)}, undef, "to_ascii\(\'Ⴓ\\uABED\\u200D\\uD893\\uDF17\.ᠹ\\uDB40\\uDC77\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1172\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴓ\x{ABED}\x{200D}\x{34F17}.ᠹ\x{E0077}", %p)}, undef, "to_ascii\(\'ⴓ\\uABED\\u200D\\uD893\\uDF17\.ᠹ\\uDB40\\uDC77\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1173\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴓ\x{ABED}\x{200D}\x{34F17}.ᠹ\x{E0077}", %p)}, undef, "to_ascii\(\'ⴓ\\uABED\\u200D\\uD893\\uDF17.ᠹ\\uDB40\\uDC77\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1174\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{E0126}", %p)}, undef, "to_ascii\(\'\\uA9C0\.𝟕\\uDB40\\uDD26\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1175\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}.7\x{E0126}", %p)}, undef, "to_ascii\(\'\\uA9C0\.7\\uDB40\\uDD26\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1176\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{539F1}\x{FCF44}𝟗。\x{206E}-", %p)}, undef, "to_ascii\(\'\\uD90E\\uDDF1\\uDBB3\\uDF44𝟗\。\\u206E\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1177\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{539F1}\x{FCF44}9。\x{206E}-", %p)}, undef, "to_ascii\(\'\\uD90E\\uDDF1\\uDBB3\\uDF449\。\\u206E\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1178\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1AE33}ᠩ\x{10E69}。\x{10E79}\x{0631}\x{0684}", %p)}, undef, "to_ascii\(\'\\uD82B\\uDE33ᠩ\\uD803\\uDE69\。\\uD803\\uDE79\\u0631\\u0684\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1179\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}ᡒႾ₈.⤴\x{06B0}\x{A9053}\x{200C}", %p)}, undef, "to_ascii\(\'\\u200DᡒႾ₈\.\⤴\\u06B0\\uDA64\\uDC53\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1180\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}ᡒႾ8.⤴\x{06B0}\x{A9053}\x{200C}", %p)}, undef, "to_ascii\(\'\\u200DᡒႾ8\.\⤴\\u06B0\\uDA64\\uDC53\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1182\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}ᡒⴞ8.⤴\x{06B0}\x{A9053}\x{200C}", %p)}, undef, "to_ascii\(\'\\u200Dᡒⴞ8\.\⤴\\u06B0\\uDA64\\uDC53\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1184\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}ᡒⴞ₈.⤴\x{06B0}\x{A9053}\x{200C}", %p)}, undef, "to_ascii\(\'\\u200Dᡒⴞ₈\.\⤴\\u06B0\\uDA64\\uDC53\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1186\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E6A}ᠮ.\x{0E3A}\x{7BCB7}⾆", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6Aᠮ.\\u0E3A\\uD9AF\\uDCB7⾆\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1188\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E6A}ᠮ.\x{0E3A}\x{7BCB7}舌", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6Aᠮ\.\\u0E3A\\uD9AF\\uDCB7舌\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1189\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE06}⌆\x{8DF53}.\x{76578}", %p)}, undef, "to_ascii\(\'\\uFE06\⌆\\uD9F7\\uDF53\.\\uD999\\uDD78\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1190\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0735}\x{8B6EA}-죀.4Ⴄ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0735\\uD9ED\\uDEEA\-죀\.4Ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1191\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0735}\x{8B6EA}-죀.4Ⴄ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0735\\uD9ED\\uDEEA\-죀\.4Ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1193\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0735}\x{8B6EA}-죀.4ⴄ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0735\\uD9ED\\uDEEA\-죀\.4ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1195\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0735}\x{8B6EA}-죀.4ⴄ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0735\\uD9ED\\uDEEA\-죀\.4ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1197\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。\x{E0BBD}ß\x{1D1AA}", %p)}, undef, "to_ascii\(\'ᚭ。\\uDB42\\uDFBDß\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1199\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。\x{E0BBD}ß\x{1D1AA}", %p)}, undef, "to_ascii\(\'ᚭ\。\\uDB42\\uDFBDß\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1200\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。\x{E0BBD}SS\x{1D1AA}", %p)}, undef, "to_ascii\(\'ᚭ\。\\uDB42\\uDFBDSS\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1201\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。\x{E0BBD}ss\x{1D1AA}", %p)}, undef, "to_ascii\(\'ᚭ\。\\uDB42\\uDFBDss\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1202\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。\x{E0BBD}Ss\x{1D1AA}", %p)}, undef, "to_ascii\(\'ᚭ\。\\uDB42\\uDFBDSs\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1203\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。\x{E0BBD}SS\x{1D1AA}", %p)}, undef, "to_ascii\(\'ᚭ。\\uDB42\\uDFBDSS\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1204\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。\x{E0BBD}ss\x{1D1AA}", %p)}, undef, "to_ascii\(\'ᚭ。\\uDB42\\uDFBDss\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1205\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。\x{E0BBD}Ss\x{1D1AA}", %p)}, undef, "to_ascii\(\'ᚭ。\\uDB42\\uDFBDSs\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1206\]") 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{08A4}ꡞ", %p)}, undef, "to_ascii\(\'0。\\u08A4ꡞ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1207\]") 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{08A4}ꡞ", %p)}, undef, "to_ascii\(\'0\。\\u08A4ꡞ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1208\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{144FD}\x{200C}.\x{087F}麷\x{E8D37}", %p)}, undef, "to_ascii\(\'\\uD811\\uDCFD\\u200C\.\\u087F麷\\uDB63\\uDD37\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1209\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{035B}≯。\x{E061D}", %p)}, undef, "to_ascii\(\'\\u035B\≯。\\uDB41\\uDE1D\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1211\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{035B}>\x{0338}。\x{E061D}", %p)}, undef, "to_ascii\(\'\\u035B\>\\u0338。\\uDB41\\uDE1D\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1212\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{035B}≯。\x{E061D}", %p)}, undef, "to_ascii\(\'\\u035B\≯\。\\uDB41\\uDE1D\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1213\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{035B}>\x{0338}。\x{E061D}", %p)}, undef, "to_ascii\(\'\\u035B\>\\u0338\。\\uDB41\\uDE1D\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1214\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴋ≮\x{104620}。\x{200D}\x{E016B}۹", %p)}, undef, "to_ascii\(\'Ⴋ\≮\\uDBD1\\uDE20\。\\u200D\\uDB40\\uDD6B۹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1215\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴋ<\x{0338}\x{104620}。\x{200D}\x{E016B}۹", %p)}, undef, "to_ascii\(\'Ⴋ\<\\u0338\\uDBD1\\uDE20\。\\u200D\\uDB40\\uDD6B۹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1217\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴋ<\x{0338}\x{104620}。\x{200D}\x{E016B}۹", %p)}, undef, "to_ascii\(\'ⴋ\<\\u0338\\uDBD1\\uDE20\。\\u200D\\uDB40\\uDD6B۹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1219\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴋ≮\x{104620}。\x{200D}\x{E016B}۹", %p)}, undef, "to_ascii\(\'ⴋ\≮\\uDBD1\\uDE20\。\\u200D\\uDB40\\uDD6B۹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1221\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}.\x{72EEA}≯", %p)}, undef, "to_ascii\(\'\\u0B4D\.\\uD98B\\uDEEA\≯\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1223\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}.\x{72EEA}>\x{0338}", %p)}, undef, "to_ascii\(\'\\u0B4D\.\\uD98B\\uDEEA\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1224\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0BF9}\x{1BF3}.\x{1921}É\x{1D168}\x{1BAB}", %p)}, undef, "to_ascii\(\'\\uDAC2\\uDFF9\\u1BF3.\\u1921É\\uD834\\uDD68\\u1BAB\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1225\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0BF9}\x{1BF3}.\x{1921}E\x{1D168}\x{1BAB}\x{0301}", %p)}, undef, "to_ascii\(\'\\uDAC2\\uDFF9\\u1BF3.\\u1921E\\uD834\\uDD68\\u1BAB\\u0301\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1226\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0BF9}\x{1BF3}.\x{1921}É\x{1D168}\x{1BAB}", %p)}, undef, "to_ascii\(\'\\uDAC2\\uDFF9\\u1BF3\.\\u1921É\\uD834\\uDD68\\u1BAB\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1227\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0BF9}\x{1BF3}.\x{1921}E\x{1D168}\x{1BAB}\x{0301}", %p)}, undef, "to_ascii\(\'\\uDAC2\\uDFF9\\u1BF3\.\\u1921E\\uD834\\uDD68\\u1BAB\\u0301\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1228\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0BF9}\x{1BF3}.\x{1921}e\x{1D168}\x{1BAB}\x{0301}", %p)}, undef, "to_ascii\(\'\\uDAC2\\uDFF9\\u1BF3\.\\u1921e\\uD834\\uDD68\\u1BAB\\u0301\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1229\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0BF9}\x{1BF3}.\x{1921}é\x{1D168}\x{1BAB}", %p)}, undef, "to_ascii\(\'\\uDAC2\\uDFF9\\u1BF3\.\\u1921é\\uD834\\uDD68\\u1BAB\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1230\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0BF9}\x{1BF3}.\x{1921}e\x{1D168}\x{1BAB}\x{0301}", %p)}, undef, "to_ascii\(\'\\uDAC2\\uDFF9\\u1BF3.\\u1921e\\uD834\\uDD68\\u1BAB\\u0301\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1231\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0BF9}\x{1BF3}.\x{1921}é\x{1D168}\x{1BAB}", %p)}, undef, "to_ascii\(\'\\uDAC2\\uDFF9\\u1BF3.\\u1921é\\uD834\\uDD68\\u1BAB\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1232\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡔ\x{200D}\x{0E3A}。︒\x{08A0}", %p)}, undef, "to_ascii\(\'ᡔ\\u200D\\u0E3A。︒\\u08A0\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1233\]") 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{0E3A}。。\x{08A0}", %p)}, undef, "to_ascii\(\'ᡔ\\u200D\\u0E3A\。\。\\u08A0\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:1235\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{069B}\x{84E75}\x{AAF6}\x{200C}。ᢟ\x{E01A6}≮", %p)}, undef, "to_ascii\(\'\\u069B\\uD9D3\\uDE75\\uAAF6\\u200C。ᢟ\\uDB40\\uDDA6\≮\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1237\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{069B}\x{84E75}\x{AAF6}\x{200C}。ᢟ\x{E01A6}<\x{0338}", %p)}, undef, "to_ascii\(\'\\u069B\\uD9D3\\uDE75\\uAAF6\\u200C。ᢟ\\uDB40\\uDDA6\<\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1238\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{069B}\x{84E75}\x{AAF6}\x{200C}。ᢟ\x{E01A6}≮", %p)}, undef, "to_ascii\(\'\\u069B\\uD9D3\\uDE75\\uAAF6\\u200C\。ᢟ\\uDB40\\uDDA6\≮\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1239\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{069B}\x{84E75}\x{AAF6}\x{200C}。ᢟ\x{E01A6}<\x{0338}", %p)}, undef, "to_ascii\(\'\\u069B\\uD9D3\\uDE75\\uAAF6\\u200C\。ᢟ\\uDB40\\uDDA6\<\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴣ.\x{1DC5}\x{0693}", %p)}, undef, "to_ascii\(\'Ⴣ.\\u1DC5\\u0693\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1241\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴣ.\x{1DC5}\x{0693}", %p)}, undef, "to_ascii\(\'Ⴣ\.\\u1DC5\\u0693\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1242\]") 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{1DC5}\x{0693}", %p)}, undef, "to_ascii\(\'ⴣ\.\\u1DC5\\u0693\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1243\]") 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{1DC5}\x{0693}", %p)}, undef, "to_ascii\(\'ⴣ.\\u1DC5\\u0693\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1244\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("🀽\x{FD4D}.\x{10B5F2}\x{6B40F}Ⴤ\x{E9058}", %p)}, undef, "to_ascii\(\'🀽\\uFD4D.\\uDBED\\uDDF2\\uD96D\\uDC0FჄ\\uDB64\\uDC58\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1245\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🀽\x{FD4D}.\x{10B5F2}\x{6B40F}Ⴤ\x{E9058}", %p)}, undef, "to_ascii\(\'🀽\\uFD4D\.\\uDBED\\uDDF2\\uD96D\\uDC0FჄ\\uDB64\\uDC58\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1246\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🀽\x{FD4D}.\x{10B5F2}\x{6B40F}ⴤ\x{E9058}", %p)}, undef, "to_ascii\(\'🀽\\uFD4D\.\\uDBED\\uDDF2\\uD96D\\uDC0Fⴤ\\uDB64\\uDC58\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1247\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🀽\x{FD4D}.\x{10B5F2}\x{6B40F}ⴤ\x{E9058}", %p)}, undef, "to_ascii\(\'🀽\\uFD4D.\\uDBED\\uDDF2\\uD96D\\uDC0Fⴤ\\uDB64\\uDC58\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1248\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE0C}\x{E01EB}≮.\x{E0C70}", %p)}, undef, "to_ascii\(\'\\uFE0C\\uDB40\\uDDEB\≮.\\uDB43\\uDC70\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1249\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE0C}\x{E01EB}<\x{0338}.\x{E0C70}", %p)}, undef, "to_ascii\(\'\\uFE0C\\uDB40\\uDDEB\<\\u0338.\\uDB43\\uDC70\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1250\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE0C}\x{E01EB}≮.\x{E0C70}", %p)}, undef, "to_ascii\(\'\\uFE0C\\uDB40\\uDDEB\≮\.\\uDB43\\uDC70\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1251\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE0C}\x{E01EB}<\x{0338}.\x{E0C70}", %p)}, undef, "to_ascii\(\'\\uFE0C\\uDB40\\uDDEB\<\\u0338\.\\uDB43\\uDC70\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1252\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}≮Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\≮Ⴢ.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1253\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}<\x{0338}Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\<\\u0338Ⴢ.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}≮Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\≮Ⴢ\.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1255\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}<\x{0338}Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\<\\u0338Ⴢ\.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1256\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}<\x{0338}ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\<\\u0338ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1257\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}≮ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\≮ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1258\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}≮Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\≮Ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1259\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}<\x{0338}Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\<\\u0338Ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1260\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}<\x{0338}ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\<\\u0338ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1261\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}≮ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\≮ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1262\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}≮Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\≮Ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1263\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}<\x{0338}Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\<\\u0338Ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1264\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DD3}。-", %p)}, undef, "to_ascii\(\'\\u0DD3\。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1265\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A8C4}\x{7F225}\x{E0520}。饈≠\x{10E6A}", %p)}, undef, "to_ascii\(\'\\uA8C4\\uD9BC\\uDE25\\uDB41\\uDD20。饈\≠\\uD803\\uDE6A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1266\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A8C4}\x{7F225}\x{E0520}。饈=\x{0338}\x{10E6A}", %p)}, undef, "to_ascii\(\'\\uA8C4\\uD9BC\\uDE25\\uDB41\\uDD20。饈\=\\u0338\\uD803\\uDE6A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1267\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A8C4}\x{7F225}\x{E0520}。饈≠\x{10E6A}", %p)}, undef, "to_ascii\(\'\\uA8C4\\uD9BC\\uDE25\\uDB41\\uDD20\。饈\≠\\uD803\\uDE6A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1268\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A8C4}\x{7F225}\x{E0520}。饈=\x{0338}\x{10E6A}", %p)}, undef, "to_ascii\(\'\\uA8C4\\uD9BC\\uDE25\\uDB41\\uDD20\。饈\=\\u0338\\uD803\\uDE6A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1269\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0719}ᡊ4。≯邅\x{E0036}4", %p)}, undef, "to_ascii\(\'\\u0719ᡊ4。\≯邅\\uDB40\\uDC364\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1270\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0719}ᡊ4。>\x{0338}邅\x{E0036}4", %p)}, undef, "to_ascii\(\'\\u0719ᡊ4。\>\\u0338邅\\uDB40\\uDC364\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1271\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0719}ᡊ4。≯邅\x{E0036}4", %p)}, undef, "to_ascii\(\'\\u0719ᡊ4\。\≯邅\\uDB40\\uDC364\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1272\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0719}ᡊ4。>\x{0338}邅\x{E0036}4", %p)}, undef, "to_ascii\(\'\\u0719ᡊ4\。\>\\u0338邅\\uDB40\\uDC364\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1273\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7FE19}ᡳ-\x{07EF}.\x{0667}⒚\x{10E7D}\x{3018B}", %p)}, undef, "to_ascii\(\'\\uD9BF\\uDE19ᡳ\-\\u07EF\.\\u0667⒚\\uD803\\uDE7D\\uD880\\uDD8B\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1274\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7FE19}ᡳ-\x{07EF}.\x{0667}19.\x{10E7D}\x{3018B}", %p)}, undef, "to_ascii\(\'\\uD9BF\\uDE19ᡳ\-\\u07EF\.\\u066719\.\\uD803\\uDE7D\\uD880\\uDD8B\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1275\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B2908}ᠹ\x{1D189}.넨-\x{F51CC}", %p)}, undef, "to_ascii\(\'\\uDA8A\\uDD08ᠹ\\uD834\\uDD89\.넨\-\\uDB94\\uDDCC\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1276\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B2908}ᠹ\x{1D189}.넨-\x{F51CC}", %p)}, undef, "to_ascii\(\'\\uDA8A\\uDD08ᠹ\\uD834\\uDD89\.넨\-\\uDB94\\uDDCC\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1277\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06AB}ᡣ\x{200D}⒈。𝟏-", %p)}, undef, "to_ascii\(\'\\u06ABᡣ\\u200D⒈\。𝟏\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ \[data\/IdnaTest\.txt\:1278\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06AB}ᡣ\x{200D}1.。1-", %p)}, undef, "to_ascii\(\'\\u06ABᡣ\\u200D1\.\。1\-\'\)\ throws\ error\ V3\ B2\ A4_2\ \[data\/IdnaTest\.txt\:1280\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴌ。\x{42924}\x{10C42}", %p)}, undef, "to_ascii\(\'Ⴌ\。\\uD8CA\\uDD24\\uD803\\uDC42\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1282\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴌ。\x{42924}\x{10C42}", %p)}, undef, "to_ascii\(\'ⴌ\。\\uD8CA\\uDD24\\uD803\\uDC42\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1283\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢜ\x{FC90}.\x{A806}\x{E01BB}-\x{128AD}", %p)}, undef, "to_ascii\(\'ᢜ\\uFC90\.\\uA806\\uDB40\\uDDBB\-\\uD80A\\uDCAD\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1284\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢜ\x{0649}\x{0670}.\x{A806}\x{E01BB}-\x{128AD}", %p)}, undef, "to_ascii\(\'ᢜ\\u0649\\u0670\.\\uA806\\uDB40\\uDDBB\-\\uD80A\\uDCAD\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1285\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{592AE}\x{200D}-。웈", %p)}, undef, "to_ascii\(\'⒈\\uD924\\uDEAE\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1286\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{592AE}\x{200D}-。웈", %p)}, undef, "to_ascii\(\'⒈\\uD924\\uDEAE\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1288\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{592AE}\x{200D}-。웈", %p)}, undef, "to_ascii\(\'1\.\\uD924\\uDEAE\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1290\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{592AE}\x{200D}-。웈", %p)}, undef, "to_ascii\(\'1\.\\uD924\\uDEAE\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1292\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{07F0}\x{A8E1}", %p)}, undef, "to_ascii\(\'て\。\\u200C\\u07F0\\uA8E1\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1294\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ς。\x{0CCD}\x{0BC0}", %p)}, undef, "to_ascii\(\'ς。\\u0CCD\\u0BC0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1296\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς。\x{0CCD}\x{0BC0}", %p)}, undef, "to_ascii\(\'ς\。\\u0CCD\\u0BC0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1297\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ。\x{0CCD}\x{0BC0}", %p)}, undef, "to_ascii\(\'Σ\。\\u0CCD\\u0BC0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1298\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ。\x{0CCD}\x{0BC0}", %p)}, undef, "to_ascii\(\'σ\。\\u0CCD\\u0BC0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1299\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ。\x{0CCD}\x{0BC0}", %p)}, undef, "to_ascii\(\'Σ。\\u0CCD\\u0BC0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1300\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ。\x{0CCD}\x{0BC0}", %p)}, undef, "to_ascii\(\'σ。\\u0CCD\\u0BC0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1301\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A806}\x{C9B09}\x{A5208}.ႢႵ", %p)}, undef, "to_ascii\(\'\\uA806\\uDAE6\\uDF09\\uDA54\\uDE08\.ႢႵ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1302\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A806}\x{C9B09}\x{A5208}.ⴂⴕ", %p)}, undef, "to_ascii\(\'\\uA806\\uDAE6\\uDF09\\uDA54\\uDE08\.ⴂⴕ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1303\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A806}\x{C9B09}\x{A5208}.Ⴂⴕ", %p)}, undef, "to_ascii\(\'\\uA806\\uDAE6\\uDF09\\uDA54\\uDE08\.Ⴂⴕ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1304\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0A58}𝟖⾛\x{1BE9}.\x{200D}\x{67B78}\x{10CFE}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDE58𝟖⾛\\u1BE9.\\u200D\\uD95E\\uDF78\\uD803\\uDCFE\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1305\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0A58}8走\x{1BE9}.\x{200D}\x{67B78}\x{10CFE}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDE588走\\u1BE9\.\\u200D\\uD95E\\uDF78\\uD803\\uDCFE\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1307\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{084E}。Ӏ\x{712A9}", %p)}, undef, "to_ascii\(\'\\u084E。Ӏ\\uD984\\uDEA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1309\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{084E}。Ӏ\x{712A9}", %p)}, undef, "to_ascii\(\'\\u084E\。Ӏ\\uD984\\uDEA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1310\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{084E}。ӏ\x{712A9}", %p)}, undef, "to_ascii\(\'\\u084E\。ӏ\\uD984\\uDEA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1311\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{084E}。ӏ\x{712A9}", %p)}, undef, "to_ascii\(\'\\u084E。ӏ\\uD984\\uDEA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1312\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E7A}-。\x{C489F}\x{E034E}ᄾ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7A\-\。\\uDAD2\\uDC9F\\uDB40\\uDF4Eᄾ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1313\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-₆\x{0F95}。\x{0B3F}", %p)}, undef, "to_ascii\(\'\-₆\\u0F95\。\\u0B3F\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1314\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-6\x{0F95}。\x{0B3F}", %p)}, undef, "to_ascii\(\'\-6\\u0F95\。\\u0B3F\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1315\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{10E71}\x{E0EC8}멈.\x{09CD}\x{718A4}", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE71\\uDB43\\uDEC8멈\.\\u09CD\\uD986\\uDCA4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1316\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{10E71}\x{E0EC8}멈.\x{09CD}\x{718A4}", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE71\\uDB43\\uDEC8멈\.\\u09CD\\uD986\\uDCA4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1318\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.\x{06D3}\x{10E77}", %p)}, undef, "to_ascii\(\'\≮\.\\u06D3\\uD803\\uDE77\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1320\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.\x{06D2}\x{0654}\x{10E77}", %p)}, undef, "to_ascii\(\'\<\\u0338\.\\u06D2\\u0654\\uD803\\uDE77\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1321\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10C39}⾆。\x{200C}\x{0ACD}\x{B9E17}\x{108DA}", %p)}, undef, "to_ascii\(\'\\uD803\\uDC39⾆。\\u200C\\u0ACD\\uDAA7\\uDE17\\uD802\\uDCDA\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1322\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10C39}舌。\x{200C}\x{0ACD}\x{B9E17}\x{108DA}", %p)}, undef, "to_ascii\(\'\\uD803\\uDC39舌\。\\u200C\\u0ACD\\uDAA7\\uDE17\\uD802\\uDCDA\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1324\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴠ-.9ς\x{10F8C}ς", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.9ς\\uD803\\uDF8Cς\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1326\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ⴠ-.9ς\x{10F8C}ς", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.9ς\\uD803\\uDF8Cς\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1328\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴠ-.9Σ\x{10F8C}Σ", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.9Σ\\uD803\\uDF8CΣ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1330\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ⴠ-.9σ\x{10F8C}σ", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.9σ\\uD803\\uDF8Cσ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1332\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0354}\x{E011B}\x{1E7F6}。𝟮Ⴜ", %p)}, undef, "to_ascii\(\'\\u0354\\uDB40\\uDD1B\\uD839\\uDFF6。𝟮Ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1334\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0354}\x{E011B}\x{1E7F6}。2Ⴜ", %p)}, undef, "to_ascii\(\'\\u0354\\uDB40\\uDD1B\\uD839\\uDFF6\。2Ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1335\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0354}\x{E011B}\x{1E7F6}。2ⴜ", %p)}, undef, "to_ascii\(\'\\u0354\\uDB40\\uDD1B\\uD839\\uDFF6\。2ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1336\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0354}\x{E011B}\x{1E7F6}。𝟮ⴜ", %p)}, undef, "to_ascii\(\'\\u0354\\uDB40\\uDD1B\\uD839\\uDFF6。𝟮ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1337\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䪏\x{1ED87}\x{06AA}\x{2CEF}。뭕\x{0633}\x{0DD4}", %p)}, undef, "to_ascii\(\'䪏\\uD83B\\uDD87\\u06AA\\u2CEF。뭕\\u0633\\u0DD4\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1338\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䪏\x{1ED87}\x{06AA}\x{2CEF}。뭕\x{0633}\x{0DD4}", %p)}, undef, "to_ascii\(\'䪏\\uD83B\\uDD87\\u06AA\\u2CEF。뭕\\u0633\\u0DD4\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1339\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䪏\x{1ED87}\x{06AA}\x{2CEF}。뭕\x{0633}\x{0DD4}", %p)}, undef, "to_ascii\(\'䪏\\uD83B\\uDD87\\u06AA\\u2CEF\。뭕\\u0633\\u0DD4\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1340\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䪏\x{1ED87}\x{06AA}\x{2CEF}。뭕\x{0633}\x{0DD4}", %p)}, undef, "to_ascii\(\'䪏\\uD83B\\uDD87\\u06AA\\u2CEF\。뭕\\u0633\\u0DD4\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1341\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}。\x{E0391}\x{E0102}", %p)}, undef, "to_ascii\(\'\\u0BCD。\\uDB40\\uDF91\\uDB40\\uDD02\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1342\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}。\x{E0391}\x{E0102}", %p)}, undef, "to_ascii\(\'\\u0BCD\。\\uDB40\\uDF91\\uDB40\\uDD02\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1343\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9DD52}\x{E0180}。ς\x{200D}\x{10E78}\x{0ACD}", %p)}, undef, "to_ascii\(\'\\uDA37\\uDD52\\uDB40\\uDD80\。ς\\u200D\\uD803\\uDE78\\u0ACD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1344\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9DD52}\x{E0180}。Σ\x{200D}\x{10E78}\x{0ACD}", %p)}, undef, "to_ascii\(\'\\uDA37\\uDD52\\uDB40\\uDD80\。Σ\\u200D\\uD803\\uDE78\\u0ACD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1346\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9DD52}\x{E0180}。σ\x{200D}\x{10E78}\x{0ACD}", %p)}, undef, "to_ascii\(\'\\uDA37\\uDD52\\uDB40\\uDD80\。σ\\u200D\\uD803\\uDE78\\u0ACD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1348\]") 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}ᡚ\x{1714}.\x{10A3F}", %p)}, undef, "to_ascii\(\'\\u07E1ᡚ\\u1714.\\uD802\\uDE3F\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1350\]") 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}ᡚ\x{1714}.\x{10A3F}", %p)}, undef, "to_ascii\(\'\\u07E1ᡚ\\u1714\.\\uD802\\uDE3F\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1351\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𢶂籕\x{BED4C}-。\x{200C}", %p)}, undef, "to_ascii\(\'𢶂籕\\uDABB\\uDD4C\-\。\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1352\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0601}.\x{FBFD}", %p)}, undef, "to_ascii\(\'\\u0601.\\uFBFD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1354\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0601}.\x{06CC}", %p)}, undef, "to_ascii\(\'\\u0601\.\\u06CC\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1355\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ᠱ。Ↄ", %p)}, undef, "to_ascii\(\'\-ᠱ。Ↄ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1356\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ᠱ。Ↄ", %p)}, undef, "to_ascii\(\'\-ᠱ\。Ↄ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1357\]") 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)}, undef, "to_ascii\(\'\-ᠱ\。ↄ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1358\]") 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)}, undef, "to_ascii\(\'\-ᠱ。ↄ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1359\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}-︒\x{E019D}。ß哑\x{200C}\x{1E9CE}", %p)}, undef, "to_ascii\(\'\\u200D\-︒\\uDB40\\uDD9D\。ß哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1360\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-。\x{E019D}。ß哑\x{200C}\x{1E9CE}", %p)}, undef, "to_ascii\(\'\\u200D\-\。\\uDB40\\uDD9D\。ß哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:1362\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-。\x{E019D}。SS哑\x{200C}\x{1E9CE}", %p)}, undef, "to_ascii\(\'\\u200D\-\。\\uDB40\\uDD9D\。SS哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:1364\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-。\x{E019D}。ss哑\x{200C}\x{1E9CE}", %p)}, undef, "to_ascii\(\'\\u200D\-\。\\uDB40\\uDD9D\。ss哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:1366\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-。\x{E019D}。Ss哑\x{200C}\x{1E9CE}", %p)}, undef, "to_ascii\(\'\\u200D\-\。\\uDB40\\uDD9D\。Ss哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:1368\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-︒\x{E019D}。SS哑\x{200C}\x{1E9CE}", %p)}, undef, "to_ascii\(\'\\u200D\-︒\\uDB40\\uDD9D\。SS哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1370\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-︒\x{E019D}。ss哑\x{200C}\x{1E9CE}", %p)}, undef, "to_ascii\(\'\\u200D\-︒\\uDB40\\uDD9D\。ss哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1372\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-︒\x{E019D}。Ss哑\x{200C}\x{1E9CE}", %p)}, undef, "to_ascii\(\'\\u200D\-︒\\uDB40\\uDD9D\。Ss哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1374\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒.\x{1DC3}\x{ABED}", %p)}, undef, "to_ascii\(\'︒.\\u1DC3\\uABED\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1376\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒.\x{ABED}\x{1DC3}", %p)}, undef, "to_ascii\(\'︒.\\uABED\\u1DC3\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1377\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}\x{1DC3}", %p)}, undef, "to_ascii\(\'\。\.\\uABED\\u1DC3\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1378\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0670}。\x{200D}", %p)}, undef, "to_ascii\(\'\\u0670\。\\u200D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1379\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}🜼。\x{10E38}", %p)}, undef, "to_ascii\(\'\\u200D🜼。\\uD803\\uDE38\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1381\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}🜼。\x{10E38}", %p)}, undef, "to_ascii\(\'\\u200D🜼\。\\uD803\\uDE38\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1383\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-Ⴄ𝟫\x{0602}.\x{1713}ς", %p)}, undef, "to_ascii\(\'\-Ⴄ𝟫\\u0602.\\u1713ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1385\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-Ⴄ9\x{0602}.\x{1713}ς", %p)}, undef, "to_ascii\(\'\-Ⴄ9\\u0602\.\\u1713ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1386\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ⴄ9\x{0602}.\x{1713}ς", %p)}, undef, "to_ascii\(\'\-ⴄ9\\u0602\.\\u1713ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1387\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-Ⴄ9\x{0602}.\x{1713}Σ", %p)}, undef, "to_ascii\(\'\-Ⴄ9\\u0602\.\\u1713Σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1388\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ⴄ9\x{0602}.\x{1713}σ", %p)}, undef, "to_ascii\(\'\-ⴄ9\\u0602\.\\u1713σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1389\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ⴄ𝟫\x{0602}.\x{1713}ς", %p)}, undef, "to_ascii\(\'\-ⴄ𝟫\\u0602.\\u1713ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1390\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-Ⴄ𝟫\x{0602}.\x{1713}Σ", %p)}, undef, "to_ascii\(\'\-Ⴄ𝟫\\u0602.\\u1713Σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1391\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ⴄ𝟫\x{0602}.\x{1713}σ", %p)}, undef, "to_ascii\(\'\-ⴄ𝟫\\u0602.\\u1713σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1392\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{38E5E}。-", %p)}, undef, "to_ascii\(\'\\uD8A3\\uDE5E\。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1393\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠🄊.\x{AF652}\x{A982}ß≯", %p)}, undef, "to_ascii\(\'\⋠🄊.\\uDA7D\\uDE52\\uA982ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1394\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≼\x{0338}🄊.\x{AF652}\x{A982}ß>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338🄊.\\uDA7D\\uDE52\\uA982ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1395\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠9,.\x{AF652}\x{A982}ß≯", %p)}, undef, "to_ascii\(\'\⋠9\,\.\\uDA7D\\uDE52\\uA982ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1396\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≼\x{0338}9,.\x{AF652}\x{A982}ß>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u03389\,\.\\uDA7D\\uDE52\\uA982ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1397\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≼\x{0338}9,.\x{AF652}\x{A982}SS>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u03389\,\.\\uDA7D\\uDE52\\uA982SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1398\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠9,.\x{AF652}\x{A982}SS≯", %p)}, undef, "to_ascii\(\'\⋠9\,\.\\uDA7D\\uDE52\\uA982SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1399\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠9,.\x{AF652}\x{A982}ss≯", %p)}, undef, "to_ascii\(\'\⋠9\,\.\\uDA7D\\uDE52\\uA982ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1400\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≼\x{0338}9,.\x{AF652}\x{A982}ss>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u03389\,\.\\uDA7D\\uDE52\\uA982ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1401\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≼\x{0338}9,.\x{AF652}\x{A982}Ss>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u03389\,\.\\uDA7D\\uDE52\\uA982Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1402\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠9,.\x{AF652}\x{A982}Ss≯", %p)}, undef, "to_ascii\(\'\⋠9\,\.\\uDA7D\\uDE52\\uA982Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1403\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≼\x{0338}🄊.\x{AF652}\x{A982}SS>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338🄊.\\uDA7D\\uDE52\\uA982SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1404\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠🄊.\x{AF652}\x{A982}SS≯", %p)}, undef, "to_ascii\(\'\⋠🄊.\\uDA7D\\uDE52\\uA982SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1405\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠🄊.\x{AF652}\x{A982}ss≯", %p)}, undef, "to_ascii\(\'\⋠🄊.\\uDA7D\\uDE52\\uA982ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1406\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≼\x{0338}🄊.\x{AF652}\x{A982}ss>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338🄊.\\uDA7D\\uDE52\\uA982ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1407\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≼\x{0338}🄊.\x{AF652}\x{A982}Ss>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338🄊.\\uDA7D\\uDE52\\uA982Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1408\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠🄊.\x{AF652}\x{A982}Ss≯", %p)}, undef, "to_ascii\(\'\⋠🄊.\\uDA7D\\uDE52\\uA982Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1409\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄈₅\x{0669}。\x{E03DD}\x{FB56}\x{EDACF}", %p)}, undef, "to_ascii\(\'🄈₅\\u0669。\\uDB40\\uDFDD\\uFB56\\uDB76\\uDECF\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1410\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("7,5\x{0669}。\x{E03DD}\x{067E}\x{EDACF}", %p)}, undef, "to_ascii\(\'7\,5\\u0669\。\\uDB40\\uDFDD\\u067E\\uDB76\\uDECF\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1411\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("儭-。\x{10E62}Ⴢ\x{46253}\x{200C}", %p)}, undef, "to_ascii\(\'儭\-。\\uD803\\uDE62Ⴢ\\uD8D8\\uDE53\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1412\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("儭-。\x{10E62}Ⴢ\x{46253}\x{200C}", %p)}, undef, "to_ascii\(\'儭\-\。\\uD803\\uDE62Ⴢ\\uD8D8\\uDE53\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1414\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("儭-。\x{10E62}ⴢ\x{46253}\x{200C}", %p)}, undef, "to_ascii\(\'儭\-\。\\uD803\\uDE62ⴢ\\uD8D8\\uDE53\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1416\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("儭-。\x{10E62}ⴢ\x{46253}\x{200C}", %p)}, undef, "to_ascii\(\'儭\-。\\uD803\\uDE62ⴢ\\uD8D8\\uDE53\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1418\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟓₅\x{072E}.ᢢ\x{A6CFA}", %p)}, undef, "to_ascii\(\'𝟓₅\\u072E.ᢢ\\uDA5B\\uDCFA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1420\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("55\x{072E}.ᢢ\x{A6CFA}", %p)}, undef, "to_ascii\(\'55\\u072E\.ᢢ\\uDA5B\\uDCFA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1421\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯-\x{06C4}\x{17BD}.⒈\x{0664}", %p)}, undef, "to_ascii\(\'\≯\-\\u06C4\\u17BD\.⒈\\u0664\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1422\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}-\x{06C4}\x{17BD}.⒈\x{0664}", %p)}, undef, "to_ascii\(\'\>\\u0338\-\\u06C4\\u17BD\.⒈\\u0664\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1423\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯-\x{06C4}\x{17BD}.1.\x{0664}", %p)}, undef, "to_ascii\(\'\≯\-\\u06C4\\u17BD\.1\.\\u0664\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1424\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}-\x{06C4}\x{17BD}.1.\x{0664}", %p)}, undef, "to_ascii\(\'\>\\u0338\-\\u06C4\\u17BD\.1\.\\u0664\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1425\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0117}.\x{6AA1B}蚀", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD17.\\uD96A\\uDE1B蚀\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1426\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0117}.\x{6AA1B}蚀", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD17\.\\uD96A\\uDE1B蚀\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1427\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0752}Ⴘ.\x{1EA34}\x{ABED}ß\x{0962}", %p)}, undef, "to_ascii\(\'\\u0752Ⴘ\.\\uD83A\\uDE34\\uABEDß\\u0962\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1428\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0752}ⴘ.\x{1EA34}\x{ABED}ß\x{0962}", %p)}, undef, "to_ascii\(\'\\u0752ⴘ\.\\uD83A\\uDE34\\uABEDß\\u0962\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1429\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0752}Ⴘ.\x{1EA34}\x{ABED}SS\x{0962}", %p)}, undef, "to_ascii\(\'\\u0752Ⴘ\.\\uD83A\\uDE34\\uABEDSS\\u0962\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1430\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0752}ⴘ.\x{1EA34}\x{ABED}ss\x{0962}", %p)}, undef, "to_ascii\(\'\\u0752ⴘ\.\\uD83A\\uDE34\\uABEDss\\u0962\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1431\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0752}Ⴘ.\x{1EA34}\x{ABED}Ss\x{0962}", %p)}, undef, "to_ascii\(\'\\u0752Ⴘ\.\\uD83A\\uDE34\\uABEDSs\\u0962\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1432\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1034}\x{10E6B}\x{40BCC}。凬", %p)}, undef, "to_ascii\(\'\\u1034\\uD803\\uDE6B\\uD8C2\\uDFCC。凬\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1433\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1034}\x{10E6B}\x{40BCC}。凬", %p)}, undef, "to_ascii\(\'\\u1034\\uD803\\uDE6B\\uD8C2\\uDFCC\。凬\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1434\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0927}𝟕\x{200D}ᡞ。\x{0B4D}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDD27𝟕\\u200Dᡞ。\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1435\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0927}7\x{200D}ᡞ。\x{0B4D}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDD277\\u200Dᡞ\。\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1437\]") 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{08A4}。\x{11046}ᠶ", %p)}, undef, "to_ascii\(\'\\u08A4\。\\uD804\\uDC46ᠶ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1439\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E019F}≮.\x{065A}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD9F\≮\.\\u065A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1440\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E019F}<\x{0338}.\x{065A}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD9F\<\\u0338\.\\u065A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1441\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴢ≯褦.ᡚ\x{069F}Ⴞ\x{06B2}", %p)}, undef, "to_ascii\(\'Ⴢ\≯褦.ᡚ\\u069FႾ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1442\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴢ>\x{0338}褦.ᡚ\x{069F}Ⴞ\x{06B2}", %p)}, undef, "to_ascii\(\'Ⴢ\>\\u0338褦.ᡚ\\u069FႾ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1443\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴢ≯褦.ᡚ\x{069F}Ⴞ\x{06B2}", %p)}, undef, "to_ascii\(\'Ⴢ\≯褦\.ᡚ\\u069FႾ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1444\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴢ>\x{0338}褦.ᡚ\x{069F}Ⴞ\x{06B2}", %p)}, undef, "to_ascii\(\'Ⴢ\>\\u0338褦\.ᡚ\\u069FႾ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1445\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴢ>\x{0338}褦.ᡚ\x{069F}ⴞ\x{06B2}", %p)}, undef, "to_ascii\(\'ⴢ\>\\u0338褦\.ᡚ\\u069Fⴞ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1446\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴢ≯褦.ᡚ\x{069F}ⴞ\x{06B2}", %p)}, undef, "to_ascii\(\'ⴢ\≯褦\.ᡚ\\u069Fⴞ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1447\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴢ>\x{0338}褦.ᡚ\x{069F}ⴞ\x{06B2}", %p)}, undef, "to_ascii\(\'ⴢ\>\\u0338褦.ᡚ\\u069Fⴞ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1448\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴢ≯褦.ᡚ\x{069F}ⴞ\x{06B2}", %p)}, undef, "to_ascii\(\'ⴢ\≯褦.ᡚ\\u069Fⴞ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1449\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{55CFB}\x{1DC1}\x{200C}\x{1734}。ꡚꡋ\x{0633}", %p)}, undef, "to_ascii\(\'\\uD917\\uDCFB\\u1DC1\\u200C\\u1734\。ꡚꡋ\\u0633\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1450\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.≯", %p)}, undef, "to_ascii\(\'\\u200C\.\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1452\]") 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\:1454\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{EFA25}\x{B70CE}-.\x{094D}-悜", %p)}, undef, "to_ascii\(\'\\uDB7E\\uDE25\\uDA9C\\uDCCE\-.\\u094D\-悜\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1456\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{EFA25}\x{B70CE}-.\x{094D}-悜", %p)}, undef, "to_ascii\(\'\\uDB7E\\uDE25\\uDA9C\\uDCCE\-\.\\u094D\-悜\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1457\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BD}\x{E8BB0}\x{E09BB}\x{07D7}.-\x{200D}\x{E0128}\x{2DF9}", %p)}, undef, "to_ascii\(\'\\u06BD\\uDB62\\uDFB0\\uDB42\\uDDBB\\u07D7\.\-\\u200D\\uDB40\\uDD28\\u2DF9\'\)\ throws\ error\ P1\ V6\ V3\ B2\ \[data\/IdnaTest\.txt\:1458\]") 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\:1460\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2\x{200C}衃Ⴝ.\x{0682}Ⴔ", %p)}, undef, "to_ascii\(\'2\\u200C衃Ⴝ\.\\u0682Ⴔ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1462\]") 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("2\x{200C}衃ⴝ.\x{0682}ⴔ", %p)}, undef, "to_ascii\(\'2\\u200C衃ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1464\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("2\x{200C}衃Ⴝ.\x{0682}ⴔ", %p)}, undef, "to_ascii\(\'2\\u200C衃Ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1466\]") 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{0682}ⴔ", %p)}, undef, "to_ascii\(\'𝟸\\u200C衃ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1468\]") 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\:1470\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0638}\x{200C}。--⼼", %p)}, undef, "to_ascii\(\'\\u0638\\u200C\。\-\-⼼\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1472\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0638}\x{200C}。--心", %p)}, undef, "to_ascii\(\'\\u0638\\u200C\。\-\-心\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1474\]") 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{FBE3}.\x{08A5}", %p)}, "xn--8kb.xn--uyb", "to_ascii\(\'\\uFBE3.\\u08A5\'\)\ \[data\/IdnaTest\.txt\:1476\]") 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{06C9}.\x{08A5}", %p)}, "xn--8kb.xn--uyb", "to_ascii\(\'\\u06C9\.\\u08A5\'\)\ \[data\/IdnaTest\.txt\:1477\]") 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--8kb.xn--uyb", %p)}, "xn--8kb.xn--uyb", "to_ascii\(\'xn\-\-8kb\.xn\-\-uyb\'\)\ \[data\/IdnaTest\.txt\:1478\]") 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{1037}-.-\x{116B6}", %p)}, undef, "to_ascii\(\'\\u1037\-.\-\\uD805\\uDEB6\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1479\]") 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{1037}-.-\x{116B6}", %p)}, undef, "to_ascii\(\'\\u1037\-\.\-\\uD805\\uDEB6\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1480\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E0B7F}ᡰ-.\x{1D173}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDF7Fᡰ\-\.\\uD834\\uDD73\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1481\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡒ\x{E068A}🔃\x{10E6C}.\x{1BF3}₇\x{3C3D0}", %p)}, undef, "to_ascii\(\'ᡒ\\uDB41\\uDE8A🔃\\uD803\\uDE6C\.\\u1BF3₇\\uD8B0\\uDFD0\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1482\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡒ\x{E068A}🔃\x{10E6C}.\x{1BF3}7\x{3C3D0}", %p)}, undef, "to_ascii\(\'ᡒ\\uDB41\\uDE8A🔃\\uD803\\uDE6C\.\\u1BF37\\uD8B0\\uDFD0\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1483\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E01BB}🄃。\x{0816}\x{200C}\x{10994}\x{200D}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDBB🄃\。\\u0816\\u200C\\uD802\\uDD94\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1484\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E01BB}2,。\x{0816}\x{200C}\x{10994}\x{200D}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDBB2\,\。\\u0816\\u200C\\uD802\\uDD94\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1486\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴚ₄\x{FE0C}。4\x{30F75}\x{1BF3}", %p)}, undef, "to_ascii\(\'Ⴚ₄\\uFE0C\。4\\uD883\\uDF75\\u1BF3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1488\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴚ4\x{FE0C}。4\x{30F75}\x{1BF3}", %p)}, undef, "to_ascii\(\'Ⴚ4\\uFE0C\。4\\uD883\\uDF75\\u1BF3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1489\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴚ4\x{FE0C}。4\x{30F75}\x{1BF3}", %p)}, undef, "to_ascii\(\'ⴚ4\\uFE0C\。4\\uD883\\uDF75\\u1BF3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1490\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴚ₄\x{FE0C}。4\x{30F75}\x{1BF3}", %p)}, undef, "to_ascii\(\'ⴚ₄\\uFE0C\。4\\uD883\\uDF75\\u1BF3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1491\]") 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}-\x{07E3}🝦.\x{E015F}\x{0FA3}", %p)}, undef, "to_ascii\(\'\\u200D\-\\u07E3🝦\.\\uDB40\\uDD5F\\u0FA3\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1492\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≠.\x{0768}", %p)}, undef, "to_ascii\(\'\≠\.\\u0768\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1494\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}.\x{0768}", %p)}, undef, "to_ascii\(\'\=\\u0338\.\\u0768\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1495\]") 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{07D5}\x{064B}。㌪", %p)}, "xn--nhb10f.xn--eck4c5a", "to_ascii\(\'\\u07D5\\u064B。㌪\'\)\ \[data\/IdnaTest\.txt\:1496\]") 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{07D5}\x{064B}。ハイツ", %p)}, "xn--nhb10f.xn--eck4c5a", "to_ascii\(\'\\u07D5\\u064B\。ハイツ\'\)\ \[data\/IdnaTest\.txt\:1497\]") 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--nhb10f.xn--eck4c5a", %p)}, "xn--nhb10f.xn--eck4c5a", "to_ascii\(\'xn\-\-nhb10f\.xn\-\-eck4c5a\'\)\ \[data\/IdnaTest\.txt\:1498\]") 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{07D5}\x{064B}.ハイツ", %p)}, "xn--nhb10f.xn--eck4c5a", "to_ascii\(\'\\u07D5\\u064B\.ハイツ\'\)\ \[data\/IdnaTest\.txt\:1499\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1E9EF}\x{05BA}≮.\x{ABED}-", %p)}, undef, "to_ascii\(\'\\uD83A\\uDDEF\\u05BA\≮\.\\uABED\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1500\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E9EF}\x{05BA}<\x{0338}.\x{ABED}-", %p)}, undef, "to_ascii\(\'\\uD83A\\uDDEF\\u05BA\<\\u0338\.\\uABED\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1501\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟲榎\x{37B15}\x{110B9}。ᡚ\x{1D189}\x{1E87E}\x{E0BA8}", %p)}, undef, "to_ascii\(\'𝟲榎\\uD89E\\uDF15\\uD804\\uDCB9。ᡚ\\uD834\\uDD89\\uD83A\\uDC7E\\uDB42\\uDFA8\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1502\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6榎\x{37B15}\x{110B9}。ᡚ\x{1D189}\x{1E87E}\x{E0BA8}", %p)}, undef, "to_ascii\(\'6榎\\uD89E\\uDF15\\uD804\\uDCB9\。ᡚ\\uD834\\uDD89\\uD83A\\uDC7E\\uDB42\\uDFA8\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1503\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E90F3}.\x{5A710}", %p)}, undef, "to_ascii\(\'\\uDB64\\uDCF3.\\uD929\\uDF10\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1504\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E90F3}.\x{5A710}", %p)}, undef, "to_ascii\(\'\\uDB64\\uDCF3\.\\uD929\\uDF10\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1505\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}︒。\x{069F}\x{200C}", %p)}, undef, "to_ascii\(\'\\u200D︒。\\u069F\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1506\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。。\x{069F}\x{200C}", %p)}, "xn--1jb", "to_ascii\(\'\\u200D\。\。\\u069F\\u200C\'\)\ \[data\/IdnaTest\.txt\:1508\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--1jb", %p)}, "xn--1jb", "to_ascii\(\'xn\-\-1jb\'\)\ \[data\/IdnaTest\.txt\:1510\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{069F}", %p)}, "xn--1jb", "to_ascii\(\'\\u069F\'\)\ \[data\/IdnaTest\.txt\:1511\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0669}\x{200C}\x{10E69}。\x{20CD}", %p)}, undef, "to_ascii\(\'\\u0669\\u200C\\uD803\\uDE69\。\\u20CD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1512\]") 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{05A5}\x{1DC1}𝟼。-🂄", %p)}, undef, "to_ascii\(\'\\u1BAA\\u05A5\\u1DC1𝟼\。\-🂄\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1514\]") 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{05A5}\x{1DC1}6。-🂄", %p)}, undef, "to_ascii\(\'\\u1BAA\\u05A5\\u1DC16\。\-🂄\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1515\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{37EC1}。뙏", %p)}, undef, "to_ascii\(\'\\uD89F\\uDEC1\。뙏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1516\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{37EC1}。뙏", %p)}, undef, "to_ascii\(\'\\uD89F\\uDEC1\。뙏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1517\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{32E54}\x{E0113}\x{92B14}\x{067E}.\x{076A}", %p)}, undef, "to_ascii\(\'\\uD88B\\uDE54\\uDB40\\uDD13\\uDA0A\\uDF14\\u067E\.\\u076A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1518\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。\x{E10E7}", %p)}, undef, "to_ascii\(\'\\u200D。\\uDB44\\uDCE7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1519\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。\x{E10E7}", %p)}, undef, "to_ascii\(\'\\u200D\。\\uDB44\\uDCE7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1521\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡦ皥.-", %p)}, undef, "to_ascii\(\'ᡦ皥.\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1523\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡦ皥.-", %p)}, undef, "to_ascii\(\'ᡦ皥\.\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1524\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FB68}\x{E0128}ᠧ.⒈ᡕ", %p)}, undef, "to_ascii\(\'\\uFB68\\uDB40\\uDD28ᠧ.⒈ᡕ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1525\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0679}\x{E0128}ᠧ.1.ᡕ", %p)}, undef, "to_ascii\(\'\\u0679\\uDB40\\uDD28ᠧ\.1\.ᡕ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1526\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}ā\x{0663}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0ā\\u0663\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1527\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}a\x{0304}\x{0663}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0a\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1529\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}ā\x{0663}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160ā\\u0663\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1531\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}a\x{0304}\x{0663}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160a\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1533\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}a\x{0304}\x{0663}", %p)}, undef, "to_ascii\(\'ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160a\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1535\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}ā\x{0663}", %p)}, undef, "to_ascii\(\'ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160ā\\u0663\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1537\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}Ā\x{0663}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160Ā\\u0663\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1539\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}A\x{0304}\x{0663}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160A\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1541\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}a\x{0304}\x{0663}", %p)}, undef, "to_ascii\(\'ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0a\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1543\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}ā\x{0663}", %p)}, undef, "to_ascii\(\'ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0ā\\u0663\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1545\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}Ā\x{0663}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0Ā\\u0663\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1547\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}A\x{0304}\x{0663}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0A\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1549\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⳿\x{200C}。曳⾑₁≯", %p)}, undef, "to_ascii\(\'⳿\\u200C。曳⾑₁\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1551\]") 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\:1553\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⳿\x{200C}。曳襾1≯", %p)}, undef, "to_ascii\(\'⳿\\u200C\。曳襾1\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1555\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⳿\x{200C}。曳襾1>\x{0338}", %p)}, undef, "to_ascii\(\'⳿\\u200C\。曳襾1\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1557\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯⒈。ß", %p)}, undef, "to_ascii\(\'\≯⒈\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1559\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}⒈。ß", %p)}, undef, "to_ascii\(\'\>\\u0338⒈\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1560\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯1.。ß", %p)}, undef, "to_ascii\(\'\≯1\.\。ß\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1561\]") 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\:1562\]") 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\:1563\]") 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\:1564\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}⒈。SS", %p)}, undef, "to_ascii\(\'\>\\u0338⒈\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1565\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯⒈。SS", %p)}, undef, "to_ascii\(\'\≯⒈\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1566\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E7D}\x{200D}\x{1E986}。\x{077E}-1Ⴙ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7D\\u200D\\uD83A\\uDD86。\\u077E\-1Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1567\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E7D}\x{200D}\x{1E986}。\x{077E}-1Ⴙ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7D\\u200D\\uD83A\\uDD86\。\\u077E\-1Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1569\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E7D}\x{200D}\x{1E986}。\x{077E}-1ⴙ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7D\\u200D\\uD83A\\uDD86\。\\u077E\-1ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1571\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E7D}\x{200D}\x{1E986}。\x{077E}-1ⴙ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7D\\u200D\\uD83A\\uDD86。\\u077E\-1ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1573\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。≠", %p)}, undef, "to_ascii\(\'\\u200C。\≠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1575\]") 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\:1577\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。≠", %p)}, undef, "to_ascii\(\'\\u200C\。\≠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1579\]") 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\:1581\]") 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{0A4D}\x{E0111}.\x{0721}\x{0C4D}\x{A94E}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0A4D\\uDB40\\uDD11\.\\u0721\\u0C4D\\uA94E\\u200C\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1583\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{794E7}\x{200D}\x{8CA2E}.\x{1A5D}Ↄ≠-", %p)}, undef, "to_ascii\(\'\\uD9A5\\uDCE7\\u200D\\uD9F2\\uDE2E\.\\u1A5DↃ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:1585\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{794E7}\x{200D}\x{8CA2E}.\x{1A5D}Ↄ=\x{0338}-", %p)}, undef, "to_ascii\(\'\\uD9A5\\uDCE7\\u200D\\uD9F2\\uDE2E\.\\u1A5DↃ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:1587\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{794E7}\x{200D}\x{8CA2E}.\x{1A5D}ↄ=\x{0338}-", %p)}, undef, "to_ascii\(\'\\uD9A5\\uDCE7\\u200D\\uD9F2\\uDE2E\.\\u1A5Dↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:1589\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{794E7}\x{200D}\x{8CA2E}.\x{1A5D}ↄ≠-", %p)}, undef, "to_ascii\(\'\\uD9A5\\uDCE7\\u200D\\uD9F2\\uDE2E\.\\u1A5Dↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:1591\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡏς\x{200D}۴。蔑\x{CEDEE}", %p)}, undef, "to_ascii\(\'ꡏς\\u200D۴\。蔑\\uDAFB\\uDDEE\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1593\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡏΣ\x{200D}۴。蔑\x{CEDEE}", %p)}, undef, "to_ascii\(\'ꡏΣ\\u200D۴\。蔑\\uDAFB\\uDDEE\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1595\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡏσ\x{200D}۴。蔑\x{CEDEE}", %p)}, undef, "to_ascii\(\'ꡏσ\\u200D۴\。蔑\\uDAFB\\uDDEE\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1597\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06DD}.\x{10E62}", %p)}, undef, "to_ascii\(\'\\u06DD\.\\uD803\\uDE62\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1599\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ᡂ.\x{63FCE}", %p)}, undef, "to_ascii\(\'\-ᡂ\.\\uD94F\\uDFCE\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1600\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{FDC4}\x{FE0C}。誆⒈", %p)}, undef, "to_ascii\(\'\≯\\uFDC4\\uFE0C\。誆⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1601\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{FDC4}\x{FE0C}。誆⒈", %p)}, undef, "to_ascii\(\'\>\\u0338\\uFDC4\\uFE0C\。誆⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1602\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{0639}\x{062C}\x{0645}\x{FE0C}。誆1.", %p)}, undef, "to_ascii\(\'\≯\\u0639\\u062C\\u0645\\uFE0C\。誆1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1603\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{0639}\x{062C}\x{0645}\x{FE0C}。誆1.", %p)}, undef, "to_ascii\(\'\>\\u0338\\u0639\\u062C\\u0645\\uFE0C\。誆1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1604\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F99}\x{1EE41}䐊\x{2DF6}.︒\x{07E2}㉼\x{06AB}", %p)}, undef, "to_ascii\(\'\\u0F99\\uD83B\\uDE41䐊\\u2DF6.︒\\u07E2㉼\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1605\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F99}\x{1EE41}䐊\x{2DF6}.。\x{07E2}참고\x{06AB}", %p)}, undef, "to_ascii\(\'\\u0F99\\uD83B\\uDE41䐊\\u2DF6\.\。\\u07E2참고\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ B1\ A4_2\ B2\ \[data\/IdnaTest\.txt\:1606\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F99}\x{1EE41}䐊\x{2DF6}.。\x{07E2}참고\x{06AB}", %p)}, undef, "to_ascii\(\'\\u0F99\\uD83B\\uDE41䐊\\u2DF6\.\。\\u07E2참고\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ B1\ A4_2\ B2\ \[data\/IdnaTest\.txt\:1607\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("퀬-\x{DF7E}\x{7E510}.\x{200C}\x{E015A}\x{69297}𝟤", %p)}, undef, "to_ascii\(\'퀬\-\\uDF7E\\uD9B9\\uDD10\.\\u200C\\uDB40\\uDD5A\\uD964\\uDE97𝟤\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:1608\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("퀬-\x{DF7E}\x{7E510}.\x{200C}\x{E015A}\x{69297}𝟤", %p)}, undef, "to_ascii\(\'퀬\-\\uDF7E\\uD9B9\\uDD10\.\\u200C\\uDB40\\uDD5A\\uD964\\uDE97𝟤\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:1610\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("퀬-\x{DF7E}\x{7E510}.\x{200C}\x{E015A}\x{69297}2", %p)}, undef, "to_ascii\(\'퀬\-\\uDF7E\\uD9B9\\uDD10\.\\u200C\\uDB40\\uDD5A\\uD964\\uDE972\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:1612\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("퀬-\x{DF7E}\x{7E510}.\x{200C}\x{E015A}\x{69297}2", %p)}, undef, "to_ascii\(\'퀬\-\\uDF7E\\uD9B9\\uDD10\.\\u200C\\uDB40\\uDD5A\\uD964\\uDE972\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:1614\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("퀬", %p)}, "xn--8n7b", "to_ascii\(\'퀬\'\)\ \[data\/IdnaTest\.txt\:1616\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("퀬", %p)}, "xn--8n7b", "to_ascii\(\'퀬\'\)\ \[data\/IdnaTest\.txt\:1617\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--8n7b", %p)}, "xn--8n7b", "to_ascii\(\'xn\-\-8n7b\'\)\ \[data\/IdnaTest\.txt\:1618\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴌ.\x{0600}︒\x{09CD}\x{1E9F4}", %p)}, undef, "to_ascii\(\'Ⴌ\.\\u0600︒\\u09CD\\uD83A\\uDDF4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1619\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴌ.\x{0600}。\x{09CD}\x{1E9F4}", %p)}, undef, "to_ascii\(\'Ⴌ\.\\u0600\。\\u09CD\\uD83A\\uDDF4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1620\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴌ.\x{0600}。\x{09CD}\x{1E9F4}", %p)}, undef, "to_ascii\(\'ⴌ\.\\u0600\。\\u09CD\\uD83A\\uDDF4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1621\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴌ.\x{0600}︒\x{09CD}\x{1E9F4}", %p)}, undef, "to_ascii\(\'ⴌ\.\\u0600︒\\u09CD\\uD83A\\uDDF4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1622\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{6E836}\x{193A}。\x{10BAA}\x{1CD1}", %p)}, undef, "to_ascii\(\'\\uD97A\\uDC36\\u193A\。\\uD802\\uDFAA\\u1CD1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1623\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{E04CC}\x{082A}.\x{0A48}\x{0A02}\x{AAF6}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D\\uDB41\\uDCCC\\u082A.\\u0A48\\u0A02\\uAAF6\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1624\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{E04CC}\x{082A}.\x{0A48}\x{0A02}\x{AAF6}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D\\uDB41\\uDCCC\\u082A\.\\u0A48\\u0A02\\uAAF6\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1626\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{18135}。۹", %p)}, undef, "to_ascii\(\'\\uD820\\uDD35。۹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1628\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{18135}。۹", %p)}, undef, "to_ascii\(\'\\uD820\\uDD35\。۹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1629\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A68}刍.⋁", %p)}, undef, "to_ascii\(\'\\u1A68刍\.\⋁\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1630\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E07E0}5。\x{AABE}🄈", %p)}, undef, "to_ascii\(\'\\uDB41\\uDFE05。\\uAABE🄈\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1631\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E07E0}5。\x{AABE}7,", %p)}, undef, "to_ascii\(\'\\uDB41\\uDFE05\。\\uAABE7\,\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1632\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0721}𝟳Ⴔ辘.\x{1EC88}ꡬ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0721𝟳Ⴔ辘\.\\uD83B\\uDC88ꡬ\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1633\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0721}7Ⴔ辘.\x{1EC88}ꡬ\x{200C}", %p)}, undef, "to_ascii\(\'\\u07217Ⴔ辘\.\\uD83B\\uDC88ꡬ\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1635\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0721}7ⴔ辘.\x{1EC88}ꡬ\x{200C}", %p)}, undef, "to_ascii\(\'\\u07217ⴔ辘\.\\uD83B\\uDC88ꡬ\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1637\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0721}𝟳ⴔ辘.\x{1EC88}ꡬ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0721𝟳ⴔ辘\.\\uD83B\\uDC88ꡬ\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1639\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0981}.ᠨ\x{10A88}\x{96CD6}𝟝", %p)}, undef, "to_ascii\(\'\\u0981\.ᠨ\\uD802\\uDE88\\uDA1B\\uDCD6𝟝\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1641\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0981}.ᠨ\x{10A88}\x{96CD6}5", %p)}, undef, "to_ascii\(\'\\u0981\.ᠨ\\uD802\\uDE88\\uDA1B\\uDCD65\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1642\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A87D}≯.\x{91B8E}\x{900A9}", %p)}, undef, "to_ascii\(\'\\uA87D\≯.\\uDA06\\uDF8E\\uDA00\\uDCA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1643\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A87D}>\x{0338}.\x{91B8E}\x{900A9}", %p)}, undef, "to_ascii\(\'\\uA87D\>\\u0338.\\uDA06\\uDF8E\\uDA00\\uDCA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1644\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A87D}≯.\x{91B8E}\x{900A9}", %p)}, undef, "to_ascii\(\'\\uA87D\≯\.\\uDA06\\uDF8E\\uDA00\\uDCA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1645\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A87D}>\x{0338}.\x{91B8E}\x{900A9}", %p)}, undef, "to_ascii\(\'\\uA87D\>\\u0338\.\\uDA06\\uDF8E\\uDA00\\uDCA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1646\]") 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{084A}", %p)}, undef, "to_ascii\(\'ςოꡢ\.ς\\u084A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1647\]") 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{084A}", %p)}, undef, "to_ascii\(\'Σოꡢ\.Σ\\u084A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1648\]") 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{084A}", %p)}, undef, "to_ascii\(\'σოꡢ\.σ\\u084A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1649\]") 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{084A}", %p)}, undef, "to_ascii\(\'Σოꡢ\.σ\\u084A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1650\]") 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{084A}", %p)}, undef, "to_ascii\(\'Σოꡢ\.ς\\u084A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1651\]") 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{084A}", %p)}, undef, "to_ascii\(\'σოꡢ\.ς\\u084A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1652\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{6F521}\x{0316}\x{BA57D}ꡱ。㇟", %p)}, undef, "to_ascii\(\'\\uD97D\\uDD21\\u0316\\uDAA9\\uDD7Dꡱ。㇟\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1653\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{6F521}\x{0316}\x{BA57D}ꡱ。㇟", %p)}, undef, "to_ascii\(\'\\uD97D\\uDD21\\u0316\\uDAA9\\uDD7Dꡱ\。㇟\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1654\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E080A}.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_ascii\(\'\\uDB42\\uDC0A.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1655\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E080A}.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_ascii\(\'\\uDB42\\uDC0A.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1657\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E080A}.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_ascii\(\'\\uDB42\\uDC0A\.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1659\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E080A}.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_ascii\(\'\\uDB42\\uDC0A\.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1661\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E080A}.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_ascii\(\'\\uDB42\\uDC0A\.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1663\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E080A}.\x{200D}䤫≠ⴞ", %p)}, undef, "to_ascii\(\'\\uDB42\\uDC0A\.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1665\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E080A}.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_ascii\(\'\\uDB42\\uDC0A.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1667\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E080A}.\x{200D}䤫≠ⴞ", %p)}, undef, "to_ascii\(\'\\uDB42\\uDC0A.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1669\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10F30}\x{1B44}.\x{0667}\x{20E0}", %p)}, undef, "to_ascii\(\'\\uD803\\uDF30\\u1B44.\\u0667\\u20E0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1671\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10F30}\x{1B44}.\x{0667}\x{20E0}", %p)}, undef, "to_ascii\(\'\\uD803\\uDF30\\u1B44\.\\u0667\\u20E0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1672\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄉⒈\x{E01C0}。𝟷", %p)}, undef, "to_ascii\(\'🄉⒈\\uDB40\\uDDC0\。𝟷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1673\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8,1.\x{E01C0}。1", %p)}, undef, "to_ascii\(\'8\,1\.\\uDB40\\uDDC0\。1\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1674\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}\x{070F}≮.\x{06DD}\x{5D709}4𝟤", %p)}, undef, "to_ascii\(\'\-\\u200C\\u070F\≮.\\u06DD\\uD935\\uDF094𝟤\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1675\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}\x{070F}<\x{0338}.\x{06DD}\x{5D709}4𝟤", %p)}, undef, "to_ascii\(\'\-\\u200C\\u070F\<\\u0338.\\u06DD\\uD935\\uDF094𝟤\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1677\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}\x{070F}≮.\x{06DD}\x{5D709}42", %p)}, undef, "to_ascii\(\'\-\\u200C\\u070F\≮\.\\u06DD\\uD935\\uDF0942\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1679\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}\x{070F}<\x{0338}.\x{06DD}\x{5D709}42", %p)}, undef, "to_ascii\(\'\-\\u200C\\u070F\<\\u0338\.\\u06DD\\uD935\\uDF0942\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1681\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≯딾。\x{0842}", %p)}, undef, "to_ascii\(\'\-\≯딾。\\u0842\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1683\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("->\x{0338}딾。\x{0842}", %p)}, undef, "to_ascii\(\'\-\>\\u0338딾。\\u0842\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1684\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≯딾。\x{0842}", %p)}, undef, "to_ascii\(\'\-\≯딾\。\\u0842\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1685\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("->\x{0338}딾。\x{0842}", %p)}, undef, "to_ascii\(\'\-\>\\u0338딾\。\\u0842\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1686\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⽉⒈\x{10E70}-。🀴\x{200C}", %p)}, undef, "to_ascii\(\'⽉⒈\\uD803\\uDE70\-。🀴\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1687\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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.\x{10E70}-。🀴\x{200C}", %p)}, undef, "to_ascii\(\'月1\.\\uD803\\uDE70\-\。🀴\\u200C\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1689\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0FB0}.\x{033E}", %p)}, undef, "to_ascii\(\'\\u0FB0.\\u033E\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1691\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FB0}.\x{033E}", %p)}, undef, "to_ascii\(\'\\u0FB0\.\\u033E\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1692\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("훉≮。\x{031B}", %p)}, undef, "to_ascii\(\'훉\≮。\\u031B\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1693\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("훉<\x{0338}。\x{031B}", %p)}, undef, "to_ascii\(\'훉\<\\u0338。\\u031B\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1694\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("훉≮。\x{031B}", %p)}, undef, "to_ascii\(\'훉\≮\。\\u031B\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1695\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("훉<\x{0338}。\x{031B}", %p)}, undef, "to_ascii\(\'훉\<\\u0338\。\\u031B\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1696\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE20}\x{40209}\x{E03D0}.\x{B6627}۰\x{08EC}ᡁ", %p)}, undef, "to_ascii\(\'\\uFE20\\uD8C0\\uDE09\\uDB40\\uDFD0.\\uDA99\\uDE27۰\\u08ECᡁ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1697\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE20}\x{40209}\x{E03D0}.\x{B6627}۰\x{08EC}ᡁ", %p)}, undef, "to_ascii\(\'\\uFE20\\uD8C0\\uDE09\\uDB40\\uDFD0\.\\uDA99\\uDE27۰\\u08ECᡁ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1698\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A216}ß\x{0620}\x{200C}。\x{10E7A}\x{10C0A}\x{1E9E0}-", %p)}, undef, "to_ascii\(\'\\uD828\\uDE16ß\\u0620\\u200C\。\\uD803\\uDE7A\\uD803\\uDC0A\\uD83A\\uDDE0\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1699\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A216}SS\x{0620}\x{200C}。\x{10E7A}\x{10C0A}\x{1E9E0}-", %p)}, undef, "to_ascii\(\'\\uD828\\uDE16SS\\u0620\\u200C\。\\uD803\\uDE7A\\uD803\\uDC0A\\uD83A\\uDDE0\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1701\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A216}ss\x{0620}\x{200C}。\x{10E7A}\x{10C0A}\x{1E9E0}-", %p)}, undef, "to_ascii\(\'\\uD828\\uDE16ss\\u0620\\u200C\。\\uD803\\uDE7A\\uD803\\uDC0A\\uD83A\\uDDE0\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1703\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A216}Ss\x{0620}\x{200C}。\x{10E7A}\x{10C0A}\x{1E9E0}-", %p)}, undef, "to_ascii\(\'\\uD828\\uDE16Ss\\u0620\\u200C\。\\uD803\\uDE7A\\uD803\\uDC0A\\uD83A\\uDDE0\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1705\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0729}。Ↄ\x{E048B}놮-", %p)}, undef, "to_ascii\(\'\\u0729\。Ↄ\\uDB41\\uDC8B놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1707\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0729}。Ↄ\x{E048B}놮-", %p)}, undef, "to_ascii\(\'\\u0729\。Ↄ\\uDB41\\uDC8B놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1708\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0729}。ↄ\x{E048B}놮-", %p)}, undef, "to_ascii\(\'\\u0729\。ↄ\\uDB41\\uDC8B놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1709\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0729}。ↄ\x{E048B}놮-", %p)}, undef, "to_ascii\(\'\\u0729\。ↄ\\uDB41\\uDC8B놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1710\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EC01}\x{200D}.\x{99A6A}\x{06A3}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDC01\\u200D\.\\uDA26\\uDE6A\\u06A3\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1711\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴜ\x{E01CA}\x{07BB}≯。\x{0743}\x{E04C3}\x{1073}", %p)}, undef, "to_ascii\(\'Ⴜ\\uDB40\\uDDCA\\u07BB\≯\。\\u0743\\uDB41\\uDCC3\\u1073\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1713\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴜ\x{E01CA}\x{07BB}>\x{0338}。\x{0743}\x{E04C3}\x{1073}", %p)}, undef, "to_ascii\(\'Ⴜ\\uDB40\\uDDCA\\u07BB\>\\u0338\。\\u0743\\uDB41\\uDCC3\\u1073\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1714\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴜ\x{E01CA}\x{07BB}>\x{0338}。\x{0743}\x{E04C3}\x{1073}", %p)}, undef, "to_ascii\(\'ⴜ\\uDB40\\uDDCA\\u07BB\>\\u0338\。\\u0743\\uDB41\\uDCC3\\u1073\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1715\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴜ\x{E01CA}\x{07BB}≯。\x{0743}\x{E04C3}\x{1073}", %p)}, undef, "to_ascii\(\'ⴜ\\uDB40\\uDDCA\\u07BB\≯\。\\u0743\\uDB41\\uDCC3\\u1073\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1716\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟺。\x{FCEA}", %p)}, "4.xn--zgb2b", "to_ascii\(\'𝟺\。\\uFCEA\'\)\ \[data\/IdnaTest\.txt\:1717\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4。\x{0634}\x{0647}", %p)}, "4.xn--zgb2b", "to_ascii\(\'4\。\\u0634\\u0647\'\)\ \[data\/IdnaTest\.txt\:1718\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4.xn--zgb2b", %p)}, "4.xn--zgb2b", "to_ascii\(\'4\.xn\-\-zgb2b\'\)\ \[data\/IdnaTest\.txt\:1719\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4.\x{0634}\x{0647}", %p)}, "4.xn--zgb2b", "to_ascii\(\'4\.\\u0634\\u0647\'\)\ \[data\/IdnaTest\.txt\:1720\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0A42}.\x{DD212}\x{09C3}\x{2E48}\x{DE331}", %p)}, undef, "to_ascii\(\'\≮\\u0A42.\\uDB34\\uDE12\\u09C3\\u2E48\\uDB38\\uDF31\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1721\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0A42}.\x{DD212}\x{09C3}\x{2E48}\x{DE331}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0A42.\\uDB34\\uDE12\\u09C3\\u2E48\\uDB38\\uDF31\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1722\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0A42}.\x{DD212}\x{09C3}\x{2E48}\x{DE331}", %p)}, undef, "to_ascii\(\'\≮\\u0A42\.\\uDB34\\uDE12\\u09C3\\u2E48\\uDB38\\uDF31\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1723\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0A42}.\x{DD212}\x{09C3}\x{2E48}\x{DE331}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0A42\.\\uDB34\\uDE12\\u09C3\\u2E48\\uDB38\\uDF31\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1724\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B6D}\x{05BA}ᢕ.\x{E016D}\x{10E72}\x{E0D0D}", %p)}, undef, "to_ascii\(\'\\u1B6D\\u05BAᢕ.\\uDB40\\uDD6D\\uD803\\uDE72\\uDB43\\uDD0D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1725\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05BA}\x{1B6D}ᢕ.\x{E016D}\x{10E72}\x{E0D0D}", %p)}, undef, "to_ascii\(\'\\u05BA\\u1B6Dᢕ.\\uDB40\\uDD6D\\uD803\\uDE72\\uDB43\\uDD0D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1726\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05BA}\x{1B6D}ᢕ.\x{E016D}\x{10E72}\x{E0D0D}", %p)}, undef, "to_ascii\(\'\\u05BA\\u1B6Dᢕ\.\\uDB40\\uDD6D\\uD803\\uDE72\\uDB43\\uDD0D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1727\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10EB5}\x{08A5}\x{200C}\x{0842}.\x{110B9}\x{E01A9}", %p)}, undef, "to_ascii\(\'\\uD803\\uDEB5\\u08A5\\u200C\\u0842.\\uD804\\uDCB9\\uDB40\\uDDA9\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1728\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10EB5}\x{08A5}\x{200C}\x{0842}.\x{110B9}\x{E01A9}", %p)}, undef, "to_ascii\(\'\\uD803\\uDEB5\\u08A5\\u200C\\u0842\.\\uD804\\uDCB9\\uDB40\\uDDA9\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1729\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{ABED}。\x{200D}\x{9F82E}\x{E0391}\x{8D875}", %p)}, undef, "to_ascii\(\'\\uABED。\\u200D\\uDA3E\\uDC2E\\uDB40\\uDF91\\uD9F6\\uDC75\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1730\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{ABED}。\x{200D}\x{9F82E}\x{E0391}\x{8D875}", %p)}, undef, "to_ascii\(\'\\uABED\。\\u200D\\uDA3E\\uDC2E\\uDB40\\uDF91\\uD9F6\\uDC75\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1732\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{FB58}。𝟪", %p)}, undef, "to_ascii\(\'\-\\uFB58\。𝟪\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1734\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{067E}。8", %p)}, undef, "to_ascii\(\'\-\\u067E\。8\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1735\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E5ABF}\x{07D7}\x{200C}。ꡲ\x{200D}", %p)}, undef, "to_ascii\(\'\\uDB56\\uDEBF\\u07D7\\u200C。ꡲ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1736\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E5ABF}\x{07D7}\x{200C}。ꡲ\x{200D}", %p)}, undef, "to_ascii\(\'\\uDB56\\uDEBF\\u07D7\\u200C\。ꡲ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1738\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{0C4C}\x{0827}。ᡨ8🄆", %p)}, undef, "to_ascii\(\'ß\\u0C4C\\u0827\。ᡨ8🄆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1740\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{0C4C}\x{0827}。ᡨ85,", %p)}, undef, "to_ascii\(\'ß\\u0C4C\\u0827\。ᡨ85\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1741\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{0C4C}\x{0827}。ᡨ85,", %p)}, undef, "to_ascii\(\'SS\\u0C4C\\u0827\。ᡨ85\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1742\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{0C4C}\x{0827}。ᡨ85,", %p)}, undef, "to_ascii\(\'ss\\u0C4C\\u0827\。ᡨ85\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1743\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{0C4C}\x{0827}。ᡨ85,", %p)}, undef, "to_ascii\(\'Ss\\u0C4C\\u0827\。ᡨ85\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1744\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{0C4C}\x{0827}。ᡨ8🄆", %p)}, undef, "to_ascii\(\'SS\\u0C4C\\u0827\。ᡨ8🄆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1745\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{0C4C}\x{0827}。ᡨ8🄆", %p)}, undef, "to_ascii\(\'ss\\u0C4C\\u0827\。ᡨ8🄆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1746\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{0C4C}\x{0827}。ᡨ8🄆", %p)}, undef, "to_ascii\(\'Ss\\u0C4C\\u0827\。ᡨ8🄆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1747\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}\x{0B3C}魅⒔.₉\x{0600}ß", %p)}, undef, "to_ascii\(\'\\u1A60\\u0B3C魅⒔.₉\\u0600ß\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1748\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B3C}\x{1A60}魅⒔.₉\x{0600}ß", %p)}, undef, "to_ascii\(\'\\u0B3C\\u1A60魅⒔.₉\\u0600ß\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1749\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B3C}\x{1A60}魅13..9\x{0600}ß", %p)}, undef, "to_ascii\(\'\\u0B3C\\u1A60魅13\.\.9\\u0600ß\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1750\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B3C}\x{1A60}魅13..9\x{0600}SS", %p)}, undef, "to_ascii\(\'\\u0B3C\\u1A60魅13\.\.9\\u0600SS\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1751\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B3C}\x{1A60}魅13..9\x{0600}ss", %p)}, undef, "to_ascii\(\'\\u0B3C\\u1A60魅13\.\.9\\u0600ss\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1752\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B3C}\x{1A60}魅13..9\x{0600}Ss", %p)}, undef, "to_ascii\(\'\\u0B3C\\u1A60魅13\.\.9\\u0600Ss\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1753\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B3C}\x{1A60}魅⒔.₉\x{0600}SS", %p)}, undef, "to_ascii\(\'\\u0B3C\\u1A60魅⒔.₉\\u0600SS\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1754\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B3C}\x{1A60}魅⒔.₉\x{0600}ss", %p)}, undef, "to_ascii\(\'\\u0B3C\\u1A60魅⒔.₉\\u0600ss\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1755\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B3C}\x{1A60}魅⒔.₉\x{0600}Ss", %p)}, undef, "to_ascii\(\'\\u0B3C\\u1A60魅⒔.₉\\u0600Ss\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1756\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}\x{0B3C}魅⒔.₉\x{0600}SS", %p)}, undef, "to_ascii\(\'\\u1A60\\u0B3C魅⒔.₉\\u0600SS\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1757\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}\x{0B3C}魅⒔.₉\x{0600}ss", %p)}, undef, "to_ascii\(\'\\u1A60\\u0B3C魅⒔.₉\\u0600ss\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1758\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}\x{0B3C}魅⒔.₉\x{0600}Ss", %p)}, undef, "to_ascii\(\'\\u1A60\\u0B3C魅⒔.₉\\u0600Ss\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1759\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07E7}。\x{AAF6}⒈\x{0CCD}⾞", %p)}, undef, "to_ascii\(\'\\u07E7。\\uAAF6⒈\\u0CCD⾞\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1760\]") 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{07E7}。\x{AAF6}1.\x{0CCD}車", %p)}, undef, "to_ascii\(\'\\u07E7\。\\uAAF61\.\\u0CCD車\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1761\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0C4B}છ。嵨", %p)}, undef, "to_ascii\(\'\\u0C4Bછ\。嵨\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1762\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ≠Ⴀ.\x{0666}\x{0662}", %p)}, undef, "to_ascii\(\'Ⴔ\≠Ⴀ\.\\u0666\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1763\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ=\x{0338}Ⴀ.\x{0666}\x{0662}", %p)}, undef, "to_ascii\(\'Ⴔ\=\\u0338Ⴀ\.\\u0666\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1764\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴔ=\x{0338}ⴀ.\x{0666}\x{0662}", %p)}, undef, "to_ascii\(\'ⴔ\=\\u0338ⴀ\.\\u0666\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1765\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴔ≠ⴀ.\x{0666}\x{0662}", %p)}, undef, "to_ascii\(\'ⴔ\≠ⴀ\.\\u0666\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1766\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}⒙\x{E01BA}。\x{20EA}", %p)}, undef, "to_ascii\(\'\-\\u200C⒙\\uDB40\\uDDBA。\\u20EA\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1767\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}18.\x{E01BA}。\x{20EA}", %p)}, undef, "to_ascii\(\'\-\\u200C18\.\\uDB40\\uDDBA\。\\u20EA\'\)\ throws\ error\ V3\ V5\ A4_2\ \[data\/IdnaTest\.txt\:1769\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒.ʌ\x{0635}-\x{0669}", %p)}, undef, "to_ascii\(\'︒\.ʌ\\u0635\-\\u0669\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1771\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。.ʌ\x{0635}-\x{0669}", %p)}, undef, "to_ascii\(\'\。\.ʌ\\u0635\-\\u0669\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1772\]") 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{0635}-\x{0669}", %p)}, undef, "to_ascii\(\'\。\.Ʌ\\u0635\-\\u0669\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1773\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("︒.Ʌ\x{0635}-\x{0669}", %p)}, undef, "to_ascii\(\'︒\.Ʌ\\u0635\-\\u0669\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1774\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0347}︒。\x{37450}\x{1CD6}", %p)}, undef, "to_ascii\(\'\\u0347︒\。\\uD89D\\uDC50\\u1CD6\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1775\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0347}。。\x{37450}\x{1CD6}", %p)}, undef, "to_ascii\(\'\\u0347\。\。\\uD89D\\uDC50\\u1CD6\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1776\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E8DD}ß\x{E3676}。ᠯ", %p)}, undef, "to_ascii\(\'\\uD83A\\uDCDDß\\uDB4D\\uDE76\。ᠯ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1777\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E8DD}SS\x{E3676}。ᠯ", %p)}, undef, "to_ascii\(\'\\uD83A\\uDCDDSS\\uDB4D\\uDE76\。ᠯ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1778\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E8DD}ss\x{E3676}。ᠯ", %p)}, undef, "to_ascii\(\'\\uD83A\\uDCDDss\\uDB4D\\uDE76\。ᠯ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1779\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E8DD}Ss\x{E3676}。ᠯ", %p)}, undef, "to_ascii\(\'\\uD83A\\uDCDDSs\\uDB4D\\uDE76\。ᠯ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1780\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0C4D}\x{200D}ꡂ\x{10E7E}。\x{79186}\x{9A953}\x{200C}\x{0308}", %p)}, undef, "to_ascii\(\'\\u0C4D\\u200Dꡂ\\uD803\\uDE7E\。\\uD9A4\\uDD86\\uDA2A\\uDD53\\u200C\\u0308\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1781\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-ß\x{200C}≠", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1783\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-ß\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1785\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-ß\x{200C}≠", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1\.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1787\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-ß\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1\.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1789\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-SS\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1\.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1791\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-SS\x{200C}≠", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1\.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1793\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1\.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1795\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1\.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1797\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1\.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1799\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-Ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1\.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1801\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-SS\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1803\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-SS\x{200C}≠", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1805\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1807\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1809\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1811\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-Ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1813\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}\x{200C}。≯𝟡≠", %p)}, undef, "to_ascii\(\'\\u0641\\u200C。\≯𝟡\≠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1815\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}\x{200C}。>\x{0338}𝟡=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0641\\u200C。\>\\u0338𝟡\=\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1817\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}\x{200C}。≯9≠", %p)}, undef, "to_ascii\(\'\\u0641\\u200C\。\≯9\≠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1819\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}\x{200C}。>\x{0338}9=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0641\\u200C\。\>\\u03389\=\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1821\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E74}\x{1E84A}\x{1CDC}\x{8F885}。\x{E0063}⁴", %p)}, undef, "to_ascii\(\'\\uD803\\uDE74\\uD83A\\uDC4A\\u1CDC\\uD9FE\\uDC85\。\\uDB40\\uDC63⁴\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1823\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E74}\x{1E84A}\x{1CDC}\x{8F885}。\x{E0063}4", %p)}, undef, "to_ascii\(\'\\uD803\\uDE74\\uD83A\\uDC4A\\u1CDC\\uD9FE\\uDC85\。\\uDB40\\uDC634\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1824\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴄ.\x{200D}ᡇ𦥍ς", %p)}, undef, "to_ascii\(\'Ⴄ.\\u200Dᡇ𦥍ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1825\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴄ.\x{200D}ᡇ𦥍ς", %p)}, undef, "to_ascii\(\'Ⴄ\.\\u200Dᡇ𦥍ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1827\]") 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--vkj.xn--4xa716hww74b", "to_ascii\(\'ⴄ\.\\u200Dᡇ𦥍ς\'\)\ \[data\/IdnaTest\.txt\:1829\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴄ.\x{200D}ᡇ𦥍Σ", %p)}, undef, "to_ascii\(\'Ⴄ\.\\u200Dᡇ𦥍Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1831\]") 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--vkj.xn--4xa716hww74b", "to_ascii\(\'ⴄ\.\\u200Dᡇ𦥍σ\'\)\ \[data\/IdnaTest\.txt\:1833\]") 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--vkj.xn--4xa716hww74b", %p)}, "xn--vkj.xn--4xa716hww74b", "to_ascii\(\'xn\-\-vkj\.xn\-\-4xa716hww74b\'\)\ \[data\/IdnaTest\.txt\:1835\]") 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--vkj.xn--4xa716hww74b", "to_ascii\(\'ⴄ\.ᡇ𦥍σ\'\)\ \[data\/IdnaTest\.txt\:1836\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴄ.ᡇ𦥍Σ", %p)}, undef, "to_ascii\(\'Ⴄ\.ᡇ𦥍Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1837\]") 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--vkj.xn--4xa716hww74b", "to_ascii\(\'ⴄ.\\u200Dᡇ𦥍ς\'\)\ \[data\/IdnaTest\.txt\:1838\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴄ.\x{200D}ᡇ𦥍Σ", %p)}, undef, "to_ascii\(\'Ⴄ.\\u200Dᡇ𦥍Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1840\]") 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--vkj.xn--4xa716hww74b", "to_ascii\(\'ⴄ.\\u200Dᡇ𦥍σ\'\)\ \[data\/IdnaTest\.txt\:1842\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{946D2}\x{E01B7}.Ⴕ", %p)}, undef, "to_ascii\(\'\\uDA11\\uDED2\\uDB40\\uDDB7\.Ⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1844\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{946D2}\x{E01B7}.ⴕ", %p)}, undef, "to_ascii\(\'\\uDA11\\uDED2\\uDB40\\uDDB7\.ⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1845\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{E0070}\x{1E98E}。\x{200C}\x{1B44}⻱\x{200D}", %p)}, undef, "to_ascii\(\'\≯\\uDB40\\uDC70\\uD83A\\uDD8E\。\\u200C\\u1B44⻱\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1846\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{E0070}\x{1E98E}。\x{200C}\x{1B44}⻱\x{200D}", %p)}, undef, "to_ascii\(\'\>\\u0338\\uDB40\\uDC70\\uD83A\\uDD8E\。\\u200C\\u1B44⻱\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1848\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{05B0}。\x{E6583}", %p)}, undef, "to_ascii\(\'\\u200C\\u05B0。\\uDB59\\uDD83\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1850\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{05B0}。\x{E6583}", %p)}, undef, "to_ascii\(\'\\u200C\\u05B0\。\\uDB59\\uDD83\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1852\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{E01C1}焅.\x{583E9}\x{200D}ꡑ", %p)}, undef, "to_ascii\(\'⒈\\uDB40\\uDDC1焅\.\\uD920\\uDFE9\\u200Dꡑ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1854\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{E01C1}焅.\x{583E9}\x{200D}ꡑ", %p)}, undef, "to_ascii\(\'1\.\\uDB40\\uDDC1焅\.\\uD920\\uDFE9\\u200Dꡑ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1856\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}ς≮.ς\x{E0184}\x{0762}𝟽", %p)}, undef, "to_ascii\(\'\\u1DDAς\≮\.ς\\uDB40\\uDD84\\u0762𝟽\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1858\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}ς<\x{0338}.ς\x{E0184}\x{0762}𝟽", %p)}, undef, "to_ascii\(\'\\u1DDAς\<\\u0338\.ς\\uDB40\\uDD84\\u0762𝟽\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1859\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}ς≮.ς\x{E0184}\x{0762}7", %p)}, undef, "to_ascii\(\'\\u1DDAς\≮\.ς\\uDB40\\uDD84\\u07627\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1860\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}ς<\x{0338}.ς\x{E0184}\x{0762}7", %p)}, undef, "to_ascii\(\'\\u1DDAς\<\\u0338\.ς\\uDB40\\uDD84\\u07627\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1861\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}Σ<\x{0338}.Σ\x{E0184}\x{0762}7", %p)}, undef, "to_ascii\(\'\\u1DDAΣ\<\\u0338\.Σ\\uDB40\\uDD84\\u07627\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1862\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}Σ≮.Σ\x{E0184}\x{0762}7", %p)}, undef, "to_ascii\(\'\\u1DDAΣ\≮\.Σ\\uDB40\\uDD84\\u07627\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1863\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}σ≮.σ\x{E0184}\x{0762}7", %p)}, undef, "to_ascii\(\'\\u1DDAσ\≮\.σ\\uDB40\\uDD84\\u07627\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1864\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}σ<\x{0338}.σ\x{E0184}\x{0762}7", %p)}, undef, "to_ascii\(\'\\u1DDAσ\<\\u0338\.σ\\uDB40\\uDD84\\u07627\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1865\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}Σ<\x{0338}.Σ\x{E0184}\x{0762}𝟽", %p)}, undef, "to_ascii\(\'\\u1DDAΣ\<\\u0338\.Σ\\uDB40\\uDD84\\u0762𝟽\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1866\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}Σ≮.Σ\x{E0184}\x{0762}𝟽", %p)}, undef, "to_ascii\(\'\\u1DDAΣ\≮\.Σ\\uDB40\\uDD84\\u0762𝟽\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1867\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}σ≮.σ\x{E0184}\x{0762}𝟽", %p)}, undef, "to_ascii\(\'\\u1DDAσ\≮\.σ\\uDB40\\uDD84\\u0762𝟽\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1868\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}σ<\x{0338}.σ\x{E0184}\x{0762}𝟽", %p)}, undef, "to_ascii\(\'\\u1DDAσ\<\\u0338\.σ\\uDB40\\uDD84\\u0762𝟽\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1869\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{D69D1}ß\x{033D}\x{0767}.\x{E014E}\x{0755}", %p)}, undef, "to_ascii\(\'\\uDB1A\\uDDD1ß\\u033D\\u0767\.\\uDB40\\uDD4E\\u0755\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1870\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{D69D1}SS\x{033D}\x{0767}.\x{E014E}\x{0755}", %p)}, undef, "to_ascii\(\'\\uDB1A\\uDDD1SS\\u033D\\u0767\.\\uDB40\\uDD4E\\u0755\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1871\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{D69D1}ss\x{033D}\x{0767}.\x{E014E}\x{0755}", %p)}, undef, "to_ascii\(\'\\uDB1A\\uDDD1ss\\u033D\\u0767\.\\uDB40\\uDD4E\\u0755\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1872\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{D69D1}Ss\x{033D}\x{0767}.\x{E014E}\x{0755}", %p)}, undef, "to_ascii\(\'\\uDB1A\\uDDD1Ss\\u033D\\u0767\.\\uDB40\\uDD4E\\u0755\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1873\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{FC12}。⒈", %p)}, undef, "to_ascii\(\'\-\\uFC12。⒈\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1874\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{062B}\x{0645}。1.", %p)}, undef, "to_ascii\(\'\-\\u062B\\u0645\。1\.\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1875\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{87A26}\x{0682}𝟲。\x{06EF}\x{1734}", %p)}, undef, "to_ascii\(\'\\uD9DE\\uDE26\\u0682𝟲\。\\u06EF\\u1734\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1876\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{87A26}\x{0682}6。\x{06EF}\x{1734}", %p)}, undef, "to_ascii\(\'\\uD9DE\\uDE26\\u06826\。\\u06EF\\u1734\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1877\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E64}\x{10F90}\x{0666}\x{0EB9}.\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE64\\uD803\\uDF90\\u0666\\u0EB9\.\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1878\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₅.Ⴇ\x{32E8C}\x{10D51}\x{ECE9B}", %p)}, undef, "to_ascii\(\'₅.Ⴇ\\uD88B\\uDE8C\\uD803\\uDD51\\uDB73\\uDE9B\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1880\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("5.Ⴇ\x{32E8C}\x{10D51}\x{ECE9B}", %p)}, undef, "to_ascii\(\'5\.Ⴇ\\uD88B\\uDE8C\\uD803\\uDD51\\uDB73\\uDE9B\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1881\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("5.ⴇ\x{32E8C}\x{10D51}\x{ECE9B}", %p)}, undef, "to_ascii\(\'5\.ⴇ\\uD88B\\uDE8C\\uD803\\uDD51\\uDB73\\uDE9B\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1882\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₅.ⴇ\x{32E8C}\x{10D51}\x{ECE9B}", %p)}, undef, "to_ascii\(\'₅.ⴇ\\uD88B\\uDE8C\\uD803\\uDD51\\uDB73\\uDE9B\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1883\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F84}\x{E052B}.\x{E0169}ꡇ", %p)}, undef, "to_ascii\(\'\\u0F84\\uDB41\\uDD2B\.\\uDB40\\uDD69ꡇ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1884\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-\x{075F}.\x{67A96}", %p)}, undef, "to_ascii\(\'\\u200D\-\\u075F\.\\uD95E\\uDE96\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1885\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BA}ꡛ\x{074E}寐。\x{200C}≯\x{E01FF}", %p)}, undef, "to_ascii\(\'\\u06BAꡛ\\u074E寐。\\u200C\≯\\uDB40\\uDDFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1887\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BA}ꡛ\x{074E}寐。\x{200C}>\x{0338}\x{E01FF}", %p)}, undef, "to_ascii\(\'\\u06BAꡛ\\u074E寐。\\u200C\>\\u0338\\uDB40\\uDDFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1889\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BA}ꡛ\x{074E}寐。\x{200C}≯\x{E01FF}", %p)}, undef, "to_ascii\(\'\\u06BAꡛ\\u074E寐\。\\u200C\≯\\uDB40\\uDDFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1891\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BA}ꡛ\x{074E}寐。\x{200C}>\x{0338}\x{E01FF}", %p)}, undef, "to_ascii\(\'\\u06BAꡛ\\u074E寐\。\\u200C\>\\u0338\\uDB40\\uDDFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1893\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。穛ႺႴ\x{1ECBF}", %p)}, undef, "to_ascii\(\'\\u200D。穛ႺႴ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1895\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。穛ႺႴ\x{1ECBF}", %p)}, undef, "to_ascii\(\'\\u200D\。穛ႺႴ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1897\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。穛ⴚⴔ\x{1ECBF}", %p)}, undef, "to_ascii\(\'\\u200D\。穛ⴚⴔ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1899\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。穛Ⴚⴔ\x{1ECBF}", %p)}, undef, "to_ascii\(\'\\u200D\。穛Ⴚⴔ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1901\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。穛ⴚⴔ\x{1ECBF}", %p)}, undef, "to_ascii\(\'\\u200D。穛ⴚⴔ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1903\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。穛Ⴚⴔ\x{1ECBF}", %p)}, undef, "to_ascii\(\'\\u200D。穛Ⴚⴔ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1905\]") 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("-4.\x{200D}ヌ\x{08AC}", %p)}, undef, "to_ascii\(\'\-4\.\\u200Dヌ\\u08AC\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:1907\]") 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("-4.\x{200D}ヌ\x{08AC}", %p)}, undef, "to_ascii\(\'\-4\.\\u200Dヌ\\u08AC\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:1909\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("︐\x{10E64}ß\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_ascii\(\'︐\\uD803\\uDE64ß\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:1911\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(",\x{10E64}ß\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_ascii\(\'\,\\uD803\\uDE64ß\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:1913\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(",\x{10E64}SS\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_ascii\(\'\,\\uD803\\uDE64SS\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:1915\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(",\x{10E64}ss\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_ascii\(\'\,\\uD803\\uDE64ss\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:1917\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(",\x{10E64}Ss\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_ascii\(\'\,\\uD803\\uDE64Ss\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:1919\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︐\x{10E64}SS\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_ascii\(\'︐\\uD803\\uDE64SS\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:1921\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︐\x{10E64}ss\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_ascii\(\'︐\\uD803\\uDE64ss\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:1923\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︐\x{10E64}Ss\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_ascii\(\'︐\\uD803\\uDE64Ss\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:1925\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꇟ-\x{FC06}ᡉ。\x{B357A}\x{200C}", %p)}, undef, "to_ascii\(\'ꇟ\-\\uFC06ᡉ\。\\uDA8D\\uDD7A\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1927\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꇟ-\x{0628}\x{062D}ᡉ。\x{B357A}\x{200C}", %p)}, undef, "to_ascii\(\'ꇟ\-\\u0628\\u062Dᡉ\。\\uDA8D\\uDD7A\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1929\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E7C}.\x{11001}\x{FD09}\x{07AA}\x{35A0B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7C\.\\uD804\\uDC01\\uFD09\\u07AA\\uD896\\uDE0B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1931\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E7C}.\x{11001}\x{0634}\x{062C}\x{07AA}\x{35A0B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7C\.\\uD804\\uDC01\\u0634\\u062C\\u07AA\\uD896\\uDE0B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1932\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.\x{3F861}\x{0756}\x{0B4D}", %p)}, undef, "to_ascii\(\'\-\.\\uD8BE\\uDC61\\u0756\\u0B4D\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1933\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB69E}ς.\x{10C84}녫ß", %p)}, undef, "to_ascii\(\'\\uDA6D\\uDE9Eς\.\\uD803\\uDC84녫ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1934\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB69E}ς.\x{10C84}녫ß", %p)}, undef, "to_ascii\(\'\\uDA6D\\uDE9Eς\.\\uD803\\uDC84녫ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1935\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB69E}Σ.\x{10C84}녫SS", %p)}, undef, "to_ascii\(\'\\uDA6D\\uDE9EΣ\.\\uD803\\uDC84녫SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1936\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB69E}Σ.\x{10C84}녫SS", %p)}, undef, "to_ascii\(\'\\uDA6D\\uDE9EΣ\.\\uD803\\uDC84녫SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1937\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB69E}σ.\x{10C84}녫ss", %p)}, undef, "to_ascii\(\'\\uDA6D\\uDE9Eσ\.\\uD803\\uDC84녫ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1938\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB69E}σ.\x{10C84}녫ss", %p)}, undef, "to_ascii\(\'\\uDA6D\\uDE9Eσ\.\\uD803\\uDC84녫ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1939\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB69E}Σ.\x{10C84}녫Ss", %p)}, undef, "to_ascii\(\'\\uDA6D\\uDE9EΣ\.\\uD803\\uDC84녫Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1940\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB69E}Σ.\x{10C84}녫Ss", %p)}, undef, "to_ascii\(\'\\uDA6D\\uDE9EΣ\.\\uD803\\uDC84녫Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1941\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ\x{1BAA}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ\\u1BAA\\u200D。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1942\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ\x{1BAA}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ\\u1BAA\\u200D。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1944\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ\x{1BAA}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ\\u1BAA\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1946\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ\x{1BAA}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ\\u1BAA\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1948\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ\x{1BAA}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ\\u1BAA\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1950\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ\x{1BAA}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ\\u1BAA\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1952\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ\x{1BAA}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ\\u1BAA\\u200D。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1954\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ\x{1BAA}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ\\u1BAA\\u200D。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1956\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⁹\x{11133}\x{1734}\x{EEA81}.\x{200C}\x{1734}\x{07E0}", %p)}, undef, "to_ascii\(\'⁹\\uD804\\uDD33\\u1734\\uDB7A\\uDE81.\\u200C\\u1734\\u07E0\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1958\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("9\x{11133}\x{1734}\x{EEA81}.\x{200C}\x{1734}\x{07E0}", %p)}, undef, "to_ascii\(\'9\\uD804\\uDD33\\u1734\\uDB7A\\uDE81\.\\u200C\\u1734\\u07E0\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1960\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7182B}\x{E0066}.≯", %p)}, undef, "to_ascii\(\'\\uD986\\uDC2B\\uDB40\\uDC66.\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1962\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7182B}\x{E0066}.>\x{0338}", %p)}, undef, "to_ascii\(\'\\uD986\\uDC2B\\uDB40\\uDC66.\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1963\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7182B}\x{E0066}.≯", %p)}, undef, "to_ascii\(\'\\uD986\\uDC2B\\uDB40\\uDC66\.\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1964\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7182B}\x{E0066}.>\x{0338}", %p)}, undef, "to_ascii\(\'\\uD986\\uDC2B\\uDB40\\uDC66\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1965\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{1EFE4}Ⴓ.\x{0324}", %p)}, undef, "to_ascii\(\'\\u200D\\uD83B\\uDFE4Ⴓ.\\u0324\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1966\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{1EFE4}Ⴓ.\x{0324}", %p)}, undef, "to_ascii\(\'\\u200D\\uD83B\\uDFE4Ⴓ\.\\u0324\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1968\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{1EFE4}ⴓ.\x{0324}", %p)}, undef, "to_ascii\(\'\\u200D\\uD83B\\uDFE4ⴓ\.\\u0324\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1970\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{1EFE4}ⴓ.\x{0324}", %p)}, undef, "to_ascii\(\'\\u200D\\uD83B\\uDFE4ⴓ.\\u0324\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1972\]") 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{FED3}ß\x{0333}.\x{0766}", %p)}, undef, "to_ascii\(\'\\uFED3ß\\u0333.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1974\]") 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{0641}ß\x{0333}.\x{0766}", %p)}, undef, "to_ascii\(\'\\u0641ß\\u0333\.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1975\]") 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{0641}SS\x{0333}.\x{0766}", %p)}, undef, "to_ascii\(\'\\u0641SS\\u0333\.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1976\]") 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{0641}ss\x{0333}.\x{0766}", %p)}, undef, "to_ascii\(\'\\u0641ss\\u0333\.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1977\]") 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{0641}Ss\x{0333}.\x{0766}", %p)}, undef, "to_ascii\(\'\\u0641Ss\\u0333\.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1978\]") 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{FED3}SS\x{0333}.\x{0766}", %p)}, undef, "to_ascii\(\'\\uFED3SS\\u0333.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1979\]") 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{FED3}ss\x{0333}.\x{0766}", %p)}, undef, "to_ascii\(\'\\uFED3ss\\u0333.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1980\]") 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{FED3}Ss\x{0333}.\x{0766}", %p)}, undef, "to_ascii\(\'\\uFED3Ss\\u0333.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1981\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0CCD}\x{E01AD}鸮\x{1039}.ς", %p)}, undef, "to_ascii\(\'\\u0CCD\\uDB40\\uDDAD鸮\\u1039\.ς\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1982\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}\x{E01AD}鸮\x{1039}.Σ", %p)}, undef, "to_ascii\(\'\\u0CCD\\uDB40\\uDDAD鸮\\u1039\.Σ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1983\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}\x{E01AD}鸮\x{1039}.σ", %p)}, undef, "to_ascii\(\'\\u0CCD\\uDB40\\uDDAD鸮\\u1039\.σ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1984\]") 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{11134}", %p)}, undef, "to_ascii\(\'𝟐ꡩ\。\-\\uD804\\uDD34\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1985\]") 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("2ꡩ。-\x{11134}", %p)}, undef, "to_ascii\(\'2ꡩ\。\-\\uD804\\uDD34\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1986\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0779}ᡲ⟙。\x{10E6D}\x{0775}⒈", %p)}, undef, "to_ascii\(\'\\u0779ᡲ\⟙。\\uD803\\uDE6D\\u0775⒈\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1987\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0779}ᡲ⟙。\x{10E6D}\x{0775}1.", %p)}, undef, "to_ascii\(\'\\u0779ᡲ\⟙\。\\uD803\\uDE6D\\u07751\.\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1988\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{2433}\x{109409}𝟣\x{10E78}.ᢉ8\x{05AC}\x{06DD}", %p)}, undef, "to_ascii\(\'\\u2433\\uDBE5\\uDC09𝟣\\uD803\\uDE78\.ᢉ8\\u05AC\\u06DD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1989\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2433}\x{109409}1\x{10E78}.ᢉ8\x{05AC}\x{06DD}", %p)}, undef, "to_ascii\(\'\\u2433\\uDBE5\\uDC091\\uD803\\uDE78\.ᢉ8\\u05AC\\u06DD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1990\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}.𝟤𝟶-\x{CCEF0}", %p)}, undef, "to_ascii\(\'\\u0603\.𝟤𝟶\-\\uDAF3\\uDEF0\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1991\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}.20-\x{CCEF0}", %p)}, undef, "to_ascii\(\'\\u0603\.20\-\\uDAF3\\uDEF0\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1992\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς-。\x{200C}⒚-", %p)}, undef, "to_ascii\(\'ς\-\。\\u200C⒚\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1993\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς-。\x{200C}19.-", %p)}, undef, "to_ascii\(\'ς\-\。\\u200C19\.\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1995\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ-。\x{200C}19.-", %p)}, undef, "to_ascii\(\'Σ\-\。\\u200C19\.\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1997\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ-。\x{200C}19.-", %p)}, undef, "to_ascii\(\'σ\-\。\\u200C19\.\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1999\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ-。\x{200C}⒚-", %p)}, undef, "to_ascii\(\'Σ\-\。\\u200C⒚\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2001\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ-。\x{200C}⒚-", %p)}, undef, "to_ascii\(\'σ\-\。\\u200C⒚\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2003\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}-\x{E0079}.\x{0AC5}Ⴄ", %p)}, undef, "to_ascii\(\'\\u0DCA\-\\uDB40\\uDC79.\\u0AC5Ⴄ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2005\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}-\x{E0079}.\x{0AC5}Ⴄ", %p)}, undef, "to_ascii\(\'\\u0DCA\-\\uDB40\\uDC79\.\\u0AC5Ⴄ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2006\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}-\x{E0079}.\x{0AC5}ⴄ", %p)}, undef, "to_ascii\(\'\\u0DCA\-\\uDB40\\uDC79\.\\u0AC5ⴄ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2007\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}-\x{E0079}.\x{0AC5}ⴄ", %p)}, undef, "to_ascii\(\'\\u0DCA\-\\uDB40\\uDC79.\\u0AC5ⴄ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2008\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{ECD27}\x{E05E9}\x{06AF}\x{109AF}。⏆⒈", %p)}, undef, "to_ascii\(\'\\uDB73\\uDD27\\uDB41\\uDDE9\\u06AF\\uD802\\uDDAF。\⏆⒈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2009\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{ECD27}\x{E05E9}\x{06AF}\x{109AF}。⏆1.", %p)}, undef, "to_ascii\(\'\\uDB73\\uDD27\\uDB41\\uDDE9\\u06AF\\uD802\\uDDAF\。\⏆1\.\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2010\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0C4D}.\x{0646}\x{0ECA}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0C4D.\\u0646\\u0ECA\\u200C\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2011\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0C4D}.\x{0646}\x{0ECA}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0C4D\.\\u0646\\u0ECA\\u200C\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2013\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3CA91}\x{06D1}≮\x{1BAA}.\x{FEA3}", %p)}, undef, "to_ascii\(\'\\uD8B2\\uDE91\\u06D1\≮\\u1BAA.\\uFEA3\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2015\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3CA91}\x{06D1}<\x{0338}\x{1BAA}.\x{FEA3}", %p)}, undef, "to_ascii\(\'\\uD8B2\\uDE91\\u06D1\<\\u0338\\u1BAA.\\uFEA3\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2016\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3CA91}\x{06D1}≮\x{1BAA}.\x{062D}", %p)}, undef, "to_ascii\(\'\\uD8B2\\uDE91\\u06D1\≮\\u1BAA\.\\u062D\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2017\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3CA91}\x{06D1}<\x{0338}\x{1BAA}.\x{062D}", %p)}, undef, "to_ascii\(\'\\uD8B2\\uDE91\\u06D1\<\\u0338\\u1BAA\.\\u062D\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2018\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。\x{0FA9}⒈ꡍ\x{108614}", %p)}, undef, "to_ascii\(\'\\u200D\。\\u0FA9⒈ꡍ\\uDBE1\\uDE14\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2019\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。\x{0FA9}1.ꡍ\x{108614}", %p)}, undef, "to_ascii\(\'\\u200D\。\\u0FA91\.ꡍ\\uDBE1\\uDE14\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2021\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷ᠤ.\x{1EC84}≠", %p)}, undef, "to_ascii\(\'۷ᠤ.\\uD83B\\uDC84\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2023\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷ᠤ.\x{1EC84}=\x{0338}", %p)}, undef, "to_ascii\(\'۷ᠤ.\\uD83B\\uDC84\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2024\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷ᠤ.\x{1EC84}≠", %p)}, undef, "to_ascii\(\'۷ᠤ\.\\uD83B\\uDC84\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2025\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷ᠤ.\x{1EC84}=\x{0338}", %p)}, undef, "to_ascii\(\'۷ᠤ\.\\uD83B\\uDC84\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2026\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}\x{0776}\x{B8EEB}.𝟘\x{0680}\x{1086}", %p)}, undef, "to_ascii\(\'\\u06C5\\u0776\\uDAA3\\uDEEB\.𝟘\\u0680\\u1086\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2027\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}\x{0776}\x{B8EEB}.0\x{0680}\x{1086}", %p)}, undef, "to_ascii\(\'\\u06C5\\u0776\\uDAA3\\uDEEB\.0\\u0680\\u1086\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2028\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0AC3}-\x{10E66}۶.⤝\x{0825}4", %p)}, undef, "to_ascii\(\'\\u0AC3\-\\uD803\\uDE66۶\.\⤝\\u08254\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2029\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⫐。Ⴠ-\x{8642E}", %p)}, undef, "to_ascii\(\'\⫐。Ⴠ\-\\uD9D9\\uDC2E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2030\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⫐。Ⴠ-\x{8642E}", %p)}, undef, "to_ascii\(\'\⫐\。Ⴠ\-\\uD9D9\\uDC2E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2031\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⫐。ⴠ-\x{8642E}", %p)}, undef, "to_ascii\(\'\⫐\。ⴠ\-\\uD9D9\\uDC2E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2032\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⫐。ⴠ-\x{8642E}", %p)}, undef, "to_ascii\(\'\⫐。ⴠ\-\\uD9D9\\uDC2E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2033\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1039}⺡.⦟\x{E0C37}", %p)}, undef, "to_ascii\(\'\\u1039⺡.\⦟\\uDB43\\uDC37\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2034\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1039}⺡.⦟\x{E0C37}", %p)}, undef, "to_ascii\(\'\\u1039⺡\.\⦟\\uDB43\\uDC37\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2035\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DC729}-\x{10E73}。\x{87F6D}\x{068D}", %p)}, undef, "to_ascii\(\'\\uDB31\\uDF29\-\\uD803\\uDE73\。\\uD9DF\\uDF6D\\u068D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2036\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡚ。⩨\x{FE0E}\x{1EE55}\x{10E73}", %p)}, undef, "to_ascii\(\'ᡚ\。\⩨\\uFE0E\\uD83B\\uDE55\\uD803\\uDE73\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2037\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10D35}ꌄ。\x{200D}ᣬ", %p)}, undef, "to_ascii\(\'\\uD803\\uDD35ꌄ。\\u200Dᣬ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2038\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10D35}ꌄ。\x{200D}ᣬ", %p)}, undef, "to_ascii\(\'\\uD803\\uDD35ꌄ\。\\u200Dᣬ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2040\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄃\x{066B}。\x{9564C}≯-", %p)}, undef, "to_ascii\(\'🄃\\u066B\。\\uDA15\\uDE4C\≯\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2042\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄃\x{066B}。\x{9564C}>\x{0338}-", %p)}, undef, "to_ascii\(\'🄃\\u066B\。\\uDA15\\uDE4C\>\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2043\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2,\x{066B}。\x{9564C}≯-", %p)}, undef, "to_ascii\(\'2\,\\u066B\。\\uDA15\\uDE4C\≯\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2044\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2,\x{066B}。\x{9564C}>\x{0338}-", %p)}, undef, "to_ascii\(\'2\,\\u066B\。\\uDA15\\uDE4C\>\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2045\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䷎\x{0669}-\x{10DA0}.۰ꡝ", %p)}, undef, "to_ascii\(\'䷎\\u0669\-\\uD803\\uDDA0\.۰ꡝ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2046\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{05A5}\x{10E64}Ⴡ\x{110B9}", %p)}, undef, "to_ascii\(\'\≠。\\u05A5\\uD803\\uDE64Ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2047\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{05A5}\x{10E64}Ⴡ\x{110B9}", %p)}, undef, "to_ascii\(\'\=\\u0338。\\u05A5\\uD803\\uDE64Ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2048\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{05A5}\x{10E64}Ⴡ\x{110B9}", %p)}, undef, "to_ascii\(\'\≠\。\\u05A5\\uD803\\uDE64Ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2049\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{05A5}\x{10E64}Ⴡ\x{110B9}", %p)}, undef, "to_ascii\(\'\=\\u0338\。\\u05A5\\uD803\\uDE64Ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2050\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{05A5}\x{10E64}ⴡ\x{110B9}", %p)}, undef, "to_ascii\(\'\=\\u0338\。\\u05A5\\uD803\\uDE64ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2051\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{05A5}\x{10E64}ⴡ\x{110B9}", %p)}, undef, "to_ascii\(\'\≠\。\\u05A5\\uD803\\uDE64ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2052\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{05A5}\x{10E64}ⴡ\x{110B9}", %p)}, undef, "to_ascii\(\'\=\\u0338。\\u05A5\\uD803\\uDE64ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2053\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{05A5}\x{10E64}ⴡ\x{110B9}", %p)}, undef, "to_ascii\(\'\≠。\\u05A5\\uD803\\uDE64ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2054\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FA8}≠.Ⴀᠽ", %p)}, undef, "to_ascii\(\'\\u0FA8\≠\.Ⴀᠽ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2055\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FA8}=\x{0338}.Ⴀᠽ", %p)}, undef, "to_ascii\(\'\\u0FA8\=\\u0338\.Ⴀᠽ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2056\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FA8}=\x{0338}.ⴀᠽ", %p)}, undef, "to_ascii\(\'\\u0FA8\=\\u0338\.ⴀᠽ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2057\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FA8}≠.ⴀᠽ", %p)}, undef, "to_ascii\(\'\\u0FA8\≠\.ⴀᠽ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2058\]") 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{1DDD}\x{20D9}ᡀ.ᡥ閪\x{0664}꒶", %p)}, undef, "to_ascii\(\'\\u1DDD\\u20D9ᡀ.ᡥ閪\\u0664꒶\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2059\]") 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{20D9}\x{1DDD}ᡀ.ᡥ閪\x{0664}꒶", %p)}, undef, "to_ascii\(\'\\u20D9\\u1DDDᡀ.ᡥ閪\\u0664꒶\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2060\]") 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{20D9}\x{1DDD}ᡀ.ᡥ閪\x{0664}꒶", %p)}, undef, "to_ascii\(\'\\u20D9\\u1DDDᡀ\.ᡥ閪\\u0664꒶\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2061\]") 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{1DDF}\x{FB20}\x{FE00}。\x{0E38}\x{0FA6}-ᛟ", %p)}, undef, "to_ascii\(\'\\u200D\\u1DDF\\uFB20\\uFE00。\\u0E38\\u0FA6\-ᛟ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2062\]") 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{1DDF}\x{05E2}\x{FE00}。\x{0E38}\x{0FA6}-ᛟ", %p)}, undef, "to_ascii\(\'\\u200D\\u1DDF\\u05E2\\uFE00\。\\u0E38\\u0FA6\-ᛟ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2064\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("헁\x{BDB25}\x{09CD}\x{3922F}。ᡉ3", %p)}, undef, "to_ascii\(\'헁\\uDAB6\\uDF25\\u09CD\\uD8A4\\uDE2F\。ᡉ3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2066\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("헁\x{BDB25}\x{09CD}\x{3922F}。ᡉ3", %p)}, undef, "to_ascii\(\'헁\\uDAB6\\uDF25\\u09CD\\uD8A4\\uDE2F\。ᡉ3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2067\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E61}。\x{D2A2F}\x{200C}Ⴞ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE61。\\uDB0A\\uDE2F\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2068\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E61}。\x{D2A2F}\x{200C}Ⴞ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE61\。\\uDB0A\\uDE2F\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2070\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E61}。\x{D2A2F}\x{200C}ⴞ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE61\。\\uDB0A\\uDE2F\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2072\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E61}。\x{D2A2F}\x{200C}ⴞ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE61。\\uDB0A\\uDE2F\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2074\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{A953}.\x{A8EF}\x{E01C0}馋", %p)}, undef, "to_ascii\(\'\\uA953\.\\uA8EF\\uDB40\\uDDC0馋\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2076\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{76898}𢁔\x{200D}。\x{3F7F3}", %p)}, undef, "to_ascii\(\'\\uD99A\\uDC98𢁔\\u200D。\\uD8BD\\uDFF3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2077\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{76898}𢁔\x{200D}。\x{3F7F3}", %p)}, undef, "to_ascii\(\'\\uD99A\\uDC98𢁔\\u200D\。\\uD8BD\\uDFF3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2079\]") 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\:2081\]") 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("ꡖ目姶1.6.\x{200D}╅\x{200D}", %p)}, "xn--1-yn1bw30gq07b.6.xn--7xh", "to_ascii\(\'ꡖ目姶1\.6\.\\u200D\╅\\u200D\'\)\ \[data\/IdnaTest\.txt\:2083\]") 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--1-yn1bw30gq07b.6.xn--7xh", %p)}, "xn--1-yn1bw30gq07b.6.xn--7xh", "to_ascii\(\'xn\-\-1\-yn1bw30gq07b\.6\.xn\-\-7xh\'\)\ \[data\/IdnaTest\.txt\:2085\]") 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("ꡖ目姶1.6.╅", %p)}, "xn--1-yn1bw30gq07b.6.xn--7xh", "to_ascii\(\'ꡖ目姶1\.6\.\╅\'\)\ \[data\/IdnaTest\.txt\:2086\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{10F7C}.\x{10E63}≾\x{0ACD}", %p)}, undef, "to_ascii\(\'\\uD803\\uDF7C\.\\uD803\\uDE63\≾\\u0ACD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2087\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ\x{0715}。\x{10E66}\x{AA36}۰", %p)}, undef, "to_ascii\(\'Ⴔ\\u0715。\\uD803\\uDE66\\uAA36۰\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2088\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ\x{0715}。\x{10E66}\x{AA36}۰", %p)}, undef, "to_ascii\(\'Ⴔ\\u0715\。\\uD803\\uDE66\\uAA36۰\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2089\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0715}。\x{10E66}\x{AA36}۰", %p)}, undef, "to_ascii\(\'ⴔ\\u0715\。\\uD803\\uDE66\\uAA36۰\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2090\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0715}。\x{10E66}\x{AA36}۰", %p)}, undef, "to_ascii\(\'ⴔ\\u0715。\\uD803\\uDE66\\uAA36۰\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2091\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{110B5}\x{068D}\x{200C}.︒-\x{1773}-", %p)}, undef, "to_ascii\(\'\\uD804\\uDCB5\\u068D\\u200C.︒\-\\u1773\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2092\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{110B5}\x{068D}\x{200C}.。-\x{1773}-", %p)}, undef, "to_ascii\(\'\\uD804\\uDCB5\\u068D\\u200C\.\。\-\\u1773\-\'\)\ throws\ error\ V5\ V3\ B1\ A4_2\ \[data\/IdnaTest\.txt\:2094\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒈\x{0602}🄆\x{200C}.\x{0829}\x{FC4E}", %p)}, undef, "to_ascii\(\'⒈\\u0602🄆\\u200C\.\\u0829\\uFC4E\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2096\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{0602}5,\x{200C}.\x{0829}\x{0646}\x{0645}", %p)}, undef, "to_ascii\(\'1\.\\u06025\,\\u200C\.\\u0829\\u0646\\u0645\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2098\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E01A7}。-\x{1B44}Ⴋ", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDA7\。\-\\u1B44Ⴋ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2100\]") 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{E01A7}。-\x{1B44}ⴋ", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDA7\。\-\\u1B44ⴋ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2101\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ßჀ.\x{0642}刯Ⴝ", %p)}, undef, "to_ascii\(\'ßჀ\.\\u0642刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2102\]") 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{0642}刯ⴝ", %p)}, undef, "to_ascii\(\'ßⴠ\.\\u0642刯ⴝ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2103\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SSჀ.\x{0642}刯Ⴝ", %p)}, undef, "to_ascii\(\'SSჀ\.\\u0642刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2104\]") 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{0642}刯ⴝ", %p)}, undef, "to_ascii\(\'ssⴠ\.\\u0642刯ⴝ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2105\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ssⴠ.\x{0642}刯Ⴝ", %p)}, undef, "to_ascii\(\'Ssⴠ\.\\u0642刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2106\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}ႣℲ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3AႣℲ。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2107\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}ႣℲ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3AႣℲ。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2108\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}ႣℲ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3AႣℲ\。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2109\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}ႣℲ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3AႣℲ\。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2110\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3Aⴃⅎ\。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2111\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3Aⴃⅎ\。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2112\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}Ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3AႣⅎ\。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2113\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}Ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3AႣⅎ\。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2114\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3Aⴃⅎ。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2115\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3Aⴃⅎ。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2116\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}Ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3AႣⅎ。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2117\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}Ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3AႣⅎ。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2118\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0800}.\x{07CF}\x{0601}\x{06D1}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDC00\.\\u07CF\\u0601\\u06D1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2119\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢍ\x{06DF}。⒍\x{11133}", %p)}, undef, "to_ascii\(\'ᢍ\\u06DF\。⒍\\uD804\\uDD33\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2120\]") 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{06DF}。6.\x{11133}", %p)}, undef, "to_ascii\(\'ᢍ\\u06DF\。6\.\\uD804\\uDD33\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2121\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴣ\x{0600}.\x{200C}\x{E01B7}≮𝌶", %p)}, undef, "to_ascii\(\'Ⴣ\\u0600\.\\u200C\\uDB40\\uDDB7\≮𝌶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2122\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴣ\x{0600}.\x{200C}\x{E01B7}<\x{0338}𝌶", %p)}, undef, "to_ascii\(\'Ⴣ\\u0600\.\\u200C\\uDB40\\uDDB7\<\\u0338𝌶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2124\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴣ\x{0600}.\x{200C}\x{E01B7}<\x{0338}𝌶", %p)}, undef, "to_ascii\(\'ⴣ\\u0600\.\\u200C\\uDB40\\uDDB7\<\\u0338𝌶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2126\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴣ\x{0600}.\x{200C}\x{E01B7}≮𝌶", %p)}, undef, "to_ascii\(\'ⴣ\\u0600\.\\u200C\\uDB40\\uDDB7\≮𝌶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2128\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⁹隁\x{E0F3A}.\x{0341}\x{200C}", %p)}, undef, "to_ascii\(\'⁹隁\\uDB43\\uDF3A.\\u0341\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2130\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⁹隁\x{E0F3A}.\x{0301}\x{200C}", %p)}, undef, "to_ascii\(\'⁹隁\\uDB43\\uDF3A.\\u0301\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2132\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("9隁\x{E0F3A}.\x{0301}\x{200C}", %p)}, undef, "to_ascii\(\'9隁\\uDB43\\uDF3A\.\\u0301\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2134\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒌\x{0662}。Ⴣ\x{A9C0}彦", %p)}, undef, "to_ascii\(\'⒌\\u0662。Ⴣ\\uA9C0彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2136\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("5.\x{0662}。Ⴣ\x{A9C0}彦", %p)}, undef, "to_ascii\(\'5\.\\u0662\。Ⴣ\\uA9C0彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2137\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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("5.\x{0662}。ⴣ\x{A9C0}彦", %p)}, undef, "to_ascii\(\'5\.\\u0662\。ⴣ\\uA9C0彦\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2138\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒌\x{0662}。ⴣ\x{A9C0}彦", %p)}, undef, "to_ascii\(\'⒌\\u0662。ⴣ\\uA9C0彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2139\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-问\x{E072D}𝟷。\x{10E64}-\x{1C385}橬", %p)}, undef, "to_ascii\(\'\-问\\uDB41\\uDF2D𝟷\。\\uD803\\uDE64\-\\uD830\\uDF85橬\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2140\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-问\x{E072D}1。\x{10E64}-\x{1C385}橬", %p)}, undef, "to_ascii\(\'\-问\\uDB41\\uDF2D1\。\\uD803\\uDE64\-\\uD830\\uDF85橬\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2141\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF3}Ⴌ\x{200C}\x{E0150}。𝟐", %p)}, undef, "to_ascii\(\'\\u2DF3Ⴌ\\u200C\\uDB40\\uDD50\。𝟐\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2142\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF3}Ⴌ\x{200C}\x{E0150}。2", %p)}, undef, "to_ascii\(\'\\u2DF3Ⴌ\\u200C\\uDB40\\uDD50\。2\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2144\]") 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{2DF3}ⴌ\x{200C}\x{E0150}。2", %p)}, undef, "to_ascii\(\'\\u2DF3ⴌ\\u200C\\uDB40\\uDD50\。2\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2146\]") 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{2DF3}ⴌ\x{200C}\x{E0150}。𝟐", %p)}, undef, "to_ascii\(\'\\u2DF3ⴌ\\u200C\\uDB40\\uDD50\。𝟐\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2148\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{DC5F}。\x{1B44}\x{0601}𑁡", %p)}, undef, "to_ascii\(\'\\uDC5F\。\\u1B44\\u0601𑁡\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ A3\ \[data\/IdnaTest\.txt\:2150\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAF}\x{E0146}⾶。⒊︒눇≮", %p)}, undef, "to_ascii\(\'\\u0FAF\\uDB40\\uDD46⾶。⒊︒눇\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2151\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAF}\x{E0146}⾶。⒊︒눇<\x{0338}", %p)}, undef, "to_ascii\(\'\\u0FAF\\uDB40\\uDD46⾶。⒊︒눇\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2152\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAF}\x{E0146}飛。3.。눇≮", %p)}, undef, "to_ascii\(\'\\u0FAF\\uDB40\\uDD46飛\。3\.\。눇\≮\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2153\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAF}\x{E0146}飛。3.。눇<\x{0338}", %p)}, undef, "to_ascii\(\'\\u0FAF\\uDB40\\uDD46飛\。3\.\。눇\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2154\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{0F96}\x{0601}\x{200D}.\x{200C}⿃", %p)}, undef, "to_ascii\(\'\\u200C\\u0F96\\u0601\\u200D.\\u200C⿃\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2155\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{0F96}\x{0601}\x{200D}.\x{200C}鳥", %p)}, undef, "to_ascii\(\'\\u200C\\u0F96\\u0601\\u200D\.\\u200C鳥\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2157\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0931}.\x{200D}🀶\x{1EF6C}\x{1A7B}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDD31.\\u200D🀶\\uD83B\\uDF6C\\u1A7B\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2159\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0931}.\x{200D}🀶\x{1EF6C}\x{1A7B}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDD31\.\\u200D🀶\\uD83B\\uDF6C\\u1A7B\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2161\]") 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{E015B}.ꡬ\x{200D}", %p)}, "xn--i9e.xn--id9a", "to_ascii\(\'ᡵ\\uDB40\\uDD5B\.ꡬ\\u200D\'\)\ \[data\/IdnaTest\.txt\:2163\]") 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--i9e.xn--id9a", %p)}, "xn--i9e.xn--id9a", "to_ascii\(\'xn\-\-i9e\.xn\-\-id9a\'\)\ \[data\/IdnaTest\.txt\:2165\]") 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--i9e.xn--id9a", "to_ascii\(\'ᡵ\.ꡬ\'\)\ \[data\/IdnaTest\.txt\:2166\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0600}\x{1B44}-.\x{C5109}\x{1BF2}\x{AC9E9}", %p)}, undef, "to_ascii\(\'\\u0600\\u1B44\-.\\uDAD4\\uDD09\\u1BF2\\uDA72\\uDDE9\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2167\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0600}\x{1B44}-.\x{C5109}\x{1BF2}\x{AC9E9}", %p)}, undef, "to_ascii\(\'\\u0600\\u1B44\-\.\\uDAD4\\uDD09\\u1BF2\\uDA72\\uDDE9\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2168\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{11046}-\x{10E63}。\x{0E34}\x{200C}\x{10E64}≮", %p)}, undef, "to_ascii\(\'4\\uD804\\uDC46\-\\uD803\\uDE63。\\u0E34\\u200C\\uD803\\uDE64\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2169\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{11046}-\x{10E63}。\x{0E34}\x{200C}\x{10E64}<\x{0338}", %p)}, undef, "to_ascii\(\'4\\uD804\\uDC46\-\\uD803\\uDE63。\\u0E34\\u200C\\uD803\\uDE64\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2171\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{11046}-\x{10E63}。\x{0E34}\x{200C}\x{10E64}≮", %p)}, undef, "to_ascii\(\'4\\uD804\\uDC46\-\\uD803\\uDE63\。\\u0E34\\u200C\\uD803\\uDE64\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2173\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{11046}-\x{10E63}。\x{0E34}\x{200C}\x{10E64}<\x{0338}", %p)}, undef, "to_ascii\(\'4\\uD804\\uDC46\-\\uD803\\uDE63\。\\u0E34\\u200C\\uD803\\uDE64\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2175\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。\x{FFA0}\x{A953}\x{030C}", %p)}, undef, "to_ascii\(\'\\u200C\。\\uFFA0\\uA953\\u030C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2177\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。\x{1160}\x{A953}\x{030C}", %p)}, undef, "to_ascii\(\'\\u200C\。\\u1160\\uA953\\u030C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2179\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{8FE71}.\x{200D}𝈲\x{9A2B8}", %p)}, undef, "to_ascii\(\'\≯\\uD9FF\\uDE71.\\u200D𝈲\\uDA28\\uDEB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2181\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{8FE71}.\x{200D}𝈲\x{9A2B8}", %p)}, undef, "to_ascii\(\'\>\\u0338\\uD9FF\\uDE71.\\u200D𝈲\\uDA28\\uDEB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2183\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{8FE71}.\x{200D}𝈲\x{9A2B8}", %p)}, undef, "to_ascii\(\'\≯\\uD9FF\\uDE71\.\\u200D𝈲\\uDA28\\uDEB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2185\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{8FE71}.\x{200D}𝈲\x{9A2B8}", %p)}, undef, "to_ascii\(\'\>\\u0338\\uD9FF\\uDE71\.\\u200D𝈲\\uDA28\\uDEB8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2187\]") 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{07DE}。⁶\x{071F}", %p)}, undef, "to_ascii\(\'ꡞß\\u07DE。⁶\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2189\]") 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{07DE}。6\x{071F}", %p)}, undef, "to_ascii\(\'ꡞß\\u07DE\。6\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2190\]") 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("ꡞSS\x{07DE}。6\x{071F}", %p)}, undef, "to_ascii\(\'ꡞSS\\u07DE\。6\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2191\]") 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("ꡞss\x{07DE}。6\x{071F}", %p)}, undef, "to_ascii\(\'ꡞss\\u07DE\。6\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2192\]") 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("ꡞSs\x{07DE}。6\x{071F}", %p)}, undef, "to_ascii\(\'ꡞSs\\u07DE\。6\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2193\]") 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("ꡞSS\x{07DE}。⁶\x{071F}", %p)}, undef, "to_ascii\(\'ꡞSS\\u07DE。⁶\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2194\]") 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("ꡞss\x{07DE}。⁶\x{071F}", %p)}, undef, "to_ascii\(\'ꡞss\\u07DE。⁶\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2195\]") 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("ꡞSs\x{07DE}。⁶\x{071F}", %p)}, undef, "to_ascii\(\'ꡞSs\\u07DE。⁶\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2196\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ß\x{E005D}\x{1A5A}\x{1EF97}。\x{10C99}\x{126EE}\x{0666}", %p)}, undef, "to_ascii\(\'ß\\uDB40\\uDC5D\\u1A5A\\uD83B\\uDF97\。\\uD803\\uDC99\\uD809\\uDEEE\\u0666\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2197\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{E005D}\x{1A5A}\x{1EF97}。\x{10C99}\x{126EE}\x{0666}", %p)}, undef, "to_ascii\(\'SS\\uDB40\\uDC5D\\u1A5A\\uD83B\\uDF97\。\\uD803\\uDC99\\uD809\\uDEEE\\u0666\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2198\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{E005D}\x{1A5A}\x{1EF97}。\x{10C99}\x{126EE}\x{0666}", %p)}, undef, "to_ascii\(\'ss\\uDB40\\uDC5D\\u1A5A\\uD83B\\uDF97\。\\uD803\\uDC99\\uD809\\uDEEE\\u0666\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2199\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{E005D}\x{1A5A}\x{1EF97}。\x{10C99}\x{126EE}\x{0666}", %p)}, undef, "to_ascii\(\'Ss\\uDB40\\uDC5D\\u1A5A\\uD83B\\uDF97\。\\uD803\\uDC99\\uD809\\uDEEE\\u0666\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2200\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{0319}𝟖\x{1E96B}", %p)}, undef, "to_ascii\(\'\-。\\u0319𝟖\\uD83A\\uDD6B\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2201\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{0319}8\x{1E96B}", %p)}, undef, "to_ascii\(\'\-\。\\u03198\\uD83A\\uDD6B\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2202\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}ς.-≮\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05ς.\-\≮\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2203\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}ς.-<\x{0338}\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05ς.\-\<\\u0338\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2204\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}ς.-≮\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05ς\.\-\≮\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2205\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}ς.-<\x{0338}\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05ς\.\-\<\\u0338\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2206\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}Σ.-<\x{0338}\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05Σ\.\-\<\\u0338\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2207\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}Σ.-≮\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05Σ\.\-\≮\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2208\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}σ.-≮\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05σ\.\-\≮\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2209\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}σ.-<\x{0338}\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05σ\.\-\<\\u0338\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2210\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}Σ.-<\x{0338}\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05Σ.\-\<\\u0338\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2211\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}Σ.-≮\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05Σ.\-\≮\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2212\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}σ.-≮\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05σ.\-\≮\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2213\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}σ.-<\x{0338}\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05σ.\-\<\\u0338\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2214\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0772}\x{0685}\x{071A}.\x{D0158}🍼\x{A8C4}\x{1ED96}", %p)}, undef, "to_ascii\(\'\\u0772\\u0685\\u071A.\\uDB00\\uDD58🍼\\uA8C4\\uD83B\\uDD96\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2215\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0772}\x{0685}\x{071A}.\x{D0158}🍼\x{A8C4}\x{1ED96}", %p)}, undef, "to_ascii\(\'\\u0772\\u0685\\u071A\.\\uDB00\\uDD58🍼\\uA8C4\\uD83B\\uDD96\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2216\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FD2E}\x{06B0}ᢦ\x{063A}。🄅\x{08ED}\x{A949}", %p)}, undef, "to_ascii\(\'\\uFD2E\\u06B0ᢦ\\u063A\。🄅\\u08ED\\uA949\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:2217\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0634}\x{062D}\x{06B0}ᢦ\x{063A}。4,\x{08ED}\x{A949}", %p)}, undef, "to_ascii\(\'\\u0634\\u062D\\u06B0ᢦ\\u063A\。4\,\\u08ED\\uA949\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:2218\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₇\x{B4228}--。\x{0755}\x{200C}\x{FC9A}\x{1BAA}", %p)}, undef, "to_ascii\(\'₇\\uDA90\\uDE28\-\-\。\\u0755\\u200C\\uFC9A\\u1BAA\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2219\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("7\x{B4228}--。\x{0755}\x{200C}\x{0626}\x{0645}\x{1BAA}", %p)}, undef, "to_ascii\(\'7\\uDA90\\uDE28\-\-\。\\u0755\\u200C\\u0626\\u0645\\u1BAA\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2220\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("7\x{B4228}--。\x{0755}\x{200C}\x{064A}\x{0654}\x{0645}\x{1BAA}", %p)}, undef, "to_ascii\(\'7\\uDA90\\uDE28\-\-\。\\u0755\\u200C\\u064A\\u0654\\u0645\\u1BAA\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2221\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{5BE73}.\x{076D}ꡕ-", %p)}, undef, "to_ascii\(\'\-\\uD92F\\uDE73.\\u076Dꡕ\-\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2222\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{5BE73}.\x{076D}ꡕ-", %p)}, undef, "to_ascii\(\'\-\\uD92F\\uDE73\.\\u076Dꡕ\-\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2223\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}-ß。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_ascii\(\'\\u200C\-ß。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2224\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}-ß。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_ascii\(\'\\u200C\-ß\。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2226\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}-SS。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_ascii\(\'\\u200C\-SS\。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2228\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}-ss。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_ascii\(\'\\u200C\-ss\。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2230\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}-Ss。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_ascii\(\'\\u200C\-Ss\。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2232\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}-SS。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_ascii\(\'\\u200C\-SS。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2234\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}-ss。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_ascii\(\'\\u200C\-ss。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2236\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}-Ss。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_ascii\(\'\\u200C\-Ss。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2238\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("꧐Ӏ\x{09CD}\x{0A01}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u09CD\\u0A01.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("꧐Ӏ\x{09CD}\x{0A01}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u09CD\\u0A01.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2241\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("꧐Ӏ\x{09CD}\x{0A01}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u09CD\\u0A01\.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2242\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("꧐Ӏ\x{09CD}\x{0A01}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u09CD\\u0A01\.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2243\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{09CD}\x{0A01}.눵", %p)}, "xn--s5a07wqex704d.xn--2e1b", "to_ascii\(\'꧐ӏ\\u09CD\\u0A01\.눵\'\)\ \[data\/IdnaTest\.txt\:2244\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{09CD}\x{0A01}.눵", %p)}, "xn--s5a07wqex704d.xn--2e1b", "to_ascii\(\'꧐ӏ\\u09CD\\u0A01\.눵\'\)\ \[data\/IdnaTest\.txt\:2245\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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--s5a07wqex704d.xn--2e1b", %p)}, "xn--s5a07wqex704d.xn--2e1b", "to_ascii\(\'xn\-\-s5a07wqex704d\.xn\-\-2e1b\'\)\ \[data\/IdnaTest\.txt\:2246\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{09CD}\x{0A01}.눵", %p)}, "xn--s5a07wqex704d.xn--2e1b", "to_ascii\(\'꧐ӏ\\u09CD\\u0A01.눵\'\)\ \[data\/IdnaTest\.txt\:2247\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{09CD}\x{0A01}.눵", %p)}, "xn--s5a07wqex704d.xn--2e1b", "to_ascii\(\'꧐ӏ\\u09CD\\u0A01.눵\'\)\ \[data\/IdnaTest\.txt\:2248\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E007E}。\x{D8EF7}\x{0348}\x{1B72}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDC7E。\\uDB23\\uDEF7\\u0348\\u1B72\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2249\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E007E}。\x{D8EF7}\x{0348}\x{1B72}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDC7E\。\\uDB23\\uDEF7\\u0348\\u1B72\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2250\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4230F}🁸。\x{53771}≯⾇", %p)}, undef, "to_ascii\(\'\\uD8C8\\uDF0F🁸\。\\uD90D\\uDF71\≯⾇\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2251\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4230F}🁸。\x{53771}>\x{0338}⾇", %p)}, undef, "to_ascii\(\'\\uD8C8\\uDF0F🁸\。\\uD90D\\uDF71\>\\u0338⾇\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2252\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4230F}🁸。\x{53771}≯舛", %p)}, undef, "to_ascii\(\'\\uD8C8\\uDF0F🁸\。\\uD90D\\uDF71\≯舛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2253\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4230F}🁸。\x{53771}>\x{0338}舛", %p)}, undef, "to_ascii\(\'\\uD8C8\\uDF0F🁸\。\\uD90D\\uDF71\>\\u0338舛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CD}\x{0602}\x{200C}.\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'\\u06CD\\u0602\\u200C.\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2255\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CD}\x{0602}\x{200C}.\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'\\u06CD\\u0602\\u200C\.\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2257\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FB266}砪≯\x{0639}。≯\x{1A74}\x{B5208}\x{200C}", %p)}, undef, "to_ascii\(\'\\uDBAC\\uDE66砪\≯\\u0639。\≯\\u1A74\\uDA94\\uDE08\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2259\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FB266}砪>\x{0338}\x{0639}。>\x{0338}\x{1A74}\x{B5208}\x{200C}", %p)}, undef, "to_ascii\(\'\\uDBAC\\uDE66砪\>\\u0338\\u0639。\>\\u0338\\u1A74\\uDA94\\uDE08\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2261\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FB266}砪≯\x{0639}。≯\x{1A74}\x{B5208}\x{200C}", %p)}, undef, "to_ascii\(\'\\uDBAC\\uDE66砪\≯\\u0639\。\≯\\u1A74\\uDA94\\uDE08\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2263\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FB266}砪>\x{0338}\x{0639}。>\x{0338}\x{1A74}\x{B5208}\x{200C}", %p)}, undef, "to_ascii\(\'\\uDBAC\\uDE66砪\>\\u0338\\u0639\。\>\\u0338\\u1A74\\uDA94\\uDE08\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2265\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴥ.\x{11134}㊸", %p)}, undef, "to_ascii\(\'Ⴥ\.\\uD804\\uDD34㊸\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2267\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴥ.\x{11134}43", %p)}, undef, "to_ascii\(\'Ⴥ\.\\uD804\\uDD3443\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2268\]") 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{11134}43", %p)}, undef, "to_ascii\(\'ⴥ\.\\uD804\\uDD3443\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2269\]") 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{11134}㊸", %p)}, undef, "to_ascii\(\'ⴥ\.\\uD804\\uDD34㊸\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2270\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝟒\x{0663}。Ⴒᡷ\x{FE09}\x{10E64}", %p)}, undef, "to_ascii\(\'𝟒\\u0663\。Ⴒᡷ\\uFE09\\uD803\\uDE64\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2271\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{0663}。Ⴒᡷ\x{FE09}\x{10E64}", %p)}, undef, "to_ascii\(\'4\\u0663\。Ⴒᡷ\\uFE09\\uD803\\uDE64\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2272\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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("4\x{0663}。ⴒᡷ\x{FE09}\x{10E64}", %p)}, undef, "to_ascii\(\'4\\u0663\。ⴒᡷ\\uFE09\\uD803\\uDE64\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2273\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0663}。ⴒᡷ\x{FE09}\x{10E64}", %p)}, undef, "to_ascii\(\'𝟒\\u0663\。ⴒᡷ\\uFE09\\uD803\\uDE64\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2274\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{8A366}\x{1DD8}\x{FFA0}\x{059B}.\x{93F50}\x{2D7F}", %p)}, undef, "to_ascii\(\'\\uD9E8\\uDF66\\u1DD8\\uFFA0\\u059B\.\\uDA0F\\uDF50\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2275\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{8A366}\x{1DD8}\x{1160}\x{059B}.\x{93F50}\x{2D7F}", %p)}, undef, "to_ascii\(\'\\uD9E8\\uDF66\\u1DD8\\u1160\\u059B\.\\uDA0F\\uDF50\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2276\]") 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{FE08}.𝟠\x{200C}\x{103A}", %p)}, "xn--8-dug", "to_ascii\(\'\\uFE08\.𝟠\\u200C\\u103A\'\)\ \[data\/IdnaTest\.txt\:2277\]") 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{FE08}.8\x{200C}\x{103A}", %p)}, "xn--8-dug", "to_ascii\(\'\\uFE08\.8\\u200C\\u103A\'\)\ \[data\/IdnaTest\.txt\:2279\]") 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--8-dug", %p)}, "xn--8-dug", "to_ascii\(\'xn\-\-8\-dug\'\)\ \[data\/IdnaTest\.txt\:2281\]") 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("8\x{103A}", %p)}, "xn--8-dug", "to_ascii\(\'8\\u103A\'\)\ \[data\/IdnaTest\.txt\:2282\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{063F}.︒ꡅ", %p)}, undef, "to_ascii\(\'\\u063F.︒ꡅ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2283\]") 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{063F}.。ꡅ", %p)}, undef, "to_ascii\(\'\\u063F\.\。ꡅ\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:2284\]") 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{1BF3}\x{0349}。\x{FC71}", %p)}, undef, "to_ascii\(\'\\u1BF3\\u0349。\\uFC71\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2285\]") 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{1BF3}\x{0349}。\x{062A}\x{0632}", %p)}, undef, "to_ascii\(\'\\u1BF3\\u0349\。\\u062A\\u0632\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2286\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FCB3}。ꡋ\x{57A89}", %p)}, undef, "to_ascii\(\'\\uFCB3\。ꡋ\\uD91E\\uDE89\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2287\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0635}\x{0645}。ꡋ\x{57A89}", %p)}, undef, "to_ascii\(\'\\u0635\\u0645\。ꡋ\\uD91E\\uDE89\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2288\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1BF2}㴼.\x{200C}\x{10E78}\x{E01E9}\x{921E3}", %p)}, undef, "to_ascii\(\'\\u1BF2㴼.\\u200C\\uD803\\uDE78\\uDB40\\uDDE9\\uDA08\\uDDE3\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2289\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1BF2}㴼.\x{200C}\x{10E78}\x{E01E9}\x{921E3}", %p)}, undef, "to_ascii\(\'\\u1BF2㴼\.\\u200C\\uD803\\uDE78\\uDB40\\uDDE9\\uDA08\\uDDE3\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2291\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𠨧\x{0665}\x{200B}。\x{0737}", %p)}, undef, "to_ascii\(\'𠨧\\u0665\\u200B。\\u0737\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2293\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𠨧\x{0665}\x{200B}。\x{0737}", %p)}, undef, "to_ascii\(\'𠨧\\u0665\\u200B\。\\u0737\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2294\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0855}뾜⊙\x{AAF6}。\x{089D}\x{10E75}", %p)}, undef, "to_ascii\(\'\\u0855뾜\⊙\\uAAF6\。\\u089D\\uD803\\uDE75\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2295\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0855}뾜⊙\x{AAF6}。\x{089D}\x{10E75}", %p)}, undef, "to_ascii\(\'\\u0855뾜\⊙\\uAAF6\。\\u089D\\uD803\\uDE75\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2296\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E73}≠。⒖⸃\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE73\≠。⒖\⸃\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2297\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E73}=\x{0338}。⒖⸃\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE73\=\\u0338。⒖\⸃\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2299\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E73}≠。15.⸃\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE73\≠\。15\.\⸃\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2301\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E73}=\x{0338}。15.⸃\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE73\=\\u0338\。15\.\⸃\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2303\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}\x{8845A}\x{103A}.\x{200D}\x{11046}\x{1E9A2}", %p)}, undef, "to_ascii\(\'\\u115F\\uD9E1\\uDC5A\\u103A.\\u200D\\uD804\\uDC46\\uD83A\\uDDA2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2305\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}\x{8845A}\x{103A}.\x{200D}\x{11046}\x{1E9A2}", %p)}, undef, "to_ascii\(\'\\u115F\\uD9E1\\uDC5A\\u103A\.\\u200D\\uD804\\uDC46\\uD83A\\uDDA2\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2307\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AD20D}\x{0AC5}\x{05C5}\x{05AD}。≮", %p)}, undef, "to_ascii\(\'\\uDA74\\uDE0D\\u0AC5\\u05C5\\u05AD\。\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2309\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AD20D}\x{0AC5}\x{05C5}\x{05AD}。<\x{0338}", %p)}, undef, "to_ascii\(\'\\uDA74\\uDE0D\\u0AC5\\u05C5\\u05AD\。\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2310\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F9B}.\x{1032}暀≠", %p)}, undef, "to_ascii\(\'\\u0F9B\.\\u1032暀\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2311\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F9B}.\x{1032}暀=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0F9B\.\\u1032暀\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2312\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10C23}\x{A806}。\x{10DFB}\x{C0AAC}\x{11081}", %p)}, undef, "to_ascii\(\'\\uD803\\uDC23\\uA806。\\uD803\\uDDFB\\uDAC2\\uDEAC\\uD804\\uDC81\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2313\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10C23}\x{A806}。\x{10DFB}\x{C0AAC}\x{11081}", %p)}, undef, "to_ascii\(\'\\uD803\\uDC23\\uA806\。\\uD803\\uDDFB\\uDAC2\\uDEAC\\uD804\\uDC81\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2314\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1D17E}\x{200D}⒈。Ⴌ\x{1ED9D}", %p)}, undef, "to_ascii\(\'\\uD834\\uDD7E\\u200D⒈。Ⴌ\\uD83B\\uDD9D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2315\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1D17E}\x{200D}1.。Ⴌ\x{1ED9D}", %p)}, undef, "to_ascii\(\'\\uD834\\uDD7E\\u200D1\.\。Ⴌ\\uD83B\\uDD9D\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2317\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1D17E}\x{200D}1.。ⴌ\x{1ED9D}", %p)}, undef, "to_ascii\(\'\\uD834\\uDD7E\\u200D1\.\。ⴌ\\uD83B\\uDD9D\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2319\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1D17E}\x{200D}⒈。ⴌ\x{1ED9D}", %p)}, undef, "to_ascii\(\'\\uD834\\uDD7E\\u200D⒈。ⴌ\\uD83B\\uDD9D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2321\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DAA}\x{0BCD}\x{151AB}\x{076B}.ς\x{78786}\x{90BAA}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDAA\\u0BCD\\uD814\\uDDAB\\u076B\.ς\\uD9A1\\uDF86\\uDA02\\uDFAA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2323\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DAA}\x{0BCD}\x{151AB}\x{076B}.Σ\x{78786}\x{90BAA}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDAA\\u0BCD\\uD814\\uDDAB\\u076B\.Σ\\uD9A1\\uDF86\\uDA02\\uDFAA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2324\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DAA}\x{0BCD}\x{151AB}\x{076B}.σ\x{78786}\x{90BAA}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDAA\\u0BCD\\uD814\\uDDAB\\u076B\.σ\\uD9A1\\uDF86\\uDA02\\uDFAA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2325\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0844}。\x{200C}\x{06BE}\x{5D389}", %p)}, undef, "to_ascii\(\'\\u0844\。\\u200C\\u06BE\\uD934\\uDF89\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2326\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}\x{E0196}.\x{0AC3}\x{06AF}\x{06BF}\x{1A18}", %p)}, undef, "to_ascii\(\'\\u1A78\\uDB40\\uDD96\.\\u0AC3\\u06AF\\u06BF\\u1A18\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2328\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("䂹\x{10D5DB}6.\x{200D}", %p)}, undef, "to_ascii\(\'䂹\\uDBF5\\uDDDB6.\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2329\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䂹\x{10D5DB}6.\x{200D}", %p)}, undef, "to_ascii\(\'䂹\\uDBF5\\uDDDB6\.\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2331\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}\x{200C}\x{10E6B}\x{200C}。\x{1ECE5}۰", %p)}, undef, "to_ascii\(\'\\u0BCD\\u200C\\uD803\\uDE6B\\u200C。\\uD83B\\uDCE5۰\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2333\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}\x{200C}\x{10E6B}\x{200C}。\x{1ECE5}۰", %p)}, undef, "to_ascii\(\'\\u0BCD\\u200C\\uD803\\uDE6B\\u200C\。\\uD83B\\uDCE5۰\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[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("。。Ⴃ≯", %p)}, undef, "to_ascii\(\'\。\。Ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2339\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。。Ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'\。\。Ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2340\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。。ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'\。\。ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2341\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。。ⴃ≯", %p)}, undef, "to_ascii\(\'\。\。ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2342\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒。ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'︒。ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2343\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒。ⴃ≯", %p)}, undef, "to_ascii\(\'︒。ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2344\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E79}。\x{E0D8D}\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE79。\\uDB43\\uDD8D\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2345\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E79}。\x{E0D8D}\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE79\。\\uDB43\\uDD8D\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2347\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ\x{0600}。︒ꡠ\x{200D}Ⴏ", %p)}, undef, "to_ascii\(\'Ⴞ\\u0600。︒ꡠ\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2349\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ\x{0600}。。ꡠ\x{200D}Ⴏ", %p)}, undef, "to_ascii\(\'Ⴞ\\u0600\。\。ꡠ\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ A4_2\ \[data\/IdnaTest\.txt\:2351\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ\x{0600}。。ꡠ\x{200D}ⴏ", %p)}, undef, "to_ascii\(\'ⴞ\\u0600\。\。ꡠ\\u200Dⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ A4_2\ \[data\/IdnaTest\.txt\:2353\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ\x{0600}。︒ꡠ\x{200D}ⴏ", %p)}, undef, "to_ascii\(\'ⴞ\\u0600。︒ꡠ\\u200Dⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2355\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴆ⒈。-\x{E0158}-\x{07D2}", %p)}, undef, "to_ascii\(\'\\u200CႦ⒈\。\-\\uDB40\\uDD58\-\\u07D2\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2357\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴆ1.。-\x{E0158}-\x{07D2}", %p)}, undef, "to_ascii\(\'\\u200CႦ1\.\。\-\\uDB40\\uDD58\-\\u07D2\'\)\ throws\ error\ P1\ V6\ V3\ A4_2\ B1\ \[data\/IdnaTest\.txt\:2359\]") 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}ⴆ1.。-\x{E0158}-\x{07D2}", %p)}, undef, "to_ascii\(\'\\u200Cⴆ1\.\。\-\\uDB40\\uDD58\-\\u07D2\'\)\ throws\ error\ V3\ A4_2\ B1\ \[data\/IdnaTest\.txt\:2361\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}ⴆ⒈。-\x{E0158}-\x{07D2}", %p)}, undef, "to_ascii\(\'\\u200Cⴆ⒈\。\-\\uDB40\\uDD58\-\\u07D2\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2363\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃Ⴡ-\x{E005A}。≠-𐆓", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\\uDB40\\uDC5A。\≠\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2365\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃Ⴡ-\x{E005A}。=\x{0338}-𐆓", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\\uDB40\\uDC5A。\=\\u0338\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2366\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃Ⴡ-\x{E005A}。≠-𐆓", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\\uDB40\\uDC5A\。\≠\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2367\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃Ⴡ-\x{E005A}。=\x{0338}-𐆓", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\\uDB40\\uDC5A\。\=\\u0338\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2368\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃ⴡ-\x{E005A}。=\x{0338}-𐆓", %p)}, undef, "to_ascii\(\'箃ⴡ\-\\uDB40\\uDC5A\。\=\\u0338\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2369\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃ⴡ-\x{E005A}。≠-𐆓", %p)}, undef, "to_ascii\(\'箃ⴡ\-\\uDB40\\uDC5A\。\≠\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2370\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃ⴡ-\x{E005A}。=\x{0338}-𐆓", %p)}, undef, "to_ascii\(\'箃ⴡ\-\\uDB40\\uDC5A。\=\\u0338\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2371\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃ⴡ-\x{E005A}。≠-𐆓", %p)}, undef, "to_ascii\(\'箃ⴡ\-\\uDB40\\uDC5A。\≠\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2372\]") 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{07DF}", %p)}, "xn--78e.xn--6sb", "to_ascii\(\'ᡫ\.\\u07DF\'\)\ \[data\/IdnaTest\.txt\:2373\]") 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--78e.xn--6sb", %p)}, "xn--78e.xn--6sb", "to_ascii\(\'xn\-\-78e\.xn\-\-6sb\'\)\ \[data\/IdnaTest\.txt\:2374\]") 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{200D}.ꡑ", %p)}, "xn--qc9a", "to_ascii\(\'\\u200C\\u200D\.ꡑ\'\)\ \[data\/IdnaTest\.txt\:2375\]") 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--qc9a", %p)}, "xn--qc9a", "to_ascii\(\'xn\-\-qc9a\'\)\ \[data\/IdnaTest\.txt\:2377\]") 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--qc9a", "to_ascii\(\'ꡑ\'\)\ \[data\/IdnaTest\.txt\:2378\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E07EA}\x{10E7A}\x{06C5}.ς\x{1039}蜹", %p)}, undef, "to_ascii\(\'\\uDB41\\uDFEA\\uD803\\uDE7A\\u06C5\.ς\\u1039蜹\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2379\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E07EA}\x{10E7A}\x{06C5}.Σ\x{1039}蜹", %p)}, undef, "to_ascii\(\'\\uDB41\\uDFEA\\uD803\\uDE7A\\u06C5\.Σ\\u1039蜹\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2380\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E07EA}\x{10E7A}\x{06C5}.σ\x{1039}蜹", %p)}, undef, "to_ascii\(\'\\uDB41\\uDFEA\\uD803\\uDE7A\\u06C5\.σ\\u1039蜹\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2381\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9D1CE}ス\x{101FF0}\x{10E75}.\x{C819F}", %p)}, undef, "to_ascii\(\'\\uDA34\\uDDCEス\\uDBC7\\uDFF0\\uD803\\uDE75.\\uDAE0\\uDD9F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2382\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9D1CE}ス\x{101FF0}\x{10E75}.\x{C819F}", %p)}, undef, "to_ascii\(\'\\uDA34\\uDDCEス\\uDBC7\\uDFF0\\uD803\\uDE75\.\\uDAE0\\uDD9F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2383\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B81}\x{4B205}.\x{0F87}\x{D850}\x{0721}", %p)}, undef, "to_ascii\(\'\\u1B81\\uD8EC\\uDE05.\\u0F87\\uD850\\u0721\'\)\ throws\ error\ P1\ V5\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2384\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B81}\x{4B205}.\x{0F87}\x{D850}\x{0721}", %p)}, undef, "to_ascii\(\'\\u1B81\\uD8EC\\uDE05\.\\u0F87\\uD850\\u0721\'\)\ throws\ error\ P1\ V5\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2385\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0668}\x{C3F02}\x{200C}。\x{08A7}", %p)}, undef, "to_ascii\(\'\\u0668\\uDACF\\uDF02\\u200C\。\\u08A7\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2386\]") 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{200D}\x{200C}。-\x{200C}", %p)}, undef, "to_ascii\(\'\\u1BAA\\u200D\\u200C\。\-\\u200C\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:2388\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("︒。\x{1BAB}\x{076E}", %p)}, undef, "to_ascii\(\'︒。\\u1BAB\\u076E\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2390\]") 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{1BAB}\x{076E}", %p)}, undef, "to_ascii\(\'\。\。\\u1BAB\\u076E\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2391\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{067C}ß。ጫ\x{06B3}\x{0698}1", %p)}, undef, "to_ascii\(\'\\u067Cß\。ጫ\\u06B3\\u06981\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2392\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{067C}SS。ጫ\x{06B3}\x{0698}1", %p)}, undef, "to_ascii\(\'\\u067CSS\。ጫ\\u06B3\\u06981\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2393\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{067C}ss。ጫ\x{06B3}\x{0698}1", %p)}, undef, "to_ascii\(\'\\u067Css\。ጫ\\u06B3\\u06981\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2394\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{067C}Ss。ጫ\x{06B3}\x{0698}1", %p)}, undef, "to_ascii\(\'\\u067CSs\。ጫ\\u06B3\\u06981\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2395\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FB52}\x{1E9A7}ᚲ.\x{0B4D}꒕🄇\x{1714}", %p)}, undef, "to_ascii\(\'\\uFB52\\uD83A\\uDDA7ᚲ\.\\u0B4D꒕🄇\\u1714\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2396\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{067B}\x{1E9A7}ᚲ.\x{0B4D}꒕6,\x{1714}", %p)}, undef, "to_ascii\(\'\\u067B\\uD83A\\uDDA7ᚲ\.\\u0B4D꒕6\,\\u1714\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2397\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{0A4D}︒\x{200D}.\x{D2E58}簸", %p)}, undef, "to_ascii\(\'\-\\u0A4D︒\\u200D\.\\uDB0B\\uDE58簸\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2398\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{0A4D}。\x{200D}.\x{D2E58}簸", %p)}, undef, "to_ascii\(\'\-\\u0A4D\。\\u200D\.\\uDB0B\\uDE58簸\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2400\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⳧.≯\x{05B7}", %p)}, undef, "to_ascii\(\'⳧\.\≯\\u05B7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2402\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⳧.>\x{0338}\x{05B7}", %p)}, undef, "to_ascii\(\'⳧\.\>\\u0338\\u05B7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2403\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{0ACD}\x{0359}\x{0666}。\x{1EFB3}", %p)}, undef, "to_ascii\(\'\-\\u0ACD\\u0359\\u0666\。\\uD83B\\uDFB3\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2404\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡢ.\x{06EE}\x{115F}", %p)}, undef, "to_ascii\(\'ᡢ.\\u06EE\\u115F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2405\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡢ.\x{06EE}\x{115F}", %p)}, undef, "to_ascii\(\'ᡢ\.\\u06EE\\u115F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2406\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㨛\x{BA6B3}.︒𝟜\x{085A}", %p)}, undef, "to_ascii\(\'㨛\\uDAA9\\uDEB3\.︒𝟜\\u085A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2407\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㨛\x{BA6B3}.。4\x{085A}", %p)}, undef, "to_ascii\(\'㨛\\uDAA9\\uDEB3\.\。4\\u085A\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2408\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0602}\x{60317}-。\x{10E89}\x{E0024}\x{08A8}≮", %p)}, undef, "to_ascii\(\'\\u0602\\uD940\\uDF17\-。\\uD803\\uDE89\\uDB40\\uDC24\\u08A8\≮\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2409\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0602}\x{60317}-。\x{10E89}\x{E0024}\x{08A8}<\x{0338}", %p)}, undef, "to_ascii\(\'\\u0602\\uD940\\uDF17\-。\\uD803\\uDE89\\uDB40\\uDC24\\u08A8\<\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2410\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0602}\x{60317}-。\x{10E89}\x{E0024}\x{08A8}≮", %p)}, undef, "to_ascii\(\'\\u0602\\uD940\\uDF17\-\。\\uD803\\uDE89\\uDB40\\uDC24\\u08A8\≮\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2411\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0602}\x{60317}-。\x{10E89}\x{E0024}\x{08A8}<\x{0338}", %p)}, undef, "to_ascii\(\'\\u0602\\uD940\\uDF17\-\。\\uD803\\uDE89\\uDB40\\uDC24\\u08A8\<\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2412\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{200C}\x{11101}ᡚ.\x{06EA}ჁႶ", %p)}, undef, "to_ascii\(\'ß\\u200C\\uD804\\uDD01ᡚ.\\u06EAჁႶ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2413\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{200C}\x{11101}ᡚ.\x{06EA}ჁႶ", %p)}, undef, "to_ascii\(\'ß\\u200C\\uD804\\uDD01ᡚ\.\\u06EAჁႶ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2415\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_ascii\(\'ß\\u200C\\uD804\\uDD01ᡚ\.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2417\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SS\x{200C}\x{11101}ᡚ.\x{06EA}ჁႶ", %p)}, undef, "to_ascii\(\'SS\\u200C\\uD804\\uDD01ᡚ\.\\u06EAჁႶ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2419\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_ascii\(\'ss\\u200C\\uD804\\uDD01ᡚ\.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2421\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_ascii\(\'Ss\\u200C\\uD804\\uDD01ᡚ\.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2423\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_ascii\(\'ß\\u200C\\uD804\\uDD01ᡚ.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2425\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SS\x{200C}\x{11101}ᡚ.\x{06EA}ჁႶ", %p)}, undef, "to_ascii\(\'SS\\u200C\\uD804\\uDD01ᡚ.\\u06EAჁႶ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2427\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_ascii\(\'ss\\u200C\\uD804\\uDD01ᡚ.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2429\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_ascii\(\'Ss\\u200C\\uD804\\uDD01ᡚ.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2431\]") 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}。ς\x{11039}", %p)}, "xn--4xa6658k", "to_ascii\(\'\\u200D\。ς\\uD804\\uDC39\'\)\ \[data\/IdnaTest\.txt\:2433\]") 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}。Σ\x{11039}", %p)}, "xn--4xa6658k", "to_ascii\(\'\\u200D\。Σ\\uD804\\uDC39\'\)\ \[data\/IdnaTest\.txt\:2435\]") 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}。σ\x{11039}", %p)}, "xn--4xa6658k", "to_ascii\(\'\\u200D\。σ\\uD804\\uDC39\'\)\ \[data\/IdnaTest\.txt\:2437\]") 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--4xa6658k", %p)}, "xn--4xa6658k", "to_ascii\(\'xn\-\-4xa6658k\'\)\ \[data\/IdnaTest\.txt\:2439\]") 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{11039}", %p)}, "xn--4xa6658k", "to_ascii\(\'σ\\uD804\\uDC39\'\)\ \[data\/IdnaTest\.txt\:2440\]") 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{11039}", %p)}, "xn--4xa6658k", "to_ascii\(\'Σ\\uD804\\uDC39\'\)\ \[data\/IdnaTest\.txt\:2441\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0721}ß.\x{0714}\x{200D}ᢊ-", %p)}, undef, "to_ascii\(\'\\u0721ß\.\\u0714\\u200Dᢊ\-\'\)\ throws\ error\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:2442\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0721}SS.\x{0714}\x{200D}ᢊ-", %p)}, undef, "to_ascii\(\'\\u0721SS\.\\u0714\\u200Dᢊ\-\'\)\ throws\ error\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:2444\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0721}ss.\x{0714}\x{200D}ᢊ-", %p)}, undef, "to_ascii\(\'\\u0721ss\.\\u0714\\u200Dᢊ\-\'\)\ throws\ error\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:2446\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0721}Ss.\x{0714}\x{200D}ᢊ-", %p)}, undef, "to_ascii\(\'\\u0721Ss\.\\u0714\\u200Dᢊ\-\'\)\ throws\ error\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:2448\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{302A}\x{200D}ᡗ.\x{10E77}\x{97264}-", %p)}, undef, "to_ascii\(\'\\u302A\\u200Dᡗ.\\uD803\\uDE77\\uDA1C\\uDE64\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2450\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{302A}\x{200D}ᡗ.\x{10E77}\x{97264}-", %p)}, undef, "to_ascii\(\'\\u302A\\u200Dᡗ\.\\uD803\\uDE77\\uDA1C\\uDE64\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2452\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟢\x{81DED}\x{49122}\x{135F}.-\x{63ADF}", %p)}, undef, "to_ascii\(\'𝟢\\uD9C7\\uDDED\\uD8E4\\uDD22\\u135F\.\-\\uD94E\\uDEDF\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2454\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0\x{81DED}\x{49122}\x{135F}.-\x{63ADF}", %p)}, undef, "to_ascii\(\'0\\uD9C7\\uDDED\\uD8E4\\uDD22\\u135F\.\-\\uD94E\\uDEDF\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2455\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{200D}", %p)}, undef, "to_ascii\(\'\-。\\u200D\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2456\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{200D}", %p)}, undef, "to_ascii\(\'\-\。\\u200D\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2458\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮ᠪ.ς7-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᠪ.ς7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2460\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ᠪ.ς7-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᠪ.ς7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2461\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮ᠪ.ς7-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᠪ\.ς7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2462\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ᠪ.ς7-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᠪ\.ς7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2463\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ᠪ.Σ7-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᠪ\.Σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2464\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮ᠪ.Σ7-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᠪ\.Σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2465\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮ᠪ.σ7-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᠪ\.σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2466\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ᠪ.σ7-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᠪ\.σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2467\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ᠪ.Σ7-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᠪ.Σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2468\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮ᠪ.Σ7-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᠪ.Σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2469\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮ᠪ.σ7-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᠪ.σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2470\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ᠪ.σ7-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᠪ.σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2471\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ቬ\x{DA1A0}\x{6D893}。\x{10856}𝟫", %p)}, undef, "to_ascii\(\'ቬ\\uDB28\\uDDA0\\uD976\\uDC93。\\uD802\\uDC56𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2472\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ቬ\x{DA1A0}\x{6D893}。\x{10856}9", %p)}, undef, "to_ascii\(\'ቬ\\uDB28\\uDDA0\\uD976\\uDC93\。\\uD802\\uDC569\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2473\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1086F}。蔫ꡏ", %p)}, undef, "to_ascii\(\'\\uD802\\uDC6F\。蔫ꡏ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2474\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{127B3}3。ꡂ\x{71F1B}\x{17CD}ᡁ", %p)}, undef, "to_ascii\(\'\\uD809\\uDFB33。ꡂ\\uD987\\uDF1B\\u17CDᡁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2475\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{127B3}3。ꡂ\x{71F1B}\x{17CD}ᡁ", %p)}, undef, "to_ascii\(\'\\uD809\\uDFB33\。ꡂ\\uD987\\uDF1B\\u17CDᡁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2476\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4469F}ᡑ≠.ß", %p)}, undef, "to_ascii\(\'\\uD8D1\\uDE9Fᡑ\≠\.ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2477\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4469F}ᡑ=\x{0338}.ß", %p)}, undef, "to_ascii\(\'\\uD8D1\\uDE9Fᡑ\=\\u0338\.ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2478\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4469F}ᡑ=\x{0338}.SS", %p)}, undef, "to_ascii\(\'\\uD8D1\\uDE9Fᡑ\=\\u0338\.SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2479\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4469F}ᡑ≠.SS", %p)}, undef, "to_ascii\(\'\\uD8D1\\uDE9Fᡑ\≠\.SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2480\]") 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{0842}\x{E0152}۱.\x{0664}\x{FB20}⼀\x{200C}", %p)}, undef, "to_ascii\(\'ᠧ\\u0842\\uDB40\\uDD52۱\.\\u0664\\uFB20⼀\\u200C\'\)\ throws\ error\ B5\ B1\ \[data\/IdnaTest\.txt\:2481\]") 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{0842}\x{E0152}۱.\x{0664}\x{05E2}一\x{200C}", %p)}, undef, "to_ascii\(\'ᠧ\\u0842\\uDB40\\uDD52۱\.\\u0664\\u05E2一\\u200C\'\)\ throws\ error\ B5\ B1\ \[data\/IdnaTest\.txt\:2483\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ς\x{200D}-.Ⴣ\x{98733}", %p)}, undef, "to_ascii\(\'ς\\u200D\-\.Ⴣ\\uDA21\\uDF33\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2485\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{200D}-.ⴣ\x{98733}", %p)}, undef, "to_ascii\(\'ς\\u200D\-\.ⴣ\\uDA21\\uDF33\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2487\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{200D}-.Ⴣ\x{98733}", %p)}, undef, "to_ascii\(\'Σ\\u200D\-\.Ⴣ\\uDA21\\uDF33\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2489\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{200D}-.ⴣ\x{98733}", %p)}, undef, "to_ascii\(\'σ\\u200D\-\.ⴣ\\uDA21\\uDF33\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2491\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{E0880}𝟑", %p)}, undef, "to_ascii\(\'\≠\。\\uDB42\\uDC80𝟑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2493\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{E0880}𝟑", %p)}, undef, "to_ascii\(\'\=\\u0338\。\\uDB42\\uDC80𝟑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2494\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{E0880}3", %p)}, undef, "to_ascii\(\'\≠\。\\uDB42\\uDC803\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2495\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{E0880}3", %p)}, undef, "to_ascii\(\'\=\\u0338\。\\uDB42\\uDC803\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2496\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{5223B}.蠔", %p)}, undef, "to_ascii\(\'\\uD908\\uDE3B\.蠔\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2497\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{302C}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u302C\\u200D.뼽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2498\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{302C}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u302C\\u200D.뼽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2500\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{302C}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u302C\\u200D\.뼽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2502\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{302C}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u302C\\u200D\.뼽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2504\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟛\x{094D}Ⱉ\x{FEF9}。\x{E0077}\x{06EF}-\x{0874}", %p)}, undef, "to_ascii\(\'𝟛\\u094DⰙ\\uFEF9\。\\uDB40\\uDC77\\u06EF\-\\u0874\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2506\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{094D}Ⱉ\x{0644}\x{0625}。\x{E0077}\x{06EF}-\x{0874}", %p)}, undef, "to_ascii\(\'3\\u094DⰙ\\u0644\\u0625\。\\uDB40\\uDC77\\u06EF\-\\u0874\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2507\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{094D}Ⱉ\x{0644}\x{0627}\x{0655}。\x{E0077}\x{06EF}-\x{0874}", %p)}, undef, "to_ascii\(\'3\\u094DⰙ\\u0644\\u0627\\u0655\。\\uDB40\\uDC77\\u06EF\-\\u0874\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2508\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{094D}ⱉ\x{0644}\x{0627}\x{0655}。\x{E0077}\x{06EF}-\x{0874}", %p)}, undef, "to_ascii\(\'3\\u094Dⱉ\\u0644\\u0627\\u0655\。\\uDB40\\uDC77\\u06EF\-\\u0874\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2509\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{094D}ⱉ\x{0644}\x{0625}。\x{E0077}\x{06EF}-\x{0874}", %p)}, undef, "to_ascii\(\'3\\u094Dⱉ\\u0644\\u0625\。\\uDB40\\uDC77\\u06EF\-\\u0874\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2510\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟛\x{094D}ⱉ\x{FEF9}。\x{E0077}\x{06EF}-\x{0874}", %p)}, undef, "to_ascii\(\'𝟛\\u094Dⱉ\\uFEF9\。\\uDB40\\uDC77\\u06EF\-\\u0874\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2511\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。ᡯ", %p)}, undef, "to_ascii\(\'\-。ᡯ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2512\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。ᡯ", %p)}, undef, "to_ascii\(\'\-\。ᡯ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2513\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F93}\x{AEDEF}。-⒈\x{07CA}\x{07E1}", %p)}, undef, "to_ascii\(\'\\u0F93\\uDA7B\\uDDEF。\-⒈\\u07CA\\u07E1\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2514\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F92}\x{0FB7}\x{AEDEF}。-⒈\x{07CA}\x{07E1}", %p)}, undef, "to_ascii\(\'\\u0F92\\u0FB7\\uDA7B\\uDDEF。\-⒈\\u07CA\\u07E1\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2515\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F92}\x{0FB7}\x{AEDEF}。-1.\x{07CA}\x{07E1}", %p)}, undef, "to_ascii\(\'\\u0F92\\u0FB7\\uDA7B\\uDDEF\。\-1\.\\u07CA\\u07E1\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:2516\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("璛\x{0DCA}ᠨ.-", %p)}, undef, "to_ascii\(\'璛\\u0DCAᠨ\.\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2517\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{FE0D}\x{07DF}\x{0C4D}샕.\x{10E6B}휁", %p)}, undef, "to_ascii\(\'\\uFE0D\\u07DF\\u0C4D샕.\\uD803\\uDE6B휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2518\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{FE0D}\x{07DF}\x{0C4D}샕.\x{10E6B}휁", %p)}, undef, "to_ascii\(\'\\uFE0D\\u07DF\\u0C4D샕.\\uD803\\uDE6B휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2519\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{FE0D}\x{07DF}\x{0C4D}샕.\x{10E6B}휁", %p)}, undef, "to_ascii\(\'\\uFE0D\\u07DF\\u0C4D샕\.\\uD803\\uDE6B휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2520\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{FE0D}\x{07DF}\x{0C4D}샕.\x{10E6B}휁", %p)}, undef, "to_ascii\(\'\\uFE0D\\u07DF\\u0C4D샕\.\\uD803\\uDE6B휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2521\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{8C670}.\x{873D7}", %p)}, undef, "to_ascii\(\'\\uD9F1\\uDE70.\\uD9DC\\uDFD7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2522\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{8C670}.\x{873D7}", %p)}, undef, "to_ascii\(\'\\uD9F1\\uDE70\.\\uD9DC\\uDFD7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2523\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢊ\x{077A}。\x{111C0}ᡁႭ-", %p)}, undef, "to_ascii\(\'ᢊ\\u077A。\\uD804\\uDDC0ᡁႭ\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2524\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢊ\x{077A}。\x{111C0}ᡁႭ-", %p)}, undef, "to_ascii\(\'ᢊ\\u077A\。\\uD804\\uDDC0ᡁႭ\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2525\]") 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{077A}。\x{111C0}ᡁⴍ-", %p)}, undef, "to_ascii\(\'ᢊ\\u077A\。\\uD804\\uDDC0ᡁⴍ\-\'\)\ throws\ error\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2526\]") 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{077A}。\x{111C0}ᡁⴍ-", %p)}, undef, "to_ascii\(\'ᢊ\\u077A。\\uD804\\uDDC0ᡁⴍ\-\'\)\ throws\ error\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2527\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1EDDD}\x{1EA62}\x{1E96B}。\x{69DDF}𝟸Ⴋ\x{10957F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDDDD\\uD83A\\uDE62\\uD83A\\uDD6B\。\\uD967\\uDDDF𝟸Ⴋ\\uDBE5\\uDD7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2528\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EDDD}\x{1EA62}\x{1E96B}。\x{69DDF}2Ⴋ\x{10957F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDDDD\\uD83A\\uDE62\\uD83A\\uDD6B\。\\uD967\\uDDDF2Ⴋ\\uDBE5\\uDD7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2529\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EDDD}\x{1EA62}\x{1E96B}。\x{69DDF}2ⴋ\x{10957F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDDDD\\uD83A\\uDE62\\uD83A\\uDD6B\。\\uD967\\uDDDF2ⴋ\\uDBE5\\uDD7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2530\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EDDD}\x{1EA62}\x{1E96B}。\x{69DDF}𝟸ⴋ\x{10957F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDDDD\\uD83A\\uDE62\\uD83A\\uDD6B\。\\uD967\\uDDDF𝟸ⴋ\\uDBE5\\uDD7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2531\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{07D0}︒🜢.≠", %p)}, undef, "to_ascii\(\'4\\u07D0︒🜢\.\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2532\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{07D0}︒🜢.=\x{0338}", %p)}, undef, "to_ascii\(\'4\\u07D0︒🜢\.\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2533\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{07D0}。🜢.≠", %p)}, undef, "to_ascii\(\'4\\u07D0\。🜢\.\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2534\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{07D0}。🜢.=\x{0338}", %p)}, undef, "to_ascii\(\'4\\u07D0\。🜢\.\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2535\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀。\x{0340}", %p)}, undef, "to_ascii\(\'🄀\。\\u0340\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2536\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀。\x{0300}", %p)}, undef, "to_ascii\(\'🄀\。\\u0300\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2537\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.。\x{0300}", %p)}, undef, "to_ascii\(\'0\.\。\\u0300\'\)\ throws\ error\ V5\ A4_2\ \[data\/IdnaTest\.txt\:2538\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{CDCDB}.⾕", %p)}, undef, "to_ascii\(\'\\u200C\\uDAF7\\uDCDB\.⾕\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2539\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{CDCDB}.谷", %p)}, undef, "to_ascii\(\'\\u200C\\uDAF7\\uDCDB\.谷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2541\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒\x{75929}\x{200D}.-\x{0B44}\x{200C}", %p)}, undef, "to_ascii\(\'︒\\uD996\\uDD29\\u200D\.\-\\u0B44\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2543\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。\x{75929}\x{200D}.-\x{0B44}\x{200C}", %p)}, undef, "to_ascii\(\'\。\\uD996\\uDD29\\u200D\.\-\\u0B44\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2545\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯ꡠ。\x{08A5}", %p)}, undef, "to_ascii\(\'\≯ꡠ\。\\u08A5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2547\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}ꡠ。\x{08A5}", %p)}, undef, "to_ascii\(\'\>\\u0338ꡠ\。\\u08A5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2548\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DE6}\x{A7D64}\x{E0BFD}。\x{06C7}\x{10E6E}", %p)}, undef, "to_ascii\(\'\\u2DE6\\uDA5F\\uDD64\\uDB42\\uDFFD\。\\u06C7\\uD803\\uDE6E\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2549\]") 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{E0101}\x{07CF}𝟻𝟲。۷", %p)}, "xn--56-nue.xn--kmb", "to_ascii\(\'\\uDB40\\uDD01\\u07CF𝟻𝟲。۷\'\)\ \[data\/IdnaTest\.txt\:2550\]") 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{E0101}\x{07CF}56。۷", %p)}, "xn--56-nue.xn--kmb", "to_ascii\(\'\\uDB40\\uDD01\\u07CF56\。۷\'\)\ \[data\/IdnaTest\.txt\:2551\]") 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--56-nue.xn--kmb", %p)}, "xn--56-nue.xn--kmb", "to_ascii\(\'xn\-\-56\-nue\.xn\-\-kmb\'\)\ \[data\/IdnaTest\.txt\:2552\]") 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}56.۷", %p)}, "xn--56-nue.xn--kmb", "to_ascii\(\'\\u07CF56\.۷\'\)\ \[data\/IdnaTest\.txt\:2553\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}.🄃", %p)}, undef, "to_ascii\(\'\\u200D.🄃\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2554\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}.2,", %p)}, undef, "to_ascii\(\'\\u200D\.2\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2556\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0776}\x{0647}\x{B59BE}。\x{063B}\x{2DE0}", %p)}, undef, "to_ascii\(\'\\u0776\\u0647\\uDA96\\uDDBE\。\\u063B\\u2DE0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2558\]") 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{0720}𝟵\x{06BE}겙。\x{1DD9}\x{FC55}", %p)}, undef, "to_ascii\(\'\\u0720𝟵\\u06BE겙\。\\u1DD9\\uFC55\'\)\ throws\ error\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2559\]") 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{0720}𝟵\x{06BE}겙。\x{1DD9}\x{FC55}", %p)}, undef, "to_ascii\(\'\\u0720𝟵\\u06BE겙\。\\u1DD9\\uFC55\'\)\ throws\ error\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2560\]") 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{0720}9\x{06BE}겙。\x{1DD9}\x{064A}\x{062C}", %p)}, undef, "to_ascii\(\'\\u07209\\u06BE겙\。\\u1DD9\\u064A\\u062C\'\)\ throws\ error\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2561\]") 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{0720}9\x{06BE}겙。\x{1DD9}\x{064A}\x{062C}", %p)}, undef, "to_ascii\(\'\\u07209\\u06BE겙\。\\u1DD9\\u064A\\u062C\'\)\ throws\ error\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2562\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴍ\x{4F9AF}ᠸ\x{1A7C}。Ⴞ\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴍ\\uD8FE\\uDDAFᠸ\\u1A7C\。Ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2563\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴍ\x{4F9AF}ᠸ\x{1A7C}。ⴞ\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'ⴍ\\uD8FE\\uDDAFᠸ\\u1A7C\。ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2565\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8。\x{4FF43}", %p)}, undef, "to_ascii\(\'8\。\\uD8FF\\uDF43\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2567\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8。\x{4FF43}", %p)}, undef, "to_ascii\(\'8\。\\uD8FF\\uDF43\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2568\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{17F0D}\x{17B4}\x{0ACD}.\x{06DD}", %p)}, undef, "to_ascii\(\'\\uD81F\\uDF0D\\u17B4\\u0ACD\.\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2569\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09E2}Ⴋ\x{DC2F0}\x{10F765}.\x{545DB}₂휪\x{1A62}", %p)}, undef, "to_ascii\(\'\\u09E2Ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65.\\uD911\\uDDDB₂휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2570\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09E2}Ⴋ\x{DC2F0}\x{10F765}.\x{545DB}₂휪\x{1A62}", %p)}, undef, "to_ascii\(\'\\u09E2Ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65.\\uD911\\uDDDB₂휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2571\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09E2}Ⴋ\x{DC2F0}\x{10F765}.\x{545DB}2휪\x{1A62}", %p)}, undef, "to_ascii\(\'\\u09E2Ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65\.\\uD911\\uDDDB2휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2572\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09E2}Ⴋ\x{DC2F0}\x{10F765}.\x{545DB}2휪\x{1A62}", %p)}, undef, "to_ascii\(\'\\u09E2Ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65\.\\uD911\\uDDDB2휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2573\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09E2}ⴋ\x{DC2F0}\x{10F765}.\x{545DB}2휪\x{1A62}", %p)}, undef, "to_ascii\(\'\\u09E2ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65\.\\uD911\\uDDDB2휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2574\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09E2}ⴋ\x{DC2F0}\x{10F765}.\x{545DB}2휪\x{1A62}", %p)}, undef, "to_ascii\(\'\\u09E2ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65\.\\uD911\\uDDDB2휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2575\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09E2}ⴋ\x{DC2F0}\x{10F765}.\x{545DB}₂휪\x{1A62}", %p)}, undef, "to_ascii\(\'\\u09E2ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65.\\uD911\\uDDDB₂휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2576\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09E2}ⴋ\x{DC2F0}\x{10F765}.\x{545DB}₂휪\x{1A62}", %p)}, undef, "to_ascii\(\'\\u09E2ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65.\\uD911\\uDDDB₂휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2577\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1ED62}.\x{FBE3}\x{10E60}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDD62.\\uFBE3\\uD803\\uDE60\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2578\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1ED62}.\x{06C9}\x{10E60}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDD62\.\\u06C9\\uD803\\uDE60\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2579\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1714}2.8\x{0ACD}\x{200D}\x{E08AD}", %p)}, undef, "to_ascii\(\'\\u17142\.8\\u0ACD\\u200D\\uDB42\\uDCAD\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2580\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1714}2.8\x{0ACD}\x{200D}\x{E08AD}", %p)}, undef, "to_ascii\(\'\\u17142\.8\\u0ACD\\u200D\\uDB42\\uDCAD\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2581\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E06B9}⩷\x{E0150}。\x{1ED73}\x{0A75}\x{E01CB}", %p)}, undef, "to_ascii\(\'\\uDB41\\uDEB9\⩷\\uDB40\\uDD50\。\\uD83B\\uDD73\\u0A75\\uDB40\\uDDCB\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2582\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡞ≠\x{AA2B}\x{A5198}。\x{FD34}\x{1B36}\x{FFA0}", %p)}, undef, "to_ascii\(\'ꡞ\≠\\uAA2B\\uDA54\\uDD98。\\uFD34\\u1B36\\uFFA0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2583\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡞ=\x{0338}\x{AA2B}\x{A5198}。\x{FD34}\x{1B36}\x{FFA0}", %p)}, undef, "to_ascii\(\'ꡞ\=\\u0338\\uAA2B\\uDA54\\uDD98。\\uFD34\\u1B36\\uFFA0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2584\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡞ≠\x{AA2B}\x{A5198}。\x{0633}\x{062C}\x{1B36}\x{1160}", %p)}, undef, "to_ascii\(\'ꡞ\≠\\uAA2B\\uDA54\\uDD98\。\\u0633\\u062C\\u1B36\\u1160\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2585\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡞ=\x{0338}\x{AA2B}\x{A5198}。\x{0633}\x{062C}\x{1B36}\x{1160}", %p)}, undef, "to_ascii\(\'ꡞ\=\\u0338\\uAA2B\\uDA54\\uDD98\。\\u0633\\u062C\\u1B36\\u1160\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2586\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("鱊。\x{200C}", %p)}, "xn--rt6a.", "to_ascii\(\'鱊\。\\u200C\'\)\ \[data\/IdnaTest\.txt\:2587\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--rt6a.", %p)}, "xn--rt6a.", "to_ascii\(\'xn\-\-rt6a\.\'\)\ \[data\/IdnaTest\.txt\:2589\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("鱊.", %p)}, "xn--rt6a.", "to_ascii\(\'鱊\.\'\)\ \[data\/IdnaTest\.txt\:2590\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E73}.\x{034D}", %p)}, undef, "to_ascii\(\'8\\uD803\\uDE73.\\u034D\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2591\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E73}.\x{034D}", %p)}, undef, "to_ascii\(\'8\\uD803\\uDE73\.\\u034D\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2592\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E0DCA}\x{0864}.ᠹ", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDCA\\u0864.ᠹ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2593\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DCA}\x{0864}.ᠹ", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDCA\\u0864\.ᠹ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2594\]") 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{0754}\x{077C}4.\x{200D}", %p)}, "xn--4-53c4j.", "to_ascii\(\'\\u0754\\u077C4.\\u200D\'\)\ \[data\/IdnaTest\.txt\:2595\]") 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{0754}\x{077C}4.\x{200D}", %p)}, "xn--4-53c4j.", "to_ascii\(\'\\u0754\\u077C4\.\\u200D\'\)\ \[data\/IdnaTest\.txt\:2597\]") 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--4-53c4j.", %p)}, "xn--4-53c4j.", "to_ascii\(\'xn\-\-4\-53c4j\.\'\)\ \[data\/IdnaTest\.txt\:2599\]") 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{0754}\x{077C}4.", %p)}, "xn--4-53c4j.", "to_ascii\(\'\\u0754\\u077C4\.\'\)\ \[data\/IdnaTest\.txt\:2600\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("5\x{0610}\x{082B}-.\x{0603}\x{E0FA7}", %p)}, undef, "to_ascii\(\'5\\u0610\\u082B\-\.\\u0603\\uDB43\\uDFA7\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2601\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。䏛", %p)}, undef, "to_ascii\(\'\-。䏛\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2602\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。䏛", %p)}, undef, "to_ascii\(\'\-\。䏛\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2603\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{9B8A0}.\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\\uDA2E\\uDCA0.\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2604\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{9B8A0}.\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\\uDA2E\\uDCA0\.\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2606\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{1059}\x{2CA0B}。\x{10E66}\x{200D}\x{B2DBF}Ⴕ", %p)}, undef, "to_ascii\(\'⒈\\u1059\\uD872\\uDE0B。\\uD803\\uDE66\\u200D\\uDA8B\\uDDBFႵ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2608\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{1059}\x{2CA0B}。\x{10E66}\x{200D}\x{B2DBF}Ⴕ", %p)}, undef, "to_ascii\(\'1\.\\u1059\\uD872\\uDE0B\。\\uD803\\uDE66\\u200D\\uDA8B\\uDDBFႵ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2610\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{1059}\x{2CA0B}。\x{10E66}\x{200D}\x{B2DBF}ⴕ", %p)}, undef, "to_ascii\(\'1\.\\u1059\\uD872\\uDE0B\。\\uD803\\uDE66\\u200D\\uDA8B\\uDDBFⴕ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2612\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{1059}\x{2CA0B}。\x{10E66}\x{200D}\x{B2DBF}ⴕ", %p)}, undef, "to_ascii\(\'⒈\\u1059\\uD872\\uDE0B。\\uD803\\uDE66\\u200D\\uDA8B\\uDDBFⴕ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2614\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF8C}\x{0847}-ß。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF8C\\u0847\-ß。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2616\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF8C}\x{0847}-ß。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF8C\\u0847\-ß\。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2617\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF8C}\x{0847}-SS。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF8C\\u0847\-SS\。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2618\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF8C}\x{0847}-ss。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF8C\\u0847\-ss\。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2619\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF8C}\x{0847}-Ss。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF8C\\u0847\-Ss\。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2620\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF8C}\x{0847}-SS。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF8C\\u0847\-SS。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2621\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF8C}\x{0847}-ss。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF8C\\u0847\-ss。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2622\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF8C}\x{0847}-Ss。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF8C\\u0847\-Ss。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2623\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AAF6}.\x{E0560}", %p)}, undef, "to_ascii\(\'\\uAAF6\.\\uDB41\\uDD60\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2624\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0911}6\x{1E886}。𝟹\x{11134}\x{10B70}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDD116\\uD83A\\uDC86。𝟹\\uD804\\uDD34\\uD802\\uDF70\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2625\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0911}6\x{1E886}。3\x{11134}\x{10B70}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDD116\\uD83A\\uDC86\。3\\uD804\\uDD34\\uD802\\uDF70\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2626\]") 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{1D17E}", %p)}, undef, "to_ascii\(\'ᢢ𝟴\\uA92Cꡝ\。\\uD834\\uDD7E\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2627\]") 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("ᢢ8\x{A92C}ꡝ。\x{1D17E}", %p)}, undef, "to_ascii\(\'ᢢ8\\uA92Cꡝ\。\\uD834\\uDD7E\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2628\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{066C}-\x{92486}Ⴂ。\x{A0992}\x{200D}", %p)}, undef, "to_ascii\(\'\\u066C\-\\uDA09\\uDC86Ⴂ\。\\uDA42\\uDD92\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2629\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{066C}-\x{92486}ⴂ。\x{A0992}\x{200D}", %p)}, undef, "to_ascii\(\'\\u066C\-\\uDA09\\uDC86ⴂ\。\\uDA42\\uDD92\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2631\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{0723}0≯ß", %p)}, undef, "to_ascii\(\'⾆.\\u07230\≯ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2633\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{0723}0>\x{0338}ß", %p)}, undef, "to_ascii\(\'⾆.\\u07230\>\\u0338ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2634\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{0723}0≯ß", %p)}, undef, "to_ascii\(\'舌\.\\u07230\≯ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2635\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{0723}0>\x{0338}ß", %p)}, undef, "to_ascii\(\'舌\.\\u07230\>\\u0338ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2636\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{0723}0>\x{0338}SS", %p)}, undef, "to_ascii\(\'舌\.\\u07230\>\\u0338SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2637\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{0723}0≯SS", %p)}, undef, "to_ascii\(\'舌\.\\u07230\≯SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2638\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{0723}0≯ss", %p)}, undef, "to_ascii\(\'舌\.\\u07230\≯ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2639\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{0723}0>\x{0338}ss", %p)}, undef, "to_ascii\(\'舌\.\\u07230\>\\u0338ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2640\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{0723}0>\x{0338}Ss", %p)}, undef, "to_ascii\(\'舌\.\\u07230\>\\u0338Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2641\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{0723}0≯Ss", %p)}, undef, "to_ascii\(\'舌\.\\u07230\≯Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2642\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{0723}0>\x{0338}SS", %p)}, undef, "to_ascii\(\'⾆.\\u07230\>\\u0338SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2643\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{0723}0≯SS", %p)}, undef, "to_ascii\(\'⾆.\\u07230\≯SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2644\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{0723}0≯ss", %p)}, undef, "to_ascii\(\'⾆.\\u07230\≯ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2645\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{0723}0>\x{0338}ss", %p)}, undef, "to_ascii\(\'⾆.\\u07230\>\\u0338ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2646\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{0723}0>\x{0338}Ss", %p)}, undef, "to_ascii\(\'⾆.\\u07230\>\\u0338Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2647\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{0723}0≯Ss", %p)}, undef, "to_ascii\(\'⾆.\\u07230\≯Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2648\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{11134}8\x{200D}.\x{EE437}ᢊ", %p)}, undef, "to_ascii\(\'\\uD804\\uDD348\\u200D.\\uDB79\\uDC37ᢊ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2649\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{11134}8\x{200D}.\x{EE437}ᢊ", %p)}, undef, "to_ascii\(\'\\uD804\\uDD348\\u200D\.\\uDB79\\uDC37ᢊ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2651\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{923C8}\x{10A06}≮\x{82828}.\x{B20AB}4˹\x{06B5}", %p)}, undef, "to_ascii\(\'\\uDA08\\uDFC8\\uD802\\uDE06\≮\\uD9CA\\uDC28.\\uDA88\\uDCAB4˹\\u06B5\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2653\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{923C8}\x{10A06}<\x{0338}\x{82828}.\x{B20AB}4˹\x{06B5}", %p)}, undef, "to_ascii\(\'\\uDA08\\uDFC8\\uD802\\uDE06\<\\u0338\\uD9CA\\uDC28.\\uDA88\\uDCAB4˹\\u06B5\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2654\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{923C8}\x{10A06}≮\x{82828}.\x{B20AB}4˹\x{06B5}", %p)}, undef, "to_ascii\(\'\\uDA08\\uDFC8\\uD802\\uDE06\≮\\uD9CA\\uDC28\.\\uDA88\\uDCAB4˹\\u06B5\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2655\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{923C8}\x{10A06}<\x{0338}\x{82828}.\x{B20AB}4˹\x{06B5}", %p)}, undef, "to_ascii\(\'\\uDA08\\uDFC8\\uD802\\uDE06\<\\u0338\\uD9CA\\uDC28\.\\uDA88\\uDCAB4˹\\u06B5\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2656\]") 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{0842}.ς", %p)}, "xn--0vb.xn--4xa", "to_ascii\(\'\\u0842\.ς\'\)\ \[data\/IdnaTest\.txt\:2657\]") 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{0842}.Σ", %p)}, "xn--0vb.xn--4xa", "to_ascii\(\'\\u0842\.Σ\'\)\ \[data\/IdnaTest\.txt\:2659\]") 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{0842}.σ", %p)}, "xn--0vb.xn--4xa", "to_ascii\(\'\\u0842\.σ\'\)\ \[data\/IdnaTest\.txt\:2660\]") 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--0vb.xn--4xa", %p)}, "xn--0vb.xn--4xa", "to_ascii\(\'xn\-\-0vb\.xn\-\-4xa\'\)\ \[data\/IdnaTest\.txt\:2661\]") 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--0vb.xn--3xa", %p)}, "xn--0vb.xn--3xa", "to_ascii\(\'xn\-\-0vb\.xn\-\-3xa\'\)\ \[data\/IdnaTest\.txt\:2662\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}Ⴚ。ς", %p)}, undef, "to_ascii\(\'\\u200CႺ。ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2663\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴚ。ς", %p)}, undef, "to_ascii\(\'\\u200CႺ\。ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2665\]") 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\:2667\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}Ⴚ。Σ", %p)}, undef, "to_ascii\(\'\\u200CႺ\。Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2669\]") 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\:2671\]") 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\:2673\]") 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\:2674\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴚ.Σ", %p)}, undef, "to_ascii\(\'Ⴚ\.Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2675\]") 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\:2676\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴚ.ς", %p)}, undef, "to_ascii\(\'Ⴚ\.ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2678\]") 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\:2679\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴚ.σ", %p)}, undef, "to_ascii\(\'Ⴚ\.σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2680\]") 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\:2681\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}Ⴚ。Σ", %p)}, undef, "to_ascii\(\'\\u200CႺ。Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2683\]") 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\:2685\]") 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{07E3}.\x{0663}", %p)}, undef, "to_ascii\(\'\\u07E3.\\u0663\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2687\]") 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{07E3}.\x{0663}", %p)}, undef, "to_ascii\(\'\\u07E3\.\\u0663\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2688\]") 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{0981}\x{111C0}ꡏ", %p)}, undef, "to_ascii\(\'\\u200D⾕\。\\u200C\\u0981\\uD804\\uDDC0ꡏ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2689\]") 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{0981}\x{111C0}ꡏ", %p)}, undef, "to_ascii\(\'\\u200D谷\。\\u200C\\u0981\\uD804\\uDDC0ꡏ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2691\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᠴ-뉔.\x{0726}\x{200C}", %p)}, "xn----05j1765f.xn--wnb", "to_ascii\(\'ᠴ\-뉔.\\u0726\\u200C\'\)\ \[data\/IdnaTest\.txt\:2693\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠴ-뉔.\x{0726}\x{200C}", %p)}, "xn----05j1765f.xn--wnb", "to_ascii\(\'ᠴ\-뉔.\\u0726\\u200C\'\)\ \[data\/IdnaTest\.txt\:2695\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠴ-뉔.\x{0726}\x{200C}", %p)}, "xn----05j1765f.xn--wnb", "to_ascii\(\'ᠴ\-뉔\.\\u0726\\u200C\'\)\ \[data\/IdnaTest\.txt\:2697\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠴ-뉔.\x{0726}\x{200C}", %p)}, "xn----05j1765f.xn--wnb", "to_ascii\(\'ᠴ\-뉔\.\\u0726\\u200C\'\)\ \[data\/IdnaTest\.txt\:2699\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn----05j1765f.xn--wnb", %p)}, "xn----05j1765f.xn--wnb", "to_ascii\(\'xn\-\-\-\-05j1765f\.xn\-\-wnb\'\)\ \[data\/IdnaTest\.txt\:2701\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠴ-뉔.\x{0726}", %p)}, "xn----05j1765f.xn--wnb", "to_ascii\(\'ᠴ\-뉔\.\\u0726\'\)\ \[data\/IdnaTest\.txt\:2702\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠴ-뉔.\x{0726}", %p)}, "xn----05j1765f.xn--wnb", "to_ascii\(\'ᠴ\-뉔\.\\u0726\'\)\ \[data\/IdnaTest\.txt\:2703\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0E47}𝟴ᦛς.\x{1714}\x{067D}\x{0C3E}\x{1A68}", %p)}, undef, "to_ascii\(\'\\uDAC3\\uDE47𝟴ᦛς\.\\u1714\\u067D\\u0C3E\\u1A68\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2704\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0E47}8ᦛς.\x{1714}\x{067D}\x{0C3E}\x{1A68}", %p)}, undef, "to_ascii\(\'\\uDAC3\\uDE478ᦛς\.\\u1714\\u067D\\u0C3E\\u1A68\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2705\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0E47}8ᦛΣ.\x{1714}\x{067D}\x{0C3E}\x{1A68}", %p)}, undef, "to_ascii\(\'\\uDAC3\\uDE478ᦛΣ\.\\u1714\\u067D\\u0C3E\\u1A68\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2706\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0E47}8ᦛσ.\x{1714}\x{067D}\x{0C3E}\x{1A68}", %p)}, undef, "to_ascii\(\'\\uDAC3\\uDE478ᦛσ\.\\u1714\\u067D\\u0C3E\\u1A68\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2707\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0E47}𝟴ᦛΣ.\x{1714}\x{067D}\x{0C3E}\x{1A68}", %p)}, undef, "to_ascii\(\'\\uDAC3\\uDE47𝟴ᦛΣ\.\\u1714\\u067D\\u0C3E\\u1A68\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2708\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0E47}𝟴ᦛσ.\x{1714}\x{067D}\x{0C3E}\x{1A68}", %p)}, undef, "to_ascii\(\'\\uDAC3\\uDE47𝟴ᦛσ\.\\u1714\\u067D\\u0C3E\\u1A68\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2709\]") 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{08A6}", %p)}, "xn--34w.xn--vyb", "to_ascii\(\'淽\。\\u08A6\'\)\ \[data\/IdnaTest\.txt\:2710\]") 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--34w.xn--vyb", %p)}, "xn--34w.xn--vyb", "to_ascii\(\'xn\-\-34w\.xn\-\-vyb\'\)\ \[data\/IdnaTest\.txt\:2711\]") 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{08A6}", %p)}, "xn--34w.xn--vyb", "to_ascii\(\'淽\.\\u08A6\'\)\ \[data\/IdnaTest\.txt\:2712\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E66}\x{E01B7}。-", %p)}, undef, "to_ascii\(\'\\uD803\\uDE66\\uDB40\\uDDB7\。\-\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2713\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{D46C7}Ⴓ\x{E06F0}。\x{059A}", %p)}, undef, "to_ascii\(\'\\uDB11\\uDEC7Ⴓ\\uDB41\\uDEF0。\\u059A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2714\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{D46C7}Ⴓ\x{E06F0}。\x{059A}", %p)}, undef, "to_ascii\(\'\\uDB11\\uDEC7Ⴓ\\uDB41\\uDEF0\。\\u059A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2715\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{D46C7}ⴓ\x{E06F0}。\x{059A}", %p)}, undef, "to_ascii\(\'\\uDB11\\uDEC7ⴓ\\uDB41\\uDEF0\。\\u059A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2716\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{D46C7}ⴓ\x{E06F0}。\x{059A}", %p)}, undef, "to_ascii\(\'\\uDB11\\uDEC7ⴓ\\uDB41\\uDEF0。\\u059A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2717\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{10E72}\x{0641}Ⴇ。ßႣ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2718\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{10E72}\x{0641}Ⴇ。ßႣ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ\。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2720\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E72}\x{0641}ⴇ。ßⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641ⴇ\。ßⴃ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2722\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{10E72}\x{0641}Ⴇ。SSႣ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ\。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2724\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E72}\x{0641}ⴇ。ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641ⴇ\。ssⴃ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2726\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{10E72}\x{0641}Ⴇ。Ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ\。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2728\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E72}\x{0641}ⴇ。ßⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641ⴇ。ßⴃ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2730\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{10E72}\x{0641}Ⴇ。SSႣ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2732\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E72}\x{0641}ⴇ。ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641ⴇ。ssⴃ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2734\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{10E72}\x{0641}Ⴇ。Ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2736\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1024D0}。\x{FDF1}", %p)}, undef, "to_ascii\(\'\\uDBC9\\uDCD0。\\uFDF1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2738\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1024D0}。\x{0642}\x{0644}\x{06D2}", %p)}, undef, "to_ascii\(\'\\uDBC9\\uDCD0\。\\u0642\\u0644\\u06D2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2739\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A66}\x{200D}。\x{1039}\x{20D8}", %p)}, undef, "to_ascii\(\'\\u1A66\\u200D。\\u1039\\u20D8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2740\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A66}\x{200D}。\x{20D8}\x{1039}", %p)}, undef, "to_ascii\(\'\\u1A66\\u200D。\\u20D8\\u1039\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2742\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A66}\x{200D}。\x{20D8}\x{1039}", %p)}, undef, "to_ascii\(\'\\u1A66\\u200D\。\\u20D8\\u1039\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2744\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-≠\x{0850}.\x{071B}\x{0751}≮\x{B1709}", %p)}, undef, "to_ascii\(\'\-\≠\\u0850.\\u071B\\u0751\≮\\uDA85\\uDF09\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:2746\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-=\x{0338}\x{0850}.\x{071B}\x{0751}<\x{0338}\x{B1709}", %p)}, undef, "to_ascii\(\'\-\=\\u0338\\u0850.\\u071B\\u0751\<\\u0338\\uDA85\\uDF09\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:2747\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≠\x{0850}.\x{071B}\x{0751}≮\x{B1709}", %p)}, undef, "to_ascii\(\'\-\≠\\u0850\.\\u071B\\u0751\≮\\uDA85\\uDF09\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:2748\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-=\x{0338}\x{0850}.\x{071B}\x{0751}<\x{0338}\x{B1709}", %p)}, undef, "to_ascii\(\'\-\=\\u0338\\u0850\.\\u071B\\u0751\<\\u0338\\uDA85\\uDF09\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:2749\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䷘≯\x{08C5}\x{084E}.\x{ED7CD}≮\x{A9C0}\x{06BA}", %p)}, undef, "to_ascii\(\'䷘\≯\\u08C5\\u084E.\\uDB75\\uDFCD\≮\\uA9C0\\u06BA\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2750\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䷘>\x{0338}\x{08C5}\x{084E}.\x{ED7CD}<\x{0338}\x{A9C0}\x{06BA}", %p)}, undef, "to_ascii\(\'䷘\>\\u0338\\u08C5\\u084E.\\uDB75\\uDFCD\<\\u0338\\uA9C0\\u06BA\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2751\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䷘≯\x{08C5}\x{084E}.\x{ED7CD}≮\x{A9C0}\x{06BA}", %p)}, undef, "to_ascii\(\'䷘\≯\\u08C5\\u084E\.\\uDB75\\uDFCD\≮\\uA9C0\\u06BA\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2752\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䷘>\x{0338}\x{08C5}\x{084E}.\x{ED7CD}<\x{0338}\x{A9C0}\x{06BA}", %p)}, undef, "to_ascii\(\'䷘\>\\u0338\\u08C5\\u084E\.\\uDB75\\uDFCD\<\\u0338\\uA9C0\\u06BA\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2753\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{86CAC}.\x{10E63}\x{0A4D}-\x{1ED77}", %p)}, undef, "to_ascii\(\'\≠\\uD9DB\\uDCAC\.\\uD803\\uDE63\\u0A4D\-\\uD83B\\uDD77\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2754\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{86CAC}.\x{10E63}\x{0A4D}-\x{1ED77}", %p)}, undef, "to_ascii\(\'\=\\u0338\\uD9DB\\uDCAC\.\\uD803\\uDE63\\u0A4D\-\\uD83B\\uDD77\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2755\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06E4}\x{0A81}≠。\x{10E73}𝟝", %p)}, undef, "to_ascii\(\'\\u06E4\\u0A81\≠。\\uD803\\uDE73𝟝\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2756\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06E4}\x{0A81}=\x{0338}。\x{10E73}𝟝", %p)}, undef, "to_ascii\(\'\\u06E4\\u0A81\=\\u0338。\\uD803\\uDE73𝟝\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2757\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06E4}\x{0A81}≠。\x{10E73}5", %p)}, undef, "to_ascii\(\'\\u06E4\\u0A81\≠\。\\uD803\\uDE735\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2758\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06E4}\x{0A81}=\x{0338}。\x{10E73}5", %p)}, undef, "to_ascii\(\'\\u06E4\\u0A81\=\\u0338\。\\uD803\\uDE735\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2759\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{AF6B7}\x{550BA}。\x{1A62}🃕ß", %p)}, undef, "to_ascii\(\'ß\\uDA7D\\uDEB7\\uD914\\uDCBA。\\u1A62🃕ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2760\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{AF6B7}\x{550BA}。\x{1A62}🃕ß", %p)}, undef, "to_ascii\(\'ß\\uDA7D\\uDEB7\\uD914\\uDCBA\。\\u1A62🃕ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2761\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{AF6B7}\x{550BA}。\x{1A62}🃕SS", %p)}, undef, "to_ascii\(\'SS\\uDA7D\\uDEB7\\uD914\\uDCBA\。\\u1A62🃕SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2762\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{AF6B7}\x{550BA}。\x{1A62}🃕ss", %p)}, undef, "to_ascii\(\'ss\\uDA7D\\uDEB7\\uD914\\uDCBA\。\\u1A62🃕ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2763\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{AF6B7}\x{550BA}。\x{1A62}🃕Ss", %p)}, undef, "to_ascii\(\'Ss\\uDA7D\\uDEB7\\uD914\\uDCBA\。\\u1A62🃕Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2764\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{AF6B7}\x{550BA}。\x{1A62}🃕SS", %p)}, undef, "to_ascii\(\'SS\\uDA7D\\uDEB7\\uD914\\uDCBA。\\u1A62🃕SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2765\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{AF6B7}\x{550BA}。\x{1A62}🃕ss", %p)}, undef, "to_ascii\(\'ss\\uDA7D\\uDEB7\\uD914\\uDCBA。\\u1A62🃕ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2766\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{AF6B7}\x{550BA}。\x{1A62}🃕Ss", %p)}, undef, "to_ascii\(\'Ss\\uDA7D\\uDEB7\\uD914\\uDCBA。\\u1A62🃕Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2767\]") 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\:2768\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E49}\x{FDA9}\x{200D}.\x{E01D1}\x{1EF9C}\x{9B50A}", %p)}, undef, "to_ascii\(\'\\u0E49\\uFDA9\\u200D\.\\uDB40\\uDDD1\\uD83B\\uDF9C\\uDA2D\\uDD0A\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:2770\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E49}\x{0635}\x{062D}\x{064A}\x{200D}.\x{E01D1}\x{1EF9C}\x{9B50A}", %p)}, undef, "to_ascii\(\'\\u0E49\\u0635\\u062D\\u064A\\u200D\.\\uDB40\\uDDD1\\uD83B\\uDF9C\\uDA2D\\uDD0A\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:2772\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1EE26}\x{200C}临。ᢜ\x{6FE12}ⶏ\x{10E72}", %p)}, undef, "to_ascii\(\'\\u200C\\uD83B\\uDE26\\u200C临\。ᢜ\\uD97F\\uDE12ⶏ\\uD803\\uDE72\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2774\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DFA}.\x{0739}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDFA.\\u0739\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2776\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DFA}.\x{0739}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDFA\.\\u0739\'\)\ throws\ error\ P1\ V6\ 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{068A}\x{0ACD}.\x{AAF6}", %p)}, undef, "to_ascii\(\'\\u068A\\u0ACD.\\uAAF6\'\)\ throws\ error\ V5\ \[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{068A}\x{0ACD}.\x{AAF6}", %p)}, undef, "to_ascii\(\'\\u068A\\u0ACD\.\\uAAF6\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2779\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0A75}\x{AF3A7}멹。𝟑\x{E0ED8}", %p)}, undef, "to_ascii\(\'\\u0A75\\uDA7C\\uDFA7멹\。𝟑\\uDB43\\uDED8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2780\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A75}\x{AF3A7}멹。𝟑\x{E0ED8}", %p)}, undef, "to_ascii\(\'\\u0A75\\uDA7C\\uDFA7멹\。𝟑\\uDB43\\uDED8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2781\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A75}\x{AF3A7}멹。3\x{E0ED8}", %p)}, undef, "to_ascii\(\'\\u0A75\\uDA7C\\uDFA7멹\。3\\uDB43\\uDED8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2782\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A75}\x{AF3A7}멹。3\x{E0ED8}", %p)}, undef, "to_ascii\(\'\\u0A75\\uDA7C\\uDFA7멹\。3\\uDB43\\uDED8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2783\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴅ\x{56FF5}릖\x{E03F8}.\x{0626}\x{10E6E}₄", %p)}, undef, "to_ascii\(\'Ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u0626\\uD803\\uDE6E₄\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2784\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴅ\x{56FF5}릖\x{E03F8}.\x{064A}\x{0654}\x{10E6E}₄", %p)}, undef, "to_ascii\(\'Ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u064A\\u0654\\uD803\\uDE6E₄\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2785\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴅ\x{56FF5}릖\x{E03F8}.\x{0626}\x{10E6E}4", %p)}, undef, "to_ascii\(\'Ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u0626\\uD803\\uDE6E4\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2786\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴅ\x{56FF5}릖\x{E03F8}.\x{064A}\x{0654}\x{10E6E}4", %p)}, undef, "to_ascii\(\'Ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u064A\\u0654\\uD803\\uDE6E4\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2787\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴅ\x{56FF5}릖\x{E03F8}.\x{064A}\x{0654}\x{10E6E}4", %p)}, undef, "to_ascii\(\'ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u064A\\u0654\\uD803\\uDE6E4\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2788\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴅ\x{56FF5}릖\x{E03F8}.\x{0626}\x{10E6E}4", %p)}, undef, "to_ascii\(\'ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u0626\\uD803\\uDE6E4\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2789\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴅ\x{56FF5}릖\x{E03F8}.\x{064A}\x{0654}\x{10E6E}₄", %p)}, undef, "to_ascii\(\'ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u064A\\u0654\\uD803\\uDE6E₄\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2790\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴅ\x{56FF5}릖\x{E03F8}.\x{0626}\x{10E6E}₄", %p)}, undef, "to_ascii\(\'ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u0626\\uD803\\uDE6E₄\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2791\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。︒", %p)}, undef, "to_ascii\(\'\\u200C。︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2792\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。。", %p)}, undef, "to_ascii\(\'\\u200C\。\。\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:2794\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯ꡙ.⒍", %p)}, undef, "to_ascii\(\'\≯ꡙ.⒍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2796\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}ꡙ.⒍", %p)}, undef, "to_ascii\(\'\>\\u0338ꡙ.⒍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2797\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯ꡙ.6.", %p)}, undef, "to_ascii\(\'\≯ꡙ\.6\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2798\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}ꡙ.6.", %p)}, undef, "to_ascii\(\'\>\\u0338ꡙ\.6\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2799\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}-8.ß-\x{200C}-", %p)}, undef, "to_ascii\(\'\\u062B\-8\.ß\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2800\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}-8.ß-\x{200C}-", %p)}, undef, "to_ascii\(\'\\u062B\-8\.ß\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2802\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}-8.SS-\x{200C}-", %p)}, undef, "to_ascii\(\'\\u062B\-8\.SS\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2804\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}-8.ss-\x{200C}-", %p)}, undef, "to_ascii\(\'\\u062B\-8\.ss\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2806\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}-8.Ss-\x{200C}-", %p)}, undef, "to_ascii\(\'\\u062B\-8\.Ss\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2808\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}-8.SS-\x{200C}-", %p)}, undef, "to_ascii\(\'\\u062B\-8\.SS\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2810\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}-8.ss-\x{200C}-", %p)}, undef, "to_ascii\(\'\\u062B\-8\.ss\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2812\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}-8.Ss-\x{200C}-", %p)}, undef, "to_ascii\(\'\\u062B\-8\.Ss\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2814\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EDBA}𝟥\x{06FC}\x{5AC7C}。Ӏ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDDBA𝟥\\u06FC\\uD92B\\uDC7C。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2816\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EDBA}3\x{06FC}\x{5AC7C}。Ӏ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDDBA3\\u06FC\\uD92B\\uDC7C\。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2817\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EDBA}3\x{06FC}\x{5AC7C}。ӏ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDDBA3\\u06FC\\uD92B\\uDC7C\。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2818\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EDBA}𝟥\x{06FC}\x{5AC7C}。ӏ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDDBA𝟥\\u06FC\\uD92B\\uDC7C。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2819\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.\x{10E79}\x{1EC95}\x{A6F1}⸟", %p)}, undef, "to_ascii\(\'\-\.\\uD803\\uDE79\\uD83B\\uDC95\\uA6F1\⸟\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2820\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10B492}ᡰ。\x{1CF4}₺", %p)}, undef, "to_ascii\(\'\\uDBED\\uDC92ᡰ\。\\u1CF4₺\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2821\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ႷᡔႫ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\≠ႷᡔႫ。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2822\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ႷᡔႫ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ႷᡔႫ。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2823\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ႷᡔႫ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\≠ႷᡔႫ\。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2824\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ႷᡔႫ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ႷᡔႫ\。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2825\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ⴗᡔⴋ\。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2826\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\≠ⴗᡔⴋ\。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2827\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠Ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\≠Ⴗᡔⴋ\。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2828\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}Ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\=\\u0338Ⴗᡔⴋ\。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2829\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ⴗᡔⴋ。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2830\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\≠ⴗᡔⴋ。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2831\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠Ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\≠Ⴗᡔⴋ。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2832\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}Ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\=\\u0338Ⴗᡔⴋ。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2833\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0600}.\x{10FA3}", %p)}, undef, "to_ascii\(\'\\u0600\.\\uD803\\uDFA3\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2834\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}🄈。\x{200D}\x{6962F}\x{066B}\x{0E3A}", %p)}, undef, "to_ascii\(\'\\u0CCD🄈。\\u200D\\uD965\\uDE2F\\u066B\\u0E3A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2835\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}7,。\x{200D}\x{6962F}\x{066B}\x{0E3A}", %p)}, undef, "to_ascii\(\'\\u0CCD7\,\。\\u200D\\uD965\\uDE2F\\u066B\\u0E3A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2837\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E8122}4\x{410B1}.≯\x{10E74}\x{135E}\x{E0E0C}", %p)}, undef, "to_ascii\(\'\\uDB60\\uDD224\\uD8C4\\uDCB1\.\≯\\uD803\\uDE74\\u135E\\uDB43\\uDE0C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2839\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E8122}4\x{410B1}.>\x{0338}\x{10E74}\x{135E}\x{E0E0C}", %p)}, undef, "to_ascii\(\'\\uDB60\\uDD224\\uD8C4\\uDCB1\.\>\\u0338\\uD803\\uDE74\\u135E\\uDB43\\uDE0C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2840\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{57237}🄉。𝟕\x{1A5A}⒉\x{79447}", %p)}, undef, "to_ascii\(\'\\uD91C\\uDE37🄉\。𝟕\\u1A5A⒉\\uD9A5\\uDC47\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2841\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{57237}8,。7\x{1A5A}2.\x{79447}", %p)}, undef, "to_ascii\(\'\\uD91C\\uDE378\,\。7\\u1A5A2\.\\uD9A5\\uDC47\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2842\]") 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\:2843\]") 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\:2845\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}1.1.。≯5,\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D1\.1\.\。\≯5\,\\u200D\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2847\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}1.1.。>\x{0338}5,\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D1\.1\.\。\>\\u03385\,\\u200D\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2849\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0755}\x{06CF}\x{A927}.\x{8C2E1}ᡚ≠\x{200C}", %p)}, undef, "to_ascii\(\'\\u0755\\u06CF\\uA927.\\uD9F0\\uDEE1ᡚ\≠\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2851\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0755}\x{06CF}\x{A927}.\x{8C2E1}ᡚ=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0755\\u06CF\\uA927.\\uD9F0\\uDEE1ᡚ\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2853\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0755}\x{06CF}\x{A927}.\x{8C2E1}ᡚ≠\x{200C}", %p)}, undef, "to_ascii\(\'\\u0755\\u06CF\\uA927\.\\uD9F0\\uDEE1ᡚ\≠\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2855\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0755}\x{06CF}\x{A927}.\x{8C2E1}ᡚ=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0755\\u06CF\\uA927\.\\uD9F0\\uDEE1ᡚ\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2857\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1BF1}。\x{BBE4D}\x{066B}", %p)}, undef, "to_ascii\(\'\\u1BF1。\\uDAAF\\uDE4D\\u066B\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2859\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1BF1}。\x{BBE4D}\x{066B}", %p)}, undef, "to_ascii\(\'\\u1BF1\。\\uDAAF\\uDE4D\\u066B\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2860\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E78}。\x{E0123}", %p)}, undef, "to_ascii\(\'3\\uD803\\uDE78\。\\uDB40\\uDD23\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2861\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E78}。\x{E0123}", %p)}, undef, "to_ascii\(\'3\\uD803\\uDE78\。\\uDB40\\uDD23\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2862\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E77}\x{10E73}.ꡟ긷", %p)}, undef, "to_ascii\(\'ᠬ\\uD803\\uDE77\\uD803\\uDE73\.ꡟ긷\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:2863\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E77}\x{10E73}.ꡟ긷", %p)}, undef, "to_ascii\(\'ᠬ\\uD803\\uDE77\\uD803\\uDE73\.ꡟ긷\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:2864\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("︒Ↄ\x{1732}\x{95B0F}.Ⴗ\x{1E890}", %p)}, undef, "to_ascii\(\'︒Ↄ\\u1732\\uDA16\\uDF0F.Ⴗ\\uD83A\\uDC90\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2865\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。Ↄ\x{1732}\x{95B0F}.Ⴗ\x{1E890}", %p)}, undef, "to_ascii\(\'\。Ↄ\\u1732\\uDA16\\uDF0F\.Ⴗ\\uD83A\\uDC90\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2866\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。ↄ\x{1732}\x{95B0F}.ⴗ\x{1E890}", %p)}, undef, "to_ascii\(\'\。ↄ\\u1732\\uDA16\\uDF0F\.ⴗ\\uD83A\\uDC90\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2867\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒ↄ\x{1732}\x{95B0F}.ⴗ\x{1E890}", %p)}, undef, "to_ascii\(\'︒ↄ\\u1732\\uDA16\\uDF0F.ⴗ\\uD83A\\uDC90\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2868\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6F}.\x{0948}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6F\.\\u0948\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2869\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ς≯。\x{10E65}", %p)}, undef, "to_ascii\(\'ς\≯。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2870\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς>\x{0338}。\x{10E65}", %p)}, undef, "to_ascii\(\'ς\>\\u0338。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2871\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς≯。\x{10E65}", %p)}, undef, "to_ascii\(\'ς\≯\。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2872\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς>\x{0338}。\x{10E65}", %p)}, undef, "to_ascii\(\'ς\>\\u0338\。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2873\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ>\x{0338}。\x{10E65}", %p)}, undef, "to_ascii\(\'Σ\>\\u0338\。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2874\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ≯。\x{10E65}", %p)}, undef, "to_ascii\(\'Σ\≯\。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2875\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ≯。\x{10E65}", %p)}, undef, "to_ascii\(\'σ\≯\。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2876\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ>\x{0338}。\x{10E65}", %p)}, undef, "to_ascii\(\'σ\>\\u0338\。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2877\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ>\x{0338}。\x{10E65}", %p)}, undef, "to_ascii\(\'Σ\>\\u0338。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2878\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ≯。\x{10E65}", %p)}, undef, "to_ascii\(\'Σ\≯。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2879\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ≯。\x{10E65}", %p)}, undef, "to_ascii\(\'σ\≯。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2880\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ>\x{0338}。\x{10E65}", %p)}, undef, "to_ascii\(\'σ\>\\u0338。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2881\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{200D}ꡀ。\x{10E78}", %p)}, undef, "to_ascii\(\'\\uA9C0\\u200Dꡀ\。\\uD803\\uDE78\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2882\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{9B886}\x{0A42}Ⴊ\x{5EF94}.≮", %p)}, undef, "to_ascii\(\'\\uDA2E\\uDC86\\u0A42Ⴊ\\uD93B\\uDF94\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2883\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9B886}\x{0A42}Ⴊ\x{5EF94}.<\x{0338}", %p)}, undef, "to_ascii\(\'\\uDA2E\\uDC86\\u0A42Ⴊ\\uD93B\\uDF94\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2884\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9B886}\x{0A42}ⴊ\x{5EF94}.<\x{0338}", %p)}, undef, "to_ascii\(\'\\uDA2E\\uDC86\\u0A42ⴊ\\uD93B\\uDF94\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2885\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9B886}\x{0A42}ⴊ\x{5EF94}.≮", %p)}, undef, "to_ascii\(\'\\uDA2E\\uDC86\\u0A42ⴊ\\uD93B\\uDF94\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2886\]") 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{0843}.𝟻", %p)}, "xn--1vb.5", "to_ascii\(\'\\u0843.𝟻\'\)\ \[data\/IdnaTest\.txt\:2887\]") 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{0843}.5", %p)}, "xn--1vb.5", "to_ascii\(\'\\u0843\.5\'\)\ \[data\/IdnaTest\.txt\:2888\]") 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--1vb.5", %p)}, "xn--1vb.5", "to_ascii\(\'xn\-\-1vb\.5\'\)\ \[data\/IdnaTest\.txt\:2889\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0603}\x{2DD9A}。\x{06CE}𝟢", %p)}, undef, "to_ascii\(\'\\u0603\\uD877\\uDD9A。\\u06CE𝟢\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2890\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}\x{2DD9A}。\x{06CE}0", %p)}, undef, "to_ascii\(\'\\u0603\\uD877\\uDD9A\。\\u06CE0\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2891\]") 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{111C0}\x{FCEC}\x{1B6D}。\x{200D}\x{0F84}", %p)}, undef, "to_ascii\(\'\-\\uD804\\uDDC0\\uFCEC\\u1B6D。\\u200D\\u0F84\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2892\]") 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{111C0}\x{0643}\x{0645}\x{1B6D}。\x{200D}\x{0F84}", %p)}, undef, "to_ascii\(\'\-\\uD804\\uDDC0\\u0643\\u0645\\u1B6D\。\\u200D\\u0F84\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2894\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FE0F}\x{200C}\x{8C6E1}𝟏。\x{200C}\x{A950}\x{0351}", %p)}, undef, "to_ascii\(\'\\uFE0F\\u200C\\uD9F1\\uDEE1𝟏。\\u200C\\uA950\\u0351\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2896\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE0F}\x{200C}\x{8C6E1}1。\x{200C}\x{A950}\x{0351}", %p)}, undef, "to_ascii\(\'\\uFE0F\\u200C\\uD9F1\\uDEE11\。\\u200C\\uA950\\u0351\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2898\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("兎。\x{071B}\x{E0D1C}\x{1734}\x{0F84}", %p)}, undef, "to_ascii\(\'兎。\\u071B\\uDB43\\uDD1C\\u1734\\u0F84\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2900\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("兎。\x{071B}\x{E0D1C}\x{1734}\x{0F84}", %p)}, undef, "to_ascii\(\'兎\。\\u071B\\uDB43\\uDD1C\\u1734\\u0F84\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2901\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒙。\x{200D}5\x{200D}⒕", %p)}, undef, "to_ascii\(\'⒙。\\u200D5\\u200D⒕\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2902\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("18.。\x{200D}5\x{200D}14.", %p)}, undef, "to_ascii\(\'18\.\。\\u200D5\\u200D14\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:2904\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0849}-。\x{E09FA}⒔", %p)}, undef, "to_ascii\(\'\\u0849\-。\\uDB42\\uDDFA⒔\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:2906\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0849}-。\x{E09FA}13.", %p)}, undef, "to_ascii\(\'\\u0849\-\。\\uDB42\\uDDFA13\.\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:2907\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DED}\x{7CF6C}\x{FC08}.\x{10E60}۸", %p)}, undef, "to_ascii\(\'\\u2DED\\uD9B3\\uDF6C\\uFC08.\\uD803\\uDE60۸\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2908\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DED}\x{7CF6C}\x{0628}\x{0645}.\x{10E60}۸", %p)}, undef, "to_ascii\(\'\\u2DED\\uD9B3\\uDF6C\\u0628\\u0645\.\\uD803\\uDE60۸\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2909\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴜ𤮹\x{1CE8}⾇。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴜ𤮹\\u1CE8⾇\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2910\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴜ𤮹\x{1CE8}舛。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴜ𤮹\\u1CE8舛\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2912\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1CE8}舛。ⴏ♀\x{200C}\x{200C}", %p)}, "xn--16f130edj8dsszv.xn--e5h11w", "to_ascii\(\'ⴜ𤮹\\u1CE8舛\。ⴏ\♀\\u200C\\u200C\'\)\ \[data\/IdnaTest\.txt\:2914\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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--16f130edj8dsszv.xn--e5h11w", %p)}, "xn--16f130edj8dsszv.xn--e5h11w", "to_ascii\(\'xn\-\-16f130edj8dsszv\.xn\-\-e5h11w\'\)\ \[data\/IdnaTest\.txt\:2916\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1CE8}舛.ⴏ♀", %p)}, "xn--16f130edj8dsszv.xn--e5h11w", "to_ascii\(\'ⴜ𤮹\\u1CE8舛\.ⴏ\♀\'\)\ \[data\/IdnaTest\.txt\:2917\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴜ𤮹\x{1CE8}舛.Ⴏ♀", %p)}, undef, "to_ascii\(\'Ⴜ𤮹\\u1CE8舛\.Ⴏ\♀\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2918\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1CE8}⾇。ⴏ♀\x{200C}\x{200C}", %p)}, "xn--16f130edj8dsszv.xn--e5h11w", "to_ascii\(\'ⴜ𤮹\\u1CE8⾇\。ⴏ\♀\\u200C\\u200C\'\)\ \[data\/IdnaTest\.txt\:2919\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0D4D}🄈.\x{200D}", %p)}, undef, "to_ascii\(\'\\u0D4D🄈\.\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2921\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0D4D}7,.\x{200D}", %p)}, undef, "to_ascii\(\'\\u0D4D7\,\.\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2923\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C512A}Ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\\uDAD4\\uDD2AႾ癀。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2925\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C512A}Ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\\uDAD4\\uDD2AႾ癀。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2927\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C512A}Ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\\uDAD4\\uDD2AႾ癀\。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2929\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C512A}Ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\\uDAD4\\uDD2AႾ癀\。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2931\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C512A}ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\\uDAD4\\uDD2Aⴞ癀\。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2933\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C512A}ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\\uDAD4\\uDD2Aⴞ癀\。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2935\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C512A}ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\\uDAD4\\uDD2Aⴞ癀。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2937\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C512A}ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\\uDAD4\\uDD2Aⴞ癀。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2939\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{D79A5}-\x{110B9}。\x{08A6}", %p)}, undef, "to_ascii\(\'\\uDB1E\\uDDA5\-\\uD804\\uDCB9\。\\u08A6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2941\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08A4}𝟥≯\x{06BB}.氁\x{2BF95}ꁫ", %p)}, undef, "to_ascii\(\'\\u08A4𝟥\≯\\u06BB.氁\\uD86F\\uDF95ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2942\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08A4}𝟥>\x{0338}\x{06BB}.氁\x{2BF95}ꁫ", %p)}, undef, "to_ascii\(\'\\u08A4𝟥\>\\u0338\\u06BB.氁\\uD86F\\uDF95ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2943\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08A4}3≯\x{06BB}.氁\x{2BF95}ꁫ", %p)}, undef, "to_ascii\(\'\\u08A43\≯\\u06BB\.氁\\uD86F\\uDF95ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2944\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08A4}3>\x{0338}\x{06BB}.氁\x{2BF95}ꁫ", %p)}, undef, "to_ascii\(\'\\u08A43\>\\u0338\\u06BB\.氁\\uD86F\\uDF95ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2945\]") 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{0664}\x{116B0}.\x{0369}", %p)}, undef, "to_ascii\(\'\\u0664\\uD805\\uDEB0.\\u0369\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2946\]") 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{0664}\x{116B0}.\x{0369}", %p)}, undef, "to_ascii\(\'\\u0664\\uD805\\uDEB0\.\\u0369\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2947\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-\x{1112D}𝟮.₅\x{EDAD1}\x{E03AD}", %p)}, undef, "to_ascii\(\'\-\\uD804\\uDD2D𝟮.₅\\uDB76\\uDED1\\uDB40\\uDFAD\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2948\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{1112D}2.5\x{EDAD1}\x{E03AD}", %p)}, undef, "to_ascii\(\'\-\\uD804\\uDD2D2\.5\\uDB76\\uDED1\\uDB40\\uDFAD\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2949\]") 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\:2950\]") 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\:2952\]") 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\:2954\]") 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\:2956\]") 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\:2958\]") 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\:2960\]") 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\:2962\]") 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\:2964\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("歷。\x{10E62}≯\x{A5AF3}\x{200D}", %p)}, undef, "to_ascii\(\'歷。\\uD803\\uDE62\≯\\uDA56\\uDEF3\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2966\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("歷。\x{10E62}>\x{0338}\x{A5AF3}\x{200D}", %p)}, undef, "to_ascii\(\'歷。\\uD803\\uDE62\>\\u0338\\uDA56\\uDEF3\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2968\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("歷。\x{10E62}≯\x{A5AF3}\x{200D}", %p)}, undef, "to_ascii\(\'歷\。\\uD803\\uDE62\≯\\uDA56\\uDEF3\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2970\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("歷。\x{10E62}>\x{0338}\x{A5AF3}\x{200D}", %p)}, undef, "to_ascii\(\'歷\。\\uD803\\uDE62\>\\u0338\\uDA56\\uDEF3\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2972\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0962}\x{200D}.𠸔\x{E0C11}", %p)}, undef, "to_ascii\(\'\\u0962\\u200D.𠸔\\uDB43\\uDC11\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2974\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0962}\x{200D}.𠸔\x{E0C11}", %p)}, undef, "to_ascii\(\'\\u0962\\u200D\.𠸔\\uDB43\\uDC11\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2976\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{0756}。\x{E9AA5}\x{FD1E}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u0756。\\uDB66\\uDEA5\\uFD1E\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2978\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{0756}。\x{E9AA5}\x{062C}\x{064A}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u0756\。\\uDB66\\uDEA5\\u062C\\u064A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2980\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}≠𝟶-.ς⒓\x{10E7E}≠", %p)}, undef, "to_ascii\(\'\\u0641\≠𝟶\-\.ς⒓\\uD803\\uDE7E\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2982\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}=\x{0338}𝟶-.ς⒓\x{10E7E}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0641\=\\u0338𝟶\-\.ς⒓\\uD803\\uDE7E\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2983\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}≠0-.ς12.\x{10E7E}≠", %p)}, undef, "to_ascii\(\'\\u0641\≠0\-\.ς12\.\\uD803\\uDE7E\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:2984\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}=\x{0338}0-.ς12.\x{10E7E}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0641\=\\u03380\-\.ς12\.\\uD803\\uDE7E\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:2985\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}=\x{0338}0-.Σ12.\x{10E7E}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0641\=\\u03380\-\.Σ12\.\\uD803\\uDE7E\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:2986\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}≠0-.Σ12.\x{10E7E}≠", %p)}, undef, "to_ascii\(\'\\u0641\≠0\-\.Σ12\.\\uD803\\uDE7E\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:2987\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}≠0-.σ12.\x{10E7E}≠", %p)}, undef, "to_ascii\(\'\\u0641\≠0\-\.σ12\.\\uD803\\uDE7E\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:2988\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}=\x{0338}0-.σ12.\x{10E7E}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0641\=\\u03380\-\.σ12\.\\uD803\\uDE7E\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:2989\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}=\x{0338}𝟶-.Σ⒓\x{10E7E}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0641\=\\u0338𝟶\-\.Σ⒓\\uD803\\uDE7E\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2990\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}≠𝟶-.Σ⒓\x{10E7E}≠", %p)}, undef, "to_ascii\(\'\\u0641\≠𝟶\-\.Σ⒓\\uD803\\uDE7E\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2991\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}≠𝟶-.σ⒓\x{10E7E}≠", %p)}, undef, "to_ascii\(\'\\u0641\≠𝟶\-\.σ⒓\\uD803\\uDE7E\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2992\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}=\x{0338}𝟶-.σ⒓\x{10E7E}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0641\=\\u0338𝟶\-\.σ⒓\\uD803\\uDE7E\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2993\]") 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{0623}\x{17CD}\x{11042}", %p)}, undef, "to_ascii\(\'ꊉ\.\-\\u0623\\u17CD\\uD804\\uDC42\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2994\]") 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{0627}\x{0654}\x{17CD}\x{11042}", %p)}, undef, "to_ascii\(\'ꊉ\.\-\\u0627\\u0654\\u17CD\\uD804\\uDC42\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2995\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᢚ⒈ß\x{05B0}。\x{83F0F}-", %p)}, undef, "to_ascii\(\'ᢚ⒈ß\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2996\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢚ1.ß\x{05B0}。\x{83F0F}-", %p)}, undef, "to_ascii\(\'ᢚ1\.ß\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2997\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢚ1.SS\x{05B0}。\x{83F0F}-", %p)}, undef, "to_ascii\(\'ᢚ1\.SS\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2998\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢚ1.ss\x{05B0}。\x{83F0F}-", %p)}, undef, "to_ascii\(\'ᢚ1\.ss\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2999\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢚ1.Ss\x{05B0}。\x{83F0F}-", %p)}, undef, "to_ascii\(\'ᢚ1\.Ss\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3000\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢚ⒈SS\x{05B0}。\x{83F0F}-", %p)}, undef, "to_ascii\(\'ᢚ⒈SS\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3001\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢚ⒈ss\x{05B0}。\x{83F0F}-", %p)}, undef, "to_ascii\(\'ᢚ⒈ss\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3002\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢚ⒈Ss\x{05B0}。\x{83F0F}-", %p)}, undef, "to_ascii\(\'ᢚ⒈Ss\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3003\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}ςႦ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99.\\u1039ςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3004\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}ςႦ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99\.\\u1039ςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3006\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}ςⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99\.\\u1039ςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3008\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}ΣႦ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99\.\\u1039ΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3010\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99\.\\u1039σⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3012\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}Σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99\.\\u1039Σⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3014\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}ςⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99.\\u1039ςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3016\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}ΣႦ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99.\\u1039ΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3018\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99.\\u1039σⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3020\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}Σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99.\\u1039Σⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3022\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E70}.\x{302A}", %p)}, undef, "to_ascii\(\'⾆\\uD803\\uDE70\.\\u302A\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3024\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E70}.\x{302A}", %p)}, undef, "to_ascii\(\'舌\\uD803\\uDE70\.\\u302A\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3025\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("🝧\x{10E6F}\x{E01BA}。⸠⒈", %p)}, undef, "to_ascii\(\'🝧\\uD803\\uDE6F\\uDB40\\uDDBA\。\⸠⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3026\]") 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{10E6F}\x{E01BA}。⸠1.", %p)}, undef, "to_ascii\(\'🝧\\uD803\\uDE6F\\uDB40\\uDDBA\。\⸠1\.\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3027\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒈\x{200C}\x{0946}︒.\x{10A3F}", %p)}, undef, "to_ascii\(\'⒈\\u200C\\u0946︒.\\uD802\\uDE3F\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3028\]") 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("1.\x{200C}\x{0946}。.\x{10A3F}", %p)}, undef, "to_ascii\(\'1\.\\u200C\\u0946\。\.\\uD802\\uDE3F\'\)\ throws\ error\ V5\ A4_2\ \[data\/IdnaTest\.txt\:3030\]") 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{1BAB}。䰀\x{10E65}\x{FC7B}\x{0829}", %p)}, undef, "to_ascii\(\'\\u1BAB\。䰀\\uD803\\uDE65\\uFC7B\\u0829\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3032\]") 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{1BAB}。䰀\x{10E65}\x{062B}\x{064A}\x{0829}", %p)}, undef, "to_ascii\(\'\\u1BAB\。䰀\\uD803\\uDE65\\u062B\\u064A\\u0829\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3033\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ß\x{200D}.\x{1BAB}\x{C9110}", %p)}, undef, "to_ascii\(\'ß\\u200D\.\\u1BAB\\uDAE4\\uDD10\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3034\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{200D}.\x{1BAB}\x{C9110}", %p)}, undef, "to_ascii\(\'SS\\u200D\.\\u1BAB\\uDAE4\\uDD10\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3036\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{200D}.\x{1BAB}\x{C9110}", %p)}, undef, "to_ascii\(\'ss\\u200D\.\\u1BAB\\uDAE4\\uDD10\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3038\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{200D}.\x{1BAB}\x{C9110}", %p)}, undef, "to_ascii\(\'Ss\\u200D\.\\u1BAB\\uDAE4\\uDD10\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3040\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{103A}\x{200C}≮.≮", %p)}, undef, "to_ascii\(\'\\u103A\\u200C\≮\.\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3042\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{103A}\x{200C}<\x{0338}.<\x{0338}", %p)}, undef, "to_ascii\(\'\\u103A\\u200C\<\\u0338\.\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3043\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("℈.\x{FFA0}", %p)}, undef, "to_ascii\(\'℈.\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3044\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("℈.\x{1160}", %p)}, undef, "to_ascii\(\'℈\.\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3045\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0721}\x{10F06}。\x{CEF44}", %p)}, undef, "to_ascii\(\'\\u0721\\uD803\\uDF06\。\\uDAFB\\uDF44\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3046\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("爕\x{91BA2}.5気", %p)}, undef, "to_ascii\(\'爕\\uDA06\\uDFA2.5気\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3047\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("爕\x{91BA2}.5気", %p)}, undef, "to_ascii\(\'爕\\uDA06\\uDFA2\.5気\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3048\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷\x{11134}Ⴝ-.\x{0801}\x{10A3F}\x{0DD6}", %p)}, undef, "to_ascii\(\'۷\\uD804\\uDD34Ⴝ\-.\\u0801\\uD802\\uDE3F\\u0DD6\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3049\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷\x{11134}Ⴝ-.\x{0801}\x{10A3F}\x{0DD6}", %p)}, undef, "to_ascii\(\'۷\\uD804\\uDD34Ⴝ\-\.\\u0801\\uD802\\uDE3F\\u0DD6\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3050\]") 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{11134}ⴝ-.\x{0801}\x{10A3F}\x{0DD6}", %p)}, undef, "to_ascii\(\'۷\\uD804\\uDD34ⴝ\-\.\\u0801\\uD802\\uDE3F\\u0DD6\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3051\]") 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{11134}ⴝ-.\x{0801}\x{10A3F}\x{0DD6}", %p)}, undef, "to_ascii\(\'۷\\uD804\\uDD34ⴝ\-.\\u0801\\uD802\\uDE3F\\u0DD6\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3052\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{7D0D3}。\x{102DAD}\x{E27E2}--", %p)}, undef, "to_ascii\(\'\\uD9B4\\uDCD3\。\\uDBCB\\uDDAD\\uDB49\\uDFE2\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ \[data\/IdnaTest\.txt\:3053\]") 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{200D}ꡪ。\x{200C}\x{1039}", %p)}, undef, "to_ascii\(\'\\u200Dꡪ。\\u200C\\u1039\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3054\]") 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{200D}ꡪ。\x{200C}\x{1039}", %p)}, undef, "to_ascii\(\'\\u200Dꡪ\。\\u200C\\u1039\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3056\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1EA31}\x{FEF4}\x{06C9}。ᡔ𪻗ꡠ", %p)}, undef, "to_ascii\(\'\\uD83A\\uDE31\\uFEF4\\u06C9。ᡔ𪻗ꡠ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3058\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EA31}\x{064A}\x{06C9}。ᡔ𪻗ꡠ", %p)}, undef, "to_ascii\(\'\\uD83A\\uDE31\\u064A\\u06C9\。ᡔ𪻗ꡠ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3059\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1C2E}\x{1EEE0}\x{B47DA}\x{A806}.\x{0717}ᡌ", %p)}, undef, "to_ascii\(\'\\u1C2E\\uD83B\\uDEE0\\uDA91\\uDFDA\\uA806\.\\u0717ᡌ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:3060\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。ς\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。ς\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3061\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。ς\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。ς\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3062\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。ς\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。ς\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3063\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。ς\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。ς\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3064\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}Σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。Σ\\u06CEΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3065\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}Σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。Σ\\u06CEΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3066\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3067\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3068\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。Σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3069\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。Σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3070\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。Σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3071\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。Σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3072\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3073\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3074\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}Σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。Σ\\u06CEΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3075\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}Σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。Σ\\u06CEΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3076\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3077\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3078\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。Σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3079\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。Σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3080\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。Σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3081\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。Σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3082\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3083\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3084\]") 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{059F}\x{036E}-\x{11133}", %p)}, undef, "to_ascii\(\'蔰\。\\u059F\\u036E\-\\uD804\\uDD33\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3085\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ςჅ。\x{08A5}", %p)}, undef, "to_ascii\(\'ςჅ\。\\u08A5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3086\]") 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{08A5}", %p)}, "xn--4xa203s.xn--uyb", "to_ascii\(\'ςⴥ\。\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3087\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ΣჅ。\x{08A5}", %p)}, undef, "to_ascii\(\'ΣჅ\。\\u08A5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3089\]") 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{08A5}", %p)}, "xn--4xa203s.xn--uyb", "to_ascii\(\'σⴥ\。\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3090\]") 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{08A5}", %p)}, "xn--4xa203s.xn--uyb", "to_ascii\(\'Σⴥ\。\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3091\]") 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--4xa203s.xn--uyb", %p)}, "xn--4xa203s.xn--uyb", "to_ascii\(\'xn\-\-4xa203s\.xn\-\-uyb\'\)\ \[data\/IdnaTest\.txt\:3092\]") 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{08A5}", %p)}, "xn--4xa203s.xn--uyb", "to_ascii\(\'σⴥ\.\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3093\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ΣჅ.\x{08A5}", %p)}, undef, "to_ascii\(\'ΣჅ\.\\u08A5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3094\]") 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{08A5}", %p)}, "xn--4xa203s.xn--uyb", "to_ascii\(\'Σⴥ\.\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3095\]") 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--3xa403s.xn--uyb", %p)}, "xn--3xa403s.xn--uyb", "to_ascii\(\'xn\-\-3xa403s\.xn\-\-uyb\'\)\ \[data\/IdnaTest\.txt\:3096\]") 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{08A5}", %p)}, "xn--4xa203s.xn--uyb", "to_ascii\(\'ςⴥ\.\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3097\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0BCD}Ⴉ\x{FB22}.\x{08E9}", %p)}, undef, "to_ascii\(\'\\u0BCDႩ\\uFB22.\\u08E9\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3099\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}Ⴉ\x{05D3}.\x{08E9}", %p)}, undef, "to_ascii\(\'\\u0BCDႩ\\u05D3\.\\u08E9\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3100\]") 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{0BCD}ⴉ\x{05D3}.\x{08E9}", %p)}, undef, "to_ascii\(\'\\u0BCDⴉ\\u05D3\.\\u08E9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3101\]") 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{0BCD}ⴉ\x{FB22}.\x{08E9}", %p)}, undef, "to_ascii\(\'\\u0BCDⴉ\\uFB22.\\u08E9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3102\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E0F21}≮\x{4CBE5}\x{085A}。\x{10CDF}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDF21\≮\\uD8F2\\uDFE5\\u085A\。\\uD803\\uDCDF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3103\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0F21}<\x{0338}\x{4CBE5}\x{085A}。\x{10CDF}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDF21\<\\u0338\\uD8F2\\uDFE5\\u085A\。\\uD803\\uDCDF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3104\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}。\x{200D}ẏ\x{200C}\x{0633}", %p)}, undef, "to_ascii\(\'\\u06C5。\\u200Dẏ\\u200C\\u0633\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3105\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}。\x{200D}y\x{0307}\x{200C}\x{0633}", %p)}, undef, "to_ascii\(\'\\u06C5。\\u200Dy\\u0307\\u200C\\u0633\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3107\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}。\x{200D}ẏ\x{200C}\x{0633}", %p)}, undef, "to_ascii\(\'\\u06C5\。\\u200Dẏ\\u200C\\u0633\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3109\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}。\x{200D}y\x{0307}\x{200C}\x{0633}", %p)}, undef, "to_ascii\(\'\\u06C5\。\\u200Dy\\u0307\\u200C\\u0633\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3111\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}。\x{200D}Y\x{0307}\x{200C}\x{0633}", %p)}, undef, "to_ascii\(\'\\u06C5\。\\u200DY\\u0307\\u200C\\u0633\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3113\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}。\x{200D}Ẏ\x{200C}\x{0633}", %p)}, undef, "to_ascii\(\'\\u06C5\。\\u200DẎ\\u200C\\u0633\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3115\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}。\x{200D}Y\x{0307}\x{200C}\x{0633}", %p)}, undef, "to_ascii\(\'\\u06C5。\\u200DY\\u0307\\u200C\\u0633\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3117\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}。\x{200D}Ẏ\x{200C}\x{0633}", %p)}, undef, "to_ascii\(\'\\u06C5。\\u200DẎ\\u200C\\u0633\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3119\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E67}\x{0353}。\x{92CF6}\x{0F84}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\u0353\。\\uDA0B\\uDCF6\\u0F84\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3121\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≠\x{1BAA}。嵕\x{1097F}𝟷\x{2D7F}", %p)}, undef, "to_ascii\(\'\-\≠\\u1BAA。嵕\\uD802\\uDD7F𝟷\\u2D7F\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3122\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-=\x{0338}\x{1BAA}。嵕\x{1097F}𝟷\x{2D7F}", %p)}, undef, "to_ascii\(\'\-\=\\u0338\\u1BAA。嵕\\uD802\\uDD7F𝟷\\u2D7F\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3123\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≠\x{1BAA}。嵕\x{1097F}1\x{2D7F}", %p)}, undef, "to_ascii\(\'\-\≠\\u1BAA\。嵕\\uD802\\uDD7F1\\u2D7F\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3124\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-=\x{0338}\x{1BAA}。嵕\x{1097F}1\x{2D7F}", %p)}, undef, "to_ascii\(\'\-\=\\u0338\\u1BAA\。嵕\\uD802\\uDD7F1\\u2D7F\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3125\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{16736}\x{10E7D}\x{06AD}.\x{0693}\x{200D}≯\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\\uD819\\uDF36\\uD803\\uDE7D\\u06AD.\\u0693\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3126\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{16736}\x{10E7D}\x{06AD}.\x{0693}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\\uD819\\uDF36\\uD803\\uDE7D\\u06AD.\\u0693\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3128\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{16736}\x{10E7D}\x{06AD}.\x{0693}\x{200D}≯\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\\uD819\\uDF36\\uD803\\uDE7D\\u06AD\.\\u0693\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3130\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{16736}\x{10E7D}\x{06AD}.\x{0693}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\\uD819\\uDF36\\uD803\\uDE7D\\u06AD\.\\u0693\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3132\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.\x{17B5}ᢨ\x{07E8}", %p)}, undef, "to_ascii\(\'\≮.\\u17B5ᢨ\\u07E8\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3134\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.\x{17B5}ᢨ\x{07E8}", %p)}, undef, "to_ascii\(\'\<\\u0338.\\u17B5ᢨ\\u07E8\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3135\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.\x{17B5}ᢨ\x{07E8}", %p)}, undef, "to_ascii\(\'\≮\.\\u17B5ᢨ\\u07E8\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3136\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.\x{17B5}ᢨ\x{07E8}", %p)}, undef, "to_ascii\(\'\<\\u0338\.\\u17B5ᢨ\\u07E8\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3137\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EC59}\x{200D}。ႩႵ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDC59\\u200D。ႩႵ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3138\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EC59}\x{200D}。ႩႵ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDC59\\u200D\。ႩႵ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3140\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EC59}\x{200D}。ⴉⴕ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDC59\\u200D\。ⴉⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3142\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EC59}\x{200D}。Ⴉⴕ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDC59\\u200D\。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3144\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EC59}\x{200D}。ⴉⴕ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDC59\\u200D。ⴉⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3146\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EC59}\x{200D}。Ⴉⴕ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDC59\\u200D。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3148\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}ㄤ.\x{1DD9}\x{4484F}\x{A92A}", %p)}, undef, "to_ascii\(\'\\u200C\\u200Cㄤ.\\u1DD9\\uD8D2\\uDC4F\\uA92A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3150\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}ㄤ.\x{1DD9}\x{4484F}\x{A92A}", %p)}, undef, "to_ascii\(\'\\u200C\\u200Cㄤ\.\\u1DD9\\uD8D2\\uDC4F\\uA92A\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3152\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒓。-\x{200C}ᠶႷ", %p)}, undef, "to_ascii\(\'⒓。\-\\u200CᠶႷ\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3154\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("12.。-\x{200C}ᠶႷ", %p)}, undef, "to_ascii\(\'12\.\。\-\\u200CᠶႷ\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3156\]") 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("12.。-\x{200C}ᠶⴗ", %p)}, undef, "to_ascii\(\'12\.\。\-\\u200Cᠶⴗ\'\)\ throws\ error\ V3\ A4_2\ \[data\/IdnaTest\.txt\:3158\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒓。-\x{200C}ᠶⴗ", %p)}, undef, "to_ascii\(\'⒓。\-\\u200Cᠶⴗ\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3160\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🐚\x{1E87B}.≠\x{200C}", %p)}, undef, "to_ascii\(\'🐚\\uD83A\\uDC7B.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3162\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🐚\x{1E87B}.=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'🐚\\uD83A\\uDC7B.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3164\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🐚\x{1E87B}.≠\x{200C}", %p)}, undef, "to_ascii\(\'🐚\\uD83A\\uDC7B\.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3166\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🐚\x{1E87B}.=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'🐚\\uD83A\\uDC7B\.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3168\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A672}\x{0F74}。\x{1EF16}\x{0B4D}\x{FE25}", %p)}, undef, "to_ascii\(\'\\uA672\\u0F74。\\uD83B\\uDF16\\u0B4D\\uFE25\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3170\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A672}\x{0F74}。\x{1EF16}\x{0B4D}\x{FE25}", %p)}, undef, "to_ascii\(\'\\uA672\\u0F74\。\\uD83B\\uDF16\\u0B4D\\uFE25\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3171\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ\x{07F2}۰\x{05C5}.⒕\x{1037}\x{08FD}", %p)}, undef, "to_ascii\(\'Ⴔ\\u07F2۰\\u05C5.⒕\\u1037\\u08FD\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3172\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ\x{07F2}۰\x{05C5}.14.\x{1037}\x{08FD}", %p)}, undef, "to_ascii\(\'Ⴔ\\u07F2۰\\u05C5\.14\.\\u1037\\u08FD\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3173\]") 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{07F2}۰\x{05C5}.14.\x{1037}\x{08FD}", %p)}, undef, "to_ascii\(\'ⴔ\\u07F2۰\\u05C5\.14\.\\u1037\\u08FD\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3174\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ⴔ\x{07F2}۰\x{05C5}.⒕\x{1037}\x{08FD}", %p)}, undef, "to_ascii\(\'ⴔ\\u07F2۰\\u05C5.⒕\\u1037\\u08FD\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3175\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䏈\x{200C}。\x{200C}⒈\x{FDAE1}", %p)}, undef, "to_ascii\(\'䏈\\u200C\。\\u200C⒈\\uDBB6\\uDEE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3176\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䏈\x{200C}。\x{200C}1.\x{FDAE1}", %p)}, undef, "to_ascii\(\'䏈\\u200C\。\\u200C1\.\\uDBB6\\uDEE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3178\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟑\x{0F7E}ß\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_ascii\(\'𝟑\\u0F7Eß\\u1CDB。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3180\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{0F7E}ß\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_ascii\(\'3\\u0F7Eß\\u1CDB\。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3181\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{0F7E}SS\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_ascii\(\'3\\u0F7ESS\\u1CDB\。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3182\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{0F7E}ss\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_ascii\(\'3\\u0F7Ess\\u1CDB\。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3183\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{0F7E}Ss\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_ascii\(\'3\\u0F7ESs\\u1CDB\。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3184\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟑\x{0F7E}SS\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_ascii\(\'𝟑\\u0F7ESS\\u1CDB。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3185\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟑\x{0F7E}ss\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_ascii\(\'𝟑\\u0F7Ess\\u1CDB。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3186\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟑\x{0F7E}Ss\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_ascii\(\'𝟑\\u0F7ESs\\u1CDB。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3187\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{4B0FF}\x{10EBF}\x{17D2}。ᡌ⒈", %p)}, undef, "to_ascii\(\'\\u200D\\uD8EC\\uDCFF\\uD803\\uDEBF\\u17D2。ᡌ⒈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3188\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{4B0FF}\x{10EBF}\x{17D2}。ᡌ1.", %p)}, undef, "to_ascii\(\'\\u200D\\uD8EC\\uDCFF\\uD803\\uDEBF\\u17D2\。ᡌ1\.\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3190\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0135}.\x{10D6D}\x{9700D}\x{1065D4}\x{08A6}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD35.\\uD803\\uDD6D\\uDA1C\\uDC0D\\uDBD9\\uDDD4\\u08A6\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:3192\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0135}.\x{10D6D}\x{9700D}\x{1065D4}\x{08A6}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD35\.\\uD803\\uDD6D\\uDA1C\\uDC0D\\uDBD9\\uDDD4\\u08A6\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:3193\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0642}\x{108B0}⒈.\x{20C4}🄅\x{2C433}\x{075B}", %p)}, undef, "to_ascii\(\'\\u0642\\uD802\\uDCB0⒈.\\u20C4🄅\\uD871\\uDC33\\u075B\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3194\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0642}\x{108B0}1..\x{20C4}4,\x{2C433}\x{075B}", %p)}, undef, "to_ascii\(\'\\u0642\\uD802\\uDCB01\.\.\\u20C44\,\\uD871\\uDC33\\u075B\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3195\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ECB}\x{07E9}\x{0944}\x{08A3}。-≀\x{9B07D}", %p)}, undef, "to_ascii\(\'\\u0ECB\\u07E9\\u0944\\u08A3\。\-\≀\\uDA2C\\uDC7D\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3196\]") 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{111C0}剘ßᢔ", %p)}, undef, "to_ascii\(\'\-\.\\uD804\\uDDC0剘ßᢔ\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3197\]") 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{111C0}剘SSᢔ", %p)}, undef, "to_ascii\(\'\-\.\\uD804\\uDDC0剘SSᢔ\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3198\]") 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{111C0}剘ssᢔ", %p)}, undef, "to_ascii\(\'\-\.\\uD804\\uDDC0剘ssᢔ\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3199\]") 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{111C0}剘Ssᢔ", %p)}, undef, "to_ascii\(\'\-\.\\uD804\\uDDC0剘Ssᢔ\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3200\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("🕟\x{10FC0}。-", %p)}, undef, "to_ascii\(\'🕟\\uD803\\uDFC0。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3201\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🕟\x{10FC0}。-", %p)}, undef, "to_ascii\(\'🕟\\uD803\\uDFC0\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3202\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{E070C}\x{10E69}。≠\x{0664}\x{10E6C}", %p)}, undef, "to_ascii\(\'⒈\\uDB41\\uDF0C\\uD803\\uDE69。\≠\\u0664\\uD803\\uDE6C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3203\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{E070C}\x{10E69}。=\x{0338}\x{0664}\x{10E6C}", %p)}, undef, "to_ascii\(\'⒈\\uDB41\\uDF0C\\uD803\\uDE69。\=\\u0338\\u0664\\uD803\\uDE6C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3204\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{E070C}\x{10E69}。≠\x{0664}\x{10E6C}", %p)}, undef, "to_ascii\(\'1\.\\uDB41\\uDF0C\\uD803\\uDE69\。\≠\\u0664\\uD803\\uDE6C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3205\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{E070C}\x{10E69}。=\x{0338}\x{0664}\x{10E6C}", %p)}, undef, "to_ascii\(\'1\.\\uDB41\\uDF0C\\uD803\\uDE69\。\=\\u0338\\u0664\\uD803\\uDE6C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3206\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0661}㇡Ⴎ\x{200C}.㖾\x{0666}", %p)}, undef, "to_ascii\(\'\\u0661㇡Ⴎ\\u200C\.㖾\\u0666\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:3207\]") 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{0661}㇡ⴎ\x{200C}.㖾\x{0666}", %p)}, undef, "to_ascii\(\'\\u0661㇡ⴎ\\u200C\.㖾\\u0666\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:3209\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{5A22C}.\x{07C7}\x{06B8}ႳႧ", %p)}, undef, "to_ascii\(\'\\uD928\\uDE2C.\\u07C7\\u06B8ႳႧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3211\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{5A22C}.\x{07C7}\x{06B8}ႳႧ", %p)}, undef, "to_ascii\(\'\\uD928\\uDE2C\.\\u07C7\\u06B8ႳႧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3212\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{5A22C}.\x{07C7}\x{06B8}ⴓⴇ", %p)}, undef, "to_ascii\(\'\\uD928\\uDE2C\.\\u07C7\\u06B8ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3213\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{5A22C}.\x{07C7}\x{06B8}Ⴓⴇ", %p)}, undef, "to_ascii\(\'\\uD928\\uDE2C\.\\u07C7\\u06B8Ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3214\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{5A22C}.\x{07C7}\x{06B8}ⴓⴇ", %p)}, undef, "to_ascii\(\'\\uD928\\uDE2C.\\u07C7\\u06B8ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3215\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{5A22C}.\x{07C7}\x{06B8}Ⴓⴇ", %p)}, undef, "to_ascii\(\'\\uD928\\uDE2C.\\u07C7\\u06B8Ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3216\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{A2EE5}.\x{1092E}\x{1EAE9}", %p)}, undef, "to_ascii\(\'\\u200D\\uDA4B\\uDEE5\.\\uD802\\uDD2E\\uD83A\\uDEE9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3217\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{62467}⒒\x{E0C07}.ꡎ⒈", %p)}, undef, "to_ascii\(\'\\uD949\\uDC67⒒\\uDB43\\uDC07.ꡎ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3219\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{62467}11.\x{E0C07}.ꡎ1.", %p)}, undef, "to_ascii\(\'\\uD949\\uDC6711\.\\uDB43\\uDC07\.ꡎ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3220\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06D0}𝟝\x{1CE92}-。\x{4459A}\x{1039}\x{FC39}\x{AAF6}", %p)}, undef, "to_ascii\(\'\\u06D0𝟝\\uD833\\uDE92\-。\\uD8D1\\uDD9A\\u1039\\uFC39\\uAAF6\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3221\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06D0}5\x{1CE92}-。\x{4459A}\x{1039}\x{0643}\x{062D}\x{AAF6}", %p)}, undef, "to_ascii\(\'\\u06D05\\uD833\\uDE92\-\。\\uD8D1\\uDD9A\\u1039\\u0643\\u062D\\uAAF6\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3222\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。⒖≮ß\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。⒖\≮ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3223\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。⒖<\x{0338}ß\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。⒖\<\\u0338ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3224\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。15.≮ß\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。15\.\≮ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3225\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。15.<\x{0338}ß\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。15\.\<\\u0338ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3226\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。15.<\x{0338}ß\x{E01E1}", %p)}, undef, "to_ascii\(\'ⴕ\。15\.\<\\u0338ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3227\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。15.≮ß\x{E01E1}", %p)}, undef, "to_ascii\(\'ⴕ\。15\.\≮ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3228\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。15.≮SS\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。15\.\≮SS\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3229\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。15.<\x{0338}SS\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。15\.\<\\u0338SS\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3230\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。15.<\x{0338}ss\x{E01E1}", %p)}, undef, "to_ascii\(\'ⴕ\。15\.\<\\u0338ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3231\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。15.≮ss\x{E01E1}", %p)}, undef, "to_ascii\(\'ⴕ\。15\.\≮ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3232\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。15.≮Ss\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。15\.\≮Ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3233\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。15.<\x{0338}Ss\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。15\.\<\\u0338Ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3234\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。⒖<\x{0338}ß\x{E01E1}", %p)}, undef, "to_ascii\(\'ⴕ\。⒖\<\\u0338ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3235\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。⒖≮ß\x{E01E1}", %p)}, undef, "to_ascii\(\'ⴕ\。⒖\≮ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3236\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。⒖≮SS\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。⒖\≮SS\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3237\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。⒖<\x{0338}SS\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。⒖\<\\u0338SS\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3238\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。⒖<\x{0338}ss\x{E01E1}", %p)}, undef, "to_ascii\(\'ⴕ\。⒖\<\\u0338ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3239\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。⒖≮ss\x{E01E1}", %p)}, undef, "to_ascii\(\'ⴕ\。⒖\≮ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。⒖≮Ss\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。⒖\≮Ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3241\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。⒖<\x{0338}Ss\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。⒖\<\\u0338Ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3242\]") 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{08F5}꒱\x{E01AB}", %p)}, undef, "to_ascii\(\'ᡧ\-\.\\u08F5꒱\\uDB40\\uDDAB\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3243\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{10B65}\x{200C}.≯䕵⬯", %p)}, undef, "to_ascii\(\'\\uD802\\uDF65\\u200C\.\≯䕵\⬯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3244\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10B65}\x{200C}.>\x{0338}䕵⬯", %p)}, undef, "to_ascii\(\'\\uD802\\uDF65\\u200C\.\>\\u0338䕵\⬯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3246\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F18}ß\x{0643}.ᡄ⁷︒", %p)}, undef, "to_ascii\(\'\\u0F18ß\\u0643\.ᡄ⁷︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3248\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F18}ß\x{0643}.ᡄ7。", %p)}, undef, "to_ascii\(\'\\u0F18ß\\u0643\.ᡄ7\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3249\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F18}SS\x{0643}.ᡄ7。", %p)}, undef, "to_ascii\(\'\\u0F18SS\\u0643\.ᡄ7\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3250\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F18}ss\x{0643}.ᡄ7。", %p)}, undef, "to_ascii\(\'\\u0F18ss\\u0643\.ᡄ7\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3251\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F18}Ss\x{0643}.ᡄ7。", %p)}, undef, "to_ascii\(\'\\u0F18Ss\\u0643\.ᡄ7\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3252\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F18}SS\x{0643}.ᡄ⁷︒", %p)}, undef, "to_ascii\(\'\\u0F18SS\\u0643\.ᡄ⁷︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3253\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F18}ss\x{0643}.ᡄ⁷︒", %p)}, undef, "to_ascii\(\'\\u0F18ss\\u0643\.ᡄ⁷︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F18}Ss\x{0643}.ᡄ⁷︒", %p)}, undef, "to_ascii\(\'\\u0F18Ss\\u0643\.ᡄ⁷︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3255\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≮\x{E08E8}\x{E0101}.\x{E0E5F}Ⴁꡋ", %p)}, undef, "to_ascii\(\'\-\≮\\uDB42\\uDCE8\\uDB40\\uDD01\.\\uDB43\\uDE5FႡꡋ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3256\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-<\x{0338}\x{E08E8}\x{E0101}.\x{E0E5F}Ⴁꡋ", %p)}, undef, "to_ascii\(\'\-\<\\u0338\\uDB42\\uDCE8\\uDB40\\uDD01\.\\uDB43\\uDE5FႡꡋ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3257\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-<\x{0338}\x{E08E8}\x{E0101}.\x{E0E5F}ⴁꡋ", %p)}, undef, "to_ascii\(\'\-\<\\u0338\\uDB42\\uDCE8\\uDB40\\uDD01\.\\uDB43\\uDE5Fⴁꡋ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3258\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≮\x{E08E8}\x{E0101}.\x{E0E5F}ⴁꡋ", %p)}, undef, "to_ascii\(\'\-\≮\\uDB42\\uDCE8\\uDB40\\uDD01\.\\uDB43\\uDE5Fⴁꡋ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3259\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡒ。\x{0693}\x{200D}\x{200C}", %p)}, "xn--i8e.xn--pjb", "to_ascii\(\'ᡒ。\\u0693\\u200D\\u200C\'\)\ \[data\/IdnaTest\.txt\:3260\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡒ。\x{0693}\x{200D}\x{200C}", %p)}, "xn--i8e.xn--pjb", "to_ascii\(\'ᡒ\。\\u0693\\u200D\\u200C\'\)\ \[data\/IdnaTest\.txt\:3262\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--i8e.xn--pjb", %p)}, "xn--i8e.xn--pjb", "to_ascii\(\'xn\-\-i8e\.xn\-\-pjb\'\)\ \[data\/IdnaTest\.txt\:3264\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡒ.\x{0693}", %p)}, "xn--i8e.xn--pjb", "to_ascii\(\'ᡒ\.\\u0693\'\)\ \[data\/IdnaTest\.txt\:3265\]") 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{1B80}\x{07AE}.\x{0672}\x{06D9}\x{0660}", %p)}, undef, "to_ascii\(\'\\u1B80\\u07AE.\\u0672\\u06D9\\u0660\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3266\]") 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{1B80}\x{07AE}.\x{0672}\x{06D9}\x{0660}", %p)}, undef, "to_ascii\(\'\\u1B80\\u07AE\.\\u0672\\u06D9\\u0660\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3267\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⅎ\x{033D}\x{98A47}。≯⾑", %p)}, undef, "to_ascii\(\'Ⅎ\\u033D\\uDA22\\uDE47\。\≯⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3268\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ\x{033D}\x{98A47}。>\x{0338}⾑", %p)}, undef, "to_ascii\(\'Ⅎ\\u033D\\uDA22\\uDE47\。\>\\u0338⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3269\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ\x{033D}\x{98A47}。≯襾", %p)}, undef, "to_ascii\(\'Ⅎ\\u033D\\uDA22\\uDE47\。\≯襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3270\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ\x{033D}\x{98A47}。>\x{0338}襾", %p)}, undef, "to_ascii\(\'Ⅎ\\u033D\\uDA22\\uDE47\。\>\\u0338襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3271\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ\x{033D}\x{98A47}。>\x{0338}襾", %p)}, undef, "to_ascii\(\'ⅎ\\u033D\\uDA22\\uDE47\。\>\\u0338襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3272\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ\x{033D}\x{98A47}。≯襾", %p)}, undef, "to_ascii\(\'ⅎ\\u033D\\uDA22\\uDE47\。\≯襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3273\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ\x{033D}\x{98A47}。>\x{0338}⾑", %p)}, undef, "to_ascii\(\'ⅎ\\u033D\\uDA22\\uDE47\。\>\\u0338⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3274\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ\x{033D}\x{98A47}。≯⾑", %p)}, undef, "to_ascii\(\'ⅎ\\u033D\\uDA22\\uDE47\。\≯⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3275\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_ascii\(\'ς\\u200D\\u1A18\\uD803\\uDE7B。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3276\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_ascii\(\'ς\\u200D\\u1A18\\uD803\\uDE7B\。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3278\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_ascii\(\'Σ\\u200D\\u1A18\\uD803\\uDE7B\。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3280\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_ascii\(\'σ\\u200D\\u1A18\\uD803\\uDE7B\。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3282\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_ascii\(\'Σ\\u200D\\u1A18\\uD803\\uDE7B。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3284\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_ascii\(\'σ\\u200D\\u1A18\\uD803\\uDE7B。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3286\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}.ßႩ-", %p)}, undef, "to_ascii\(\'\\u200C\.ßႩ\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3288\]") 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\:3290\]") 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\:3292\]") 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\:3294\]") 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\:3296\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{9E584}\x{07E1}㓱。⾑", %p)}, undef, "to_ascii\(\'\\uDA39\\uDD84\\u07E1㓱\。⾑\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3298\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9E584}\x{07E1}㓱。襾", %p)}, undef, "to_ascii\(\'\\uDA39\\uDD84\\u07E1㓱\。襾\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3299\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0724}ꡗ\x{10E66}≮。≯\x{8FFFF}\x{200D}", %p)}, undef, "to_ascii\(\'\\u0724ꡗ\\uD803\\uDE66\≮\。\≯\\uD9FF\\uDFFF\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3300\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0724}ꡗ\x{10E66}<\x{0338}。>\x{0338}\x{8FFFF}\x{200D}", %p)}, undef, "to_ascii\(\'\\u0724ꡗ\\uD803\\uDE66\<\\u0338\。\>\\u0338\\uD9FF\\uDFFF\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3302\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟯。\x{BB642}\x{0766}ᠣ⩋", %p)}, undef, "to_ascii\(\'𝟯。\\uDAAD\\uDE42\\u0766ᠣ\⩋\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3304\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3。\x{BB642}\x{0766}ᠣ⩋", %p)}, undef, "to_ascii\(\'3\。\\uDAAD\\uDE42\\u0766ᠣ\⩋\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3305\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{1E935}。\x{0FB4}\x{0E3A}", %p)}, undef, "to_ascii\(\'\-\\uD83A\\uDD35\。\\u0FB4\\u0E3A\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3306\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{0484}⒏.\x{1B03}\x{C6173}\x{0665}\x{4F80E}", %p)}, undef, "to_ascii\(\'\\u200C\\u0484⒏\.\\u1B03\\uDAD8\\uDD73\\u0665\\uD8FE\\uDC0E\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3307\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{0484}8..\x{1B03}\x{C6173}\x{0665}\x{4F80E}", %p)}, undef, "to_ascii\(\'\\u200C\\u04848\.\.\\u1B03\\uDAD8\\uDD73\\u0665\\uD8FE\\uDC0E\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3309\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("齙--۴.ß", %p)}, "xn-----xbe3617m.ss", "to_ascii\(\'齙\-\-۴\.ß\'\)\ \[data\/IdnaTest\.txt\:3311\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("齙--۴.SS", %p)}, "xn-----xbe3617m.ss", "to_ascii\(\'齙\-\-۴\.SS\'\)\ \[data\/IdnaTest\.txt\:3313\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn-----xbe3617m.ss", %p)}, "xn-----xbe3617m.ss", "to_ascii\(\'xn\-\-\-\-\-xbe3617m\.ss\'\)\ \[data\/IdnaTest\.txt\:3314\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn-----xbe3617m.xn--zca", %p)}, "xn-----xbe3617m.xn--zca", "to_ascii\(\'xn\-\-\-\-\-xbe3617m\.xn\-\-zca\'\)\ \[data\/IdnaTest\.txt\:3315\]") 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{2D7F}.\x{0665}\x{1CE5}\x{200C}", %p)}, undef, "to_ascii\(\'\\u2D7F\.\\u0665\\u1CE5\\u200C\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3316\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{3C3F2}\x{A6F0}。\x{DEDE}-\x{200D}", %p)}, undef, "to_ascii\(\'\\uD8B0\\uDFF2\\uA6F0。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ A3\ \[data\/IdnaTest\.txt\:3318\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3C3F2}\x{A6F0}。\x{DEDE}-\x{200D}", %p)}, undef, "to_ascii\(\'\\uD8B0\\uDFF2\\uA6F0\。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ A3\ \[data\/IdnaTest\.txt\:3320\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3C3F2}\x{A6F0}", %p)}, undef, "to_ascii\(\'\\uD8B0\\uDFF2\\uA6F0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3322\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1BF3}.\x{1E8AB}-\x{FE0A}悎", %p)}, undef, "to_ascii\(\'\\u1BF3.\\uD83A\\uDCAB\-\\uFE0A悎\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3323\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1BF3}.\x{1E8AB}-\x{FE0A}悎", %p)}, undef, "to_ascii\(\'\\u1BF3\.\\uD83A\\uDCAB\-\\uFE0A悎\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3324\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{5F299}\x{E076C}.\x{077F}\x{46A12}", %p)}, undef, "to_ascii\(\'\\uD93C\\uDE99\\uDB41\\uDF6C.\\u077F\\uD8DA\\uDE12\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3325\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{5F299}\x{E076C}.\x{077F}\x{46A12}", %p)}, undef, "to_ascii\(\'\\uD93C\\uDE99\\uDB41\\uDF6C\.\\u077F\\uD8DA\\uDE12\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3326\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡭ\x{1096B}ᠹ.4", %p)}, undef, "to_ascii\(\'ᡭ\\uD802\\uDD6Bᠹ\.4\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3327\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10AE3}\x{0852}\x{084C}\x{066C}.\x{DF56}", %p)}, undef, "to_ascii\(\'\\uD802\\uDEE3\\u0852\\u084C\\u066C\.\\uDF56\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:3328\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10AE3}\x{0852}\x{084C}\x{066C}", %p)}, undef, "to_ascii\(\'\\uD802\\uDEE3\\u0852\\u084C\\u066C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3329\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ↄ。\x{1A60}\x{11180}\x{1E83D}", %p)}, undef, "to_ascii\(\'Ↄ\。\\u1A60\\uD804\\uDD80\\uD83A\\uDC3D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3330\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ↄ。\x{1A60}\x{11180}\x{1E83D}", %p)}, undef, "to_ascii\(\'ↄ\。\\u1A60\\uD804\\uDD80\\uD83A\\uDC3D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3331\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0100}-。\x{47672}≮\x{11046}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD00\-\。\\uD8DD\\uDE72\≮\\uD804\\uDC46\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3332\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0100}-。\x{47672}<\x{0338}\x{11046}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD00\-\。\\uD8DD\\uDE72\<\\u0338\\uD804\\uDC46\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3333\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}䷭\x{200D}。\x{9ADC3}≮Ⴉ", %p)}, undef, "to_ascii\(\'\\u200C䷭\\u200D\。\\uDA2B\\uDDC3\≮Ⴉ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3334\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}䷭\x{200D}。\x{9ADC3}<\x{0338}Ⴉ", %p)}, undef, "to_ascii\(\'\\u200C䷭\\u200D\。\\uDA2B\\uDDC3\<\\u0338Ⴉ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3336\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}䷭\x{200D}。\x{9ADC3}<\x{0338}ⴉ", %p)}, undef, "to_ascii\(\'\\u200C䷭\\u200D\。\\uDA2B\\uDDC3\<\\u0338ⴉ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3338\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}䷭\x{200D}。\x{9ADC3}≮ⴉ", %p)}, undef, "to_ascii\(\'\\u200C䷭\\u200D\。\\uDA2B\\uDDC3\≮ⴉ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3340\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E64}-\x{1BF3}ᡓ。︒䖐⾆", %p)}, undef, "to_ascii\(\'\\uD803\\uDE64\-\\u1BF3ᡓ\。︒䖐⾆\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3342\]") 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{10E64}-\x{1BF3}ᡓ。。䖐舌", %p)}, undef, "to_ascii\(\'\\uD803\\uDE64\-\\u1BF3ᡓ\。\。䖐舌\'\)\ throws\ error\ B1\ A4_2\ \[data\/IdnaTest\.txt\:3343\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0981}Ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0981Ⴐ。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3344\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0981}Ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0981Ⴐ。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3345\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0981}Ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0981Ⴐ\。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3346\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0981}Ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0981Ⴐ\。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3347\]") 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{0981}ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0981ⴐ\。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3348\]") 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{0981}ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0981ⴐ\。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3349\]") 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{0981}ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0981ⴐ。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3350\]") 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{0981}ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0981ⴐ。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3351\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0C4D}쩁\x{0604}.\x{BE999}", %p)}, undef, "to_ascii\(\'\\u0C4D쩁\\u0604\.\\uDABA\\uDD99\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3352\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0C4D}쩁\x{0604}.\x{BE999}", %p)}, undef, "to_ascii\(\'\\u0C4D쩁\\u0604\.\\uDABA\\uDD99\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3353\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BD}⒒\x{200C}。😠\x{66C9E}", %p)}, undef, "to_ascii\(\'\\u06BD⒒\\u200C。😠\\uD95B\\uDC9E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3354\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BD}11.\x{200C}。😠\x{66C9E}", %p)}, undef, "to_ascii\(\'\\u06BD11\.\\u200C\。😠\\uD95B\\uDC9E\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3356\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕𝟝ꍩ\x{0F9E}.\x{200D}ß", %p)}, "xn--5-glg1017fj73a.ss", "to_ascii\(\'羕𝟝ꍩ\\u0F9E.\\u200Dß\'\)\ \[data\/IdnaTest\.txt\:3358\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕𝟝ꍩ\x{0F9E}.\x{200D}ß", %p)}, "xn--5-glg1017fj73a.ss", "to_ascii\(\'羕𝟝ꍩ\\u0F9E.\\u200Dß\'\)\ \[data\/IdnaTest\.txt\:3360\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕5ꍩ\x{0F9E}.\x{200D}ß", %p)}, "xn--5-glg1017fj73a.ss", "to_ascii\(\'羕5ꍩ\\u0F9E\.\\u200Dß\'\)\ \[data\/IdnaTest\.txt\:3362\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕5ꍩ\x{0F9E}.\x{200D}SS", %p)}, "xn--5-glg1017fj73a.ss", "to_ascii\(\'羕5ꍩ\\u0F9E\.\\u200DSS\'\)\ \[data\/IdnaTest\.txt\:3364\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕5ꍩ\x{0F9E}.\x{200D}ss", %p)}, "xn--5-glg1017fj73a.ss", "to_ascii\(\'羕5ꍩ\\u0F9E\.\\u200Dss\'\)\ \[data\/IdnaTest\.txt\:3366\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕5ꍩ\x{0F9E}.\x{200D}Ss", %p)}, "xn--5-glg1017fj73a.ss", "to_ascii\(\'羕5ꍩ\\u0F9E\.\\u200DSs\'\)\ \[data\/IdnaTest\.txt\:3368\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--5-glg1017fj73a.ss", %p)}, "xn--5-glg1017fj73a.ss", "to_ascii\(\'xn\-\-5\-glg1017fj73a\.ss\'\)\ \[data\/IdnaTest\.txt\:3370\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕5ꍩ\x{0F9E}.ss", %p)}, "xn--5-glg1017fj73a.ss", "to_ascii\(\'羕5ꍩ\\u0F9E\.ss\'\)\ \[data\/IdnaTest\.txt\:3371\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕𝟝ꍩ\x{0F9E}.\x{200D}SS", %p)}, "xn--5-glg1017fj73a.ss", "to_ascii\(\'羕𝟝ꍩ\\u0F9E.\\u200DSS\'\)\ \[data\/IdnaTest\.txt\:3372\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕𝟝ꍩ\x{0F9E}.\x{200D}ss", %p)}, "xn--5-glg1017fj73a.ss", "to_ascii\(\'羕𝟝ꍩ\\u0F9E.\\u200Dss\'\)\ \[data\/IdnaTest\.txt\:3374\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕𝟝ꍩ\x{0F9E}.\x{200D}Ss", %p)}, "xn--5-glg1017fj73a.ss", "to_ascii\(\'羕𝟝ꍩ\\u0F9E.\\u200DSs\'\)\ \[data\/IdnaTest\.txt\:3376\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕𝟝ꍩ\x{0F9E}.\x{200D}SS", %p)}, "xn--5-glg1017fj73a.ss", "to_ascii\(\'羕𝟝ꍩ\\u0F9E.\\u200DSS\'\)\ \[data\/IdnaTest\.txt\:3378\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕𝟝ꍩ\x{0F9E}.\x{200D}ss", %p)}, "xn--5-glg1017fj73a.ss", "to_ascii\(\'羕𝟝ꍩ\\u0F9E.\\u200Dss\'\)\ \[data\/IdnaTest\.txt\:3380\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕𝟝ꍩ\x{0F9E}.\x{200D}Ss", %p)}, "xn--5-glg1017fj73a.ss", "to_ascii\(\'羕𝟝ꍩ\\u0F9E.\\u200DSs\'\)\ \[data\/IdnaTest\.txt\:3382\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꗷ\x{0EB5}.\x{08A0}\x{10A14}", %p)}, undef, "to_ascii\(\'ꗷ\\u0EB5\.\\u08A0\\uD802\\uDE14\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3384\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6≯-。︒蚴-\x{FFB20}", %p)}, undef, "to_ascii\(\'6\≯\-\。︒蚴\-\\uDBBE\\uDF20\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3385\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6>\x{0338}-。︒蚴-\x{FFB20}", %p)}, undef, "to_ascii\(\'6\>\\u0338\-\。︒蚴\-\\uDBBE\\uDF20\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3386\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6≯-。。蚴-\x{FFB20}", %p)}, undef, "to_ascii\(\'6\≯\-\。\。蚴\-\\uDBBE\\uDF20\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3387\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6>\x{0338}-。。蚴-\x{FFB20}", %p)}, undef, "to_ascii\(\'6\>\\u0338\-\。\。蚴\-\\uDBBE\\uDF20\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3388\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A72F0}\x{E012A}Ⴡ﹒.\x{10FCA}", %p)}, undef, "to_ascii\(\'\\uDA5C\\uDEF0\\uDB40\\uDD2AჁ﹒.\\uD803\\uDFCA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3389\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A72F0}\x{E012A}Ⴡ..\x{10FCA}", %p)}, undef, "to_ascii\(\'\\uDA5C\\uDEF0\\uDB40\\uDD2AჁ\.\.\\uD803\\uDFCA\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3390\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A72F0}\x{E012A}ⴡ..\x{10FCA}", %p)}, undef, "to_ascii\(\'\\uDA5C\\uDEF0\\uDB40\\uDD2Aⴡ\.\.\\uD803\\uDFCA\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3391\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A72F0}\x{E012A}ⴡ﹒.\x{10FCA}", %p)}, undef, "to_ascii\(\'\\uDA5C\\uDEF0\\uDB40\\uDD2Aⴡ﹒.\\uD803\\uDFCA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3392\]") 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{0FB7}。𝟠ᢉ-\x{084A}", %p)}, undef, "to_ascii\(\'\\u0FB7\。𝟠ᢉ\-\\u084A\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3393\]") 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{0FB7}。8ᢉ-\x{084A}", %p)}, undef, "to_ascii\(\'\\u0FB7\。8ᢉ\-\\u084A\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3394\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("싇。⾇\x{1EEE6}Ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇\\uD83B\\uDEE6Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3395\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。⾇\x{1EEE6}Ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇\\uD83B\\uDEE6Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3396\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。舛\x{1EEE6}Ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛\\uD83B\\uDEE6Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3397\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。舛\x{1EEE6}Ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛\\uD83B\\uDEE6Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3398\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。舛\x{1EEE6}ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛\\uD83B\\uDEE6ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3399\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。舛\x{1EEE6}ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛\\uD83B\\uDEE6ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3400\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。⾇\x{1EEE6}ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇\\uD83B\\uDEE6ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3401\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。⾇\x{1EEE6}ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇\\uD83B\\uDEE6ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3402\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0660}ς。\x{200C}ᡣჀ", %p)}, undef, "to_ascii\(\'\\u0660ς\。\\u200CᡣჀ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3403\]") 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{0660}ς。\x{200C}ᡣⴠ", %p)}, undef, "to_ascii\(\'\\u0660ς\。\\u200Cᡣⴠ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3405\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0660}Σ。\x{200C}ᡣჀ", %p)}, undef, "to_ascii\(\'\\u0660Σ\。\\u200CᡣჀ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3407\]") 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{0660}σ。\x{200C}ᡣⴠ", %p)}, undef, "to_ascii\(\'\\u0660σ\。\\u200Cᡣⴠ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3409\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{72D67}\x{200C}\x{10E73}.ꡝ-ß", %p)}, undef, "to_ascii\(\'\\uD98B\\uDD67\\u200C\\uD803\\uDE73\.ꡝ\-ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3411\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{72D67}\x{200C}\x{10E73}.ꡝ-SS", %p)}, undef, "to_ascii\(\'\\uD98B\\uDD67\\u200C\\uD803\\uDE73\.ꡝ\-SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3413\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{72D67}\x{200C}\x{10E73}.ꡝ-ss", %p)}, undef, "to_ascii\(\'\\uD98B\\uDD67\\u200C\\uD803\\uDE73\.ꡝ\-ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3415\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{72D67}\x{200C}\x{10E73}.ꡝ-Ss", %p)}, undef, "to_ascii\(\'\\uD98B\\uDD67\\u200C\\uD803\\uDE73\.ꡝ\-Ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3417\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200D}\x{17B5}\x{0759}.-\x{1EEA2}\x{B5E7C}\x{1ECB9}", %p)}, undef, "to_ascii\(\'\\u200C\\u200D\\u17B5\\u0759\.\-\\uD83B\\uDEA2\\uDA97\\uDE7C\\uD83B\\uDCB9\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3419\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200D}\x{17B5}\x{0759}.-\x{062C}\x{B5E7C}\x{1ECB9}", %p)}, undef, "to_ascii\(\'\\u200C\\u200D\\u17B5\\u0759\.\-\\u062C\\uDA97\\uDE7C\\uD83B\\uDCB9\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3421\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B102F}。\x{06B3}≠", %p)}, undef, "to_ascii\(\'\\uDA84\\uDC2F。\\u06B3\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3423\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B102F}。\x{06B3}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDA84\\uDC2F。\\u06B3\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3424\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B102F}。\x{06B3}≠", %p)}, undef, "to_ascii\(\'\\uDA84\\uDC2F\。\\u06B3\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3425\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B102F}。\x{06B3}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDA84\\uDC2F\。\\u06B3\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3426\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1039}\x{0680}。\x{10E79}\x{0666}덝4", %p)}, undef, "to_ascii\(\'\\u1039\\u0680。\\uD803\\uDE79\\u0666덝4\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3427\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1039}\x{0680}。\x{10E79}\x{0666}덝4", %p)}, undef, "to_ascii\(\'\\u1039\\u0680。\\uD803\\uDE79\\u0666덝4\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3428\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1039}\x{0680}。\x{10E79}\x{0666}덝4", %p)}, undef, "to_ascii\(\'\\u1039\\u0680\。\\uD803\\uDE79\\u0666덝4\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3429\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1039}\x{0680}。\x{10E79}\x{0666}덝4", %p)}, undef, "to_ascii\(\'\\u1039\\u0680\。\\uD803\\uDE79\\u0666덝4\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3430\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴏ\x{1B02}-.\x{200D}Ⴉ", %p)}, undef, "to_ascii\(\'Ⴏ\\u1B02\-.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3431\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴏ\x{1B02}-.\x{200D}Ⴉ", %p)}, undef, "to_ascii\(\'Ⴏ\\u1B02\-\.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3433\]") 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{1B02}-.\x{200D}ⴉ", %p)}, undef, "to_ascii\(\'ⴏ\\u1B02\-\.\\u200Dⴉ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3435\]") 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{1B02}-.\x{200D}ⴉ", %p)}, undef, "to_ascii\(\'ⴏ\\u1B02\-.\\u200Dⴉ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3437\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("🐄\x{1037}\x{E0AB7}\x{A858C}。\x{066B}➱\x{0F19}", %p)}, undef, "to_ascii\(\'🐄\\u1037\\uDB42\\uDEB7\\uDA61\\uDD8C\。\\u066B\➱\\u0F19\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3439\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{0849}.➂⒎⒈", %p)}, undef, "to_ascii\(\'\≠\\u0849\.➂⒎⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3440\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{0849}.➂⒎⒈", %p)}, undef, "to_ascii\(\'\=\\u0338\\u0849\.➂⒎⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3441\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{0849}.➂7.1.", %p)}, undef, "to_ascii\(\'\≠\\u0849\.➂7\.1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3442\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{0849}.➂7.1.", %p)}, undef, "to_ascii\(\'\=\\u0338\\u0849\.➂7\.1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3443\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A0D}\x{E0C89}ß.ᠩ\x{1F653}\x{200C}\x{10E75}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE0D\\uDB43\\uDC89ß\.ᠩ\\uD83D\\uDE53\\u200C\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3444\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A0D}\x{E0C89}SS.ᠩ\x{1F653}\x{200C}\x{10E75}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE0D\\uDB43\\uDC89SS\.ᠩ\\uD83D\\uDE53\\u200C\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3446\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A0D}\x{E0C89}ss.ᠩ\x{1F653}\x{200C}\x{10E75}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE0D\\uDB43\\uDC89ss\.ᠩ\\uD83D\\uDE53\\u200C\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3448\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A0D}\x{E0C89}Ss.ᠩ\x{1F653}\x{200C}\x{10E75}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE0D\\uDB43\\uDC89Ss\.ᠩ\\uD83D\\uDE53\\u200C\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3450\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1EDA8}\x{5FA29}Ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'ß\\uD83B\\uDDA8\\uD93E\\uDE29Ⴇ。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3452\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1EDA8}\x{5FA29}Ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'ß\\uD83B\\uDDA8\\uD93E\\uDE29Ⴇ\。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3453\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1EDA8}\x{5FA29}ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'ß\\uD83B\\uDDA8\\uD93E\\uDE29ⴇ\。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3454\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{1EDA8}\x{5FA29}Ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'SS\\uD83B\\uDDA8\\uD93E\\uDE29Ⴇ\。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3455\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{1EDA8}\x{5FA29}ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'ss\\uD83B\\uDDA8\\uD93E\\uDE29ⴇ\。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3456\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{1EDA8}\x{5FA29}Ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'Ss\\uD83B\\uDDA8\\uD93E\\uDE29Ⴇ\。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3457\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1EDA8}\x{5FA29}ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'ß\\uD83B\\uDDA8\\uD93E\\uDE29ⴇ。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3458\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{1EDA8}\x{5FA29}Ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'SS\\uD83B\\uDDA8\\uD93E\\uDE29Ⴇ。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3459\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{1EDA8}\x{5FA29}ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'ss\\uD83B\\uDDA8\\uD93E\\uDE29ⴇ。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3460\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{1EDA8}\x{5FA29}Ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'Ss\\uD83B\\uDDA8\\uD93E\\uDE29Ⴇ。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3461\]") 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{1BAB}。\x{11131}-\x{A9C0}", %p)}, undef, "to_ascii\(\'\\u1BAB\。\\uD804\\uDD31\-\\uA9C0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3462\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0E4D}-.\x{2FEDD}\x{0AC5}ß", %p)}, undef, "to_ascii\(\'\\u0E4D\-.\\uD87F\\uDEDD\\u0AC5ß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3463\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4D}-.\x{2FEDD}\x{0AC5}ß", %p)}, undef, "to_ascii\(\'\\u0E4D\-\.\\uD87F\\uDEDD\\u0AC5ß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3464\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4D}-.\x{2FEDD}\x{0AC5}SS", %p)}, undef, "to_ascii\(\'\\u0E4D\-\.\\uD87F\\uDEDD\\u0AC5SS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3465\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4D}-.\x{2FEDD}\x{0AC5}ss", %p)}, undef, "to_ascii\(\'\\u0E4D\-\.\\uD87F\\uDEDD\\u0AC5ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3466\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4D}-.\x{2FEDD}\x{0AC5}Ss", %p)}, undef, "to_ascii\(\'\\u0E4D\-\.\\uD87F\\uDEDD\\u0AC5Ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3467\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4D}-.\x{2FEDD}\x{0AC5}SS", %p)}, undef, "to_ascii\(\'\\u0E4D\-.\\uD87F\\uDEDD\\u0AC5SS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3468\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4D}-.\x{2FEDD}\x{0AC5}ss", %p)}, undef, "to_ascii\(\'\\u0E4D\-.\\uD87F\\uDEDD\\u0AC5ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3469\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4D}-.\x{2FEDD}\x{0AC5}Ss", %p)}, undef, "to_ascii\(\'\\u0E4D\-.\\uD87F\\uDEDD\\u0AC5Ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3470\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0775}-≮。\x{10E7E}\x{05A5}ꡃ", %p)}, undef, "to_ascii\(\'\\u0775\-\≮\。\\uD803\\uDE7E\\u05A5ꡃ\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3471\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0775}-<\x{0338}。\x{10E7E}\x{05A5}ꡃ", %p)}, undef, "to_ascii\(\'\\u0775\-\<\\u0338\。\\uD803\\uDE7E\\u05A5ꡃ\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3472\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄇\x{E060C}\x{09CD}\x{E01A8}.\x{103A}\x{1BF2}8\x{1752}", %p)}, undef, "to_ascii\(\'🄇\\uDB41\\uDE0C\\u09CD\\uDB40\\uDDA8.\\u103A\\u1BF28\\u1752\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3473\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6,\x{E060C}\x{09CD}\x{E01A8}.\x{103A}\x{1BF2}8\x{1752}", %p)}, undef, "to_ascii\(\'6\,\\uDB41\\uDE0C\\u09CD\\uDB40\\uDDA8\.\\u103A\\u1BF28\\u1752\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3474\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{887C4}\x{200D}\x{E0BCF}", %p)}, undef, "to_ascii\(\'\-。\\uD9E1\\uDFC4\\u200D\\uDB42\\uDFCF\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3475\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{887C4}\x{200D}\x{E0BCF}", %p)}, undef, "to_ascii\(\'\-\。\\uD9E1\\uDFC4\\u200D\\uDB42\\uDFCF\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3477\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟒…𝟫\x{142F1}。\x{0737}\x{773FA}", %p)}, undef, "to_ascii\(\'𝟒\…𝟫\\uD810\\uDEF1。\\u0737\\uD99C\\uDFFA\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3479\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4...9\x{142F1}。\x{0737}\x{773FA}", %p)}, undef, "to_ascii\(\'4\.\.\.9\\uD810\\uDEF1\。\\u0737\\uD99C\\uDFFA\'\)\ throws\ error\ P1\ V6\ V5\ A4_2\ \[data\/IdnaTest\.txt\:3480\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.-├\x{DC52F}", %p)}, undef, "to_ascii\(\'\-\.\-\├\\uDB31\\uDD2F\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3481\]") 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{E01B1}ᡬ。\x{200D}⳾", %p)}, "xn--88e.xn--pkj", "to_ascii\(\'\\uDB40\\uDDB1ᡬ。\\u200D⳾\'\)\ \[data\/IdnaTest\.txt\:3482\]") 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{E01B1}ᡬ。\x{200D}⳾", %p)}, "xn--88e.xn--pkj", "to_ascii\(\'\\uDB40\\uDDB1ᡬ\。\\u200D⳾\'\)\ \[data\/IdnaTest\.txt\:3484\]") 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--88e.xn--pkj", %p)}, "xn--88e.xn--pkj", "to_ascii\(\'xn\-\-88e\.xn\-\-pkj\'\)\ \[data\/IdnaTest\.txt\:3486\]") 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--88e.xn--pkj", "to_ascii\(\'ᡬ\.⳾\'\)\ \[data\/IdnaTest\.txt\:3487\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("쥥\x{671AB}Ⴎ.\x{200C}⒈⒈ᢝ", %p)}, undef, "to_ascii\(\'쥥\\uD95C\\uDDABႮ.\\u200C⒈⒈ᢝ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3488\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥\x{671AB}Ⴎ.\x{200C}⒈⒈ᢝ", %p)}, undef, "to_ascii\(\'쥥\\uD95C\\uDDABႮ.\\u200C⒈⒈ᢝ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3490\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥\x{671AB}Ⴎ.\x{200C}1.1.ᢝ", %p)}, undef, "to_ascii\(\'쥥\\uD95C\\uDDABႮ\.\\u200C1\.1\.ᢝ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3492\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥\x{671AB}Ⴎ.\x{200C}1.1.ᢝ", %p)}, undef, "to_ascii\(\'쥥\\uD95C\\uDDABႮ\.\\u200C1\.1\.ᢝ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3494\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥\x{671AB}ⴎ.\x{200C}1.1.ᢝ", %p)}, undef, "to_ascii\(\'쥥\\uD95C\\uDDABⴎ\.\\u200C1\.1\.ᢝ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3496\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥\x{671AB}ⴎ.\x{200C}1.1.ᢝ", %p)}, undef, "to_ascii\(\'쥥\\uD95C\\uDDABⴎ\.\\u200C1\.1\.ᢝ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3498\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥\x{671AB}ⴎ.\x{200C}⒈⒈ᢝ", %p)}, undef, "to_ascii\(\'쥥\\uD95C\\uDDABⴎ.\\u200C⒈⒈ᢝ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3500\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥\x{671AB}ⴎ.\x{200C}⒈⒈ᢝ", %p)}, undef, "to_ascii\(\'쥥\\uD95C\\uDDABⴎ.\\u200C⒈⒈ᢝ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3502\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{A8E7}𝟼ᡵ-。\x{0E3A}", %p)}, undef, "to_ascii\(\'\\uA8E7𝟼ᡵ\-\。\\u0E3A\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3504\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{A8E7}6ᡵ-。\x{0E3A}", %p)}, undef, "to_ascii\(\'\\uA8E76ᡵ\-\。\\u0E3A\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3505\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ς.\x{069A}\x{E0868}⒈", %p)}, undef, "to_ascii\(\'ς.\\u069A\\uDB42\\uDC68⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3506\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς.\x{069A}\x{E0868}1.", %p)}, undef, "to_ascii\(\'ς\.\\u069A\\uDB42\\uDC681\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3507\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ.\x{069A}\x{E0868}1.", %p)}, undef, "to_ascii\(\'Σ\.\\u069A\\uDB42\\uDC681\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3508\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ.\x{069A}\x{E0868}1.", %p)}, undef, "to_ascii\(\'σ\.\\u069A\\uDB42\\uDC681\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3509\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ.\x{069A}\x{E0868}⒈", %p)}, undef, "to_ascii\(\'Σ.\\u069A\\uDB42\\uDC68⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3510\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ.\x{069A}\x{E0868}⒈", %p)}, undef, "to_ascii\(\'σ.\\u069A\\uDB42\\uDC68⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3511\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0BAC}-。\x{0669}\x{4F3FA}\x{3E232}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDFAC\-。\\u0669\\uD8FC\\uDFFA\\uD8B8\\uDE32\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3512\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0BAC}-。\x{0669}\x{4F3FA}\x{3E232}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDFAC\-\。\\u0669\\uD8FC\\uDFFA\\uD8B8\\uDE32\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3513\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10816}-\x{E061C}。⒓\x{200C}\x{10AD0}", %p)}, undef, "to_ascii\(\'\\uD802\\uDC16\-\\uDB41\\uDE1C。⒓\\u200C\\uD802\\uDED0\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3514\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10816}-\x{E061C}。12.\x{200C}\x{10AD0}", %p)}, undef, "to_ascii\(\'\\uD802\\uDC16\-\\uDB41\\uDE1C\。12\.\\u200C\\uD802\\uDED0\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3516\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ß.ᠱ₃\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200Dß.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3518\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ß.ᠱ₃\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200Dß.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3520\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ß.ᠱ3\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200Dß\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3522\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ß.ᠱ3\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200Dß\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3524\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}SS.ᠱ3\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200DSS\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3526\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}SS.ᠱ3\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200DSS\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3528\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ss.ᠱ3\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200Dss\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3530\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ss.ᠱ3\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200Dss\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3532\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}Ss.ᠱ3\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200DSs\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3534\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}Ss.ᠱ3\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200DSs\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3536\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}SS.ᠱ₃\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200DSS.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3538\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}SS.ᠱ₃\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200DSS.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3540\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ss.ᠱ₃\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200Dss.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3542\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ss.ᠱ₃\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200Dss.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3544\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}Ss.ᠱ₃\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200DSs.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3546\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}Ss.ᠱ₃\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200DSs.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3548\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝟷\x{0941}.\x{341F5}ꡁ", %p)}, undef, "to_ascii\(\'𝟷\\u0941.\\uD890\\uDDF5ꡁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3550\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1\x{0941}.\x{341F5}ꡁ", %p)}, undef, "to_ascii\(\'1\\u0941\.\\uD890\\uDDF5ꡁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3551\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.\x{05C3}😳ßˋ", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.\\u05C3😳ßˋ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3552\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1160}.\x{05C3}😳ßˋ", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.\\u05C3😳ßˋ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3554\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1160}.\x{05C3}😳SSˋ", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.\\u05C3😳SSˋ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3556\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1160}.\x{05C3}😳ssˋ", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.\\u05C3😳ssˋ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3558\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1160}.\x{05C3}😳Ssˋ", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.\\u05C3😳Ssˋ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3560\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.\x{05C3}😳SSˋ", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.\\u05C3😳SSˋ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3562\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.\x{05C3}😳ssˋ", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.\\u05C3😳ssˋ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3564\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.\x{05C3}😳Ssˋ", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.\\u05C3😳Ssˋ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3566\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒Ⴖ\x{05BC}.\x{200C}", %p)}, undef, "to_ascii\(\'︒Ⴖ\\u05BC.\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3568\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。Ⴖ\x{05BC}.\x{200C}", %p)}, undef, "to_ascii\(\'\。Ⴖ\\u05BC\.\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3570\]") 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{05BC}.\x{200C}", %p)}, "xn--kdb162r.", "to_ascii\(\'\。ⴖ\\u05BC\.\\u200C\'\)\ \[data\/IdnaTest\.txt\:3572\]") 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--kdb162r.", %p)}, "xn--kdb162r.", "to_ascii\(\'xn\-\-kdb162r\.\'\)\ \[data\/IdnaTest\.txt\:3574\]") 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{05BC}.", %p)}, "xn--kdb162r.", "to_ascii\(\'ⴖ\\u05BC\.\'\)\ \[data\/IdnaTest\.txt\:3575\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴖ\x{05BC}.", %p)}, undef, "to_ascii\(\'Ⴖ\\u05BC\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3576\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒ⴖ\x{05BC}.\x{200C}", %p)}, undef, "to_ascii\(\'︒ⴖ\\u05BC.\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3577\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08A0}.\x{200C}Ⴃ\x{AA31}", %p)}, undef, "to_ascii\(\'\\u08A0.\\u200CႣ\\uAA31\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3579\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08A0}.\x{200C}Ⴃ\x{AA31}", %p)}, undef, "to_ascii\(\'\\u08A0\.\\u200CႣ\\uAA31\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3581\]") 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{08A0}.\x{200C}ⴃ\x{AA31}", %p)}, "xn--pyb.xn--ukj2811b", "to_ascii\(\'\\u08A0\.\\u200Cⴃ\\uAA31\'\)\ \[data\/IdnaTest\.txt\:3583\]") 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--pyb.xn--ukj2811b", %p)}, "xn--pyb.xn--ukj2811b", "to_ascii\(\'xn\-\-pyb\.xn\-\-ukj2811b\'\)\ \[data\/IdnaTest\.txt\:3585\]") 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{08A0}.ⴃ\x{AA31}", %p)}, "xn--pyb.xn--ukj2811b", "to_ascii\(\'\\u08A0\.ⴃ\\uAA31\'\)\ \[data\/IdnaTest\.txt\:3586\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{08A0}.Ⴃ\x{AA31}", %p)}, undef, "to_ascii\(\'\\u08A0\.Ⴃ\\uAA31\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3587\]") 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{08A0}.\x{200C}ⴃ\x{AA31}", %p)}, "xn--pyb.xn--ukj2811b", "to_ascii\(\'\\u08A0.\\u200Cⴃ\\uAA31\'\)\ \[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}\x{200C}。0䫷\x{1A6A}", %p)}, "xn--0-e3k657x", "to_ascii\(\'\\u200D\\u200C\。0䫷\\u1A6A\'\)\ \[data\/IdnaTest\.txt\:3590\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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--0-e3k657x", %p)}, "xn--0-e3k657x", "to_ascii\(\'xn\-\-0\-e3k657x\'\)\ \[data\/IdnaTest\.txt\:3592\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A6A}", %p)}, "xn--0-e3k657x", "to_ascii\(\'0䫷\\u1A6A\'\)\ \[data\/IdnaTest\.txt\:3593\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-\x{08EF}\x{2EB97}。\x{5EAA7}", %p)}, undef, "to_ascii\(\'\-\\u08EF\\uD87A\\uDF97\。\\uD93A\\uDEA7\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3594\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{709A6}︒\x{200C}㟀.ꡛ⒈", %p)}, undef, "to_ascii\(\'\\uD982\\uDDA6︒\\u200C㟀.ꡛ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3595\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{709A6}。\x{200C}㟀.ꡛ1.", %p)}, undef, "to_ascii\(\'\\uD982\\uDDA6\。\\u200C㟀\.ꡛ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3597\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{A8EA}\x{06C4}\x{0483}。-\x{200D}", %p)}, undef, "to_ascii\(\'\\uA8EA\\u06C4\\u0483\。\-\\u200D\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:3599\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}.Ⴉ≠\x{1E8F2}", %p)}, undef, "to_ascii\(\'\\u200C.Ⴉ\≠\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3601\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.Ⴉ=\x{0338}\x{1E8F2}", %p)}, undef, "to_ascii\(\'\\u200C.Ⴉ\=\\u0338\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3603\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.Ⴉ≠\x{1E8F2}", %p)}, undef, "to_ascii\(\'\\u200C\.Ⴉ\≠\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3605\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.Ⴉ=\x{0338}\x{1E8F2}", %p)}, undef, "to_ascii\(\'\\u200C\.Ⴉ\=\\u0338\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3607\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.ⴉ=\x{0338}\x{1E8F2}", %p)}, undef, "to_ascii\(\'\\u200C\.ⴉ\=\\u0338\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3609\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.ⴉ≠\x{1E8F2}", %p)}, undef, "to_ascii\(\'\\u200C\.ⴉ\≠\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3611\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.ⴉ=\x{0338}\x{1E8F2}", %p)}, undef, "to_ascii\(\'\\u200C.ⴉ\=\\u0338\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3613\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.ⴉ≠\x{1E8F2}", %p)}, undef, "to_ascii\(\'\\u200C.ⴉ\≠\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3615\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CD}。≯ς", %p)}, undef, "to_ascii\(\'\\u06CD\。\≯ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3617\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CD}。>\x{0338}ς", %p)}, undef, "to_ascii\(\'\\u06CD\。\>\\u0338ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3618\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CD}。>\x{0338}Σ", %p)}, undef, "to_ascii\(\'\\u06CD\。\>\\u0338Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3619\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CD}。≯Σ", %p)}, undef, "to_ascii\(\'\\u06CD\。\≯Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3620\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CD}。≯σ", %p)}, undef, "to_ascii\(\'\\u06CD\。\≯σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3621\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CD}。>\x{0338}σ", %p)}, undef, "to_ascii\(\'\\u06CD\。\>\\u0338σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3622\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FCA6}\x{0776}.\x{B78F2}︒\x{8A5EA}Ⴐ", %p)}, undef, "to_ascii\(\'\\uFCA6\\u0776\.\\uDA9E\\uDCF2︒\\uD9E9\\uDDEAႰ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3623\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}\x{0645}\x{0776}.\x{B78F2}。\x{8A5EA}Ⴐ", %p)}, undef, "to_ascii\(\'\\u062B\\u0645\\u0776\.\\uDA9E\\uDCF2\。\\uD9E9\\uDDEAႰ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3624\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}\x{0645}\x{0776}.\x{B78F2}。\x{8A5EA}ⴐ", %p)}, undef, "to_ascii\(\'\\u062B\\u0645\\u0776\.\\uDA9E\\uDCF2\。\\uD9E9\\uDDEAⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3625\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FCA6}\x{0776}.\x{B78F2}︒\x{8A5EA}ⴐ", %p)}, undef, "to_ascii\(\'\\uFCA6\\u0776\.\\uDA9E\\uDCF2︒\\uD9E9\\uDDEAⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3626\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴥ⾏\x{E05AB}\x{A9B8}。\x{0599}", %p)}, undef, "to_ascii\(\'Ⴥ⾏\\uDB41\\uDDAB\\uA9B8。\\u0599\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3627\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴥ行\x{E05AB}\x{A9B8}。\x{0599}", %p)}, undef, "to_ascii\(\'Ⴥ行\\uDB41\\uDDAB\\uA9B8\。\\u0599\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3628\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴥ行\x{E05AB}\x{A9B8}。\x{0599}", %p)}, undef, "to_ascii\(\'ⴥ行\\uDB41\\uDDAB\\uA9B8\。\\u0599\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3629\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴥ⾏\x{E05AB}\x{A9B8}。\x{0599}", %p)}, undef, "to_ascii\(\'ⴥ⾏\\uDB41\\uDDAB\\uA9B8。\\u0599\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3630\]") 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)}, "5.xn--xbf5506v", "to_ascii\(\'𝟱\。🜎ᢧ\'\)\ \[data\/IdnaTest\.txt\:3631\]") 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("5。🜎ᢧ", %p)}, "5.xn--xbf5506v", "to_ascii\(\'5\。🜎ᢧ\'\)\ \[data\/IdnaTest\.txt\:3632\]") 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("5.xn--xbf5506v", %p)}, "5.xn--xbf5506v", "to_ascii\(\'5\.xn\-\-xbf5506v\'\)\ \[data\/IdnaTest\.txt\:3633\]") 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("5.🜎ᢧ", %p)}, "5.xn--xbf5506v", "to_ascii\(\'5\.🜎ᢧ\'\)\ \[data\/IdnaTest\.txt\:3634\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≮ꡌ。섖쮖ß", %p)}, undef, "to_ascii\(\'\≮ꡌ\。섖쮖ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3635\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ꡌ。섖쮖ß", %p)}, undef, "to_ascii\(\'\<\\u0338ꡌ\。섖쮖ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3636\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ꡌ。섖쮖SS", %p)}, undef, "to_ascii\(\'\<\\u0338ꡌ\。섖쮖SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3637\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮ꡌ。섖쮖SS", %p)}, undef, "to_ascii\(\'\≮ꡌ\。섖쮖SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3638\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮ꡌ。섖쮖ss", %p)}, undef, "to_ascii\(\'\≮ꡌ\。섖쮖ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3639\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ꡌ。섖쮖ss", %p)}, undef, "to_ascii\(\'\<\\u0338ꡌ\。섖쮖ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3640\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ꡌ。섖쮖Ss", %p)}, undef, "to_ascii\(\'\<\\u0338ꡌ\。섖쮖Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3641\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮ꡌ。섖쮖Ss", %p)}, undef, "to_ascii\(\'\≮ꡌ\。섖쮖Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3642\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0365}\x{E066C}-。ᠾ", %p)}, undef, "to_ascii\(\'\\u0365\\uDB41\\uDE6C\-\。ᠾ\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3643\]") 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{1EEB6}\x{0669}ꡊ\x{1BAB}。\x{07DA}ᡴ\x{200C}\x{067C}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDEB6\\u0669ꡊ\\u1BAB\。\\u07DAᡴ\\u200C\\u067C\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:3644\]") 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{062B}\x{0669}ꡊ\x{1BAB}。\x{07DA}ᡴ\x{200C}\x{067C}", %p)}, undef, "to_ascii\(\'\\u062B\\u0669ꡊ\\u1BAB\。\\u07DAᡴ\\u200C\\u067C\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:3645\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{A92D}.\x{10F81}\x{58BF1}", %p)}, undef, "to_ascii\(\'\\uA92D\.\\uD803\\uDF81\\uD922\\uDFF1\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3646\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("--。\x{41AF8}\x{06A0}\x{109A4}\x{1E868}", %p)}, undef, "to_ascii\(\'\-\-\。\\uD8C6\\uDEF8\\u06A0\\uD802\\uDDA4\\uD83A\\uDC68\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3647\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9461E}𝟐\x{87B22}.≯ᢜᢗ\x{8C130}", %p)}, undef, "to_ascii\(\'\\uDA11\\uDE1E𝟐\\uD9DE\\uDF22\.\≯ᢜᢗ\\uD9F0\\uDD30\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3648\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9461E}𝟐\x{87B22}.>\x{0338}ᢜᢗ\x{8C130}", %p)}, undef, "to_ascii\(\'\\uDA11\\uDE1E𝟐\\uD9DE\\uDF22\.\>\\u0338ᢜᢗ\\uD9F0\\uDD30\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3649\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9461E}2\x{87B22}.≯ᢜᢗ\x{8C130}", %p)}, undef, "to_ascii\(\'\\uDA11\\uDE1E2\\uD9DE\\uDF22\.\≯ᢜᢗ\\uD9F0\\uDD30\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3650\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9461E}2\x{87B22}.>\x{0338}ᢜᢗ\x{8C130}", %p)}, undef, "to_ascii\(\'\\uDA11\\uDE1E2\\uD9DE\\uDF22\.\>\\u0338ᢜᢗ\\uD9F0\\uDD30\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3651\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䔛\x{E010E}\x{D4626}\x{0668}.-䤷", %p)}, undef, "to_ascii\(\'䔛\\uDB40\\uDD0E\\uDB11\\uDE26\\u0668.\-䤷\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3652\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䔛\x{E010E}\x{D4626}\x{0668}.-䤷", %p)}, undef, "to_ascii\(\'䔛\\uDB40\\uDD0E\\uDB11\\uDE26\\u0668\.\-䤷\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3653\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0666}.\x{200D}-", %p)}, undef, "to_ascii\(\'\\u0666.\\u200D\-\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:3654\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0666}.\x{200D}-", %p)}, undef, "to_ascii\(\'\\u0666\.\\u200D\-\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:3656\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DFF6F}帷。≯萺\x{E0F50}-", %p)}, undef, "to_ascii\(\'\\uDB3F\\uDF6F帷。\≯萺\\uDB43\\uDF50\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3658\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DFF6F}帷。>\x{0338}萺\x{E0F50}-", %p)}, undef, "to_ascii\(\'\\uDB3F\\uDF6F帷。\>\\u0338萺\\uDB43\\uDF50\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3659\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DFF6F}帷。≯萺\x{E0F50}-", %p)}, undef, "to_ascii\(\'\\uDB3F\\uDF6F帷\。\≯萺\\uDB43\\uDF50\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3660\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DFF6F}帷。>\x{0338}萺\x{E0F50}-", %p)}, undef, "to_ascii\(\'\\uDB3F\\uDF6F帷\。\>\\u0338萺\\uDB43\\uDF50\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3661\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}攌\x{A806}。\x{0723}-Ⴘ", %p)}, undef, "to_ascii\(\'\\u200D攌\\uA806\。\\u0723\-Ⴘ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3662\]") 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{A806}。\x{0723}-ⴘ", %p)}, undef, "to_ascii\(\'\\u200D攌\\uA806\。\\u0723\-ⴘ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:3664\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}ꖨ.𝟪₀\x{93F89}𝟱", %p)}, undef, "to_ascii\(\'\\u200Cꖨ.𝟪₀\\uDA0F\\uDF89𝟱\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3666\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ꖨ.80\x{93F89}5", %p)}, undef, "to_ascii\(\'\\u200Cꖨ\.80\\uDA0F\\uDF895\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3668\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈걾2.\x{FD96}\x{0767}", %p)}, undef, "to_ascii\(\'⒈걾2\.\\uFD96\\u0767\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3670\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈걾2.\x{FD96}\x{0767}", %p)}, undef, "to_ascii\(\'⒈걾2\.\\uFD96\\u0767\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3671\]") 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("1.걾2.\x{0646}\x{062D}\x{0649}\x{0767}", %p)}, "1.xn--2-945e.xn--sgb3ck85i", "to_ascii\(\'1\.걾2\.\\u0646\\u062D\\u0649\\u0767\'\)\ \[data\/IdnaTest\.txt\:3672\]") 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("1.걾2.\x{0646}\x{062D}\x{0649}\x{0767}", %p)}, "1.xn--2-945e.xn--sgb3ck85i", "to_ascii\(\'1\.걾2\.\\u0646\\u062D\\u0649\\u0767\'\)\ \[data\/IdnaTest\.txt\:3673\]") 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("1.xn--2-945e.xn--sgb3ck85i", %p)}, "1.xn--2-945e.xn--sgb3ck85i", "to_ascii\(\'1\.xn\-\-2\-945e\.xn\-\-sgb3ck85i\'\)\ \[data\/IdnaTest\.txt\:3674\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{109C4}𝟻≮≮.\x{2DFB}ᢣ", %p)}, undef, "to_ascii\(\'\\uD802\\uDDC4𝟻\≮\≮\.\\u2DFBᢣ\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:3675\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{109C4}𝟻<\x{0338}<\x{0338}.\x{2DFB}ᢣ", %p)}, undef, "to_ascii\(\'\\uD802\\uDDC4𝟻\<\\u0338\<\\u0338\.\\u2DFBᢣ\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:3676\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{109C4}5≮≮.\x{2DFB}ᢣ", %p)}, undef, "to_ascii\(\'\\uD802\\uDDC45\≮\≮\.\\u2DFBᢣ\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:3677\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{109C4}5<\x{0338}<\x{0338}.\x{2DFB}ᢣ", %p)}, undef, "to_ascii\(\'\\uD802\\uDDC45\<\\u0338\<\\u0338\.\\u2DFBᢣ\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:3678\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0043}.\x{10E7A}\x{115F}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDC43\.\\uD803\\uDE7A\\u115F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3679\]") 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{1BA5}\x{E0110}.\x{200D}", %p)}, "xn--6-eml.", "to_ascii\(\'𝟨\\u1BA5\\uDB40\\uDD10\.\\u200D\'\)\ \[data\/IdnaTest\.txt\:3680\]") 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("6\x{1BA5}\x{E0110}.\x{200D}", %p)}, "xn--6-eml.", "to_ascii\(\'6\\u1BA5\\uDB40\\uDD10\.\\u200D\'\)\ \[data\/IdnaTest\.txt\:3682\]") 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--6-eml.", %p)}, "xn--6-eml.", "to_ascii\(\'xn\-\-6\-eml\.\'\)\ \[data\/IdnaTest\.txt\:3684\]") 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("6\x{1BA5}.", %p)}, "xn--6-eml.", "to_ascii\(\'6\\u1BA5\.\'\)\ \[data\/IdnaTest\.txt\:3685\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᡭ≠\x{06A3}\x{0C4D}。-\x{200C}ꡠ", %p)}, undef, "to_ascii\(\'ᡭ\≠\\u06A3\\u0C4D。\-\\u200Cꡠ\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3686\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡭ=\x{0338}\x{06A3}\x{0C4D}。-\x{200C}ꡠ", %p)}, undef, "to_ascii\(\'ᡭ\=\\u0338\\u06A3\\u0C4D。\-\\u200Cꡠ\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3688\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡭ≠\x{06A3}\x{0C4D}。-\x{200C}ꡠ", %p)}, undef, "to_ascii\(\'ᡭ\≠\\u06A3\\u0C4D\。\-\\u200Cꡠ\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3690\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡭ=\x{0338}\x{06A3}\x{0C4D}。-\x{200C}ꡠ", %p)}, undef, "to_ascii\(\'ᡭ\=\\u0338\\u06A3\\u0C4D\。\-\\u200Cꡠ\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3692\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7C}\x{1CE7}-\x{0628}。\x{06A8}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7C\\u1CE7\-\\u0628。\\u06A8\'\)\ throws\ error\ B1\ \[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{10E7C}\x{1CE7}-\x{0628}。\x{06A8}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7C\\u1CE7\-\\u0628\。\\u06A8\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3695\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("F\x{1CD0}。\x{1090D1}⁖", %p)}, undef, "to_ascii\(\'F\\u1CD0。\\uDBE4\\uDCD1\⁖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3696\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("F\x{1CD0}。\x{1090D1}⁖", %p)}, undef, "to_ascii\(\'F\\u1CD0\。\\uDBE4\\uDCD1\⁖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3697\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("f\x{1CD0}。\x{1090D1}⁖", %p)}, undef, "to_ascii\(\'f\\u1CD0\。\\uDBE4\\uDCD1\⁖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3698\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("f\x{1CD0}。\x{1090D1}⁖", %p)}, undef, "to_ascii\(\'f\\u1CD0。\\uDBE4\\uDCD1\⁖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3699\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}\x{1734}\x{1A7B}。۰Ⴘ\x{135E}\x{AF13F}", %p)}, undef, "to_ascii\(\'\\u1734\\u1734\\u1A7B\。۰Ⴘ\\u135E\\uDA7C\\uDD3F\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3700\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}\x{1734}\x{1A7B}。۰ⴘ\x{135E}\x{AF13F}", %p)}, undef, "to_ascii\(\'\\u1734\\u1734\\u1A7B\。۰ⴘ\\u135E\\uDA7C\\uDD3F\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3701\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{30A68}\x{200C}\x{200C}5。勉\x{E0078}", %p)}, undef, "to_ascii\(\'\\uD882\\uDE68\\u200C\\u200C5\。勉\\uDB40\\uDC78\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3702\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{30A68}\x{200C}\x{200C}5。勉\x{E0078}", %p)}, undef, "to_ascii\(\'\\uD882\\uDE68\\u200C\\u200C5\。勉\\uDB40\\uDC78\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3704\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠇.\x{D3154}\x{5CF08}\x{6C1A6}", %p)}, undef, "to_ascii\(\'᠇\.\\uDB0C\\uDD54\\uD933\\uDF08\\uD970\\uDDA6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3706\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}。⒈≯8", %p)}, undef, "to_ascii\(\'\\u200C\\u200C。⒈\≯8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3707\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}。⒈>\x{0338}8", %p)}, undef, "to_ascii\(\'\\u200C\\u200C。⒈\>\\u03388\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3709\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}。1.≯8", %p)}, undef, "to_ascii\(\'\\u200C\\u200C\。1\.\≯8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3711\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}。1.>\x{0338}8", %p)}, undef, "to_ascii\(\'\\u200C\\u200C\。1\.\>\\u03388\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3713\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}\x{102D}\x{564A6}.\x{472BE}≯ᡞ", %p)}, undef, "to_ascii\(\'\\u115F\\u102D\\uD919\\uDCA6\.\\uD8DC\\uDEBE\≯ᡞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3715\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}\x{102D}\x{564A6}.\x{472BE}>\x{0338}ᡞ", %p)}, undef, "to_ascii\(\'\\u115F\\u102D\\uD919\\uDCA6\.\\uD8DC\\uDEBE\>\\u0338ᡞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3716\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🁠\x{0948}\x{200D}\x{0713}.\x{0356}-\x{1B71}\x{58169}", %p)}, undef, "to_ascii\(\'🁠\\u0948\\u200D\\u0713\.\\u0356\-\\u1B71\\uD920\\uDD69\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3717\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E01CD}.\x{0B4D}-", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDCD.\\u0B4D\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3719\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E01CD}.\x{0B4D}-", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDCD\.\\u0B4D\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3720\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䮸ß.\x{E0D5F}℮紙\x{0770}", %p)}, undef, "to_ascii\(\'䮸ß\.\\uDB43\\uDD5F℮紙\\u0770\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3721\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䮸SS.\x{E0D5F}℮紙\x{0770}", %p)}, undef, "to_ascii\(\'䮸SS\.\\uDB43\\uDD5F℮紙\\u0770\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3722\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䮸ss.\x{E0D5F}℮紙\x{0770}", %p)}, undef, "to_ascii\(\'䮸ss\.\\uDB43\\uDD5F℮紙\\u0770\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3723\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䮸Ss.\x{E0D5F}℮紙\x{0770}", %p)}, undef, "to_ascii\(\'䮸Ss\.\\uDB43\\uDD5F℮紙\\u0770\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3724\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-Ⴞ.-\x{E0C5D}\x{E0B98}\x{1E99C}", %p)}, undef, "to_ascii\(\'\-Ⴞ\.\-\\uDB43\\uDC5D\\uDB42\\uDF98\\uD83A\\uDD9C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3725\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ⴞ.-\x{E0C5D}\x{E0B98}\x{1E99C}", %p)}, undef, "to_ascii\(\'\-ⴞ\.\-\\uDB43\\uDC5D\\uDB42\\uDF98\\uD83A\\uDD9C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3726\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{37585}\x{0662}\x{036E}。\x{CB7C6}ꡌ\x{3D03C}ᠪ", %p)}, undef, "to_ascii\(\'\\uD89D\\uDD85\\u0662\\u036E。\\uDAED\\uDFC6ꡌ\\uD8B4\\uDC3Cᠪ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3727\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{37585}\x{0662}\x{036E}。\x{CB7C6}ꡌ\x{3D03C}ᠪ", %p)}, undef, "to_ascii\(\'\\uD89D\\uDD85\\u0662\\u036E\。\\uDAED\\uDFC6ꡌ\\uD8B4\\uDC3Cᠪ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3728\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAA}-\x{200D}\x{1D188}.\x{06B3}\x{200D}\x{75647}", %p)}, undef, "to_ascii\(\'\\u0FAA\-\\u200D\\uD834\\uDD88.\\u06B3\\u200D\\uD995\\uDE47\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3729\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAA}-\x{200D}\x{1D188}.\x{06B3}\x{200D}\x{75647}", %p)}, undef, "to_ascii\(\'\\u0FAA\-\\u200D\\uD834\\uDD88\.\\u06B3\\u200D\\uD995\\uDE47\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3731\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⁶。≠\x{10E78}", %p)}, undef, "to_ascii\(\'⁶\。\≠\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3733\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⁶。=\x{0338}\x{10E78}", %p)}, undef, "to_ascii\(\'⁶\。\=\\u0338\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3734\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6。≠\x{10E78}", %p)}, undef, "to_ascii\(\'6\。\≠\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3735\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6。=\x{0338}\x{10E78}", %p)}, undef, "to_ascii\(\'6\。\=\\u0338\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3736\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}廊.\x{07A0}", %p)}, undef, "to_ascii\(\'\\uABED廊\.\\u07A0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3737\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}\x{05B5}-.-Ⴐ\x{0666}", %p)}, undef, "to_ascii\(\'\\u200D\\u05B5\-.\-Ⴐ\\u0666\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3738\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{05B5}-.-Ⴐ\x{0666}", %p)}, undef, "to_ascii\(\'\\u200D\\u05B5\-\.\-Ⴐ\\u0666\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3740\]") 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{05B5}-.-ⴐ\x{0666}", %p)}, undef, "to_ascii\(\'\\u200D\\u05B5\-\.\-ⴐ\\u0666\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3742\]") 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{05B5}-.-ⴐ\x{0666}", %p)}, undef, "to_ascii\(\'\\u200D\\u05B5\-.\-ⴐ\\u0666\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3744\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0721}\x{0661}挏\x{F9128}.-", %p)}, undef, "to_ascii\(\'\\u0721\\u0661挏\\uDBA4\\uDD28\.\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3746\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FD0B}。\x{0604}ꡎ", %p)}, undef, "to_ascii\(\'\\uFD0B。\\u0604ꡎ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3747\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0634}\x{062E}。\x{0604}ꡎ", %p)}, undef, "to_ascii\(\'\\u0634\\u062E\。\\u0604ꡎ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3748\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_ascii\(\'Ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3749\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_ascii\(\'Ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3750\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_ascii\(\'Ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19\.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3751\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_ascii\(\'Ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19\.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3752\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_ascii\(\'ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19\.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3753\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_ascii\(\'ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19\.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3754\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_ascii\(\'ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3755\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_ascii\(\'ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3756\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🔱\x{6B20D}\x{06B7}\x{0668}。≯\x{200C}\x{AAB3}", %p)}, undef, "to_ascii\(\'🔱\\uD96C\\uDE0D\\u06B7\\u0668。\≯\\u200C\\uAAB3\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3757\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🔱\x{6B20D}\x{06B7}\x{0668}。>\x{0338}\x{200C}\x{AAB3}", %p)}, undef, "to_ascii\(\'🔱\\uD96C\\uDE0D\\u06B7\\u0668。\>\\u0338\\u200C\\uAAB3\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3759\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🔱\x{6B20D}\x{06B7}\x{0668}。≯\x{200C}\x{AAB3}", %p)}, undef, "to_ascii\(\'🔱\\uD96C\\uDE0D\\u06B7\\u0668\。\≯\\u200C\\uAAB3\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3761\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🔱\x{6B20D}\x{06B7}\x{0668}。>\x{0338}\x{200C}\x{AAB3}", %p)}, undef, "to_ascii\(\'🔱\\uD96C\\uDE0D\\u06B7\\u0668\。\>\\u0338\\u200C\\uAAB3\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3763\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᛎ\x{05A0}\x{FFF9}\x{200D}。\x{0603}\x{10E77}\x{1E817}-", %p)}, undef, "to_ascii\(\'ᛎ\\u05A0\\uFFF9\\u200D。\\u0603\\uD803\\uDE77\\uD83A\\uDC17\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3765\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᛎ\x{05A0}\x{FFF9}\x{200D}。\x{0603}\x{10E77}\x{1E817}-", %p)}, undef, "to_ascii\(\'ᛎ\\u05A0\\uFFF9\\u200D\。\\u0603\\uD803\\uDE77\\uD83A\\uDC17\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3767\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E69}.\x{07E4}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE69\.\\u07E4\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3769\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ß\x{200D}\x{0E3A}。⒈", %p)}, undef, "to_ascii\(\'ß\\u200D\\u0E3A。⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3770\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{200D}\x{0E3A}。1.", %p)}, "xn--ss-jvi.1.", "to_ascii\(\'ß\\u200D\\u0E3A\。1\.\'\)\ \[data\/IdnaTest\.txt\:3772\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{200D}\x{0E3A}。1.", %p)}, "xn--ss-jvi.1.", "to_ascii\(\'SS\\u200D\\u0E3A\。1\.\'\)\ \[data\/IdnaTest\.txt\:3774\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{200D}\x{0E3A}。1.", %p)}, "xn--ss-jvi.1.", "to_ascii\(\'ss\\u200D\\u0E3A\。1\.\'\)\ \[data\/IdnaTest\.txt\:3776\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{200D}\x{0E3A}。1.", %p)}, "xn--ss-jvi.1.", "to_ascii\(\'Ss\\u200D\\u0E3A\。1\.\'\)\ \[data\/IdnaTest\.txt\:3778\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ss-jvi.1.", %p)}, "xn--ss-jvi.1.", "to_ascii\(\'xn\-\-ss\-jvi\.1\.\'\)\ \[data\/IdnaTest\.txt\:3780\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{0E3A}.1.", %p)}, "xn--ss-jvi.1.", "to_ascii\(\'ss\\u0E3A\.1\.\'\)\ \[data\/IdnaTest\.txt\:3781\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{0E3A}.1.", %p)}, "xn--ss-jvi.1.", "to_ascii\(\'SS\\u0E3A\.1\.\'\)\ \[data\/IdnaTest\.txt\:3782\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{0E3A}.1.", %p)}, "xn--ss-jvi.1.", "to_ascii\(\'Ss\\u0E3A\.1\.\'\)\ \[data\/IdnaTest\.txt\:3783\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{200D}\x{0E3A}。⒈", %p)}, undef, "to_ascii\(\'SS\\u200D\\u0E3A。⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3784\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{200D}\x{0E3A}。⒈", %p)}, undef, "to_ascii\(\'ss\\u200D\\u0E3A。⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3786\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{200D}\x{0E3A}。⒈", %p)}, undef, "to_ascii\(\'Ss\\u200D\\u0E3A。⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3788\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{111C0}\x{200C}\x{9475B}\x{1EAA0}。\x{200D}", %p)}, undef, "to_ascii\(\'\\uD804\\uDDC0\\u200C\\uDA11\\uDF5B\\uD83A\\uDEA0\。\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3790\]") 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{0777}。\x{067A}🔋", %p)}, undef, "to_ascii\(\'\\u0777。\\u067A🔋\'\)\ throws\ error\ B3\ \[data\/IdnaTest\.txt\:3792\]") 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{0777}。\x{067A}🔋", %p)}, undef, "to_ascii\(\'\\u0777\。\\u067A🔋\'\)\ throws\ error\ B3\ \[data\/IdnaTest\.txt\:3793\]") 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{07DC}\x{1BF2}。\x{0677}\x{1A1B}\x{200C}\x{0D4D}", %p)}, undef, "to_ascii\(\'\\u07DC\\u1BF2\。\\u0677\\u1A1B\\u200C\\u0D4D\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:3794\]") 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{07DC}\x{1BF2}。\x{06C7}\x{0674}\x{1A1B}\x{200C}\x{0D4D}", %p)}, undef, "to_ascii\(\'\\u07DC\\u1BF2\。\\u06C7\\u0674\\u1A1B\\u200C\\u0D4D\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:3796\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{D4CA7}.\x{E017E}ꡑ", %p)}, undef, "to_ascii\(\'\\uDB13\\uDCA7\.\\uDB40\\uDD7Eꡑ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3798\]") 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{1BF3}.ß\x{0A4D}\x{0FBC}", %p)}, "xn--88e02p.xn--ss-efg876c", "to_ascii\(\'ᡬ\\u1BF3.ß\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3799\]") 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{1BF3}.ß\x{0A4D}\x{0FBC}", %p)}, "xn--88e02p.xn--ss-efg876c", "to_ascii\(\'ᡬ\\u1BF3\.ß\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3801\]") 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{1BF3}.SS\x{0A4D}\x{0FBC}", %p)}, "xn--88e02p.xn--ss-efg876c", "to_ascii\(\'ᡬ\\u1BF3\.SS\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3803\]") 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{1BF3}.ss\x{0A4D}\x{0FBC}", %p)}, "xn--88e02p.xn--ss-efg876c", "to_ascii\(\'ᡬ\\u1BF3\.ss\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3804\]") 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{1BF3}.Ss\x{0A4D}\x{0FBC}", %p)}, "xn--88e02p.xn--ss-efg876c", "to_ascii\(\'ᡬ\\u1BF3\.Ss\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3805\]") 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--88e02p.xn--ss-efg876c", %p)}, "xn--88e02p.xn--ss-efg876c", "to_ascii\(\'xn\-\-88e02p\.xn\-\-ss\-efg876c\'\)\ \[data\/IdnaTest\.txt\:3806\]") 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--88e02p.xn--zca249bipe", %p)}, "xn--88e02p.xn--zca249bipe", "to_ascii\(\'xn\-\-88e02p\.xn\-\-zca249bipe\'\)\ \[data\/IdnaTest\.txt\:3807\]") 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{1BF3}.SS\x{0A4D}\x{0FBC}", %p)}, "xn--88e02p.xn--ss-efg876c", "to_ascii\(\'ᡬ\\u1BF3.SS\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3808\]") 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{1BF3}.ss\x{0A4D}\x{0FBC}", %p)}, "xn--88e02p.xn--ss-efg876c", "to_ascii\(\'ᡬ\\u1BF3.ss\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3809\]") 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{1BF3}.Ss\x{0A4D}\x{0FBC}", %p)}, "xn--88e02p.xn--ss-efg876c", "to_ascii\(\'ᡬ\\u1BF3.Ss\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3810\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("۴≮\x{200C}。\x{116B2}\x{17B4}", %p)}, undef, "to_ascii\(\'۴\≮\\u200C。\\uD805\\uDEB2\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3811\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۴<\x{0338}\x{200C}。\x{116B2}\x{17B4}", %p)}, undef, "to_ascii\(\'۴\<\\u0338\\u200C。\\uD805\\uDEB2\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3813\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۴≮\x{200C}。\x{116B2}\x{17B4}", %p)}, undef, "to_ascii\(\'۴\≮\\u200C\。\\uD805\\uDEB2\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3815\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۴<\x{0338}\x{200C}。\x{116B2}\x{17B4}", %p)}, undef, "to_ascii\(\'۴\<\\u0338\\u200C\。\\uD805\\uDEB2\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3817\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}≯︒\x{B23D5}.Ⴀ", %p)}, undef, "to_ascii\(\'\\u06C5\≯︒\\uDA88\\uDFD5.Ⴀ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3819\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}>\x{0338}︒\x{B23D5}.Ⴀ", %p)}, undef, "to_ascii\(\'\\u06C5\>\\u0338︒\\uDA88\\uDFD5.Ⴀ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3820\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}≯。\x{B23D5}.Ⴀ", %p)}, undef, "to_ascii\(\'\\u06C5\≯\。\\uDA88\\uDFD5\.Ⴀ\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3821\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}>\x{0338}。\x{B23D5}.Ⴀ", %p)}, undef, "to_ascii\(\'\\u06C5\>\\u0338\。\\uDA88\\uDFD5\.Ⴀ\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3822\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}>\x{0338}。\x{B23D5}.ⴀ", %p)}, undef, "to_ascii\(\'\\u06C5\>\\u0338\。\\uDA88\\uDFD5\.ⴀ\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3823\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}≯。\x{B23D5}.ⴀ", %p)}, undef, "to_ascii\(\'\\u06C5\≯\。\\uDA88\\uDFD5\.ⴀ\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3824\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}>\x{0338}︒\x{B23D5}.ⴀ", %p)}, undef, "to_ascii\(\'\\u06C5\>\\u0338︒\\uDA88\\uDFD5.ⴀ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3825\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}≯︒\x{B23D5}.ⴀ", %p)}, undef, "to_ascii\(\'\\u06C5\≯︒\\uDA88\\uDFD5.ⴀ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3826\]") 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{E0121}.-\x{2DF9}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD21.\-\\u2DF9\'\)\ throws\ error\ V3\ \[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{E0121}.-\x{2DF9}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD21\.\-\\u2DF9\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3828\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᵬ\x{0DD3}.핒🄃⒈\x{A74BE}", %p)}, undef, "to_ascii\(\'ᵬ\\u0DD3.핒🄃⒈\\uDA5D\\uDCBE\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3829\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᵬ\x{0DD3}.핒🄃⒈\x{A74BE}", %p)}, undef, "to_ascii\(\'ᵬ\\u0DD3.핒🄃⒈\\uDA5D\\uDCBE\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3830\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᵬ\x{0DD3}.핒2,1.\x{A74BE}", %p)}, undef, "to_ascii\(\'ᵬ\\u0DD3\.핒2\,1\.\\uDA5D\\uDCBE\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3831\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᵬ\x{0DD3}.핒2,1.\x{A74BE}", %p)}, undef, "to_ascii\(\'ᵬ\\u0DD3\.핒2\,1\.\\uDA5D\\uDCBE\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3832\]") 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{111C0}₆.\x{10E61}", %p)}, undef, "to_ascii\(\'ς\\uD804\\uDDC0₆.\\uD803\\uDE61\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3833\]") 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{111C0}6.\x{10E61}", %p)}, undef, "to_ascii\(\'ς\\uD804\\uDDC06\.\\uD803\\uDE61\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3834\]") 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{111C0}6.\x{10E61}", %p)}, undef, "to_ascii\(\'Σ\\uD804\\uDDC06\.\\uD803\\uDE61\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3835\]") 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{111C0}6.\x{10E61}", %p)}, undef, "to_ascii\(\'σ\\uD804\\uDDC06\.\\uD803\\uDE61\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3836\]") 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{111C0}₆.\x{10E61}", %p)}, undef, "to_ascii\(\'Σ\\uD804\\uDDC0₆.\\uD803\\uDE61\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3837\]") 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{111C0}₆.\x{10E61}", %p)}, undef, "to_ascii\(\'σ\\uD804\\uDDC0₆.\\uD803\\uDE61\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3838\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1039}\x{200C}₇\x{200D}.\x{1D169}\x{1E902}\x{0602}", %p)}, undef, "to_ascii\(\'\\u1039\\u200C₇\\u200D\.\\uD834\\uDD69\\uD83A\\uDD02\\u0602\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3839\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1039}\x{200C}7\x{200D}.\x{1D169}\x{1E902}\x{0602}", %p)}, undef, "to_ascii\(\'\\u1039\\u200C7\\u200D\.\\uD834\\uDD69\\uD83A\\uDD02\\u0602\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3841\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0CD3}。\x{3C4F0}\x{07CD}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDCD3\。\\uD8B1\\uDCF0\\u07CD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3843\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF33}𥂚。\x{9FCF1}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF33𥂚\。\\uDA3F\\uDCF1\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3844\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E6C}\x{0902}\x{0849}。ς\x{BE839}\x{E0CCC}\x{17B5}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C\\u0902\\u0849\。ς\\uDABA\\uDC39\\uDB43\\uDCCC\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3845\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E6C}\x{0902}\x{0849}。Σ\x{BE839}\x{E0CCC}\x{17B5}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C\\u0902\\u0849\。Σ\\uDABA\\uDC39\\uDB43\\uDCCC\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3846\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E6C}\x{0902}\x{0849}。σ\x{BE839}\x{E0CCC}\x{17B5}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C\\u0902\\u0849\。σ\\uDABA\\uDC39\\uDB43\\uDCCC\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3847\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{1EA1B}\x{0683}\x{193B}。\x{11046}⒕", %p)}, undef, "to_ascii\(\'\-\\uD83A\\uDE1B\\u0683\\u193B\。\\uD804\\uDC46⒕\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3848\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{1EA1B}\x{0683}\x{193B}。\x{11046}14.", %p)}, undef, "to_ascii\(\'\-\\uD83A\\uDE1B\\u0683\\u193B\。\\uD804\\uDC4614\.\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3849\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}🔲。\x{E0757}≮\x{10C84}", %p)}, undef, "to_ascii\(\'\\u200C🔲。\\uDB41\\uDF57\≮\\uD803\\uDC84\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3850\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}🔲。\x{E0757}<\x{0338}\x{10C84}", %p)}, undef, "to_ascii\(\'\\u200C🔲。\\uDB41\\uDF57\<\\u0338\\uD803\\uDC84\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3852\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}🔲。\x{E0757}≮\x{10C84}", %p)}, undef, "to_ascii\(\'\\u200C🔲\。\\uDB41\\uDF57\≮\\uD803\\uDC84\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3854\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}🔲。\x{E0757}<\x{0338}\x{10C84}", %p)}, undef, "to_ascii\(\'\\u200C🔲\。\\uDB41\\uDF57\<\\u0338\\uD803\\uDC84\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3856\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈【\x{A2308}.𝟲\x{95459}", %p)}, undef, "to_ascii\(\'⒈\【\\uDA48\\uDF08.𝟲\\uDA15\\uDC59\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3858\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.【\x{A2308}.6\x{95459}", %p)}, undef, "to_ascii\(\'1\.\【\\uDA48\\uDF08\.6\\uDA15\\uDC59\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3859\]") 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{1B71}\x{08A2}\x{FBE5}.\x{0667}\x{2DFB}", %p)}, undef, "to_ascii\(\'\\u1B71\\u08A2\\uFBE5\.\\u0667\\u2DFB\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3860\]") 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{1B71}\x{08A2}\x{06D0}.\x{0667}\x{2DFB}", %p)}, undef, "to_ascii\(\'\\u1B71\\u08A2\\u06D0\.\\u0667\\u2DFB\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3861\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{103A}", %p)}, undef, "to_ascii\(\'ς.\\uA9C0\\u103A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3862\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{103A}", %p)}, undef, "to_ascii\(\'ς\.\\uA9C0\\u103A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3863\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{103A}", %p)}, undef, "to_ascii\(\'Σ\.\\uA9C0\\u103A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3864\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{103A}", %p)}, undef, "to_ascii\(\'σ\.\\uA9C0\\u103A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3865\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{103A}", %p)}, undef, "to_ascii\(\'Σ.\\uA9C0\\u103A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3866\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{103A}", %p)}, undef, "to_ascii\(\'σ.\\uA9C0\\u103A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3867\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E013D}\x{200C}≯\x{10EC3}.\x{081B}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD3D\\u200C\≯\\uD803\\uDEC3.\\u081B\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3868\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E013D}\x{200C}>\x{0338}\x{10EC3}.\x{081B}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD3D\\u200C\>\\u0338\\uD803\\uDEC3.\\u081B\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3870\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E013D}\x{200C}≯\x{10EC3}.\x{081B}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD3D\\u200C\≯\\uD803\\uDEC3\.\\u081B\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3872\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E013D}\x{200C}>\x{0338}\x{10EC3}.\x{081B}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD3D\\u200C\>\\u0338\\uD803\\uDEC3\.\\u081B\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3874\]") 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("羚。≯", %p)}, undef, "to_ascii\(\'羚\。\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3878\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羚。>\x{0338}", %p)}, undef, "to_ascii\(\'羚\。\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3879\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A3F}\x{1759}.ꡦ", %p)}, undef, "to_ascii\(\'\\uD802\\uDE3F\\u1759.ꡦ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3880\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A3F}\x{1759}.ꡦ", %p)}, undef, "to_ascii\(\'\\uD802\\uDE3F\\u1759\.ꡦ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3881\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}ҠჀ²", %p)}, undef, "to_ascii\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D。\\uD803\\uDE6DҠჀ²\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3882\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}ҠჀ2", %p)}, undef, "to_ascii\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D\。\\uD803\\uDE6DҠჀ2\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3884\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}ҡⴠ2", %p)}, undef, "to_ascii\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D\。\\uD803\\uDE6Dҡⴠ2\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3886\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}Ҡⴠ2", %p)}, undef, "to_ascii\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D\。\\uD803\\uDE6DҠⴠ2\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3888\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}ҡⴠ²", %p)}, undef, "to_ascii\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D。\\uD803\\uDE6Dҡⴠ²\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3890\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}Ҡⴠ²", %p)}, undef, "to_ascii\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D。\\uD803\\uDE6DҠⴠ²\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3892\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6D}\x{A6F1}", %p)}, undef, "to_ascii\(\'ᠴ\。\\uD803\\uDE6D\\uA6F1\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3894\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}ß", %p)}, undef, "to_ascii\(\'\\uD8D4\\uDD21\\u0B4D。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3895\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}ß", %p)}, undef, "to_ascii\(\'\\uD8D4\\uDD21\\u0B4D\。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3896\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}SS", %p)}, undef, "to_ascii\(\'\\uD8D4\\uDD21\\u0B4D\。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDSS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3897\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}ss", %p)}, undef, "to_ascii\(\'\\uD8D4\\uDD21\\u0B4D\。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3898\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}Ss", %p)}, undef, "to_ascii\(\'\\uD8D4\\uDD21\\u0B4D\。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDSs\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3899\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}SS", %p)}, undef, "to_ascii\(\'\\uD8D4\\uDD21\\u0B4D。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDSS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3900\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}ss", %p)}, undef, "to_ascii\(\'\\uD8D4\\uDD21\\u0B4D。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3901\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}Ss", %p)}, undef, "to_ascii\(\'\\uD8D4\\uDD21\\u0B4D。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDSs\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3902\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E72}\x{9D467}\x{036C}.⸖︒≠", %p)}, undef, "to_ascii\(\'\\uD803\\uDE72\\uDA35\\uDC67\\u036C\.\⸖︒\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3903\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E72}\x{9D467}\x{036C}.⸖︒=\x{0338}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE72\\uDA35\\uDC67\\u036C\.\⸖︒\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3904\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E72}\x{9D467}\x{036C}.⸖。≠", %p)}, undef, "to_ascii\(\'\\uD803\\uDE72\\uDA35\\uDC67\\u036C\.\⸖\。\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3905\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E72}\x{9D467}\x{036C}.⸖。=\x{0338}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE72\\uDA35\\uDC67\\u036C\.\⸖\。\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3906\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏫\x{CEDF8}ỗ⒈.\x{37B57}\x{B8390}⧸⒌", %p)}, undef, "to_ascii\(\'🏫\\uDAFB\\uDDF8ỗ⒈.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸⒌\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3907\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏫\x{CEDF8}o\x{0302}\x{0303}⒈.\x{37B57}\x{B8390}⧸⒌", %p)}, undef, "to_ascii\(\'🏫\\uDAFB\\uDDF8o\\u0302\\u0303⒈.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸⒌\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3908\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏫\x{CEDF8}ỗ1..\x{37B57}\x{B8390}⧸5.", %p)}, undef, "to_ascii\(\'🏫\\uDAFB\\uDDF8ỗ1\.\.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸5\.\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3909\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏫\x{CEDF8}o\x{0302}\x{0303}1..\x{37B57}\x{B8390}⧸5.", %p)}, undef, "to_ascii\(\'🏫\\uDAFB\\uDDF8o\\u0302\\u03031\.\.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸5\.\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3910\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏫\x{CEDF8}O\x{0302}\x{0303}1..\x{37B57}\x{B8390}⧸5.", %p)}, undef, "to_ascii\(\'🏫\\uDAFB\\uDDF8O\\u0302\\u03031\.\.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸5\.\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3911\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏫\x{CEDF8}Ỗ1..\x{37B57}\x{B8390}⧸5.", %p)}, undef, "to_ascii\(\'🏫\\uDAFB\\uDDF8Ỗ1\.\.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸5\.\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3912\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏫\x{CEDF8}O\x{0302}\x{0303}⒈.\x{37B57}\x{B8390}⧸⒌", %p)}, undef, "to_ascii\(\'🏫\\uDAFB\\uDDF8O\\u0302\\u0303⒈.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸⒌\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3913\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏫\x{CEDF8}Ỗ⒈.\x{37B57}\x{B8390}⧸⒌", %p)}, undef, "to_ascii\(\'🏫\\uDAFB\\uDDF8Ỗ⒈.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸⒌\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3914\]") 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{200D}。ꡏ", %p)}, "xn--oc9a", "to_ascii\(\'\\u200D。ꡏ\'\)\ \[data\/IdnaTest\.txt\:3915\]") 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{200D}。ꡏ", %p)}, "xn--oc9a", "to_ascii\(\'\\u200D\。ꡏ\'\)\ \[data\/IdnaTest\.txt\:3917\]") 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--oc9a", %p)}, "xn--oc9a", "to_ascii\(\'xn\-\-oc9a\'\)\ \[data\/IdnaTest\.txt\:3919\]") 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--oc9a", "to_ascii\(\'ꡏ\'\)\ \[data\/IdnaTest\.txt\:3920\]") 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{E01C5}ꡉ.\x{06FA}", %p)}, "xn--ic9a.xn--nmb", "to_ascii\(\'\\uDB40\\uDDC5ꡉ\.\\u06FA\'\)\ \[data\/IdnaTest\.txt\:3921\]") 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--ic9a.xn--nmb", %p)}, "xn--ic9a.xn--nmb", "to_ascii\(\'xn\-\-ic9a\.xn\-\-nmb\'\)\ \[data\/IdnaTest\.txt\:3922\]") 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{06FA}", %p)}, "xn--ic9a.xn--nmb", "to_ascii\(\'ꡉ\.\\u06FA\'\)\ \[data\/IdnaTest\.txt\:3923\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1B80}\x{200C}-。\x{7CC35}ß", %p)}, undef, "to_ascii\(\'\\u1B80\\u200C\-\。\\uD9B3\\uDC35ß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3924\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B80}\x{200C}-。\x{7CC35}SS", %p)}, undef, "to_ascii\(\'\\u1B80\\u200C\-\。\\uD9B3\\uDC35SS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3926\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B80}\x{200C}-。\x{7CC35}ss", %p)}, undef, "to_ascii\(\'\\u1B80\\u200C\-\。\\uD9B3\\uDC35ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3928\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B80}\x{200C}-。\x{7CC35}Ss", %p)}, undef, "to_ascii\(\'\\u1B80\\u200C\-\。\\uD9B3\\uDC35Ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3930\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ς⩕𝟶.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_ascii\(\'\\u200Cς\⩕𝟶\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3932\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ς⩕0.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_ascii\(\'\\u200Cς\⩕0\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3934\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Σ⩕0.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_ascii\(\'\\u200CΣ\⩕0\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3936\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}σ⩕0.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_ascii\(\'\\u200Cσ\⩕0\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3938\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Σ⩕𝟶.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_ascii\(\'\\u200CΣ\⩕𝟶\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3940\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}σ⩕𝟶.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_ascii\(\'\\u200Cσ\⩕𝟶\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3942\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.\x{1E888}", %p)}, undef, "to_ascii\(\'\-\.\\uD83A\\uDC88\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3944\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{5B1FD}\x{0773}.\x{302D}\x{07D3}", %p)}, undef, "to_ascii\(\'\\uD92C\\uDDFD\\u0773\.\\u302D\\u07D3\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:3945\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FE6}ꡲ\x{182D3}.ᠤ", %p)}, undef, "to_ascii\(\'\\u0FE6ꡲ\\uD820\\uDED3\.ᠤ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3946\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷\x{89430}\x{077B}ß。\x{0766}", %p)}, undef, "to_ascii\(\'۷\\uD9E5\\uDC30\\u077Bß\。\\u0766\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3947\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷\x{89430}\x{077B}SS。\x{0766}", %p)}, undef, "to_ascii\(\'۷\\uD9E5\\uDC30\\u077BSS\。\\u0766\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3948\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷\x{89430}\x{077B}ss。\x{0766}", %p)}, undef, "to_ascii\(\'۷\\uD9E5\\uDC30\\u077Bss\。\\u0766\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3949\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷\x{89430}\x{077B}Ss。\x{0766}", %p)}, undef, "to_ascii\(\'۷\\uD9E5\\uDC30\\u077BSs\。\\u0766\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3950\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ≮.\x{08A4}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\≮.\\u08A4ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3951\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ<\x{0338}.\x{08A4}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\<\\u0338.\\u08A4ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3953\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ≮.\x{08A4}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\≮\.\\u08A4ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3955\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ<\x{0338}.\x{08A4}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\<\\u0338\.\\u08A4ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3957\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ<\x{0338}.\x{08A4}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\<\\u0338\.\\u08A4SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3959\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ≮.\x{08A4}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\≮\.\\u08A4SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3961\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ≮.\x{08A4}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\≮\.\\u08A4ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3963\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ<\x{0338}.\x{08A4}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\<\\u0338\.\\u08A4ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3965\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ<\x{0338}.\x{08A4}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\<\\u0338\.\\u08A4Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3967\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ≮.\x{08A4}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\≮\.\\u08A4Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3969\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ<\x{0338}.\x{08A4}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\<\\u0338.\\u08A4SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3971\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ≮.\x{08A4}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\≮.\\u08A4SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3973\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ≮.\x{08A4}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\≮.\\u08A4ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3975\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ<\x{0338}.\x{08A4}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\<\\u0338.\\u08A4ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3977\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ<\x{0338}.\x{08A4}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\<\\u0338.\\u08A4Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3979\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ≮.\x{08A4}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\≮.\\u08A4Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3981\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{BB86C}\x{E017C}\x{1B00}.\x{AA31}-︒", %p)}, undef, "to_ascii\(\'\-\\uDAAE\\uDC6C\\uDB40\\uDD7C\\u1B00\.\\uAA31\-︒\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:3983\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{BB86C}\x{E017C}\x{1B00}.\x{AA31}-。", %p)}, undef, "to_ascii\(\'\-\\uDAAE\\uDC6C\\uDB40\\uDD7C\\u1B00\.\\uAA31\-\。\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:3984\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒.\x{6FFEB}\x{1CE5}", %p)}, undef, "to_ascii\(\'︒\.\\uD97F\\uDFEB\\u1CE5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3985\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。.\x{6FFEB}\x{1CE5}", %p)}, undef, "to_ascii\(\'\。\.\\uD97F\\uDFEB\\u1CE5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3986\]") 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{2DF5}\x{08F7}。\x{200C}⓾\x{200C}\x{075C}", %p)}, undef, "to_ascii\(\'\\u2DF5\\u08F7\。\\u200C⓾\\u200C\\u075C\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3987\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{06FD}ꡙ\x{0666}。\x{074A}ᡍ\x{0823}", %p)}, undef, "to_ascii\(\'\\u06FDꡙ\\u0666。\\u074Aᡍ\\u0823\'\)\ throws\ error\ V5\ B2\ \[data\/IdnaTest\.txt\:3989\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{06FD}ꡙ\x{0666}。\x{074A}ᡍ\x{0823}", %p)}, undef, "to_ascii\(\'\\u06FDꡙ\\u0666\。\\u074Aᡍ\\u0823\'\)\ throws\ error\ V5\ B2\ \[data\/IdnaTest\.txt\:3990\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{A949}.-\x{49FF5}", %p)}, undef, "to_ascii\(\'\\uA949\.\-\\uD8E7\\uDFF5\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:3991\]") 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{1B72}.赏", %p)}, undef, "to_ascii\(\'\\u1B72.赏\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3992\]") 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{1B72}.赏", %p)}, undef, "to_ascii\(\'\\u1B72\.赏\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3993\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0686}\x{0680}。Ⴁ", %p)}, undef, "to_ascii\(\'\\u0686\\u0680。Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3994\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0686}\x{0680}。Ⴁ", %p)}, undef, "to_ascii\(\'\\u0686\\u0680\。Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3995\]") 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{0686}\x{0680}。ⴁ", %p)}, "xn--5ibl.xn--skj", "to_ascii\(\'\\u0686\\u0680\。ⴁ\'\)\ \[data\/IdnaTest\.txt\:3996\]") 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--5ibl.xn--skj", %p)}, "xn--5ibl.xn--skj", "to_ascii\(\'xn\-\-5ibl\.xn\-\-skj\'\)\ \[data\/IdnaTest\.txt\:3997\]") 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{0686}\x{0680}.ⴁ", %p)}, "xn--5ibl.xn--skj", "to_ascii\(\'\\u0686\\u0680\.ⴁ\'\)\ \[data\/IdnaTest\.txt\:3998\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0686}\x{0680}.Ⴁ", %p)}, undef, "to_ascii\(\'\\u0686\\u0680\.Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3999\]") 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{0686}\x{0680}。ⴁ", %p)}, "xn--5ibl.xn--skj", "to_ascii\(\'\\u0686\\u0680。ⴁ\'\)\ \[data\/IdnaTest\.txt\:4000\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FE26}Ⴊ\x{07D4}ς。-", %p)}, undef, "to_ascii\(\'\\uFE26Ⴊ\\u07D4ς。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4001\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE26}Ⴊ\x{07D4}ς。-", %p)}, undef, "to_ascii\(\'\\uFE26Ⴊ\\u07D4ς\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4002\]") 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{FE26}ⴊ\x{07D4}ς。-", %p)}, undef, "to_ascii\(\'\\uFE26ⴊ\\u07D4ς\。\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4003\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FE26}Ⴊ\x{07D4}Σ。-", %p)}, undef, "to_ascii\(\'\\uFE26Ⴊ\\u07D4Σ\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4004\]") 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{FE26}ⴊ\x{07D4}σ。-", %p)}, undef, "to_ascii\(\'\\uFE26ⴊ\\u07D4σ\。\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4005\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FE26}Ⴊ\x{07D4}σ。-", %p)}, undef, "to_ascii\(\'\\uFE26Ⴊ\\u07D4σ\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4006\]") 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{FE26}ⴊ\x{07D4}ς。-", %p)}, undef, "to_ascii\(\'\\uFE26ⴊ\\u07D4ς。\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4007\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FE26}Ⴊ\x{07D4}Σ。-", %p)}, undef, "to_ascii\(\'\\uFE26Ⴊ\\u07D4Σ。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4008\]") 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{FE26}ⴊ\x{07D4}σ。-", %p)}, undef, "to_ascii\(\'\\uFE26ⴊ\\u07D4σ。\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4009\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FE26}Ⴊ\x{07D4}σ。-", %p)}, undef, "to_ascii\(\'\\uFE26Ⴊ\\u07D4σ。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4010\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴍ.\x{645EA}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴍ.\\uD951\\uDDEA\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4011\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴍ.\x{645EA}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴍ\.\\uD951\\uDDEA\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4013\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴍ.\x{645EA}\x{200C}", %p)}, undef, "to_ascii\(\'ⴍ\.\\uD951\\uDDEA\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4015\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴍ.\x{645EA}\x{200C}", %p)}, undef, "to_ascii\(\'ⴍ.\\uD951\\uDDEA\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4017\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{32D72}⏎.ᠧ\x{17D2}\x{E2C9C}\x{0CCD}", %p)}, undef, "to_ascii\(\'\\uD88B\\uDD72\⏎\.ᠧ\\u17D2\\uDB4B\\uDC9C\\u0CCD\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4019\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯˒ꡟ。\x{10E7A}\x{E0B08}", %p)}, undef, "to_ascii\(\'\≯˒ꡟ。\\uD803\\uDE7A\\uDB42\\uDF08\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4020\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}˒ꡟ。\x{10E7A}\x{E0B08}", %p)}, undef, "to_ascii\(\'\>\\u0338˒ꡟ。\\uD803\\uDE7A\\uDB42\\uDF08\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4021\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯˒ꡟ。\x{10E7A}\x{E0B08}", %p)}, undef, "to_ascii\(\'\≯˒ꡟ\。\\uD803\\uDE7A\\uDB42\\uDF08\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4022\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}˒ꡟ。\x{10E7A}\x{E0B08}", %p)}, undef, "to_ascii\(\'\>\\u0338˒ꡟ\。\\uD803\\uDE7A\\uDB42\\uDF08\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4023\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{F991E}\x{10E7E}\x{0764}\x{10E77}。Ⴈ\x{0631}Ⴏ", %p)}, undef, "to_ascii\(\'\\uDBA6\\uDD1E\\uD803\\uDE7E\\u0764\\uD803\\uDE77\。Ⴈ\\u0631Ⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4024\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{F991E}\x{10E7E}\x{0764}\x{10E77}。ⴈ\x{0631}ⴏ", %p)}, undef, "to_ascii\(\'\\uDBA6\\uDD1E\\uD803\\uDE7E\\u0764\\uD803\\uDE77\。ⴈ\\u0631ⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4025\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{F991E}\x{10E7E}\x{0764}\x{10E77}。Ⴈ\x{0631}ⴏ", %p)}, undef, "to_ascii\(\'\\uDBA6\\uDD1E\\uD803\\uDE7E\\u0764\\uD803\\uDE77\。Ⴈ\\u0631ⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4026\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EB92}。\x{E007D}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDF92\。\\uDB40\\uDC7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4027\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("³\x{0600}.\x{E01B1}⬙7ᡦ", %p)}, undef, "to_ascii\(\'³\\u0600.\\uDB40\\uDDB1\⬙7ᡦ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4028\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{0600}.\x{E01B1}⬙7ᡦ", %p)}, undef, "to_ascii\(\'3\\u0600\.\\uDB40\\uDDB1\⬙7ᡦ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4029\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{069F}\x{10E7E}\x{08C7}.\x{033E}", %p)}, undef, "to_ascii\(\'\\u069F\\uD803\\uDE7E\\u08C7.\\u033E\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4030\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{069F}\x{10E7E}\x{08C7}.\x{033E}", %p)}, undef, "to_ascii\(\'\\u069F\\uD803\\uDE7E\\u08C7\.\\u033E\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4031\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0088}\x{95A50}\x{0646}.\x{06BA}\x{200D}\x{10CE6}", %p)}, undef, "to_ascii\(\'\\u0088\\uDA16\\uDE50\\u0646.\\u06BA\\u200D\\uD803\\uDCE6\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4032\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0088}\x{95A50}\x{0646}.\x{06BA}\x{200D}\x{10CE6}", %p)}, undef, "to_ascii\(\'\\u0088\\uDA16\\uDE50\\u0646\.\\u06BA\\u200D\\uD803\\uDCE6\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4034\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡊ\x{C73E1}\x{10F89}-.≠\x{C8E8F}\x{ABED}", %p)}, undef, "to_ascii\(\'ꡊ\\uDADC\\uDFE1\\uD803\\uDF89\-.\≠\\uDAE3\\uDE8F\\uABED\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4036\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡊ\x{C73E1}\x{10F89}-.=\x{0338}\x{C8E8F}\x{ABED}", %p)}, undef, "to_ascii\(\'ꡊ\\uDADC\\uDFE1\\uD803\\uDF89\-.\=\\u0338\\uDAE3\\uDE8F\\uABED\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4037\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡊ\x{C73E1}\x{10F89}-.≠\x{C8E8F}\x{ABED}", %p)}, undef, "to_ascii\(\'ꡊ\\uDADC\\uDFE1\\uD803\\uDF89\-\.\≠\\uDAE3\\uDE8F\\uABED\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4038\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡊ\x{C73E1}\x{10F89}-.=\x{0338}\x{C8E8F}\x{ABED}", %p)}, undef, "to_ascii\(\'ꡊ\\uDADC\\uDFE1\\uD803\\uDF89\-\.\=\\u0338\\uDAE3\\uDE8F\\uABED\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4039\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₅.\x{71C0B}", %p)}, undef, "to_ascii\(\'₅.\\uD987\\uDC0B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4040\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("5.\x{71C0B}", %p)}, undef, "to_ascii\(\'5\.\\uD987\\uDC0B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4041\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200D}.Ⴞ1", %p)}, undef, "to_ascii\(\'\-\\u200D\.Ⴞ1\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4042\]") 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}.ⴞ1", %p)}, undef, "to_ascii\(\'\-\\u200D\.ⴞ1\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4044\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200Dςß\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4046\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200Dςß\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4048\]") 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}ΣSS\x{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200DΣSS\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4050\]") 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}σss\x{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200Dσss\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4052\]") 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}Σss\x{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200DΣss\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4054\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200DΣß\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4056\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200Dσß\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4058\]") 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}ΣSS\x{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200DΣSS\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4060\]") 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}σss\x{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200Dσss\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4062\]") 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}Σss\x{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200DΣss\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4064\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200DΣß\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4066\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200Dσß\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4068\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≠.\x{200D}", %p)}, undef, "to_ascii\(\'\≠.\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4070\]") 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\:4072\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠.\x{200D}", %p)}, undef, "to_ascii\(\'\≠\.\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4074\]") 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\:4076\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF53}。\x{0612}\x{06D1}⸩\x{A53B4}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF53。\\u0612\\u06D1\⸩\\uDA54\\uDFB4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4078\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF53}。\x{0612}\x{06D1}⸩\x{A53B4}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF53\。\\u0612\\u06D1\⸩\\uDA54\\uDFB4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4079\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}ς.ς\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4Dς.ς\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4080\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}ς.ς\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4Dς\.ς\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4081\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}Σ.Σ\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4DΣ\.Σ\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4082\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}σ.ς\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4Dσ\.ς\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4083\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}σ.σ\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4Dσ\.σ\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4084\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}Σ.σ\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4DΣ\.σ\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4085\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}Σ.ς\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4DΣ\.ς\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4086\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}Σ.Σ\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4DΣ.Σ\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4087\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}σ.ς\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4Dσ.ς\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4088\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}σ.σ\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4Dσ.σ\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4089\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}Σ.σ\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4DΣ.σ\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4090\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}Σ.ς\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4DΣ.ς\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4091\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062A}ᢋ牅\x{0F79}。\x{10A8E}\x{1D18B}\x{760C0}Ⴙ", %p)}, undef, "to_ascii\(\'\\u062Aᢋ牅\\u0F79。\\uD802\\uDE8E\\uD834\\uDD8B\\uD998\\uDCC0Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4092\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062A}ᢋ牅\x{0FB3}\x{0F71}\x{0F80}。\x{10A8E}\x{1D18B}\x{760C0}Ⴙ", %p)}, undef, "to_ascii\(\'\\u062Aᢋ牅\\u0FB3\\u0F71\\u0F80\。\\uD802\\uDE8E\\uD834\\uDD8B\\uD998\\uDCC0Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4093\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062A}ᢋ牅\x{0FB3}\x{0F71}\x{0F80}。\x{10A8E}\x{1D18B}\x{760C0}ⴙ", %p)}, undef, "to_ascii\(\'\\u062Aᢋ牅\\u0FB3\\u0F71\\u0F80\。\\uD802\\uDE8E\\uD834\\uDD8B\\uD998\\uDCC0ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4094\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062A}ᢋ牅\x{0F79}。\x{10A8E}\x{1D18B}\x{760C0}ⴙ", %p)}, undef, "to_ascii\(\'\\u062Aᢋ牅\\u0F79。\\uD802\\uDE8E\\uD834\\uDD8B\\uD998\\uDCC0ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4095\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{6DCA6}。륧", %p)}, undef, "to_ascii\(\'\\uD977\\uDCA6。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4096\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{6DCA6}。륧", %p)}, undef, "to_ascii\(\'\\uD977\\uDCA6。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4097\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{6DCA6}。륧", %p)}, undef, "to_ascii\(\'\\uD977\\uDCA6\。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4098\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{6DCA6}。륧", %p)}, undef, "to_ascii\(\'\\uD977\\uDCA6\。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4099\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0602}\x{200D}。\x{7D7EE}", %p)}, undef, "to_ascii\(\'\\u0602\\u200D\。\\uD9B5\\uDFEE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4100\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴘᡓ\x{1DFC}。-", %p)}, undef, "to_ascii\(\'Ⴘᡓ\\u1DFC。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4102\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴘᡓ\x{1DFC}。-", %p)}, undef, "to_ascii\(\'Ⴘᡓ\\u1DFC\。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4103\]") 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{1DFC}。-", %p)}, undef, "to_ascii\(\'ⴘᡓ\\u1DFC\。\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4104\]") 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{1DFC}。-", %p)}, undef, "to_ascii\(\'ⴘᡓ\\u1DFC。\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4105\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1BF3}\x{0675}🄆ꡁ。\x{E0C8A}\x{06B0}", %p)}, undef, "to_ascii\(\'\\u1BF3\\u0675🄆ꡁ\。\\uDB43\\uDC8A\\u06B0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:4106\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1BF3}\x{0627}\x{0674}5,ꡁ。\x{E0C8A}\x{06B0}", %p)}, undef, "to_ascii\(\'\\u1BF3\\u0627\\u06745\,ꡁ\。\\uDB43\\uDC8A\\u06B0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:4107\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{6F43F}.꘏\x{07E5}\x{06AE}\x{072D}", %p)}, undef, "to_ascii\(\'\\uD97D\\uDC3F\.꘏\\u07E5\\u06AE\\u072D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4108\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0647}\x{D929}。-ᢣ", %p)}, undef, "to_ascii\(\'\\u0647\\uD929\。\-ᢣ\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ A3\ \[data\/IdnaTest\.txt\:4109\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{06C7}⾑.\x{200C}\x{06B3}\x{200C}⒈", %p)}, undef, "to_ascii\(\'ς\\u06C7⾑.\\u200C\\u06B3\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4110\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{06C7}襾.\x{200C}\x{06B3}\x{200C}1.", %p)}, undef, "to_ascii\(\'ς\\u06C7襾\.\\u200C\\u06B3\\u200C1\.\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4112\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{06C7}襾.\x{200C}\x{06B3}\x{200C}1.", %p)}, undef, "to_ascii\(\'Σ\\u06C7襾\.\\u200C\\u06B3\\u200C1\.\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4114\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{06C7}襾.\x{200C}\x{06B3}\x{200C}1.", %p)}, undef, "to_ascii\(\'σ\\u06C7襾\.\\u200C\\u06B3\\u200C1\.\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4116\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{06C7}⾑.\x{200C}\x{06B3}\x{200C}⒈", %p)}, undef, "to_ascii\(\'Σ\\u06C7⾑.\\u200C\\u06B3\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4118\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{06C7}⾑.\x{200C}\x{06B3}\x{200C}⒈", %p)}, undef, "to_ascii\(\'σ\\u06C7⾑.\\u200C\\u06B3\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4120\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0772}\x{41714}.\x{08BD}", %p)}, undef, "to_ascii\(\'\\u0772\\uD8C5\\uDF14.\\u08BD\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4122\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0772}\x{41714}.\x{08BD}", %p)}, undef, "to_ascii\(\'\\u0772\\uD8C5\\uDF14\.\\u08BD\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4123\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A8C4}\x{F668D}\x{0F19}。\x{200C}ᡲ\x{9C361}", %p)}, undef, "to_ascii\(\'\\uA8C4\\uDB99\\uDE8D\\u0F19。\\u200Cᡲ\\uDA30\\uDF61\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4124\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A8C4}\x{F668D}\x{0F19}。\x{200C}ᡲ\x{9C361}", %p)}, undef, "to_ascii\(\'\\uA8C4\\uDB99\\uDE8D\\u0F19\。\\u200Cᡲ\\uDA30\\uDF61\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4126\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡵ\x{0F9D}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_ascii\(\'ᡵ\\u0F9D\\uD817\\uDC9F\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4128\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡵ\x{0F9C}\x{0FB7}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_ascii\(\'ᡵ\\u0F9C\\u0FB7\\uD817\\uDC9F\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4130\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡵ\x{0F9C}\x{0FB7}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_ascii\(\'ᡵ\\u0F9C\\u0FB7\\uD817\\uDC9F\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4132\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡵ\x{0F9C}\x{0FB7}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_ascii\(\'ᡵ\\u0F9C\\u0FB7\\uD817\\uDC9F\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4134\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡵ\x{0F9C}\x{0FB7}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_ascii\(\'ᡵ\\u0F9C\\u0FB7\\uD817\\uDC9F\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4136\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E41E6}。\x{0751}", %p)}, undef, "to_ascii\(\'\\uDB50\\uDDE6。\\u0751\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4138\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E41E6}。\x{0751}", %p)}, undef, "to_ascii\(\'\\uDB50\\uDDE6\。\\u0751\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4139\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("嬃\x{E0BE9}.\x{200D}\x{10A0E}", %p)}, undef, "to_ascii\(\'嬃\\uDB42\\uDFE9.\\u200D\\uD802\\uDE0E\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4140\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("嬃\x{E0BE9}.\x{200D}\x{10A0E}", %p)}, undef, "to_ascii\(\'嬃\\uDB42\\uDFE9\.\\u200D\\uD802\\uDE0E\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4142\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0660}🎨≯.\x{7F5C6}\x{92698}", %p)}, undef, "to_ascii\(\'\\u0660🎨\≯.\\uD9BD\\uDDC6\\uDA09\\uDE98\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4144\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0660}🎨>\x{0338}.\x{7F5C6}\x{92698}", %p)}, undef, "to_ascii\(\'\\u0660🎨\>\\u0338.\\uD9BD\\uDDC6\\uDA09\\uDE98\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4145\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0660}🎨≯.\x{7F5C6}\x{92698}", %p)}, undef, "to_ascii\(\'\\u0660🎨\≯\.\\uD9BD\\uDDC6\\uDA09\\uDE98\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4146\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0660}🎨>\x{0338}.\x{7F5C6}\x{92698}", %p)}, undef, "to_ascii\(\'\\u0660🎨\>\\u0338\.\\uD9BD\\uDDC6\\uDA09\\uDE98\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4147\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B173E}ᡚ\x{1DD3}\x{0D4D}.\x{FEB3}", %p)}, undef, "to_ascii\(\'\\uDA85\\uDF3Eᡚ\\u1DD3\\u0D4D\.\\uFEB3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4148\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B173E}ᡚ\x{0D4D}\x{1DD3}.\x{FEB3}", %p)}, undef, "to_ascii\(\'\\uDA85\\uDF3Eᡚ\\u0D4D\\u1DD3\.\\uFEB3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4149\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B173E}ᡚ\x{0D4D}\x{1DD3}.\x{0633}", %p)}, undef, "to_ascii\(\'\\uDA85\\uDF3Eᡚ\\u0D4D\\u1DD3\.\\u0633\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4150\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.\x{844D8}", %p)}, undef, "to_ascii\(\'\\u200C\.\\uD9D1\\uDCD8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4151\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𖡘Ⴃ䠅.\x{108F2}", %p)}, undef, "to_ascii\(\'𖡘Ⴃ䠅.\\uD802\\uDCF2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4153\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𖡘Ⴃ䠅.\x{108F2}", %p)}, undef, "to_ascii\(\'𖡘Ⴃ䠅\.\\uD802\\uDCF2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4154\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𖡘ⴃ䠅.\x{108F2}", %p)}, undef, "to_ascii\(\'𖡘ⴃ䠅\.\\uD802\\uDCF2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4155\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𖡘ⴃ䠅.\x{108F2}", %p)}, undef, "to_ascii\(\'𖡘ⴃ䠅.\\uD802\\uDCF2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4156\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A39}\x{0661}\x{10E7A}\x{062C}。⒑Ⴅ", %p)}, undef, "to_ascii\(\'\\uD802\\uDE39\\u0661\\uD803\\uDE7A\\u062C。⒑Ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4157\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A39}\x{0661}\x{10E7A}\x{062C}。10.Ⴅ", %p)}, undef, "to_ascii\(\'\\uD802\\uDE39\\u0661\\uD803\\uDE7A\\u062C\。10\.Ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4158\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10A39}\x{0661}\x{10E7A}\x{062C}。10.ⴅ", %p)}, undef, "to_ascii\(\'\\uD802\\uDE39\\u0661\\uD803\\uDE7A\\u062C\。10\.ⴅ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4159\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{10A39}\x{0661}\x{10E7A}\x{062C}。⒑ⴅ", %p)}, undef, "to_ascii\(\'\\uD802\\uDE39\\u0661\\uD803\\uDE7A\\u062C。⒑ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4160\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。︒", %p)}, undef, "to_ascii\(\'\-。︒\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4161\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。。", %p)}, undef, "to_ascii\(\'\-\。\。\'\)\ throws\ error\ V3\ A4_2\ \[data\/IdnaTest\.txt\:4162\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}Ⴠ。-۴--", %p)}, undef, "to_ascii\(\'\\u06EEჀ。\-۴\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4163\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}Ⴠ。-۴--", %p)}, undef, "to_ascii\(\'\\u06EEჀ\。\-۴\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4164\]") 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{06EE}ⴠ。-۴--", %p)}, undef, "to_ascii\(\'\\u06EEⴠ\。\-۴\-\-\'\)\ throws\ error\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4165\]") 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{06EE}ⴠ。-۴--", %p)}, undef, "to_ascii\(\'\\u06EEⴠ。\-۴\-\-\'\)\ throws\ error\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4166\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≯\x{D8DD}𐅸。\x{10E70}\x{0665}≯\x{10A37}", %p)}, undef, "to_ascii\(\'\≯\\uD8DD𐅸。\\uD803\\uDE70\\u0665\≯\\uD802\\uDE37\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4167\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{D8DD}𐅸。\x{10E70}\x{0665}>\x{0338}\x{10A37}", %p)}, undef, "to_ascii\(\'\>\\u0338\\uD8DD𐅸。\\uD803\\uDE70\\u0665\>\\u0338\\uD802\\uDE37\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4168\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{D8DD}𐅸。\x{10E70}\x{0665}≯\x{10A37}", %p)}, undef, "to_ascii\(\'\≯\\uD8DD𐅸\。\\uD803\\uDE70\\u0665\≯\\uD802\\uDE37\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4169\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{D8DD}𐅸。\x{10E70}\x{0665}>\x{0338}\x{10A37}", %p)}, undef, "to_ascii\(\'\>\\u0338\\uD8DD𐅸\。\\uD803\\uDE70\\u0665\>\\u0338\\uD802\\uDE37\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4170\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㍔\x{0AC8}\x{06FF}\x{200D}。\x{0DD4}\x{7D7D1}\x{302D}\x{10E67}", %p)}, undef, "to_ascii\(\'㍔\\u0AC8\\u06FF\\u200D\。\\u0DD4\\uD9B5\\uDFD1\\u302D\\uD803\\uDE67\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4171\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ルーブル\x{0AC8}\x{06FF}\x{200D}。\x{0DD4}\x{7D7D1}\x{302D}\x{10E67}", %p)}, undef, "to_ascii\(\'ルーブル\\u0AC8\\u06FF\\u200D\。\\u0DD4\\uD9B5\\uDFD1\\u302D\\uD803\\uDE67\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4173\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ルーフ\x{3099}ル\x{0AC8}\x{06FF}\x{200D}。\x{0DD4}\x{7D7D1}\x{302D}\x{10E67}", %p)}, undef, "to_ascii\(\'ルーフ\\u3099ル\\u0AC8\\u06FF\\u200D\。\\u0DD4\\uD9B5\\uDFD1\\u302D\\uD803\\uDE67\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4175\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}.F", %p)}, "f", "to_ascii\(\'\\u200D\.F\'\)\ \[data\/IdnaTest\.txt\:4177\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("f", %p)}, "f", "to_ascii\(\'f\'\)\ \[data\/IdnaTest\.txt\:4179\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㨲。ß", %p)}, "xn--9bm.ss", "to_ascii\(\'\\u200D㨲。ß\'\)\ \[data\/IdnaTest\.txt\:4180\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㨲。ß", %p)}, "xn--9bm.ss", "to_ascii\(\'\\u200D㨲\。ß\'\)\ \[data\/IdnaTest\.txt\:4182\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㨲。SS", %p)}, "xn--9bm.ss", "to_ascii\(\'\\u200D㨲\。SS\'\)\ \[data\/IdnaTest\.txt\:4184\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--9bm.ss", %p)}, "xn--9bm.ss", "to_ascii\(\'xn\-\-9bm\.ss\'\)\ \[data\/IdnaTest\.txt\:4186\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㨲.ss", %p)}, "xn--9bm.ss", "to_ascii\(\'㨲\.ss\'\)\ \[data\/IdnaTest\.txt\:4187\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㨲。SS", %p)}, "xn--9bm.ss", "to_ascii\(\'\\u200D㨲。SS\'\)\ \[data\/IdnaTest\.txt\:4188\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E60}ᠺ。\x{069E}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE60ᠺ。\\u069E\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4190\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E60}ᠺ。\x{069E}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE60ᠺ\。\\u069E\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4191\]") 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{076E}。\x{0660}\x{07E5}", %p)}, undef, "to_ascii\(\'⾑ᡣ\\u076E\。\\u0660\\u07E5\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4192\]") 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{076E}。\x{0660}\x{07E5}", %p)}, undef, "to_ascii\(\'襾ᡣ\\u076E\。\\u0660\\u07E5\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4193\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{4B8AD}ς-🌿。ꡗ-\x{0771}", %p)}, undef, "to_ascii\(\'\\uD8EE\\uDCADς\-🌿。ꡗ\-\\u0771\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4194\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4B8AD}ς-🌿。ꡗ-\x{0771}", %p)}, undef, "to_ascii\(\'\\uD8EE\\uDCADς\-🌿\。ꡗ\-\\u0771\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4195\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4B8AD}Σ-🌿。ꡗ-\x{0771}", %p)}, undef, "to_ascii\(\'\\uD8EE\\uDCADΣ\-🌿\。ꡗ\-\\u0771\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4196\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4B8AD}σ-🌿。ꡗ-\x{0771}", %p)}, undef, "to_ascii\(\'\\uD8EE\\uDCADσ\-🌿\。ꡗ\-\\u0771\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4197\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4B8AD}Σ-🌿。ꡗ-\x{0771}", %p)}, undef, "to_ascii\(\'\\uD8EE\\uDCADΣ\-🌿。ꡗ\-\\u0771\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4198\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4B8AD}σ-🌿。ꡗ-\x{0771}", %p)}, undef, "to_ascii\(\'\\uD8EE\\uDCADσ\-🌿。ꡗ\-\\u0771\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4199\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}.\x{99D02}", %p)}, undef, "to_ascii\(\'\\u200D.\\uDA27\\uDD02\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4200\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}.\x{99D02}", %p)}, undef, "to_ascii\(\'\\u200D\.\\uDA27\\uDD02\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4202\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3B1B9}\x{EA1C9}。≠𝟭", %p)}, undef, "to_ascii\(\'\\uD8AC\\uDDB9\\uDB68\\uDDC9。\≠𝟭\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4204\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3B1B9}\x{EA1C9}。=\x{0338}𝟭", %p)}, undef, "to_ascii\(\'\\uD8AC\\uDDB9\\uDB68\\uDDC9。\=\\u0338𝟭\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4205\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3B1B9}\x{EA1C9}。≠1", %p)}, undef, "to_ascii\(\'\\uD8AC\\uDDB9\\uDB68\\uDDC9\。\≠1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4206\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3B1B9}\x{EA1C9}。=\x{0338}1", %p)}, undef, "to_ascii\(\'\\uD8AC\\uDDB9\\uDB68\\uDDC9\。\=\\u03381\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4207\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A3F}\x{08A4}\x{200D}.\x{1E810}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE3F\\u08A4\\u200D\.\\uD83A\\uDC10\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4208\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CBC}ᢜ\x{10EA4}\x{0ACD}.\x{AC00D}", %p)}, undef, "to_ascii\(\'\\u0CBCᢜ\\uD803\\uDEA4\\u0ACD.\\uDA70\\uDC0D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4210\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CBC}ᢜ\x{10EA4}\x{0ACD}.\x{AC00D}", %p)}, undef, "to_ascii\(\'\\u0CBCᢜ\\uD803\\uDEA4\\u0ACD\.\\uDA70\\uDC0D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4211\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{077F}。\x{1B38}\x{200C}≯\x{1DE3}", %p)}, undef, "to_ascii\(\'\\u077F\。\\u1B38\\u200C\≯\\u1DE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4212\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{077F}。\x{1B38}\x{200C}>\x{0338}\x{1DE3}", %p)}, undef, "to_ascii\(\'\\u077F\。\\u1B38\\u200C\>\\u0338\\u1DE3\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4214\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0351}𝟏.ᡢ\x{60DEF}Ⴉ", %p)}, undef, "to_ascii\(\'\\u0351𝟏\.ᡢ\\uD943\\uDDEFႩ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4216\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0351}1.ᡢ\x{60DEF}Ⴉ", %p)}, undef, "to_ascii\(\'\\u03511\.ᡢ\\uD943\\uDDEFႩ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4217\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0351}1.ᡢ\x{60DEF}ⴉ", %p)}, undef, "to_ascii\(\'\\u03511\.ᡢ\\uD943\\uDDEFⴉ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4218\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0351}𝟏.ᡢ\x{60DEF}ⴉ", %p)}, undef, "to_ascii\(\'\\u0351𝟏\.ᡢ\\uD943\\uDDEFⴉ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4219\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("閃𝟹\x{0FAF}。Ↄ\x{10E67}\x{067D}\x{1B44}", %p)}, undef, "to_ascii\(\'閃𝟹\\u0FAF\。Ↄ\\uD803\\uDE67\\u067D\\u1B44\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4220\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("閃3\x{0FAF}。Ↄ\x{10E67}\x{067D}\x{1B44}", %p)}, undef, "to_ascii\(\'閃3\\u0FAF\。Ↄ\\uD803\\uDE67\\u067D\\u1B44\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4221\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0FAF}。ↄ\x{10E67}\x{067D}\x{1B44}", %p)}, undef, "to_ascii\(\'閃3\\u0FAF\。ↄ\\uD803\\uDE67\\u067D\\u1B44\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4222\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0FAF}。ↄ\x{10E67}\x{067D}\x{1B44}", %p)}, undef, "to_ascii\(\'閃𝟹\\u0FAF\。ↄ\\uD803\\uDE67\\u067D\\u1B44\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4223\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{2D7F}\x{0768}\x{A8C4}𝟿.𝟚\x{E015B}\x{A950}︒", %p)}, undef, "to_ascii\(\'\\u2D7F\\u0768\\uA8C4𝟿\.𝟚\\uDB40\\uDD5B\\uA950︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4224\]") 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{2D7F}\x{0768}\x{A8C4}9.2\x{E015B}\x{A950}。", %p)}, undef, "to_ascii\(\'\\u2D7F\\u0768\\uA8C49\.2\\uDB40\\uDD5B\\uA950\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4225\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{93904}。≠-\x{20CD}⾛", %p)}, undef, "to_ascii\(\'\\uDA0E\\uDD04。\≠\-\\u20CD⾛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4226\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{93904}。=\x{0338}-\x{20CD}⾛", %p)}, undef, "to_ascii\(\'\\uDA0E\\uDD04。\=\\u0338\-\\u20CD⾛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4227\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{93904}。≠-\x{20CD}走", %p)}, undef, "to_ascii\(\'\\uDA0E\\uDD04\。\≠\-\\u20CD走\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4228\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{93904}。=\x{0338}-\x{20CD}走", %p)}, undef, "to_ascii\(\'\\uDA0E\\uDD04\。\=\\u0338\-\\u20CD走\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4229\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡦ\x{10E77}Ⴊ。-≠\x{1160}", %p)}, undef, "to_ascii\(\'ꡦ\\uD803\\uDE77Ⴊ\。\-\≠\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:4230\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡦ\x{10E77}Ⴊ。-=\x{0338}\x{1160}", %p)}, undef, "to_ascii\(\'ꡦ\\uD803\\uDE77Ⴊ\。\-\=\\u0338\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:4231\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡦ\x{10E77}ⴊ。-=\x{0338}\x{1160}", %p)}, undef, "to_ascii\(\'ꡦ\\uD803\\uDE77ⴊ\。\-\=\\u0338\\u1160\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:4232\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡦ\x{10E77}ⴊ。-≠\x{1160}", %p)}, undef, "to_ascii\(\'ꡦ\\uD803\\uDE77ⴊ\。\-\≠\\u1160\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:4233\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10EF7}\x{10E76}⁹≯。\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDEF7\\uD803\\uDE76⁹\≯。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ \[data\/IdnaTest\.txt\:4234\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10EF7}\x{10E76}⁹>\x{0338}。\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDEF7\\uD803\\uDE76⁹\>\\u0338。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ \[data\/IdnaTest\.txt\:4236\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10EF7}\x{10E76}9≯。\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDEF7\\uD803\\uDE769\≯\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ \[data\/IdnaTest\.txt\:4238\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10EF7}\x{10E76}9>\x{0338}。\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDEF7\\uD803\\uDE769\>\\u0338\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ \[data\/IdnaTest\.txt\:4240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⁸。甯", %p)}, "8.xn--qny", "to_ascii\(\'⁸\。甯\'\)\ \[data\/IdnaTest\.txt\:4242\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8。甯", %p)}, "8.xn--qny", "to_ascii\(\'8\。甯\'\)\ \[data\/IdnaTest\.txt\:4243\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8.xn--qny", %p)}, "8.xn--qny", "to_ascii\(\'8\.xn\-\-qny\'\)\ \[data\/IdnaTest\.txt\:4244\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8.甯", %p)}, "8.xn--qny", "to_ascii\(\'8\.甯\'\)\ \[data\/IdnaTest\.txt\:4245\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-⾆.\x{0CCD}", %p)}, undef, "to_ascii\(\'\-⾆.\\u0CCD\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4246\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-舌.\x{0CCD}", %p)}, undef, "to_ascii\(\'\-舌\.\\u0CCD\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4247\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。ᠵ", %p)}, undef, "to_ascii\(\'\-。ᠵ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4248\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。ᠵ", %p)}, undef, "to_ascii\(\'\-\。ᠵ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4249\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹂Ⴋ.≮", %p)}, undef, "to_ascii\(\'﹂Ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4250\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹂Ⴋ.<\x{0338}", %p)}, undef, "to_ascii\(\'﹂Ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4251\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("」Ⴋ.≮", %p)}, undef, "to_ascii\(\'\」Ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4252\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("」Ⴋ.<\x{0338}", %p)}, undef, "to_ascii\(\'\」Ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4253\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("」ⴋ.<\x{0338}", %p)}, undef, "to_ascii\(\'\」ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("」ⴋ.≮", %p)}, undef, "to_ascii\(\'\」ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4255\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹂ⴋ.<\x{0338}", %p)}, undef, "to_ascii\(\'﹂ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4256\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹂ⴋ.≮", %p)}, undef, "to_ascii\(\'﹂ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4257\]") 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{200C}\x{0351}", %p)}, undef, "to_ascii\(\'璼🐬。\\u200C\\u0351\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4258\]") 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{200C}\x{0351}", %p)}, undef, "to_ascii\(\'璼🐬\。\\u200C\\u0351\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4260\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{10E63}𝟹𦗙。-⁰\x{E0D43}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE63𝟹𦗙。\-⁰\\uDB43\\uDD43\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4262\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E63}3𦗙。-0\x{E0D43}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE633𦗙\。\-0\\uDB43\\uDD43\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4263\]") 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\:4264\]") 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{200D}튛.ꡃ", %p)}, "xn--157b.xn--cc9a", "to_ascii\(\'\\u200D튛\.ꡃ\'\)\ \[data\/IdnaTest\.txt\:4266\]") 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{200D}튛.ꡃ", %p)}, "xn--157b.xn--cc9a", "to_ascii\(\'\\u200D튛\.ꡃ\'\)\ \[data\/IdnaTest\.txt\:4268\]") 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--157b.xn--cc9a", %p)}, "xn--157b.xn--cc9a", "to_ascii\(\'xn\-\-157b\.xn\-\-cc9a\'\)\ \[data\/IdnaTest\.txt\:4270\]") 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--157b.xn--cc9a", "to_ascii\(\'튛\.ꡃ\'\)\ \[data\/IdnaTest\.txt\:4271\]") 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--157b.xn--cc9a", "to_ascii\(\'튛\.ꡃ\'\)\ \[data\/IdnaTest\.txt\:4272\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{07D1}\x{0600}\x{FBED}.\x{07E0}ⴞ", %p)}, undef, "to_ascii\(\'\\u07D1\\u0600\\uFBED\.\\u07E0ⴞ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4273\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D1}\x{0600}\x{0626}\x{06D5}.\x{07E0}ⴞ", %p)}, undef, "to_ascii\(\'\\u07D1\\u0600\\u0626\\u06D5\.\\u07E0ⴞ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4274\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D1}\x{0600}\x{064A}\x{0654}\x{06D5}.\x{07E0}ⴞ", %p)}, undef, "to_ascii\(\'\\u07D1\\u0600\\u064A\\u0654\\u06D5\.\\u07E0ⴞ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4275\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D1}\x{0600}\x{064A}\x{0654}\x{06D5}.\x{07E0}Ⴞ", %p)}, undef, "to_ascii\(\'\\u07D1\\u0600\\u064A\\u0654\\u06D5\.\\u07E0Ⴞ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4276\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D1}\x{0600}\x{0626}\x{06D5}.\x{07E0}Ⴞ", %p)}, undef, "to_ascii\(\'\\u07D1\\u0600\\u0626\\u06D5\.\\u07E0Ⴞ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4277\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D1}\x{0600}\x{FBED}.\x{07E0}Ⴞ", %p)}, undef, "to_ascii\(\'\\u07D1\\u0600\\uFBED\.\\u07E0Ⴞ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4278\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EFCE}\x{10E7E}\x{E011A}⁷.\x{0602}\x{0661}Ⴇ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDFCE\\uD803\\uDE7E\\uDB40\\uDD1A⁷.\\u0602\\u0661Ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4279\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EFCE}\x{10E7E}\x{E011A}7.\x{0602}\x{0661}Ⴇ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDFCE\\uD803\\uDE7E\\uDB40\\uDD1A7\.\\u0602\\u0661Ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4280\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EFCE}\x{10E7E}\x{E011A}7.\x{0602}\x{0661}ⴇ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDFCE\\uD803\\uDE7E\\uDB40\\uDD1A7\.\\u0602\\u0661ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4281\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EFCE}\x{10E7E}\x{E011A}⁷.\x{0602}\x{0661}ⴇ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDFCE\\uD803\\uDE7E\\uDB40\\uDD1A⁷.\\u0602\\u0661ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4282\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴗ.\x{11042}\x{1734}\x{1C33}\x{317F0}", %p)}, undef, "to_ascii\(\'Ⴗ.\\uD804\\uDC42\\u1734\\u1C33\\uD885\\uDFF0\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4283\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴗ.\x{11042}\x{1734}\x{1C33}\x{317F0}", %p)}, undef, "to_ascii\(\'Ⴗ\.\\uD804\\uDC42\\u1734\\u1C33\\uD885\\uDFF0\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4284\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴗ.\x{11042}\x{1734}\x{1C33}\x{317F0}", %p)}, undef, "to_ascii\(\'ⴗ\.\\uD804\\uDC42\\u1734\\u1C33\\uD885\\uDFF0\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4285\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴗ.\x{11042}\x{1734}\x{1C33}\x{317F0}", %p)}, undef, "to_ascii\(\'ⴗ.\\uD804\\uDC42\\u1734\\u1C33\\uD885\\uDFF0\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4286\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۰\x{C7CA9}.\x{794D6}\x{06DD}", %p)}, undef, "to_ascii\(\'۰\\uDADF\\uDCA9.\\uD9A5\\uDCD6\\u06DD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4287\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۰\x{C7CA9}.\x{794D6}\x{06DD}", %p)}, undef, "to_ascii\(\'۰\\uDADF\\uDCA9\.\\uD9A5\\uDCD6\\u06DD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4288\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈酫︒。\x{17B4}", %p)}, undef, "to_ascii\(\'⒈酫︒\。\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4289\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.酫。。\x{17B4}", %p)}, undef, "to_ascii\(\'1\.酫\。\。\\u17B4\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:4290\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B62}\x{200C}≮\x{0FB4}.\x{200C}\x{1A60}", %p)}, undef, "to_ascii\(\'\\u0B62\\u200C\≮\\u0FB4\.\\u200C\\u1A60\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4291\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B62}\x{200C}<\x{0338}\x{0FB4}.\x{200C}\x{1A60}", %p)}, undef, "to_ascii\(\'\\u0B62\\u200C\<\\u0338\\u0FB4\.\\u200C\\u1A60\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4293\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E5D}。ႷႽ𝟶\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE5D\。ႷႽ𝟶\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4295\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E5D}。ႷႽ0\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE5D\。ႷႽ0\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4297\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E5D}。ⴗⴝ0\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE5D\。ⴗⴝ0\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4299\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E5D}。Ⴗⴝ0\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE5D\。Ⴗⴝ0\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4301\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E5D}。ⴗⴝ𝟶\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE5D\。ⴗⴝ𝟶\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4303\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E5D}。Ⴗⴝ𝟶\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE5D\。Ⴗⴝ𝟶\\u200D\'\)\ throws\ error\ P1\ V6\ \[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{0A4D}\x{0BCD}𝟖.\x{1EE0F}\x{20D1}-", %p)}, undef, "to_ascii\(\'\\u0A4D\\u0BCD𝟖\.\\uD83B\\uDE0F\\u20D1\-\'\)\ throws\ error\ V5\ V3\ B3\ \[data\/IdnaTest\.txt\:4307\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0A4D}\x{0BCD}8.\x{0639}\x{20D1}-", %p)}, undef, "to_ascii\(\'\\u0A4D\\u0BCD8\.\\u0639\\u20D1\-\'\)\ throws\ error\ V5\ V3\ B3\ \[data\/IdnaTest\.txt\:4308\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0F14}\x{19FD9}\x{06DD}。𧛥\x{A953}\x{07D1}\x{062F}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDF14\\uD827\\uDFD9\\u06DD。𧛥\\uA953\\u07D1\\u062F\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:4309\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0F14}\x{19FD9}\x{06DD}。𧛥\x{A953}\x{07D1}\x{062F}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDF14\\uD827\\uDFD9\\u06DD\。𧛥\\uA953\\u07D1\\u062F\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:4310\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠮ\x{57F32}\x{0663}\x{0342}。ςᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_ascii\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342。ςᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4311\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠮ\x{57F32}\x{0663}\x{0342}。ςᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_ascii\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342\。ςᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4313\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠮ\x{57F32}\x{0663}\x{0342}。Σᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_ascii\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342\。Σᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4315\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠮ\x{57F32}\x{0663}\x{0342}。σᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_ascii\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342\。σᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4317\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠮ\x{57F32}\x{0663}\x{0342}。Σᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_ascii\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342。Σᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4319\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠮ\x{57F32}\x{0663}\x{0342}。σᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_ascii\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342。σᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4321\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}--≮。\x{10E64}", %p)}, undef, "to_ascii\(\'\\u200D\-\-\≮\。\\uD803\\uDE64\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4323\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}--<\x{0338}。\x{10E64}", %p)}, undef, "to_ascii\(\'\\u200D\-\-\<\\u0338\。\\uD803\\uDE64\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4325\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}。\x{1A862}\x{0F84}𝟗", %p)}, undef, "to_ascii\(\'\\u0BCD\。\\uD82A\\uDC62\\u0F84𝟗\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4327\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}。\x{1A862}\x{0F84}9", %p)}, undef, "to_ascii\(\'\\u0BCD\。\\uD82A\\uDC62\\u0F849\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4328\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{EB44E}\x{0682}.\x{0942}\x{10E73}", %p)}, undef, "to_ascii\(\'\\uDB6D\\uDC4E\\u0682.\\u0942\\uD803\\uDE73\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4329\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{EB44E}\x{0682}.\x{0942}\x{10E73}", %p)}, undef, "to_ascii\(\'\\uDB6D\\uDC4E\\u0682\.\\u0942\\uD803\\uDE73\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4330\]") 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{2060}ꡜ-。\x{067E}", %p)}, undef, "to_ascii\(\'\\u2060ꡜ\-\。\\u067E\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4331\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝟙4\x{E0046}\x{E01F0}.\x{200D}1✯\x{200D}", %p)}, undef, "to_ascii\(\'𝟙4\\uDB40\\uDC46\\uDB40\\uDDF0.\\u200D1\✯\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4332\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("14\x{E0046}\x{E01F0}.\x{200D}1✯\x{200D}", %p)}, undef, "to_ascii\(\'14\\uDB40\\uDC46\\uDB40\\uDDF0\.\\u200D1\✯\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4334\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E71}。ꡪ", %p)}, undef, "to_ascii\(\'\-\\uD803\\uDE71。ꡪ\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4336\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E71}。ꡪ", %p)}, undef, "to_ascii\(\'\-\\uD803\\uDE71\。ꡪ\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4337\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≮𝟎.謖ß≯", %p)}, undef, "to_ascii\(\'\≮𝟎.謖ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4338\]") 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\:4339\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮0.謖ß≯", %p)}, undef, "to_ascii\(\'\≮0\.謖ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4340\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}0.謖ß>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03380\.謖ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4341\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}0.謖SS>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03380\.謖SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4342\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮0.謖SS≯", %p)}, undef, "to_ascii\(\'\≮0\.謖SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4343\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮0.謖ss≯", %p)}, undef, "to_ascii\(\'\≮0\.謖ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4344\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}0.謖ss>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03380\.謖ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4345\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}0.謖Ss>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03380\.謖Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4346\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮0.謖Ss≯", %p)}, undef, "to_ascii\(\'\≮0\.謖Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4347\]") 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\:4348\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮𝟎.謖SS≯", %p)}, undef, "to_ascii\(\'\≮𝟎.謖SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4349\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮𝟎.謖ss≯", %p)}, undef, "to_ascii\(\'\≮𝟎.謖ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4350\]") 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\:4351\]") 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\:4352\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮𝟎.謖Ss≯", %p)}, undef, "to_ascii\(\'\≮𝟎.謖Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4353\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("朶Ⴉ\x{10DA0}.\x{2DEC}\x{110B9}⼲-", %p)}, undef, "to_ascii\(\'朶Ⴉ\\uD803\\uDDA0\.\\u2DEC\\uD804\\uDCB9⼲\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4354\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("朶Ⴉ\x{10DA0}.\x{110B9}\x{2DEC}⼲-", %p)}, undef, "to_ascii\(\'朶Ⴉ\\uD803\\uDDA0\.\\uD804\\uDCB9\\u2DEC⼲\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4355\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("朶Ⴉ\x{10DA0}.\x{110B9}\x{2DEC}干-", %p)}, undef, "to_ascii\(\'朶Ⴉ\\uD803\\uDDA0\.\\uD804\\uDCB9\\u2DEC干\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4356\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("朶ⴉ\x{10DA0}.\x{110B9}\x{2DEC}干-", %p)}, undef, "to_ascii\(\'朶ⴉ\\uD803\\uDDA0\.\\uD804\\uDCB9\\u2DEC干\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4357\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("朶ⴉ\x{10DA0}.\x{110B9}\x{2DEC}⼲-", %p)}, undef, "to_ascii\(\'朶ⴉ\\uD803\\uDDA0\.\\uD804\\uDCB9\\u2DEC⼲\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4358\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("朶ⴉ\x{10DA0}.\x{2DEC}\x{110B9}⼲-", %p)}, undef, "to_ascii\(\'朶ⴉ\\uD803\\uDDA0\.\\u2DEC\\uD804\\uDCB9⼲\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4359\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E8A4}。\x{E845A}\x{200C}≮\x{200D}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDCA4\。\\uDB61\\uDC5A\\u200C\≮\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4360\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E8A4}。\x{E845A}\x{200C}<\x{0338}\x{200D}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDCA4\。\\uDB61\\uDC5A\\u200C\<\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4362\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{90BA1}⒈。\x{200C}2", %p)}, undef, "to_ascii\(\'\\uDA02\\uDFA1⒈。\\u200C2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4364\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{90BA1}1.。\x{200C}2", %p)}, undef, "to_ascii\(\'\\uDA02\\uDFA11\.\。\\u200C2\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:4366\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0611}\x{10E70}\x{200D}.\x{10E67}\x{52922}\x{0604}", %p)}, undef, "to_ascii\(\'\\u0611\\uD803\\uDE70\\u200D.\\uD803\\uDE67\\uD90A\\uDD22\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4368\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0611}\x{10E70}\x{200D}.\x{10E67}\x{52922}\x{0604}", %p)}, undef, "to_ascii\(\'\\u0611\\uD803\\uDE70\\u200D\.\\uD803\\uDE67\\uD90A\\uDD22\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4370\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡀ\x{10E6F}\x{0F84}\x{1ECF0}.\x{0CCD}\x{0943}\x{37769}", %p)}, undef, "to_ascii\(\'ᡀ\\uD803\\uDE6F\\u0F84\\uD83B\\uDCF0.\\u0CCD\\u0943\\uD89D\\uDF69\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4372\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡀ\x{10E6F}\x{0F84}\x{1ECF0}.\x{0CCD}\x{0943}\x{37769}", %p)}, undef, "to_ascii\(\'ᡀ\\uD803\\uDE6F\\u0F84\\uD83B\\uDCF0\.\\u0CCD\\u0943\\uD89D\\uDF69\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4373\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E66}。\x{0660}\x{0667}\x{4058C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE66。\\u0660\\u0667\\uD8C1\\uDD8C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4374\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E66}。\x{0660}\x{0667}\x{4058C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE66\。\\u0660\\u0667\\uD8C1\\uDD8C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4375\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1160}\x{BC3E5}.8\x{E5448}ᢝ", %p)}, undef, "to_ascii\(\'\\u1160\\uDAB0\\uDFE5\.8\\uDB55\\uDC48ᢝ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4376\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{E0191}。ß\x{05B1}", %p)}, "xn--ss-8id", "to_ascii\(\'\\u200D\\u200C\\uDB40\\uDD91。ß\\u05B1\'\)\ \[data\/IdnaTest\.txt\:4377\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{E0191}。ß\x{05B1}", %p)}, "xn--ss-8id", "to_ascii\(\'\\u200D\\u200C\\uDB40\\uDD91\。ß\\u05B1\'\)\ \[data\/IdnaTest\.txt\:4379\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{E0191}。SS\x{05B1}", %p)}, "xn--ss-8id", "to_ascii\(\'\\u200D\\u200C\\uDB40\\uDD91\。SS\\u05B1\'\)\ \[data\/IdnaTest\.txt\:4381\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{E0191}。ss\x{05B1}", %p)}, "xn--ss-8id", "to_ascii\(\'\\u200D\\u200C\\uDB40\\uDD91\。ss\\u05B1\'\)\ \[data\/IdnaTest\.txt\:4383\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{E0191}。Ss\x{05B1}", %p)}, "xn--ss-8id", "to_ascii\(\'\\u200D\\u200C\\uDB40\\uDD91\。Ss\\u05B1\'\)\ \[data\/IdnaTest\.txt\:4385\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ss-8id", %p)}, "xn--ss-8id", "to_ascii\(\'xn\-\-ss\-8id\'\)\ \[data\/IdnaTest\.txt\:4387\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{05B1}", %p)}, "xn--ss-8id", "to_ascii\(\'ss\\u05B1\'\)\ \[data\/IdnaTest\.txt\:4388\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{05B1}", %p)}, "xn--ss-8id", "to_ascii\(\'SS\\u05B1\'\)\ \[data\/IdnaTest\.txt\:4389\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{05B1}", %p)}, "xn--ss-8id", "to_ascii\(\'Ss\\u05B1\'\)\ \[data\/IdnaTest\.txt\:4390\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{E0191}。SS\x{05B1}", %p)}, "xn--ss-8id", "to_ascii\(\'\\u200D\\u200C\\uDB40\\uDD91。SS\\u05B1\'\)\ \[data\/IdnaTest\.txt\:4391\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{E0191}。ss\x{05B1}", %p)}, "xn--ss-8id", "to_ascii\(\'\\u200D\\u200C\\uDB40\\uDD91。ss\\u05B1\'\)\ \[data\/IdnaTest\.txt\:4393\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{E0191}。Ss\x{05B1}", %p)}, "xn--ss-8id", "to_ascii\(\'\\u200D\\u200C\\uDB40\\uDD91。Ss\\u05B1\'\)\ \[data\/IdnaTest\.txt\:4395\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒\x{200C}ヶ䒩.ᡱ", %p)}, undef, "to_ascii\(\'︒\\u200Cヶ䒩\.ᡱ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4397\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。\x{200C}ヶ䒩.ᡱ", %p)}, "xn--qekw60d.xn--e9e", "to_ascii\(\'\。\\u200Cヶ䒩\.ᡱ\'\)\ \[data\/IdnaTest\.txt\:4399\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--qekw60d.xn--e9e", %p)}, "xn--qekw60d.xn--e9e", "to_ascii\(\'xn\-\-qekw60d\.xn\-\-e9e\'\)\ \[data\/IdnaTest\.txt\:4401\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ヶ䒩.ᡱ", %p)}, "xn--qekw60d.xn--e9e", "to_ascii\(\'ヶ䒩\.ᡱ\'\)\ \[data\/IdnaTest\.txt\:4402\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}⒈\x{4E6D1}.\x{7049C}\x{10A3F}", %p)}, undef, "to_ascii\(\'\\u200C⒈\\uD8F9\\uDED1\.\\uD981\\uDC9C\\uD802\\uDE3F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4403\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}1.\x{4E6D1}.\x{7049C}\x{10A3F}", %p)}, undef, "to_ascii\(\'\\u200C1\.\\uD8F9\\uDED1\.\\uD981\\uDC9C\\uD802\\uDE3F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4405\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{200C}ꡏ\x{E0EAD}。\x{0ACD}\x{E336E}\x{200D}", %p)}, undef, "to_ascii\(\'⒈\\u200Cꡏ\\uDB43\\uDEAD\。\\u0ACD\\uDB4C\\uDF6E\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4407\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{200C}ꡏ\x{E0EAD}。\x{0ACD}\x{E336E}\x{200D}", %p)}, undef, "to_ascii\(\'1\.\\u200Cꡏ\\uDB43\\uDEAD\。\\u0ACD\\uDB4C\\uDF6E\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4409\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E002E}。₀\x{0818}䬺⒈", %p)}, undef, "to_ascii\(\'\\uDB40\\uDC2E。₀\\u0818䬺⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4411\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E002E}。0\x{0818}䬺1.", %p)}, undef, "to_ascii\(\'\\uDB40\\uDC2E\。0\\u0818䬺1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4412\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B3A48}≯。盚\x{08A8}", %p)}, undef, "to_ascii\(\'\\uDA8E\\uDE48\≯\。盚\\u08A8\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4413\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B3A48}>\x{0338}。盚\x{08A8}", %p)}, undef, "to_ascii\(\'\\uDA8E\\uDE48\>\\u0338\。盚\\u08A8\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4414\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{8A18C}\x{07B0}。-\x{A67C}\x{10B49}≯", %p)}, undef, "to_ascii\(\'\-\\uD9E8\\uDD8C\\u07B0\。\-\\uA67C\\uD802\\uDF49\≯\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4415\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{8A18C}\x{07B0}。-\x{A67C}\x{10B49}>\x{0338}", %p)}, undef, "to_ascii\(\'\-\\uD9E8\\uDD8C\\u07B0\。\-\\uA67C\\uD802\\uDF49\>\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4416\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9DC5}\x{116B6}\x{200C}\x{1A60}.\x{10F94}\x{59DB8}", %p)}, undef, "to_ascii\(\'\\uDA67\\uDDC5\\uD805\\uDEB6\\u200C\\u1A60.\\uD803\\uDF94\\uD927\\uDDB8\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4417\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9DC5}\x{116B6}\x{200C}\x{1A60}.\x{10F94}\x{59DB8}", %p)}, undef, "to_ascii\(\'\\uDA67\\uDDC5\\uD805\\uDEB6\\u200C\\u1A60\.\\uD803\\uDF94\\uD927\\uDDB8\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4418\]") 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{069B}\x{067B}ꡒ\x{200D}", %p)}, undef, "to_ascii\(\'⾇\.\\u069B\\u067Bꡒ\\u200D\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4419\]") 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{069B}\x{067B}ꡒ\x{200D}", %p)}, undef, "to_ascii\(\'舛\.\\u069B\\u067Bꡒ\\u200D\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4421\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("5\x{587FA}。ᢏ≯", %p)}, undef, "to_ascii\(\'5\\uD921\\uDFFA\。ᢏ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4423\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("5\x{587FA}。ᢏ>\x{0338}", %p)}, undef, "to_ascii\(\'5\\uD921\\uDFFA\。ᢏ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4424\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("5\x{587FA}。ᢏ≯", %p)}, undef, "to_ascii\(\'5\\uD921\\uDFFA\。ᢏ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4425\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("5\x{587FA}。ᢏ>\x{0338}", %p)}, undef, "to_ascii\(\'5\\uD921\\uDFFA\。ᢏ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4426\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1C440}\x{10F74}\x{16597}硲.ᡯ", %p)}, undef, "to_ascii\(\'\\uD831\\uDC40\\uD803\\uDF74\\uD819\\uDD97硲.ᡯ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4427\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1C440}\x{10F74}\x{16597}硲.ᡯ", %p)}, undef, "to_ascii\(\'\\uD831\\uDC40\\uD803\\uDF74\\uD819\\uDD97硲\.ᡯ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4428\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.\x{11040}\x{10E6F}Ⴆ\x{009C}", %p)}, undef, "to_ascii\(\'\\u200C\.\\uD804\\uDC40\\uD803\\uDE6FႦ\\u009C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4429\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.\x{11040}\x{10E6F}ⴆ\x{009C}", %p)}, undef, "to_ascii\(\'\\u200C\.\\uD804\\uDC40\\uD803\\uDE6Fⴆ\\u009C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4431\]") 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{0685}.\x{AAF6}\x{200D}Ϟ", %p)}, undef, "to_ascii\(\'\\u0685.\\uAAF6\\u200DϞ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4433\]") 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{0685}.\x{AAF6}\x{200D}Ϟ", %p)}, undef, "to_ascii\(\'\\u0685\.\\uAAF6\\u200DϞ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4434\]") 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{0685}.\x{AAF6}\x{200D}ϟ", %p)}, undef, "to_ascii\(\'\\u0685\.\\uAAF6\\u200Dϟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4435\]") 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{0685}.\x{AAF6}\x{200D}ϟ", %p)}, undef, "to_ascii\(\'\\u0685.\\uAAF6\\u200Dϟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4436\]") 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{1EE51}\x{0D4D}。\x{0626}\x{0767}-腍", %p)}, undef, "to_ascii\(\'\\u200C\\uD83B\\uDE51\\u0D4D\。\\u0626\\u0767\-腍\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4437\]") 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{1EE51}\x{0D4D}。\x{064A}\x{0654}\x{0767}-腍", %p)}, undef, "to_ascii\(\'\\u200C\\uD83B\\uDE51\\u0D4D\。\\u064A\\u0654\\u0767\-腍\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4439\]") 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{0635}\x{0D4D}。\x{0626}\x{0767}-腍", %p)}, undef, "to_ascii\(\'\\u200C\\u0635\\u0D4D\。\\u0626\\u0767\-腍\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4441\]") 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{0635}\x{0D4D}。\x{064A}\x{0654}\x{0767}-腍", %p)}, undef, "to_ascii\(\'\\u200C\\u0635\\u0D4D\。\\u064A\\u0654\\u0767\-腍\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4443\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-\x{7366F}\x{10E70}𤾆。⒗\x{E4B97}𝟪", %p)}, undef, "to_ascii\(\'\-\\uD98D\\uDE6F\\uD803\\uDE70𤾆。⒗\\uDB52\\uDF97𝟪\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4445\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{7366F}\x{10E70}𤾆。16.\x{E4B97}8", %p)}, undef, "to_ascii\(\'\-\\uD98D\\uDE6F\\uD803\\uDE70𤾆\。16\.\\uDB52\\uDF978\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4446\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🁪.Ⴂᠺ\x{1714}3", %p)}, undef, "to_ascii\(\'🁪.Ⴂᠺ\\u17143\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4447\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🁪.Ⴂᠺ\x{1714}3", %p)}, undef, "to_ascii\(\'🁪\.Ⴂᠺ\\u17143\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4448\]") 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{1714}3", %p)}, "xn--jw7h.xn--3-kpjx0e812d", "to_ascii\(\'🁪\.ⴂᠺ\\u17143\'\)\ \[data\/IdnaTest\.txt\:4449\]") 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--jw7h.xn--3-kpjx0e812d", %p)}, "xn--jw7h.xn--3-kpjx0e812d", "to_ascii\(\'xn\-\-jw7h\.xn\-\-3\-kpjx0e812d\'\)\ \[data\/IdnaTest\.txt\:4450\]") 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{1714}3", %p)}, "xn--jw7h.xn--3-kpjx0e812d", "to_ascii\(\'🁪.ⴂᠺ\\u17143\'\)\ \[data\/IdnaTest\.txt\:4451\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("軥ᡋ.-\x{031D}", %p)}, undef, "to_ascii\(\'軥ᡋ\.\-\\u031D\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4452\]") 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{10E69}ᡴ\x{06B6}.\x{08F6}-", %p)}, undef, "to_ascii\(\'\\uD803\\uDE69ᡴ\\u06B6\.\\u08F6\-\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:4453\]") 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{E01B9}۴。\x{1BA3}\x{A67D}톇십", %p)}, undef, "to_ascii\(\'\-\\uDB40\\uDDB9۴。\\u1BA3\\uA67D톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4454\]") 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{E01B9}۴。\x{1BA3}\x{A67D}톇십", %p)}, undef, "to_ascii\(\'\-\\uDB40\\uDDB9۴。\\u1BA3\\uA67D톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4455\]") 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{E01B9}۴。\x{1BA3}\x{A67D}톇십", %p)}, undef, "to_ascii\(\'\-\\uDB40\\uDDB9۴\。\\u1BA3\\uA67D톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4456\]") 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{E01B9}۴。\x{1BA3}\x{A67D}톇십", %p)}, undef, "to_ascii\(\'\-\\uDB40\\uDDB9۴\。\\u1BA3\\uA67D톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4457\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{075E}︒--。\x{05A5}靈\x{10E68}\x{6F851}", %p)}, undef, "to_ascii\(\'\\u075E︒\-\-。\\u05A5靈\\uD803\\uDE68\\uD97E\\uDC51\'\)\ throws\ error\ P1\ V2\ V3\ V6\ V5\ B3\ B1\ \[data\/IdnaTest\.txt\:4458\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075E}。--。\x{05A5}靈\x{10E68}\x{6F851}", %p)}, undef, "to_ascii\(\'\\u075E\。\-\-\。\\u05A5靈\\uD803\\uDE68\\uD97E\\uDC51\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4459\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}ႿႵრ。\x{0C4D}", %p)}, undef, "to_ascii\(\'\\u115FႿႵრ。\\u0C4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4460\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}ႿႵრ。\x{0C4D}", %p)}, undef, "to_ascii\(\'\\u115FႿႵრ\。\\u0C4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4461\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}ⴟⴕრ。\x{0C4D}", %p)}, undef, "to_ascii\(\'\\u115Fⴟⴕრ\。\\u0C4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4462\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}Ⴟⴕრ。\x{0C4D}", %p)}, undef, "to_ascii\(\'\\u115FႿⴕრ\。\\u0C4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4463\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}ⴟⴕრ。\x{0C4D}", %p)}, undef, "to_ascii\(\'\\u115Fⴟⴕრ。\\u0C4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4464\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}Ⴟⴕრ。\x{0C4D}", %p)}, undef, "to_ascii\(\'\\u115FႿⴕრ。\\u0C4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4465\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒛\x{10E69}.\x{10E71}\x{E01B0}", %p)}, undef, "to_ascii\(\'⒛\\uD803\\uDE69\.\\uD803\\uDE71\\uDB40\\uDDB0\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4466\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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("20.\x{10E69}.\x{10E71}\x{E01B0}", %p)}, undef, "to_ascii\(\'20\.\\uD803\\uDE69\.\\uD803\\uDE71\\uDB40\\uDDB0\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4467\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{95C0E}\x{200C}\x{10CBC}.ᢝ\x{06B4}\x{0A4D}", %p)}, undef, "to_ascii\(\'\\uDA17\\uDC0E\\u200C\\uD803\\uDCBC.ᢝ\\u06B4\\u0A4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4468\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{95C0E}\x{200C}\x{10CBC}.ᢝ\x{06B4}\x{0A4D}", %p)}, undef, "to_ascii\(\'\\uDA17\\uDC0E\\u200C\\uD803\\uDCBC\.ᢝ\\u06B4\\u0A4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4470\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200D}\x{10FAC}\x{200C}。ᠡ\x{1DDA}\x{17B5}", %p)}, undef, "to_ascii\(\'\\u200D\\u200D\\uD803\\uDFAC\\u200C\。ᠡ\\u1DDA\\u17B5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4472\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE9A}。\x{E0FC4}\x{C8ED5}\x{103A}", %p)}, undef, "to_ascii\(\'\\uFE9A\。\\uDB43\\uDFC4\\uDAE3\\uDED5\\u103A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4474\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}。\x{E0FC4}\x{C8ED5}\x{103A}", %p)}, undef, "to_ascii\(\'\\u062B\。\\uDB43\\uDFC4\\uDAE3\\uDED5\\u103A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4475\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}≠.\x{10A24}\x{0663}", %p)}, undef, "to_ascii\(\'\\u1A60\≠.\\uD802\\uDE24\\u0663\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4476\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}=\x{0338}.\x{10A24}\x{0663}", %p)}, undef, "to_ascii\(\'\\u1A60\=\\u0338.\\uD802\\uDE24\\u0663\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4477\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}≠.\x{10A24}\x{0663}", %p)}, undef, "to_ascii\(\'\\u1A60\≠\.\\uD802\\uDE24\\u0663\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4478\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}=\x{0338}.\x{10A24}\x{0663}", %p)}, undef, "to_ascii\(\'\\u1A60\=\\u0338\.\\uD802\\uDE24\\u0663\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4479\]") 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{A671}\x{11134}。\x{E0165}-", %p)}, undef, "to_ascii\(\'𝟮\\uA671\\uD804\\uDD34。\\uDB40\\uDD65\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4480\]") 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("2\x{A671}\x{11134}。\x{E0165}-", %p)}, undef, "to_ascii\(\'2\\uA671\\uD804\\uDD34\。\\uDB40\\uDD65\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4481\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᢢ\x{1DE6}\x{1714}Ⴇ.𝟙", %p)}, undef, "to_ascii\(\'ᢢ\\u1DE6\\u1714Ⴇ\.𝟙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4482\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢢ\x{1714}\x{1DE6}Ⴇ.𝟙", %p)}, undef, "to_ascii\(\'ᢢ\\u1714\\u1DE6Ⴇ\.𝟙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4483\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢢ\x{1714}\x{1DE6}Ⴇ.1", %p)}, undef, "to_ascii\(\'ᢢ\\u1714\\u1DE6Ⴇ\.1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4484\]") 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{1714}\x{1DE6}ⴇ.1", %p)}, "xn--fze90fu1iw8r.1", "to_ascii\(\'ᢢ\\u1714\\u1DE6ⴇ\.1\'\)\ \[data\/IdnaTest\.txt\:4485\]") 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--fze90fu1iw8r.1", %p)}, "xn--fze90fu1iw8r.1", "to_ascii\(\'xn\-\-fze90fu1iw8r\.1\'\)\ \[data\/IdnaTest\.txt\:4486\]") 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{1714}\x{1DE6}ⴇ.𝟙", %p)}, "xn--fze90fu1iw8r.1", "to_ascii\(\'ᢢ\\u1714\\u1DE6ⴇ\.𝟙\'\)\ \[data\/IdnaTest\.txt\:4487\]") 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{1DE6}\x{1714}ⴇ.𝟙", %p)}, "xn--fze90fu1iw8r.1", "to_ascii\(\'ᢢ\\u1DE6\\u1714ⴇ\.𝟙\'\)\ \[data\/IdnaTest\.txt\:4488\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᄹ。\x{0EB9}\x{7F879}⁍", %p)}, undef, "to_ascii\(\'ᄹ。\\u0EB9\\uD9BE\\uDC79\⁍\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4489\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᄹ。\x{0EB9}\x{7F879}⁍", %p)}, undef, "to_ascii\(\'ᄹ\。\\u0EB9\\uD9BE\\uDC79\⁍\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4490\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴆ\x{4CF36}.\x{0823}\x{0AC1}ᡥ", %p)}, undef, "to_ascii\(\'Ⴆ\\uD8F3\\uDF36.\\u0823\\u0AC1ᡥ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4491\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴆ\x{4CF36}.\x{0823}\x{0AC1}ᡥ", %p)}, undef, "to_ascii\(\'Ⴆ\\uD8F3\\uDF36\.\\u0823\\u0AC1ᡥ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4492\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴆ\x{4CF36}.\x{0823}\x{0AC1}ᡥ", %p)}, undef, "to_ascii\(\'ⴆ\\uD8F3\\uDF36\.\\u0823\\u0AC1ᡥ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4493\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴆ\x{4CF36}.\x{0823}\x{0AC1}ᡥ", %p)}, undef, "to_ascii\(\'ⴆ\\uD8F3\\uDF36.\\u0823\\u0AC1ᡥ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4494\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1E8E9}︒\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'ß\\uD83A\\uDCE9︒\\u0687.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4495\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1E8E9}。\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'ß\\uD83A\\uDCE9\。\\u0687\.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4497\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1E8E9}。\x{0687}.帼f\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'ß\\uD83A\\uDCE9\。\\u0687\.帼f\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4499\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{1E8E9}。\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'SS\\uD83A\\uDCE9\。\\u0687\.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4501\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{1E8E9}。\x{0687}.帼f\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'ss\\uD83A\\uDCE9\。\\u0687\.帼f\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4503\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{1E8E9}。\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'Ss\\uD83A\\uDCE9\。\\u0687\.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4505\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1E8E9}︒\x{0687}.帼f\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'ß\\uD83A\\uDCE9︒\\u0687.帼f\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4507\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{1E8E9}︒\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'SS\\uD83A\\uDCE9︒\\u0687.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4509\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{1E8E9}︒\x{0687}.帼f\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'ss\\uD83A\\uDCE9︒\\u0687.帼f\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4511\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{1E8E9}︒\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'Ss\\uD83A\\uDCE9︒\\u0687.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4513\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{968F9}。\x{10E68}\x{108FE}\x{200D}", %p)}, undef, "to_ascii\(\'\\uDA1A\\uDCF9。\\uD803\\uDE68\\uD802\\uDCFE\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4515\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{968F9}。\x{10E68}\x{108FE}\x{200D}", %p)}, undef, "to_ascii\(\'\\uDA1A\\uDCF9\。\\uD803\\uDE68\\uD802\\uDCFE\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4517\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10F0C6}.\x{3C962}⒈\x{1BF2}", %p)}, undef, "to_ascii\(\'\\uDBFC\\uDCC6\.\\uD8B2\\uDD62⒈\\u1BF2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4519\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10F0C6}.\x{3C962}1.\x{1BF2}", %p)}, undef, "to_ascii\(\'\\uDBFC\\uDCC6\.\\uD8B2\\uDD621\.\\u1BF2\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4520\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2062}\x{1EFC8}。-1ႱႨ", %p)}, undef, "to_ascii\(\'\\u2062\\uD83B\\uDFC8\。\-1ႱႨ\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4521\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2062}\x{1EFC8}。-1ႱႨ", %p)}, undef, "to_ascii\(\'\\u2062\\uD83B\\uDFC8\。\-1ႱႨ\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4522\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2062}\x{1EFC8}。-1ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u2062\\uD83B\\uDFC8\。\-1ⴑⴈ\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4523\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2062}\x{1EFC8}。-1Ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u2062\\uD83B\\uDFC8\。\-1Ⴑⴈ\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4524\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2062}\x{1EFC8}。-1ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u2062\\uD83B\\uDFC8\。\-1ⴑⴈ\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4525\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2062}\x{1EFC8}。-1Ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u2062\\uD83B\\uDFC8\。\-1Ⴑⴈ\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4526\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢓ.-ᠷ︒", %p)}, undef, "to_ascii\(\'ᢓ.\-ᠷ︒\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4527\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢓ.-ᠷ。", %p)}, undef, "to_ascii\(\'ᢓ\.\-ᠷ\。\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4528\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1EF0E}.\x{E01A2}--", %p)}, undef, "to_ascii\(\'\\u200C\\uD83B\\uDF0E\.\\uDB40\\uDDA2\-\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4529\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒒\x{EDEC7}Ⴢ.Ⴁ", %p)}, undef, "to_ascii\(\'⒒\\uDB77\\uDEC7Ⴢ\.Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4531\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("11.\x{EDEC7}Ⴢ.Ⴁ", %p)}, undef, "to_ascii\(\'11\.\\uDB77\\uDEC7Ⴢ\.Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4532\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("11.\x{EDEC7}ⴢ.ⴁ", %p)}, undef, "to_ascii\(\'11\.\\uDB77\\uDEC7ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4533\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("11.\x{EDEC7}Ⴢ.ⴁ", %p)}, undef, "to_ascii\(\'11\.\\uDB77\\uDEC7Ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4534\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒒\x{EDEC7}ⴢ.ⴁ", %p)}, undef, "to_ascii\(\'⒒\\uDB77\\uDEC7ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4535\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒒\x{EDEC7}Ⴢ.ⴁ", %p)}, undef, "to_ascii\(\'⒒\\uDB77\\uDEC7Ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4536\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{34887}\x{1BAA}5\x{83182}。\x{AD4DD}\x{E098A}ς", %p)}, undef, "to_ascii\(\'\\uD892\\uDC87\\u1BAA5\\uD9CC\\uDD82。\\uDA75\\uDCDD\\uDB42\\uDD8Aς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4537\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{34887}\x{1BAA}5\x{83182}。\x{AD4DD}\x{E098A}ς", %p)}, undef, "to_ascii\(\'\\uD892\\uDC87\\u1BAA5\\uD9CC\\uDD82\。\\uDA75\\uDCDD\\uDB42\\uDD8Aς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4538\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{34887}\x{1BAA}5\x{83182}。\x{AD4DD}\x{E098A}Σ", %p)}, undef, "to_ascii\(\'\\uD892\\uDC87\\u1BAA5\\uD9CC\\uDD82\。\\uDA75\\uDCDD\\uDB42\\uDD8AΣ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4539\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{34887}\x{1BAA}5\x{83182}。\x{AD4DD}\x{E098A}σ", %p)}, undef, "to_ascii\(\'\\uD892\\uDC87\\u1BAA5\\uD9CC\\uDD82\。\\uDA75\\uDCDD\\uDB42\\uDD8Aσ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4540\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{34887}\x{1BAA}5\x{83182}。\x{AD4DD}\x{E098A}Σ", %p)}, undef, "to_ascii\(\'\\uD892\\uDC87\\u1BAA5\\uD9CC\\uDD82。\\uDA75\\uDCDD\\uDB42\\uDD8AΣ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4541\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{34887}\x{1BAA}5\x{83182}。\x{AD4DD}\x{E098A}σ", %p)}, undef, "to_ascii\(\'\\uD892\\uDC87\\u1BAA5\\uD9CC\\uDD82。\\uDA75\\uDCDD\\uDB42\\uDD8Aσ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4542\]") 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{2DE1}ᡛ。\x{034C}\x{069D}", %p)}, undef, "to_ascii\(\'\\u2DE1ᡛ\。\\u034C\\u069D\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4543\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{10E79}ᢓ\x{2DF9}。\x{AD638}Ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE79ᢓ\\u2DF9。\\uDA75\\uDE38Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4544\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E79}ᢓ\x{2DF9}。\x{AD638}Ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE79ᢓ\\u2DF9\。\\uDA75\\uDE38Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4546\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E79}ᢓ\x{2DF9}。\x{AD638}ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE79ᢓ\\u2DF9\。\\uDA75\\uDE38ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4548\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E79}ᢓ\x{2DF9}。\x{AD638}ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE79ᢓ\\u2DF9。\\uDA75\\uDE38ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4550\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{094D}\x{1E82F}\x{E0B29}\x{200D}。-\x{10E7B}", %p)}, undef, "to_ascii\(\'\\u094D\\uD83A\\uDC2F\\uDB42\\uDF29\\u200D。\-\\uD803\\uDE7B\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4552\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{094D}\x{1E82F}\x{E0B29}\x{200D}。-\x{10E7B}", %p)}, undef, "to_ascii\(\'\\u094D\\uD83A\\uDC2F\\uDB42\\uDF29\\u200D\。\-\\uD803\\uDE7B\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4554\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B97A0}。\x{07D4}︒쯙𝟳", %p)}, undef, "to_ascii\(\'\\uDAA5\\uDFA0。\\u07D4︒쯙𝟳\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4556\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B97A0}。\x{07D4}︒쯙𝟳", %p)}, undef, "to_ascii\(\'\\uDAA5\\uDFA0。\\u07D4︒쯙𝟳\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4557\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B97A0}。\x{07D4}。쯙7", %p)}, undef, "to_ascii\(\'\\uDAA5\\uDFA0\。\\u07D4\。쯙7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4558\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B97A0}。\x{07D4}。쯙7", %p)}, undef, "to_ascii\(\'\\uDAA5\\uDFA0\。\\u07D4\。쯙7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4559\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡀ-。\x{0850}≮뻐", %p)}, undef, "to_ascii\(\'ꡀ\-\。\\u0850\≮뻐\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4560\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡀ-。\x{0850}<\x{0338}뻐", %p)}, undef, "to_ascii\(\'ꡀ\-\。\\u0850\<\\u0338뻐\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4561\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E91F}-\x{6EC7F}.\x{077C}≠", %p)}, undef, "to_ascii\(\'\\uD83A\\uDD1F\-\\uD97B\\uDC7F.\\u077C\≠\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4562\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E91F}-\x{6EC7F}.\x{077C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDD1F\-\\uD97B\\uDC7F.\\u077C\=\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4563\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E91F}-\x{6EC7F}.\x{077C}≠", %p)}, undef, "to_ascii\(\'\\uD83A\\uDD1F\-\\uD97B\\uDC7F\.\\u077C\≠\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4564\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E91F}-\x{6EC7F}.\x{077C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDD1F\-\\uD97B\\uDC7F\.\\u077C\=\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4565\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}ςႼ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33ςႼ.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4566\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}ςႼ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33ςႼ\.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4567\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}ςⴜ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33ςⴜ\.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4568\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}ΣႼ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33ΣႼ\.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4569\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}σⴜ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33σⴜ\.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4570\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}Σⴜ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33Σⴜ\.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4571\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}ςⴜ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33ςⴜ.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4572\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}ΣႼ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33ΣႼ.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4573\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}σⴜ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33σⴜ.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4574\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}Σⴜ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33Σⴜ.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4575\]") 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{116B2}.\x{200D}𝟐\x{1112A}", %p)}, undef, "to_ascii\(\'\\uD805\\uDEB2\.\\u200D𝟐\\uD804\\uDD2A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4576\]") 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{116B2}.\x{200D}2\x{1112A}", %p)}, undef, "to_ascii\(\'\\uD805\\uDEB2\.\\u200D2\\uD804\\uDD2A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4578\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≯𝟎。\x{0D4D}ꡭ\x{B1DF6}", %p)}, undef, "to_ascii\(\'\≯𝟎。\\u0D4Dꡭ\\uDA87\\uDDF6\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4580\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}𝟎。\x{0D4D}ꡭ\x{B1DF6}", %p)}, undef, "to_ascii\(\'\>\\u0338𝟎。\\u0D4Dꡭ\\uDA87\\uDDF6\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4581\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯0。\x{0D4D}ꡭ\x{B1DF6}", %p)}, undef, "to_ascii\(\'\≯0\。\\u0D4Dꡭ\\uDA87\\uDDF6\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4582\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}0。\x{0D4D}ꡭ\x{B1DF6}", %p)}, undef, "to_ascii\(\'\>\\u03380\。\\u0D4Dꡭ\\uDA87\\uDDF6\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4583\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0746}Ↄ\x{0666}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u0746Ↄ\\u0666。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4584\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0746}Ↄ\x{0666}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u0746Ↄ\\u0666\。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4586\]") 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{0746}ↄ\x{0666}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u0746ↄ\\u0666\。\\u200C\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4588\]") 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{0746}ↄ\x{0666}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u0746ↄ\\u0666。\\u200C\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4590\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E0031}𝟼\x{200D}\x{10CF0}.\x{200D}ꡥ⒈", %p)}, undef, "to_ascii\(\'\\uDB40\\uDC31𝟼\\u200D\\uD803\\uDCF0\.\\u200Dꡥ⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4592\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0031}6\x{200D}\x{10CF0}.\x{200D}ꡥ1.", %p)}, undef, "to_ascii\(\'\\uDB40\\uDC316\\u200D\\uD803\\uDCF0\.\\u200Dꡥ1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4594\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0C4D}。嬶ß葽", %p)}, undef, "to_ascii\(\'\\u0C4D\。嬶ß葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4596\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0C4D}。嬶SS葽", %p)}, undef, "to_ascii\(\'\\u0C4D\。嬶SS葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4597\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0C4D}。嬶ss葽", %p)}, undef, "to_ascii\(\'\\u0C4D\。嬶ss葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4598\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0C4D}。嬶Ss葽", %p)}, undef, "to_ascii\(\'\\u0C4D\。嬶Ss葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4599\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{ABED}⒈。\x{3F3D1}\x{0665}", %p)}, undef, "to_ascii\(\'\\uABED⒈\。\\uD8BC\\uDFD1\\u0665\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4600\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{ABED}1.。\x{3F3D1}\x{0665}", %p)}, undef, "to_ascii\(\'\\uABED1\.\。\\uD8BC\\uDFD1\\u0665\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:4601\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B34}︒≮.\x{9A5E5}\x{1096E}\x{FDA5}", %p)}, undef, "to_ascii\(\'\\u1B34︒\≮.\\uDA29\\uDDE5\\uD802\\uDD6E\\uFDA5\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4602\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B34}︒<\x{0338}.\x{9A5E5}\x{1096E}\x{FDA5}", %p)}, undef, "to_ascii\(\'\\u1B34︒\<\\u0338.\\uDA29\\uDDE5\\uD802\\uDD6E\\uFDA5\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4603\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B34}。≮.\x{9A5E5}\x{1096E}\x{062C}\x{0645}\x{064A}", %p)}, undef, "to_ascii\(\'\\u1B34\。\≮\.\\uDA29\\uDDE5\\uD802\\uDD6E\\u062C\\u0645\\u064A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4604\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B34}。<\x{0338}.\x{9A5E5}\x{1096E}\x{062C}\x{0645}\x{064A}", %p)}, undef, "to_ascii\(\'\\u1B34\。\<\\u0338\.\\uDA29\\uDDE5\\uD802\\uDD6E\\u062C\\u0645\\u064A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4605\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0104}\x{10E6A}\x{8316D}.\x{E0BD8}ς\x{A2737}\x{C58AB}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD04\\uD803\\uDE6A\\uD9CC\\uDD6D\.\\uDB42\\uDFD8ς\\uDA49\\uDF37\\uDAD6\\uDCAB\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4606\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0104}\x{10E6A}\x{8316D}.\x{E0BD8}Σ\x{A2737}\x{C58AB}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD04\\uD803\\uDE6A\\uD9CC\\uDD6D\.\\uDB42\\uDFD8Σ\\uDA49\\uDF37\\uDAD6\\uDCAB\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4607\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0104}\x{10E6A}\x{8316D}.\x{E0BD8}σ\x{A2737}\x{C58AB}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD04\\uD803\\uDE6A\\uD9CC\\uDD6D\.\\uDB42\\uDFD8σ\\uDA49\\uDF37\\uDAD6\\uDCAB\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4608\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_ascii\(\'ς\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4609\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_ascii\(\'ς\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4611\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_ascii\(\'ς\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4613\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_ascii\(\'ς\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4615\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_ascii\(\'Σ\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4617\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_ascii\(\'Σ\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4619\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_ascii\(\'σ\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4621\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_ascii\(\'σ\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4623\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_ascii\(\'Σ\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4625\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_ascii\(\'Σ\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4627\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_ascii\(\'σ\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4629\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_ascii\(\'σ\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4631\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{E6D78}。-\x{1EBD6}\x{06BE}", %p)}, undef, "to_ascii\(\'\-\\uDB5B\\uDD78。\-\\uD83A\\uDFD6\\u06BE\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4633\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{E6D78}。-\x{1EBD6}\x{06BE}", %p)}, undef, "to_ascii\(\'\-\\uDB5B\\uDD78\。\-\\uD83A\\uDFD6\\u06BE\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4634\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⽶\x{45520}𝟵。\x{200D}\x{05AB}", %p)}, undef, "to_ascii\(\'⽶\\uD8D5\\uDD20𝟵。\\u200D\\u05AB\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4635\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("米\x{45520}9。\x{200D}\x{05AB}", %p)}, undef, "to_ascii\(\'米\\uD8D5\\uDD209\。\\u200D\\u05AB\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4637\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CF8}\x{200D}\x{08F0}\x{10E6F}。𫀎", %p)}, undef, "to_ascii\(\'\\u0CF8\\u200D\\u08F0\\uD803\\uDE6F。𫀎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4639\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CF8}\x{200D}\x{08F0}\x{10E6F}。𫀎", %p)}, undef, "to_ascii\(\'\\u0CF8\\u200D\\u08F0\\uD803\\uDE6F\。𫀎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4641\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E68}.Ⴍ🄁𝟰", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68.Ⴍ🄁𝟰\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4643\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E68}.Ⴍ0,4", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68\.Ⴍ0\,4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4644\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E68}.ⴍ0,4", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68\.ⴍ0\,4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4645\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E68}.ⴍ🄁𝟰", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68.ⴍ🄁𝟰\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4646\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。ß\x{10E7D}3≯", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8。ß\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4647\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。ß\x{10E7D}3>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8。ß\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4649\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。ß\x{10E7D}3≯", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8\。ß\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4651\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。ß\x{10E7D}3>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8\。ß\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4653\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。SS\x{10E7D}3>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8\。SS\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4655\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。SS\x{10E7D}3≯", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8\。SS\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4657\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。ss\x{10E7D}3≯", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8\。ss\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4659\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。ss\x{10E7D}3>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8\。ss\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4661\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。Ss\x{10E7D}3>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8\。Ss\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4663\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。Ss\x{10E7D}3≯", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8\。Ss\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4665\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。SS\x{10E7D}3>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8。SS\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4667\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。SS\x{10E7D}3≯", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8。SS\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4669\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。ss\x{10E7D}3≯", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8。ss\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4671\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。ss\x{10E7D}3>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8。ss\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4673\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。Ss\x{10E7D}3>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8。Ss\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4675\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。Ss\x{10E7D}3≯", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8。Ss\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4677\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{10D62}\x{06A4}.\x{FB0C6}", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDD62\\u06A4.\\uDBAC\\uDCC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4679\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{10D62}\x{06A4}.\x{FB0C6}", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDD62\\u06A4\.\\uDBAC\\uDCC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4681\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{071D}\x{BE21D}-\x{C072C}。⫲Ⴛ\x{10A5B}\x{09E3}", %p)}, undef, "to_ascii\(\'\\u071D\\uDAB8\\uDE1D\-\\uDAC1\\uDF2C\。\⫲Ⴛ\\uD802\\uDE5B\\u09E3\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4683\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{071D}\x{BE21D}-\x{C072C}。⫲ⴛ\x{10A5B}\x{09E3}", %p)}, undef, "to_ascii\(\'\\u071D\\uDAB8\\uDE1D\-\\uDAC1\\uDF2C\。\⫲ⴛ\\uD802\\uDE5B\\u09E3\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4684\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0176}。\x{E097C}\x{05AB}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD76\。\\uDB42\\uDD7C\\u05AB\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4685\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{08A6}.Ⴕ\x{10DB7}\x{0602}\x{200D}", %p)}, undef, "to_ascii\(\'⾛\\u08A6\.Ⴕ\\uD803\\uDDB7\\u0602\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4686\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{08A6}.Ⴕ\x{10DB7}\x{0602}\x{200D}", %p)}, undef, "to_ascii\(\'走\\u08A6\.Ⴕ\\uD803\\uDDB7\\u0602\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4688\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{08A6}.ⴕ\x{10DB7}\x{0602}\x{200D}", %p)}, undef, "to_ascii\(\'走\\u08A6\.ⴕ\\uD803\\uDDB7\\u0602\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4690\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{08A6}.ⴕ\x{10DB7}\x{0602}\x{200D}", %p)}, undef, "to_ascii\(\'⾛\\u08A6\.ⴕ\\uD803\\uDDB7\\u0602\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4692\]") 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{0AE3}", %p)}, undef, "to_ascii\(\'\-ꡩ\\u200C𝟺\.\\u0AE3\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4694\]") 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}4.\x{0AE3}", %p)}, undef, "to_ascii\(\'\-ꡩ\\u200C4\.\\u0AE3\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4696\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≠\x{FCDC}\x{44F53}\x{200C}.Ⴚ\x{83BA7}", %p)}, undef, "to_ascii\(\'\≠\\uFCDC\\uD8D3\\uDF53\\u200C\.Ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4698\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{FCDC}\x{44F53}\x{200C}.Ⴚ\x{83BA7}", %p)}, undef, "to_ascii\(\'\=\\u0338\\uFCDC\\uD8D3\\uDF53\\u200C\.Ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4700\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{064A}\x{062E}\x{44F53}\x{200C}.Ⴚ\x{83BA7}", %p)}, undef, "to_ascii\(\'\≠\\u064A\\u062E\\uD8D3\\uDF53\\u200C\.Ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4702\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{064A}\x{062E}\x{44F53}\x{200C}.Ⴚ\x{83BA7}", %p)}, undef, "to_ascii\(\'\=\\u0338\\u064A\\u062E\\uD8D3\\uDF53\\u200C\.Ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4704\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{064A}\x{062E}\x{44F53}\x{200C}.ⴚ\x{83BA7}", %p)}, undef, "to_ascii\(\'\=\\u0338\\u064A\\u062E\\uD8D3\\uDF53\\u200C\.ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4706\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{064A}\x{062E}\x{44F53}\x{200C}.ⴚ\x{83BA7}", %p)}, undef, "to_ascii\(\'\≠\\u064A\\u062E\\uD8D3\\uDF53\\u200C\.ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4708\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{FCDC}\x{44F53}\x{200C}.ⴚ\x{83BA7}", %p)}, undef, "to_ascii\(\'\=\\u0338\\uFCDC\\uD8D3\\uDF53\\u200C\.ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4710\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{FCDC}\x{44F53}\x{200C}.ⴚ\x{83BA7}", %p)}, undef, "to_ascii\(\'\≠\\uFCDC\\uD8D3\\uDF53\\u200C\.ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4712\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7E}。\x{A6F0}\x{17D1}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7E。\\uA6F0\\u17D1\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4714\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7E}。\x{A6F0}\x{17D1}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7E\。\\uA6F0\\u17D1\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4715\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{10A02}\x{FC22}≯۹。-", %p)}, undef, "to_ascii\(\'\\uD802\\uDE02\\uFC22\≯۹\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4716\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A02}\x{FC22}>\x{0338}۹。-", %p)}, undef, "to_ascii\(\'\\uD802\\uDE02\\uFC22\>\\u0338۹\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4717\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A02}\x{0636}\x{062C}≯۹。-", %p)}, undef, "to_ascii\(\'\\uD802\\uDE02\\u0636\\u062C\≯۹\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4718\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A02}\x{0636}\x{062C}>\x{0338}۹。-", %p)}, undef, "to_ascii\(\'\\uD802\\uDE02\\u0636\\u062C\>\\u0338۹\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4719\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{17B4}.쮇-", %p)}, undef, "to_ascii\(\'\\u17B4\.쮇\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4720\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{17B4}.쮇-", %p)}, undef, "to_ascii\(\'\\u17B4\.쮇\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4721\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{103A}。⒈-\x{5DED9}", %p)}, undef, "to_ascii\(\'\\u200C\\u103A\。⒈\-\\uD937\\uDED9\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4722\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{103A}。1.-\x{5DED9}", %p)}, undef, "to_ascii\(\'\\u200C\\u103A\。1\.\-\\uD937\\uDED9\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:4724\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{1088F}\x{200C}。\x{06E3}⅗\x{200C}\x{E015A}", %p)}, undef, "to_ascii\(\'⒈\\uD802\\uDC8F\\u200C\。\\u06E3⅗\\u200C\\uDB40\\uDD5A\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4726\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{1088F}\x{200C}。\x{06E3}3⁄5\x{200C}\x{E015A}", %p)}, undef, "to_ascii\(\'1\.\\uD802\\uDC8F\\u200C\。\\u06E33\⁄5\\u200C\\uDB40\\uDD5A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4728\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9FE5D}。۶\x{1B3A}\x{06BC}", %p)}, undef, "to_ascii\(\'\\uDA3F\\uDE5D。۶\\u1B3A\\u06BC\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4730\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9FE5D}。۶\x{1B3A}\x{06BC}", %p)}, undef, "to_ascii\(\'\\uDA3F\\uDE5D\。۶\\u1B3A\\u06BC\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4731\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0894}\x{D3408}.ς\x{200D}\x{0660}", %p)}, undef, "to_ascii\(\'\\u0894\\uDB0D\\uDC08\.ς\\u200D\\u0660\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:4732\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0894}\x{D3408}.Σ\x{200D}\x{0660}", %p)}, undef, "to_ascii\(\'\\u0894\\uDB0D\\uDC08\.Σ\\u200D\\u0660\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:4734\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0894}\x{D3408}.σ\x{200D}\x{0660}", %p)}, undef, "to_ascii\(\'\\u0894\\uDB0D\\uDC08\.σ\\u200D\\u0660\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:4736\]") 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("7\x{0847}\x{10E62}。\x{10A3F}𝟡\x{1C2E}", %p)}, undef, "to_ascii\(\'7\\u0847\\uD803\\uDE62。\\uD802\\uDE3F𝟡\\u1C2E\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4738\]") 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("7\x{0847}\x{10E62}。\x{10A3F}9\x{1C2E}", %p)}, undef, "to_ascii\(\'7\\u0847\\uD803\\uDE62\。\\uD802\\uDE3F9\\u1C2E\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4739\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-ꡘ᠆\x{62531}。\x{0667}\x{E016E}\x{10E69}", %p)}, undef, "to_ascii\(\'\-ꡘ᠆\\uD949\\uDD31\。\\u0667\\uDB40\\uDD6E\\uD803\\uDE69\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4740\]") 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{06B4}\x{0668}\x{A949}", %p)}, "xn--hib5mm619b", "to_ascii\(\'\\u200D\.\\u06B4\\u0668\\uA949\'\)\ \[data\/IdnaTest\.txt\:4741\]") 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--hib5mm619b", %p)}, "xn--hib5mm619b", "to_ascii\(\'xn\-\-hib5mm619b\'\)\ \[data\/IdnaTest\.txt\:4743\]") 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{06B4}\x{0668}\x{A949}", %p)}, "xn--hib5mm619b", "to_ascii\(\'\\u06B4\\u0668\\uA949\'\)\ \[data\/IdnaTest\.txt\:4744\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("㒧𝟬.Ⴚ\x{076F}\x{200D}", %p)}, undef, "to_ascii\(\'㒧𝟬\.Ⴚ\\u076F\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4745\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㒧0.Ⴚ\x{076F}\x{200D}", %p)}, undef, "to_ascii\(\'㒧0\.Ⴚ\\u076F\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4747\]") 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("㒧0.ⴚ\x{076F}\x{200D}", %p)}, undef, "to_ascii\(\'㒧0\.ⴚ\\u076F\\u200D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4749\]") 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{076F}\x{200D}", %p)}, undef, "to_ascii\(\'㒧𝟬\.ⴚ\\u076F\\u200D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4751\]") 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{0487}\x{06C9}-.-\x{20EE}", %p)}, undef, "to_ascii\(\'\\u0487\\u06C9\-.\-\\u20EE\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:4753\]") 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{0487}\x{06C9}-.-\x{20EE}", %p)}, undef, "to_ascii\(\'\\u0487\\u06C9\-\.\-\\u20EE\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:4754\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{CC583}-\x{E0CF9}\x{200C}.标-", %p)}, undef, "to_ascii\(\'\\uDAF1\\uDD83\-\\uDB43\\uDCF9\\u200C.标\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4755\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{CC583}-\x{E0CF9}\x{200C}.标-", %p)}, undef, "to_ascii\(\'\\uDAF1\\uDD83\-\\uDB43\\uDCF9\\u200C\.标\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4757\]") 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{07D1}.ςꡇ", %p)}, "xn--ssb.xn--4xa6435f", "to_ascii\(\'\\u07D1.ςꡇ\'\)\ \[data\/IdnaTest\.txt\:4759\]") 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{07D1}.ςꡇ", %p)}, "xn--ssb.xn--4xa6435f", "to_ascii\(\'\\u07D1\.ςꡇ\'\)\ \[data\/IdnaTest\.txt\:4761\]") 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{07D1}.Σꡇ", %p)}, "xn--ssb.xn--4xa6435f", "to_ascii\(\'\\u07D1\.Σꡇ\'\)\ \[data\/IdnaTest\.txt\:4763\]") 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{07D1}.σꡇ", %p)}, "xn--ssb.xn--4xa6435f", "to_ascii\(\'\\u07D1\.σꡇ\'\)\ \[data\/IdnaTest\.txt\:4764\]") 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--ssb.xn--4xa6435f", %p)}, "xn--ssb.xn--4xa6435f", "to_ascii\(\'xn\-\-ssb\.xn\-\-4xa6435f\'\)\ \[data\/IdnaTest\.txt\:4765\]") 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--ssb.xn--3xa8435f", %p)}, "xn--ssb.xn--3xa8435f", "to_ascii\(\'xn\-\-ssb\.xn\-\-3xa8435f\'\)\ \[data\/IdnaTest\.txt\:4766\]") 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{07D1}.Σꡇ", %p)}, "xn--ssb.xn--4xa6435f", "to_ascii\(\'\\u07D1.Σꡇ\'\)\ \[data\/IdnaTest\.txt\:4767\]") 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{07D1}.σꡇ", %p)}, "xn--ssb.xn--4xa6435f", "to_ascii\(\'\\u07D1.σꡇ\'\)\ \[data\/IdnaTest\.txt\:4768\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E14E8}\x{10E70}.\x{1ECC1}\x{200D}\x{1BF3}\x{7B784}", %p)}, undef, "to_ascii\(\'\\uDB45\\uDCE8\\uD803\\uDE70.\\uD83B\\uDCC1\\u200D\\u1BF3\\uD9AD\\uDF84\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4769\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E14E8}\x{10E70}.\x{1ECC1}\x{200D}\x{1BF3}\x{7B784}", %p)}, undef, "to_ascii\(\'\\uDB45\\uDCE8\\uD803\\uDE70\.\\uD83B\\uDCC1\\u200D\\u1BF3\\uD9AD\\uDF84\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4771\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0662}¹\x{10EAC}。\x{09CD}", %p)}, undef, "to_ascii\(\'\\u0662¹\\uD803\\uDEAC。\\u09CD\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4773\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0662}1\x{10EAC}。\x{09CD}", %p)}, undef, "to_ascii\(\'\\u06621\\uD803\\uDEAC\。\\u09CD\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4774\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟶\x{1160}\x{0364}\x{E0E27}.\x{4C5BA}锰\x{084B}ς", %p)}, undef, "to_ascii\(\'𝟶\\u1160\\u0364\\uDB43\\uDE27\.\\uD8F1\\uDDBA锰\\u084Bς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4775\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0\x{1160}\x{0364}\x{E0E27}.\x{4C5BA}锰\x{084B}ς", %p)}, undef, "to_ascii\(\'0\\u1160\\u0364\\uDB43\\uDE27\.\\uD8F1\\uDDBA锰\\u084Bς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4776\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0\x{1160}\x{0364}\x{E0E27}.\x{4C5BA}锰\x{084B}Σ", %p)}, undef, "to_ascii\(\'0\\u1160\\u0364\\uDB43\\uDE27\.\\uD8F1\\uDDBA锰\\u084BΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4777\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0\x{1160}\x{0364}\x{E0E27}.\x{4C5BA}锰\x{084B}σ", %p)}, undef, "to_ascii\(\'0\\u1160\\u0364\\uDB43\\uDE27\.\\uD8F1\\uDDBA锰\\u084Bσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4778\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟶\x{1160}\x{0364}\x{E0E27}.\x{4C5BA}锰\x{084B}Σ", %p)}, undef, "to_ascii\(\'𝟶\\u1160\\u0364\\uDB43\\uDE27\.\\uD8F1\\uDDBA锰\\u084BΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4779\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟶\x{1160}\x{0364}\x{E0E27}.\x{4C5BA}锰\x{084B}σ", %p)}, undef, "to_ascii\(\'𝟶\\u1160\\u0364\\uDB43\\uDE27\.\\uD8F1\\uDDBA锰\\u084Bσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4780\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡢ\x{E0046}\x{11AA6}𝟙。\x{10E6E}", %p)}, undef, "to_ascii\(\'ꡢ\\uDB40\\uDC46\\uD806\\uDEA6𝟙。\\uD803\\uDE6E\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4781\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡢ\x{E0046}\x{11AA6}1。\x{10E6E}", %p)}, undef, "to_ascii\(\'ꡢ\\uDB40\\uDC46\\uD806\\uDEA61\。\\uD803\\uDE6E\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4782\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FCF5}.\x{200C}᚜", %p)}, "xn--2gb0b.xn--zve", "to_ascii\(\'\\uFCF5.\\u200C᚜\'\)\ \[data\/IdnaTest\.txt\:4783\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0637}\x{0649}.\x{200C}᚜", %p)}, "xn--2gb0b.xn--zve", "to_ascii\(\'\\u0637\\u0649\.\\u200C᚜\'\)\ \[data\/IdnaTest\.txt\:4785\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--2gb0b.xn--zve", %p)}, "xn--2gb0b.xn--zve", "to_ascii\(\'xn\-\-2gb0b\.xn\-\-zve\'\)\ \[data\/IdnaTest\.txt\:4787\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0637}\x{0649}.᚜", %p)}, "xn--2gb0b.xn--zve", "to_ascii\(\'\\u0637\\u0649\.᚜\'\)\ \[data\/IdnaTest\.txt\:4788\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{77779}.\x{2DE5}\x{06A2}-", %p)}, undef, "to_ascii\(\'\-\\uD99D\\uDF79\.\\u2DE5\\u06A2\-\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4789\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🔤\x{200D}\x{103A}.\x{200C}🄂\x{0660}", %p)}, undef, "to_ascii\(\'🔤\\u200D\\u103A.\\u200C🄂\\u0660\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4790\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🔤\x{200D}\x{103A}.\x{200C}1,\x{0660}", %p)}, undef, "to_ascii\(\'🔤\\u200D\\u103A\.\\u200C1\,\\u0660\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4792\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒\x{FD99}\x{20D1}\x{FCDD}。岓\x{1039}⚊\x{06B6}", %p)}, undef, "to_ascii\(\'︒\\uFD99\\u20D1\\uFCDD\。岓\\u1039\⚊\\u06B6\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:4794\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。\x{0646}\x{062C}\x{0649}\x{20D1}\x{064A}\x{0645}。岓\x{1039}⚊\x{06B6}", %p)}, undef, "to_ascii\(\'\。\\u0646\\u062C\\u0649\\u20D1\\u064A\\u0645\。岓\\u1039\⚊\\u06B6\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4795\]") 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{066B}。8\x{A953}", %p)}, undef, "to_ascii\(\'\\u066B\。8\\uA953\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4796\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0591}\x{1DCF}.\x{0751}\x{110B9}\x{10E67}\x{E011F}", %p)}, undef, "to_ascii\(\'\\u0591\\u1DCF.\\u0751\\uD804\\uDCB9\\uD803\\uDE67\\uDB40\\uDD1F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4797\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0591}\x{1DCF}.\x{0751}\x{110B9}\x{10E67}\x{E011F}", %p)}, undef, "to_ascii\(\'\\u0591\\u1DCF\.\\u0751\\uD804\\uDCB9\\uD803\\uDE67\\uDB40\\uDD1F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4798\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{126D1}\x{10E1D}\x{08EE}。\x{E0345}", %p)}, undef, "to_ascii\(\'\\uD809\\uDED1\\uD803\\uDE1D\\u08EE。\\uDB40\\uDF45\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4799\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{126D1}\x{10E1D}\x{08EE}。\x{E0345}", %p)}, undef, "to_ascii\(\'\\uD809\\uDED1\\uD803\\uDE1D\\u08EE\。\\uDB40\\uDF45\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4800\]") 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{0761}.-\x{0CE3}", %p)}, undef, "to_ascii\(\'\\u0761.\-\\u0CE3\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4801\]") 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{0761}.-\x{0CE3}", %p)}, undef, "to_ascii\(\'\\u0761\.\-\\u0CE3\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4802\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{10515F}\x{E0ACB}。\x{0604}\x{10B05}\x{ABED}", %p)}, undef, "to_ascii\(\'\\uDBD4\\uDD5F\\uDB42\\uDECB。\\u0604\\uD802\\uDF05\\uABED\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4803\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10515F}\x{E0ACB}。\x{0604}\x{10B05}\x{ABED}", %p)}, undef, "to_ascii\(\'\\uDBD4\\uDD5F\\uDB42\\uDECB\。\\u0604\\uD802\\uDF05\\uABED\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4804\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴐᠫ.\x{200C}", %p)}, undef, "to_ascii\(\'Ⴐᠫ.\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4805\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴐᠫ.\x{200C}", %p)}, undef, "to_ascii\(\'Ⴐᠫ\.\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4807\]") 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--e7e118h.", "to_ascii\(\'ⴐᠫ\.\\u200C\'\)\ \[data\/IdnaTest\.txt\:4809\]") 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--e7e118h.", %p)}, "xn--e7e118h.", "to_ascii\(\'xn\-\-e7e118h\.\'\)\ \[data\/IdnaTest\.txt\:4811\]") 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--e7e118h.", "to_ascii\(\'ⴐᠫ\.\'\)\ \[data\/IdnaTest\.txt\:4812\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴐᠫ.", %p)}, undef, "to_ascii\(\'Ⴐᠫ\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4813\]") 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--e7e118h.", "to_ascii\(\'ⴐᠫ.\\u200C\'\)\ \[data\/IdnaTest\.txt\:4814\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝟰\x{E016C}-⒈。\x{200D}\x{0727}ᠹ", %p)}, undef, "to_ascii\(\'𝟰\\uDB40\\uDD6C\-⒈\。\\u200D\\u0727ᠹ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4816\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{E016C}-1.。\x{200D}\x{0727}ᠹ", %p)}, undef, "to_ascii\(\'4\\uDB40\\uDD6C\-1\.\。\\u200D\\u0727ᠹ\'\)\ throws\ error\ A4_2\ B2\ B3\ \[data\/IdnaTest\.txt\:4818\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{673DD}。\x{0842}\x{5834D}", %p)}, undef, "to_ascii\(\'\\uD95C\\uDFDD\。\\u0842\\uD920\\uDF4D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[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("\x{1BE9}𝟫。ᢟ\x{10E60}\x{E01E8}鄨", %p)}, undef, "to_ascii\(\'\\u1BE9𝟫。ᢟ\\uD803\\uDE60\\uDB40\\uDDE8鄨\'\)\ throws\ error\ V5\ B5\ \[data\/IdnaTest\.txt\:4821\]") 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{1BE9}9。ᢟ\x{10E60}\x{E01E8}鄨", %p)}, undef, "to_ascii\(\'\\u1BE99\。ᢟ\\uD803\\uDE60\\uDB40\\uDDE8鄨\'\)\ throws\ error\ V5\ B5\ \[data\/IdnaTest\.txt\:4822\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1EF07}-\x{084A}。\x{064D}\x{0A4D}-", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF07\-\\u084A\。\\u064D\\u0A4D\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:4823\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF07}-\x{084A}。\x{0A4D}\x{064D}-", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF07\-\\u084A\。\\u0A4D\\u064D\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:4824\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}-\x{6D04B}\x{0944}.ß", %p)}, undef, "to_ascii\(\'\\u0E3A\-\\uD974\\uDC4B\\u0944.ß\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4825\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}-\x{6D04B}\x{0944}.ß", %p)}, undef, "to_ascii\(\'\\u0E3A\-\\uD974\\uDC4B\\u0944\.ß\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4826\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}-\x{6D04B}\x{0944}.SS", %p)}, undef, "to_ascii\(\'\\u0E3A\-\\uD974\\uDC4B\\u0944\.SS\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4827\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}-\x{6D04B}\x{0944}.SS", %p)}, undef, "to_ascii\(\'\\u0E3A\-\\uD974\\uDC4B\\u0944.SS\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4828\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A1C}-\x{200C}。Ⴟ\x{200C}\x{E0451}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE1C\-\\u200C。Ⴟ\\u200C\\uDB41\\uDC51\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:4829\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A1C}-\x{200C}。Ⴟ\x{200C}\x{E0451}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE1C\-\\u200C\。Ⴟ\\u200C\\uDB41\\uDC51\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:4831\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A1C}-\x{200C}。ⴟ\x{200C}\x{E0451}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE1C\-\\u200C\。ⴟ\\u200C\\uDB41\\uDC51\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:4833\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A1C}-\x{200C}。ⴟ\x{200C}\x{E0451}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE1C\-\\u200C。ⴟ\\u200C\\uDB41\\uDC51\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:4835\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}-\x{200D}\x{200C}。\x{ABA8F}⒐≠", %p)}, undef, "to_ascii\(\'\\u0DCA\-\\u200D\\u200C。\\uDA6E\\uDE8F⒐\≠\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:4837\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}-\x{200D}\x{200C}。\x{ABA8F}⒐=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0DCA\-\\u200D\\u200C。\\uDA6E\\uDE8F⒐\=\\u0338\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:4839\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}-\x{200D}\x{200C}。\x{ABA8F}9.≠", %p)}, undef, "to_ascii\(\'\\u0DCA\-\\u200D\\u200C\。\\uDA6E\\uDE8F9\.\≠\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:4841\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}-\x{200D}\x{200C}。\x{ABA8F}9.=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0DCA\-\\u200D\\u200C\。\\uDA6E\\uDE8F9\.\=\\u0338\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:4843\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{42DC6}。\x{10A3F}\x{E016A}⅋", %p)}, undef, "to_ascii\(\'\\uD8CB\\uDDC6\。\\uD802\\uDE3F\\uDB40\\uDD6A⅋\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4845\]") 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{0682}♥.ᡦ\x{200D}\x{A949}", %p)}, undef, "to_ascii\(\'\\u0682\♥.ᡦ\\u200D\\uA949\'\)\ throws\ error\ B3\ \[data\/IdnaTest\.txt\:4846\]") 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{0682}♥.ᡦ\x{200D}\x{A949}", %p)}, undef, "to_ascii\(\'\\u0682\♥\.ᡦ\\u200D\\uA949\'\)\ throws\ error\ B3\ \[data\/IdnaTest\.txt\:4848\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{10E65}4Ⴅ.\x{FEA2}\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE654Ⴅ.\\uFEA2\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4850\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E65}4Ⴅ.\x{062D}\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE654Ⴅ\.\\u062D\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4852\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E65}4ⴅ.\x{062D}\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE654ⴅ\.\\u062D\\u200C\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4854\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E65}4ⴅ.\x{FEA2}\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE654ⴅ.\\uFEA2\\u200C\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4856\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ჁႱ⒕\x{2DF8}。ß\x{E0109}", %p)}, undef, "to_ascii\(\'ჁႱ⒕\\u2DF8\。ß\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4858\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ჁႱ14.\x{2DF8}。ß\x{E0109}", %p)}, undef, "to_ascii\(\'ჁႱ14\.\\u2DF8\。ß\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4859\]") 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("ⴡⴑ14.\x{2DF8}。ß\x{E0109}", %p)}, undef, "to_ascii\(\'ⴡⴑ14\.\\u2DF8\。ß\\uDB40\\uDD09\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4860\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ჁႱ14.\x{2DF8}。SS\x{E0109}", %p)}, undef, "to_ascii\(\'ჁႱ14\.\\u2DF8\。SS\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4861\]") 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("ⴡⴑ14.\x{2DF8}。ss\x{E0109}", %p)}, undef, "to_ascii\(\'ⴡⴑ14\.\\u2DF8\。ss\\uDB40\\uDD09\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4862\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴡⴑ14.\x{2DF8}。Ss\x{E0109}", %p)}, undef, "to_ascii\(\'Ⴡⴑ14\.\\u2DF8\。Ss\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4863\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴡⴑ⒕\x{2DF8}。ß\x{E0109}", %p)}, undef, "to_ascii\(\'ⴡⴑ⒕\\u2DF8\。ß\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4864\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ჁႱ⒕\x{2DF8}。SS\x{E0109}", %p)}, undef, "to_ascii\(\'ჁႱ⒕\\u2DF8\。SS\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4865\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴡⴑ⒕\x{2DF8}。ss\x{E0109}", %p)}, undef, "to_ascii\(\'ⴡⴑ⒕\\u2DF8\。ss\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4866\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴡⴑ⒕\x{2DF8}。Ss\x{E0109}", %p)}, undef, "to_ascii\(\'Ⴡⴑ⒕\\u2DF8\。Ss\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4867\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{8A284}。≯\x{11134}", %p)}, undef, "to_ascii\(\'\\uD9E8\\uDE84。\≯\\uD804\\uDD34\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4868\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{8A284}。>\x{0338}\x{11134}", %p)}, undef, "to_ascii\(\'\\uD9E8\\uDE84。\>\\u0338\\uD804\\uDD34\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4869\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{8A284}。≯\x{11134}", %p)}, undef, "to_ascii\(\'\\uD9E8\\uDE84\。\≯\\uD804\\uDD34\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4870\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{8A284}。>\x{0338}\x{11134}", %p)}, undef, "to_ascii\(\'\\uD9E8\\uDE84\。\>\\u0338\\uD804\\uDD34\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4871\]") 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{065A}𝟬。\x{200C}-\x{A8C4}\x{0668}", %p)}, undef, "to_ascii\(\'\\u065A𝟬\。\\u200C\-\\uA8C4\\u0668\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4872\]") 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{065A}0。\x{200C}-\x{A8C4}\x{0668}", %p)}, undef, "to_ascii\(\'\\u065A0\。\\u200C\-\\uA8C4\\u0668\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4874\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FE21}\x{A826}\x{E07EC}。\x{FFA0}", %p)}, undef, "to_ascii\(\'\\uFE21\\uA826\\uDB41\\uDFEC。\\uFFA0\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4876\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE21}\x{A826}\x{E07EC}。\x{1160}", %p)}, undef, "to_ascii\(\'\\uFE21\\uA826\\uDB41\\uDFEC\。\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4877\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß⒈\x{08A5}\x{10747F}.\x{7F0A8}\x{1D173}\x{10E7B}\x{DA4DD}", %p)}, undef, "to_ascii\(\'ß⒈\\u08A5\\uDBDD\\uDC7F.\\uD9BC\\uDCA8\\uD834\\uDD73\\uD803\\uDE7B\\uDB29\\uDCDD\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4878\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß1.\x{08A5}\x{10747F}.\x{7F0A8}\x{1D173}\x{10E7B}\x{DA4DD}", %p)}, undef, "to_ascii\(\'ß1\.\\u08A5\\uDBDD\\uDC7F\.\\uD9BC\\uDCA8\\uD834\\uDD73\\uD803\\uDE7B\\uDB29\\uDCDD\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:4879\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS1.\x{08A5}\x{10747F}.\x{7F0A8}\x{1D173}\x{10E7B}\x{DA4DD}", %p)}, undef, "to_ascii\(\'SS1\.\\u08A5\\uDBDD\\uDC7F\.\\uD9BC\\uDCA8\\uD834\\uDD73\\uD803\\uDE7B\\uDB29\\uDCDD\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:4880\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS⒈\x{08A5}\x{10747F}.\x{7F0A8}\x{1D173}\x{10E7B}\x{DA4DD}", %p)}, undef, "to_ascii\(\'SS⒈\\u08A5\\uDBDD\\uDC7F.\\uD9BC\\uDCA8\\uD834\\uDD73\\uD803\\uDE7B\\uDB29\\uDCDD\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4881\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss⒈\x{08A5}\x{10747F}.\x{7F0A8}\x{1D173}\x{10E7B}\x{DA4DD}", %p)}, undef, "to_ascii\(\'ss⒈\\u08A5\\uDBDD\\uDC7F.\\uD9BC\\uDCA8\\uD834\\uDD73\\uD803\\uDE7B\\uDB29\\uDCDD\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4882\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss⒈\x{08A5}\x{10747F}.\x{7F0A8}\x{1D173}\x{10E7B}\x{DA4DD}", %p)}, undef, "to_ascii\(\'Ss⒈\\u08A5\\uDBDD\\uDC7F.\\uD9BC\\uDCA8\\uD834\\uDD73\\uD803\\uDE7B\\uDB29\\uDCDD\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4883\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(").2𝟠", %p)}, undef, "to_ascii\(\'\)\.2𝟠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4884\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(").28", %p)}, undef, "to_ascii\(\'\)\.28\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4885\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡂ\x{0652}。-ßᡳ\x{200C}", %p)}, undef, "to_ascii\(\'ᡂ\\u0652\。\-ßᡳ\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4886\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡂ\x{0652}。-SSᡳ\x{200C}", %p)}, undef, "to_ascii\(\'ᡂ\\u0652\。\-SSᡳ\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4888\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡂ\x{0652}。-ssᡳ\x{200C}", %p)}, undef, "to_ascii\(\'ᡂ\\u0652\。\-ssᡳ\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4890\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡂ\x{0652}。-Ssᡳ\x{200C}", %p)}, undef, "to_ascii\(\'ᡂ\\u0652\。\-Ssᡳ\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4892\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ABC}\x{200D}ꡞ\x{4E737}.☸⋤Ⴡ", %p)}, undef, "to_ascii\(\'\\u0ABC\\u200Dꡞ\\uD8F9\\uDF37.\☸\⋤Ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4894\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ABC}\x{200D}ꡞ\x{4E737}.☸⋤Ⴡ", %p)}, undef, "to_ascii\(\'\\u0ABC\\u200Dꡞ\\uD8F9\\uDF37\.\☸\⋤Ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4896\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ABC}\x{200D}ꡞ\x{4E737}.☸⋤ⴡ", %p)}, undef, "to_ascii\(\'\\u0ABC\\u200Dꡞ\\uD8F9\\uDF37\.\☸\⋤ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4898\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ABC}\x{200D}ꡞ\x{4E737}.☸⋤ⴡ", %p)}, undef, "to_ascii\(\'\\u0ABC\\u200Dꡞ\\uD8F9\\uDF37.\☸\⋤ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4900\]") 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\:4902\]") 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\:4904\]") 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\:4906\]") 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\:4908\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}︒.\x{06AF}≯\x{0845}", %p)}, undef, "to_ascii\(\'\\u1734︒\.\\u06AF\≯\\u0845\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4910\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}︒.\x{06AF}>\x{0338}\x{0845}", %p)}, undef, "to_ascii\(\'\\u1734︒\.\\u06AF\>\\u0338\\u0845\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4911\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}。.\x{06AF}≯\x{0845}", %p)}, undef, "to_ascii\(\'\\u1734\。\.\\u06AF\≯\\u0845\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:4912\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}。.\x{06AF}>\x{0338}\x{0845}", %p)}, undef, "to_ascii\(\'\\u1734\。\.\\u06AF\>\\u0338\\u0845\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:4913\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮≠𑂼。-\x{77850}ꡠ\x{10E76}", %p)}, undef, "to_ascii\(\'\≮\≠𑂼。\-\\uD99E\\uDC50ꡠ\\uD803\\uDE76\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4914\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}=\x{0338}𑂼。-\x{77850}ꡠ\x{10E76}", %p)}, undef, "to_ascii\(\'\<\\u0338\=\\u0338𑂼。\-\\uD99E\\uDC50ꡠ\\uD803\\uDE76\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4915\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮≠𑂼。-\x{77850}ꡠ\x{10E76}", %p)}, undef, "to_ascii\(\'\≮\≠𑂼\。\-\\uD99E\\uDC50ꡠ\\uD803\\uDE76\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4916\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}=\x{0338}𑂼。-\x{77850}ꡠ\x{10E76}", %p)}, undef, "to_ascii\(\'\<\\u0338\=\\u0338𑂼\。\-\\uD99E\\uDC50ꡠ\\uD803\\uDE76\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4917\]") 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{10E6B}ꡯ。\x{084B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6Bꡯ\。\\u084B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4918\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴉ✦\x{6A994}\x{A806}.ß\x{10D58}\x{0669}\x{0641}", %p)}, undef, "to_ascii\(\'Ⴉ\✦\\uD96A\\uDD94\\uA806\.ß\\uD803\\uDD58\\u0669\\u0641\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4919\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ✦\x{6A994}\x{A806}.ß\x{10D58}\x{0669}\x{0641}", %p)}, undef, "to_ascii\(\'ⴉ\✦\\uD96A\\uDD94\\uA806\.ß\\uD803\\uDD58\\u0669\\u0641\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4920\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ✦\x{6A994}\x{A806}.SS\x{10D58}\x{0669}\x{0641}", %p)}, undef, "to_ascii\(\'Ⴉ\✦\\uD96A\\uDD94\\uA806\.SS\\uD803\\uDD58\\u0669\\u0641\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4921\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ✦\x{6A994}\x{A806}.ss\x{10D58}\x{0669}\x{0641}", %p)}, undef, "to_ascii\(\'ⴉ\✦\\uD96A\\uDD94\\uA806\.ss\\uD803\\uDD58\\u0669\\u0641\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4922\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ✦\x{6A994}\x{A806}.Ss\x{10D58}\x{0669}\x{0641}", %p)}, undef, "to_ascii\(\'Ⴉ\✦\\uD96A\\uDD94\\uA806\.Ss\\uD803\\uDD58\\u0669\\u0641\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4923\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{07CF}\x{10E81}🎅.\x{187E5}", %p)}, undef, "to_ascii\(\'\\u200D\\u07CF\\uD803\\uDE81🎅\.\\uD821\\uDFE5\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4924\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("梉。\x{200C}", %p)}, "xn--7zv.", "to_ascii\(\'梉\。\\u200C\'\)\ \[data\/IdnaTest\.txt\:4926\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--7zv.", %p)}, "xn--7zv.", "to_ascii\(\'xn\-\-7zv\.\'\)\ \[data\/IdnaTest\.txt\:4928\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("梉.", %p)}, "xn--7zv.", "to_ascii\(\'梉\.\'\)\ \[data\/IdnaTest\.txt\:4929\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075D}-≠.\x{200D}ꡘ⸈Ↄ", %p)}, undef, "to_ascii\(\'\\u075D\-\≠\.\\u200Dꡘ\⸈Ↄ\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4930\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075D}-=\x{0338}.\x{200D}ꡘ⸈Ↄ", %p)}, undef, "to_ascii\(\'\\u075D\-\=\\u0338\.\\u200Dꡘ\⸈Ↄ\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4932\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075D}-=\x{0338}.\x{200D}ꡘ⸈ↄ", %p)}, undef, "to_ascii\(\'\\u075D\-\=\\u0338\.\\u200Dꡘ\⸈ↄ\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4934\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075D}-≠.\x{200D}ꡘ⸈ↄ", %p)}, undef, "to_ascii\(\'\\u075D\-\≠\.\\u200Dꡘ\⸈ↄ\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4936\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς۲\x{1DFF}⸵。\x{1EC99}⁷🄂", %p)}, undef, "to_ascii\(\'ς۲\\u1DFF\⸵。\\uD83B\\uDC99⁷🄂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4938\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς۲\x{1DFF}⸵。\x{1EC99}71,", %p)}, undef, "to_ascii\(\'ς۲\\u1DFF\⸵\。\\uD83B\\uDC9971\,\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4939\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ۲\x{1DFF}⸵。\x{1EC99}71,", %p)}, undef, "to_ascii\(\'Σ۲\\u1DFF\⸵\。\\uD83B\\uDC9971\,\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4940\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ۲\x{1DFF}⸵。\x{1EC99}71,", %p)}, undef, "to_ascii\(\'σ۲\\u1DFF\⸵\。\\uD83B\\uDC9971\,\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4941\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ۲\x{1DFF}⸵。\x{1EC99}⁷🄂", %p)}, undef, "to_ascii\(\'Σ۲\\u1DFF\⸵。\\uD83B\\uDC99⁷🄂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4942\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ۲\x{1DFF}⸵。\x{1EC99}⁷🄂", %p)}, undef, "to_ascii\(\'σ۲\\u1DFF\⸵。\\uD83B\\uDC99⁷🄂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4943\]") 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{08AC}.\x{200C}ß", %p)}, "xn--1yb.ss", "to_ascii\(\'\\u08AC.\\u200Cß\'\)\ \[data\/IdnaTest\.txt\:4944\]") 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{08AC}.\x{200C}ß", %p)}, "xn--1yb.ss", "to_ascii\(\'\\u08AC\.\\u200Cß\'\)\ \[data\/IdnaTest\.txt\:4946\]") 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{08AC}.\x{200C}SS", %p)}, "xn--1yb.ss", "to_ascii\(\'\\u08AC\.\\u200CSS\'\)\ \[data\/IdnaTest\.txt\:4948\]") 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{08AC}.\x{200C}ss", %p)}, "xn--1yb.ss", "to_ascii\(\'\\u08AC\.\\u200Css\'\)\ \[data\/IdnaTest\.txt\:4950\]") 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{08AC}.\x{200C}Ss", %p)}, "xn--1yb.ss", "to_ascii\(\'\\u08AC\.\\u200CSs\'\)\ \[data\/IdnaTest\.txt\:4952\]") 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--1yb.ss", %p)}, "xn--1yb.ss", "to_ascii\(\'xn\-\-1yb\.ss\'\)\ \[data\/IdnaTest\.txt\:4954\]") 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{08AC}.ss", %p)}, "xn--1yb.ss", "to_ascii\(\'\\u08AC\.ss\'\)\ \[data\/IdnaTest\.txt\:4955\]") 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{08AC}.\x{200C}SS", %p)}, "xn--1yb.ss", "to_ascii\(\'\\u08AC.\\u200CSS\'\)\ \[data\/IdnaTest\.txt\:4956\]") 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{08AC}.\x{200C}ss", %p)}, "xn--1yb.ss", "to_ascii\(\'\\u08AC.\\u200Css\'\)\ \[data\/IdnaTest\.txt\:4958\]") 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{08AC}.\x{200C}Ss", %p)}, "xn--1yb.ss", "to_ascii\(\'\\u08AC.\\u200CSs\'\)\ \[data\/IdnaTest\.txt\:4960\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{A70C7}-.\x{200D}ꡓ\x{1CDF}⸺", %p)}, undef, "to_ascii\(\'\\uDA5C\\uDCC7\-\.\\u200Dꡓ\\u1CDF\⸺\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4962\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䃚蟥-。-\x{78D20}⒈", %p)}, undef, "to_ascii\(\'䃚蟥\-\。\-\\uD9A3\\uDD20⒈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4964\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䃚蟥-。-\x{78D20}1.", %p)}, undef, "to_ascii\(\'䃚蟥\-\。\-\\uD9A3\\uDD201\.\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4965\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7E}䚵-ᡐ。₠", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7E䚵\-ᡐ\。₠\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4966\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0CCD}。\x{1ADC}\x{0603}", %p)}, undef, "to_ascii\(\'\\u0CCD\。\\u1ADC\\u0603\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4967\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{10E62}.₅\x{1DCF}\x{0689}\x{10E78}", %p)}, undef, "to_ascii\(\'\≮\\uD803\\uDE62\.₅\\u1DCF\\u0689\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4968\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{10E62}.₅\x{1DCF}\x{0689}\x{10E78}", %p)}, undef, "to_ascii\(\'\<\\u0338\\uD803\\uDE62\.₅\\u1DCF\\u0689\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4969\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{10E62}.5\x{1DCF}\x{0689}\x{10E78}", %p)}, undef, "to_ascii\(\'\≮\\uD803\\uDE62\.5\\u1DCF\\u0689\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4970\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{10E62}.5\x{1DCF}\x{0689}\x{10E78}", %p)}, undef, "to_ascii\(\'\<\\u0338\\uD803\\uDE62\.5\\u1DCF\\u0689\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4971\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡏ≠\x{95144}.\x{200D}⁰", %p)}, undef, "to_ascii\(\'ᡏ\≠\\uDA14\\uDD44\.\\u200D⁰\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4972\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡏ=\x{0338}\x{95144}.\x{200D}⁰", %p)}, undef, "to_ascii\(\'ᡏ\=\\u0338\\uDA14\\uDD44\.\\u200D⁰\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4974\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡏ≠\x{95144}.\x{200D}0", %p)}, undef, "to_ascii\(\'ᡏ\≠\\uDA14\\uDD44\.\\u200D0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4976\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡏ=\x{0338}\x{95144}.\x{200D}0", %p)}, undef, "to_ascii\(\'ᡏ\=\\u0338\\uDA14\\uDD44\.\\u200D0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4978\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{108B1}≮\x{FBBBD}≯.\x{10E7D}\x{075E}\x{E0A7A}", %p)}, undef, "to_ascii\(\'\\uD802\\uDCB1\≮\\uDBAE\\uDFBD\≯.\\uD803\\uDE7D\\u075E\\uDB42\\uDE7A\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4980\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{108B1}<\x{0338}\x{FBBBD}>\x{0338}.\x{10E7D}\x{075E}\x{E0A7A}", %p)}, undef, "to_ascii\(\'\\uD802\\uDCB1\<\\u0338\\uDBAE\\uDFBD\>\\u0338.\\uD803\\uDE7D\\u075E\\uDB42\\uDE7A\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4981\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{108B1}≮\x{FBBBD}≯.\x{10E7D}\x{075E}\x{E0A7A}", %p)}, undef, "to_ascii\(\'\\uD802\\uDCB1\≮\\uDBAE\\uDFBD\≯\.\\uD803\\uDE7D\\u075E\\uDB42\\uDE7A\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4982\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{108B1}<\x{0338}\x{FBBBD}>\x{0338}.\x{10E7D}\x{075E}\x{E0A7A}", %p)}, undef, "to_ascii\(\'\\uD802\\uDCB1\<\\u0338\\uDBAE\\uDFBD\>\\u0338\.\\uD803\\uDE7D\\u075E\\uDB42\\uDE7A\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4983\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{E014F}", %p)}, undef, "to_ascii\(\'\-。\\uDB40\\uDD4F\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4984\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{E014F}", %p)}, undef, "to_ascii\(\'\-\。\\uDB40\\uDD4F\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4985\]") 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{08E8}.\x{1112F}", %p)}, undef, "to_ascii\(\'䷻\\u08E8.\\uD804\\uDD2F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4986\]") 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{08E8}.\x{11132}\x{11127}", %p)}, undef, "to_ascii\(\'䷻\\u08E8.\\uD804\\uDD32\\uD804\\uDD27\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4987\]") 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{08E8}.\x{1112F}", %p)}, undef, "to_ascii\(\'䷻\\u08E8\.\\uD804\\uDD2F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4988\]") 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{08E8}.\x{11132}\x{11127}", %p)}, undef, "to_ascii\(\'䷻\\u08E8\.\\uD804\\uDD32\\uD804\\uDD27\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4989\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E0EF4}.\x{9CCB1}\x{200C}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF4\.\\uDA33\\uDCB1\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4990\]") 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{105F}.\x{11180}", %p)}, undef, "to_ascii\(\'ꡈ\\u105F\.\\uD804\\uDD80\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4992\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("漦Ⴙς.\x{89D3C}\x{1EA85}", %p)}, undef, "to_ascii\(\'漦Ⴙς\.\\uD9E7\\uDD3C\\uD83A\\uDE85\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4993\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("漦ⴙς.\x{89D3C}\x{1EA85}", %p)}, undef, "to_ascii\(\'漦ⴙς\.\\uD9E7\\uDD3C\\uD83A\\uDE85\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4994\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("漦ႹΣ.\x{89D3C}\x{1EA85}", %p)}, undef, "to_ascii\(\'漦ႹΣ\.\\uD9E7\\uDD3C\\uD83A\\uDE85\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4995\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("漦ⴙσ.\x{89D3C}\x{1EA85}", %p)}, undef, "to_ascii\(\'漦ⴙσ\.\\uD9E7\\uDD3C\\uD83A\\uDE85\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4996\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("漦Ⴙσ.\x{89D3C}\x{1EA85}", %p)}, undef, "to_ascii\(\'漦Ⴙσ\.\\uD9E7\\uDD3C\\uD83A\\uDE85\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4997\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E6E}踧\x{09CD}\x{D614C}.\x{44985}⒈\x{E0148}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6E踧\\u09CD\\uDB18\\uDD4C\.\\uD8D2\\uDD85⒈\\uDB40\\uDD48\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4998\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E6E}踧\x{09CD}\x{D614C}.\x{44985}1.\x{E0148}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6E踧\\u09CD\\uDB18\\uDD4C\.\\uD8D2\\uDD851\.\\uDB40\\uDD48\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4999\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}≮.📃\x{335B4}-", %p)}, undef, "to_ascii\(\'\\u200D\≮.📃\\uD88D\\uDDB4\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:5000\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}<\x{0338}.📃\x{335B4}-", %p)}, undef, "to_ascii\(\'\\u200D\<\\u0338.📃\\uD88D\\uDDB4\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:5002\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}≮.📃\x{335B4}-", %p)}, undef, "to_ascii\(\'\\u200D\≮\.📃\\uD88D\\uDDB4\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:5004\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}<\x{0338}.📃\x{335B4}-", %p)}, undef, "to_ascii\(\'\\u200D\<\\u0338\.📃\\uD88D\\uDDB4\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:5006\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200D}襔。Ⴜ𝟧ᢧ\x{D5132}", %p)}, undef, "to_ascii\(\'\\u200D\\u200D襔\。Ⴜ𝟧ᢧ\\uDB14\\uDD32\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5008\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200D}襔。Ⴜ5ᢧ\x{D5132}", %p)}, undef, "to_ascii\(\'\\u200D\\u200D襔\。Ⴜ5ᢧ\\uDB14\\uDD32\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5010\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200D}襔。ⴜ5ᢧ\x{D5132}", %p)}, undef, "to_ascii\(\'\\u200D\\u200D襔\。ⴜ5ᢧ\\uDB14\\uDD32\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5012\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200D}襔。ⴜ𝟧ᢧ\x{D5132}", %p)}, undef, "to_ascii\(\'\\u200D\\u200D襔\。ⴜ𝟧ᢧ\\uDB14\\uDD32\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5014\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C7}\x{E019D}\x{200D}.婀", %p)}, "xn--6kb.xn--q0s", "to_ascii\(\'\\u06C7\\uDB40\\uDD9D\\u200D.婀\'\)\ \[data\/IdnaTest\.txt\:5016\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C7}\x{E019D}\x{200D}.婀", %p)}, "xn--6kb.xn--q0s", "to_ascii\(\'\\u06C7\\uDB40\\uDD9D\\u200D\.婀\'\)\ \[data\/IdnaTest\.txt\:5018\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--6kb.xn--q0s", %p)}, "xn--6kb.xn--q0s", "to_ascii\(\'xn\-\-6kb\.xn\-\-q0s\'\)\ \[data\/IdnaTest\.txt\:5020\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C7}.婀", %p)}, "xn--6kb.xn--q0s", "to_ascii\(\'\\u06C7\.婀\'\)\ \[data\/IdnaTest\.txt\:5021\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0117}︒︒\x{10E6B}。▨\x{E015B}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD17︒︒\\uD803\\uDE6B。\▨\\uDB40\\uDD5B\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5022\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{E0117}。。\x{10E6B}。▨\x{E015B}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD17\。\。\\uD803\\uDE6B\。\▨\\uDB40\\uDD5B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:5023\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("🄀ß.\x{0369}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'🄀ß.\\u0369\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V6\ V5\ A3\ \[data\/IdnaTest\.txt\:5024\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.ß.\x{0369}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'0\.ß\.\\u0369\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5025\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.ß.\x{0369}-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'0\.ß\.\\u0369\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5026\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.SS.\x{0369}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'0\.SS\.\\u0369\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5027\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.ss.\x{0369}-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'0\.ss\.\\u0369\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5028\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀ß.\x{0369}-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'🄀ß.\\u0369\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V6\ V5\ A3\ \[data\/IdnaTest\.txt\:5029\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀SS.\x{0369}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'🄀SS.\\u0369\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V6\ V5\ A3\ \[data\/IdnaTest\.txt\:5030\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀ss.\x{0369}-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'🄀ss.\\u0369\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V6\ V5\ A3\ \[data\/IdnaTest\.txt\:5031\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀Ss.\x{0369}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'🄀Ss.\\u0369\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V6\ V5\ A3\ \[data\/IdnaTest\.txt\:5032\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200D}\x{E02DF}.\x{200C}\x{06DD}Ⴅ", %p)}, undef, "to_ascii\(\'\-\\u200D\\uDB40\\uDEDF\.\\u200C\\u06DDႥ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:5033\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200D}\x{E02DF}.\x{200C}\x{06DD}ⴅ", %p)}, undef, "to_ascii\(\'\-\\u200D\\uDB40\\uDEDF\.\\u200C\\u06DDⴅ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:5035\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF0}\x{200D}큷\x{45C6B}。⒒", %p)}, undef, "to_ascii\(\'\\u2DF0\\u200D큷\\uD8D7\\uDC6B。⒒\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5037\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF0}\x{200D}큷\x{45C6B}。⒒", %p)}, undef, "to_ascii\(\'\\u2DF0\\u200D큷\\uD8D7\\uDC6B。⒒\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5039\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF0}\x{200D}큷\x{45C6B}。11.", %p)}, undef, "to_ascii\(\'\\u2DF0\\u200D큷\\uD8D7\\uDC6B\。11\.\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5041\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF0}\x{200D}큷\x{45C6B}。11.", %p)}, undef, "to_ascii\(\'\\u2DF0\\u200D큷\\uD8D7\\uDC6B\。11\.\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5043\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DF4D}.𝟨\x{0638}", %p)}, undef, "to_ascii\(\'\\uDF4D\.𝟨\\u0638\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:5045\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DF4D}.6\x{0638}", %p)}, undef, "to_ascii\(\'\\uDF4D\.6\\u0638\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:5046\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0188}\x{1E9CF}。\x{10E6E}\x{42C61}\x{1DD9}⒈", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD88\\uD83A\\uDDCF\。\\uD803\\uDE6E\\uD8CB\\uDC61\\u1DD9⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5047\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0188}\x{1E9CF}。\x{10E6E}\x{42C61}\x{1DD9}1.", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD88\\uD83A\\uDDCF\。\\uD803\\uDE6E\\uD8CB\\uDC61\\u1DD91\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5048\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{CF578}\x{10EF6}\x{0712}。Ⴈ\x{200D}", %p)}, undef, "to_ascii\(\'\\uDAFD\\uDD78\\uD803\\uDEF6\\u0712\。Ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5049\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{CF578}\x{10EF6}\x{0712}。ⴈ\x{200D}", %p)}, undef, "to_ascii\(\'\\uDAFD\\uDD78\\uD803\\uDEF6\\u0712\。ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5051\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{66A3E}\x{A9B9}\x{06C2}⒈.\x{073C}髯\x{200C}", %p)}, undef, "to_ascii\(\'\\uD95A\\uDE3E\\uA9B9\\u06C2⒈.\\u073C髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:5053\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{66A3E}\x{A9B9}\x{06C1}\x{0654}⒈.\x{073C}髯\x{200C}", %p)}, undef, "to_ascii\(\'\\uD95A\\uDE3E\\uA9B9\\u06C1\\u0654⒈.\\u073C髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:5055\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{66A3E}\x{A9B9}\x{06C2}1..\x{073C}髯\x{200C}", %p)}, undef, "to_ascii\(\'\\uD95A\\uDE3E\\uA9B9\\u06C21\.\.\\u073C髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ A4_2\ \[data\/IdnaTest\.txt\:5057\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{66A3E}\x{A9B9}\x{06C1}\x{0654}1..\x{073C}髯\x{200C}", %p)}, undef, "to_ascii\(\'\\uD95A\\uDE3E\\uA9B9\\u06C1\\u06541\.\.\\u073C髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ A4_2\ \[data\/IdnaTest\.txt\:5059\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{06A6}.\x{07E6}\x{1A62}", %p)}, "xn--8jb.xn--etb875g", "to_ascii\(\'\\u06A6.\\u07E6\\u1A62\'\)\ \[data\/IdnaTest\.txt\:5061\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{06A6}.\x{07E6}\x{1A62}", %p)}, "xn--8jb.xn--etb875g", "to_ascii\(\'\\u06A6\.\\u07E6\\u1A62\'\)\ \[data\/IdnaTest\.txt\:5062\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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--8jb.xn--etb875g", %p)}, "xn--8jb.xn--etb875g", "to_ascii\(\'xn\-\-8jb\.xn\-\-etb875g\'\)\ \[data\/IdnaTest\.txt\:5063\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0D4D}.\x{1E86E}", %p)}, undef, "to_ascii\(\'\\u0D4D.\\uD83A\\uDC6E\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5064\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0D4D}.\x{1E86E}", %p)}, undef, "to_ascii\(\'\\u0D4D\.\\uD83A\\uDC6E\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5065\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠膣。\x{0DD2}", %p)}, undef, "to_ascii\(\'\≠膣\。\\u0DD2\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5066\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}膣。\x{0DD2}", %p)}, undef, "to_ascii\(\'\=\\u0338膣\。\\u0DD2\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5067\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{745DA}-\x{08A8}。ß", %p)}, undef, "to_ascii\(\'\\uD991\\uDDDA\-\\u08A8。ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5068\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{745DA}-\x{08A8}。ß", %p)}, undef, "to_ascii\(\'\\uD991\\uDDDA\-\\u08A8\。ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5069\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{745DA}-\x{08A8}。SS", %p)}, undef, "to_ascii\(\'\\uD991\\uDDDA\-\\u08A8\。SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5070\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{745DA}-\x{08A8}。SS", %p)}, undef, "to_ascii\(\'\\uD991\\uDDDA\-\\u08A8。SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5071\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{0669}ᡲ\x{17D2}.\x{0321}\x{10E68}\x{45953}\x{069D}", %p)}, undef, "to_ascii\(\'ς\\u0669ᡲ\\u17D2.\\u0321\\uD803\\uDE68\\uD8D6\\uDD53\\u069D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:5072\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{0669}ᡲ\x{17D2}.\x{0321}\x{10E68}\x{45953}\x{069D}", %p)}, undef, "to_ascii\(\'ς\\u0669ᡲ\\u17D2\.\\u0321\\uD803\\uDE68\\uD8D6\\uDD53\\u069D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:5073\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{0669}ᡲ\x{17D2}.\x{0321}\x{10E68}\x{45953}\x{069D}", %p)}, undef, "to_ascii\(\'Σ\\u0669ᡲ\\u17D2\.\\u0321\\uD803\\uDE68\\uD8D6\\uDD53\\u069D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:5074\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{0669}ᡲ\x{17D2}.\x{0321}\x{10E68}\x{45953}\x{069D}", %p)}, undef, "to_ascii\(\'σ\\u0669ᡲ\\u17D2\.\\u0321\\uD803\\uDE68\\uD8D6\\uDD53\\u069D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:5075\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{0669}ᡲ\x{17D2}.\x{0321}\x{10E68}\x{45953}\x{069D}", %p)}, undef, "to_ascii\(\'Σ\\u0669ᡲ\\u17D2.\\u0321\\uD803\\uDE68\\uD8D6\\uDD53\\u069D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:5076\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{0669}ᡲ\x{17D2}.\x{0321}\x{10E68}\x{45953}\x{069D}", %p)}, undef, "to_ascii\(\'σ\\u0669ᡲ\\u17D2.\\u0321\\uD803\\uDE68\\uD8D6\\uDD53\\u069D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:5077\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟹。\x{200D}", %p)}, "3.", "to_ascii\(\'𝟹\。\\u200D\'\)\ \[data\/IdnaTest\.txt\:5078\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3。\x{200D}", %p)}, "3.", "to_ascii\(\'3\。\\u200D\'\)\ \[data\/IdnaTest\.txt\:5080\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3.", %p)}, "3.", "to_ascii\(\'3\.\'\)\ \[data\/IdnaTest\.txt\:5082\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⽬\x{1B72}。\x{E0CD8}", %p)}, undef, "to_ascii\(\'⽬\\u1B72\。\\uDB43\\uDCD8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5083\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("目\x{1B72}。\x{E0CD8}", %p)}, undef, "to_ascii\(\'目\\u1B72\。\\uDB43\\uDCD8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5084\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0732}䁴\x{B67F6}.Ⴕ🄈\x{200C}\x{AAB7}", %p)}, undef, "to_ascii\(\'\\u0732䁴\\uDA99\\uDFF6.Ⴕ🄈\\u200C\\uAAB7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5085\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0732}䁴\x{B67F6}.Ⴕ7,\x{200C}\x{AAB7}", %p)}, undef, "to_ascii\(\'\\u0732䁴\\uDA99\\uDFF6\.Ⴕ7\,\\u200C\\uAAB7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5087\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0732}䁴\x{B67F6}.ⴕ7,\x{200C}\x{AAB7}", %p)}, undef, "to_ascii\(\'\\u0732䁴\\uDA99\\uDFF6\.ⴕ7\,\\u200C\\uAAB7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5089\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0732}䁴\x{B67F6}.ⴕ🄈\x{200C}\x{AAB7}", %p)}, undef, "to_ascii\(\'\\u0732䁴\\uDA99\\uDFF6.ⴕ🄈\\u200C\\uAAB7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5091\]") 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\:5093\]") 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\:5095\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("憡\x{DF1F}\x{200C}Ⴔ.5\x{200D}≠", %p)}, undef, "to_ascii\(\'憡\\uDF1F\\u200CႴ\.5\\u200D\≠\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:5097\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("憡\x{DF1F}\x{200C}Ⴔ.5\x{200D}=\x{0338}", %p)}, undef, "to_ascii\(\'憡\\uDF1F\\u200CႴ\.5\\u200D\=\\u0338\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:5099\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("", %p)}, undef, "to_ascii\(\'\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:5101\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("憡\x{DF1F}\x{200C}ⴔ.5\x{200D}=\x{0338}", %p)}, undef, "to_ascii\(\'憡\\uDF1F\\u200Cⴔ\.5\\u200D\=\\u0338\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:5102\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("憡\x{DF1F}\x{200C}ⴔ.5\x{200D}≠", %p)}, undef, "to_ascii\(\'憡\\uDF1F\\u200Cⴔ\.5\\u200D\≠\'\)\ throws\ error\ P1\ V6\ 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\ A3\ \[data\/IdnaTest\.txt\:5106\]") 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\:5108\]") or ($@ and diag($@)); exit(0); Net-IDN-Encode-2.100/t/uts46_to_ascii.t000444000765000024 333303712260275730 17626 0ustar00cfaerberstaff000000000000# *** 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 warnings; BEGIN { binmode STDOUT, ':utf8'; binmode STDERR, ':utf8'; } use Test::More tests => 3785 + 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\:60\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("faß.de", %p)}, "xn--fa-hia.de", "to_ascii\(\'faß\.de\'\)\ \[data\/IdnaTest\.txt\:62\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Faß.de", %p)}, "xn--fa-hia.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\:65\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("à\x{05D0}", %p)}, undef, "to_ascii\(\'à\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:69\]") 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\: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("À\x{05D0}", %p)}, undef, "to_ascii\(\'À\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:72\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0à.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0à\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:73\]") 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\: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("0À.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0À\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:76\]") 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\:77\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("à.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'à\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:78\]") 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\: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("À.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'À\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:81\]") 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\:82\]") 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\:83\]") 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\: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("À.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_ascii\(\'À\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:86\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0308}.\x{05D0}", %p)}, undef, "to_ascii\(\'\\u0308\.\\u05D0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:87\]") 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\:88\]") 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\: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("À.\x{05D0}0\x{0660}", %p)}, undef, "to_ascii\(\'À\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:91\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("àˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'àˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:92\]") 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\: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("Àˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'Àˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:95\]") 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\:96\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("à\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'à\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:97\]") 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\: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("À\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'À\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:100\]") 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\:101\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{200C}b", %p)}, undef, "to_ascii\(\'a\\u200Cb\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:106\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{200C}B", %p)}, undef, "to_ascii\(\'A\\u200CB\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:108\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{200C}b", %p)}, undef, "to_ascii\(\'A\\u200Cb\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:110\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ab", %p)}, "ab", "to_ascii\(\'ab\'\)\ \[data\/IdnaTest\.txt\:111\]") 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\:113\]") 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\:115\]") 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\:117\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ab-fsf", %p)}, "xn--ab-fsf", "to_ascii\(\'xn\-\-ab\-fsf\'\)\ \[data\/IdnaTest\.txt\:118\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{094D}b", %p)}, "xn--ab-fsf", "to_ascii\(\'a\\u094Db\'\)\ \[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("xn--ab-fsf604u", %p)}, "xn--ab-fsf604u", "to_ascii\(\'xn\-\-ab\-fsf604u\'\)\ \[data\/IdnaTest\.txt\:122\]") 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\: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\ C1\ \[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\ C1\ \[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\ C1\ \[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\: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{200D}b", %p)}, undef, "to_ascii\(\'a\\u200Db\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:135\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{200D}B", %p)}, undef, "to_ascii\(\'A\\u200DB\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:137\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{200D}b", %p)}, undef, "to_ascii\(\'A\\u200Db\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:139\]") 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\:141\]") 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\:143\]") 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\:145\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ab-fsf014u", %p)}, "xn--ab-fsf014u", "to_ascii\(\'xn\-\-ab\-fsf014u\'\)\ \[data\/IdnaTest\.txt\:146\]") 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\: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\ C2\ \[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\ C2\ \[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\ C2\ \[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\ C2\ \[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\ C2\ \[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\ C2\ \[data\/IdnaTest\.txt\:160\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("¡", %p)}, "xn--7a", "to_ascii\(\'\¡\'\)\ \[data\/IdnaTest\.txt\:164\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--7a", %p)}, "xn--7a", "to_ascii\(\'xn\-\-7a\'\)\ \[data\/IdnaTest\.txt\:165\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。", %p)}, undef, "to_ascii\(\'\。\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:166\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1234567890ä1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890ä1234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:167\]") 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\:168\]") 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\:169\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1234567890Ä1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890Ä1234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:170\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("www.eXample.cOm", %p)}, "www.example.com", "to_ascii\(\'www\.eXample\.cOm\'\)\ \[data\/IdnaTest\.txt\:171\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Bücher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'Bücher\.de\'\)\ \[data\/IdnaTest\.txt\:172\]") 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\:173\]") 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\:174\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("bücher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'bücher\.de\'\)\ \[data\/IdnaTest\.txt\:175\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("BÜCHER.DE", %p)}, "xn--bcher-kva.de", "to_ascii\(\'BÜCHER\.DE\'\)\ \[data\/IdnaTest\.txt\:176\]") 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\:177\]") 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\:178\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ÖBB", %p)}, "xn--bb-eka", "to_ascii\(\'ÖBB\'\)\ \[data\/IdnaTest\.txt\:179\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("O\x{0308}BB", %p)}, "xn--bb-eka", "to_ascii\(\'O\\u0308BB\'\)\ \[data\/IdnaTest\.txt\:180\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("o\x{0308}bb", %p)}, "xn--bb-eka", "to_ascii\(\'o\\u0308bb\'\)\ \[data\/IdnaTest\.txt\:181\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("öbb", %p)}, "xn--bb-eka", "to_ascii\(\'öbb\'\)\ \[data\/IdnaTest\.txt\:182\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Öbb", %p)}, "xn--bb-eka", "to_ascii\(\'Öbb\'\)\ \[data\/IdnaTest\.txt\:183\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("O\x{0308}bb", %p)}, "xn--bb-eka", "to_ascii\(\'O\\u0308bb\'\)\ \[data\/IdnaTest\.txt\:184\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--bb-eka", %p)}, "xn--bb-eka", "to_ascii\(\'xn\-\-bb\-eka\'\)\ \[data\/IdnaTest\.txt\:185\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βόλος.com", %p)}, "xn--nxasmm1c.com", "to_ascii\(\'βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:187\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βο\x{0301}λος.com", %p)}, "xn--nxasmm1c.com", "to_ascii\(\'βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:189\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ΒΟ\x{0301}ΛΟΣ.COM", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'ΒΟ\\u0301ΛΟΣ\.COM\'\)\ \[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("βόλοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'βόλοσ\.com\'\)\ \[data\/IdnaTest\.txt\:192\]") 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\:194\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βόλοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'Βόλοσ\.com\'\)\ \[data\/IdnaTest\.txt\:195\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--nxasmq6b.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'xn\-\-nxasmq6b\.com\'\)\ \[data\/IdnaTest\.txt\:196\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βο\x{0301}λος.com", %p)}, "xn--nxasmm1c.com", "to_ascii\(\'Βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:198\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βόλος.com", %p)}, "xn--nxasmm1c.com", "to_ascii\(\'Βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:200\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--nxasmm1c.com", %p)}, "xn--nxasmm1c.com", "to_ascii\(\'xn\-\-nxasmm1c\.com\'\)\ \[data\/IdnaTest\.txt\:201\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--nxasmm1c", %p)}, "xn--nxasmm1c", "to_ascii\(\'xn\-\-nxasmm1c\'\)\ \[data\/IdnaTest\.txt\:202\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βόλος", %p)}, "xn--nxasmm1c", "to_ascii\(\'βόλος\'\)\ \[data\/IdnaTest\.txt\:204\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βο\x{0301}λος", %p)}, "xn--nxasmm1c", "to_ascii\(\'βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:206\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ΒΟ\x{0301}ΛΟΣ", %p)}, "xn--nxasmq6b", "to_ascii\(\'ΒΟ\\u0301ΛΟΣ\'\)\ \[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("βόλοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'βόλοσ\'\)\ \[data\/IdnaTest\.txt\:209\]") 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\:211\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βόλοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'Βόλοσ\'\)\ \[data\/IdnaTest\.txt\:212\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--nxasmq6b", %p)}, "xn--nxasmq6b", "to_ascii\(\'xn\-\-nxasmq6b\'\)\ \[data\/IdnaTest\.txt\:213\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βόλος", %p)}, "xn--nxasmm1c", "to_ascii\(\'Βόλος\'\)\ \[data\/IdnaTest\.txt\:215\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βο\x{0301}λος", %p)}, "xn--nxasmm1c", "to_ascii\(\'Βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:217\]") 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\:219\]") 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\:220\]") 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\:221\]") 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\:222\]") 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\:224\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--mgba3gch31f", %p)}, "xn--mgba3gch31f", "to_ascii\(\'xn\-\-mgba3gch31f\'\)\ \[data\/IdnaTest\.txt\:225\]") 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\:226\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--mgba3gch31f060k", %p)}, "xn--mgba3gch31f060k", "to_ascii\(\'xn\-\-mgba3gch31f060k\'\)\ \[data\/IdnaTest\.txt\:227\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--mgba3gch31f060k.com", %p)}, "xn--mgba3gch31f060k.com", "to_ascii\(\'xn\-\-mgba3gch31f060k\.com\'\)\ \[data\/IdnaTest\.txt\:228\]") 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\:230\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--mgba3gch31f.com", %p)}, "xn--mgba3gch31f.com", "to_ascii\(\'xn\-\-mgba3gch31f\.com\'\)\ \[data\/IdnaTest\.txt\:231\]") 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\:232\]") 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\:233\]") 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\:234\]") 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\:235\]") 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\:236\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ü.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'Ü\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:237\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ü.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'ü\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:238\]") 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\:239\]") 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\:240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ü.ü", %p)}, "xn--tda.xn--tda", "to_ascii\(\'ü\.ü\'\)\ \[data\/IdnaTest\.txt\:241\]") 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\:242\]") 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\:243\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ü.Ü", %p)}, "xn--tda.xn--tda", "to_ascii\(\'Ü\.Ü\'\)\ \[data\/IdnaTest\.txt\:244\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ü.ü", %p)}, "xn--tda.xn--tda", "to_ascii\(\'Ü\.ü\'\)\ \[data\/IdnaTest\.txt\:245\]") 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\:246\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--u-ccb", %p)}, undef, "to_ascii\(\'xn\-\-u\-ccb\'\)\ throws\ error\ V1\ \[data\/IdnaTest\.txt\:247\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a⒈com", %p)}, undef, "to_ascii\(\'a⒈com\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:248\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a1.com", %p)}, "a1.com", "to_ascii\(\'a1\.com\'\)\ \[data\/IdnaTest\.txt\:249\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A⒈COM", %p)}, undef, "to_ascii\(\'A⒈COM\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:250\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A⒈Com", %p)}, undef, "to_ascii\(\'A⒈Com\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:251\]") 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\:252\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--0.pt", %p)}, undef, "to_ascii\(\'xn\-\-0\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:253\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--a.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\.pt\'\)\ throws\ error\ V6\ \[data\/IdnaTest\.txt\:254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--a-Ä.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-Ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:255\]") 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\:256\]") 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\:257\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--a-ä.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-ä\.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\ A3\ \[data\/IdnaTest\.txt\:259\]") 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\: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-Ä.pt", %p)}, undef, "to_ascii\(\'Xn\-\-A\-Ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:262\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語。JP", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。JP\'\)\ \[data\/IdnaTest\.txt\:263\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語。JP", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。JP\'\)\ \[data\/IdnaTest\.txt\:264\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--wgv71a119e.jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'xn\-\-wgv71a119e\.jp\'\)\ \[data\/IdnaTest\.txt\:265\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語.jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\.jp\'\)\ \[data\/IdnaTest\.txt\:266\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語。jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。jp\'\)\ \[data\/IdnaTest\.txt\:267\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語。Jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。Jp\'\)\ \[data\/IdnaTest\.txt\:268\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("☕", %p)}, "xn--53h", "to_ascii\(\'\☕\'\)\ \[data\/IdnaTest\.txt\:269\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--53h", %p)}, "xn--53h", "to_ascii\(\'xn\-\-53h\'\)\ \[data\/IdnaTest\.txt\:270\]") 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\:272\]") 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\:274\]") 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\:276\]") 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\:278\]") 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\:280\]") 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\:282\]") 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\:284\]") 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\:286\]") 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\:288\]") 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\:290\]") 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\:292\]") 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\:294\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--bss", %p)}, "xn--bss", "to_ascii\(\'xn\-\-bss\'\)\ \[data\/IdnaTest\.txt\:295\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("夙", %p)}, "xn--bss", "to_ascii\(\'夙\'\)\ \[data\/IdnaTest\.txt\:296\]") 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\:298\]") 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}𝔰\x{E01EF}ffl", %p)}, "xn--bssffl", "to_ascii\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD-\\u180Cℬ\\uFE00ſ\\u2064𝔰\\uDB40\\uDDEFffl\'\)\ \[data\/IdnaTest\.txt\:299\]") 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\x{E01EF}ffl", %p)}, "xn--bssffl", "to_ascii\(\'x\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00s\\u2064s\\uDB40\\uDDEFffl\'\)\ \[data\/IdnaTest\.txt\:300\]") 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\x{E01EF}ffl", %p)}, "xn--bssffl", "to_ascii\(\'x\\u034Fn\\u200B\-\\u00AD\-\\u180Cb\\uFE00s\\u2064s\\uDB40\\uDDEFffl\'\)\ \[data\/IdnaTest\.txt\:301\]") 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\x{E01EF}FFL", %p)}, "xn--bssffl", "to_ascii\(\'X\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00S\\u2064S\\uDB40\\uDDEFFFL\'\)\ \[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\x{034F}n\x{200B}-\x{00AD}-\x{180C}B\x{FE00}s\x{2064}s\x{E01EF}ffl", %p)}, "xn--bssffl", "to_ascii\(\'X\\u034Fn\\u200B\-\\u00AD\-\\u180CB\\uFE00s\\u2064s\\uDB40\\uDDEFffl\'\)\ \[data\/IdnaTest\.txt\:303\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("xn--bssffl", %p)}, "xn--bssffl", "to_ascii\(\'xn\-\-bssffl\'\)\ \[data\/IdnaTest\.txt\:304\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("夡夞夜夙", %p)}, "xn--bssffl", "to_ascii\(\'夡夞夜夙\'\)\ \[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{034F}ℕ\x{200B}﹣\x{00AD}-\x{180C}ℬ\x{FE00}S\x{2064}𝔰\x{E01EF}FFL", %p)}, "xn--bssffl", "to_ascii\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD-\\u180Cℬ\\uFE00S\\u2064𝔰\\uDB40\\uDDEFFFL\'\)\ \[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\x{E01EF}FFL", %p)}, "xn--bssffl", "to_ascii\(\'x\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00S\\u2064s\\uDB40\\uDDEFFFL\'\)\ \[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{034F}ℕ\x{200B}﹣\x{00AD}-\x{180C}ℬ\x{FE00}s\x{2064}𝔰\x{E01EF}ffl", %p)}, "xn--bssffl", "to_ascii\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD-\\u180Cℬ\\uFE00s\\u2064𝔰\\uDB40\\uDDEFffl\'\)\ \[data\/IdnaTest\.txt\:308\]") 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\:309\]") 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\:310\]") 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\:311\]") 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\:312\]") 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\:313\]") 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\:314\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'ä1234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:315\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0308}1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'a\\u03081234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:316\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0308}1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'A\\u03081234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:317\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'Ä1234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:318\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--1234567890123456789012345678901234567890123456789012345-9te", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'xn\-\-1234567890123456789012345678901234567890123456789012345\-9te\'\)\ \[data\/IdnaTest\.txt\:319\]") 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\:320\]") 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\:321\]") 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\:322\]") 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\:323\]") 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\: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.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:330\]") 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\:331\]") 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\:332\]") 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\:333\]") 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\:334\]") 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\:335\]") 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\:336\]") 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\:337\]") 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\:338\]") 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\: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.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:341\]") 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\:342\]") 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\:343\]") 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\:344\]") 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\:345\]") 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\:346\]") 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\:347\]") 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\:348\]") 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\:349\]") 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\:350\]") 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\:351\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a..c", %p)}, undef, "to_ascii\(\'a\.\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:352\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.-b.", %p)}, undef, "to_ascii\(\'a\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:353\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b-.c", %p)}, undef, "to_ascii\(\'a\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:354\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.-.c", %p)}, undef, "to_ascii\(\'a\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:355\]") 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\:356\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.\x{00AD}.c", %p)}, undef, "to_ascii\(\'ä\.\\u00AD\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:357\]") 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\:358\]") 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\:359\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.\x{00AD}.C", %p)}, undef, "to_ascii\(\'Ä\.\\u00AD\.C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:360\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.-b.", %p)}, undef, "to_ascii\(\'ä\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:361\]") 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\:362\]") 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\:363\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.-B.", %p)}, undef, "to_ascii\(\'Ä\.\-B\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:364\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.b-.c", %p)}, undef, "to_ascii\(\'ä\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:365\]") 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\:366\]") 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\:367\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.B-.C", %p)}, undef, "to_ascii\(\'Ä\.B\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:368\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.-.c", %p)}, undef, "to_ascii\(\'ä\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:369\]") 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\:370\]") 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\:371\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.-.C", %p)}, undef, "to_ascii\(\'Ä\.\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:372\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.bc--de.f", %p)}, undef, "to_ascii\(\'ä\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:373\]") 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\:374\]") 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\:375\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.BC--DE.F", %p)}, undef, "to_ascii\(\'Ä\.BC\-\-DE\.F\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:376\]") 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\:377\]") 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\:378\]") 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\:379\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A0", %p)}, "a0", "to_ascii\(\'A0\'\)\ \[data\/IdnaTest\.txt\:380\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0A", %p)}, "0a", "to_ascii\(\'0A\'\)\ \[data\/IdnaTest\.txt\:381\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0A.\x{05D0}", %p)}, "0a.xn--4db", "to_ascii\(\'0A\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:382\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0a.xn--4db", %p)}, "0a.xn--4db", "to_ascii\(\'0a\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:383\]") 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\:384\]") 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\:385\]") 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\:386\]") 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\:387\]") 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\:388\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("b-.\x{05D0}", %p)}, undef, "to_ascii\(\'b\-\.\\u05D0\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:389\]") 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\:390\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{05D0}", %p)}, undef, "to_ascii\(\'a\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:391\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{05D0}", %p)}, undef, "to_ascii\(\'A\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:392\]") 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\:393\]") 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\:394\]") 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\:395\]") 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\:396\]") 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\: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}A\x{05C7}", %p)}, undef, "to_ascii\(\'\\u05D0A\\u05C7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:398\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{05D0}\x{05EA}", %p)}, "xn--4db6c", "to_ascii\(\'\\u05D0\\u05EA\'\)\ \[data\/IdnaTest\.txt\:399\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--4db6c", %p)}, "xn--4db6c", "to_ascii\(\'xn\-\-4db6c\'\)\ \[data\/IdnaTest\.txt\:400\]") 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\:401\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--4db6c0a", %p)}, "xn--4db6c0a", "to_ascii\(\'xn\-\-4db6c0a\'\)\ \[data\/IdnaTest\.txt\:402\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{05D0}Tz", %p)}, undef, "to_ascii\(\'a\\u05D0Tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:403\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{05D0}tz", %p)}, undef, "to_ascii\(\'a\\u05D0tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:404\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{05D0}TZ", %p)}, undef, "to_ascii\(\'A\\u05D0TZ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:405\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{05D0}tz", %p)}, undef, "to_ascii\(\'A\\u05D0tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:406\]") 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\:407\]") 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\:408\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05D0}7\x{05EA}", %p)}, "xn--7-zhc3f", "to_ascii\(\'\\u05D07\\u05EA\'\)\ \[data\/IdnaTest\.txt\:409\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--7-zhc3f", %p)}, "xn--7-zhc3f", "to_ascii\(\'xn\-\-7\-zhc3f\'\)\ \[data\/IdnaTest\.txt\:410\]") 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\:411\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--4db6c6t", %p)}, "xn--4db6c6t", "to_ascii\(\'xn\-\-4db6c6t\'\)\ \[data\/IdnaTest\.txt\:412\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a7\x{0667}z", %p)}, undef, "to_ascii\(\'a7\\u0667z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:413\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A7\x{0667}Z", %p)}, undef, "to_ascii\(\'A7\\u0667Z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:414\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A7\x{0667}z", %p)}, undef, "to_ascii\(\'A7\\u0667z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:415\]") 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\:416\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{0BCD}\x{200D}", %p)}, "xn--dmc4b194h", "to_ascii\(\'ஹ\\u0BCD\\u200D\'\)\ \[data\/IdnaTest\.txt\:418\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--dmc4b", %p)}, "xn--dmc4b", "to_ascii\(\'xn\-\-dmc4b\'\)\ \[data\/IdnaTest\.txt\:419\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{0BCD}", %p)}, "xn--dmc4b", "to_ascii\(\'ஹ\\u0BCD\'\)\ \[data\/IdnaTest\.txt\:420\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--dmc4b194h", %p)}, "xn--dmc4b194h", "to_ascii\(\'xn\-\-dmc4b194h\'\)\ \[data\/IdnaTest\.txt\:421\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{200D}", %p)}, undef, "to_ascii\(\'ஹ\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:423\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--dmc", %p)}, "xn--dmc", "to_ascii\(\'xn\-\-dmc\'\)\ \[data\/IdnaTest\.txt\:424\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ", %p)}, "xn--dmc", "to_ascii\(\'ஹ\'\)\ \[data\/IdnaTest\.txt\:425\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:427\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{0BCD}\x{200C}", %p)}, "xn--dmc4by94h", "to_ascii\(\'ஹ\\u0BCD\\u200C\'\)\ \[data\/IdnaTest\.txt\:429\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--dmc4by94h", %p)}, "xn--dmc4by94h", "to_ascii\(\'xn\-\-dmc4by94h\'\)\ \[data\/IdnaTest\.txt\:430\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{200C}", %p)}, undef, "to_ascii\(\'ஹ\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:432\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}", %p)}, undef, "to_ascii\(\'\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:434\]") 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\:436\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2gxqia", %p)}, "xn--ghb2gxqia", "to_ascii\(\'xn\-\-ghb2gxqia\'\)\ \[data\/IdnaTest\.txt\:437\]") 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\:438\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2gxqia7523a", %p)}, "xn--ghb2gxqia7523a", "to_ascii\(\'xn\-\-ghb2gxqia7523a\'\)\ \[data\/IdnaTest\.txt\:439\]") 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\:441\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2g3q", %p)}, "xn--ghb2g3q", "to_ascii\(\'xn\-\-ghb2g3q\'\)\ \[data\/IdnaTest\.txt\:442\]") 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\:443\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2g3qq34f", %p)}, "xn--ghb2g3qq34f", "to_ascii\(\'xn\-\-ghb2g3qq34f\'\)\ \[data\/IdnaTest\.txt\:444\]") 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\:446\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb25aga", %p)}, "xn--ghb25aga", "to_ascii\(\'xn\-\-ghb25aga\'\)\ \[data\/IdnaTest\.txt\:447\]") 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\:448\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb25aga828w", %p)}, "xn--ghb25aga828w", "to_ascii\(\'xn\-\-ghb25aga828w\'\)\ \[data\/IdnaTest\.txt\:449\]") 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\:451\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb65a", %p)}, "xn--ghb65a", "to_ascii\(\'xn\-\-ghb65a\'\)\ \[data\/IdnaTest\.txt\:452\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{06EF}", %p)}, "xn--ghb65a", "to_ascii\(\'\\u0644\\u06EF\'\)\ \[data\/IdnaTest\.txt\:453\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb65a953d", %p)}, "xn--ghb65a953d", "to_ascii\(\'xn\-\-ghb65a953d\'\)\ \[data\/IdnaTest\.txt\:454\]") 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\:456\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2gxq", %p)}, "xn--ghb2gxq", "to_ascii\(\'xn\-\-ghb2gxq\'\)\ \[data\/IdnaTest\.txt\:457\]") 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\:458\]") 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\:460\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--cmba", %p)}, "xn--cmba", "to_ascii\(\'xn\-\-cmba\'\)\ \[data\/IdnaTest\.txt\:461\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EF}\x{06EF}", %p)}, "xn--cmba", "to_ascii\(\'\\u06EF\\u06EF\'\)\ \[data\/IdnaTest\.txt\:462\]") 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\:464\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb", %p)}, "xn--ghb", "to_ascii\(\'xn\-\-ghb\'\)\ \[data\/IdnaTest\.txt\:465\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}", %p)}, "xn--ghb", "to_ascii\(\'\\u0644\'\)\ \[data\/IdnaTest\.txt\:466\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⁷∝\x{A8EC}\x{E2410}.-\x{E01D1}", %p)}, undef, "to_ascii\(\'⁷\∝\\uA8EC\\uDB49\\uDC10.\-\\uDB40\\uDDD1\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:470\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("7∝\x{A8EC}\x{E2410}.-\x{E01D1}", %p)}, undef, "to_ascii\(\'7\∝\\uA8EC\\uDB49\\uDC10\.\-\\uDB40\\uDDD1\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:471\]") 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{0769}.ꡰ", %p)}, "xn--tpb.xn--md9a", "to_ascii\(\'\\u0769\.ꡰ\'\)\ \[data\/IdnaTest\.txt\:472\]") 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--tpb.xn--md9a", %p)}, "xn--tpb.xn--md9a", "to_ascii\(\'xn\-\-tpb\.xn\-\-md9a\'\)\ \[data\/IdnaTest\.txt\:473\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≯\x{066B}。-", %p)}, undef, "to_ascii\(\'\≯\\u066B。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:474\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{066B}。-", %p)}, undef, "to_ascii\(\'\>\\u0338\\u066B。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:475\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{066B}。-", %p)}, undef, "to_ascii\(\'\≯\\u066B\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:476\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{066B}。-", %p)}, undef, "to_ascii\(\'\>\\u0338\\u066B\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:477\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{066B}⾕.\x{115F}⚙ςႭ", %p)}, undef, "to_ascii\(\'⾛\\u066B⾕\.\\u115F\⚙ςႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:478\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{066B}谷.\x{115F}⚙ςႭ", %p)}, undef, "to_ascii\(\'走\\u066B谷\.\\u115F\⚙ςႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:479\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{066B}谷.\x{115F}⚙ςⴍ", %p)}, undef, "to_ascii\(\'走\\u066B谷\.\\u115F\⚙ςⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:480\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{066B}谷.\x{115F}⚙ΣႭ", %p)}, undef, "to_ascii\(\'走\\u066B谷\.\\u115F\⚙ΣႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:481\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{066B}谷.\x{115F}⚙σⴍ", %p)}, undef, "to_ascii\(\'走\\u066B谷\.\\u115F\⚙σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:482\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{066B}谷.\x{115F}⚙Σⴍ", %p)}, undef, "to_ascii\(\'走\\u066B谷\.\\u115F\⚙Σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:483\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{066B}⾕.\x{115F}⚙ςⴍ", %p)}, undef, "to_ascii\(\'⾛\\u066B⾕\.\\u115F\⚙ςⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:484\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{066B}⾕.\x{115F}⚙ΣႭ", %p)}, undef, "to_ascii\(\'⾛\\u066B⾕\.\\u115F\⚙ΣႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:485\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{066B}⾕.\x{115F}⚙σⴍ", %p)}, undef, "to_ascii\(\'⾛\\u066B⾕\.\\u115F\⚙σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:486\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{066B}⾕.\x{115F}⚙Σⴍ", %p)}, undef, "to_ascii\(\'⾛\\u066B⾕\.\\u115F\⚙Σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:487\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}≠ᡈ≯.솣-\x{0646}Ⴀ", %p)}, undef, "to_ascii\(\'\\u200D\≠ᡈ\≯\.솣\-\\u0646Ⴀ\'\)\ throws\ error\ P1\ V6\ C2\ B5\ \[data\/IdnaTest\.txt\:489\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}=\x{0338}ᡈ>\x{0338}.솣-\x{0646}Ⴀ", %p)}, undef, "to_ascii\(\'\\u200D\=\\u0338ᡈ\>\\u0338\.솣\-\\u0646Ⴀ\'\)\ throws\ error\ P1\ V6\ C2\ B5\ \[data\/IdnaTest\.txt\:491\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}=\x{0338}ᡈ>\x{0338}.솣-\x{0646}ⴀ", %p)}, undef, "to_ascii\(\'\\u200D\=\\u0338ᡈ\>\\u0338\.솣\-\\u0646ⴀ\'\)\ throws\ error\ P1\ V6\ C2\ B5\ \[data\/IdnaTest\.txt\:493\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}≠ᡈ≯.솣-\x{0646}ⴀ", %p)}, undef, "to_ascii\(\'\\u200D\≠ᡈ\≯\.솣\-\\u0646ⴀ\'\)\ throws\ error\ P1\ V6\ C2\ B5\ \[data\/IdnaTest\.txt\:495\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E8204}.\x{FD05}\x{032F}\x{072E}\x{10E7C}", %p)}, undef, "to_ascii\(\'\\uDB60\\uDE04.\\uFD05\\u032F\\u072E\\uD803\\uDE7C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:496\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E8204}.\x{0635}\x{0649}\x{032F}\x{072E}\x{10E7C}", %p)}, undef, "to_ascii\(\'\\uDB60\\uDE04\.\\u0635\\u0649\\u032F\\u072E\\uD803\\uDE7C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:497\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B5606}\x{1039}.\x{AAF6}", %p)}, undef, "to_ascii\(\'\\uDA95\\uDE06\\u1039\.\\uAAF6\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:498\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠼ\x{0FB3}\x{BCBAD}。\x{1D177}Ⴣ\x{07E4}", %p)}, undef, "to_ascii\(\'ᠼ\\u0FB3\\uDAB2\\uDFAD\。\\uD834\\uDD77Ⴣ\\u07E4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:499\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠼ\x{0FB3}\x{BCBAD}。\x{1D177}ⴣ\x{07E4}", %p)}, undef, "to_ascii\(\'ᠼ\\u0FB3\\uDAB2\\uDFAD\。\\uD834\\uDD77ⴣ\\u07E4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:500\]") 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{10E6A}\x{09CD}ς🃌。\x{1A76}렧", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6A\\u09CDς🃌\。\\u1A76렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:501\]") 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{10E6A}\x{09CD}ς🃌。\x{1A76}렧", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6A\\u09CDς🃌\。\\u1A76렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:502\]") 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{10E6A}\x{09CD}Σ🃌。\x{1A76}렧", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6A\\u09CDΣ🃌\。\\u1A76렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:503\]") 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{10E6A}\x{09CD}Σ🃌。\x{1A76}렧", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6A\\u09CDΣ🃌\。\\u1A76렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:504\]") 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{10E6A}\x{09CD}σ🃌。\x{1A76}렧", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6A\\u09CDσ🃌\。\\u1A76렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:505\]") 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{10E6A}\x{09CD}σ🃌。\x{1A76}렧", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6A\\u09CDσ🃌\。\\u1A76렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:506\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-\x{200D}。\x{0755}\x{200C}\x{200D}⒈", %p)}, undef, "to_ascii\(\'\-\\u200D\。\\u0755\\u200C\\u200D⒈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:508\]") 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{0755}\x{200C}\x{200D}1.", %p)}, undef, "to_ascii\(\'\-\\u200D\。\\u0755\\u200C\\u200D1\.\'\)\ throws\ error\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:510\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{D4ADD}.Ⴒ\x{111C0}", %p)}, undef, "to_ascii\(\'\\u200C\\uDB12\\uDEDD\.Ⴒ\\uD804\\uDDC0\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:512\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{D4ADD}.ⴒ\x{111C0}", %p)}, undef, "to_ascii\(\'\\u200C\\uDB12\\uDEDD\.ⴒ\\uD804\\uDDC0\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:514\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("繱\x{0E3A}\x{200D}.9︒", %p)}, undef, "to_ascii\(\'繱\\u0E3A\\u200D\.9︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:515\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("繱\x{0E3A}\x{200D}.9。", %p)}, "xn--o4c042gf52e.9.", "to_ascii\(\'繱\\u0E3A\\u200D\.9\。\'\)\ \[data\/IdnaTest\.txt\:517\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--o4c7658c.9.", %p)}, "xn--o4c7658c.9.", "to_ascii\(\'xn\-\-o4c7658c\.9\.\'\)\ \[data\/IdnaTest\.txt\:518\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("繱\x{0E3A}.9.", %p)}, "xn--o4c7658c.9.", "to_ascii\(\'繱\\u0E3A\.9\.\'\)\ \[data\/IdnaTest\.txt\:519\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--o4c042gf52e.9.", %p)}, "xn--o4c042gf52e.9.", "to_ascii\(\'xn\-\-o4c042gf52e\.9\.\'\)\ \[data\/IdnaTest\.txt\:520\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("繱\x{0E3A}\x{200D}.9.", %p)}, "xn--o4c042gf52e.9.", "to_ascii\(\'繱\\u0E3A\\u200D\.9\.\'\)\ \[data\/IdnaTest\.txt\:522\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E01DF}.\x{E016C}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDDF.\\uDB40\\uDD6C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:523\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E01DF}.\x{E016C}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDDF\.\\uDB40\\uDD6C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:524\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{20D8}。\x{200D}", %p)}, undef, "to_ascii\(\'ß\\u20D8\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:526\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{20D8}。\x{200D}", %p)}, undef, "to_ascii\(\'SS\\u20D8\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:528\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{20D8}。\x{200D}", %p)}, undef, "to_ascii\(\'ss\\u20D8\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:530\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{20D8}。\x{200D}", %p)}, undef, "to_ascii\(\'Ss\\u20D8\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:532\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ss-1ju.", %p)}, "xn--ss-1ju.", "to_ascii\(\'xn\-\-ss\-1ju\.\'\)\ \[data\/IdnaTest\.txt\:533\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{20D8}.", %p)}, "xn--ss-1ju.", "to_ascii\(\'ss\\u20D8\.\'\)\ \[data\/IdnaTest\.txt\:534\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{20D8}.", %p)}, "xn--ss-1ju.", "to_ascii\(\'SS\\u20D8\.\'\)\ \[data\/IdnaTest\.txt\:535\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{20D8}.", %p)}, "xn--ss-1ju.", "to_ascii\(\'Ss\\u20D8\.\'\)\ \[data\/IdnaTest\.txt\:536\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DD7}\x{200C}⒈.\x{E0387}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDD7\\u200C⒈.\\uDB40\\uDF87\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:538\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DD7}\x{200C}1..\x{E0387}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDD7\\u200C1\.\.\\uDB40\\uDF87\'\)\ throws\ error\ P1\ V6\ C1\ A4_2\ \[data\/IdnaTest\.txt\:540\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{F6C8F}\x{1D242}\x{1CF4}ß。\x{B373C}", %p)}, undef, "to_ascii\(\'\\uDB9B\\uDC8F\\uD834\\uDE42\\u1CF4ß\。\\uDA8D\\uDF3C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:541\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{F6C8F}\x{1D242}\x{1CF4}SS。\x{B373C}", %p)}, undef, "to_ascii\(\'\\uDB9B\\uDC8F\\uD834\\uDE42\\u1CF4SS\。\\uDA8D\\uDF3C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:542\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{F6C8F}\x{1D242}\x{1CF4}ss。\x{B373C}", %p)}, undef, "to_ascii\(\'\\uDB9B\\uDC8F\\uD834\\uDE42\\u1CF4ss\。\\uDA8D\\uDF3C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:543\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{F6C8F}\x{1D242}\x{1CF4}Ss。\x{B373C}", %p)}, undef, "to_ascii\(\'\\uDB9B\\uDC8F\\uD834\\uDE42\\u1CF4Ss\。\\uDA8D\\uDF3C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:544\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡊ\x{200C}\x{062F}。\x{60C9A}䉜\x{200D}\x{3E9BB}", %p)}, undef, "to_ascii\(\'ᡊ\\u200C\\u062F\。\\uD943\\uDC9A䉜\\u200D\\uD8BA\\uDDBB\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:546\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}ς\x{084A}⒈.≮\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAς\\u084A⒈\.\≮\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:547\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}ς\x{084A}⒈.<\x{0338}\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAς\\u084A⒈\.\<\\u0338\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:548\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}ς\x{084A}1..≮\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAς\\u084A1\.\.\≮\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:549\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}ς\x{084A}1..<\x{0338}\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAς\\u084A1\.\.\<\\u0338\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:550\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}Σ\x{084A}1..<\x{0338}\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAΣ\\u084A1\.\.\<\\u0338\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:551\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}Σ\x{084A}1..≮\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAΣ\\u084A1\.\.\≮\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:552\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}σ\x{084A}1..≮\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAσ\\u084A1\.\.\≮\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:553\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}σ\x{084A}1..<\x{0338}\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAσ\\u084A1\.\.\<\\u0338\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:554\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}Σ\x{084A}⒈.<\x{0338}\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAΣ\\u084A⒈\.\<\\u0338\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:555\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}Σ\x{084A}⒈.≮\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAΣ\\u084A⒈\.\≮\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:556\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}σ\x{084A}⒈.≮\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAσ\\u084A⒈\.\≮\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:557\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{469FA}σ\x{084A}⒈.<\x{0338}\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDDFAσ\\u084A⒈\.\<\\u0338\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:558\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3164}\x{0ACD}Ⴀ\x{0942}.\x{180B}", %p)}, undef, "to_ascii\(\'\\u3164\\u0ACDႠ\\u0942\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:559\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1160}\x{0ACD}Ⴀ\x{0942}.\x{180B}", %p)}, undef, "to_ascii\(\'\\u1160\\u0ACDႠ\\u0942\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:560\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1160}\x{0ACD}ⴀ\x{0942}.\x{180B}", %p)}, undef, "to_ascii\(\'\\u1160\\u0ACDⴀ\\u0942\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:561\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3164}\x{0ACD}ⴀ\x{0942}.\x{180B}", %p)}, undef, "to_ascii\(\'\\u3164\\u0ACDⴀ\\u0942\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:562\]") 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{116B6}\x{1A77}\x{1032}\x{E0153}", %p)}, undef, "to_ascii\(\'🎲\\u200D.\\uD805\\uDEB6\\u1A77\\u1032\\uDB40\\uDD53\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:564\]") 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{116B6}\x{1A77}\x{1032}\x{E0153}", %p)}, undef, "to_ascii\(\'🎲\\u200D\.\\uD805\\uDEB6\\u1A77\\u1032\\uDB40\\uDD53\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:566\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≮\x{10811}\x{1E8A1}.≯\x{7F4ED}ᠴ", %p)}, undef, "to_ascii\(\'\≮\\uD802\\uDC11\\uD83A\\uDCA1\.\≯\\uD9BD\\uDCEDᠴ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:567\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{10811}\x{1E8A1}.>\x{0338}\x{7F4ED}ᠴ", %p)}, undef, "to_ascii\(\'\<\\u0338\\uD802\\uDC11\\uD83A\\uDCA1\.\>\\u0338\\uD9BD\\uDCEDᠴ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:568\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE05}\x{1EEFE}\x{10F6E}٪。\x{A953}ꡏ", %p)}, undef, "to_ascii\(\'\\uFE05\\uD83B\\uDEFE\\uD803\\uDF6E٪。\\uA953ꡏ\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:569\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE05}\x{1EEFE}\x{10F6E}٪。\x{A953}ꡏ", %p)}, undef, "to_ascii\(\'\\uFE05\\uD83B\\uDEFE\\uD803\\uDF6E٪\。\\uA953ꡏ\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:570\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06D7}。\x{1091DF}", %p)}, undef, "to_ascii\(\'\\u06D7\。\\uDBE4\\uDDDF\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:571\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ACD}\x{1103A}.\x{1160}", %p)}, undef, "to_ascii\(\'\\u0ACD\\uD804\\uDC3A.\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:572\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ACD}\x{1103A}.\x{1160}", %p)}, undef, "to_ascii\(\'\\u0ACD\\uD804\\uDC3A\.\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:573\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{068A}\x{200D}。\x{D8C20}\x{109CB}", %p)}, undef, "to_ascii\(\'\-\\u068A\\u200D\。\\uDB23\\uDC20\\uD802\\uDDCB\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:575\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06AA}゜≯\x{73334}。\x{E01B5}⾇滸\x{0669}", %p)}, undef, "to_ascii\(\'\\u06AA゜\≯\\uD98C\\uDF34\。\\uDB40\\uDDB5⾇滸\\u0669\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:576\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06AA}゜>\x{0338}\x{73334}。\x{E01B5}⾇滸\x{0669}", %p)}, undef, "to_ascii\(\'\\u06AA゜\>\\u0338\\uD98C\\uDF34\。\\uDB40\\uDDB5⾇滸\\u0669\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:577\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06AA}\x{0020}\x{309A}≯\x{73334}。\x{E01B5}舛滸\x{0669}", %p)}, undef, "to_ascii\(\'\\u06AA\\u0020\\u309A\≯\\uD98C\\uDF34\。\\uDB40\\uDDB5舛滸\\u0669\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:578\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06AA}\x{0020}\x{309A}>\x{0338}\x{73334}。\x{E01B5}舛滸\x{0669}", %p)}, undef, "to_ascii\(\'\\u06AA\\u0020\\u309A\>\\u0338\\uD98C\\uDF34\。\\uDB40\\uDDB5舛滸\\u0669\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:579\]") 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{1BAB}", %p)}, undef, "to_ascii\(\'蔏。\\u1BAB\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:580\]") 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{1BAB}", %p)}, undef, "to_ascii\(\'蔏\。\\u1BAB\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:581\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("🄁\x{0712}。\x{E0107}", %p)}, undef, "to_ascii\(\'🄁\\u0712\。\\uDB40\\uDD07\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:582\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0,\x{0712}。\x{E0107}", %p)}, undef, "to_ascii\(\'0\,\\u0712\。\\uDB40\\uDD07\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:583\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A005C}-䟖F。\x{0855}⒈\x{10E67}", %p)}, undef, "to_ascii\(\'\\uDA40\\uDC5C\-䟖F\。\\u0855⒈\\uD803\\uDE67\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:584\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A005C}-䟖F。\x{0855}1.\x{10E67}", %p)}, undef, "to_ascii\(\'\\uDA40\\uDC5C\-䟖F\。\\u08551\.\\uD803\\uDE67\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:585\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A005C}-䟖f。\x{0855}1.\x{10E67}", %p)}, undef, "to_ascii\(\'\\uDA40\\uDC5C\-䟖f\。\\u08551\.\\uD803\\uDE67\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:586\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A005C}-䟖f。\x{0855}⒈\x{10E67}", %p)}, undef, "to_ascii\(\'\\uDA40\\uDC5C\-䟖f\。\\u0855⒈\\uD803\\uDE67\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:587\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7D}", %p)}, undef, "to_ascii\(\'\\u200C。\\uD803\\uDE7D\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:589\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7D}", %p)}, undef, "to_ascii\(\'\\u200C\。\\uD803\\uDE7D\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:591\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1EA6A}.≯\x{200C}-\x{07DE}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDE6A\.\≯\\u200C\-\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:593\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EA6A}.>\x{0338}\x{200C}-\x{07DE}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDE6A\.\>\\u0338\\u200C\-\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:595\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08FB}-。≠\x{1096E}", %p)}, undef, "to_ascii\(\'\\u08FB\-\。\≠\\uD802\\uDD6E\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:596\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08FB}-。=\x{0338}\x{1096E}", %p)}, undef, "to_ascii\(\'\\u08FB\-\。\=\\u0338\\uD802\\uDD6E\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:597\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A5DB4}\x{1A60}。\x{200D}\x{1EA86}", %p)}, undef, "to_ascii\(\'\\uDA57\\uDDB4\\u1A60\。\\u200D\\uD83A\\uDE86\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:599\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A38}\x{0D4D}🄉。㧉\x{3FB78}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE38\\u0D4D🄉。㧉\\uD8BE\\uDF78\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:600\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0D4D}\x{10A38}🄉。㧉\x{3FB78}", %p)}, undef, "to_ascii\(\'\\u0D4D\\uD802\\uDE38🄉。㧉\\uD8BE\\uDF78\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:601\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0D4D}\x{10A38}8,。㧉\x{3FB78}", %p)}, undef, "to_ascii\(\'\\u0D4D\\uD802\\uDE388\,\。㧉\\uD8BE\\uDF78\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:602\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{8E039}\x{10E66}\x{108C1}。≯⒙", %p)}, undef, "to_ascii\(\'\\u200C\\uD9F8\\uDC39\\uD803\\uDE66\\uD802\\uDCC1\。\≯⒙\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:604\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{8E039}\x{10E66}\x{108C1}。>\x{0338}⒙", %p)}, undef, "to_ascii\(\'\\u200C\\uD9F8\\uDC39\\uD803\\uDE66\\uD802\\uDCC1\。\>\\u0338⒙\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:606\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{8E039}\x{10E66}\x{108C1}。≯18.", %p)}, undef, "to_ascii\(\'\\u200C\\uD9F8\\uDC39\\uD803\\uDE66\\uD802\\uDCC1\。\≯18\.\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:608\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{8E039}\x{10E66}\x{108C1}。>\x{0338}18.", %p)}, undef, "to_ascii\(\'\\u200C\\uD9F8\\uDC39\\uD803\\uDE66\\uD802\\uDCC1\。\>\\u033818\.\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:610\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}.\x{0665}\x{173D0}-\x{200D}", %p)}, undef, "to_ascii\(\'\\u1A60.\\u0665\\uD81C\\uDFD0\-\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:612\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}.\x{0665}\x{173D0}-\x{200D}", %p)}, undef, "to_ascii\(\'\\u1A60\.\\u0665\\uD81C\\uDFD0\-\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:614\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0CA6}ς\x{E5CA6}。\x{FFA0}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDCA6ς\\uDB57\\uDCA6。\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:615\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0CA6}ς\x{E5CA6}。\x{1160}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDCA6ς\\uDB57\\uDCA6\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:616\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0CA6}Σ\x{E5CA6}。\x{1160}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDCA6Σ\\uDB57\\uDCA6\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:617\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0CA6}σ\x{E5CA6}。\x{1160}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDCA6σ\\uDB57\\uDCA6\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:618\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0CA6}Σ\x{E5CA6}。\x{FFA0}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDCA6Σ\\uDB57\\uDCA6。\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:619\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0CA6}σ\x{E5CA6}。\x{FFA0}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDCA6σ\\uDB57\\uDCA6。\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:620\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0684}\x{A8E1}ꡢ\x{06C9}.\x{1EAE1}\x{A806}Ⴃ", %p)}, undef, "to_ascii\(\'\\u0684\\uA8E1ꡢ\\u06C9\.\\uD83A\\uDEE1\\uA806Ⴃ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:621\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0684}\x{A8E1}ꡢ\x{06C9}.\x{1EAE1}\x{A806}ⴃ", %p)}, undef, "to_ascii\(\'\\u0684\\uA8E1ꡢ\\u06C9\.\\uD83A\\uDEE1\\uA806ⴃ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:622\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E75}\x{094D}-킼.\x{0C4D}\x{0F79}\x{10E7E}≯", %p)}, undef, "to_ascii\(\'\\uD803\\uDE75\\u094D\-킼\.\\u0C4D\\u0F79\\uD803\\uDE7E\≯\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:623\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E75}\x{094D}-킼.\x{0C4D}\x{0F79}\x{10E7E}>\x{0338}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE75\\u094D\-킼\.\\u0C4D\\u0F79\\uD803\\uDE7E\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:624\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E75}\x{094D}-킼.\x{0C4D}\x{0FB3}\x{0F71}\x{0F80}\x{10E7E}≯", %p)}, undef, "to_ascii\(\'\\uD803\\uDE75\\u094D\-킼\.\\u0C4D\\u0FB3\\u0F71\\u0F80\\uD803\\uDE7E\≯\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:625\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E75}\x{094D}-킼.\x{0C4D}\x{0FB3}\x{0F71}\x{0F80}\x{10E7E}>\x{0338}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE75\\u094D\-킼\.\\u0C4D\\u0FB3\\u0F71\\u0F80\\uD803\\uDE7E\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:626\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。ᠯ\x{0600}\x{AB323}\x{0A4D}", %p)}, undef, "to_ascii\(\'\-\。ᠯ\\u0600\\uDA6C\\uDF23\\u0A4D\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:627\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㼣\x{A679}.\x{FE23}\x{E819}ᢗ🄉", %p)}, undef, "to_ascii\(\'\\u200D㼣\\uA679.\\uFE23\\uE819ᢗ🄉\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:629\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㼣\x{A679}.\x{FE23}\x{E819}ᢗ8,", %p)}, undef, "to_ascii\(\'\\u200D㼣\\uA679\.\\uFE23\\uE819ᢗ8\,\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:631\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒\x{B9953}ς\x{97D30}。\x{076A}", %p)}, undef, "to_ascii\(\'︒\\uDAA6\\uDD53ς\\uDA1F\\uDD30。\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:632\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。\x{B9953}ς\x{97D30}。\x{076A}", %p)}, undef, "to_ascii\(\'\。\\uDAA6\\uDD53ς\\uDA1F\\uDD30\。\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:633\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。\x{B9953}Σ\x{97D30}。\x{076A}", %p)}, undef, "to_ascii\(\'\。\\uDAA6\\uDD53Σ\\uDA1F\\uDD30\。\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:634\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。\x{B9953}σ\x{97D30}。\x{076A}", %p)}, undef, "to_ascii\(\'\。\\uDAA6\\uDD53σ\\uDA1F\\uDD30\。\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:635\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒\x{B9953}Σ\x{97D30}。\x{076A}", %p)}, undef, "to_ascii\(\'︒\\uDAA6\\uDD53Σ\\uDA1F\\uDD30。\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:636\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒\x{B9953}σ\x{97D30}。\x{076A}", %p)}, undef, "to_ascii\(\'︒\\uDAA6\\uDD53σ\\uDA1F\\uDD30。\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:637\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E88E}.\x{FC20}\x{914D9}≯\x{1A7F}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDC8E.\\uFC20\\uDA05\\uDCD9\≯\\u1A7F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:638\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E88E}.\x{FC20}\x{914D9}>\x{0338}\x{1A7F}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDC8E.\\uFC20\\uDA05\\uDCD9\>\\u0338\\u1A7F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:639\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E88E}.\x{0635}\x{062D}\x{914D9}≯\x{1A7F}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDC8E\.\\u0635\\u062D\\uDA05\\uDCD9\≯\\u1A7F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:640\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E88E}.\x{0635}\x{062D}\x{914D9}>\x{0338}\x{1A7F}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDC8E\.\\u0635\\u062D\\uDA05\\uDCD9\>\\u0338\\u1A7F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:641\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08FE}\x{5DD8C}.\x{1EFC6}", %p)}, undef, "to_ascii\(\'\\u08FE\\uD937\\uDD8C\.\\uD83B\\uDFC6\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:642\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}≠。Ⴟ\x{2DE3}Ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\≠。Ⴟ\\u2DE3Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:643\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}=\x{0338}。Ⴟ\x{2DE3}Ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\=\\u0338。Ⴟ\\u2DE3Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:644\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}≠。Ⴟ\x{2DE3}Ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\≠\。Ⴟ\\u2DE3Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:645\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}=\x{0338}。Ⴟ\x{2DE3}Ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\=\\u0338\。Ⴟ\\u2DE3Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:646\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}=\x{0338}。ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\=\\u0338\。ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:647\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}≠。ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\≠\。ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:648\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}≠。Ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\≠\。Ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:649\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}=\x{0338}。Ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\=\\u0338\。Ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:650\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}=\x{0338}。ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\=\\u0338。ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:651\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}≠。ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\≠。ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:652\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}≠。Ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\≠。Ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:653\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۸\x{0355}=\x{0338}。Ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_ascii\(\'۸\\u0355\=\\u0338。Ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:654\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{E0271}\x{E016B}Ⴥ。-\x{066C}ᡳ\x{08ED}", %p)}, undef, "to_ascii\(\'\-\\uDB40\\uDE71\\uDB40\\uDD6BჅ\。\-\\u066Cᡳ\\u08ED\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:655\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{E0271}\x{E016B}ⴥ。-\x{066C}ᡳ\x{08ED}", %p)}, undef, "to_ascii\(\'\-\\uDB40\\uDE71\\uDB40\\uDD6Bⴥ\。\-\\u066Cᡳ\\u08ED\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:656\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E012B}。\x{0A4D}︒ᢖᢔ", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD2B\。\\u0A4D︒ᢖᢔ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:657\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E012B}。\x{0A4D}。ᢖᢔ", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD2B\。\\u0A4D\。ᢖᢔ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:658\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴙꡱ.\x{E015A}\x{200D}", %p)}, undef, "to_ascii\(\'Ⴙꡱ\.\\uDB40\\uDD5A\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:660\]") 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{E015A}\x{200D}", %p)}, undef, "to_ascii\(\'ⴙꡱ\.\\uDB40\\uDD5A\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:662\]") 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--hlj6950b.", %p)}, "xn--hlj6950b.", "to_ascii\(\'xn\-\-hlj6950b\.\'\)\ \[data\/IdnaTest\.txt\:663\]") 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--hlj6950b.", "to_ascii\(\'ⴙꡱ\.\'\)\ \[data\/IdnaTest\.txt\:664\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴙꡱ.", %p)}, undef, "to_ascii\(\'Ⴙꡱ\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:665\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B72}。⒎⒋\x{10CD6}ꡙ", %p)}, undef, "to_ascii\(\'\\u1B72。⒎⒋\\uD803\\uDCD6ꡙ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:666\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B72}。7.4.\x{10CD6}ꡙ", %p)}, undef, "to_ascii\(\'\\u1B72\。7\.4\.\\uD803\\uDCD6ꡙ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:667\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒋ᠬ。-\x{0747}", %p)}, undef, "to_ascii\(\'⒋ᠬ。\-\\u0747\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:668\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4.ᠬ。-\x{0747}", %p)}, undef, "to_ascii\(\'4\.ᠬ\。\-\\u0747\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:669\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{37E15}\x{0604}。\x{AAF6}ς\x{10D5F}\x{AA4C}", %p)}, undef, "to_ascii\(\'\\u200D\\uD89F\\uDE15\\u0604。\\uAAF6ς\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:671\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{37E15}\x{0604}。\x{AAF6}ς\x{10D5F}\x{AA4C}", %p)}, undef, "to_ascii\(\'\\u200D\\uD89F\\uDE15\\u0604\。\\uAAF6ς\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:673\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{37E15}\x{0604}。\x{AAF6}Σ\x{10D5F}\x{AA4C}", %p)}, undef, "to_ascii\(\'\\u200D\\uD89F\\uDE15\\u0604\。\\uAAF6Σ\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:675\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{37E15}\x{0604}。\x{AAF6}σ\x{10D5F}\x{AA4C}", %p)}, undef, "to_ascii\(\'\\u200D\\uD89F\\uDE15\\u0604\。\\uAAF6σ\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:677\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{37E15}\x{0604}。\x{AAF6}Σ\x{10D5F}\x{AA4C}", %p)}, undef, "to_ascii\(\'\\u200D\\uD89F\\uDE15\\u0604。\\uAAF6Σ\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:679\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{37E15}\x{0604}。\x{AAF6}σ\x{10D5F}\x{AA4C}", %p)}, undef, "to_ascii\(\'\\u200D\\uD89F\\uDE15\\u0604。\\uAAF6σ\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:681\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{ECD8E}Ⴓ⒪.\x{1B42}\x{60C9C}\x{1EC97}\x{066C}", %p)}, undef, "to_ascii\(\'⒈\\uDB73\\uDD8EႳ⒪.\\u1B42\\uD943\\uDC9C\\uD83B\\uDC97\\u066C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:682\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{ECD8E}Ⴓ(o).\x{1B42}\x{60C9C}\x{1EC97}\x{066C}", %p)}, undef, "to_ascii\(\'1\.\\uDB73\\uDD8EႳ\(o\)\.\\u1B42\\uD943\\uDC9C\\uD83B\\uDC97\\u066C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:683\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{ECD8E}ⴓ(o).\x{1B42}\x{60C9C}\x{1EC97}\x{066C}", %p)}, undef, "to_ascii\(\'1\.\\uDB73\\uDD8Eⴓ\(o\)\.\\u1B42\\uD943\\uDC9C\\uD83B\\uDC97\\u066C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:684\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{ECD8E}Ⴓ(O).\x{1B42}\x{60C9C}\x{1EC97}\x{066C}", %p)}, undef, "to_ascii\(\'1\.\\uDB73\\uDD8EႳ\(O\)\.\\u1B42\\uD943\\uDC9C\\uD83B\\uDC97\\u066C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:685\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{ECD8E}ⴓ⒪.\x{1B42}\x{60C9C}\x{1EC97}\x{066C}", %p)}, undef, "to_ascii\(\'⒈\\uDB73\\uDD8Eⴓ⒪.\\u1B42\\uD943\\uDC9C\\uD83B\\uDC97\\u066C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:686\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07E7}.\x{0855}\x{109DE}\x{066C}\x{07DE}", %p)}, undef, "to_ascii\(\'\\u07E7\.\\u0855\\uD802\\uDDDE\\u066C\\u07DE\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:687\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EC17}-。\x{1BAB}獀", %p)}, undef, "to_ascii\(\'\\uD83B\\uDC17\-。\\u1BAB獀\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:688\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EC17}-。\x{1BAB}獀", %p)}, undef, "to_ascii\(\'\\uD83B\\uDC17\-\。\\u1BAB獀\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:689\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-䷊ꡡ.\x{E0C24}\x{4A8EB}۸", %p)}, undef, "to_ascii\(\'\-䷊ꡡ.\\uDB43\\uDC24\\uD8EA\\uDCEB۸\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:690\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-䷊ꡡ.\x{E0C24}\x{4A8EB}۸", %p)}, undef, "to_ascii\(\'\-䷊ꡡ\.\\uDB43\\uDC24\\uD8EA\\uDCEB۸\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:691\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🁝˶𣾪\x{332DE}.\x{0850}9", %p)}, undef, "to_ascii\(\'🁝˶𣾪\\uD88C\\uDEDE\.\\u08509\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:692\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0663}.\x{07A9}", %p)}, undef, "to_ascii\(\'\≮\\u0663.\\u07A9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:693\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0663}.\x{07A9}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0663.\\u07A9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:694\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0663}.\x{07A9}", %p)}, undef, "to_ascii\(\'\≮\\u0663\.\\u07A9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:695\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0663}.\x{07A9}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0663\.\\u07A9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:696\]") 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{10E62}ᯛ\x{1BAA}。脥", %p)}, undef, "to_ascii\(\'\\uD803\\uDE62ᯛ\\u1BAA。脥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:697\]") 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{10E62}ᯛ\x{1BAA}。脥", %p)}, undef, "to_ascii\(\'\\uD803\\uDE62ᯛ\\u1BAA\。脥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:698\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0F84}\x{115F}\x{10E89}\x{9C047}.-", %p)}, undef, "to_ascii\(\'\\u0F84\\u115F\\uD803\\uDE89\\uDA30\\uDC47\.\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:699\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。\x{E005D}", %p)}, undef, "to_ascii\(\'\\u200C。\\uDB40\\uDC5D\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:701\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。\x{E005D}", %p)}, undef, "to_ascii\(\'\\u200C\。\\uDB40\\uDC5D\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:703\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠤ\x{AA2C}.\x{06C7}Ⴎ", %p)}, undef, "to_ascii\(\'ᠤ\\uAA2C.\\u06C7Ⴎ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:704\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠤ\x{AA2C}.\x{06C7}Ⴎ", %p)}, undef, "to_ascii\(\'ᠤ\\uAA2C\.\\u06C7Ⴎ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:705\]") 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{AA2C}.\x{06C7}ⴎ", %p)}, undef, "to_ascii\(\'ᠤ\\uAA2C\.\\u06C7ⴎ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:706\]") 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{AA2C}.\x{06C7}ⴎ", %p)}, undef, "to_ascii\(\'ᠤ\\uAA2C.\\u06C7ⴎ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:707\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᡅ\x{A949}Ξ.\x{68897}㛨∋", %p)}, undef, "to_ascii\(\'ᡅ\\uA949Ξ.\\uD962\\uDC97㛨\∋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:708\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡅ\x{A949}Ξ.\x{68897}㛨∋", %p)}, undef, "to_ascii\(\'ᡅ\\uA949Ξ\.\\uD962\\uDC97㛨\∋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:709\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡅ\x{A949}ξ.\x{68897}㛨∋", %p)}, undef, "to_ascii\(\'ᡅ\\uA949ξ\.\\uD962\\uDC97㛨\∋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:710\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡅ\x{A949}ξ.\x{68897}㛨∋", %p)}, undef, "to_ascii\(\'ᡅ\\uA949ξ.\\uD962\\uDC97㛨\∋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:711\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ\x{0765}︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-。Ⴛ\\u0765︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:713\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ\x{0765}︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-。Ⴛ\\u0765︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:715\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ\x{0765}。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。Ⴛ\\u0765\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:717\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ\x{0765}。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。Ⴛ\\u0765\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:719\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ\x{0765}。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。ⴛ\\u0765\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:721\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ\x{0765}。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。ⴛ\\u0765\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:723\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ\x{0765}︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-。ⴛ\\u0765︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:725\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ\x{0765}︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-。ⴛ\\u0765︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:727\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⽖.︒⌄\x{200C}\x{10E62}", %p)}, undef, "to_ascii\(\'⽖\.︒\⌄\\u200C\\uD803\\uDE62\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:729\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E62}", %p)}, undef, "to_ascii\(\'爪\.\。\⌄\\u200C\\uD803\\uDE62\'\)\ throws\ error\ A4_2\ B1\ C1\ \[data\/IdnaTest\.txt\:731\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{10B9E}.\x{10E72}Ⴑ\x{4D0E5}\x{0694}", %p)}, undef, "to_ascii\(\'\\uD802\\uDF9E\.\\uD803\\uDE72Ⴑ\\uD8F4\\uDCE5\\u0694\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:732\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10B9E}.\x{10E72}ⴑ\x{4D0E5}\x{0694}", %p)}, undef, "to_ascii\(\'\\uD802\\uDF9E\.\\uD803\\uDE72ⴑ\\uD8F4\\uDCE5\\u0694\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:733\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0362}\x{2B951}.🄈Ⴛ", %p)}, undef, "to_ascii\(\'\\u0362\\uD86E\\uDD51.🄈Ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:734\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0362}\x{2B951}.7,Ⴛ", %p)}, undef, "to_ascii\(\'\\u0362\\uD86E\\uDD51\.7\,Ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:735\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0362}\x{2B951}.7,ⴛ", %p)}, undef, "to_ascii\(\'\\u0362\\uD86E\\uDD51\.7\,ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:736\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0362}\x{2B951}.🄈ⴛ", %p)}, undef, "to_ascii\(\'\\u0362\\uD86E\\uDD51.🄈ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:737\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{A69F}齀。릿\x{1EF8C}", %p)}, undef, "to_ascii\(\'\-\\uA69F齀\。릿\\uD83B\\uDF8C\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:738\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{A69F}齀。릿\x{1EF8C}", %p)}, undef, "to_ascii\(\'\-\\uA69F齀\。릿\\uD83B\\uDF8C\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:739\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DFE}\x{0852}鹝꾗。\x{64262}\x{200D}\x{200D}⏃", %p)}, undef, "to_ascii\(\'\\u2DFE\\u0852鹝꾗\。\\uD950\\uDE62\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:741\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DFE}\x{0852}鹝꾗。\x{64262}\x{200D}\x{200D}⏃", %p)}, undef, "to_ascii\(\'\\u2DFE\\u0852鹝꾗\。\\uD950\\uDE62\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:743\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.-\x{1EACC}--", %p)}, undef, "to_ascii\(\'\≮.\-\\uD83A\\uDECC\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:744\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.-\x{1EACC}--", %p)}, undef, "to_ascii\(\'\<\\u0338.\-\\uD83A\\uDECC\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:745\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.-\x{1EACC}--", %p)}, undef, "to_ascii\(\'\≮\.\-\\uD83A\\uDECC\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:746\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.-\x{1EACC}--", %p)}, undef, "to_ascii\(\'\<\\u0338\.\-\\uD83A\\uDECC\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:747\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}ς3", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68؉\。\\u200Dς3\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:749\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}ς3", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68؉\。\\u200Dς3\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:751\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}Σ3", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68؉\。\\u200DΣ3\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:753\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}σ3", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68؉\。\\u200Dσ3\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:755\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}Σ3", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68؉\。\\u200DΣ3\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:757\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}σ3", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68؉\。\\u200Dσ3\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:759\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ς\x{DF8CA}₃.\x{10D7D}", %p)}, undef, "to_ascii\(\'ς\\uDB3E\\uDCCA₃\.\\uD803\\uDD7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:760\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{DF8CA}3.\x{10D7D}", %p)}, undef, "to_ascii\(\'ς\\uDB3E\\uDCCA3\.\\uD803\\uDD7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:761\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{DF8CA}3.\x{10D7D}", %p)}, undef, "to_ascii\(\'Σ\\uDB3E\\uDCCA3\.\\uD803\\uDD7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:762\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{DF8CA}3.\x{10D7D}", %p)}, undef, "to_ascii\(\'σ\\uDB3E\\uDCCA3\.\\uD803\\uDD7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:763\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{DF8CA}₃.\x{10D7D}", %p)}, undef, "to_ascii\(\'Σ\\uDB3E\\uDCCA₃\.\\uD803\\uDD7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:764\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{DF8CA}₃.\x{10D7D}", %p)}, undef, "to_ascii\(\'σ\\uDB3E\\uDCCA₃\.\\uD803\\uDD7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:765\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{0760}⒉\x{077C}.-\x{07E6}\x{1B42}", %p)}, undef, "to_ascii\(\'\\u200C\\u0760⒉\\u077C.\-\\u07E6\\u1B42\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:767\]") 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}\x{0760}2.\x{077C}.-\x{07E6}\x{1B42}", %p)}, undef, "to_ascii\(\'\\u200C\\u07602\.\\u077C\.\-\\u07E6\\u1B42\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:769\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{7C1E5}。\x{07A0}넯\x{E8610}", %p)}, undef, "to_ascii\(\'\\uD9B0\\uDDE5\。\\u07A0넯\\uDB61\\uDE10\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:770\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7C1E5}。\x{07A0}넯\x{E8610}", %p)}, undef, "to_ascii\(\'\\uD9B0\\uDDE5\。\\u07A0넯\\uDB61\\uDE10\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:771\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{076E}Ⴘ。\x{0603}Ⴈ\x{FE03}", %p)}, undef, "to_ascii\(\'\\u076EႸ\。\\u0603Ⴈ\\uFE03\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:772\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{076E}ⴘ。\x{0603}ⴈ\x{FE03}", %p)}, undef, "to_ascii\(\'\\u076Eⴘ\。\\u0603ⴈ\\uFE03\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:773\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟑\x{E02D1}\x{071B}。牣\x{10E78}Ⴜᣥ", %p)}, undef, "to_ascii\(\'𝟑\\uDB40\\uDED1\\u071B\。牣\\uD803\\uDE78Ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:774\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{E02D1}\x{071B}。牣\x{10E78}Ⴜᣥ", %p)}, undef, "to_ascii\(\'3\\uDB40\\uDED1\\u071B\。牣\\uD803\\uDE78Ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:775\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{E02D1}\x{071B}。牣\x{10E78}ⴜᣥ", %p)}, undef, "to_ascii\(\'3\\uDB40\\uDED1\\u071B\。牣\\uD803\\uDE78ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:776\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟑\x{E02D1}\x{071B}。牣\x{10E78}ⴜᣥ", %p)}, undef, "to_ascii\(\'𝟑\\uDB40\\uDED1\\u071B\。牣\\uD803\\uDE78ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:777\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-⒐\x{FB3C}⒈.Ⴓ", %p)}, undef, "to_ascii\(\'\-⒐\\uFB3C⒈\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:778\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-⒐\x{05DC}\x{05BC}⒈.Ⴓ", %p)}, undef, "to_ascii\(\'\-⒐\\u05DC\\u05BC⒈\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:779\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-9.\x{05DC}\x{05BC}1..Ⴓ", %p)}, undef, "to_ascii\(\'\-9\.\\u05DC\\u05BC1\.\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:780\]") 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{05DC}\x{05BC}1..ⴓ", %p)}, undef, "to_ascii\(\'\-9\.\\u05DC\\u05BC1\.\.ⴓ\'\)\ throws\ error\ V3\ A4_2\ \[data\/IdnaTest\.txt\:781\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-⒐\x{05DC}\x{05BC}⒈.ⴓ", %p)}, undef, "to_ascii\(\'\-⒐\\u05DC\\u05BC⒈\.ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:782\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-⒐\x{FB3C}⒈.ⴓ", %p)}, undef, "to_ascii\(\'\-⒐\\uFB3C⒈\.ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:783\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}긃.𩃹-", %p)}, undef, "to_ascii\(\'\\u200C긃\.𩃹\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:785\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}긃.𩃹-", %p)}, undef, "to_ascii\(\'\\u200C긃\.𩃹\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:787\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("뉓泓\x{8C224}.\x{11046}\x{200D}", %p)}, undef, "to_ascii\(\'뉓泓\\uD9F0\\uDE24\.\\uD804\\uDC46\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:788\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("뉓泓\x{8C224}.\x{11046}\x{200D}", %p)}, undef, "to_ascii\(\'뉓泓\\uD9F0\\uDE24\.\\uD804\\uDC46\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:789\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E7E}ß。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE7Eß。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:791\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E7E}ß。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE7Eß\。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:793\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E7E}SS。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE7ESS\。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:795\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E7E}ss。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE7Ess\。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:797\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E7E}Ss。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE7ESs\。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:799\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E7E}SS。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE7ESS。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:801\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E7E}ss。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE7Ess。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:803\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E7E}Ss。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE7ESs。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:805\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{11046}.\x{A8C4}-≮≠", %p)}, undef, "to_ascii\(\'\\uD804\\uDC46.\\uA8C4\-\≮\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:806\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{11046}.\x{A8C4}-<\x{0338}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uD804\\uDC46.\\uA8C4\-\<\\u0338\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:807\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{11046}.\x{A8C4}-≮≠", %p)}, undef, "to_ascii\(\'\\uD804\\uDC46\.\\uA8C4\-\≮\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:808\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{11046}.\x{A8C4}-<\x{0338}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uD804\\uDC46\.\\uA8C4\-\<\\u0338\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:809\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1039}Ⴑ\x{115F}.\x{A8C4}Ⅎ", %p)}, undef, "to_ascii\(\'\\u1039Ⴑ\\u115F.\\uA8C4Ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:810\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1039}Ⴑ\x{115F}.\x{A8C4}Ⅎ", %p)}, undef, "to_ascii\(\'\\u1039Ⴑ\\u115F\.\\uA8C4Ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:811\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1039}ⴑ\x{115F}.\x{A8C4}ⅎ", %p)}, undef, "to_ascii\(\'\\u1039ⴑ\\u115F\.\\uA8C4ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:812\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1039}Ⴑ\x{115F}.\x{A8C4}ⅎ", %p)}, undef, "to_ascii\(\'\\u1039Ⴑ\\u115F\.\\uA8C4ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:813\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1039}ⴑ\x{115F}.\x{A8C4}ⅎ", %p)}, undef, "to_ascii\(\'\\u1039ⴑ\\u115F.\\uA8C4ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:814\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1039}Ⴑ\x{115F}.\x{A8C4}ⅎ", %p)}, undef, "to_ascii\(\'\\u1039Ⴑ\\u115F.\\uA8C4ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:815\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82222}。Ⴃ\x{1EEA8}\x{10E7E}똯", %p)}, undef, "to_ascii\(\'\\uD9C8\\uDE22\。Ⴃ\\uD83B\\uDEA8\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:816\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82222}。Ⴃ\x{1EEA8}\x{10E7E}똯", %p)}, undef, "to_ascii\(\'\\uD9C8\\uDE22\。Ⴃ\\uD83B\\uDEA8\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:817\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82222}。Ⴃ\x{0637}\x{10E7E}똯", %p)}, undef, "to_ascii\(\'\\uD9C8\\uDE22\。Ⴃ\\u0637\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:818\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82222}。Ⴃ\x{0637}\x{10E7E}똯", %p)}, undef, "to_ascii\(\'\\uD9C8\\uDE22\。Ⴃ\\u0637\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:819\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82222}。ⴃ\x{0637}\x{10E7E}똯", %p)}, undef, "to_ascii\(\'\\uD9C8\\uDE22\。ⴃ\\u0637\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:820\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82222}。ⴃ\x{0637}\x{10E7E}똯", %p)}, undef, "to_ascii\(\'\\uD9C8\\uDE22\。ⴃ\\u0637\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:821\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82222}。ⴃ\x{1EEA8}\x{10E7E}똯", %p)}, undef, "to_ascii\(\'\\uD9C8\\uDE22\。ⴃ\\uD83B\\uDEA8\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:822\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82222}。ⴃ\x{1EEA8}\x{10E7E}똯", %p)}, undef, "to_ascii\(\'\\uD9C8\\uDE22\。ⴃ\\uD83B\\uDEA8\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:823\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06AC}。⳻\x{E01AD}\x{2D7F}\x{3164}", %p)}, undef, "to_ascii\(\'\\u06AC。⳻\\uDB40\\uDDAD\\u2D7F\\u3164\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:824\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06AC}。⳻\x{E01AD}\x{2D7F}\x{1160}", %p)}, undef, "to_ascii\(\'\\u06AC\。⳻\\uDB40\\uDDAD\\u2D7F\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:825\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10B1C}⾇.ᢣ-𝟢", %p)}, undef, "to_ascii\(\'\\uD802\\uDF1C⾇.ᢣ\-𝟢\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:826\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10B1C}舛.ᢣ-0", %p)}, undef, "to_ascii\(\'\\uD802\\uDF1C舛\.ᢣ\-0\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:827\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴉ猕\x{4C0A1}≮.︒", %p)}, undef, "to_ascii\(\'Ⴉ猕\\uD8F0\\uDCA1\≮.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:828\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ猕\x{4C0A1}<\x{0338}.︒", %p)}, undef, "to_ascii\(\'Ⴉ猕\\uD8F0\\uDCA1\<\\u0338.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:829\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ猕\x{4C0A1}≮.。", %p)}, undef, "to_ascii\(\'Ⴉ猕\\uD8F0\\uDCA1\≮\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:830\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ猕\x{4C0A1}<\x{0338}.。", %p)}, undef, "to_ascii\(\'Ⴉ猕\\uD8F0\\uDCA1\<\\u0338\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:831\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ猕\x{4C0A1}<\x{0338}.。", %p)}, undef, "to_ascii\(\'ⴉ猕\\uD8F0\\uDCA1\<\\u0338\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:832\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ猕\x{4C0A1}≮.。", %p)}, undef, "to_ascii\(\'ⴉ猕\\uD8F0\\uDCA1\≮\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:833\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ猕\x{4C0A1}<\x{0338}.︒", %p)}, undef, "to_ascii\(\'ⴉ猕\\uD8F0\\uDCA1\<\\u0338.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:834\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ猕\x{4C0A1}≮.︒", %p)}, undef, "to_ascii\(\'ⴉ猕\\uD8F0\\uDCA1\≮.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:835\]") 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{0682}\x{0F91}", %p)}, undef, "to_ascii\(\'⳪。ᢙ鳳\\u0682\\u0F91\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:836\]") 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{0682}\x{0F91}", %p)}, undef, "to_ascii\(\'⳪\。ᢙ鳳\\u0682\\u0F91\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:837\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}\x{0600}。ß", %p)}, undef, "to_ascii\(\'\\u200D\\u0600\。ß\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:839\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{0600}。SS", %p)}, undef, "to_ascii\(\'\\u200D\\u0600\。SS\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:841\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Å둄-.\x{200C}", %p)}, undef, "to_ascii\(\'Å둄\-.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:843\]") 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\:845\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Å둄-.\x{200C}", %p)}, undef, "to_ascii\(\'Å둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[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\ C1\ \[data\/IdnaTest\.txt\:849\]") 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\:851\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("å둄-.\x{200C}", %p)}, undef, "to_ascii\(\'å둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:853\]") 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\:855\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("å둄-.\x{200C}", %p)}, undef, "to_ascii\(\'å둄\-.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:857\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E01E1}\x{11AFF}\x{065E}\x{068D}.\x{2C83D}-\x{0618}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDE1\\uD806\\uDEFF\\u065E\\u068D\.\\uD872\\uDC3D\-\\u0618\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:858\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς.ß\x{D722C}\x{10E72}\x{0BCD}", %p)}, undef, "to_ascii\(\'ς\.ß\\uDB1C\\uDE2C\\uD803\\uDE72\\u0BCD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:859\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ.SS\x{D722C}\x{10E72}\x{0BCD}", %p)}, undef, "to_ascii\(\'Σ\.SS\\uDB1C\\uDE2C\\uD803\\uDE72\\u0BCD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:860\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ.ss\x{D722C}\x{10E72}\x{0BCD}", %p)}, undef, "to_ascii\(\'σ\.ss\\uDB1C\\uDE2C\\uD803\\uDE72\\u0BCD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:861\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ.ss\x{D722C}\x{10E72}\x{0BCD}", %p)}, undef, "to_ascii\(\'Σ\.ss\\uDB1C\\uDE2C\\uD803\\uDE72\\u0BCD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:862\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ.ß\x{D722C}\x{10E72}\x{0BCD}", %p)}, undef, "to_ascii\(\'Σ\.ß\\uDB1C\\uDE2C\\uD803\\uDE72\\u0BCD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:863\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ.ß\x{D722C}\x{10E72}\x{0BCD}", %p)}, undef, "to_ascii\(\'σ\.ß\\uDB1C\\uDE2C\\uD803\\uDE72\\u0BCD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:864\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{067C}\x{E01D0}。\x{10E65}\x{E01E3}", %p)}, undef, "to_ascii\(\'\\u067C\\uDB40\\uDDD0。\\uD803\\uDE65\\uDB40\\uDDE3\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:865\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{067C}\x{E01D0}。\x{10E65}\x{E01E3}", %p)}, undef, "to_ascii\(\'\\u067C\\uDB40\\uDDD0\。\\uD803\\uDE65\\uDB40\\uDDE3\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:866\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("밬\x{200C}\x{1E9A9}。\x{E0391}\x{9F04D}-\x{1ED1A}", %p)}, undef, "to_ascii\(\'밬\\u200C\\uD83A\\uDDA9。\\uDB40\\uDF91\\uDA3C\\uDC4D\-\\uD83B\\uDD1A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:868\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("밬\x{200C}\x{1E9A9}。\x{E0391}\x{9F04D}-\x{1ED1A}", %p)}, undef, "to_ascii\(\'밬\\u200C\\uD83A\\uDDA9。\\uDB40\\uDF91\\uDA3C\\uDC4D\-\\uD83B\\uDD1A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:870\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("밬\x{200C}\x{1E9A9}。\x{E0391}\x{9F04D}-\x{1ED1A}", %p)}, undef, "to_ascii\(\'밬\\u200C\\uD83A\\uDDA9\。\\uDB40\\uDF91\\uDA3C\\uDC4D\-\\uD83B\\uDD1A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:872\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("밬\x{200C}\x{1E9A9}。\x{E0391}\x{9F04D}-\x{1ED1A}", %p)}, undef, "to_ascii\(\'밬\\u200C\\uD83A\\uDDA9\。\\uDB40\\uDF91\\uDA3C\\uDC4D\-\\uD83B\\uDD1A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:874\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("룱\x{200D}\x{BE542}\x{200C}。\x{E01A9}︒", %p)}, undef, "to_ascii\(\'룱\\u200D\\uDAB9\\uDD42\\u200C\。\\uDB40\\uDDA9︒\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:876\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("룱\x{200D}\x{BE542}\x{200C}。\x{E01A9}︒", %p)}, undef, "to_ascii\(\'룱\\u200D\\uDAB9\\uDD42\\u200C\。\\uDB40\\uDDA9︒\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:878\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("룱\x{200D}\x{BE542}\x{200C}。\x{E01A9}。", %p)}, undef, "to_ascii\(\'룱\\u200D\\uDAB9\\uDD42\\u200C\。\\uDB40\\uDDA9\。\'\)\ throws\ error\ P1\ V6\ C2\ C1\ A4_2\ \[data\/IdnaTest\.txt\:880\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("룱\x{200D}\x{BE542}\x{200C}。\x{E01A9}。", %p)}, undef, "to_ascii\(\'룱\\u200D\\uDAB9\\uDD42\\u200C\。\\uDB40\\uDDA9\。\'\)\ throws\ error\ P1\ V6\ C2\ C1\ A4_2\ \[data\/IdnaTest\.txt\:882\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₆.\x{FE07}⒈ß", %p)}, undef, "to_ascii\(\'₆.\\uFE07⒈ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:883\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6.\x{FE07}1.ß", %p)}, "6.1.xn--zca", "to_ascii\(\'6\.\\uFE071\.ß\'\)\ \[data\/IdnaTest\.txt\:885\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6.\x{FE07}1.SS", %p)}, "6.1.ss", "to_ascii\(\'6\.\\uFE071\.SS\'\)\ \[data\/IdnaTest\.txt\:886\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6.1.ss", %p)}, "6.1.ss", "to_ascii\(\'6\.1\.ss\'\)\ \[data\/IdnaTest\.txt\:887\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6.1.xn--zca", %p)}, "6.1.xn--zca", "to_ascii\(\'6\.1\.xn\-\-zca\'\)\ \[data\/IdnaTest\.txt\:888\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6.1.ß", %p)}, "6.1.xn--zca", "to_ascii\(\'6\.1\.ß\'\)\ \[data\/IdnaTest\.txt\:890\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₆.\x{FE07}⒈SS", %p)}, undef, "to_ascii\(\'₆.\\uFE07⒈SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:891\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₆.\x{FE07}⒈ss", %p)}, undef, "to_ascii\(\'₆.\\uFE07⒈ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:892\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₆.\x{FE07}⒈Ss", %p)}, undef, "to_ascii\(\'₆.\\uFE07⒈Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:893\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82F0D}\x{17D2}。\x{1EBE7}\x{A4D5C}\x{E0160}", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDF0D\\u17D2。\\uD83A\\uDFE7\\uDA53\\uDD5C\\uDB40\\uDD60\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:894\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82F0D}\x{17D2}。\x{1EBE7}\x{A4D5C}\x{E0160}", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDF0D\\u17D2\。\\uD83A\\uDFE7\\uDA53\\uDD5C\\uDB40\\uDD60\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:895\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2CEF}\x{0CCD}\x{094D}.≠\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u2CEF\\u0CCD\\u094D.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:897\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}\x{094D}\x{2CEF}.≠\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u0CCD\\u094D\\u2CEF.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:899\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}\x{094D}\x{2CEF}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u0CCD\\u094D\\u2CEF.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:901\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}\x{094D}\x{2CEF}.≠\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u0CCD\\u094D\\u2CEF\.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:903\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}\x{094D}\x{2CEF}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u0CCD\\u094D\\u2CEF\.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:905\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴁ¹娤.\x{200D}\x{E0152}\x{0669}\x{E005F}", %p)}, undef, "to_ascii\(\'Ⴁ¹娤\.\\u200D\\uDB40\\uDD52\\u0669\\uDB40\\uDC5F\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:907\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴁ1娤.\x{200D}\x{E0152}\x{0669}\x{E005F}", %p)}, undef, "to_ascii\(\'Ⴁ1娤\.\\u200D\\uDB40\\uDD52\\u0669\\uDB40\\uDC5F\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:909\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴁ1娤.\x{200D}\x{E0152}\x{0669}\x{E005F}", %p)}, undef, "to_ascii\(\'ⴁ1娤\.\\u200D\\uDB40\\uDD52\\u0669\\uDB40\\uDC5F\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:911\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴁ¹娤.\x{200D}\x{E0152}\x{0669}\x{E005F}", %p)}, undef, "to_ascii\(\'ⴁ¹娤\.\\u200D\\uDB40\\uDD52\\u0669\\uDB40\\uDC5F\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:913\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒚Ⴄ\x{0669}\x{E0065}。⒈\x{1D1AB}ß", %p)}, undef, "to_ascii\(\'⒚Ⴄ\\u0669\\uDB40\\uDC65\。⒈\\uD834\\uDDABß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:914\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("19.Ⴄ\x{0669}\x{E0065}。1.\x{1D1AB}ß", %p)}, undef, "to_ascii\(\'19\.Ⴄ\\u0669\\uDB40\\uDC65\。1\.\\uD834\\uDDABß\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:915\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("19.ⴄ\x{0669}\x{E0065}。1.\x{1D1AB}ß", %p)}, undef, "to_ascii\(\'19\.ⴄ\\u0669\\uDB40\\uDC65\。1\.\\uD834\\uDDABß\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:916\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("19.Ⴄ\x{0669}\x{E0065}。1.\x{1D1AB}SS", %p)}, undef, "to_ascii\(\'19\.Ⴄ\\u0669\\uDB40\\uDC65\。1\.\\uD834\\uDDABSS\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:917\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("19.ⴄ\x{0669}\x{E0065}。1.\x{1D1AB}ss", %p)}, undef, "to_ascii\(\'19\.ⴄ\\u0669\\uDB40\\uDC65\。1\.\\uD834\\uDDABss\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:918\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("19.Ⴄ\x{0669}\x{E0065}。1.\x{1D1AB}Ss", %p)}, undef, "to_ascii\(\'19\.Ⴄ\\u0669\\uDB40\\uDC65\。1\.\\uD834\\uDDABSs\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:919\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒚ⴄ\x{0669}\x{E0065}。⒈\x{1D1AB}ß", %p)}, undef, "to_ascii\(\'⒚ⴄ\\u0669\\uDB40\\uDC65\。⒈\\uD834\\uDDABß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:920\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒚Ⴄ\x{0669}\x{E0065}。⒈\x{1D1AB}SS", %p)}, undef, "to_ascii\(\'⒚Ⴄ\\u0669\\uDB40\\uDC65\。⒈\\uD834\\uDDABSS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:921\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒚ⴄ\x{0669}\x{E0065}。⒈\x{1D1AB}ss", %p)}, undef, "to_ascii\(\'⒚ⴄ\\u0669\\uDB40\\uDC65\。⒈\\uD834\\uDDABss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:922\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒚Ⴄ\x{0669}\x{E0065}。⒈\x{1D1AB}Ss", %p)}, undef, "to_ascii\(\'⒚Ⴄ\\u0669\\uDB40\\uDC65\。⒈\\uD834\\uDDABSs\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:923\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠.\x{200C}-\x{0662}", %p)}, undef, "to_ascii\(\'\≠\.\\u200C\-\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:925\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}.\x{200C}-\x{0662}", %p)}, undef, "to_ascii\(\'\=\\u0338\.\\u200C\-\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:927\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E78}𝟭。\x{E0825}\x{10ACB}\x{10E6D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE78𝟭。\\uDB42\\uDC25\\uD802\\uDECB\\uD803\\uDE6D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:928\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E78}1。\x{E0825}\x{10ACB}\x{10E6D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE781\。\\uDB42\\uDC25\\uD802\\uDECB\\uD803\\uDE6D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:929\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{10E77}𝟓。\x{5E121}\x{EB555}\x{A8C4}", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE77𝟓\。\\uD938\\uDD21\\uDB6D\\uDD55\\uA8C4\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:931\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{10E77}5。\x{5E121}\x{EB555}\x{A8C4}", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE775\。\\uD938\\uDD21\\uDB6D\\uDD55\\uA8C4\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:933\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{110B9}.-逋\x{8A281}\x{C017F}", %p)}, undef, "to_ascii\(\'\\uD804\\uDCB9\.\-逋\\uD9E8\\uDE81\\uDAC0\\uDD7F\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:934\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0630}。\x{3164}\x{200D}ς", %p)}, undef, "to_ascii\(\'\\u0630\。\\u3164\\u200Dς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:936\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0630}。\x{1160}\x{200D}ς", %p)}, undef, "to_ascii\(\'\\u0630\。\\u1160\\u200Dς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:938\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0630}。\x{1160}\x{200D}Σ", %p)}, undef, "to_ascii\(\'\\u0630\。\\u1160\\u200DΣ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:940\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0630}。\x{1160}\x{200D}σ", %p)}, undef, "to_ascii\(\'\\u0630\。\\u1160\\u200Dσ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:942\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0630}。\x{3164}\x{200D}Σ", %p)}, undef, "to_ascii\(\'\\u0630\。\\u3164\\u200DΣ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:944\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0630}。\x{3164}\x{200D}σ", %p)}, undef, "to_ascii\(\'\\u0630\。\\u3164\\u200Dσ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:946\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{077C}Ⴃ。\x{E98A7}\x{309A}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'\\u077CႣ。\\uDB66\\uDCA7\\u309A\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:948\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{077C}Ⴃ。\x{E98A7}\x{309A}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'\\u077CႣ\。\\uDB66\\uDCA7\\u309A\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:950\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{077C}ⴃ。\x{E98A7}\x{309A}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'\\u077Cⴃ\。\\uDB66\\uDCA7\\u309A\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:952\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{077C}ⴃ。\x{E98A7}\x{309A}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'\\u077Cⴃ。\\uDB66\\uDCA7\\u309A\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:954\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᡶ🁺.ς\\u063A\\u200C\\u200D\'\)\ throws\ error\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:956\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᡶ🁺\.ς\\u063A\\u200C\\u200D\'\)\ throws\ error\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:958\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᡶ🁺\.Σ\\u063A\\u200C\\u200D\'\)\ throws\ error\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:960\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᡶ🁺\.σ\\u063A\\u200C\\u200D\'\)\ throws\ error\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:962\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᡶ🁺.Σ\\u063A\\u200C\\u200D\'\)\ throws\ error\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:964\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᡶ🁺.σ\\u063A\\u200C\\u200D\'\)\ throws\ error\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:966\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{17B5}。\x{067F}\x{06EE}😽", %p)}, undef, "to_ascii\(\'\\u17B5\。\\u067F\\u06EE😽\'\)\ throws\ error\ P1\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:967\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E73}暑.⾑\x{0600}", %p)}, undef, "to_ascii\(\'\\u0E73暑.⾑\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:968\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E73}暑.襾\x{0600}", %p)}, undef, "to_ascii\(\'\\u0E73暑\.襾\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:969\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF8}≯\x{07DE}。\x{FB28}\x{1B42}", %p)}, undef, "to_ascii\(\'\\u2DF8\≯\\u07DE\。\\uFB28\\u1B42\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:970\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF8}>\x{0338}\x{07DE}。\x{FB28}\x{1B42}", %p)}, undef, "to_ascii\(\'\\u2DF8\>\\u0338\\u07DE\。\\uFB28\\u1B42\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:971\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF8}≯\x{07DE}。\x{05EA}\x{1B42}", %p)}, undef, "to_ascii\(\'\\u2DF8\≯\\u07DE\。\\u05EA\\u1B42\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:972\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF8}>\x{0338}\x{07DE}。\x{05EA}\x{1B42}", %p)}, undef, "to_ascii\(\'\\u2DF8\>\\u0338\\u07DE\。\\u05EA\\u1B42\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:973\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{109AE}\x{5A632}\x{1039}\x{A9C0}.\x{65732}Ⴗ", %p)}, undef, "to_ascii\(\'\\uD802\\uDDAE\\uD929\\uDE32\\u1039\\uA9C0\.\\uD955\\uDF32Ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:974\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{109AE}\x{5A632}\x{1039}\x{A9C0}.\x{65732}ⴗ", %p)}, undef, "to_ascii\(\'\\uD802\\uDDAE\\uD929\\uDE32\\u1039\\uA9C0\.\\uD955\\uDF32ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:975\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0365}。\x{0CCD}\x{436E9}\x{9992E}", %p)}, undef, "to_ascii\(\'\\u0365。\\u0CCD\\uD8CD\\uDEE9\\uDA26\\uDD2E\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:976\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0365}。\x{0CCD}\x{436E9}\x{9992E}", %p)}, undef, "to_ascii\(\'\\u0365\。\\u0CCD\\uD8CD\\uDEE9\\uDA26\\uDD2E\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:977\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DCD}\x{200C}.\x{069D}\x{200C}ꡘ", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDCD\\u200C.\\u069D\\u200Cꡘ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:979\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DCD}\x{200C}.\x{069D}\x{200C}ꡘ", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDCD\\u200C\.\\u069D\\u200Cꡘ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:981\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D9}\x{B49CE}ß.ጧ", %p)}, undef, "to_ascii\(\'\\u07D9\\uDA92\\uDDCEß\.ጧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:982\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D9}\x{B49CE}SS.ጧ", %p)}, undef, "to_ascii\(\'\\u07D9\\uDA92\\uDDCESS\.ጧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:983\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D9}\x{B49CE}ss.ጧ", %p)}, undef, "to_ascii\(\'\\u07D9\\uDA92\\uDDCEss\.ጧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:984\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D9}\x{B49CE}Ss.ጧ", %p)}, undef, "to_ascii\(\'\\u07D9\\uDA92\\uDDCESs\.ጧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:985\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EFE}\x{200C}.\x{EDBBF}\x{200C}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEFE\\u200C\.\\uDB76\\uDFBF\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:987\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0710}\x{50DE4}\x{10E7D}。Ⴜ", %p)}, undef, "to_ascii\(\'\\u0710\\uD903\\uDDE4\\uD803\\uDE7D\。Ⴜ\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:988\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0710}\x{50DE4}\x{10E7D}。ⴜ", %p)}, undef, "to_ascii\(\'\\u0710\\uD903\\uDDE4\\uD803\\uDE7D\。ⴜ\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:989\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0601}\x{2BA3}\x{200C}\x{05A6}。\x{8BF30}\x{1EB89}", %p)}, undef, "to_ascii\(\'\\u0601\\u2BA3\\u200C\\u05A6。\\uD9EF\\uDF30\\uD83A\\uDF89\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:991\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0601}\x{2BA3}\x{200C}\x{05A6}。\x{8BF30}\x{1EB89}", %p)}, undef, "to_ascii\(\'\\u0601\\u2BA3\\u200C\\u05A6\。\\uD9EF\\uDF30\\uD83A\\uDF89\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:993\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ。デß\x{07E5}\x{0DCA}", %p)}, undef, "to_ascii\(\'Ⴒ\。デß\\u07E5\\u0DCA\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:994\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ。テ\x{3099}ß\x{07E5}\x{0DCA}", %p)}, undef, "to_ascii\(\'Ⴒ\。テ\\u3099ß\\u07E5\\u0DCA\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:995\]") 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{3099}ß\x{07E5}\x{0DCA}", %p)}, undef, "to_ascii\(\'ⴒ\。テ\\u3099ß\\u07E5\\u0DCA\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:996\]") 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{0DCA}", %p)}, undef, "to_ascii\(\'ⴒ\。デß\\u07E5\\u0DCA\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:997\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴒ。デSS\x{07E5}\x{0DCA}", %p)}, undef, "to_ascii\(\'Ⴒ\。デSS\\u07E5\\u0DCA\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:998\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ。テ\x{3099}SS\x{07E5}\x{0DCA}", %p)}, undef, "to_ascii\(\'Ⴒ\。テ\\u3099SS\\u07E5\\u0DCA\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:999\]") 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{3099}ss\x{07E5}\x{0DCA}", %p)}, undef, "to_ascii\(\'ⴒ\。テ\\u3099ss\\u07E5\\u0DCA\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1000\]") 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("ⴒ。デss\x{07E5}\x{0DCA}", %p)}, undef, "to_ascii\(\'ⴒ\。デss\\u07E5\\u0DCA\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1001\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴒ。デSs\x{07E5}\x{0DCA}", %p)}, undef, "to_ascii\(\'Ⴒ\。デSs\\u07E5\\u0DCA\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1002\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ。テ\x{3099}Ss\x{07E5}\x{0DCA}", %p)}, undef, "to_ascii\(\'Ⴒ\。テ\\u3099Ss\\u07E5\\u0DCA\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1003\]") 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{094D}\x{1714}.𝟠-\x{07DE}", %p)}, undef, "to_ascii\(\'\\u094D\\u1714.𝟠\-\\u07DE\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1004\]") 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{094D}\x{1714}.8-\x{07DE}", %p)}, undef, "to_ascii\(\'\\u094D\\u1714\.8\-\\u07DE\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1005\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≯\x{0BCD}\x{0017}.\x{A806}𩬾\x{E012B}\x{077F}", %p)}, undef, "to_ascii\(\'\≯\\u0BCD\\u0017\.\\uA806𩬾\\uDB40\\uDD2B\\u077F\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1006\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{0BCD}\x{0017}.\x{A806}𩬾\x{E012B}\x{077F}", %p)}, undef, "to_ascii\(\'\>\\u0338\\u0BCD\\u0017\.\\uA806𩬾\\uDB40\\uDD2B\\u077F\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1007\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0102}\x{C9AE1}Ⴗ쏔。\x{1EFC3}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD02\\uDAE6\\uDEE1Ⴗ쏔\。\\uD83B\\uDFC3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1008\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0102}\x{C9AE1}Ⴗ쏔。\x{1EFC3}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD02\\uDAE6\\uDEE1Ⴗ쏔\。\\uD83B\\uDFC3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1009\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0102}\x{C9AE1}ⴗ쏔。\x{1EFC3}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD02\\uDAE6\\uDEE1ⴗ쏔\。\\uD83B\\uDFC3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1010\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0102}\x{C9AE1}ⴗ쏔。\x{1EFC3}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD02\\uDAE6\\uDEE1ⴗ쏔\。\\uD83B\\uDFC3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1011\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß。🄃Ⴌ\x{0FC6}", %p)}, undef, "to_ascii\(\'ß。🄃Ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1012\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß。2,Ⴌ\x{0FC6}", %p)}, undef, "to_ascii\(\'ß\。2\,Ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1013\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß。2,ⴌ\x{0FC6}", %p)}, undef, "to_ascii\(\'ß\。2\,ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1014\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS。2,Ⴌ\x{0FC6}", %p)}, undef, "to_ascii\(\'SS\。2\,Ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1015\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss。2,ⴌ\x{0FC6}", %p)}, undef, "to_ascii\(\'ss\。2\,ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1016\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß。🄃ⴌ\x{0FC6}", %p)}, undef, "to_ascii\(\'ß。🄃ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1017\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS。🄃Ⴌ\x{0FC6}", %p)}, undef, "to_ascii\(\'SS。🄃Ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1018\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss。🄃ⴌ\x{0FC6}", %p)}, undef, "to_ascii\(\'ss。🄃ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1019\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{07E0}\x{1E8C4}.\x{200C}∖\x{A953}", %p)}, undef, "to_ascii\(\'\-\\u07E0\\uD83A\\uDCC4\.\\u200C\∖\\uA953\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1021\]") 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{1BF1}\x{111C0}.☠\x{200D}", %p)}, undef, "to_ascii\(\'🏨ᠣ\\u1BF1\\uD804\\uDDC0\.\☠\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:1023\]") 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--56e26q0321avb7g.xn--h4h", %p)}, "xn--56e26q0321avb7g.xn--h4h", "to_ascii\(\'xn\-\-56e26q0321avb7g\.xn\-\-h4h\'\)\ \[data\/IdnaTest\.txt\:1024\]") 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{1BF1}\x{111C0}.☠", %p)}, "xn--56e26q0321avb7g.xn--h4h", "to_ascii\(\'🏨ᠣ\\u1BF1\\uD804\\uDDC0\.\☠\'\)\ \[data\/IdnaTest\.txt\:1025\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0FAD}\x{200D}\x{08FB}\x{077A}.\x{0853}\x{200C}\x{E0344}", %p)}, undef, "to_ascii\(\'\\u0FAD\\u200D\\u08FB\\u077A\.\\u0853\\u200C\\uDB40\\uDF44\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ B3\ C1\ \[data\/IdnaTest\.txt\:1027\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴑ.\x{062E}\x{10AC5}\x{0758}", %p)}, undef, "to_ascii\(\'Ⴑ.\\u062E\\uD802\\uDEC5\\u0758\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1028\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴑ.\x{062E}\x{10AC5}\x{0758}", %p)}, undef, "to_ascii\(\'Ⴑ\.\\u062E\\uD802\\uDEC5\\u0758\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1029\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴑ.\x{062E}\x{10AC5}\x{0758}", %p)}, undef, "to_ascii\(\'ⴑ\.\\u062E\\uD802\\uDEC5\\u0758\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1030\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴑ.\x{062E}\x{10AC5}\x{0758}", %p)}, undef, "to_ascii\(\'ⴑ.\\u062E\\uD802\\uDEC5\\u0758\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1031\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0954}\x{AD48F}\x{0DCA}。\x{10B96E}𝟻", %p)}, undef, "to_ascii\(\'\\u0954\\uDA75\\uDC8F\\u0DCA\。\\uDBEE\\uDD6E𝟻\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1032\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0954}\x{AD48F}\x{0DCA}。\x{10B96E}5", %p)}, undef, "to_ascii\(\'\\u0954\\uDA75\\uDC8F\\u0DCA\。\\uDBEE\\uDD6E5\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1033\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{062E}\x{3730B}2。Ⴣ\x{07F1}\x{1EFFA}\x{79880}", %p)}, undef, "to_ascii\(\'\\u200C\\u062E\\uD89C\\uDF0B2。Ⴣ\\u07F1\\uD83B\\uDFFA\\uD9A6\\uDC80\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1035\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{062E}\x{3730B}2。Ⴣ\x{07F1}\x{1EFFA}\x{79880}", %p)}, undef, "to_ascii\(\'\\u200C\\u062E\\uD89C\\uDF0B2\。Ⴣ\\u07F1\\uD83B\\uDFFA\\uD9A6\\uDC80\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1037\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{062E}\x{3730B}2。ⴣ\x{07F1}\x{1EFFA}\x{79880}", %p)}, undef, "to_ascii\(\'\\u200C\\u062E\\uD89C\\uDF0B2\。ⴣ\\u07F1\\uD83B\\uDFFA\\uD9A6\\uDC80\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1039\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{062E}\x{3730B}2。ⴣ\x{07F1}\x{1EFFA}\x{79880}", %p)}, undef, "to_ascii\(\'\\u200C\\u062E\\uD89C\\uDF0B2。ⴣ\\u07F1\\uD83B\\uDFFA\\uD9A6\\uDC80\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1041\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BE}。\x{116B5}\x{8ED6C}\x{E0001}-", %p)}, undef, "to_ascii\(\'\\u06BE。\\uD805\\uDEB5\\uD9FB\\uDD6C\\uDB40\\uDC01\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1042\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BE}。\x{116B5}\x{8ED6C}\x{E0001}-", %p)}, undef, "to_ascii\(\'\\u06BE\。\\uD805\\uDEB5\\uD9FB\\uDD6C\\uDB40\\uDC01\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1043\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10D4B}\x{106843}。絧\x{0953}", %p)}, undef, "to_ascii\(\'\\uD803\\uDD4B\\uDBDA\\uDC43\。絧\\u0953\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1044\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}Ⴋ.5≯︒\x{E0195}", %p)}, undef, "to_ascii\(\'\\u0DCAႫ.5\≯︒\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1045\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}Ⴋ.5>\x{0338}︒\x{E0195}", %p)}, undef, "to_ascii\(\'\\u0DCAႫ.5\>\\u0338︒\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1046\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}Ⴋ.5≯。\x{E0195}", %p)}, undef, "to_ascii\(\'\\u0DCAႫ\.5\≯\。\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1047\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}Ⴋ.5>\x{0338}。\x{E0195}", %p)}, undef, "to_ascii\(\'\\u0DCAႫ\.5\>\\u0338\。\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1048\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}ⴋ.5>\x{0338}。\x{E0195}", %p)}, undef, "to_ascii\(\'\\u0DCAⴋ\.5\>\\u0338\。\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1049\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}ⴋ.5≯。\x{E0195}", %p)}, undef, "to_ascii\(\'\\u0DCAⴋ\.5\≯\。\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1050\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}ⴋ.5>\x{0338}︒\x{E0195}", %p)}, undef, "to_ascii\(\'\\u0DCAⴋ.5\>\\u0338︒\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1051\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}ⴋ.5≯︒\x{E0195}", %p)}, undef, "to_ascii\(\'\\u0DCAⴋ.5\≯︒\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1052\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}F\x{A806}。\x{2DFA}︒\x{07E6}\x{10E75}", %p)}, undef, "to_ascii\(\'\\u200DF\\uA806\。\\u2DFA︒\\u07E6\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1054\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}F\x{A806}。\x{2DFA}。\x{07E6}\x{10E75}", %p)}, undef, "to_ascii\(\'\\u200DF\\uA806\。\\u2DFA\。\\u07E6\\uD803\\uDE75\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1056\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}f\x{A806}。\x{2DFA}。\x{07E6}\x{10E75}", %p)}, undef, "to_ascii\(\'\\u200Df\\uA806\。\\u2DFA\。\\u07E6\\uD803\\uDE75\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1058\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}f\x{A806}。\x{2DFA}︒\x{07E6}\x{10E75}", %p)}, undef, "to_ascii\(\'\\u200Df\\uA806\。\\u2DFA︒\\u07E6\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1060\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{068C}𝟖\x{FC29}︒。\x{10E77}\x{17D2}", %p)}, undef, "to_ascii\(\'\\u068C𝟖\\uFC29︒。\\uD803\\uDE77\\u17D2\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:1061\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{068C}8\x{0639}\x{062C}。。\x{10E77}\x{17D2}", %p)}, undef, "to_ascii\(\'\\u068C8\\u0639\\u062C\。\。\\uD803\\uDE77\\u17D2\'\)\ throws\ error\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1062\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FCDF}.\x{E01B6}\x{0650}\x{08BB}", %p)}, undef, "to_ascii\(\'\\uFCDF\.\\uDB40\\uDDB6\\u0650\\u08BB\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1063\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0626}\x{0645}.\x{E01B6}\x{0650}\x{08BB}", %p)}, undef, "to_ascii\(\'\\u0626\\u0645\.\\uDB40\\uDDB6\\u0650\\u08BB\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1064\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{064A}\x{0654}\x{0645}.\x{E01B6}\x{0650}\x{08BB}", %p)}, undef, "to_ascii\(\'\\u064A\\u0654\\u0645\.\\uDB40\\uDDB6\\u0650\\u08BB\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1065\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴂ䠺。\x{0683}\x{DB798}\x{5A942}\x{084A}", %p)}, undef, "to_ascii\(\'Ⴂ䠺\。\\u0683\\uDB2D\\uDF98\\uD92A\\uDD42\\u084A\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1066\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴂ䠺。\x{0683}\x{DB798}\x{5A942}\x{084A}", %p)}, undef, "to_ascii\(\'ⴂ䠺\。\\u0683\\uDB2D\\uDF98\\uD92A\\uDD42\\u084A\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1067\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟚伐︒.\x{85C24}\x{0A4D}", %p)}, undef, "to_ascii\(\'𝟚伐︒\.\\uD9D7\\uDC24\\u0A4D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1068\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2伐。.\x{85C24}\x{0A4D}", %p)}, undef, "to_ascii\(\'2伐\。\.\\uD9D7\\uDC24\\u0A4D\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1069\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E79}\x{0B4D}\x{E001B}。\x{200D}\x{07DC}Ⴚ\x{1039}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE79\\u0B4D\\uDB40\\uDC1B\。\\u200D\\u07DCႺ\\u1039\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1071\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{10E79}\x{0B4D}\x{E001B}。\x{200D}\x{07DC}ⴚ\x{1039}", %p)}, undef, "to_ascii\(\'\\u200D\\uD803\\uDE79\\u0B4D\\uDB40\\uDC1B\。\\u200D\\u07DCⴚ\\u1039\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1073\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A70}.\x{1AAC0}\x{666A4}", %p)}, undef, "to_ascii\(\'\\u0A70.\\uD82A\\uDEC0\\uD959\\uDEA4\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1074\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A70}.\x{1AAC0}\x{666A4}", %p)}, undef, "to_ascii\(\'\\u0A70\.\\uD82A\\uDEC0\\uD959\\uDEA4\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1075\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡰ\x{200C}Ⴆ.≠\x{10F03}", %p)}, undef, "to_ascii\(\'ꡰ\\u200CႦ\.\≠\\uD803\\uDF03\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1077\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡰ\x{200C}Ⴆ.=\x{0338}\x{10F03}", %p)}, undef, "to_ascii\(\'ꡰ\\u200CႦ\.\=\\u0338\\uD803\\uDF03\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1079\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡰ\x{200C}ⴆ.=\x{0338}\x{10F03}", %p)}, undef, "to_ascii\(\'ꡰ\\u200Cⴆ\.\=\\u0338\\uD803\\uDF03\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1081\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡰ\x{200C}ⴆ.≠\x{10F03}", %p)}, undef, "to_ascii\(\'ꡰ\\u200Cⴆ\.\≠\\uD803\\uDF03\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1083\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1030}\x{14A04}₀ꘌ.\x{067F}", %p)}, undef, "to_ascii\(\'\\u1030\\uD812\\uDE04₀ꘌ.\\u067F\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1084\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1030}\x{14A04}0ꘌ.\x{067F}", %p)}, undef, "to_ascii\(\'\\u1030\\uD812\\uDE040ꘌ\.\\u067F\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1085\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.\x{07F0}\x{BC92C}-", %p)}, undef, "to_ascii\(\'\-\.\\u07F0\\uDAB2\\uDD2C\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1086\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7227F}\x{200C}。\x{200C}\x{1EC50}ς", %p)}, undef, "to_ascii\(\'\\uD988\\uDE7F\\u200C。\\u200C\\uD83B\\uDC50ς\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1088\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7227F}\x{200C}。\x{200C}\x{1EC50}ς", %p)}, undef, "to_ascii\(\'\\uD988\\uDE7F\\u200C\。\\u200C\\uD83B\\uDC50ς\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1090\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7227F}\x{200C}。\x{200C}\x{1EC50}Σ", %p)}, undef, "to_ascii\(\'\\uD988\\uDE7F\\u200C\。\\u200C\\uD83B\\uDC50Σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1092\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7227F}\x{200C}。\x{200C}\x{1EC50}σ", %p)}, undef, "to_ascii\(\'\\uD988\\uDE7F\\u200C\。\\u200C\\uD83B\\uDC50σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1094\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7227F}\x{200C}。\x{200C}\x{1EC50}Σ", %p)}, undef, "to_ascii\(\'\\uD988\\uDE7F\\u200C。\\u200C\\uD83B\\uDC50Σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1096\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7227F}\x{200C}。\x{200C}\x{1EC50}σ", %p)}, undef, "to_ascii\(\'\\uD988\\uDE7F\\u200C。\\u200C\\uD83B\\uDC50σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1098\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("堕\x{094D}\x{E0A2D}。\x{07D8}\x{0722}\x{200C}-", %p)}, undef, "to_ascii\(\'堕\\u094D\\uDB42\\uDE2D\。\\u07D8\\u0722\\u200C\-\'\)\ throws\ error\ P1\ V6\ V3\ B3\ C1\ \[data\/IdnaTest\.txt\:1100\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}ς\x{0847}ς", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726。\\u07E9ς\\u0847ς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1101\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}ς\x{0847}ς", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726\。\\u07E9ς\\u0847ς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1102\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}Σ\x{0847}Σ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726\。\\u07E9Σ\\u0847Σ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1103\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}σ\x{0847}σ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726\。\\u07E9σ\\u0847σ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1104\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}Σ\x{0847}σ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726\。\\u07E9Σ\\u0847σ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1105\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}Σ\x{0847}ς", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726\。\\u07E9Σ\\u0847ς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1106\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}σ\x{0847}ς", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726\。\\u07E9σ\\u0847ς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1107\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}Σ\x{0847}Σ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726。\\u07E9Σ\\u0847Σ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1108\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}σ\x{0847}σ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726。\\u07E9σ\\u0847σ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1109\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}Σ\x{0847}σ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726。\\u07E9Σ\\u0847σ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1110\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}Σ\x{0847}ς", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726。\\u07E9Σ\\u0847ς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1111\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}σ\x{0847}ς", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726。\\u07E9σ\\u0847ς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1112\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{BBB8C}.-5ß", %p)}, undef, "to_ascii\(\'\\uDAAE\\uDF8C.\-5ß\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1113\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{BBB8C}.-5ß", %p)}, undef, "to_ascii\(\'\\uDAAE\\uDF8C\.\-5ß\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1114\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{BBB8C}.-5SS", %p)}, undef, "to_ascii\(\'\\uDAAE\\uDF8C\.\-5SS\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1115\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{BBB8C}.-5SS", %p)}, undef, "to_ascii\(\'\\uDAAE\\uDF8C.\-5SS\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1116\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{A806}.\x{0FA6}Ⴥ\x{15445}", %p)}, undef, "to_ascii\(\'\\u200D\\uA806\.\\u0FA6Ⴥ\\uD815\\uDC45\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1118\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{A806}.\x{0FA6}ⴥ\x{15445}", %p)}, undef, "to_ascii\(\'\\u200D\\uA806\.\\u0FA6ⴥ\\uD815\\uDC45\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1120\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DEA33}。ß樲\x{200D}", %p)}, undef, "to_ascii\(\'\\uDB3A\\uDE33\。ß樲\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1122\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DEA33}。SS樲\x{200D}", %p)}, undef, "to_ascii\(\'\\uDB3A\\uDE33\。SS樲\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1124\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DEA33}。ss樲\x{200D}", %p)}, undef, "to_ascii\(\'\\uDB3A\\uDE33\。ss樲\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1126\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DEA33}。Ss樲\x{200D}", %p)}, undef, "to_ascii\(\'\\uDB3A\\uDE33\。Ss樲\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1128\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1413C}。\x{FE24}\x{E0BE1}\x{10CD0}", %p)}, undef, "to_ascii\(\'\\u200C\\uD810\\uDD3C\。\\uFE24\\uDB42\\uDFE1\\uD803\\uDCD0\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:1130\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{109FD}\x{200C}\x{0735}。\x{0602}", %p)}, undef, "to_ascii\(\'\\uD802\\uDDFD\\u200C\\u0735\。\\u0602\'\)\ throws\ error\ P1\ V6\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1132\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}ς≠", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4ς\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1134\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}ς=\x{0338}", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4ς\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1136\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}ς≠", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4ς\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1138\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}ς=\x{0338}", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4ς\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1140\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}Σ=\x{0338}", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4Σ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1142\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}Σ≠", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4Σ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1144\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}σ≠", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4σ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1146\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}σ=\x{0338}", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4σ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1148\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}Σ=\x{0338}", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4Σ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1150\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}Σ≠", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4Σ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1152\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}σ≠", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4σ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1154\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}σ=\x{0338}", %p)}, undef, "to_ascii\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4σ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1156\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6。⒈\x{200D}\x{1B4F1}", %p)}, undef, "to_ascii\(\'6。⒈\\u200D\\uD82D\\uDCF1\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1158\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6。1.\x{200D}\x{1B4F1}", %p)}, undef, "to_ascii\(\'6\。1\.\\u200D\\uD82D\\uDCF1\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1160\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠬß。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_ascii\(\'ᠬß。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1161\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠬß。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_ascii\(\'ᠬß\。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1162\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠬSS。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_ascii\(\'ᠬSS\。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1163\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠬss。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_ascii\(\'ᠬss\。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1164\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠬSs。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_ascii\(\'ᠬSs\。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1165\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠬSS。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_ascii\(\'ᠬSS。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1166\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠬss。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_ascii\(\'ᠬss。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1167\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠬSs。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_ascii\(\'ᠬSs。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1168\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0666}\x{17D2}\x{593A5}.\x{0AE2}\x{0F93}\x{1A60}\x{0D4D}", %p)}, undef, "to_ascii\(\'\\u0666\\u17D2\\uD924\\uDFA5\.\\u0AE2\\u0F93\\u1A60\\u0D4D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1169\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0666}\x{17D2}\x{593A5}.\x{0AE2}\x{0F92}\x{0FB7}\x{1A60}\x{0D4D}", %p)}, undef, "to_ascii\(\'\\u0666\\u17D2\\uD924\\uDFA5\.\\u0AE2\\u0F92\\u0FB7\\u1A60\\u0D4D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1170\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴓ\x{ABED}\x{200D}\x{34F17}.ᠹ\x{E0077}", %p)}, undef, "to_ascii\(\'Ⴓ\\uABED\\u200D\\uD893\\uDF17.ᠹ\\uDB40\\uDC77\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1171\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴓ\x{ABED}\x{200D}\x{34F17}.ᠹ\x{E0077}", %p)}, undef, "to_ascii\(\'Ⴓ\\uABED\\u200D\\uD893\\uDF17\.ᠹ\\uDB40\\uDC77\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1172\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴓ\x{ABED}\x{200D}\x{34F17}.ᠹ\x{E0077}", %p)}, undef, "to_ascii\(\'ⴓ\\uABED\\u200D\\uD893\\uDF17\.ᠹ\\uDB40\\uDC77\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1173\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴓ\x{ABED}\x{200D}\x{34F17}.ᠹ\x{E0077}", %p)}, undef, "to_ascii\(\'ⴓ\\uABED\\u200D\\uD893\\uDF17.ᠹ\\uDB40\\uDC77\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1174\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{E0126}", %p)}, undef, "to_ascii\(\'\\uA9C0\.𝟕\\uDB40\\uDD26\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1175\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}.7\x{E0126}", %p)}, undef, "to_ascii\(\'\\uA9C0\.7\\uDB40\\uDD26\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1176\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{539F1}\x{FCF44}𝟗。\x{206E}-", %p)}, undef, "to_ascii\(\'\\uD90E\\uDDF1\\uDBB3\\uDF44𝟗\。\\u206E\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1177\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{539F1}\x{FCF44}9。\x{206E}-", %p)}, undef, "to_ascii\(\'\\uD90E\\uDDF1\\uDBB3\\uDF449\。\\u206E\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1178\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1AE33}ᠩ\x{10E69}。\x{10E79}\x{0631}\x{0684}", %p)}, undef, "to_ascii\(\'\\uD82B\\uDE33ᠩ\\uD803\\uDE69\。\\uD803\\uDE79\\u0631\\u0684\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1179\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}ᡒႾ₈.⤴\x{06B0}\x{A9053}\x{200C}", %p)}, undef, "to_ascii\(\'\\u200DᡒႾ₈\.\⤴\\u06B0\\uDA64\\uDC53\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1181\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}ᡒႾ8.⤴\x{06B0}\x{A9053}\x{200C}", %p)}, undef, "to_ascii\(\'\\u200DᡒႾ8\.\⤴\\u06B0\\uDA64\\uDC53\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1183\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}ᡒⴞ8.⤴\x{06B0}\x{A9053}\x{200C}", %p)}, undef, "to_ascii\(\'\\u200Dᡒⴞ8\.\⤴\\u06B0\\uDA64\\uDC53\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1185\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}ᡒⴞ₈.⤴\x{06B0}\x{A9053}\x{200C}", %p)}, undef, "to_ascii\(\'\\u200Dᡒⴞ₈\.\⤴\\u06B0\\uDA64\\uDC53\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1187\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E6A}ᠮ.\x{0E3A}\x{7BCB7}⾆", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6Aᠮ.\\u0E3A\\uD9AF\\uDCB7⾆\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1188\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E6A}ᠮ.\x{0E3A}\x{7BCB7}舌", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6Aᠮ\.\\u0E3A\\uD9AF\\uDCB7舌\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1189\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE06}⌆\x{8DF53}.\x{76578}", %p)}, undef, "to_ascii\(\'\\uFE06\⌆\\uD9F7\\uDF53\.\\uD999\\uDD78\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1190\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0735}\x{8B6EA}-죀.4Ⴄ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0735\\uD9ED\\uDEEA\-죀\.4Ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1192\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0735}\x{8B6EA}-죀.4Ⴄ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0735\\uD9ED\\uDEEA\-죀\.4Ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1194\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0735}\x{8B6EA}-죀.4ⴄ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0735\\uD9ED\\uDEEA\-죀\.4ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1196\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0735}\x{8B6EA}-죀.4ⴄ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0735\\uD9ED\\uDEEA\-죀\.4ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1198\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。\x{E0BBD}ß\x{1D1AA}", %p)}, undef, "to_ascii\(\'ᚭ。\\uDB42\\uDFBDß\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1199\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。\x{E0BBD}ß\x{1D1AA}", %p)}, undef, "to_ascii\(\'ᚭ\。\\uDB42\\uDFBDß\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1200\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。\x{E0BBD}SS\x{1D1AA}", %p)}, undef, "to_ascii\(\'ᚭ\。\\uDB42\\uDFBDSS\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1201\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。\x{E0BBD}ss\x{1D1AA}", %p)}, undef, "to_ascii\(\'ᚭ\。\\uDB42\\uDFBDss\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1202\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。\x{E0BBD}Ss\x{1D1AA}", %p)}, undef, "to_ascii\(\'ᚭ\。\\uDB42\\uDFBDSs\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1203\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。\x{E0BBD}SS\x{1D1AA}", %p)}, undef, "to_ascii\(\'ᚭ。\\uDB42\\uDFBDSS\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1204\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。\x{E0BBD}ss\x{1D1AA}", %p)}, undef, "to_ascii\(\'ᚭ。\\uDB42\\uDFBDss\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1205\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。\x{E0BBD}Ss\x{1D1AA}", %p)}, undef, "to_ascii\(\'ᚭ。\\uDB42\\uDFBDSs\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1206\]") 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{08A4}ꡞ", %p)}, undef, "to_ascii\(\'0。\\u08A4ꡞ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1207\]") 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{08A4}ꡞ", %p)}, undef, "to_ascii\(\'0\。\\u08A4ꡞ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1208\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{144FD}\x{200C}.\x{087F}麷\x{E8D37}", %p)}, undef, "to_ascii\(\'\\uD811\\uDCFD\\u200C\.\\u087F麷\\uDB63\\uDD37\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1210\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{035B}≯。\x{E061D}", %p)}, undef, "to_ascii\(\'\\u035B\≯。\\uDB41\\uDE1D\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1211\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{035B}>\x{0338}。\x{E061D}", %p)}, undef, "to_ascii\(\'\\u035B\>\\u0338。\\uDB41\\uDE1D\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1212\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{035B}≯。\x{E061D}", %p)}, undef, "to_ascii\(\'\\u035B\≯\。\\uDB41\\uDE1D\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1213\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{035B}>\x{0338}。\x{E061D}", %p)}, undef, "to_ascii\(\'\\u035B\>\\u0338\。\\uDB41\\uDE1D\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1214\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴋ≮\x{104620}。\x{200D}\x{E016B}۹", %p)}, undef, "to_ascii\(\'Ⴋ\≮\\uDBD1\\uDE20\。\\u200D\\uDB40\\uDD6B۹\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1216\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴋ<\x{0338}\x{104620}。\x{200D}\x{E016B}۹", %p)}, undef, "to_ascii\(\'Ⴋ\<\\u0338\\uDBD1\\uDE20\。\\u200D\\uDB40\\uDD6B۹\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1218\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴋ<\x{0338}\x{104620}。\x{200D}\x{E016B}۹", %p)}, undef, "to_ascii\(\'ⴋ\<\\u0338\\uDBD1\\uDE20\。\\u200D\\uDB40\\uDD6B۹\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1220\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴋ≮\x{104620}。\x{200D}\x{E016B}۹", %p)}, undef, "to_ascii\(\'ⴋ\≮\\uDBD1\\uDE20\。\\u200D\\uDB40\\uDD6B۹\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1222\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}.\x{72EEA}≯", %p)}, undef, "to_ascii\(\'\\u0B4D\.\\uD98B\\uDEEA\≯\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1223\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}.\x{72EEA}>\x{0338}", %p)}, undef, "to_ascii\(\'\\u0B4D\.\\uD98B\\uDEEA\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1224\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0BF9}\x{1BF3}.\x{1921}É\x{1D168}\x{1BAB}", %p)}, undef, "to_ascii\(\'\\uDAC2\\uDFF9\\u1BF3.\\u1921É\\uD834\\uDD68\\u1BAB\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1225\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0BF9}\x{1BF3}.\x{1921}E\x{1D168}\x{1BAB}\x{0301}", %p)}, undef, "to_ascii\(\'\\uDAC2\\uDFF9\\u1BF3.\\u1921E\\uD834\\uDD68\\u1BAB\\u0301\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1226\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0BF9}\x{1BF3}.\x{1921}É\x{1D168}\x{1BAB}", %p)}, undef, "to_ascii\(\'\\uDAC2\\uDFF9\\u1BF3\.\\u1921É\\uD834\\uDD68\\u1BAB\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1227\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0BF9}\x{1BF3}.\x{1921}E\x{1D168}\x{1BAB}\x{0301}", %p)}, undef, "to_ascii\(\'\\uDAC2\\uDFF9\\u1BF3\.\\u1921E\\uD834\\uDD68\\u1BAB\\u0301\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1228\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0BF9}\x{1BF3}.\x{1921}e\x{1D168}\x{1BAB}\x{0301}", %p)}, undef, "to_ascii\(\'\\uDAC2\\uDFF9\\u1BF3\.\\u1921e\\uD834\\uDD68\\u1BAB\\u0301\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1229\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0BF9}\x{1BF3}.\x{1921}é\x{1D168}\x{1BAB}", %p)}, undef, "to_ascii\(\'\\uDAC2\\uDFF9\\u1BF3\.\\u1921é\\uD834\\uDD68\\u1BAB\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1230\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0BF9}\x{1BF3}.\x{1921}e\x{1D168}\x{1BAB}\x{0301}", %p)}, undef, "to_ascii\(\'\\uDAC2\\uDFF9\\u1BF3.\\u1921e\\uD834\\uDD68\\u1BAB\\u0301\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1231\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0BF9}\x{1BF3}.\x{1921}é\x{1D168}\x{1BAB}", %p)}, undef, "to_ascii\(\'\\uDAC2\\uDFF9\\u1BF3.\\u1921é\\uD834\\uDD68\\u1BAB\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1232\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡔ\x{200D}\x{0E3A}。︒\x{08A0}", %p)}, undef, "to_ascii\(\'ᡔ\\u200D\\u0E3A。︒\\u08A0\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1234\]") 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{0E3A}。。\x{08A0}", %p)}, undef, "to_ascii\(\'ᡔ\\u200D\\u0E3A\。\。\\u08A0\'\)\ throws\ error\ C2\ A4_2\ \[data\/IdnaTest\.txt\:1236\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{069B}\x{84E75}\x{AAF6}\x{200C}。ᢟ\x{E01A6}≮", %p)}, undef, "to_ascii\(\'\\u069B\\uD9D3\\uDE75\\uAAF6\\u200C。ᢟ\\uDB40\\uDDA6\≮\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1237\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{069B}\x{84E75}\x{AAF6}\x{200C}。ᢟ\x{E01A6}<\x{0338}", %p)}, undef, "to_ascii\(\'\\u069B\\uD9D3\\uDE75\\uAAF6\\u200C。ᢟ\\uDB40\\uDDA6\<\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1238\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{069B}\x{84E75}\x{AAF6}\x{200C}。ᢟ\x{E01A6}≮", %p)}, undef, "to_ascii\(\'\\u069B\\uD9D3\\uDE75\\uAAF6\\u200C\。ᢟ\\uDB40\\uDDA6\≮\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1239\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{069B}\x{84E75}\x{AAF6}\x{200C}。ᢟ\x{E01A6}<\x{0338}", %p)}, undef, "to_ascii\(\'\\u069B\\uD9D3\\uDE75\\uAAF6\\u200C\。ᢟ\\uDB40\\uDDA6\<\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴣ.\x{1DC5}\x{0693}", %p)}, undef, "to_ascii\(\'Ⴣ.\\u1DC5\\u0693\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1241\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴣ.\x{1DC5}\x{0693}", %p)}, undef, "to_ascii\(\'Ⴣ\.\\u1DC5\\u0693\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1242\]") 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{1DC5}\x{0693}", %p)}, undef, "to_ascii\(\'ⴣ\.\\u1DC5\\u0693\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1243\]") 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{1DC5}\x{0693}", %p)}, undef, "to_ascii\(\'ⴣ.\\u1DC5\\u0693\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1244\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("🀽\x{FD4D}.\x{10B5F2}\x{6B40F}Ⴤ\x{E9058}", %p)}, undef, "to_ascii\(\'🀽\\uFD4D.\\uDBED\\uDDF2\\uD96D\\uDC0FჄ\\uDB64\\uDC58\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1245\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🀽\x{FD4D}.\x{10B5F2}\x{6B40F}Ⴤ\x{E9058}", %p)}, undef, "to_ascii\(\'🀽\\uFD4D\.\\uDBED\\uDDF2\\uD96D\\uDC0FჄ\\uDB64\\uDC58\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1246\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🀽\x{FD4D}.\x{10B5F2}\x{6B40F}ⴤ\x{E9058}", %p)}, undef, "to_ascii\(\'🀽\\uFD4D\.\\uDBED\\uDDF2\\uD96D\\uDC0Fⴤ\\uDB64\\uDC58\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1247\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🀽\x{FD4D}.\x{10B5F2}\x{6B40F}ⴤ\x{E9058}", %p)}, undef, "to_ascii\(\'🀽\\uFD4D.\\uDBED\\uDDF2\\uD96D\\uDC0Fⴤ\\uDB64\\uDC58\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1248\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE0C}\x{E01EB}≮.\x{E0C70}", %p)}, undef, "to_ascii\(\'\\uFE0C\\uDB40\\uDDEB\≮.\\uDB43\\uDC70\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1249\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE0C}\x{E01EB}<\x{0338}.\x{E0C70}", %p)}, undef, "to_ascii\(\'\\uFE0C\\uDB40\\uDDEB\<\\u0338.\\uDB43\\uDC70\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1250\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE0C}\x{E01EB}≮.\x{E0C70}", %p)}, undef, "to_ascii\(\'\\uFE0C\\uDB40\\uDDEB\≮\.\\uDB43\\uDC70\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1251\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE0C}\x{E01EB}<\x{0338}.\x{E0C70}", %p)}, undef, "to_ascii\(\'\\uFE0C\\uDB40\\uDDEB\<\\u0338\.\\uDB43\\uDC70\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1252\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}≮Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\≮Ⴢ.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1253\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}<\x{0338}Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\<\\u0338Ⴢ.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}≮Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\≮Ⴢ\.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1255\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}<\x{0338}Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\<\\u0338Ⴢ\.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1256\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}<\x{0338}ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\<\\u0338ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1257\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}≮ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\≮ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1258\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}≮Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\≮Ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1259\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}<\x{0338}Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\<\\u0338Ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1260\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}<\x{0338}ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\<\\u0338ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1261\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}≮ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\≮ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1262\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}≮Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\≮Ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1263\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E77}\x{1ECCC}<\x{0338}Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE77\\uD83B\\uDCCC\<\\u0338Ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1264\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DD3}。-", %p)}, undef, "to_ascii\(\'\\u0DD3\。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1265\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A8C4}\x{7F225}\x{E0520}。饈≠\x{10E6A}", %p)}, undef, "to_ascii\(\'\\uA8C4\\uD9BC\\uDE25\\uDB41\\uDD20。饈\≠\\uD803\\uDE6A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1266\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A8C4}\x{7F225}\x{E0520}。饈=\x{0338}\x{10E6A}", %p)}, undef, "to_ascii\(\'\\uA8C4\\uD9BC\\uDE25\\uDB41\\uDD20。饈\=\\u0338\\uD803\\uDE6A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1267\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A8C4}\x{7F225}\x{E0520}。饈≠\x{10E6A}", %p)}, undef, "to_ascii\(\'\\uA8C4\\uD9BC\\uDE25\\uDB41\\uDD20\。饈\≠\\uD803\\uDE6A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1268\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A8C4}\x{7F225}\x{E0520}。饈=\x{0338}\x{10E6A}", %p)}, undef, "to_ascii\(\'\\uA8C4\\uD9BC\\uDE25\\uDB41\\uDD20\。饈\=\\u0338\\uD803\\uDE6A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1269\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0719}ᡊ4。≯邅\x{E0036}4", %p)}, undef, "to_ascii\(\'\\u0719ᡊ4。\≯邅\\uDB40\\uDC364\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1270\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0719}ᡊ4。>\x{0338}邅\x{E0036}4", %p)}, undef, "to_ascii\(\'\\u0719ᡊ4。\>\\u0338邅\\uDB40\\uDC364\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1271\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0719}ᡊ4。≯邅\x{E0036}4", %p)}, undef, "to_ascii\(\'\\u0719ᡊ4\。\≯邅\\uDB40\\uDC364\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1272\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0719}ᡊ4。>\x{0338}邅\x{E0036}4", %p)}, undef, "to_ascii\(\'\\u0719ᡊ4\。\>\\u0338邅\\uDB40\\uDC364\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1273\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7FE19}ᡳ-\x{07EF}.\x{0667}⒚\x{10E7D}\x{3018B}", %p)}, undef, "to_ascii\(\'\\uD9BF\\uDE19ᡳ\-\\u07EF\.\\u0667⒚\\uD803\\uDE7D\\uD880\\uDD8B\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1274\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7FE19}ᡳ-\x{07EF}.\x{0667}19.\x{10E7D}\x{3018B}", %p)}, undef, "to_ascii\(\'\\uD9BF\\uDE19ᡳ\-\\u07EF\.\\u066719\.\\uD803\\uDE7D\\uD880\\uDD8B\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1275\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B2908}ᠹ\x{1D189}.넨-\x{F51CC}", %p)}, undef, "to_ascii\(\'\\uDA8A\\uDD08ᠹ\\uD834\\uDD89\.넨\-\\uDB94\\uDDCC\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1276\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B2908}ᠹ\x{1D189}.넨-\x{F51CC}", %p)}, undef, "to_ascii\(\'\\uDA8A\\uDD08ᠹ\\uD834\\uDD89\.넨\-\\uDB94\\uDDCC\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1277\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06AB}ᡣ\x{200D}⒈。𝟏-", %p)}, undef, "to_ascii\(\'\\u06ABᡣ\\u200D⒈\。𝟏\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ C2\ \[data\/IdnaTest\.txt\:1279\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06AB}ᡣ\x{200D}1.。1-", %p)}, undef, "to_ascii\(\'\\u06ABᡣ\\u200D1\.\。1\-\'\)\ throws\ error\ V3\ B2\ C2\ A4_2\ \[data\/IdnaTest\.txt\:1281\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴌ。\x{42924}\x{10C42}", %p)}, undef, "to_ascii\(\'Ⴌ\。\\uD8CA\\uDD24\\uD803\\uDC42\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1282\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴌ。\x{42924}\x{10C42}", %p)}, undef, "to_ascii\(\'ⴌ\。\\uD8CA\\uDD24\\uD803\\uDC42\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1283\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢜ\x{FC90}.\x{A806}\x{E01BB}-\x{128AD}", %p)}, undef, "to_ascii\(\'ᢜ\\uFC90\.\\uA806\\uDB40\\uDDBB\-\\uD80A\\uDCAD\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1284\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢜ\x{0649}\x{0670}.\x{A806}\x{E01BB}-\x{128AD}", %p)}, undef, "to_ascii\(\'ᢜ\\u0649\\u0670\.\\uA806\\uDB40\\uDDBB\-\\uD80A\\uDCAD\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1285\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{592AE}\x{200D}-。웈", %p)}, undef, "to_ascii\(\'⒈\\uD924\\uDEAE\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1287\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{592AE}\x{200D}-。웈", %p)}, undef, "to_ascii\(\'⒈\\uD924\\uDEAE\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1289\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{592AE}\x{200D}-。웈", %p)}, undef, "to_ascii\(\'1\.\\uD924\\uDEAE\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1291\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{592AE}\x{200D}-。웈", %p)}, undef, "to_ascii\(\'1\.\\uD924\\uDEAE\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1293\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{07F0}\x{A8E1}", %p)}, undef, "to_ascii\(\'て\。\\u200C\\u07F0\\uA8E1\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:1295\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ς。\x{0CCD}\x{0BC0}", %p)}, undef, "to_ascii\(\'ς。\\u0CCD\\u0BC0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1296\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς。\x{0CCD}\x{0BC0}", %p)}, undef, "to_ascii\(\'ς\。\\u0CCD\\u0BC0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1297\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ。\x{0CCD}\x{0BC0}", %p)}, undef, "to_ascii\(\'Σ\。\\u0CCD\\u0BC0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1298\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ。\x{0CCD}\x{0BC0}", %p)}, undef, "to_ascii\(\'σ\。\\u0CCD\\u0BC0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1299\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ。\x{0CCD}\x{0BC0}", %p)}, undef, "to_ascii\(\'Σ。\\u0CCD\\u0BC0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1300\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ。\x{0CCD}\x{0BC0}", %p)}, undef, "to_ascii\(\'σ。\\u0CCD\\u0BC0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1301\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A806}\x{C9B09}\x{A5208}.ႢႵ", %p)}, undef, "to_ascii\(\'\\uA806\\uDAE6\\uDF09\\uDA54\\uDE08\.ႢႵ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1302\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A806}\x{C9B09}\x{A5208}.ⴂⴕ", %p)}, undef, "to_ascii\(\'\\uA806\\uDAE6\\uDF09\\uDA54\\uDE08\.ⴂⴕ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1303\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A806}\x{C9B09}\x{A5208}.Ⴂⴕ", %p)}, undef, "to_ascii\(\'\\uA806\\uDAE6\\uDF09\\uDA54\\uDE08\.Ⴂⴕ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1304\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0A58}𝟖⾛\x{1BE9}.\x{200D}\x{67B78}\x{10CFE}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDE58𝟖⾛\\u1BE9.\\u200D\\uD95E\\uDF78\\uD803\\uDCFE\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1306\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0A58}8走\x{1BE9}.\x{200D}\x{67B78}\x{10CFE}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDE588走\\u1BE9\.\\u200D\\uD95E\\uDF78\\uD803\\uDCFE\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1308\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{084E}。Ӏ\x{712A9}", %p)}, undef, "to_ascii\(\'\\u084E。Ӏ\\uD984\\uDEA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1309\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{084E}。Ӏ\x{712A9}", %p)}, undef, "to_ascii\(\'\\u084E\。Ӏ\\uD984\\uDEA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1310\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{084E}。ӏ\x{712A9}", %p)}, undef, "to_ascii\(\'\\u084E\。ӏ\\uD984\\uDEA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1311\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{084E}。ӏ\x{712A9}", %p)}, undef, "to_ascii\(\'\\u084E。ӏ\\uD984\\uDEA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1312\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E7A}-。\x{C489F}\x{E034E}ᄾ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7A\-\。\\uDAD2\\uDC9F\\uDB40\\uDF4Eᄾ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1313\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-₆\x{0F95}。\x{0B3F}", %p)}, undef, "to_ascii\(\'\-₆\\u0F95\。\\u0B3F\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1314\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-6\x{0F95}。\x{0B3F}", %p)}, undef, "to_ascii\(\'\-6\\u0F95\。\\u0B3F\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1315\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{10E71}\x{E0EC8}멈.\x{09CD}\x{718A4}", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE71\\uDB43\\uDEC8멈\.\\u09CD\\uD986\\uDCA4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:1317\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{10E71}\x{E0EC8}멈.\x{09CD}\x{718A4}", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE71\\uDB43\\uDEC8멈\.\\u09CD\\uD986\\uDCA4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:1319\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.\x{06D3}\x{10E77}", %p)}, undef, "to_ascii\(\'\≮\.\\u06D3\\uD803\\uDE77\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1320\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.\x{06D2}\x{0654}\x{10E77}", %p)}, undef, "to_ascii\(\'\<\\u0338\.\\u06D2\\u0654\\uD803\\uDE77\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1321\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10C39}⾆。\x{200C}\x{0ACD}\x{B9E17}\x{108DA}", %p)}, undef, "to_ascii\(\'\\uD803\\uDC39⾆。\\u200C\\u0ACD\\uDAA7\\uDE17\\uD802\\uDCDA\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:1323\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10C39}舌。\x{200C}\x{0ACD}\x{B9E17}\x{108DA}", %p)}, undef, "to_ascii\(\'\\uD803\\uDC39舌\。\\u200C\\u0ACD\\uDAA7\\uDE17\\uD802\\uDCDA\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:1325\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴠ-.9ς\x{10F8C}ς", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.9ς\\uD803\\uDF8Cς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1327\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ⴠ-.9ς\x{10F8C}ς", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.9ς\\uD803\\uDF8Cς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1329\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴠ-.9Σ\x{10F8C}Σ", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.9Σ\\uD803\\uDF8CΣ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1331\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ⴠ-.9σ\x{10F8C}σ", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.9σ\\uD803\\uDF8Cσ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1333\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0354}\x{E011B}\x{1E7F6}。𝟮Ⴜ", %p)}, undef, "to_ascii\(\'\\u0354\\uDB40\\uDD1B\\uD839\\uDFF6。𝟮Ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1334\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0354}\x{E011B}\x{1E7F6}。2Ⴜ", %p)}, undef, "to_ascii\(\'\\u0354\\uDB40\\uDD1B\\uD839\\uDFF6\。2Ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1335\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0354}\x{E011B}\x{1E7F6}。2ⴜ", %p)}, undef, "to_ascii\(\'\\u0354\\uDB40\\uDD1B\\uD839\\uDFF6\。2ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1336\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0354}\x{E011B}\x{1E7F6}。𝟮ⴜ", %p)}, undef, "to_ascii\(\'\\u0354\\uDB40\\uDD1B\\uD839\\uDFF6。𝟮ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1337\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䪏\x{1ED87}\x{06AA}\x{2CEF}。뭕\x{0633}\x{0DD4}", %p)}, undef, "to_ascii\(\'䪏\\uD83B\\uDD87\\u06AA\\u2CEF。뭕\\u0633\\u0DD4\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1338\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䪏\x{1ED87}\x{06AA}\x{2CEF}。뭕\x{0633}\x{0DD4}", %p)}, undef, "to_ascii\(\'䪏\\uD83B\\uDD87\\u06AA\\u2CEF。뭕\\u0633\\u0DD4\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1339\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䪏\x{1ED87}\x{06AA}\x{2CEF}。뭕\x{0633}\x{0DD4}", %p)}, undef, "to_ascii\(\'䪏\\uD83B\\uDD87\\u06AA\\u2CEF\。뭕\\u0633\\u0DD4\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1340\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䪏\x{1ED87}\x{06AA}\x{2CEF}。뭕\x{0633}\x{0DD4}", %p)}, undef, "to_ascii\(\'䪏\\uD83B\\uDD87\\u06AA\\u2CEF\。뭕\\u0633\\u0DD4\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1341\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}。\x{E0391}\x{E0102}", %p)}, undef, "to_ascii\(\'\\u0BCD。\\uDB40\\uDF91\\uDB40\\uDD02\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1342\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}。\x{E0391}\x{E0102}", %p)}, undef, "to_ascii\(\'\\u0BCD\。\\uDB40\\uDF91\\uDB40\\uDD02\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1343\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9DD52}\x{E0180}。ς\x{200D}\x{10E78}\x{0ACD}", %p)}, undef, "to_ascii\(\'\\uDA37\\uDD52\\uDB40\\uDD80\。ς\\u200D\\uD803\\uDE78\\u0ACD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1345\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9DD52}\x{E0180}。Σ\x{200D}\x{10E78}\x{0ACD}", %p)}, undef, "to_ascii\(\'\\uDA37\\uDD52\\uDB40\\uDD80\。Σ\\u200D\\uD803\\uDE78\\u0ACD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1347\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9DD52}\x{E0180}。σ\x{200D}\x{10E78}\x{0ACD}", %p)}, undef, "to_ascii\(\'\\uDA37\\uDD52\\uDB40\\uDD80\。σ\\u200D\\uD803\\uDE78\\u0ACD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1349\]") 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}ᡚ\x{1714}.\x{10A3F}", %p)}, undef, "to_ascii\(\'\\u07E1ᡚ\\u1714.\\uD802\\uDE3F\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1350\]") 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}ᡚ\x{1714}.\x{10A3F}", %p)}, undef, "to_ascii\(\'\\u07E1ᡚ\\u1714\.\\uD802\\uDE3F\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1351\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𢶂籕\x{BED4C}-。\x{200C}", %p)}, undef, "to_ascii\(\'𢶂籕\\uDABB\\uDD4C\-\。\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:1353\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0601}.\x{FBFD}", %p)}, undef, "to_ascii\(\'\\u0601.\\uFBFD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1354\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0601}.\x{06CC}", %p)}, undef, "to_ascii\(\'\\u0601\.\\u06CC\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1355\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ᠱ。Ↄ", %p)}, undef, "to_ascii\(\'\-ᠱ。Ↄ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1356\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ᠱ。Ↄ", %p)}, undef, "to_ascii\(\'\-ᠱ\。Ↄ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1357\]") 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)}, undef, "to_ascii\(\'\-ᠱ\。ↄ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1358\]") 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)}, undef, "to_ascii\(\'\-ᠱ。ↄ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1359\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}-︒\x{E019D}。ß哑\x{200C}\x{1E9CE}", %p)}, undef, "to_ascii\(\'\\u200D\-︒\\uDB40\\uDD9D\。ß哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1361\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-。\x{E019D}。ß哑\x{200C}\x{1E9CE}", %p)}, undef, "to_ascii\(\'\\u200D\-\。\\uDB40\\uDD9D\。ß哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1363\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-。\x{E019D}。SS哑\x{200C}\x{1E9CE}", %p)}, undef, "to_ascii\(\'\\u200D\-\。\\uDB40\\uDD9D\。SS哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1365\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-。\x{E019D}。ss哑\x{200C}\x{1E9CE}", %p)}, undef, "to_ascii\(\'\\u200D\-\。\\uDB40\\uDD9D\。ss哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1367\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-。\x{E019D}。Ss哑\x{200C}\x{1E9CE}", %p)}, undef, "to_ascii\(\'\\u200D\-\。\\uDB40\\uDD9D\。Ss哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1369\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-︒\x{E019D}。SS哑\x{200C}\x{1E9CE}", %p)}, undef, "to_ascii\(\'\\u200D\-︒\\uDB40\\uDD9D\。SS哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1371\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-︒\x{E019D}。ss哑\x{200C}\x{1E9CE}", %p)}, undef, "to_ascii\(\'\\u200D\-︒\\uDB40\\uDD9D\。ss哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1373\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-︒\x{E019D}。Ss哑\x{200C}\x{1E9CE}", %p)}, undef, "to_ascii\(\'\\u200D\-︒\\uDB40\\uDD9D\。Ss哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1375\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒.\x{1DC3}\x{ABED}", %p)}, undef, "to_ascii\(\'︒.\\u1DC3\\uABED\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1376\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒.\x{ABED}\x{1DC3}", %p)}, undef, "to_ascii\(\'︒.\\uABED\\u1DC3\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1377\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}\x{1DC3}", %p)}, undef, "to_ascii\(\'\。\.\\uABED\\u1DC3\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1378\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0670}。\x{200D}", %p)}, undef, "to_ascii\(\'\\u0670\。\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1380\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}🜼。\x{10E38}", %p)}, undef, "to_ascii\(\'\\u200D🜼。\\uD803\\uDE38\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1382\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}🜼。\x{10E38}", %p)}, undef, "to_ascii\(\'\\u200D🜼\。\\uD803\\uDE38\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1384\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-Ⴄ𝟫\x{0602}.\x{1713}ς", %p)}, undef, "to_ascii\(\'\-Ⴄ𝟫\\u0602.\\u1713ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1385\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-Ⴄ9\x{0602}.\x{1713}ς", %p)}, undef, "to_ascii\(\'\-Ⴄ9\\u0602\.\\u1713ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1386\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ⴄ9\x{0602}.\x{1713}ς", %p)}, undef, "to_ascii\(\'\-ⴄ9\\u0602\.\\u1713ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1387\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-Ⴄ9\x{0602}.\x{1713}Σ", %p)}, undef, "to_ascii\(\'\-Ⴄ9\\u0602\.\\u1713Σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1388\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ⴄ9\x{0602}.\x{1713}σ", %p)}, undef, "to_ascii\(\'\-ⴄ9\\u0602\.\\u1713σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1389\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ⴄ𝟫\x{0602}.\x{1713}ς", %p)}, undef, "to_ascii\(\'\-ⴄ𝟫\\u0602.\\u1713ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1390\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-Ⴄ𝟫\x{0602}.\x{1713}Σ", %p)}, undef, "to_ascii\(\'\-Ⴄ𝟫\\u0602.\\u1713Σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1391\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ⴄ𝟫\x{0602}.\x{1713}σ", %p)}, undef, "to_ascii\(\'\-ⴄ𝟫\\u0602.\\u1713σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1392\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{38E5E}。-", %p)}, undef, "to_ascii\(\'\\uD8A3\\uDE5E\。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1393\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠🄊.\x{AF652}\x{A982}ß≯", %p)}, undef, "to_ascii\(\'\⋠🄊.\\uDA7D\\uDE52\\uA982ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1394\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≼\x{0338}🄊.\x{AF652}\x{A982}ß>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338🄊.\\uDA7D\\uDE52\\uA982ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1395\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠9,.\x{AF652}\x{A982}ß≯", %p)}, undef, "to_ascii\(\'\⋠9\,\.\\uDA7D\\uDE52\\uA982ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1396\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≼\x{0338}9,.\x{AF652}\x{A982}ß>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u03389\,\.\\uDA7D\\uDE52\\uA982ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1397\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≼\x{0338}9,.\x{AF652}\x{A982}SS>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u03389\,\.\\uDA7D\\uDE52\\uA982SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1398\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠9,.\x{AF652}\x{A982}SS≯", %p)}, undef, "to_ascii\(\'\⋠9\,\.\\uDA7D\\uDE52\\uA982SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1399\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠9,.\x{AF652}\x{A982}ss≯", %p)}, undef, "to_ascii\(\'\⋠9\,\.\\uDA7D\\uDE52\\uA982ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1400\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≼\x{0338}9,.\x{AF652}\x{A982}ss>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u03389\,\.\\uDA7D\\uDE52\\uA982ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1401\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≼\x{0338}9,.\x{AF652}\x{A982}Ss>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u03389\,\.\\uDA7D\\uDE52\\uA982Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1402\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠9,.\x{AF652}\x{A982}Ss≯", %p)}, undef, "to_ascii\(\'\⋠9\,\.\\uDA7D\\uDE52\\uA982Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1403\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≼\x{0338}🄊.\x{AF652}\x{A982}SS>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338🄊.\\uDA7D\\uDE52\\uA982SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1404\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠🄊.\x{AF652}\x{A982}SS≯", %p)}, undef, "to_ascii\(\'\⋠🄊.\\uDA7D\\uDE52\\uA982SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1405\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠🄊.\x{AF652}\x{A982}ss≯", %p)}, undef, "to_ascii\(\'\⋠🄊.\\uDA7D\\uDE52\\uA982ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1406\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≼\x{0338}🄊.\x{AF652}\x{A982}ss>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338🄊.\\uDA7D\\uDE52\\uA982ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1407\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≼\x{0338}🄊.\x{AF652}\x{A982}Ss>\x{0338}", %p)}, undef, "to_ascii\(\'\≼\\u0338🄊.\\uDA7D\\uDE52\\uA982Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1408\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠🄊.\x{AF652}\x{A982}Ss≯", %p)}, undef, "to_ascii\(\'\⋠🄊.\\uDA7D\\uDE52\\uA982Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1409\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄈₅\x{0669}。\x{E03DD}\x{FB56}\x{EDACF}", %p)}, undef, "to_ascii\(\'🄈₅\\u0669。\\uDB40\\uDFDD\\uFB56\\uDB76\\uDECF\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1410\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("7,5\x{0669}。\x{E03DD}\x{067E}\x{EDACF}", %p)}, undef, "to_ascii\(\'7\,5\\u0669\。\\uDB40\\uDFDD\\u067E\\uDB76\\uDECF\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1411\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("儭-。\x{10E62}Ⴢ\x{46253}\x{200C}", %p)}, undef, "to_ascii\(\'儭\-。\\uD803\\uDE62Ⴢ\\uD8D8\\uDE53\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1413\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("儭-。\x{10E62}Ⴢ\x{46253}\x{200C}", %p)}, undef, "to_ascii\(\'儭\-\。\\uD803\\uDE62Ⴢ\\uD8D8\\uDE53\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1415\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("儭-。\x{10E62}ⴢ\x{46253}\x{200C}", %p)}, undef, "to_ascii\(\'儭\-\。\\uD803\\uDE62ⴢ\\uD8D8\\uDE53\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1417\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("儭-。\x{10E62}ⴢ\x{46253}\x{200C}", %p)}, undef, "to_ascii\(\'儭\-。\\uD803\\uDE62ⴢ\\uD8D8\\uDE53\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1419\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟓₅\x{072E}.ᢢ\x{A6CFA}", %p)}, undef, "to_ascii\(\'𝟓₅\\u072E.ᢢ\\uDA5B\\uDCFA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1420\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("55\x{072E}.ᢢ\x{A6CFA}", %p)}, undef, "to_ascii\(\'55\\u072E\.ᢢ\\uDA5B\\uDCFA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1421\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯-\x{06C4}\x{17BD}.⒈\x{0664}", %p)}, undef, "to_ascii\(\'\≯\-\\u06C4\\u17BD\.⒈\\u0664\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1422\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}-\x{06C4}\x{17BD}.⒈\x{0664}", %p)}, undef, "to_ascii\(\'\>\\u0338\-\\u06C4\\u17BD\.⒈\\u0664\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1423\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯-\x{06C4}\x{17BD}.1.\x{0664}", %p)}, undef, "to_ascii\(\'\≯\-\\u06C4\\u17BD\.1\.\\u0664\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1424\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}-\x{06C4}\x{17BD}.1.\x{0664}", %p)}, undef, "to_ascii\(\'\>\\u0338\-\\u06C4\\u17BD\.1\.\\u0664\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1425\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0117}.\x{6AA1B}蚀", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD17.\\uD96A\\uDE1B蚀\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1426\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0117}.\x{6AA1B}蚀", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD17\.\\uD96A\\uDE1B蚀\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1427\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0752}Ⴘ.\x{1EA34}\x{ABED}ß\x{0962}", %p)}, undef, "to_ascii\(\'\\u0752Ⴘ\.\\uD83A\\uDE34\\uABEDß\\u0962\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1428\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0752}ⴘ.\x{1EA34}\x{ABED}ß\x{0962}", %p)}, undef, "to_ascii\(\'\\u0752ⴘ\.\\uD83A\\uDE34\\uABEDß\\u0962\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1429\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0752}Ⴘ.\x{1EA34}\x{ABED}SS\x{0962}", %p)}, undef, "to_ascii\(\'\\u0752Ⴘ\.\\uD83A\\uDE34\\uABEDSS\\u0962\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1430\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0752}ⴘ.\x{1EA34}\x{ABED}ss\x{0962}", %p)}, undef, "to_ascii\(\'\\u0752ⴘ\.\\uD83A\\uDE34\\uABEDss\\u0962\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1431\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0752}Ⴘ.\x{1EA34}\x{ABED}Ss\x{0962}", %p)}, undef, "to_ascii\(\'\\u0752Ⴘ\.\\uD83A\\uDE34\\uABEDSs\\u0962\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1432\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1034}\x{10E6B}\x{40BCC}。凬", %p)}, undef, "to_ascii\(\'\\u1034\\uD803\\uDE6B\\uD8C2\\uDFCC。凬\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1433\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1034}\x{10E6B}\x{40BCC}。凬", %p)}, undef, "to_ascii\(\'\\u1034\\uD803\\uDE6B\\uD8C2\\uDFCC\。凬\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1434\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0927}𝟕\x{200D}ᡞ。\x{0B4D}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDD27𝟕\\u200Dᡞ。\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1436\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0927}7\x{200D}ᡞ。\x{0B4D}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDD277\\u200Dᡞ\。\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1438\]") 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{08A4}。\x{11046}ᠶ", %p)}, undef, "to_ascii\(\'\\u08A4\。\\uD804\\uDC46ᠶ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1439\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E019F}≮.\x{065A}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD9F\≮\.\\u065A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1440\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E019F}<\x{0338}.\x{065A}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD9F\<\\u0338\.\\u065A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1441\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴢ≯褦.ᡚ\x{069F}Ⴞ\x{06B2}", %p)}, undef, "to_ascii\(\'Ⴢ\≯褦.ᡚ\\u069FႾ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1442\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴢ>\x{0338}褦.ᡚ\x{069F}Ⴞ\x{06B2}", %p)}, undef, "to_ascii\(\'Ⴢ\>\\u0338褦.ᡚ\\u069FႾ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1443\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴢ≯褦.ᡚ\x{069F}Ⴞ\x{06B2}", %p)}, undef, "to_ascii\(\'Ⴢ\≯褦\.ᡚ\\u069FႾ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1444\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴢ>\x{0338}褦.ᡚ\x{069F}Ⴞ\x{06B2}", %p)}, undef, "to_ascii\(\'Ⴢ\>\\u0338褦\.ᡚ\\u069FႾ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1445\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴢ>\x{0338}褦.ᡚ\x{069F}ⴞ\x{06B2}", %p)}, undef, "to_ascii\(\'ⴢ\>\\u0338褦\.ᡚ\\u069Fⴞ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1446\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴢ≯褦.ᡚ\x{069F}ⴞ\x{06B2}", %p)}, undef, "to_ascii\(\'ⴢ\≯褦\.ᡚ\\u069Fⴞ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1447\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴢ>\x{0338}褦.ᡚ\x{069F}ⴞ\x{06B2}", %p)}, undef, "to_ascii\(\'ⴢ\>\\u0338褦.ᡚ\\u069Fⴞ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1448\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴢ≯褦.ᡚ\x{069F}ⴞ\x{06B2}", %p)}, undef, "to_ascii\(\'ⴢ\≯褦.ᡚ\\u069Fⴞ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1449\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{55CFB}\x{1DC1}\x{200C}\x{1734}。ꡚꡋ\x{0633}", %p)}, undef, "to_ascii\(\'\\uD917\\uDCFB\\u1DC1\\u200C\\u1734\。ꡚꡋ\\u0633\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:1451\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.≯", %p)}, undef, "to_ascii\(\'\\u200C\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1453\]") 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\:1455\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{EFA25}\x{B70CE}-.\x{094D}-悜", %p)}, undef, "to_ascii\(\'\\uDB7E\\uDE25\\uDA9C\\uDCCE\-.\\u094D\-悜\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1456\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{EFA25}\x{B70CE}-.\x{094D}-悜", %p)}, undef, "to_ascii\(\'\\uDB7E\\uDE25\\uDA9C\\uDCCE\-\.\\u094D\-悜\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1457\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BD}\x{E8BB0}\x{E09BB}\x{07D7}.-\x{200D}\x{E0128}\x{2DF9}", %p)}, undef, "to_ascii\(\'\\u06BD\\uDB62\\uDFB0\\uDB42\\uDDBB\\u07D7\.\-\\u200D\\uDB40\\uDD28\\u2DF9\'\)\ throws\ error\ P1\ V6\ V3\ B2\ C2\ \[data\/IdnaTest\.txt\:1459\]") 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\:1461\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2\x{200C}衃Ⴝ.\x{0682}Ⴔ", %p)}, undef, "to_ascii\(\'2\\u200C衃Ⴝ\.\\u0682Ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1463\]") 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("2\x{200C}衃ⴝ.\x{0682}ⴔ", %p)}, undef, "to_ascii\(\'2\\u200C衃ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1465\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("2\x{200C}衃Ⴝ.\x{0682}ⴔ", %p)}, undef, "to_ascii\(\'2\\u200C衃Ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1467\]") 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{0682}ⴔ", %p)}, undef, "to_ascii\(\'𝟸\\u200C衃ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1469\]") 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\:1471\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0638}\x{200C}。--⼼", %p)}, undef, "to_ascii\(\'\\u0638\\u200C\。\-\-⼼\'\)\ throws\ error\ V3\ B3\ C1\ \[data\/IdnaTest\.txt\:1473\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0638}\x{200C}。--心", %p)}, undef, "to_ascii\(\'\\u0638\\u200C\。\-\-心\'\)\ throws\ error\ V3\ B3\ C1\ \[data\/IdnaTest\.txt\:1475\]") 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{FBE3}.\x{08A5}", %p)}, "xn--8kb.xn--uyb", "to_ascii\(\'\\uFBE3.\\u08A5\'\)\ \[data\/IdnaTest\.txt\:1476\]") 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{06C9}.\x{08A5}", %p)}, "xn--8kb.xn--uyb", "to_ascii\(\'\\u06C9\.\\u08A5\'\)\ \[data\/IdnaTest\.txt\:1477\]") 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--8kb.xn--uyb", %p)}, "xn--8kb.xn--uyb", "to_ascii\(\'xn\-\-8kb\.xn\-\-uyb\'\)\ \[data\/IdnaTest\.txt\:1478\]") 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{1037}-.-\x{116B6}", %p)}, undef, "to_ascii\(\'\\u1037\-.\-\\uD805\\uDEB6\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1479\]") 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{1037}-.-\x{116B6}", %p)}, undef, "to_ascii\(\'\\u1037\-\.\-\\uD805\\uDEB6\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1480\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E0B7F}ᡰ-.\x{1D173}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDF7Fᡰ\-\.\\uD834\\uDD73\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1481\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡒ\x{E068A}🔃\x{10E6C}.\x{1BF3}₇\x{3C3D0}", %p)}, undef, "to_ascii\(\'ᡒ\\uDB41\\uDE8A🔃\\uD803\\uDE6C\.\\u1BF3₇\\uD8B0\\uDFD0\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1482\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡒ\x{E068A}🔃\x{10E6C}.\x{1BF3}7\x{3C3D0}", %p)}, undef, "to_ascii\(\'ᡒ\\uDB41\\uDE8A🔃\\uD803\\uDE6C\.\\u1BF37\\uD8B0\\uDFD0\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1483\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E01BB}🄃。\x{0816}\x{200C}\x{10994}\x{200D}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDBB🄃\。\\u0816\\u200C\\uD802\\uDD94\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1485\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E01BB}2,。\x{0816}\x{200C}\x{10994}\x{200D}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDBB2\,\。\\u0816\\u200C\\uD802\\uDD94\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1487\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴚ₄\x{FE0C}。4\x{30F75}\x{1BF3}", %p)}, undef, "to_ascii\(\'Ⴚ₄\\uFE0C\。4\\uD883\\uDF75\\u1BF3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1488\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴚ4\x{FE0C}。4\x{30F75}\x{1BF3}", %p)}, undef, "to_ascii\(\'Ⴚ4\\uFE0C\。4\\uD883\\uDF75\\u1BF3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1489\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴚ4\x{FE0C}。4\x{30F75}\x{1BF3}", %p)}, undef, "to_ascii\(\'ⴚ4\\uFE0C\。4\\uD883\\uDF75\\u1BF3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1490\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴚ₄\x{FE0C}。4\x{30F75}\x{1BF3}", %p)}, undef, "to_ascii\(\'ⴚ₄\\uFE0C\。4\\uD883\\uDF75\\u1BF3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1491\]") 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}-\x{07E3}🝦.\x{E015F}\x{0FA3}", %p)}, undef, "to_ascii\(\'\\u200D\-\\u07E3🝦\.\\uDB40\\uDD5F\\u0FA3\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1493\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≠.\x{0768}", %p)}, undef, "to_ascii\(\'\≠\.\\u0768\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1494\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}.\x{0768}", %p)}, undef, "to_ascii\(\'\=\\u0338\.\\u0768\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1495\]") 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{07D5}\x{064B}。㌪", %p)}, "xn--nhb10f.xn--eck4c5a", "to_ascii\(\'\\u07D5\\u064B。㌪\'\)\ \[data\/IdnaTest\.txt\:1496\]") 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{07D5}\x{064B}。ハイツ", %p)}, "xn--nhb10f.xn--eck4c5a", "to_ascii\(\'\\u07D5\\u064B\。ハイツ\'\)\ \[data\/IdnaTest\.txt\:1497\]") 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--nhb10f.xn--eck4c5a", %p)}, "xn--nhb10f.xn--eck4c5a", "to_ascii\(\'xn\-\-nhb10f\.xn\-\-eck4c5a\'\)\ \[data\/IdnaTest\.txt\:1498\]") 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{07D5}\x{064B}.ハイツ", %p)}, "xn--nhb10f.xn--eck4c5a", "to_ascii\(\'\\u07D5\\u064B\.ハイツ\'\)\ \[data\/IdnaTest\.txt\:1499\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1E9EF}\x{05BA}≮.\x{ABED}-", %p)}, undef, "to_ascii\(\'\\uD83A\\uDDEF\\u05BA\≮\.\\uABED\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1500\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E9EF}\x{05BA}<\x{0338}.\x{ABED}-", %p)}, undef, "to_ascii\(\'\\uD83A\\uDDEF\\u05BA\<\\u0338\.\\uABED\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1501\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟲榎\x{37B15}\x{110B9}。ᡚ\x{1D189}\x{1E87E}\x{E0BA8}", %p)}, undef, "to_ascii\(\'𝟲榎\\uD89E\\uDF15\\uD804\\uDCB9。ᡚ\\uD834\\uDD89\\uD83A\\uDC7E\\uDB42\\uDFA8\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1502\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6榎\x{37B15}\x{110B9}。ᡚ\x{1D189}\x{1E87E}\x{E0BA8}", %p)}, undef, "to_ascii\(\'6榎\\uD89E\\uDF15\\uD804\\uDCB9\。ᡚ\\uD834\\uDD89\\uD83A\\uDC7E\\uDB42\\uDFA8\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1503\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E90F3}.\x{5A710}", %p)}, undef, "to_ascii\(\'\\uDB64\\uDCF3.\\uD929\\uDF10\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1504\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E90F3}.\x{5A710}", %p)}, undef, "to_ascii\(\'\\uDB64\\uDCF3\.\\uD929\\uDF10\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1505\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}︒。\x{069F}\x{200C}", %p)}, undef, "to_ascii\(\'\\u200D︒。\\u069F\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B3\ C1\ \[data\/IdnaTest\.txt\:1507\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。。\x{069F}\x{200C}", %p)}, undef, "to_ascii\(\'\\u200D\。\。\\u069F\\u200C\'\)\ throws\ error\ C2\ A4_2\ B3\ C1\ \[data\/IdnaTest\.txt\:1509\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--1jb", %p)}, "xn--1jb", "to_ascii\(\'xn\-\-1jb\'\)\ \[data\/IdnaTest\.txt\:1510\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{069F}", %p)}, "xn--1jb", "to_ascii\(\'\\u069F\'\)\ \[data\/IdnaTest\.txt\:1511\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0669}\x{200C}\x{10E69}。\x{20CD}", %p)}, undef, "to_ascii\(\'\\u0669\\u200C\\uD803\\uDE69\。\\u20CD\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1513\]") 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{05A5}\x{1DC1}𝟼。-🂄", %p)}, undef, "to_ascii\(\'\\u1BAA\\u05A5\\u1DC1𝟼\。\-🂄\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1514\]") 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{05A5}\x{1DC1}6。-🂄", %p)}, undef, "to_ascii\(\'\\u1BAA\\u05A5\\u1DC16\。\-🂄\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1515\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{37EC1}。뙏", %p)}, undef, "to_ascii\(\'\\uD89F\\uDEC1\。뙏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1516\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{37EC1}。뙏", %p)}, undef, "to_ascii\(\'\\uD89F\\uDEC1\。뙏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1517\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{32E54}\x{E0113}\x{92B14}\x{067E}.\x{076A}", %p)}, undef, "to_ascii\(\'\\uD88B\\uDE54\\uDB40\\uDD13\\uDA0A\\uDF14\\u067E\.\\u076A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1518\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。\x{E10E7}", %p)}, undef, "to_ascii\(\'\\u200D。\\uDB44\\uDCE7\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1520\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。\x{E10E7}", %p)}, undef, "to_ascii\(\'\\u200D\。\\uDB44\\uDCE7\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1522\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡦ皥.-", %p)}, undef, "to_ascii\(\'ᡦ皥.\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1523\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡦ皥.-", %p)}, undef, "to_ascii\(\'ᡦ皥\.\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1524\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FB68}\x{E0128}ᠧ.⒈ᡕ", %p)}, undef, "to_ascii\(\'\\uFB68\\uDB40\\uDD28ᠧ.⒈ᡕ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1525\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0679}\x{E0128}ᠧ.1.ᡕ", %p)}, undef, "to_ascii\(\'\\u0679\\uDB40\\uDD28ᠧ\.1\.ᡕ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1526\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}ā\x{0663}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0ā\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1528\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}a\x{0304}\x{0663}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0a\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1530\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}ā\x{0663}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160ā\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1532\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}a\x{0304}\x{0663}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160a\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1534\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}a\x{0304}\x{0663}", %p)}, undef, "to_ascii\(\'ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160a\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1536\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}ā\x{0663}", %p)}, undef, "to_ascii\(\'ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160ā\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1538\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}Ā\x{0663}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160Ā\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1540\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}A\x{0304}\x{0663}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160A\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1542\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}a\x{0304}\x{0663}", %p)}, undef, "to_ascii\(\'ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0a\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1544\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}ā\x{0663}", %p)}, undef, "to_ascii\(\'ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0ā\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1546\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}Ā\x{0663}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0Ā\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1548\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}A\x{0304}\x{0663}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0A\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1550\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⳿\x{200C}。曳⾑₁≯", %p)}, undef, "to_ascii\(\'⳿\\u200C。曳⾑₁\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1552\]") 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\:1554\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⳿\x{200C}。曳襾1≯", %p)}, undef, "to_ascii\(\'⳿\\u200C\。曳襾1\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1556\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⳿\x{200C}。曳襾1>\x{0338}", %p)}, undef, "to_ascii\(\'⳿\\u200C\。曳襾1\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1558\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯⒈。ß", %p)}, undef, "to_ascii\(\'\≯⒈\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1559\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}⒈。ß", %p)}, undef, "to_ascii\(\'\>\\u0338⒈\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1560\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯1.。ß", %p)}, undef, "to_ascii\(\'\≯1\.\。ß\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1561\]") 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\:1562\]") 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\:1563\]") 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\:1564\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}⒈。SS", %p)}, undef, "to_ascii\(\'\>\\u0338⒈\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1565\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯⒈。SS", %p)}, undef, "to_ascii\(\'\≯⒈\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1566\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E7D}\x{200D}\x{1E986}。\x{077E}-1Ⴙ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7D\\u200D\\uD83A\\uDD86。\\u077E\-1Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1568\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E7D}\x{200D}\x{1E986}。\x{077E}-1Ⴙ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7D\\u200D\\uD83A\\uDD86\。\\u077E\-1Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1570\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E7D}\x{200D}\x{1E986}。\x{077E}-1ⴙ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7D\\u200D\\uD83A\\uDD86\。\\u077E\-1ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1572\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E7D}\x{200D}\x{1E986}。\x{077E}-1ⴙ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7D\\u200D\\uD83A\\uDD86。\\u077E\-1ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1574\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。≠", %p)}, undef, "to_ascii\(\'\\u200C。\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1576\]") 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\:1578\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。≠", %p)}, undef, "to_ascii\(\'\\u200C\。\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1580\]") 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\:1582\]") 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{0A4D}\x{E0111}.\x{0721}\x{0C4D}\x{A94E}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0A4D\\uDB40\\uDD11\.\\u0721\\u0C4D\\uA94E\\u200C\'\)\ throws\ error\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:1584\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{794E7}\x{200D}\x{8CA2E}.\x{1A5D}Ↄ≠-", %p)}, undef, "to_ascii\(\'\\uD9A5\\uDCE7\\u200D\\uD9F2\\uDE2E\.\\u1A5DↃ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1586\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{794E7}\x{200D}\x{8CA2E}.\x{1A5D}Ↄ=\x{0338}-", %p)}, undef, "to_ascii\(\'\\uD9A5\\uDCE7\\u200D\\uD9F2\\uDE2E\.\\u1A5DↃ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1588\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{794E7}\x{200D}\x{8CA2E}.\x{1A5D}ↄ=\x{0338}-", %p)}, undef, "to_ascii\(\'\\uD9A5\\uDCE7\\u200D\\uD9F2\\uDE2E\.\\u1A5Dↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1590\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{794E7}\x{200D}\x{8CA2E}.\x{1A5D}ↄ≠-", %p)}, undef, "to_ascii\(\'\\uD9A5\\uDCE7\\u200D\\uD9F2\\uDE2E\.\\u1A5Dↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1592\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡏς\x{200D}۴。蔑\x{CEDEE}", %p)}, undef, "to_ascii\(\'ꡏς\\u200D۴\。蔑\\uDAFB\\uDDEE\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1594\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡏΣ\x{200D}۴。蔑\x{CEDEE}", %p)}, undef, "to_ascii\(\'ꡏΣ\\u200D۴\。蔑\\uDAFB\\uDDEE\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1596\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡏσ\x{200D}۴。蔑\x{CEDEE}", %p)}, undef, "to_ascii\(\'ꡏσ\\u200D۴\。蔑\\uDAFB\\uDDEE\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1598\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06DD}.\x{10E62}", %p)}, undef, "to_ascii\(\'\\u06DD\.\\uD803\\uDE62\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1599\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ᡂ.\x{63FCE}", %p)}, undef, "to_ascii\(\'\-ᡂ\.\\uD94F\\uDFCE\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1600\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{FDC4}\x{FE0C}。誆⒈", %p)}, undef, "to_ascii\(\'\≯\\uFDC4\\uFE0C\。誆⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1601\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{FDC4}\x{FE0C}。誆⒈", %p)}, undef, "to_ascii\(\'\>\\u0338\\uFDC4\\uFE0C\。誆⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1602\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{0639}\x{062C}\x{0645}\x{FE0C}。誆1.", %p)}, undef, "to_ascii\(\'\≯\\u0639\\u062C\\u0645\\uFE0C\。誆1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1603\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{0639}\x{062C}\x{0645}\x{FE0C}。誆1.", %p)}, undef, "to_ascii\(\'\>\\u0338\\u0639\\u062C\\u0645\\uFE0C\。誆1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1604\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F99}\x{1EE41}䐊\x{2DF6}.︒\x{07E2}㉼\x{06AB}", %p)}, undef, "to_ascii\(\'\\u0F99\\uD83B\\uDE41䐊\\u2DF6.︒\\u07E2㉼\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1605\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F99}\x{1EE41}䐊\x{2DF6}.。\x{07E2}참고\x{06AB}", %p)}, undef, "to_ascii\(\'\\u0F99\\uD83B\\uDE41䐊\\u2DF6\.\。\\u07E2참고\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ B1\ A4_2\ B2\ \[data\/IdnaTest\.txt\:1606\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F99}\x{1EE41}䐊\x{2DF6}.。\x{07E2}참고\x{06AB}", %p)}, undef, "to_ascii\(\'\\u0F99\\uD83B\\uDE41䐊\\u2DF6\.\。\\u07E2참고\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ B1\ A4_2\ B2\ \[data\/IdnaTest\.txt\:1607\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("퀬-\x{DF7E}\x{7E510}.\x{200C}\x{E015A}\x{69297}𝟤", %p)}, undef, "to_ascii\(\'퀬\-\\uDF7E\\uD9B9\\uDD10\.\\u200C\\uDB40\\uDD5A\\uD964\\uDE97𝟤\'\)\ throws\ error\ P1\ V6\ C1\ A3\ \[data\/IdnaTest\.txt\:1609\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("퀬-\x{DF7E}\x{7E510}.\x{200C}\x{E015A}\x{69297}𝟤", %p)}, undef, "to_ascii\(\'퀬\-\\uDF7E\\uD9B9\\uDD10\.\\u200C\\uDB40\\uDD5A\\uD964\\uDE97𝟤\'\)\ throws\ error\ P1\ V6\ C1\ A3\ \[data\/IdnaTest\.txt\:1611\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("퀬-\x{DF7E}\x{7E510}.\x{200C}\x{E015A}\x{69297}2", %p)}, undef, "to_ascii\(\'퀬\-\\uDF7E\\uD9B9\\uDD10\.\\u200C\\uDB40\\uDD5A\\uD964\\uDE972\'\)\ throws\ error\ P1\ V6\ C1\ A3\ \[data\/IdnaTest\.txt\:1613\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("퀬-\x{DF7E}\x{7E510}.\x{200C}\x{E015A}\x{69297}2", %p)}, undef, "to_ascii\(\'퀬\-\\uDF7E\\uD9B9\\uDD10\.\\u200C\\uDB40\\uDD5A\\uD964\\uDE972\'\)\ throws\ error\ P1\ V6\ C1\ A3\ \[data\/IdnaTest\.txt\:1615\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("퀬", %p)}, "xn--8n7b", "to_ascii\(\'퀬\'\)\ \[data\/IdnaTest\.txt\:1616\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("퀬", %p)}, "xn--8n7b", "to_ascii\(\'퀬\'\)\ \[data\/IdnaTest\.txt\:1617\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--8n7b", %p)}, "xn--8n7b", "to_ascii\(\'xn\-\-8n7b\'\)\ \[data\/IdnaTest\.txt\:1618\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴌ.\x{0600}︒\x{09CD}\x{1E9F4}", %p)}, undef, "to_ascii\(\'Ⴌ\.\\u0600︒\\u09CD\\uD83A\\uDDF4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1619\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴌ.\x{0600}。\x{09CD}\x{1E9F4}", %p)}, undef, "to_ascii\(\'Ⴌ\.\\u0600\。\\u09CD\\uD83A\\uDDF4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1620\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴌ.\x{0600}。\x{09CD}\x{1E9F4}", %p)}, undef, "to_ascii\(\'ⴌ\.\\u0600\。\\u09CD\\uD83A\\uDDF4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1621\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴌ.\x{0600}︒\x{09CD}\x{1E9F4}", %p)}, undef, "to_ascii\(\'ⴌ\.\\u0600︒\\u09CD\\uD83A\\uDDF4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1622\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{6E836}\x{193A}。\x{10BAA}\x{1CD1}", %p)}, undef, "to_ascii\(\'\\uD97A\\uDC36\\u193A\。\\uD802\\uDFAA\\u1CD1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1623\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{E04CC}\x{082A}.\x{0A48}\x{0A02}\x{AAF6}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D\\uDB41\\uDCCC\\u082A.\\u0A48\\u0A02\\uAAF6\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1625\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{E04CC}\x{082A}.\x{0A48}\x{0A02}\x{AAF6}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D\\uDB41\\uDCCC\\u082A\.\\u0A48\\u0A02\\uAAF6\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1627\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{18135}。۹", %p)}, undef, "to_ascii\(\'\\uD820\\uDD35。۹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1628\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{18135}。۹", %p)}, undef, "to_ascii\(\'\\uD820\\uDD35\。۹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1629\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A68}刍.⋁", %p)}, undef, "to_ascii\(\'\\u1A68刍\.\⋁\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1630\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E07E0}5。\x{AABE}🄈", %p)}, undef, "to_ascii\(\'\\uDB41\\uDFE05。\\uAABE🄈\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1631\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E07E0}5。\x{AABE}7,", %p)}, undef, "to_ascii\(\'\\uDB41\\uDFE05\。\\uAABE7\,\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1632\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0721}𝟳Ⴔ辘.\x{1EC88}ꡬ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0721𝟳Ⴔ辘\.\\uD83B\\uDC88ꡬ\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1634\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0721}7Ⴔ辘.\x{1EC88}ꡬ\x{200C}", %p)}, undef, "to_ascii\(\'\\u07217Ⴔ辘\.\\uD83B\\uDC88ꡬ\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1636\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0721}7ⴔ辘.\x{1EC88}ꡬ\x{200C}", %p)}, undef, "to_ascii\(\'\\u07217ⴔ辘\.\\uD83B\\uDC88ꡬ\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1638\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0721}𝟳ⴔ辘.\x{1EC88}ꡬ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0721𝟳ⴔ辘\.\\uD83B\\uDC88ꡬ\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1640\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0981}.ᠨ\x{10A88}\x{96CD6}𝟝", %p)}, undef, "to_ascii\(\'\\u0981\.ᠨ\\uD802\\uDE88\\uDA1B\\uDCD6𝟝\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1641\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0981}.ᠨ\x{10A88}\x{96CD6}5", %p)}, undef, "to_ascii\(\'\\u0981\.ᠨ\\uD802\\uDE88\\uDA1B\\uDCD65\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1642\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A87D}≯.\x{91B8E}\x{900A9}", %p)}, undef, "to_ascii\(\'\\uA87D\≯.\\uDA06\\uDF8E\\uDA00\\uDCA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1643\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A87D}>\x{0338}.\x{91B8E}\x{900A9}", %p)}, undef, "to_ascii\(\'\\uA87D\>\\u0338.\\uDA06\\uDF8E\\uDA00\\uDCA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1644\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A87D}≯.\x{91B8E}\x{900A9}", %p)}, undef, "to_ascii\(\'\\uA87D\≯\.\\uDA06\\uDF8E\\uDA00\\uDCA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1645\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A87D}>\x{0338}.\x{91B8E}\x{900A9}", %p)}, undef, "to_ascii\(\'\\uA87D\>\\u0338\.\\uDA06\\uDF8E\\uDA00\\uDCA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1646\]") 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{084A}", %p)}, undef, "to_ascii\(\'ςოꡢ\.ς\\u084A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1647\]") 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{084A}", %p)}, undef, "to_ascii\(\'Σოꡢ\.Σ\\u084A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1648\]") 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{084A}", %p)}, undef, "to_ascii\(\'σოꡢ\.σ\\u084A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1649\]") 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{084A}", %p)}, undef, "to_ascii\(\'Σოꡢ\.σ\\u084A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1650\]") 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{084A}", %p)}, undef, "to_ascii\(\'Σოꡢ\.ς\\u084A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1651\]") 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{084A}", %p)}, undef, "to_ascii\(\'σოꡢ\.ς\\u084A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1652\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{6F521}\x{0316}\x{BA57D}ꡱ。㇟", %p)}, undef, "to_ascii\(\'\\uD97D\\uDD21\\u0316\\uDAA9\\uDD7Dꡱ。㇟\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1653\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{6F521}\x{0316}\x{BA57D}ꡱ。㇟", %p)}, undef, "to_ascii\(\'\\uD97D\\uDD21\\u0316\\uDAA9\\uDD7Dꡱ\。㇟\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1654\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E080A}.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_ascii\(\'\\uDB42\\uDC0A.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1656\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E080A}.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_ascii\(\'\\uDB42\\uDC0A.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1658\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E080A}.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_ascii\(\'\\uDB42\\uDC0A\.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1660\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E080A}.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_ascii\(\'\\uDB42\\uDC0A\.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1662\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E080A}.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_ascii\(\'\\uDB42\\uDC0A\.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1664\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E080A}.\x{200D}䤫≠ⴞ", %p)}, undef, "to_ascii\(\'\\uDB42\\uDC0A\.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1666\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E080A}.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_ascii\(\'\\uDB42\\uDC0A.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1668\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E080A}.\x{200D}䤫≠ⴞ", %p)}, undef, "to_ascii\(\'\\uDB42\\uDC0A.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1670\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10F30}\x{1B44}.\x{0667}\x{20E0}", %p)}, undef, "to_ascii\(\'\\uD803\\uDF30\\u1B44.\\u0667\\u20E0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1671\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10F30}\x{1B44}.\x{0667}\x{20E0}", %p)}, undef, "to_ascii\(\'\\uD803\\uDF30\\u1B44\.\\u0667\\u20E0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1672\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄉⒈\x{E01C0}。𝟷", %p)}, undef, "to_ascii\(\'🄉⒈\\uDB40\\uDDC0\。𝟷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1673\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8,1.\x{E01C0}。1", %p)}, undef, "to_ascii\(\'8\,1\.\\uDB40\\uDDC0\。1\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1674\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}\x{070F}≮.\x{06DD}\x{5D709}4𝟤", %p)}, undef, "to_ascii\(\'\-\\u200C\\u070F\≮.\\u06DD\\uD935\\uDF094𝟤\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1676\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}\x{070F}<\x{0338}.\x{06DD}\x{5D709}4𝟤", %p)}, undef, "to_ascii\(\'\-\\u200C\\u070F\<\\u0338.\\u06DD\\uD935\\uDF094𝟤\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1678\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}\x{070F}≮.\x{06DD}\x{5D709}42", %p)}, undef, "to_ascii\(\'\-\\u200C\\u070F\≮\.\\u06DD\\uD935\\uDF0942\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1680\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}\x{070F}<\x{0338}.\x{06DD}\x{5D709}42", %p)}, undef, "to_ascii\(\'\-\\u200C\\u070F\<\\u0338\.\\u06DD\\uD935\\uDF0942\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1682\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≯딾。\x{0842}", %p)}, undef, "to_ascii\(\'\-\≯딾。\\u0842\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1683\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("->\x{0338}딾。\x{0842}", %p)}, undef, "to_ascii\(\'\-\>\\u0338딾。\\u0842\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1684\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≯딾。\x{0842}", %p)}, undef, "to_ascii\(\'\-\≯딾\。\\u0842\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1685\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("->\x{0338}딾。\x{0842}", %p)}, undef, "to_ascii\(\'\-\>\\u0338딾\。\\u0842\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1686\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⽉⒈\x{10E70}-。🀴\x{200C}", %p)}, undef, "to_ascii\(\'⽉⒈\\uD803\\uDE70\-。🀴\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1688\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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.\x{10E70}-。🀴\x{200C}", %p)}, undef, "to_ascii\(\'月1\.\\uD803\\uDE70\-\。🀴\\u200C\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:1690\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0FB0}.\x{033E}", %p)}, undef, "to_ascii\(\'\\u0FB0.\\u033E\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1691\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FB0}.\x{033E}", %p)}, undef, "to_ascii\(\'\\u0FB0\.\\u033E\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1692\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("훉≮。\x{031B}", %p)}, undef, "to_ascii\(\'훉\≮。\\u031B\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1693\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("훉<\x{0338}。\x{031B}", %p)}, undef, "to_ascii\(\'훉\<\\u0338。\\u031B\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1694\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("훉≮。\x{031B}", %p)}, undef, "to_ascii\(\'훉\≮\。\\u031B\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1695\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("훉<\x{0338}。\x{031B}", %p)}, undef, "to_ascii\(\'훉\<\\u0338\。\\u031B\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1696\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE20}\x{40209}\x{E03D0}.\x{B6627}۰\x{08EC}ᡁ", %p)}, undef, "to_ascii\(\'\\uFE20\\uD8C0\\uDE09\\uDB40\\uDFD0.\\uDA99\\uDE27۰\\u08ECᡁ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1697\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE20}\x{40209}\x{E03D0}.\x{B6627}۰\x{08EC}ᡁ", %p)}, undef, "to_ascii\(\'\\uFE20\\uD8C0\\uDE09\\uDB40\\uDFD0\.\\uDA99\\uDE27۰\\u08ECᡁ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1698\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A216}ß\x{0620}\x{200C}。\x{10E7A}\x{10C0A}\x{1E9E0}-", %p)}, undef, "to_ascii\(\'\\uD828\\uDE16ß\\u0620\\u200C\。\\uD803\\uDE7A\\uD803\\uDC0A\\uD83A\\uDDE0\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1700\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A216}SS\x{0620}\x{200C}。\x{10E7A}\x{10C0A}\x{1E9E0}-", %p)}, undef, "to_ascii\(\'\\uD828\\uDE16SS\\u0620\\u200C\。\\uD803\\uDE7A\\uD803\\uDC0A\\uD83A\\uDDE0\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1702\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A216}ss\x{0620}\x{200C}。\x{10E7A}\x{10C0A}\x{1E9E0}-", %p)}, undef, "to_ascii\(\'\\uD828\\uDE16ss\\u0620\\u200C\。\\uD803\\uDE7A\\uD803\\uDC0A\\uD83A\\uDDE0\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1704\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A216}Ss\x{0620}\x{200C}。\x{10E7A}\x{10C0A}\x{1E9E0}-", %p)}, undef, "to_ascii\(\'\\uD828\\uDE16Ss\\u0620\\u200C\。\\uD803\\uDE7A\\uD803\\uDC0A\\uD83A\\uDDE0\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1706\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0729}。Ↄ\x{E048B}놮-", %p)}, undef, "to_ascii\(\'\\u0729\。Ↄ\\uDB41\\uDC8B놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1707\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0729}。Ↄ\x{E048B}놮-", %p)}, undef, "to_ascii\(\'\\u0729\。Ↄ\\uDB41\\uDC8B놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1708\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0729}。ↄ\x{E048B}놮-", %p)}, undef, "to_ascii\(\'\\u0729\。ↄ\\uDB41\\uDC8B놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1709\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0729}。ↄ\x{E048B}놮-", %p)}, undef, "to_ascii\(\'\\u0729\。ↄ\\uDB41\\uDC8B놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1710\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EC01}\x{200D}.\x{99A6A}\x{06A3}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDC01\\u200D\.\\uDA26\\uDE6A\\u06A3\'\)\ throws\ error\ P1\ V6\ B3\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1712\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴜ\x{E01CA}\x{07BB}≯。\x{0743}\x{E04C3}\x{1073}", %p)}, undef, "to_ascii\(\'Ⴜ\\uDB40\\uDDCA\\u07BB\≯\。\\u0743\\uDB41\\uDCC3\\u1073\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1713\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴜ\x{E01CA}\x{07BB}>\x{0338}。\x{0743}\x{E04C3}\x{1073}", %p)}, undef, "to_ascii\(\'Ⴜ\\uDB40\\uDDCA\\u07BB\>\\u0338\。\\u0743\\uDB41\\uDCC3\\u1073\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1714\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴜ\x{E01CA}\x{07BB}>\x{0338}。\x{0743}\x{E04C3}\x{1073}", %p)}, undef, "to_ascii\(\'ⴜ\\uDB40\\uDDCA\\u07BB\>\\u0338\。\\u0743\\uDB41\\uDCC3\\u1073\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1715\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴜ\x{E01CA}\x{07BB}≯。\x{0743}\x{E04C3}\x{1073}", %p)}, undef, "to_ascii\(\'ⴜ\\uDB40\\uDDCA\\u07BB\≯\。\\u0743\\uDB41\\uDCC3\\u1073\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1716\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟺。\x{FCEA}", %p)}, "4.xn--zgb2b", "to_ascii\(\'𝟺\。\\uFCEA\'\)\ \[data\/IdnaTest\.txt\:1717\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4。\x{0634}\x{0647}", %p)}, "4.xn--zgb2b", "to_ascii\(\'4\。\\u0634\\u0647\'\)\ \[data\/IdnaTest\.txt\:1718\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4.xn--zgb2b", %p)}, "4.xn--zgb2b", "to_ascii\(\'4\.xn\-\-zgb2b\'\)\ \[data\/IdnaTest\.txt\:1719\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4.\x{0634}\x{0647}", %p)}, "4.xn--zgb2b", "to_ascii\(\'4\.\\u0634\\u0647\'\)\ \[data\/IdnaTest\.txt\:1720\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0A42}.\x{DD212}\x{09C3}\x{2E48}\x{DE331}", %p)}, undef, "to_ascii\(\'\≮\\u0A42.\\uDB34\\uDE12\\u09C3\\u2E48\\uDB38\\uDF31\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1721\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0A42}.\x{DD212}\x{09C3}\x{2E48}\x{DE331}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0A42.\\uDB34\\uDE12\\u09C3\\u2E48\\uDB38\\uDF31\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1722\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0A42}.\x{DD212}\x{09C3}\x{2E48}\x{DE331}", %p)}, undef, "to_ascii\(\'\≮\\u0A42\.\\uDB34\\uDE12\\u09C3\\u2E48\\uDB38\\uDF31\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1723\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0A42}.\x{DD212}\x{09C3}\x{2E48}\x{DE331}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0A42\.\\uDB34\\uDE12\\u09C3\\u2E48\\uDB38\\uDF31\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1724\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B6D}\x{05BA}ᢕ.\x{E016D}\x{10E72}\x{E0D0D}", %p)}, undef, "to_ascii\(\'\\u1B6D\\u05BAᢕ.\\uDB40\\uDD6D\\uD803\\uDE72\\uDB43\\uDD0D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1725\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05BA}\x{1B6D}ᢕ.\x{E016D}\x{10E72}\x{E0D0D}", %p)}, undef, "to_ascii\(\'\\u05BA\\u1B6Dᢕ.\\uDB40\\uDD6D\\uD803\\uDE72\\uDB43\\uDD0D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1726\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05BA}\x{1B6D}ᢕ.\x{E016D}\x{10E72}\x{E0D0D}", %p)}, undef, "to_ascii\(\'\\u05BA\\u1B6Dᢕ\.\\uDB40\\uDD6D\\uD803\\uDE72\\uDB43\\uDD0D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1727\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10EB5}\x{08A5}\x{200C}\x{0842}.\x{110B9}\x{E01A9}", %p)}, undef, "to_ascii\(\'\\uD803\\uDEB5\\u08A5\\u200C\\u0842.\\uD804\\uDCB9\\uDB40\\uDDA9\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1728\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10EB5}\x{08A5}\x{200C}\x{0842}.\x{110B9}\x{E01A9}", %p)}, undef, "to_ascii\(\'\\uD803\\uDEB5\\u08A5\\u200C\\u0842\.\\uD804\\uDCB9\\uDB40\\uDDA9\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1729\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{ABED}。\x{200D}\x{9F82E}\x{E0391}\x{8D875}", %p)}, undef, "to_ascii\(\'\\uABED。\\u200D\\uDA3E\\uDC2E\\uDB40\\uDF91\\uD9F6\\uDC75\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1731\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{ABED}。\x{200D}\x{9F82E}\x{E0391}\x{8D875}", %p)}, undef, "to_ascii\(\'\\uABED\。\\u200D\\uDA3E\\uDC2E\\uDB40\\uDF91\\uD9F6\\uDC75\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1733\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{FB58}。𝟪", %p)}, undef, "to_ascii\(\'\-\\uFB58\。𝟪\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1734\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{067E}。8", %p)}, undef, "to_ascii\(\'\-\\u067E\。8\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1735\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E5ABF}\x{07D7}\x{200C}。ꡲ\x{200D}", %p)}, undef, "to_ascii\(\'\\uDB56\\uDEBF\\u07D7\\u200C。ꡲ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ C2\ \[data\/IdnaTest\.txt\:1737\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E5ABF}\x{07D7}\x{200C}。ꡲ\x{200D}", %p)}, undef, "to_ascii\(\'\\uDB56\\uDEBF\\u07D7\\u200C\。ꡲ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ C2\ \[data\/IdnaTest\.txt\:1739\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{0C4C}\x{0827}。ᡨ8🄆", %p)}, undef, "to_ascii\(\'ß\\u0C4C\\u0827\。ᡨ8🄆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1740\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{0C4C}\x{0827}。ᡨ85,", %p)}, undef, "to_ascii\(\'ß\\u0C4C\\u0827\。ᡨ85\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1741\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{0C4C}\x{0827}。ᡨ85,", %p)}, undef, "to_ascii\(\'SS\\u0C4C\\u0827\。ᡨ85\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1742\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{0C4C}\x{0827}。ᡨ85,", %p)}, undef, "to_ascii\(\'ss\\u0C4C\\u0827\。ᡨ85\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1743\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{0C4C}\x{0827}。ᡨ85,", %p)}, undef, "to_ascii\(\'Ss\\u0C4C\\u0827\。ᡨ85\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1744\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{0C4C}\x{0827}。ᡨ8🄆", %p)}, undef, "to_ascii\(\'SS\\u0C4C\\u0827\。ᡨ8🄆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1745\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{0C4C}\x{0827}。ᡨ8🄆", %p)}, undef, "to_ascii\(\'ss\\u0C4C\\u0827\。ᡨ8🄆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1746\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{0C4C}\x{0827}。ᡨ8🄆", %p)}, undef, "to_ascii\(\'Ss\\u0C4C\\u0827\。ᡨ8🄆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1747\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}\x{0B3C}魅⒔.₉\x{0600}ß", %p)}, undef, "to_ascii\(\'\\u1A60\\u0B3C魅⒔.₉\\u0600ß\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1748\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B3C}\x{1A60}魅⒔.₉\x{0600}ß", %p)}, undef, "to_ascii\(\'\\u0B3C\\u1A60魅⒔.₉\\u0600ß\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1749\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B3C}\x{1A60}魅13..9\x{0600}ß", %p)}, undef, "to_ascii\(\'\\u0B3C\\u1A60魅13\.\.9\\u0600ß\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1750\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B3C}\x{1A60}魅13..9\x{0600}SS", %p)}, undef, "to_ascii\(\'\\u0B3C\\u1A60魅13\.\.9\\u0600SS\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1751\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B3C}\x{1A60}魅13..9\x{0600}ss", %p)}, undef, "to_ascii\(\'\\u0B3C\\u1A60魅13\.\.9\\u0600ss\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1752\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B3C}\x{1A60}魅13..9\x{0600}Ss", %p)}, undef, "to_ascii\(\'\\u0B3C\\u1A60魅13\.\.9\\u0600Ss\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1753\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B3C}\x{1A60}魅⒔.₉\x{0600}SS", %p)}, undef, "to_ascii\(\'\\u0B3C\\u1A60魅⒔.₉\\u0600SS\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1754\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B3C}\x{1A60}魅⒔.₉\x{0600}ss", %p)}, undef, "to_ascii\(\'\\u0B3C\\u1A60魅⒔.₉\\u0600ss\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1755\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B3C}\x{1A60}魅⒔.₉\x{0600}Ss", %p)}, undef, "to_ascii\(\'\\u0B3C\\u1A60魅⒔.₉\\u0600Ss\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1756\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}\x{0B3C}魅⒔.₉\x{0600}SS", %p)}, undef, "to_ascii\(\'\\u1A60\\u0B3C魅⒔.₉\\u0600SS\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1757\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}\x{0B3C}魅⒔.₉\x{0600}ss", %p)}, undef, "to_ascii\(\'\\u1A60\\u0B3C魅⒔.₉\\u0600ss\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1758\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}\x{0B3C}魅⒔.₉\x{0600}Ss", %p)}, undef, "to_ascii\(\'\\u1A60\\u0B3C魅⒔.₉\\u0600Ss\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1759\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07E7}。\x{AAF6}⒈\x{0CCD}⾞", %p)}, undef, "to_ascii\(\'\\u07E7。\\uAAF6⒈\\u0CCD⾞\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1760\]") 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{07E7}。\x{AAF6}1.\x{0CCD}車", %p)}, undef, "to_ascii\(\'\\u07E7\。\\uAAF61\.\\u0CCD車\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1761\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0C4B}છ。嵨", %p)}, undef, "to_ascii\(\'\\u0C4Bછ\。嵨\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1762\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ≠Ⴀ.\x{0666}\x{0662}", %p)}, undef, "to_ascii\(\'Ⴔ\≠Ⴀ\.\\u0666\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1763\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ=\x{0338}Ⴀ.\x{0666}\x{0662}", %p)}, undef, "to_ascii\(\'Ⴔ\=\\u0338Ⴀ\.\\u0666\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1764\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴔ=\x{0338}ⴀ.\x{0666}\x{0662}", %p)}, undef, "to_ascii\(\'ⴔ\=\\u0338ⴀ\.\\u0666\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1765\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴔ≠ⴀ.\x{0666}\x{0662}", %p)}, undef, "to_ascii\(\'ⴔ\≠ⴀ\.\\u0666\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1766\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}⒙\x{E01BA}。\x{20EA}", %p)}, undef, "to_ascii\(\'\-\\u200C⒙\\uDB40\\uDDBA。\\u20EA\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1768\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}18.\x{E01BA}。\x{20EA}", %p)}, undef, "to_ascii\(\'\-\\u200C18\.\\uDB40\\uDDBA\。\\u20EA\'\)\ throws\ error\ V3\ V5\ C1\ A4_2\ \[data\/IdnaTest\.txt\:1770\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒.ʌ\x{0635}-\x{0669}", %p)}, undef, "to_ascii\(\'︒\.ʌ\\u0635\-\\u0669\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1771\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。.ʌ\x{0635}-\x{0669}", %p)}, undef, "to_ascii\(\'\。\.ʌ\\u0635\-\\u0669\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1772\]") 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{0635}-\x{0669}", %p)}, undef, "to_ascii\(\'\。\.Ʌ\\u0635\-\\u0669\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1773\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("︒.Ʌ\x{0635}-\x{0669}", %p)}, undef, "to_ascii\(\'︒\.Ʌ\\u0635\-\\u0669\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1774\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0347}︒。\x{37450}\x{1CD6}", %p)}, undef, "to_ascii\(\'\\u0347︒\。\\uD89D\\uDC50\\u1CD6\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1775\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0347}。。\x{37450}\x{1CD6}", %p)}, undef, "to_ascii\(\'\\u0347\。\。\\uD89D\\uDC50\\u1CD6\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1776\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E8DD}ß\x{E3676}。ᠯ", %p)}, undef, "to_ascii\(\'\\uD83A\\uDCDDß\\uDB4D\\uDE76\。ᠯ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1777\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E8DD}SS\x{E3676}。ᠯ", %p)}, undef, "to_ascii\(\'\\uD83A\\uDCDDSS\\uDB4D\\uDE76\。ᠯ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1778\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E8DD}ss\x{E3676}。ᠯ", %p)}, undef, "to_ascii\(\'\\uD83A\\uDCDDss\\uDB4D\\uDE76\。ᠯ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1779\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E8DD}Ss\x{E3676}。ᠯ", %p)}, undef, "to_ascii\(\'\\uD83A\\uDCDDSs\\uDB4D\\uDE76\。ᠯ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1780\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0C4D}\x{200D}ꡂ\x{10E7E}。\x{79186}\x{9A953}\x{200C}\x{0308}", %p)}, undef, "to_ascii\(\'\\u0C4D\\u200Dꡂ\\uD803\\uDE7E\。\\uD9A4\\uDD86\\uDA2A\\uDD53\\u200C\\u0308\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1782\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-ß\x{200C}≠", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1784\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-ß\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1786\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-ß\x{200C}≠", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1\.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1788\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-ß\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1\.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1790\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-SS\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1\.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1792\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-SS\x{200C}≠", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1\.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1794\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1\.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1796\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1\.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1798\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1\.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1800\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-Ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1\.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1802\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-SS\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1804\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-SS\x{200C}≠", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1806\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1808\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1810\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1812\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0EF1}.-Ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF1.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1814\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}\x{200C}。≯𝟡≠", %p)}, undef, "to_ascii\(\'\\u0641\\u200C。\≯𝟡\≠\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1816\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}\x{200C}。>\x{0338}𝟡=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0641\\u200C。\>\\u0338𝟡\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1818\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}\x{200C}。≯9≠", %p)}, undef, "to_ascii\(\'\\u0641\\u200C\。\≯9\≠\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1820\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}\x{200C}。>\x{0338}9=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0641\\u200C\。\>\\u03389\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1822\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E74}\x{1E84A}\x{1CDC}\x{8F885}。\x{E0063}⁴", %p)}, undef, "to_ascii\(\'\\uD803\\uDE74\\uD83A\\uDC4A\\u1CDC\\uD9FE\\uDC85\。\\uDB40\\uDC63⁴\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1823\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E74}\x{1E84A}\x{1CDC}\x{8F885}。\x{E0063}4", %p)}, undef, "to_ascii\(\'\\uD803\\uDE74\\uD83A\\uDC4A\\u1CDC\\uD9FE\\uDC85\。\\uDB40\\uDC634\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1824\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴄ.\x{200D}ᡇ𦥍ς", %p)}, undef, "to_ascii\(\'Ⴄ.\\u200Dᡇ𦥍ς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1826\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴄ.\x{200D}ᡇ𦥍ς", %p)}, undef, "to_ascii\(\'Ⴄ\.\\u200Dᡇ𦥍ς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1828\]") 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\ C2\ \[data\/IdnaTest\.txt\:1830\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴄ.\x{200D}ᡇ𦥍Σ", %p)}, undef, "to_ascii\(\'Ⴄ\.\\u200Dᡇ𦥍Σ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1832\]") 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\ C2\ \[data\/IdnaTest\.txt\:1834\]") 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--vkj.xn--4xa716hww74b", %p)}, "xn--vkj.xn--4xa716hww74b", "to_ascii\(\'xn\-\-vkj\.xn\-\-4xa716hww74b\'\)\ \[data\/IdnaTest\.txt\:1835\]") 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--vkj.xn--4xa716hww74b", "to_ascii\(\'ⴄ\.ᡇ𦥍σ\'\)\ \[data\/IdnaTest\.txt\:1836\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴄ.ᡇ𦥍Σ", %p)}, undef, "to_ascii\(\'Ⴄ\.ᡇ𦥍Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1837\]") 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\ C2\ \[data\/IdnaTest\.txt\:1839\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴄ.\x{200D}ᡇ𦥍Σ", %p)}, undef, "to_ascii\(\'Ⴄ.\\u200Dᡇ𦥍Σ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1841\]") 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\ C2\ \[data\/IdnaTest\.txt\:1843\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{946D2}\x{E01B7}.Ⴕ", %p)}, undef, "to_ascii\(\'\\uDA11\\uDED2\\uDB40\\uDDB7\.Ⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1844\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{946D2}\x{E01B7}.ⴕ", %p)}, undef, "to_ascii\(\'\\uDA11\\uDED2\\uDB40\\uDDB7\.ⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1845\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{E0070}\x{1E98E}。\x{200C}\x{1B44}⻱\x{200D}", %p)}, undef, "to_ascii\(\'\≯\\uDB40\\uDC70\\uD83A\\uDD8E\。\\u200C\\u1B44⻱\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1847\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{E0070}\x{1E98E}。\x{200C}\x{1B44}⻱\x{200D}", %p)}, undef, "to_ascii\(\'\>\\u0338\\uDB40\\uDC70\\uD83A\\uDD8E\。\\u200C\\u1B44⻱\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1849\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{05B0}。\x{E6583}", %p)}, undef, "to_ascii\(\'\\u200C\\u05B0。\\uDB59\\uDD83\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1851\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{05B0}。\x{E6583}", %p)}, undef, "to_ascii\(\'\\u200C\\u05B0\。\\uDB59\\uDD83\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1853\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{E01C1}焅.\x{583E9}\x{200D}ꡑ", %p)}, undef, "to_ascii\(\'⒈\\uDB40\\uDDC1焅\.\\uD920\\uDFE9\\u200Dꡑ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1855\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{E01C1}焅.\x{583E9}\x{200D}ꡑ", %p)}, undef, "to_ascii\(\'1\.\\uDB40\\uDDC1焅\.\\uD920\\uDFE9\\u200Dꡑ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1857\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}ς≮.ς\x{E0184}\x{0762}𝟽", %p)}, undef, "to_ascii\(\'\\u1DDAς\≮\.ς\\uDB40\\uDD84\\u0762𝟽\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1858\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}ς<\x{0338}.ς\x{E0184}\x{0762}𝟽", %p)}, undef, "to_ascii\(\'\\u1DDAς\<\\u0338\.ς\\uDB40\\uDD84\\u0762𝟽\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1859\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}ς≮.ς\x{E0184}\x{0762}7", %p)}, undef, "to_ascii\(\'\\u1DDAς\≮\.ς\\uDB40\\uDD84\\u07627\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1860\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}ς<\x{0338}.ς\x{E0184}\x{0762}7", %p)}, undef, "to_ascii\(\'\\u1DDAς\<\\u0338\.ς\\uDB40\\uDD84\\u07627\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1861\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}Σ<\x{0338}.Σ\x{E0184}\x{0762}7", %p)}, undef, "to_ascii\(\'\\u1DDAΣ\<\\u0338\.Σ\\uDB40\\uDD84\\u07627\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1862\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}Σ≮.Σ\x{E0184}\x{0762}7", %p)}, undef, "to_ascii\(\'\\u1DDAΣ\≮\.Σ\\uDB40\\uDD84\\u07627\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1863\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}σ≮.σ\x{E0184}\x{0762}7", %p)}, undef, "to_ascii\(\'\\u1DDAσ\≮\.σ\\uDB40\\uDD84\\u07627\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1864\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}σ<\x{0338}.σ\x{E0184}\x{0762}7", %p)}, undef, "to_ascii\(\'\\u1DDAσ\<\\u0338\.σ\\uDB40\\uDD84\\u07627\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1865\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}Σ<\x{0338}.Σ\x{E0184}\x{0762}𝟽", %p)}, undef, "to_ascii\(\'\\u1DDAΣ\<\\u0338\.Σ\\uDB40\\uDD84\\u0762𝟽\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1866\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}Σ≮.Σ\x{E0184}\x{0762}𝟽", %p)}, undef, "to_ascii\(\'\\u1DDAΣ\≮\.Σ\\uDB40\\uDD84\\u0762𝟽\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1867\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}σ≮.σ\x{E0184}\x{0762}𝟽", %p)}, undef, "to_ascii\(\'\\u1DDAσ\≮\.σ\\uDB40\\uDD84\\u0762𝟽\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1868\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DDA}σ<\x{0338}.σ\x{E0184}\x{0762}𝟽", %p)}, undef, "to_ascii\(\'\\u1DDAσ\<\\u0338\.σ\\uDB40\\uDD84\\u0762𝟽\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1869\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{D69D1}ß\x{033D}\x{0767}.\x{E014E}\x{0755}", %p)}, undef, "to_ascii\(\'\\uDB1A\\uDDD1ß\\u033D\\u0767\.\\uDB40\\uDD4E\\u0755\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1870\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{D69D1}SS\x{033D}\x{0767}.\x{E014E}\x{0755}", %p)}, undef, "to_ascii\(\'\\uDB1A\\uDDD1SS\\u033D\\u0767\.\\uDB40\\uDD4E\\u0755\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1871\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{D69D1}ss\x{033D}\x{0767}.\x{E014E}\x{0755}", %p)}, undef, "to_ascii\(\'\\uDB1A\\uDDD1ss\\u033D\\u0767\.\\uDB40\\uDD4E\\u0755\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1872\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{D69D1}Ss\x{033D}\x{0767}.\x{E014E}\x{0755}", %p)}, undef, "to_ascii\(\'\\uDB1A\\uDDD1Ss\\u033D\\u0767\.\\uDB40\\uDD4E\\u0755\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1873\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{FC12}。⒈", %p)}, undef, "to_ascii\(\'\-\\uFC12。⒈\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1874\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{062B}\x{0645}。1.", %p)}, undef, "to_ascii\(\'\-\\u062B\\u0645\。1\.\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1875\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{87A26}\x{0682}𝟲。\x{06EF}\x{1734}", %p)}, undef, "to_ascii\(\'\\uD9DE\\uDE26\\u0682𝟲\。\\u06EF\\u1734\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1876\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{87A26}\x{0682}6。\x{06EF}\x{1734}", %p)}, undef, "to_ascii\(\'\\uD9DE\\uDE26\\u06826\。\\u06EF\\u1734\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1877\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E64}\x{10F90}\x{0666}\x{0EB9}.\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE64\\uD803\\uDF90\\u0666\\u0EB9\.\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1879\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₅.Ⴇ\x{32E8C}\x{10D51}\x{ECE9B}", %p)}, undef, "to_ascii\(\'₅.Ⴇ\\uD88B\\uDE8C\\uD803\\uDD51\\uDB73\\uDE9B\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1880\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("5.Ⴇ\x{32E8C}\x{10D51}\x{ECE9B}", %p)}, undef, "to_ascii\(\'5\.Ⴇ\\uD88B\\uDE8C\\uD803\\uDD51\\uDB73\\uDE9B\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1881\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("5.ⴇ\x{32E8C}\x{10D51}\x{ECE9B}", %p)}, undef, "to_ascii\(\'5\.ⴇ\\uD88B\\uDE8C\\uD803\\uDD51\\uDB73\\uDE9B\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1882\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₅.ⴇ\x{32E8C}\x{10D51}\x{ECE9B}", %p)}, undef, "to_ascii\(\'₅.ⴇ\\uD88B\\uDE8C\\uD803\\uDD51\\uDB73\\uDE9B\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1883\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F84}\x{E052B}.\x{E0169}ꡇ", %p)}, undef, "to_ascii\(\'\\u0F84\\uDB41\\uDD2B\.\\uDB40\\uDD69ꡇ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1884\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-\x{075F}.\x{67A96}", %p)}, undef, "to_ascii\(\'\\u200D\-\\u075F\.\\uD95E\\uDE96\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1886\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BA}ꡛ\x{074E}寐。\x{200C}≯\x{E01FF}", %p)}, undef, "to_ascii\(\'\\u06BAꡛ\\u074E寐。\\u200C\≯\\uDB40\\uDDFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1888\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BA}ꡛ\x{074E}寐。\x{200C}>\x{0338}\x{E01FF}", %p)}, undef, "to_ascii\(\'\\u06BAꡛ\\u074E寐。\\u200C\>\\u0338\\uDB40\\uDDFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1890\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BA}ꡛ\x{074E}寐。\x{200C}≯\x{E01FF}", %p)}, undef, "to_ascii\(\'\\u06BAꡛ\\u074E寐\。\\u200C\≯\\uDB40\\uDDFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1892\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BA}ꡛ\x{074E}寐。\x{200C}>\x{0338}\x{E01FF}", %p)}, undef, "to_ascii\(\'\\u06BAꡛ\\u074E寐\。\\u200C\>\\u0338\\uDB40\\uDDFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1894\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。穛ႺႴ\x{1ECBF}", %p)}, undef, "to_ascii\(\'\\u200D。穛ႺႴ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1896\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。穛ႺႴ\x{1ECBF}", %p)}, undef, "to_ascii\(\'\\u200D\。穛ႺႴ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1898\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。穛ⴚⴔ\x{1ECBF}", %p)}, undef, "to_ascii\(\'\\u200D\。穛ⴚⴔ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1900\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。穛Ⴚⴔ\x{1ECBF}", %p)}, undef, "to_ascii\(\'\\u200D\。穛Ⴚⴔ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1902\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。穛ⴚⴔ\x{1ECBF}", %p)}, undef, "to_ascii\(\'\\u200D。穛ⴚⴔ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1904\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。穛Ⴚⴔ\x{1ECBF}", %p)}, undef, "to_ascii\(\'\\u200D。穛Ⴚⴔ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1906\]") 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("-4.\x{200D}ヌ\x{08AC}", %p)}, undef, "to_ascii\(\'\-4\.\\u200Dヌ\\u08AC\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1908\]") 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("-4.\x{200D}ヌ\x{08AC}", %p)}, undef, "to_ascii\(\'\-4\.\\u200Dヌ\\u08AC\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1910\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("︐\x{10E64}ß\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_ascii\(\'︐\\uD803\\uDE64ß\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1912\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(",\x{10E64}ß\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_ascii\(\'\,\\uD803\\uDE64ß\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1914\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(",\x{10E64}SS\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_ascii\(\'\,\\uD803\\uDE64SS\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1916\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(",\x{10E64}ss\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_ascii\(\'\,\\uD803\\uDE64ss\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1918\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(",\x{10E64}Ss\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_ascii\(\'\,\\uD803\\uDE64Ss\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1920\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︐\x{10E64}SS\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_ascii\(\'︐\\uD803\\uDE64SS\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1922\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︐\x{10E64}ss\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_ascii\(\'︐\\uD803\\uDE64ss\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1924\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︐\x{10E64}Ss\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_ascii\(\'︐\\uD803\\uDE64Ss\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1926\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꇟ-\x{FC06}ᡉ。\x{B357A}\x{200C}", %p)}, undef, "to_ascii\(\'ꇟ\-\\uFC06ᡉ\。\\uDA8D\\uDD7A\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1928\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꇟ-\x{0628}\x{062D}ᡉ。\x{B357A}\x{200C}", %p)}, undef, "to_ascii\(\'ꇟ\-\\u0628\\u062Dᡉ\。\\uDA8D\\uDD7A\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1930\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E7C}.\x{11001}\x{FD09}\x{07AA}\x{35A0B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7C\.\\uD804\\uDC01\\uFD09\\u07AA\\uD896\\uDE0B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1931\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E7C}.\x{11001}\x{0634}\x{062C}\x{07AA}\x{35A0B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7C\.\\uD804\\uDC01\\u0634\\u062C\\u07AA\\uD896\\uDE0B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1932\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.\x{3F861}\x{0756}\x{0B4D}", %p)}, undef, "to_ascii\(\'\-\.\\uD8BE\\uDC61\\u0756\\u0B4D\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1933\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB69E}ς.\x{10C84}녫ß", %p)}, undef, "to_ascii\(\'\\uDA6D\\uDE9Eς\.\\uD803\\uDC84녫ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1934\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB69E}ς.\x{10C84}녫ß", %p)}, undef, "to_ascii\(\'\\uDA6D\\uDE9Eς\.\\uD803\\uDC84녫ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1935\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB69E}Σ.\x{10C84}녫SS", %p)}, undef, "to_ascii\(\'\\uDA6D\\uDE9EΣ\.\\uD803\\uDC84녫SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1936\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB69E}Σ.\x{10C84}녫SS", %p)}, undef, "to_ascii\(\'\\uDA6D\\uDE9EΣ\.\\uD803\\uDC84녫SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1937\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB69E}σ.\x{10C84}녫ss", %p)}, undef, "to_ascii\(\'\\uDA6D\\uDE9Eσ\.\\uD803\\uDC84녫ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1938\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB69E}σ.\x{10C84}녫ss", %p)}, undef, "to_ascii\(\'\\uDA6D\\uDE9Eσ\.\\uD803\\uDC84녫ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1939\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB69E}Σ.\x{10C84}녫Ss", %p)}, undef, "to_ascii\(\'\\uDA6D\\uDE9EΣ\.\\uD803\\uDC84녫Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1940\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB69E}Σ.\x{10C84}녫Ss", %p)}, undef, "to_ascii\(\'\\uDA6D\\uDE9EΣ\.\\uD803\\uDC84녫Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1941\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ\x{1BAA}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ\\u1BAA\\u200D。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1943\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ\x{1BAA}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ\\u1BAA\\u200D。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1945\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ\x{1BAA}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ\\u1BAA\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1947\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ\x{1BAA}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ\\u1BAA\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1949\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ\x{1BAA}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ\\u1BAA\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1951\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ\x{1BAA}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ\\u1BAA\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1953\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ\x{1BAA}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ\\u1BAA\\u200D。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1955\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ\x{1BAA}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ\\u1BAA\\u200D。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1957\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⁹\x{11133}\x{1734}\x{EEA81}.\x{200C}\x{1734}\x{07E0}", %p)}, undef, "to_ascii\(\'⁹\\uD804\\uDD33\\u1734\\uDB7A\\uDE81.\\u200C\\u1734\\u07E0\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1959\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("9\x{11133}\x{1734}\x{EEA81}.\x{200C}\x{1734}\x{07E0}", %p)}, undef, "to_ascii\(\'9\\uD804\\uDD33\\u1734\\uDB7A\\uDE81\.\\u200C\\u1734\\u07E0\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1961\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7182B}\x{E0066}.≯", %p)}, undef, "to_ascii\(\'\\uD986\\uDC2B\\uDB40\\uDC66.\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1962\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7182B}\x{E0066}.>\x{0338}", %p)}, undef, "to_ascii\(\'\\uD986\\uDC2B\\uDB40\\uDC66.\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1963\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7182B}\x{E0066}.≯", %p)}, undef, "to_ascii\(\'\\uD986\\uDC2B\\uDB40\\uDC66\.\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1964\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7182B}\x{E0066}.>\x{0338}", %p)}, undef, "to_ascii\(\'\\uD986\\uDC2B\\uDB40\\uDC66\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1965\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{1EFE4}Ⴓ.\x{0324}", %p)}, undef, "to_ascii\(\'\\u200D\\uD83B\\uDFE4Ⴓ.\\u0324\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1967\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{1EFE4}Ⴓ.\x{0324}", %p)}, undef, "to_ascii\(\'\\u200D\\uD83B\\uDFE4Ⴓ\.\\u0324\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1969\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{1EFE4}ⴓ.\x{0324}", %p)}, undef, "to_ascii\(\'\\u200D\\uD83B\\uDFE4ⴓ\.\\u0324\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1971\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{1EFE4}ⴓ.\x{0324}", %p)}, undef, "to_ascii\(\'\\u200D\\uD83B\\uDFE4ⴓ.\\u0324\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1973\]") 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{FED3}ß\x{0333}.\x{0766}", %p)}, undef, "to_ascii\(\'\\uFED3ß\\u0333.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1974\]") 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{0641}ß\x{0333}.\x{0766}", %p)}, undef, "to_ascii\(\'\\u0641ß\\u0333\.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1975\]") 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{0641}SS\x{0333}.\x{0766}", %p)}, undef, "to_ascii\(\'\\u0641SS\\u0333\.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1976\]") 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{0641}ss\x{0333}.\x{0766}", %p)}, undef, "to_ascii\(\'\\u0641ss\\u0333\.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1977\]") 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{0641}Ss\x{0333}.\x{0766}", %p)}, undef, "to_ascii\(\'\\u0641Ss\\u0333\.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1978\]") 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{FED3}SS\x{0333}.\x{0766}", %p)}, undef, "to_ascii\(\'\\uFED3SS\\u0333.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1979\]") 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{FED3}ss\x{0333}.\x{0766}", %p)}, undef, "to_ascii\(\'\\uFED3ss\\u0333.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1980\]") 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{FED3}Ss\x{0333}.\x{0766}", %p)}, undef, "to_ascii\(\'\\uFED3Ss\\u0333.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1981\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0CCD}\x{E01AD}鸮\x{1039}.ς", %p)}, undef, "to_ascii\(\'\\u0CCD\\uDB40\\uDDAD鸮\\u1039\.ς\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1982\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}\x{E01AD}鸮\x{1039}.Σ", %p)}, undef, "to_ascii\(\'\\u0CCD\\uDB40\\uDDAD鸮\\u1039\.Σ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1983\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}\x{E01AD}鸮\x{1039}.σ", %p)}, undef, "to_ascii\(\'\\u0CCD\\uDB40\\uDDAD鸮\\u1039\.σ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1984\]") 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{11134}", %p)}, undef, "to_ascii\(\'𝟐ꡩ\。\-\\uD804\\uDD34\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1985\]") 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("2ꡩ。-\x{11134}", %p)}, undef, "to_ascii\(\'2ꡩ\。\-\\uD804\\uDD34\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1986\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0779}ᡲ⟙。\x{10E6D}\x{0775}⒈", %p)}, undef, "to_ascii\(\'\\u0779ᡲ\⟙。\\uD803\\uDE6D\\u0775⒈\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1987\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0779}ᡲ⟙。\x{10E6D}\x{0775}1.", %p)}, undef, "to_ascii\(\'\\u0779ᡲ\⟙\。\\uD803\\uDE6D\\u07751\.\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1988\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{2433}\x{109409}𝟣\x{10E78}.ᢉ8\x{05AC}\x{06DD}", %p)}, undef, "to_ascii\(\'\\u2433\\uDBE5\\uDC09𝟣\\uD803\\uDE78\.ᢉ8\\u05AC\\u06DD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1989\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2433}\x{109409}1\x{10E78}.ᢉ8\x{05AC}\x{06DD}", %p)}, undef, "to_ascii\(\'\\u2433\\uDBE5\\uDC091\\uD803\\uDE78\.ᢉ8\\u05AC\\u06DD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1990\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}.𝟤𝟶-\x{CCEF0}", %p)}, undef, "to_ascii\(\'\\u0603\.𝟤𝟶\-\\uDAF3\\uDEF0\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1991\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}.20-\x{CCEF0}", %p)}, undef, "to_ascii\(\'\\u0603\.20\-\\uDAF3\\uDEF0\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1992\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς-。\x{200C}⒚-", %p)}, undef, "to_ascii\(\'ς\-\。\\u200C⒚\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:1994\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς-。\x{200C}19.-", %p)}, undef, "to_ascii\(\'ς\-\。\\u200C19\.\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:1996\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ-。\x{200C}19.-", %p)}, undef, "to_ascii\(\'Σ\-\。\\u200C19\.\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:1998\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ-。\x{200C}19.-", %p)}, undef, "to_ascii\(\'σ\-\。\\u200C19\.\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2000\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ-。\x{200C}⒚-", %p)}, undef, "to_ascii\(\'Σ\-\。\\u200C⒚\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:2002\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ-。\x{200C}⒚-", %p)}, undef, "to_ascii\(\'σ\-\。\\u200C⒚\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:2004\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}-\x{E0079}.\x{0AC5}Ⴄ", %p)}, undef, "to_ascii\(\'\\u0DCA\-\\uDB40\\uDC79.\\u0AC5Ⴄ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2005\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}-\x{E0079}.\x{0AC5}Ⴄ", %p)}, undef, "to_ascii\(\'\\u0DCA\-\\uDB40\\uDC79\.\\u0AC5Ⴄ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2006\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}-\x{E0079}.\x{0AC5}ⴄ", %p)}, undef, "to_ascii\(\'\\u0DCA\-\\uDB40\\uDC79\.\\u0AC5ⴄ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2007\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}-\x{E0079}.\x{0AC5}ⴄ", %p)}, undef, "to_ascii\(\'\\u0DCA\-\\uDB40\\uDC79.\\u0AC5ⴄ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2008\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{ECD27}\x{E05E9}\x{06AF}\x{109AF}。⏆⒈", %p)}, undef, "to_ascii\(\'\\uDB73\\uDD27\\uDB41\\uDDE9\\u06AF\\uD802\\uDDAF。\⏆⒈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2009\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{ECD27}\x{E05E9}\x{06AF}\x{109AF}。⏆1.", %p)}, undef, "to_ascii\(\'\\uDB73\\uDD27\\uDB41\\uDDE9\\u06AF\\uD802\\uDDAF\。\⏆1\.\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2010\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0C4D}.\x{0646}\x{0ECA}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0C4D.\\u0646\\u0ECA\\u200C\'\)\ throws\ error\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:2012\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0C4D}.\x{0646}\x{0ECA}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0C4D\.\\u0646\\u0ECA\\u200C\'\)\ throws\ error\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:2014\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3CA91}\x{06D1}≮\x{1BAA}.\x{FEA3}", %p)}, undef, "to_ascii\(\'\\uD8B2\\uDE91\\u06D1\≮\\u1BAA.\\uFEA3\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2015\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3CA91}\x{06D1}<\x{0338}\x{1BAA}.\x{FEA3}", %p)}, undef, "to_ascii\(\'\\uD8B2\\uDE91\\u06D1\<\\u0338\\u1BAA.\\uFEA3\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2016\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3CA91}\x{06D1}≮\x{1BAA}.\x{062D}", %p)}, undef, "to_ascii\(\'\\uD8B2\\uDE91\\u06D1\≮\\u1BAA\.\\u062D\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2017\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3CA91}\x{06D1}<\x{0338}\x{1BAA}.\x{062D}", %p)}, undef, "to_ascii\(\'\\uD8B2\\uDE91\\u06D1\<\\u0338\\u1BAA\.\\u062D\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2018\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。\x{0FA9}⒈ꡍ\x{108614}", %p)}, undef, "to_ascii\(\'\\u200D\。\\u0FA9⒈ꡍ\\uDBE1\\uDE14\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2020\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。\x{0FA9}1.ꡍ\x{108614}", %p)}, undef, "to_ascii\(\'\\u200D\。\\u0FA91\.ꡍ\\uDBE1\\uDE14\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2022\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷ᠤ.\x{1EC84}≠", %p)}, undef, "to_ascii\(\'۷ᠤ.\\uD83B\\uDC84\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2023\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷ᠤ.\x{1EC84}=\x{0338}", %p)}, undef, "to_ascii\(\'۷ᠤ.\\uD83B\\uDC84\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2024\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷ᠤ.\x{1EC84}≠", %p)}, undef, "to_ascii\(\'۷ᠤ\.\\uD83B\\uDC84\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2025\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷ᠤ.\x{1EC84}=\x{0338}", %p)}, undef, "to_ascii\(\'۷ᠤ\.\\uD83B\\uDC84\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2026\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}\x{0776}\x{B8EEB}.𝟘\x{0680}\x{1086}", %p)}, undef, "to_ascii\(\'\\u06C5\\u0776\\uDAA3\\uDEEB\.𝟘\\u0680\\u1086\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2027\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}\x{0776}\x{B8EEB}.0\x{0680}\x{1086}", %p)}, undef, "to_ascii\(\'\\u06C5\\u0776\\uDAA3\\uDEEB\.0\\u0680\\u1086\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2028\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0AC3}-\x{10E66}۶.⤝\x{0825}4", %p)}, undef, "to_ascii\(\'\\u0AC3\-\\uD803\\uDE66۶\.\⤝\\u08254\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2029\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⫐。Ⴠ-\x{8642E}", %p)}, undef, "to_ascii\(\'\⫐。Ⴠ\-\\uD9D9\\uDC2E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2030\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⫐。Ⴠ-\x{8642E}", %p)}, undef, "to_ascii\(\'\⫐\。Ⴠ\-\\uD9D9\\uDC2E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2031\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⫐。ⴠ-\x{8642E}", %p)}, undef, "to_ascii\(\'\⫐\。ⴠ\-\\uD9D9\\uDC2E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2032\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⫐。ⴠ-\x{8642E}", %p)}, undef, "to_ascii\(\'\⫐。ⴠ\-\\uD9D9\\uDC2E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2033\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1039}⺡.⦟\x{E0C37}", %p)}, undef, "to_ascii\(\'\\u1039⺡.\⦟\\uDB43\\uDC37\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2034\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1039}⺡.⦟\x{E0C37}", %p)}, undef, "to_ascii\(\'\\u1039⺡\.\⦟\\uDB43\\uDC37\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2035\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DC729}-\x{10E73}。\x{87F6D}\x{068D}", %p)}, undef, "to_ascii\(\'\\uDB31\\uDF29\-\\uD803\\uDE73\。\\uD9DF\\uDF6D\\u068D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2036\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡚ。⩨\x{FE0E}\x{1EE55}\x{10E73}", %p)}, undef, "to_ascii\(\'ᡚ\。\⩨\\uFE0E\\uD83B\\uDE55\\uD803\\uDE73\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2037\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10D35}ꌄ。\x{200D}ᣬ", %p)}, undef, "to_ascii\(\'\\uD803\\uDD35ꌄ。\\u200Dᣬ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2039\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10D35}ꌄ。\x{200D}ᣬ", %p)}, undef, "to_ascii\(\'\\uD803\\uDD35ꌄ\。\\u200Dᣬ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2041\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄃\x{066B}。\x{9564C}≯-", %p)}, undef, "to_ascii\(\'🄃\\u066B\。\\uDA15\\uDE4C\≯\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2042\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄃\x{066B}。\x{9564C}>\x{0338}-", %p)}, undef, "to_ascii\(\'🄃\\u066B\。\\uDA15\\uDE4C\>\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2043\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2,\x{066B}。\x{9564C}≯-", %p)}, undef, "to_ascii\(\'2\,\\u066B\。\\uDA15\\uDE4C\≯\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2044\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2,\x{066B}。\x{9564C}>\x{0338}-", %p)}, undef, "to_ascii\(\'2\,\\u066B\。\\uDA15\\uDE4C\>\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2045\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䷎\x{0669}-\x{10DA0}.۰ꡝ", %p)}, undef, "to_ascii\(\'䷎\\u0669\-\\uD803\\uDDA0\.۰ꡝ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2046\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{05A5}\x{10E64}Ⴡ\x{110B9}", %p)}, undef, "to_ascii\(\'\≠。\\u05A5\\uD803\\uDE64Ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2047\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{05A5}\x{10E64}Ⴡ\x{110B9}", %p)}, undef, "to_ascii\(\'\=\\u0338。\\u05A5\\uD803\\uDE64Ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2048\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{05A5}\x{10E64}Ⴡ\x{110B9}", %p)}, undef, "to_ascii\(\'\≠\。\\u05A5\\uD803\\uDE64Ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2049\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{05A5}\x{10E64}Ⴡ\x{110B9}", %p)}, undef, "to_ascii\(\'\=\\u0338\。\\u05A5\\uD803\\uDE64Ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2050\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{05A5}\x{10E64}ⴡ\x{110B9}", %p)}, undef, "to_ascii\(\'\=\\u0338\。\\u05A5\\uD803\\uDE64ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2051\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{05A5}\x{10E64}ⴡ\x{110B9}", %p)}, undef, "to_ascii\(\'\≠\。\\u05A5\\uD803\\uDE64ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2052\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{05A5}\x{10E64}ⴡ\x{110B9}", %p)}, undef, "to_ascii\(\'\=\\u0338。\\u05A5\\uD803\\uDE64ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2053\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{05A5}\x{10E64}ⴡ\x{110B9}", %p)}, undef, "to_ascii\(\'\≠。\\u05A5\\uD803\\uDE64ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2054\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FA8}≠.Ⴀᠽ", %p)}, undef, "to_ascii\(\'\\u0FA8\≠\.Ⴀᠽ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2055\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FA8}=\x{0338}.Ⴀᠽ", %p)}, undef, "to_ascii\(\'\\u0FA8\=\\u0338\.Ⴀᠽ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2056\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FA8}=\x{0338}.ⴀᠽ", %p)}, undef, "to_ascii\(\'\\u0FA8\=\\u0338\.ⴀᠽ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2057\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FA8}≠.ⴀᠽ", %p)}, undef, "to_ascii\(\'\\u0FA8\≠\.ⴀᠽ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2058\]") 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{1DDD}\x{20D9}ᡀ.ᡥ閪\x{0664}꒶", %p)}, undef, "to_ascii\(\'\\u1DDD\\u20D9ᡀ.ᡥ閪\\u0664꒶\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2059\]") 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{20D9}\x{1DDD}ᡀ.ᡥ閪\x{0664}꒶", %p)}, undef, "to_ascii\(\'\\u20D9\\u1DDDᡀ.ᡥ閪\\u0664꒶\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2060\]") 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{20D9}\x{1DDD}ᡀ.ᡥ閪\x{0664}꒶", %p)}, undef, "to_ascii\(\'\\u20D9\\u1DDDᡀ\.ᡥ閪\\u0664꒶\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2061\]") 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{1DDF}\x{FB20}\x{FE00}。\x{0E38}\x{0FA6}-ᛟ", %p)}, undef, "to_ascii\(\'\\u200D\\u1DDF\\uFB20\\uFE00。\\u0E38\\u0FA6\-ᛟ\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2063\]") 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{1DDF}\x{05E2}\x{FE00}。\x{0E38}\x{0FA6}-ᛟ", %p)}, undef, "to_ascii\(\'\\u200D\\u1DDF\\u05E2\\uFE00\。\\u0E38\\u0FA6\-ᛟ\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2065\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("헁\x{BDB25}\x{09CD}\x{3922F}。ᡉ3", %p)}, undef, "to_ascii\(\'헁\\uDAB6\\uDF25\\u09CD\\uD8A4\\uDE2F\。ᡉ3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2066\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("헁\x{BDB25}\x{09CD}\x{3922F}。ᡉ3", %p)}, undef, "to_ascii\(\'헁\\uDAB6\\uDF25\\u09CD\\uD8A4\\uDE2F\。ᡉ3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2067\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E61}。\x{D2A2F}\x{200C}Ⴞ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE61。\\uDB0A\\uDE2F\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2069\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E61}。\x{D2A2F}\x{200C}Ⴞ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE61\。\\uDB0A\\uDE2F\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2071\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E61}。\x{D2A2F}\x{200C}ⴞ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE61\。\\uDB0A\\uDE2F\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2073\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E61}。\x{D2A2F}\x{200C}ⴞ", %p)}, undef, "to_ascii\(\'\\uD803\\uDE61。\\uDB0A\\uDE2F\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2075\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{A953}.\x{A8EF}\x{E01C0}馋", %p)}, undef, "to_ascii\(\'\\uA953\.\\uA8EF\\uDB40\\uDDC0馋\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2076\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{76898}𢁔\x{200D}。\x{3F7F3}", %p)}, undef, "to_ascii\(\'\\uD99A\\uDC98𢁔\\u200D。\\uD8BD\\uDFF3\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2078\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{76898}𢁔\x{200D}。\x{3F7F3}", %p)}, undef, "to_ascii\(\'\\uD99A\\uDC98𢁔\\u200D\。\\uD8BD\\uDFF3\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2080\]") 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\:2082\]") 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("ꡖ目姶1.6.\x{200D}╅\x{200D}", %p)}, undef, "to_ascii\(\'ꡖ目姶1\.6\.\\u200D\╅\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2084\]") 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--1-yn1bw30gq07b.6.xn--7xh", %p)}, "xn--1-yn1bw30gq07b.6.xn--7xh", "to_ascii\(\'xn\-\-1\-yn1bw30gq07b\.6\.xn\-\-7xh\'\)\ \[data\/IdnaTest\.txt\:2085\]") 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("ꡖ目姶1.6.╅", %p)}, "xn--1-yn1bw30gq07b.6.xn--7xh", "to_ascii\(\'ꡖ目姶1\.6\.\╅\'\)\ \[data\/IdnaTest\.txt\:2086\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{10F7C}.\x{10E63}≾\x{0ACD}", %p)}, undef, "to_ascii\(\'\\uD803\\uDF7C\.\\uD803\\uDE63\≾\\u0ACD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2087\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ\x{0715}。\x{10E66}\x{AA36}۰", %p)}, undef, "to_ascii\(\'Ⴔ\\u0715。\\uD803\\uDE66\\uAA36۰\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2088\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ\x{0715}。\x{10E66}\x{AA36}۰", %p)}, undef, "to_ascii\(\'Ⴔ\\u0715\。\\uD803\\uDE66\\uAA36۰\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2089\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0715}。\x{10E66}\x{AA36}۰", %p)}, undef, "to_ascii\(\'ⴔ\\u0715\。\\uD803\\uDE66\\uAA36۰\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2090\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0715}。\x{10E66}\x{AA36}۰", %p)}, undef, "to_ascii\(\'ⴔ\\u0715。\\uD803\\uDE66\\uAA36۰\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2091\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{110B5}\x{068D}\x{200C}.︒-\x{1773}-", %p)}, undef, "to_ascii\(\'\\uD804\\uDCB5\\u068D\\u200C.︒\-\\u1773\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2093\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{110B5}\x{068D}\x{200C}.。-\x{1773}-", %p)}, undef, "to_ascii\(\'\\uD804\\uDCB5\\u068D\\u200C\.\。\-\\u1773\-\'\)\ throws\ error\ V5\ V3\ B1\ C1\ A4_2\ \[data\/IdnaTest\.txt\:2095\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒈\x{0602}🄆\x{200C}.\x{0829}\x{FC4E}", %p)}, undef, "to_ascii\(\'⒈\\u0602🄆\\u200C\.\\u0829\\uFC4E\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:2097\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{0602}5,\x{200C}.\x{0829}\x{0646}\x{0645}", %p)}, undef, "to_ascii\(\'1\.\\u06025\,\\u200C\.\\u0829\\u0646\\u0645\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:2099\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E01A7}。-\x{1B44}Ⴋ", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDA7\。\-\\u1B44Ⴋ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2100\]") 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{E01A7}。-\x{1B44}ⴋ", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDA7\。\-\\u1B44ⴋ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2101\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ßჀ.\x{0642}刯Ⴝ", %p)}, undef, "to_ascii\(\'ßჀ\.\\u0642刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2102\]") 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{0642}刯ⴝ", %p)}, undef, "to_ascii\(\'ßⴠ\.\\u0642刯ⴝ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2103\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SSჀ.\x{0642}刯Ⴝ", %p)}, undef, "to_ascii\(\'SSჀ\.\\u0642刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2104\]") 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{0642}刯ⴝ", %p)}, undef, "to_ascii\(\'ssⴠ\.\\u0642刯ⴝ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2105\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ssⴠ.\x{0642}刯Ⴝ", %p)}, undef, "to_ascii\(\'Ssⴠ\.\\u0642刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2106\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}ႣℲ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3AႣℲ。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2107\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}ႣℲ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3AႣℲ。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2108\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}ႣℲ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3AႣℲ\。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2109\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}ႣℲ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3AႣℲ\。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2110\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3Aⴃⅎ\。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2111\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3Aⴃⅎ\。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2112\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}Ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3AႣⅎ\。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2113\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}Ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3AႣⅎ\。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2114\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3Aⴃⅎ。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2115\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3Aⴃⅎ。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2116\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}Ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3AႣⅎ。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2117\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}Ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_ascii\(\'\\u0E3AႣⅎ。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2118\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0800}.\x{07CF}\x{0601}\x{06D1}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDC00\.\\u07CF\\u0601\\u06D1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2119\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢍ\x{06DF}。⒍\x{11133}", %p)}, undef, "to_ascii\(\'ᢍ\\u06DF\。⒍\\uD804\\uDD33\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2120\]") 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{06DF}。6.\x{11133}", %p)}, undef, "to_ascii\(\'ᢍ\\u06DF\。6\.\\uD804\\uDD33\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2121\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴣ\x{0600}.\x{200C}\x{E01B7}≮𝌶", %p)}, undef, "to_ascii\(\'Ⴣ\\u0600\.\\u200C\\uDB40\\uDDB7\≮𝌶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2123\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴣ\x{0600}.\x{200C}\x{E01B7}<\x{0338}𝌶", %p)}, undef, "to_ascii\(\'Ⴣ\\u0600\.\\u200C\\uDB40\\uDDB7\<\\u0338𝌶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2125\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴣ\x{0600}.\x{200C}\x{E01B7}<\x{0338}𝌶", %p)}, undef, "to_ascii\(\'ⴣ\\u0600\.\\u200C\\uDB40\\uDDB7\<\\u0338𝌶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2127\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴣ\x{0600}.\x{200C}\x{E01B7}≮𝌶", %p)}, undef, "to_ascii\(\'ⴣ\\u0600\.\\u200C\\uDB40\\uDDB7\≮𝌶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2129\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⁹隁\x{E0F3A}.\x{0341}\x{200C}", %p)}, undef, "to_ascii\(\'⁹隁\\uDB43\\uDF3A.\\u0341\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2131\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⁹隁\x{E0F3A}.\x{0301}\x{200C}", %p)}, undef, "to_ascii\(\'⁹隁\\uDB43\\uDF3A.\\u0301\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2133\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("9隁\x{E0F3A}.\x{0301}\x{200C}", %p)}, undef, "to_ascii\(\'9隁\\uDB43\\uDF3A\.\\u0301\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2135\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒌\x{0662}。Ⴣ\x{A9C0}彦", %p)}, undef, "to_ascii\(\'⒌\\u0662。Ⴣ\\uA9C0彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2136\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("5.\x{0662}。Ⴣ\x{A9C0}彦", %p)}, undef, "to_ascii\(\'5\.\\u0662\。Ⴣ\\uA9C0彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2137\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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("5.\x{0662}。ⴣ\x{A9C0}彦", %p)}, undef, "to_ascii\(\'5\.\\u0662\。ⴣ\\uA9C0彦\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2138\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒌\x{0662}。ⴣ\x{A9C0}彦", %p)}, undef, "to_ascii\(\'⒌\\u0662。ⴣ\\uA9C0彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2139\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-问\x{E072D}𝟷。\x{10E64}-\x{1C385}橬", %p)}, undef, "to_ascii\(\'\-问\\uDB41\\uDF2D𝟷\。\\uD803\\uDE64\-\\uD830\\uDF85橬\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2140\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-问\x{E072D}1。\x{10E64}-\x{1C385}橬", %p)}, undef, "to_ascii\(\'\-问\\uDB41\\uDF2D1\。\\uD803\\uDE64\-\\uD830\\uDF85橬\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2141\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF3}Ⴌ\x{200C}\x{E0150}。𝟐", %p)}, undef, "to_ascii\(\'\\u2DF3Ⴌ\\u200C\\uDB40\\uDD50\。𝟐\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2143\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF3}Ⴌ\x{200C}\x{E0150}。2", %p)}, undef, "to_ascii\(\'\\u2DF3Ⴌ\\u200C\\uDB40\\uDD50\。2\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2145\]") 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{2DF3}ⴌ\x{200C}\x{E0150}。2", %p)}, undef, "to_ascii\(\'\\u2DF3ⴌ\\u200C\\uDB40\\uDD50\。2\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2147\]") 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{2DF3}ⴌ\x{200C}\x{E0150}。𝟐", %p)}, undef, "to_ascii\(\'\\u2DF3ⴌ\\u200C\\uDB40\\uDD50\。𝟐\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2149\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{DC5F}。\x{1B44}\x{0601}𑁡", %p)}, undef, "to_ascii\(\'\\uDC5F\。\\u1B44\\u0601𑁡\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ A3\ \[data\/IdnaTest\.txt\:2150\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAF}\x{E0146}⾶。⒊︒눇≮", %p)}, undef, "to_ascii\(\'\\u0FAF\\uDB40\\uDD46⾶。⒊︒눇\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2151\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAF}\x{E0146}⾶。⒊︒눇<\x{0338}", %p)}, undef, "to_ascii\(\'\\u0FAF\\uDB40\\uDD46⾶。⒊︒눇\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2152\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAF}\x{E0146}飛。3.。눇≮", %p)}, undef, "to_ascii\(\'\\u0FAF\\uDB40\\uDD46飛\。3\.\。눇\≮\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2153\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAF}\x{E0146}飛。3.。눇<\x{0338}", %p)}, undef, "to_ascii\(\'\\u0FAF\\uDB40\\uDD46飛\。3\.\。눇\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2154\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{0F96}\x{0601}\x{200D}.\x{200C}⿃", %p)}, undef, "to_ascii\(\'\\u200C\\u0F96\\u0601\\u200D.\\u200C⿃\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:2156\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{0F96}\x{0601}\x{200D}.\x{200C}鳥", %p)}, undef, "to_ascii\(\'\\u200C\\u0F96\\u0601\\u200D\.\\u200C鳥\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:2158\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0931}.\x{200D}🀶\x{1EF6C}\x{1A7B}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDD31.\\u200D🀶\\uD83B\\uDF6C\\u1A7B\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2160\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0931}.\x{200D}🀶\x{1EF6C}\x{1A7B}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDD31\.\\u200D🀶\\uD83B\\uDF6C\\u1A7B\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2162\]") 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{E015B}.ꡬ\x{200D}", %p)}, undef, "to_ascii\(\'ᡵ\\uDB40\\uDD5B\.ꡬ\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2164\]") 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--i9e.xn--id9a", %p)}, "xn--i9e.xn--id9a", "to_ascii\(\'xn\-\-i9e\.xn\-\-id9a\'\)\ \[data\/IdnaTest\.txt\:2165\]") 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--i9e.xn--id9a", "to_ascii\(\'ᡵ\.ꡬ\'\)\ \[data\/IdnaTest\.txt\:2166\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0600}\x{1B44}-.\x{C5109}\x{1BF2}\x{AC9E9}", %p)}, undef, "to_ascii\(\'\\u0600\\u1B44\-.\\uDAD4\\uDD09\\u1BF2\\uDA72\\uDDE9\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2167\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0600}\x{1B44}-.\x{C5109}\x{1BF2}\x{AC9E9}", %p)}, undef, "to_ascii\(\'\\u0600\\u1B44\-\.\\uDAD4\\uDD09\\u1BF2\\uDA72\\uDDE9\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2168\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{11046}-\x{10E63}。\x{0E34}\x{200C}\x{10E64}≮", %p)}, undef, "to_ascii\(\'4\\uD804\\uDC46\-\\uD803\\uDE63。\\u0E34\\u200C\\uD803\\uDE64\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2170\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{11046}-\x{10E63}。\x{0E34}\x{200C}\x{10E64}<\x{0338}", %p)}, undef, "to_ascii\(\'4\\uD804\\uDC46\-\\uD803\\uDE63。\\u0E34\\u200C\\uD803\\uDE64\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2172\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{11046}-\x{10E63}。\x{0E34}\x{200C}\x{10E64}≮", %p)}, undef, "to_ascii\(\'4\\uD804\\uDC46\-\\uD803\\uDE63\。\\u0E34\\u200C\\uD803\\uDE64\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2174\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{11046}-\x{10E63}。\x{0E34}\x{200C}\x{10E64}<\x{0338}", %p)}, undef, "to_ascii\(\'4\\uD804\\uDC46\-\\uD803\\uDE63\。\\u0E34\\u200C\\uD803\\uDE64\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2176\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。\x{FFA0}\x{A953}\x{030C}", %p)}, undef, "to_ascii\(\'\\u200C\。\\uFFA0\\uA953\\u030C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2178\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。\x{1160}\x{A953}\x{030C}", %p)}, undef, "to_ascii\(\'\\u200C\。\\u1160\\uA953\\u030C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2180\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{8FE71}.\x{200D}𝈲\x{9A2B8}", %p)}, undef, "to_ascii\(\'\≯\\uD9FF\\uDE71.\\u200D𝈲\\uDA28\\uDEB8\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2182\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{8FE71}.\x{200D}𝈲\x{9A2B8}", %p)}, undef, "to_ascii\(\'\>\\u0338\\uD9FF\\uDE71.\\u200D𝈲\\uDA28\\uDEB8\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2184\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{8FE71}.\x{200D}𝈲\x{9A2B8}", %p)}, undef, "to_ascii\(\'\≯\\uD9FF\\uDE71\.\\u200D𝈲\\uDA28\\uDEB8\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2186\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{8FE71}.\x{200D}𝈲\x{9A2B8}", %p)}, undef, "to_ascii\(\'\>\\u0338\\uD9FF\\uDE71\.\\u200D𝈲\\uDA28\\uDEB8\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2188\]") 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{07DE}。⁶\x{071F}", %p)}, undef, "to_ascii\(\'ꡞß\\u07DE。⁶\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2189\]") 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{07DE}。6\x{071F}", %p)}, undef, "to_ascii\(\'ꡞß\\u07DE\。6\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2190\]") 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("ꡞSS\x{07DE}。6\x{071F}", %p)}, undef, "to_ascii\(\'ꡞSS\\u07DE\。6\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2191\]") 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("ꡞss\x{07DE}。6\x{071F}", %p)}, undef, "to_ascii\(\'ꡞss\\u07DE\。6\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2192\]") 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("ꡞSs\x{07DE}。6\x{071F}", %p)}, undef, "to_ascii\(\'ꡞSs\\u07DE\。6\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2193\]") 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("ꡞSS\x{07DE}。⁶\x{071F}", %p)}, undef, "to_ascii\(\'ꡞSS\\u07DE。⁶\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2194\]") 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("ꡞss\x{07DE}。⁶\x{071F}", %p)}, undef, "to_ascii\(\'ꡞss\\u07DE。⁶\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2195\]") 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("ꡞSs\x{07DE}。⁶\x{071F}", %p)}, undef, "to_ascii\(\'ꡞSs\\u07DE。⁶\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2196\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ß\x{E005D}\x{1A5A}\x{1EF97}。\x{10C99}\x{126EE}\x{0666}", %p)}, undef, "to_ascii\(\'ß\\uDB40\\uDC5D\\u1A5A\\uD83B\\uDF97\。\\uD803\\uDC99\\uD809\\uDEEE\\u0666\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2197\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{E005D}\x{1A5A}\x{1EF97}。\x{10C99}\x{126EE}\x{0666}", %p)}, undef, "to_ascii\(\'SS\\uDB40\\uDC5D\\u1A5A\\uD83B\\uDF97\。\\uD803\\uDC99\\uD809\\uDEEE\\u0666\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2198\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{E005D}\x{1A5A}\x{1EF97}。\x{10C99}\x{126EE}\x{0666}", %p)}, undef, "to_ascii\(\'ss\\uDB40\\uDC5D\\u1A5A\\uD83B\\uDF97\。\\uD803\\uDC99\\uD809\\uDEEE\\u0666\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2199\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{E005D}\x{1A5A}\x{1EF97}。\x{10C99}\x{126EE}\x{0666}", %p)}, undef, "to_ascii\(\'Ss\\uDB40\\uDC5D\\u1A5A\\uD83B\\uDF97\。\\uD803\\uDC99\\uD809\\uDEEE\\u0666\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2200\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{0319}𝟖\x{1E96B}", %p)}, undef, "to_ascii\(\'\-。\\u0319𝟖\\uD83A\\uDD6B\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2201\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{0319}8\x{1E96B}", %p)}, undef, "to_ascii\(\'\-\。\\u03198\\uD83A\\uDD6B\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2202\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}ς.-≮\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05ς.\-\≮\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2203\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}ς.-<\x{0338}\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05ς.\-\<\\u0338\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2204\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}ς.-≮\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05ς\.\-\≮\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2205\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}ς.-<\x{0338}\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05ς\.\-\<\\u0338\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2206\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}Σ.-<\x{0338}\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05Σ\.\-\<\\u0338\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2207\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}Σ.-≮\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05Σ\.\-\≮\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2208\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}σ.-≮\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05σ\.\-\≮\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2209\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}σ.-<\x{0338}\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05σ\.\-\<\\u0338\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2210\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}Σ.-<\x{0338}\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05Σ.\-\<\\u0338\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2211\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}Σ.-≮\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05Σ.\-\≮\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2212\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}σ.-≮\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05σ.\-\≮\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2213\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4E605}σ.-<\x{0338}\x{109F0}", %p)}, undef, "to_ascii\(\'\\uD8F9\\uDE05σ.\-\<\\u0338\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2214\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0772}\x{0685}\x{071A}.\x{D0158}🍼\x{A8C4}\x{1ED96}", %p)}, undef, "to_ascii\(\'\\u0772\\u0685\\u071A.\\uDB00\\uDD58🍼\\uA8C4\\uD83B\\uDD96\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2215\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0772}\x{0685}\x{071A}.\x{D0158}🍼\x{A8C4}\x{1ED96}", %p)}, undef, "to_ascii\(\'\\u0772\\u0685\\u071A\.\\uDB00\\uDD58🍼\\uA8C4\\uD83B\\uDD96\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2216\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FD2E}\x{06B0}ᢦ\x{063A}。🄅\x{08ED}\x{A949}", %p)}, undef, "to_ascii\(\'\\uFD2E\\u06B0ᢦ\\u063A\。🄅\\u08ED\\uA949\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:2217\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0634}\x{062D}\x{06B0}ᢦ\x{063A}。4,\x{08ED}\x{A949}", %p)}, undef, "to_ascii\(\'\\u0634\\u062D\\u06B0ᢦ\\u063A\。4\,\\u08ED\\uA949\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:2218\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₇\x{B4228}--。\x{0755}\x{200C}\x{FC9A}\x{1BAA}", %p)}, undef, "to_ascii\(\'₇\\uDA90\\uDE28\-\-\。\\u0755\\u200C\\uFC9A\\u1BAA\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2219\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("7\x{B4228}--。\x{0755}\x{200C}\x{0626}\x{0645}\x{1BAA}", %p)}, undef, "to_ascii\(\'7\\uDA90\\uDE28\-\-\。\\u0755\\u200C\\u0626\\u0645\\u1BAA\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2220\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("7\x{B4228}--。\x{0755}\x{200C}\x{064A}\x{0654}\x{0645}\x{1BAA}", %p)}, undef, "to_ascii\(\'7\\uDA90\\uDE28\-\-\。\\u0755\\u200C\\u064A\\u0654\\u0645\\u1BAA\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2221\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{5BE73}.\x{076D}ꡕ-", %p)}, undef, "to_ascii\(\'\-\\uD92F\\uDE73.\\u076Dꡕ\-\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2222\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{5BE73}.\x{076D}ꡕ-", %p)}, undef, "to_ascii\(\'\-\\uD92F\\uDE73\.\\u076Dꡕ\-\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2223\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}-ß。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_ascii\(\'\\u200C\-ß。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2225\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}-ß。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_ascii\(\'\\u200C\-ß\。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2227\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}-SS。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_ascii\(\'\\u200C\-SS\。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2229\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}-ss。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_ascii\(\'\\u200C\-ss\。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2231\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}-Ss。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_ascii\(\'\\u200C\-Ss\。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2233\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}-SS。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_ascii\(\'\\u200C\-SS。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2235\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}-ss。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_ascii\(\'\\u200C\-ss。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2237\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}-Ss。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_ascii\(\'\\u200C\-Ss。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2239\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("꧐Ӏ\x{09CD}\x{0A01}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u09CD\\u0A01.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("꧐Ӏ\x{09CD}\x{0A01}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u09CD\\u0A01.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2241\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("꧐Ӏ\x{09CD}\x{0A01}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u09CD\\u0A01\.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2242\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("꧐Ӏ\x{09CD}\x{0A01}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u09CD\\u0A01\.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2243\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{09CD}\x{0A01}.눵", %p)}, "xn--s5a07wqex704d.xn--2e1b", "to_ascii\(\'꧐ӏ\\u09CD\\u0A01\.눵\'\)\ \[data\/IdnaTest\.txt\:2244\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{09CD}\x{0A01}.눵", %p)}, "xn--s5a07wqex704d.xn--2e1b", "to_ascii\(\'꧐ӏ\\u09CD\\u0A01\.눵\'\)\ \[data\/IdnaTest\.txt\:2245\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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--s5a07wqex704d.xn--2e1b", %p)}, "xn--s5a07wqex704d.xn--2e1b", "to_ascii\(\'xn\-\-s5a07wqex704d\.xn\-\-2e1b\'\)\ \[data\/IdnaTest\.txt\:2246\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{09CD}\x{0A01}.눵", %p)}, "xn--s5a07wqex704d.xn--2e1b", "to_ascii\(\'꧐ӏ\\u09CD\\u0A01.눵\'\)\ \[data\/IdnaTest\.txt\:2247\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{09CD}\x{0A01}.눵", %p)}, "xn--s5a07wqex704d.xn--2e1b", "to_ascii\(\'꧐ӏ\\u09CD\\u0A01.눵\'\)\ \[data\/IdnaTest\.txt\:2248\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E007E}。\x{D8EF7}\x{0348}\x{1B72}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDC7E。\\uDB23\\uDEF7\\u0348\\u1B72\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2249\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E007E}。\x{D8EF7}\x{0348}\x{1B72}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDC7E\。\\uDB23\\uDEF7\\u0348\\u1B72\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2250\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4230F}🁸。\x{53771}≯⾇", %p)}, undef, "to_ascii\(\'\\uD8C8\\uDF0F🁸\。\\uD90D\\uDF71\≯⾇\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2251\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4230F}🁸。\x{53771}>\x{0338}⾇", %p)}, undef, "to_ascii\(\'\\uD8C8\\uDF0F🁸\。\\uD90D\\uDF71\>\\u0338⾇\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2252\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4230F}🁸。\x{53771}≯舛", %p)}, undef, "to_ascii\(\'\\uD8C8\\uDF0F🁸\。\\uD90D\\uDF71\≯舛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2253\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4230F}🁸。\x{53771}>\x{0338}舛", %p)}, undef, "to_ascii\(\'\\uD8C8\\uDF0F🁸\。\\uD90D\\uDF71\>\\u0338舛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CD}\x{0602}\x{200C}.\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'\\u06CD\\u0602\\u200C.\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ C1\ C2\ \[data\/IdnaTest\.txt\:2256\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CD}\x{0602}\x{200C}.\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'\\u06CD\\u0602\\u200C\.\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ C1\ C2\ \[data\/IdnaTest\.txt\:2258\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FB266}砪≯\x{0639}。≯\x{1A74}\x{B5208}\x{200C}", %p)}, undef, "to_ascii\(\'\\uDBAC\\uDE66砪\≯\\u0639。\≯\\u1A74\\uDA94\\uDE08\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2260\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FB266}砪>\x{0338}\x{0639}。>\x{0338}\x{1A74}\x{B5208}\x{200C}", %p)}, undef, "to_ascii\(\'\\uDBAC\\uDE66砪\>\\u0338\\u0639。\>\\u0338\\u1A74\\uDA94\\uDE08\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2262\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FB266}砪≯\x{0639}。≯\x{1A74}\x{B5208}\x{200C}", %p)}, undef, "to_ascii\(\'\\uDBAC\\uDE66砪\≯\\u0639\。\≯\\u1A74\\uDA94\\uDE08\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2264\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FB266}砪>\x{0338}\x{0639}。>\x{0338}\x{1A74}\x{B5208}\x{200C}", %p)}, undef, "to_ascii\(\'\\uDBAC\\uDE66砪\>\\u0338\\u0639\。\>\\u0338\\u1A74\\uDA94\\uDE08\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2266\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴥ.\x{11134}㊸", %p)}, undef, "to_ascii\(\'Ⴥ\.\\uD804\\uDD34㊸\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2267\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴥ.\x{11134}43", %p)}, undef, "to_ascii\(\'Ⴥ\.\\uD804\\uDD3443\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2268\]") 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{11134}43", %p)}, undef, "to_ascii\(\'ⴥ\.\\uD804\\uDD3443\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2269\]") 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{11134}㊸", %p)}, undef, "to_ascii\(\'ⴥ\.\\uD804\\uDD34㊸\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2270\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝟒\x{0663}。Ⴒᡷ\x{FE09}\x{10E64}", %p)}, undef, "to_ascii\(\'𝟒\\u0663\。Ⴒᡷ\\uFE09\\uD803\\uDE64\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2271\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{0663}。Ⴒᡷ\x{FE09}\x{10E64}", %p)}, undef, "to_ascii\(\'4\\u0663\。Ⴒᡷ\\uFE09\\uD803\\uDE64\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2272\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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("4\x{0663}。ⴒᡷ\x{FE09}\x{10E64}", %p)}, undef, "to_ascii\(\'4\\u0663\。ⴒᡷ\\uFE09\\uD803\\uDE64\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2273\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0663}。ⴒᡷ\x{FE09}\x{10E64}", %p)}, undef, "to_ascii\(\'𝟒\\u0663\。ⴒᡷ\\uFE09\\uD803\\uDE64\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2274\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{8A366}\x{1DD8}\x{FFA0}\x{059B}.\x{93F50}\x{2D7F}", %p)}, undef, "to_ascii\(\'\\uD9E8\\uDF66\\u1DD8\\uFFA0\\u059B\.\\uDA0F\\uDF50\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2275\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{8A366}\x{1DD8}\x{1160}\x{059B}.\x{93F50}\x{2D7F}", %p)}, undef, "to_ascii\(\'\\uD9E8\\uDF66\\u1DD8\\u1160\\u059B\.\\uDA0F\\uDF50\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2276\]") 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{FE08}.𝟠\x{200C}\x{103A}", %p)}, undef, "to_ascii\(\'\\uFE08\.𝟠\\u200C\\u103A\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2278\]") 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{FE08}.8\x{200C}\x{103A}", %p)}, undef, "to_ascii\(\'\\uFE08\.8\\u200C\\u103A\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2280\]") 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--8-dug", %p)}, "xn--8-dug", "to_ascii\(\'xn\-\-8\-dug\'\)\ \[data\/IdnaTest\.txt\:2281\]") 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("8\x{103A}", %p)}, "xn--8-dug", "to_ascii\(\'8\\u103A\'\)\ \[data\/IdnaTest\.txt\:2282\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{063F}.︒ꡅ", %p)}, undef, "to_ascii\(\'\\u063F.︒ꡅ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2283\]") 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{063F}.。ꡅ", %p)}, undef, "to_ascii\(\'\\u063F\.\。ꡅ\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:2284\]") 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{1BF3}\x{0349}。\x{FC71}", %p)}, undef, "to_ascii\(\'\\u1BF3\\u0349。\\uFC71\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2285\]") 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{1BF3}\x{0349}。\x{062A}\x{0632}", %p)}, undef, "to_ascii\(\'\\u1BF3\\u0349\。\\u062A\\u0632\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2286\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FCB3}。ꡋ\x{57A89}", %p)}, undef, "to_ascii\(\'\\uFCB3\。ꡋ\\uD91E\\uDE89\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2287\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0635}\x{0645}。ꡋ\x{57A89}", %p)}, undef, "to_ascii\(\'\\u0635\\u0645\。ꡋ\\uD91E\\uDE89\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2288\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1BF2}㴼.\x{200C}\x{10E78}\x{E01E9}\x{921E3}", %p)}, undef, "to_ascii\(\'\\u1BF2㴼.\\u200C\\uD803\\uDE78\\uDB40\\uDDE9\\uDA08\\uDDE3\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2290\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1BF2}㴼.\x{200C}\x{10E78}\x{E01E9}\x{921E3}", %p)}, undef, "to_ascii\(\'\\u1BF2㴼\.\\u200C\\uD803\\uDE78\\uDB40\\uDDE9\\uDA08\\uDDE3\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2292\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𠨧\x{0665}\x{200B}。\x{0737}", %p)}, undef, "to_ascii\(\'𠨧\\u0665\\u200B。\\u0737\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2293\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𠨧\x{0665}\x{200B}。\x{0737}", %p)}, undef, "to_ascii\(\'𠨧\\u0665\\u200B\。\\u0737\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2294\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0855}뾜⊙\x{AAF6}。\x{089D}\x{10E75}", %p)}, undef, "to_ascii\(\'\\u0855뾜\⊙\\uAAF6\。\\u089D\\uD803\\uDE75\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2295\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0855}뾜⊙\x{AAF6}。\x{089D}\x{10E75}", %p)}, undef, "to_ascii\(\'\\u0855뾜\⊙\\uAAF6\。\\u089D\\uD803\\uDE75\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2296\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E73}≠。⒖⸃\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE73\≠。⒖\⸃\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2298\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E73}=\x{0338}。⒖⸃\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE73\=\\u0338。⒖\⸃\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2300\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E73}≠。15.⸃\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE73\≠\。15\.\⸃\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2302\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E73}=\x{0338}。15.⸃\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE73\=\\u0338\。15\.\⸃\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2304\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}\x{8845A}\x{103A}.\x{200D}\x{11046}\x{1E9A2}", %p)}, undef, "to_ascii\(\'\\u115F\\uD9E1\\uDC5A\\u103A.\\u200D\\uD804\\uDC46\\uD83A\\uDDA2\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2306\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}\x{8845A}\x{103A}.\x{200D}\x{11046}\x{1E9A2}", %p)}, undef, "to_ascii\(\'\\u115F\\uD9E1\\uDC5A\\u103A\.\\u200D\\uD804\\uDC46\\uD83A\\uDDA2\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2308\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AD20D}\x{0AC5}\x{05C5}\x{05AD}。≮", %p)}, undef, "to_ascii\(\'\\uDA74\\uDE0D\\u0AC5\\u05C5\\u05AD\。\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2309\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AD20D}\x{0AC5}\x{05C5}\x{05AD}。<\x{0338}", %p)}, undef, "to_ascii\(\'\\uDA74\\uDE0D\\u0AC5\\u05C5\\u05AD\。\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2310\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F9B}.\x{1032}暀≠", %p)}, undef, "to_ascii\(\'\\u0F9B\.\\u1032暀\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2311\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F9B}.\x{1032}暀=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0F9B\.\\u1032暀\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2312\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10C23}\x{A806}。\x{10DFB}\x{C0AAC}\x{11081}", %p)}, undef, "to_ascii\(\'\\uD803\\uDC23\\uA806。\\uD803\\uDDFB\\uDAC2\\uDEAC\\uD804\\uDC81\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2313\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10C23}\x{A806}。\x{10DFB}\x{C0AAC}\x{11081}", %p)}, undef, "to_ascii\(\'\\uD803\\uDC23\\uA806\。\\uD803\\uDDFB\\uDAC2\\uDEAC\\uD804\\uDC81\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2314\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1D17E}\x{200D}⒈。Ⴌ\x{1ED9D}", %p)}, undef, "to_ascii\(\'\\uD834\\uDD7E\\u200D⒈。Ⴌ\\uD83B\\uDD9D\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2316\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1D17E}\x{200D}1.。Ⴌ\x{1ED9D}", %p)}, undef, "to_ascii\(\'\\uD834\\uDD7E\\u200D1\.\。Ⴌ\\uD83B\\uDD9D\'\)\ throws\ error\ P1\ V5\ V6\ C2\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2318\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1D17E}\x{200D}1.。ⴌ\x{1ED9D}", %p)}, undef, "to_ascii\(\'\\uD834\\uDD7E\\u200D1\.\。ⴌ\\uD83B\\uDD9D\'\)\ throws\ error\ P1\ V5\ V6\ C2\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2320\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1D17E}\x{200D}⒈。ⴌ\x{1ED9D}", %p)}, undef, "to_ascii\(\'\\uD834\\uDD7E\\u200D⒈。ⴌ\\uD83B\\uDD9D\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2322\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DAA}\x{0BCD}\x{151AB}\x{076B}.ς\x{78786}\x{90BAA}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDAA\\u0BCD\\uD814\\uDDAB\\u076B\.ς\\uD9A1\\uDF86\\uDA02\\uDFAA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2323\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DAA}\x{0BCD}\x{151AB}\x{076B}.Σ\x{78786}\x{90BAA}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDAA\\u0BCD\\uD814\\uDDAB\\u076B\.Σ\\uD9A1\\uDF86\\uDA02\\uDFAA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2324\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DAA}\x{0BCD}\x{151AB}\x{076B}.σ\x{78786}\x{90BAA}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDAA\\u0BCD\\uD814\\uDDAB\\u076B\.σ\\uD9A1\\uDF86\\uDA02\\uDFAA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2325\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0844}。\x{200C}\x{06BE}\x{5D389}", %p)}, undef, "to_ascii\(\'\\u0844\。\\u200C\\u06BE\\uD934\\uDF89\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2327\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}\x{E0196}.\x{0AC3}\x{06AF}\x{06BF}\x{1A18}", %p)}, undef, "to_ascii\(\'\\u1A78\\uDB40\\uDD96\.\\u0AC3\\u06AF\\u06BF\\u1A18\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2328\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("䂹\x{10D5DB}6.\x{200D}", %p)}, undef, "to_ascii\(\'䂹\\uDBF5\\uDDDB6.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2330\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䂹\x{10D5DB}6.\x{200D}", %p)}, undef, "to_ascii\(\'䂹\\uDBF5\\uDDDB6\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2332\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}\x{200C}\x{10E6B}\x{200C}。\x{1ECE5}۰", %p)}, undef, "to_ascii\(\'\\u0BCD\\u200C\\uD803\\uDE6B\\u200C。\\uD83B\\uDCE5۰\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2334\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}\x{200C}\x{10E6B}\x{200C}。\x{1ECE5}۰", %p)}, undef, "to_ascii\(\'\\u0BCD\\u200C\\uD803\\uDE6B\\u200C\。\\uD83B\\uDCE5۰\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[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("。。Ⴃ≯", %p)}, undef, "to_ascii\(\'\。\。Ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2339\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。。Ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'\。\。Ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2340\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。。ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'\。\。ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2341\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。。ⴃ≯", %p)}, undef, "to_ascii\(\'\。\。ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2342\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒。ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'︒。ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2343\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒。ⴃ≯", %p)}, undef, "to_ascii\(\'︒。ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2344\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E79}。\x{E0D8D}\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE79。\\uDB43\\uDD8D\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2346\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E79}。\x{E0D8D}\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE79\。\\uDB43\\uDD8D\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2348\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ\x{0600}。︒ꡠ\x{200D}Ⴏ", %p)}, undef, "to_ascii\(\'Ⴞ\\u0600。︒ꡠ\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:2350\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ\x{0600}。。ꡠ\x{200D}Ⴏ", %p)}, undef, "to_ascii\(\'Ⴞ\\u0600\。\。ꡠ\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ A4_2\ C2\ \[data\/IdnaTest\.txt\:2352\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ\x{0600}。。ꡠ\x{200D}ⴏ", %p)}, undef, "to_ascii\(\'ⴞ\\u0600\。\。ꡠ\\u200Dⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ A4_2\ C2\ \[data\/IdnaTest\.txt\:2354\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ\x{0600}。︒ꡠ\x{200D}ⴏ", %p)}, undef, "to_ascii\(\'ⴞ\\u0600。︒ꡠ\\u200Dⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:2356\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴆ⒈。-\x{E0158}-\x{07D2}", %p)}, undef, "to_ascii\(\'\\u200CႦ⒈\。\-\\uDB40\\uDD58\-\\u07D2\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2358\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴆ1.。-\x{E0158}-\x{07D2}", %p)}, undef, "to_ascii\(\'\\u200CႦ1\.\。\-\\uDB40\\uDD58\-\\u07D2\'\)\ throws\ error\ P1\ V6\ V3\ C1\ A4_2\ B1\ \[data\/IdnaTest\.txt\:2360\]") 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}ⴆ1.。-\x{E0158}-\x{07D2}", %p)}, undef, "to_ascii\(\'\\u200Cⴆ1\.\。\-\\uDB40\\uDD58\-\\u07D2\'\)\ throws\ error\ V3\ C1\ A4_2\ B1\ \[data\/IdnaTest\.txt\:2362\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}ⴆ⒈。-\x{E0158}-\x{07D2}", %p)}, undef, "to_ascii\(\'\\u200Cⴆ⒈\。\-\\uDB40\\uDD58\-\\u07D2\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2364\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃Ⴡ-\x{E005A}。≠-𐆓", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\\uDB40\\uDC5A。\≠\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2365\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃Ⴡ-\x{E005A}。=\x{0338}-𐆓", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\\uDB40\\uDC5A。\=\\u0338\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2366\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃Ⴡ-\x{E005A}。≠-𐆓", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\\uDB40\\uDC5A\。\≠\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2367\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃Ⴡ-\x{E005A}。=\x{0338}-𐆓", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\\uDB40\\uDC5A\。\=\\u0338\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2368\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃ⴡ-\x{E005A}。=\x{0338}-𐆓", %p)}, undef, "to_ascii\(\'箃ⴡ\-\\uDB40\\uDC5A\。\=\\u0338\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2369\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃ⴡ-\x{E005A}。≠-𐆓", %p)}, undef, "to_ascii\(\'箃ⴡ\-\\uDB40\\uDC5A\。\≠\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2370\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃ⴡ-\x{E005A}。=\x{0338}-𐆓", %p)}, undef, "to_ascii\(\'箃ⴡ\-\\uDB40\\uDC5A。\=\\u0338\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2371\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃ⴡ-\x{E005A}。≠-𐆓", %p)}, undef, "to_ascii\(\'箃ⴡ\-\\uDB40\\uDC5A。\≠\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2372\]") 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{07DF}", %p)}, "xn--78e.xn--6sb", "to_ascii\(\'ᡫ\.\\u07DF\'\)\ \[data\/IdnaTest\.txt\:2373\]") 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--78e.xn--6sb", %p)}, "xn--78e.xn--6sb", "to_ascii\(\'xn\-\-78e\.xn\-\-6sb\'\)\ \[data\/IdnaTest\.txt\:2374\]") 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{200D}.ꡑ", %p)}, undef, "to_ascii\(\'\\u200C\\u200D\.ꡑ\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:2376\]") 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--qc9a", %p)}, "xn--qc9a", "to_ascii\(\'xn\-\-qc9a\'\)\ \[data\/IdnaTest\.txt\:2377\]") 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--qc9a", "to_ascii\(\'ꡑ\'\)\ \[data\/IdnaTest\.txt\:2378\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E07EA}\x{10E7A}\x{06C5}.ς\x{1039}蜹", %p)}, undef, "to_ascii\(\'\\uDB41\\uDFEA\\uD803\\uDE7A\\u06C5\.ς\\u1039蜹\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2379\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E07EA}\x{10E7A}\x{06C5}.Σ\x{1039}蜹", %p)}, undef, "to_ascii\(\'\\uDB41\\uDFEA\\uD803\\uDE7A\\u06C5\.Σ\\u1039蜹\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2380\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E07EA}\x{10E7A}\x{06C5}.σ\x{1039}蜹", %p)}, undef, "to_ascii\(\'\\uDB41\\uDFEA\\uD803\\uDE7A\\u06C5\.σ\\u1039蜹\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2381\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9D1CE}ス\x{101FF0}\x{10E75}.\x{C819F}", %p)}, undef, "to_ascii\(\'\\uDA34\\uDDCEス\\uDBC7\\uDFF0\\uD803\\uDE75.\\uDAE0\\uDD9F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2382\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9D1CE}ス\x{101FF0}\x{10E75}.\x{C819F}", %p)}, undef, "to_ascii\(\'\\uDA34\\uDDCEス\\uDBC7\\uDFF0\\uD803\\uDE75\.\\uDAE0\\uDD9F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2383\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B81}\x{4B205}.\x{0F87}\x{D850}\x{0721}", %p)}, undef, "to_ascii\(\'\\u1B81\\uD8EC\\uDE05.\\u0F87\\uD850\\u0721\'\)\ throws\ error\ P1\ V5\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2384\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B81}\x{4B205}.\x{0F87}\x{D850}\x{0721}", %p)}, undef, "to_ascii\(\'\\u1B81\\uD8EC\\uDE05\.\\u0F87\\uD850\\u0721\'\)\ throws\ error\ P1\ V5\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2385\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0668}\x{C3F02}\x{200C}。\x{08A7}", %p)}, undef, "to_ascii\(\'\\u0668\\uDACF\\uDF02\\u200C\。\\u08A7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2387\]") 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{200D}\x{200C}。-\x{200C}", %p)}, undef, "to_ascii\(\'\\u1BAA\\u200D\\u200C\。\-\\u200C\'\)\ throws\ error\ V5\ V3\ C1\ \[data\/IdnaTest\.txt\:2389\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("︒。\x{1BAB}\x{076E}", %p)}, undef, "to_ascii\(\'︒。\\u1BAB\\u076E\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2390\]") 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{1BAB}\x{076E}", %p)}, undef, "to_ascii\(\'\。\。\\u1BAB\\u076E\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2391\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{067C}ß。ጫ\x{06B3}\x{0698}1", %p)}, undef, "to_ascii\(\'\\u067Cß\。ጫ\\u06B3\\u06981\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2392\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{067C}SS。ጫ\x{06B3}\x{0698}1", %p)}, undef, "to_ascii\(\'\\u067CSS\。ጫ\\u06B3\\u06981\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2393\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{067C}ss。ጫ\x{06B3}\x{0698}1", %p)}, undef, "to_ascii\(\'\\u067Css\。ጫ\\u06B3\\u06981\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2394\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{067C}Ss。ጫ\x{06B3}\x{0698}1", %p)}, undef, "to_ascii\(\'\\u067CSs\。ጫ\\u06B3\\u06981\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2395\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FB52}\x{1E9A7}ᚲ.\x{0B4D}꒕🄇\x{1714}", %p)}, undef, "to_ascii\(\'\\uFB52\\uD83A\\uDDA7ᚲ\.\\u0B4D꒕🄇\\u1714\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2396\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{067B}\x{1E9A7}ᚲ.\x{0B4D}꒕6,\x{1714}", %p)}, undef, "to_ascii\(\'\\u067B\\uD83A\\uDDA7ᚲ\.\\u0B4D꒕6\,\\u1714\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2397\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{0A4D}︒\x{200D}.\x{D2E58}簸", %p)}, undef, "to_ascii\(\'\-\\u0A4D︒\\u200D\.\\uDB0B\\uDE58簸\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2399\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{0A4D}。\x{200D}.\x{D2E58}簸", %p)}, undef, "to_ascii\(\'\-\\u0A4D\。\\u200D\.\\uDB0B\\uDE58簸\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2401\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⳧.≯\x{05B7}", %p)}, undef, "to_ascii\(\'⳧\.\≯\\u05B7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2402\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⳧.>\x{0338}\x{05B7}", %p)}, undef, "to_ascii\(\'⳧\.\>\\u0338\\u05B7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2403\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{0ACD}\x{0359}\x{0666}。\x{1EFB3}", %p)}, undef, "to_ascii\(\'\-\\u0ACD\\u0359\\u0666\。\\uD83B\\uDFB3\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2404\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡢ.\x{06EE}\x{115F}", %p)}, undef, "to_ascii\(\'ᡢ.\\u06EE\\u115F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2405\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡢ.\x{06EE}\x{115F}", %p)}, undef, "to_ascii\(\'ᡢ\.\\u06EE\\u115F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2406\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㨛\x{BA6B3}.︒𝟜\x{085A}", %p)}, undef, "to_ascii\(\'㨛\\uDAA9\\uDEB3\.︒𝟜\\u085A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2407\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㨛\x{BA6B3}.。4\x{085A}", %p)}, undef, "to_ascii\(\'㨛\\uDAA9\\uDEB3\.\。4\\u085A\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2408\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0602}\x{60317}-。\x{10E89}\x{E0024}\x{08A8}≮", %p)}, undef, "to_ascii\(\'\\u0602\\uD940\\uDF17\-。\\uD803\\uDE89\\uDB40\\uDC24\\u08A8\≮\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2409\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0602}\x{60317}-。\x{10E89}\x{E0024}\x{08A8}<\x{0338}", %p)}, undef, "to_ascii\(\'\\u0602\\uD940\\uDF17\-。\\uD803\\uDE89\\uDB40\\uDC24\\u08A8\<\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2410\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0602}\x{60317}-。\x{10E89}\x{E0024}\x{08A8}≮", %p)}, undef, "to_ascii\(\'\\u0602\\uD940\\uDF17\-\。\\uD803\\uDE89\\uDB40\\uDC24\\u08A8\≮\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2411\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0602}\x{60317}-。\x{10E89}\x{E0024}\x{08A8}<\x{0338}", %p)}, undef, "to_ascii\(\'\\u0602\\uD940\\uDF17\-\。\\uD803\\uDE89\\uDB40\\uDC24\\u08A8\<\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2412\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{200C}\x{11101}ᡚ.\x{06EA}ჁႶ", %p)}, undef, "to_ascii\(\'ß\\u200C\\uD804\\uDD01ᡚ.\\u06EAჁႶ\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2414\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{200C}\x{11101}ᡚ.\x{06EA}ჁႶ", %p)}, undef, "to_ascii\(\'ß\\u200C\\uD804\\uDD01ᡚ\.\\u06EAჁႶ\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2416\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_ascii\(\'ß\\u200C\\uD804\\uDD01ᡚ\.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2418\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SS\x{200C}\x{11101}ᡚ.\x{06EA}ჁႶ", %p)}, undef, "to_ascii\(\'SS\\u200C\\uD804\\uDD01ᡚ\.\\u06EAჁႶ\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2420\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_ascii\(\'ss\\u200C\\uD804\\uDD01ᡚ\.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2422\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_ascii\(\'Ss\\u200C\\uD804\\uDD01ᡚ\.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2424\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_ascii\(\'ß\\u200C\\uD804\\uDD01ᡚ.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2426\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SS\x{200C}\x{11101}ᡚ.\x{06EA}ჁႶ", %p)}, undef, "to_ascii\(\'SS\\u200C\\uD804\\uDD01ᡚ.\\u06EAჁႶ\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2428\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_ascii\(\'ss\\u200C\\uD804\\uDD01ᡚ.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2430\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_ascii\(\'Ss\\u200C\\uD804\\uDD01ᡚ.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2432\]") 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}。ς\x{11039}", %p)}, undef, "to_ascii\(\'\\u200D\。ς\\uD804\\uDC39\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2434\]") 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}。Σ\x{11039}", %p)}, undef, "to_ascii\(\'\\u200D\。Σ\\uD804\\uDC39\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2436\]") 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}。σ\x{11039}", %p)}, undef, "to_ascii\(\'\\u200D\。σ\\uD804\\uDC39\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2438\]") 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--4xa6658k", %p)}, "xn--4xa6658k", "to_ascii\(\'xn\-\-4xa6658k\'\)\ \[data\/IdnaTest\.txt\:2439\]") 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{11039}", %p)}, "xn--4xa6658k", "to_ascii\(\'σ\\uD804\\uDC39\'\)\ \[data\/IdnaTest\.txt\:2440\]") 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{11039}", %p)}, "xn--4xa6658k", "to_ascii\(\'Σ\\uD804\\uDC39\'\)\ \[data\/IdnaTest\.txt\:2441\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0721}ß.\x{0714}\x{200D}ᢊ-", %p)}, undef, "to_ascii\(\'\\u0721ß\.\\u0714\\u200Dᢊ\-\'\)\ throws\ error\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2443\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0721}SS.\x{0714}\x{200D}ᢊ-", %p)}, undef, "to_ascii\(\'\\u0721SS\.\\u0714\\u200Dᢊ\-\'\)\ throws\ error\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2445\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0721}ss.\x{0714}\x{200D}ᢊ-", %p)}, undef, "to_ascii\(\'\\u0721ss\.\\u0714\\u200Dᢊ\-\'\)\ throws\ error\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2447\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0721}Ss.\x{0714}\x{200D}ᢊ-", %p)}, undef, "to_ascii\(\'\\u0721Ss\.\\u0714\\u200Dᢊ\-\'\)\ throws\ error\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2449\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{302A}\x{200D}ᡗ.\x{10E77}\x{97264}-", %p)}, undef, "to_ascii\(\'\\u302A\\u200Dᡗ.\\uD803\\uDE77\\uDA1C\\uDE64\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:2451\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{302A}\x{200D}ᡗ.\x{10E77}\x{97264}-", %p)}, undef, "to_ascii\(\'\\u302A\\u200Dᡗ\.\\uD803\\uDE77\\uDA1C\\uDE64\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:2453\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟢\x{81DED}\x{49122}\x{135F}.-\x{63ADF}", %p)}, undef, "to_ascii\(\'𝟢\\uD9C7\\uDDED\\uD8E4\\uDD22\\u135F\.\-\\uD94E\\uDEDF\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2454\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0\x{81DED}\x{49122}\x{135F}.-\x{63ADF}", %p)}, undef, "to_ascii\(\'0\\uD9C7\\uDDED\\uD8E4\\uDD22\\u135F\.\-\\uD94E\\uDEDF\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2455\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{200D}", %p)}, undef, "to_ascii\(\'\-。\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2457\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{200D}", %p)}, undef, "to_ascii\(\'\-\。\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2459\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮ᠪ.ς7-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᠪ.ς7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2460\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ᠪ.ς7-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᠪ.ς7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2461\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮ᠪ.ς7-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᠪ\.ς7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2462\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ᠪ.ς7-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᠪ\.ς7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2463\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ᠪ.Σ7-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᠪ\.Σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2464\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮ᠪ.Σ7-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᠪ\.Σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2465\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮ᠪ.σ7-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᠪ\.σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2466\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ᠪ.σ7-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᠪ\.σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2467\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ᠪ.Σ7-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᠪ.Σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2468\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮ᠪ.Σ7-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᠪ.Σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2469\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮ᠪ.σ7-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮ᠪ.σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2470\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ᠪ.σ7-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338ᠪ.σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:2471\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ቬ\x{DA1A0}\x{6D893}。\x{10856}𝟫", %p)}, undef, "to_ascii\(\'ቬ\\uDB28\\uDDA0\\uD976\\uDC93。\\uD802\\uDC56𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2472\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ቬ\x{DA1A0}\x{6D893}。\x{10856}9", %p)}, undef, "to_ascii\(\'ቬ\\uDB28\\uDDA0\\uD976\\uDC93\。\\uD802\\uDC569\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2473\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1086F}。蔫ꡏ", %p)}, undef, "to_ascii\(\'\\uD802\\uDC6F\。蔫ꡏ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2474\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{127B3}3。ꡂ\x{71F1B}\x{17CD}ᡁ", %p)}, undef, "to_ascii\(\'\\uD809\\uDFB33。ꡂ\\uD987\\uDF1B\\u17CDᡁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2475\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{127B3}3。ꡂ\x{71F1B}\x{17CD}ᡁ", %p)}, undef, "to_ascii\(\'\\uD809\\uDFB33\。ꡂ\\uD987\\uDF1B\\u17CDᡁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2476\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4469F}ᡑ≠.ß", %p)}, undef, "to_ascii\(\'\\uD8D1\\uDE9Fᡑ\≠\.ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2477\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4469F}ᡑ=\x{0338}.ß", %p)}, undef, "to_ascii\(\'\\uD8D1\\uDE9Fᡑ\=\\u0338\.ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2478\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4469F}ᡑ=\x{0338}.SS", %p)}, undef, "to_ascii\(\'\\uD8D1\\uDE9Fᡑ\=\\u0338\.SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2479\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4469F}ᡑ≠.SS", %p)}, undef, "to_ascii\(\'\\uD8D1\\uDE9Fᡑ\≠\.SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2480\]") 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{0842}\x{E0152}۱.\x{0664}\x{FB20}⼀\x{200C}", %p)}, undef, "to_ascii\(\'ᠧ\\u0842\\uDB40\\uDD52۱\.\\u0664\\uFB20⼀\\u200C\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:2482\]") 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{0842}\x{E0152}۱.\x{0664}\x{05E2}一\x{200C}", %p)}, undef, "to_ascii\(\'ᠧ\\u0842\\uDB40\\uDD52۱\.\\u0664\\u05E2一\\u200C\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:2484\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ς\x{200D}-.Ⴣ\x{98733}", %p)}, undef, "to_ascii\(\'ς\\u200D\-\.Ⴣ\\uDA21\\uDF33\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2486\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{200D}-.ⴣ\x{98733}", %p)}, undef, "to_ascii\(\'ς\\u200D\-\.ⴣ\\uDA21\\uDF33\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2488\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{200D}-.Ⴣ\x{98733}", %p)}, undef, "to_ascii\(\'Σ\\u200D\-\.Ⴣ\\uDA21\\uDF33\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2490\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{200D}-.ⴣ\x{98733}", %p)}, undef, "to_ascii\(\'σ\\u200D\-\.ⴣ\\uDA21\\uDF33\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2492\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{E0880}𝟑", %p)}, undef, "to_ascii\(\'\≠\。\\uDB42\\uDC80𝟑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2493\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{E0880}𝟑", %p)}, undef, "to_ascii\(\'\=\\u0338\。\\uDB42\\uDC80𝟑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2494\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{E0880}3", %p)}, undef, "to_ascii\(\'\≠\。\\uDB42\\uDC803\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2495\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{E0880}3", %p)}, undef, "to_ascii\(\'\=\\u0338\。\\uDB42\\uDC803\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2496\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{5223B}.蠔", %p)}, undef, "to_ascii\(\'\\uD908\\uDE3B\.蠔\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2497\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{302C}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u302C\\u200D.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2499\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{302C}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u302C\\u200D.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2501\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{302C}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u302C\\u200D\.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2503\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{302C}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u302C\\u200D\.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2505\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟛\x{094D}Ⱉ\x{FEF9}。\x{E0077}\x{06EF}-\x{0874}", %p)}, undef, "to_ascii\(\'𝟛\\u094DⰙ\\uFEF9\。\\uDB40\\uDC77\\u06EF\-\\u0874\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2506\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{094D}Ⱉ\x{0644}\x{0625}。\x{E0077}\x{06EF}-\x{0874}", %p)}, undef, "to_ascii\(\'3\\u094DⰙ\\u0644\\u0625\。\\uDB40\\uDC77\\u06EF\-\\u0874\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2507\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{094D}Ⱉ\x{0644}\x{0627}\x{0655}。\x{E0077}\x{06EF}-\x{0874}", %p)}, undef, "to_ascii\(\'3\\u094DⰙ\\u0644\\u0627\\u0655\。\\uDB40\\uDC77\\u06EF\-\\u0874\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2508\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{094D}ⱉ\x{0644}\x{0627}\x{0655}。\x{E0077}\x{06EF}-\x{0874}", %p)}, undef, "to_ascii\(\'3\\u094Dⱉ\\u0644\\u0627\\u0655\。\\uDB40\\uDC77\\u06EF\-\\u0874\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2509\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{094D}ⱉ\x{0644}\x{0625}。\x{E0077}\x{06EF}-\x{0874}", %p)}, undef, "to_ascii\(\'3\\u094Dⱉ\\u0644\\u0625\。\\uDB40\\uDC77\\u06EF\-\\u0874\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2510\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟛\x{094D}ⱉ\x{FEF9}。\x{E0077}\x{06EF}-\x{0874}", %p)}, undef, "to_ascii\(\'𝟛\\u094Dⱉ\\uFEF9\。\\uDB40\\uDC77\\u06EF\-\\u0874\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2511\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。ᡯ", %p)}, undef, "to_ascii\(\'\-。ᡯ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2512\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。ᡯ", %p)}, undef, "to_ascii\(\'\-\。ᡯ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2513\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F93}\x{AEDEF}。-⒈\x{07CA}\x{07E1}", %p)}, undef, "to_ascii\(\'\\u0F93\\uDA7B\\uDDEF。\-⒈\\u07CA\\u07E1\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2514\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F92}\x{0FB7}\x{AEDEF}。-⒈\x{07CA}\x{07E1}", %p)}, undef, "to_ascii\(\'\\u0F92\\u0FB7\\uDA7B\\uDDEF。\-⒈\\u07CA\\u07E1\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2515\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F92}\x{0FB7}\x{AEDEF}。-1.\x{07CA}\x{07E1}", %p)}, undef, "to_ascii\(\'\\u0F92\\u0FB7\\uDA7B\\uDDEF\。\-1\.\\u07CA\\u07E1\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:2516\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("璛\x{0DCA}ᠨ.-", %p)}, undef, "to_ascii\(\'璛\\u0DCAᠨ\.\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2517\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{FE0D}\x{07DF}\x{0C4D}샕.\x{10E6B}휁", %p)}, undef, "to_ascii\(\'\\uFE0D\\u07DF\\u0C4D샕.\\uD803\\uDE6B휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2518\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{FE0D}\x{07DF}\x{0C4D}샕.\x{10E6B}휁", %p)}, undef, "to_ascii\(\'\\uFE0D\\u07DF\\u0C4D샕.\\uD803\\uDE6B휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2519\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{FE0D}\x{07DF}\x{0C4D}샕.\x{10E6B}휁", %p)}, undef, "to_ascii\(\'\\uFE0D\\u07DF\\u0C4D샕\.\\uD803\\uDE6B휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2520\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{FE0D}\x{07DF}\x{0C4D}샕.\x{10E6B}휁", %p)}, undef, "to_ascii\(\'\\uFE0D\\u07DF\\u0C4D샕\.\\uD803\\uDE6B휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2521\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{8C670}.\x{873D7}", %p)}, undef, "to_ascii\(\'\\uD9F1\\uDE70.\\uD9DC\\uDFD7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2522\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{8C670}.\x{873D7}", %p)}, undef, "to_ascii\(\'\\uD9F1\\uDE70\.\\uD9DC\\uDFD7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2523\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢊ\x{077A}。\x{111C0}ᡁႭ-", %p)}, undef, "to_ascii\(\'ᢊ\\u077A。\\uD804\\uDDC0ᡁႭ\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2524\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢊ\x{077A}。\x{111C0}ᡁႭ-", %p)}, undef, "to_ascii\(\'ᢊ\\u077A\。\\uD804\\uDDC0ᡁႭ\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2525\]") 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{077A}。\x{111C0}ᡁⴍ-", %p)}, undef, "to_ascii\(\'ᢊ\\u077A\。\\uD804\\uDDC0ᡁⴍ\-\'\)\ throws\ error\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2526\]") 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{077A}。\x{111C0}ᡁⴍ-", %p)}, undef, "to_ascii\(\'ᢊ\\u077A。\\uD804\\uDDC0ᡁⴍ\-\'\)\ throws\ error\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2527\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1EDDD}\x{1EA62}\x{1E96B}。\x{69DDF}𝟸Ⴋ\x{10957F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDDDD\\uD83A\\uDE62\\uD83A\\uDD6B\。\\uD967\\uDDDF𝟸Ⴋ\\uDBE5\\uDD7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2528\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EDDD}\x{1EA62}\x{1E96B}。\x{69DDF}2Ⴋ\x{10957F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDDDD\\uD83A\\uDE62\\uD83A\\uDD6B\。\\uD967\\uDDDF2Ⴋ\\uDBE5\\uDD7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2529\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EDDD}\x{1EA62}\x{1E96B}。\x{69DDF}2ⴋ\x{10957F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDDDD\\uD83A\\uDE62\\uD83A\\uDD6B\。\\uD967\\uDDDF2ⴋ\\uDBE5\\uDD7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2530\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EDDD}\x{1EA62}\x{1E96B}。\x{69DDF}𝟸ⴋ\x{10957F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDDDD\\uD83A\\uDE62\\uD83A\\uDD6B\。\\uD967\\uDDDF𝟸ⴋ\\uDBE5\\uDD7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2531\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{07D0}︒🜢.≠", %p)}, undef, "to_ascii\(\'4\\u07D0︒🜢\.\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2532\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{07D0}︒🜢.=\x{0338}", %p)}, undef, "to_ascii\(\'4\\u07D0︒🜢\.\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2533\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{07D0}。🜢.≠", %p)}, undef, "to_ascii\(\'4\\u07D0\。🜢\.\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2534\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{07D0}。🜢.=\x{0338}", %p)}, undef, "to_ascii\(\'4\\u07D0\。🜢\.\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2535\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀。\x{0340}", %p)}, undef, "to_ascii\(\'🄀\。\\u0340\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2536\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀。\x{0300}", %p)}, undef, "to_ascii\(\'🄀\。\\u0300\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2537\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.。\x{0300}", %p)}, undef, "to_ascii\(\'0\.\。\\u0300\'\)\ throws\ error\ V5\ A4_2\ \[data\/IdnaTest\.txt\:2538\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{CDCDB}.⾕", %p)}, undef, "to_ascii\(\'\\u200C\\uDAF7\\uDCDB\.⾕\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2540\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{CDCDB}.谷", %p)}, undef, "to_ascii\(\'\\u200C\\uDAF7\\uDCDB\.谷\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2542\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒\x{75929}\x{200D}.-\x{0B44}\x{200C}", %p)}, undef, "to_ascii\(\'︒\\uD996\\uDD29\\u200D\.\-\\u0B44\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:2544\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。\x{75929}\x{200D}.-\x{0B44}\x{200C}", %p)}, undef, "to_ascii\(\'\。\\uD996\\uDD29\\u200D\.\-\\u0B44\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:2546\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯ꡠ。\x{08A5}", %p)}, undef, "to_ascii\(\'\≯ꡠ\。\\u08A5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2547\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}ꡠ。\x{08A5}", %p)}, undef, "to_ascii\(\'\>\\u0338ꡠ\。\\u08A5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2548\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DE6}\x{A7D64}\x{E0BFD}。\x{06C7}\x{10E6E}", %p)}, undef, "to_ascii\(\'\\u2DE6\\uDA5F\\uDD64\\uDB42\\uDFFD\。\\u06C7\\uD803\\uDE6E\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2549\]") 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{E0101}\x{07CF}𝟻𝟲。۷", %p)}, "xn--56-nue.xn--kmb", "to_ascii\(\'\\uDB40\\uDD01\\u07CF𝟻𝟲。۷\'\)\ \[data\/IdnaTest\.txt\:2550\]") 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{E0101}\x{07CF}56。۷", %p)}, "xn--56-nue.xn--kmb", "to_ascii\(\'\\uDB40\\uDD01\\u07CF56\。۷\'\)\ \[data\/IdnaTest\.txt\:2551\]") 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--56-nue.xn--kmb", %p)}, "xn--56-nue.xn--kmb", "to_ascii\(\'xn\-\-56\-nue\.xn\-\-kmb\'\)\ \[data\/IdnaTest\.txt\:2552\]") 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}56.۷", %p)}, "xn--56-nue.xn--kmb", "to_ascii\(\'\\u07CF56\.۷\'\)\ \[data\/IdnaTest\.txt\:2553\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}.🄃", %p)}, undef, "to_ascii\(\'\\u200D.🄃\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2555\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}.2,", %p)}, undef, "to_ascii\(\'\\u200D\.2\,\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2557\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0776}\x{0647}\x{B59BE}。\x{063B}\x{2DE0}", %p)}, undef, "to_ascii\(\'\\u0776\\u0647\\uDA96\\uDDBE\。\\u063B\\u2DE0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2558\]") 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{0720}𝟵\x{06BE}겙。\x{1DD9}\x{FC55}", %p)}, undef, "to_ascii\(\'\\u0720𝟵\\u06BE겙\。\\u1DD9\\uFC55\'\)\ throws\ error\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2559\]") 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{0720}𝟵\x{06BE}겙。\x{1DD9}\x{FC55}", %p)}, undef, "to_ascii\(\'\\u0720𝟵\\u06BE겙\。\\u1DD9\\uFC55\'\)\ throws\ error\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2560\]") 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{0720}9\x{06BE}겙。\x{1DD9}\x{064A}\x{062C}", %p)}, undef, "to_ascii\(\'\\u07209\\u06BE겙\。\\u1DD9\\u064A\\u062C\'\)\ throws\ error\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2561\]") 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{0720}9\x{06BE}겙。\x{1DD9}\x{064A}\x{062C}", %p)}, undef, "to_ascii\(\'\\u07209\\u06BE겙\。\\u1DD9\\u064A\\u062C\'\)\ throws\ error\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2562\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴍ\x{4F9AF}ᠸ\x{1A7C}。Ⴞ\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴍ\\uD8FE\\uDDAFᠸ\\u1A7C\。Ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2564\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴍ\x{4F9AF}ᠸ\x{1A7C}。ⴞ\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'ⴍ\\uD8FE\\uDDAFᠸ\\u1A7C\。ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2566\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8。\x{4FF43}", %p)}, undef, "to_ascii\(\'8\。\\uD8FF\\uDF43\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2567\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8。\x{4FF43}", %p)}, undef, "to_ascii\(\'8\。\\uD8FF\\uDF43\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2568\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{17F0D}\x{17B4}\x{0ACD}.\x{06DD}", %p)}, undef, "to_ascii\(\'\\uD81F\\uDF0D\\u17B4\\u0ACD\.\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2569\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09E2}Ⴋ\x{DC2F0}\x{10F765}.\x{545DB}₂휪\x{1A62}", %p)}, undef, "to_ascii\(\'\\u09E2Ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65.\\uD911\\uDDDB₂휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2570\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09E2}Ⴋ\x{DC2F0}\x{10F765}.\x{545DB}₂휪\x{1A62}", %p)}, undef, "to_ascii\(\'\\u09E2Ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65.\\uD911\\uDDDB₂휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2571\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09E2}Ⴋ\x{DC2F0}\x{10F765}.\x{545DB}2휪\x{1A62}", %p)}, undef, "to_ascii\(\'\\u09E2Ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65\.\\uD911\\uDDDB2휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2572\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09E2}Ⴋ\x{DC2F0}\x{10F765}.\x{545DB}2휪\x{1A62}", %p)}, undef, "to_ascii\(\'\\u09E2Ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65\.\\uD911\\uDDDB2휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2573\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09E2}ⴋ\x{DC2F0}\x{10F765}.\x{545DB}2휪\x{1A62}", %p)}, undef, "to_ascii\(\'\\u09E2ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65\.\\uD911\\uDDDB2휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2574\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09E2}ⴋ\x{DC2F0}\x{10F765}.\x{545DB}2휪\x{1A62}", %p)}, undef, "to_ascii\(\'\\u09E2ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65\.\\uD911\\uDDDB2휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2575\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09E2}ⴋ\x{DC2F0}\x{10F765}.\x{545DB}₂휪\x{1A62}", %p)}, undef, "to_ascii\(\'\\u09E2ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65.\\uD911\\uDDDB₂휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2576\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09E2}ⴋ\x{DC2F0}\x{10F765}.\x{545DB}₂휪\x{1A62}", %p)}, undef, "to_ascii\(\'\\u09E2ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65.\\uD911\\uDDDB₂휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2577\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1ED62}.\x{FBE3}\x{10E60}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDD62.\\uFBE3\\uD803\\uDE60\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2578\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1ED62}.\x{06C9}\x{10E60}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDD62\.\\u06C9\\uD803\\uDE60\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2579\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1714}2.8\x{0ACD}\x{200D}\x{E08AD}", %p)}, undef, "to_ascii\(\'\\u17142\.8\\u0ACD\\u200D\\uDB42\\uDCAD\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2580\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1714}2.8\x{0ACD}\x{200D}\x{E08AD}", %p)}, undef, "to_ascii\(\'\\u17142\.8\\u0ACD\\u200D\\uDB42\\uDCAD\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2581\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E06B9}⩷\x{E0150}。\x{1ED73}\x{0A75}\x{E01CB}", %p)}, undef, "to_ascii\(\'\\uDB41\\uDEB9\⩷\\uDB40\\uDD50\。\\uD83B\\uDD73\\u0A75\\uDB40\\uDDCB\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2582\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡞ≠\x{AA2B}\x{A5198}。\x{FD34}\x{1B36}\x{FFA0}", %p)}, undef, "to_ascii\(\'ꡞ\≠\\uAA2B\\uDA54\\uDD98。\\uFD34\\u1B36\\uFFA0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2583\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡞ=\x{0338}\x{AA2B}\x{A5198}。\x{FD34}\x{1B36}\x{FFA0}", %p)}, undef, "to_ascii\(\'ꡞ\=\\u0338\\uAA2B\\uDA54\\uDD98。\\uFD34\\u1B36\\uFFA0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2584\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡞ≠\x{AA2B}\x{A5198}。\x{0633}\x{062C}\x{1B36}\x{1160}", %p)}, undef, "to_ascii\(\'ꡞ\≠\\uAA2B\\uDA54\\uDD98\。\\u0633\\u062C\\u1B36\\u1160\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2585\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡞ=\x{0338}\x{AA2B}\x{A5198}。\x{0633}\x{062C}\x{1B36}\x{1160}", %p)}, undef, "to_ascii\(\'ꡞ\=\\u0338\\uAA2B\\uDA54\\uDD98\。\\u0633\\u062C\\u1B36\\u1160\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2586\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("鱊。\x{200C}", %p)}, undef, "to_ascii\(\'鱊\。\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2588\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--rt6a.", %p)}, "xn--rt6a.", "to_ascii\(\'xn\-\-rt6a\.\'\)\ \[data\/IdnaTest\.txt\:2589\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("鱊.", %p)}, "xn--rt6a.", "to_ascii\(\'鱊\.\'\)\ \[data\/IdnaTest\.txt\:2590\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E73}.\x{034D}", %p)}, undef, "to_ascii\(\'8\\uD803\\uDE73.\\u034D\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2591\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E73}.\x{034D}", %p)}, undef, "to_ascii\(\'8\\uD803\\uDE73\.\\u034D\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2592\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E0DCA}\x{0864}.ᠹ", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDCA\\u0864.ᠹ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2593\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DCA}\x{0864}.ᠹ", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDCA\\u0864\.ᠹ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2594\]") 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{0754}\x{077C}4.\x{200D}", %p)}, undef, "to_ascii\(\'\\u0754\\u077C4.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2596\]") 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{0754}\x{077C}4.\x{200D}", %p)}, undef, "to_ascii\(\'\\u0754\\u077C4\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2598\]") 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--4-53c4j.", %p)}, "xn--4-53c4j.", "to_ascii\(\'xn\-\-4\-53c4j\.\'\)\ \[data\/IdnaTest\.txt\:2599\]") 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{0754}\x{077C}4.", %p)}, "xn--4-53c4j.", "to_ascii\(\'\\u0754\\u077C4\.\'\)\ \[data\/IdnaTest\.txt\:2600\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("5\x{0610}\x{082B}-.\x{0603}\x{E0FA7}", %p)}, undef, "to_ascii\(\'5\\u0610\\u082B\-\.\\u0603\\uDB43\\uDFA7\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2601\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。䏛", %p)}, undef, "to_ascii\(\'\-。䏛\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2602\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。䏛", %p)}, undef, "to_ascii\(\'\-\。䏛\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2603\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{9B8A0}.\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\\uDA2E\\uDCA0.\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2605\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{9B8A0}.\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\\uDA2E\\uDCA0\.\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2607\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{1059}\x{2CA0B}。\x{10E66}\x{200D}\x{B2DBF}Ⴕ", %p)}, undef, "to_ascii\(\'⒈\\u1059\\uD872\\uDE0B。\\uD803\\uDE66\\u200D\\uDA8B\\uDDBFႵ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2609\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{1059}\x{2CA0B}。\x{10E66}\x{200D}\x{B2DBF}Ⴕ", %p)}, undef, "to_ascii\(\'1\.\\u1059\\uD872\\uDE0B\。\\uD803\\uDE66\\u200D\\uDA8B\\uDDBFႵ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2611\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{1059}\x{2CA0B}。\x{10E66}\x{200D}\x{B2DBF}ⴕ", %p)}, undef, "to_ascii\(\'1\.\\u1059\\uD872\\uDE0B\。\\uD803\\uDE66\\u200D\\uDA8B\\uDDBFⴕ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2613\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{1059}\x{2CA0B}。\x{10E66}\x{200D}\x{B2DBF}ⴕ", %p)}, undef, "to_ascii\(\'⒈\\u1059\\uD872\\uDE0B。\\uD803\\uDE66\\u200D\\uDA8B\\uDDBFⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2615\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF8C}\x{0847}-ß。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF8C\\u0847\-ß。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2616\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF8C}\x{0847}-ß。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF8C\\u0847\-ß\。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2617\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF8C}\x{0847}-SS。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF8C\\u0847\-SS\。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2618\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF8C}\x{0847}-ss。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF8C\\u0847\-ss\。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2619\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF8C}\x{0847}-Ss。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF8C\\u0847\-Ss\。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2620\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF8C}\x{0847}-SS。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF8C\\u0847\-SS。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2621\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF8C}\x{0847}-ss。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF8C\\u0847\-ss。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2622\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF8C}\x{0847}-Ss。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF8C\\u0847\-Ss。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2623\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AAF6}.\x{E0560}", %p)}, undef, "to_ascii\(\'\\uAAF6\.\\uDB41\\uDD60\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2624\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0911}6\x{1E886}。𝟹\x{11134}\x{10B70}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDD116\\uD83A\\uDC86。𝟹\\uD804\\uDD34\\uD802\\uDF70\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2625\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0911}6\x{1E886}。3\x{11134}\x{10B70}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDD116\\uD83A\\uDC86\。3\\uD804\\uDD34\\uD802\\uDF70\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2626\]") 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{1D17E}", %p)}, undef, "to_ascii\(\'ᢢ𝟴\\uA92Cꡝ\。\\uD834\\uDD7E\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2627\]") 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("ᢢ8\x{A92C}ꡝ。\x{1D17E}", %p)}, undef, "to_ascii\(\'ᢢ8\\uA92Cꡝ\。\\uD834\\uDD7E\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2628\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{066C}-\x{92486}Ⴂ。\x{A0992}\x{200D}", %p)}, undef, "to_ascii\(\'\\u066C\-\\uDA09\\uDC86Ⴂ\。\\uDA42\\uDD92\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2630\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{066C}-\x{92486}ⴂ。\x{A0992}\x{200D}", %p)}, undef, "to_ascii\(\'\\u066C\-\\uDA09\\uDC86ⴂ\。\\uDA42\\uDD92\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2632\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{0723}0≯ß", %p)}, undef, "to_ascii\(\'⾆.\\u07230\≯ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2633\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{0723}0>\x{0338}ß", %p)}, undef, "to_ascii\(\'⾆.\\u07230\>\\u0338ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2634\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{0723}0≯ß", %p)}, undef, "to_ascii\(\'舌\.\\u07230\≯ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2635\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{0723}0>\x{0338}ß", %p)}, undef, "to_ascii\(\'舌\.\\u07230\>\\u0338ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2636\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{0723}0>\x{0338}SS", %p)}, undef, "to_ascii\(\'舌\.\\u07230\>\\u0338SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2637\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{0723}0≯SS", %p)}, undef, "to_ascii\(\'舌\.\\u07230\≯SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2638\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{0723}0≯ss", %p)}, undef, "to_ascii\(\'舌\.\\u07230\≯ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2639\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{0723}0>\x{0338}ss", %p)}, undef, "to_ascii\(\'舌\.\\u07230\>\\u0338ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2640\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{0723}0>\x{0338}Ss", %p)}, undef, "to_ascii\(\'舌\.\\u07230\>\\u0338Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2641\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{0723}0≯Ss", %p)}, undef, "to_ascii\(\'舌\.\\u07230\≯Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2642\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{0723}0>\x{0338}SS", %p)}, undef, "to_ascii\(\'⾆.\\u07230\>\\u0338SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2643\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{0723}0≯SS", %p)}, undef, "to_ascii\(\'⾆.\\u07230\≯SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2644\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{0723}0≯ss", %p)}, undef, "to_ascii\(\'⾆.\\u07230\≯ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2645\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{0723}0>\x{0338}ss", %p)}, undef, "to_ascii\(\'⾆.\\u07230\>\\u0338ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2646\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{0723}0>\x{0338}Ss", %p)}, undef, "to_ascii\(\'⾆.\\u07230\>\\u0338Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2647\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{0723}0≯Ss", %p)}, undef, "to_ascii\(\'⾆.\\u07230\≯Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2648\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{11134}8\x{200D}.\x{EE437}ᢊ", %p)}, undef, "to_ascii\(\'\\uD804\\uDD348\\u200D.\\uDB79\\uDC37ᢊ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2650\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{11134}8\x{200D}.\x{EE437}ᢊ", %p)}, undef, "to_ascii\(\'\\uD804\\uDD348\\u200D\.\\uDB79\\uDC37ᢊ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2652\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{923C8}\x{10A06}≮\x{82828}.\x{B20AB}4˹\x{06B5}", %p)}, undef, "to_ascii\(\'\\uDA08\\uDFC8\\uD802\\uDE06\≮\\uD9CA\\uDC28.\\uDA88\\uDCAB4˹\\u06B5\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2653\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{923C8}\x{10A06}<\x{0338}\x{82828}.\x{B20AB}4˹\x{06B5}", %p)}, undef, "to_ascii\(\'\\uDA08\\uDFC8\\uD802\\uDE06\<\\u0338\\uD9CA\\uDC28.\\uDA88\\uDCAB4˹\\u06B5\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2654\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{923C8}\x{10A06}≮\x{82828}.\x{B20AB}4˹\x{06B5}", %p)}, undef, "to_ascii\(\'\\uDA08\\uDFC8\\uD802\\uDE06\≮\\uD9CA\\uDC28\.\\uDA88\\uDCAB4˹\\u06B5\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2655\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{923C8}\x{10A06}<\x{0338}\x{82828}.\x{B20AB}4˹\x{06B5}", %p)}, undef, "to_ascii\(\'\\uDA08\\uDFC8\\uD802\\uDE06\<\\u0338\\uD9CA\\uDC28\.\\uDA88\\uDCAB4˹\\u06B5\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2656\]") 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{0842}.ς", %p)}, "xn--0vb.xn--3xa", "to_ascii\(\'\\u0842\.ς\'\)\ \[data\/IdnaTest\.txt\:2658\]") 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{0842}.Σ", %p)}, "xn--0vb.xn--4xa", "to_ascii\(\'\\u0842\.Σ\'\)\ \[data\/IdnaTest\.txt\:2659\]") 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{0842}.σ", %p)}, "xn--0vb.xn--4xa", "to_ascii\(\'\\u0842\.σ\'\)\ \[data\/IdnaTest\.txt\:2660\]") 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--0vb.xn--4xa", %p)}, "xn--0vb.xn--4xa", "to_ascii\(\'xn\-\-0vb\.xn\-\-4xa\'\)\ \[data\/IdnaTest\.txt\:2661\]") 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--0vb.xn--3xa", %p)}, "xn--0vb.xn--3xa", "to_ascii\(\'xn\-\-0vb\.xn\-\-3xa\'\)\ \[data\/IdnaTest\.txt\:2662\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}Ⴚ。ς", %p)}, undef, "to_ascii\(\'\\u200CႺ。ς\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2664\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴚ。ς", %p)}, undef, "to_ascii\(\'\\u200CႺ\。ς\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2666\]") 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\:2668\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}Ⴚ。Σ", %p)}, undef, "to_ascii\(\'\\u200CႺ\。Σ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2670\]") 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\:2672\]") 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\:2673\]") 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\:2674\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴚ.Σ", %p)}, undef, "to_ascii\(\'Ⴚ\.Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2675\]") 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\:2677\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴚ.ς", %p)}, undef, "to_ascii\(\'Ⴚ\.ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2678\]") 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\:2679\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴚ.σ", %p)}, undef, "to_ascii\(\'Ⴚ\.σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2680\]") 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\:2682\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}Ⴚ。Σ", %p)}, undef, "to_ascii\(\'\\u200CႺ。Σ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2684\]") 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\:2686\]") 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{07E3}.\x{0663}", %p)}, undef, "to_ascii\(\'\\u07E3.\\u0663\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2687\]") 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{07E3}.\x{0663}", %p)}, undef, "to_ascii\(\'\\u07E3\.\\u0663\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2688\]") 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{0981}\x{111C0}ꡏ", %p)}, undef, "to_ascii\(\'\\u200D⾕\。\\u200C\\u0981\\uD804\\uDDC0ꡏ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2690\]") 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{0981}\x{111C0}ꡏ", %p)}, undef, "to_ascii\(\'\\u200D谷\。\\u200C\\u0981\\uD804\\uDDC0ꡏ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2692\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᠴ-뉔.\x{0726}\x{200C}", %p)}, undef, "to_ascii\(\'ᠴ\-뉔.\\u0726\\u200C\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:2694\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠴ-뉔.\x{0726}\x{200C}", %p)}, undef, "to_ascii\(\'ᠴ\-뉔.\\u0726\\u200C\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:2696\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠴ-뉔.\x{0726}\x{200C}", %p)}, undef, "to_ascii\(\'ᠴ\-뉔\.\\u0726\\u200C\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:2698\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠴ-뉔.\x{0726}\x{200C}", %p)}, undef, "to_ascii\(\'ᠴ\-뉔\.\\u0726\\u200C\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:2700\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn----05j1765f.xn--wnb", %p)}, "xn----05j1765f.xn--wnb", "to_ascii\(\'xn\-\-\-\-05j1765f\.xn\-\-wnb\'\)\ \[data\/IdnaTest\.txt\:2701\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠴ-뉔.\x{0726}", %p)}, "xn----05j1765f.xn--wnb", "to_ascii\(\'ᠴ\-뉔\.\\u0726\'\)\ \[data\/IdnaTest\.txt\:2702\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠴ-뉔.\x{0726}", %p)}, "xn----05j1765f.xn--wnb", "to_ascii\(\'ᠴ\-뉔\.\\u0726\'\)\ \[data\/IdnaTest\.txt\:2703\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0E47}𝟴ᦛς.\x{1714}\x{067D}\x{0C3E}\x{1A68}", %p)}, undef, "to_ascii\(\'\\uDAC3\\uDE47𝟴ᦛς\.\\u1714\\u067D\\u0C3E\\u1A68\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2704\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0E47}8ᦛς.\x{1714}\x{067D}\x{0C3E}\x{1A68}", %p)}, undef, "to_ascii\(\'\\uDAC3\\uDE478ᦛς\.\\u1714\\u067D\\u0C3E\\u1A68\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2705\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0E47}8ᦛΣ.\x{1714}\x{067D}\x{0C3E}\x{1A68}", %p)}, undef, "to_ascii\(\'\\uDAC3\\uDE478ᦛΣ\.\\u1714\\u067D\\u0C3E\\u1A68\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2706\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0E47}8ᦛσ.\x{1714}\x{067D}\x{0C3E}\x{1A68}", %p)}, undef, "to_ascii\(\'\\uDAC3\\uDE478ᦛσ\.\\u1714\\u067D\\u0C3E\\u1A68\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2707\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0E47}𝟴ᦛΣ.\x{1714}\x{067D}\x{0C3E}\x{1A68}", %p)}, undef, "to_ascii\(\'\\uDAC3\\uDE47𝟴ᦛΣ\.\\u1714\\u067D\\u0C3E\\u1A68\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2708\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C0E47}𝟴ᦛσ.\x{1714}\x{067D}\x{0C3E}\x{1A68}", %p)}, undef, "to_ascii\(\'\\uDAC3\\uDE47𝟴ᦛσ\.\\u1714\\u067D\\u0C3E\\u1A68\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2709\]") 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{08A6}", %p)}, "xn--34w.xn--vyb", "to_ascii\(\'淽\。\\u08A6\'\)\ \[data\/IdnaTest\.txt\:2710\]") 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--34w.xn--vyb", %p)}, "xn--34w.xn--vyb", "to_ascii\(\'xn\-\-34w\.xn\-\-vyb\'\)\ \[data\/IdnaTest\.txt\:2711\]") 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{08A6}", %p)}, "xn--34w.xn--vyb", "to_ascii\(\'淽\.\\u08A6\'\)\ \[data\/IdnaTest\.txt\:2712\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E66}\x{E01B7}。-", %p)}, undef, "to_ascii\(\'\\uD803\\uDE66\\uDB40\\uDDB7\。\-\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2713\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{D46C7}Ⴓ\x{E06F0}。\x{059A}", %p)}, undef, "to_ascii\(\'\\uDB11\\uDEC7Ⴓ\\uDB41\\uDEF0。\\u059A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2714\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{D46C7}Ⴓ\x{E06F0}。\x{059A}", %p)}, undef, "to_ascii\(\'\\uDB11\\uDEC7Ⴓ\\uDB41\\uDEF0\。\\u059A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2715\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{D46C7}ⴓ\x{E06F0}。\x{059A}", %p)}, undef, "to_ascii\(\'\\uDB11\\uDEC7ⴓ\\uDB41\\uDEF0\。\\u059A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2716\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{D46C7}ⴓ\x{E06F0}。\x{059A}", %p)}, undef, "to_ascii\(\'\\uDB11\\uDEC7ⴓ\\uDB41\\uDEF0。\\u059A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2717\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{10E72}\x{0641}Ⴇ。ßႣ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2719\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{10E72}\x{0641}Ⴇ。ßႣ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ\。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2721\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E72}\x{0641}ⴇ。ßⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641ⴇ\。ßⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2723\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{10E72}\x{0641}Ⴇ。SSႣ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ\。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2725\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E72}\x{0641}ⴇ。ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641ⴇ\。ssⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2727\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{10E72}\x{0641}Ⴇ。Ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ\。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2729\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E72}\x{0641}ⴇ。ßⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641ⴇ。ßⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2731\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{10E72}\x{0641}Ⴇ。SSႣ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2733\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E72}\x{0641}ⴇ。ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641ⴇ。ssⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2735\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{10E72}\x{0641}Ⴇ。Ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2737\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1024D0}。\x{FDF1}", %p)}, undef, "to_ascii\(\'\\uDBC9\\uDCD0。\\uFDF1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2738\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1024D0}。\x{0642}\x{0644}\x{06D2}", %p)}, undef, "to_ascii\(\'\\uDBC9\\uDCD0\。\\u0642\\u0644\\u06D2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2739\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A66}\x{200D}。\x{1039}\x{20D8}", %p)}, undef, "to_ascii\(\'\\u1A66\\u200D。\\u1039\\u20D8\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2741\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A66}\x{200D}。\x{20D8}\x{1039}", %p)}, undef, "to_ascii\(\'\\u1A66\\u200D。\\u20D8\\u1039\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2743\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A66}\x{200D}。\x{20D8}\x{1039}", %p)}, undef, "to_ascii\(\'\\u1A66\\u200D\。\\u20D8\\u1039\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2745\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-≠\x{0850}.\x{071B}\x{0751}≮\x{B1709}", %p)}, undef, "to_ascii\(\'\-\≠\\u0850.\\u071B\\u0751\≮\\uDA85\\uDF09\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:2746\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-=\x{0338}\x{0850}.\x{071B}\x{0751}<\x{0338}\x{B1709}", %p)}, undef, "to_ascii\(\'\-\=\\u0338\\u0850.\\u071B\\u0751\<\\u0338\\uDA85\\uDF09\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:2747\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≠\x{0850}.\x{071B}\x{0751}≮\x{B1709}", %p)}, undef, "to_ascii\(\'\-\≠\\u0850\.\\u071B\\u0751\≮\\uDA85\\uDF09\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:2748\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-=\x{0338}\x{0850}.\x{071B}\x{0751}<\x{0338}\x{B1709}", %p)}, undef, "to_ascii\(\'\-\=\\u0338\\u0850\.\\u071B\\u0751\<\\u0338\\uDA85\\uDF09\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:2749\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䷘≯\x{08C5}\x{084E}.\x{ED7CD}≮\x{A9C0}\x{06BA}", %p)}, undef, "to_ascii\(\'䷘\≯\\u08C5\\u084E.\\uDB75\\uDFCD\≮\\uA9C0\\u06BA\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2750\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䷘>\x{0338}\x{08C5}\x{084E}.\x{ED7CD}<\x{0338}\x{A9C0}\x{06BA}", %p)}, undef, "to_ascii\(\'䷘\>\\u0338\\u08C5\\u084E.\\uDB75\\uDFCD\<\\u0338\\uA9C0\\u06BA\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2751\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䷘≯\x{08C5}\x{084E}.\x{ED7CD}≮\x{A9C0}\x{06BA}", %p)}, undef, "to_ascii\(\'䷘\≯\\u08C5\\u084E\.\\uDB75\\uDFCD\≮\\uA9C0\\u06BA\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2752\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䷘>\x{0338}\x{08C5}\x{084E}.\x{ED7CD}<\x{0338}\x{A9C0}\x{06BA}", %p)}, undef, "to_ascii\(\'䷘\>\\u0338\\u08C5\\u084E\.\\uDB75\\uDFCD\<\\u0338\\uA9C0\\u06BA\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2753\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{86CAC}.\x{10E63}\x{0A4D}-\x{1ED77}", %p)}, undef, "to_ascii\(\'\≠\\uD9DB\\uDCAC\.\\uD803\\uDE63\\u0A4D\-\\uD83B\\uDD77\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2754\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{86CAC}.\x{10E63}\x{0A4D}-\x{1ED77}", %p)}, undef, "to_ascii\(\'\=\\u0338\\uD9DB\\uDCAC\.\\uD803\\uDE63\\u0A4D\-\\uD83B\\uDD77\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2755\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06E4}\x{0A81}≠。\x{10E73}𝟝", %p)}, undef, "to_ascii\(\'\\u06E4\\u0A81\≠。\\uD803\\uDE73𝟝\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2756\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06E4}\x{0A81}=\x{0338}。\x{10E73}𝟝", %p)}, undef, "to_ascii\(\'\\u06E4\\u0A81\=\\u0338。\\uD803\\uDE73𝟝\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2757\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06E4}\x{0A81}≠。\x{10E73}5", %p)}, undef, "to_ascii\(\'\\u06E4\\u0A81\≠\。\\uD803\\uDE735\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2758\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06E4}\x{0A81}=\x{0338}。\x{10E73}5", %p)}, undef, "to_ascii\(\'\\u06E4\\u0A81\=\\u0338\。\\uD803\\uDE735\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2759\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{AF6B7}\x{550BA}。\x{1A62}🃕ß", %p)}, undef, "to_ascii\(\'ß\\uDA7D\\uDEB7\\uD914\\uDCBA。\\u1A62🃕ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2760\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{AF6B7}\x{550BA}。\x{1A62}🃕ß", %p)}, undef, "to_ascii\(\'ß\\uDA7D\\uDEB7\\uD914\\uDCBA\。\\u1A62🃕ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2761\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{AF6B7}\x{550BA}。\x{1A62}🃕SS", %p)}, undef, "to_ascii\(\'SS\\uDA7D\\uDEB7\\uD914\\uDCBA\。\\u1A62🃕SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2762\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{AF6B7}\x{550BA}。\x{1A62}🃕ss", %p)}, undef, "to_ascii\(\'ss\\uDA7D\\uDEB7\\uD914\\uDCBA\。\\u1A62🃕ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2763\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{AF6B7}\x{550BA}。\x{1A62}🃕Ss", %p)}, undef, "to_ascii\(\'Ss\\uDA7D\\uDEB7\\uD914\\uDCBA\。\\u1A62🃕Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2764\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{AF6B7}\x{550BA}。\x{1A62}🃕SS", %p)}, undef, "to_ascii\(\'SS\\uDA7D\\uDEB7\\uD914\\uDCBA。\\u1A62🃕SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2765\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{AF6B7}\x{550BA}。\x{1A62}🃕ss", %p)}, undef, "to_ascii\(\'ss\\uDA7D\\uDEB7\\uD914\\uDCBA。\\u1A62🃕ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2766\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{AF6B7}\x{550BA}。\x{1A62}🃕Ss", %p)}, undef, "to_ascii\(\'Ss\\uDA7D\\uDEB7\\uD914\\uDCBA。\\u1A62🃕Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2767\]") 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\:2769\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E49}\x{FDA9}\x{200D}.\x{E01D1}\x{1EF9C}\x{9B50A}", %p)}, undef, "to_ascii\(\'\\u0E49\\uFDA9\\u200D\.\\uDB40\\uDDD1\\uD83B\\uDF9C\\uDA2D\\uDD0A\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:2771\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E49}\x{0635}\x{062D}\x{064A}\x{200D}.\x{E01D1}\x{1EF9C}\x{9B50A}", %p)}, undef, "to_ascii\(\'\\u0E49\\u0635\\u062D\\u064A\\u200D\.\\uDB40\\uDDD1\\uD83B\\uDF9C\\uDA2D\\uDD0A\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:2773\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1EE26}\x{200C}临。ᢜ\x{6FE12}ⶏ\x{10E72}", %p)}, undef, "to_ascii\(\'\\u200C\\uD83B\\uDE26\\u200C临\。ᢜ\\uD97F\\uDE12ⶏ\\uD803\\uDE72\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2775\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DFA}.\x{0739}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDFA.\\u0739\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2776\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0DFA}.\x{0739}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDDFA\.\\u0739\'\)\ throws\ error\ P1\ V6\ 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{068A}\x{0ACD}.\x{AAF6}", %p)}, undef, "to_ascii\(\'\\u068A\\u0ACD.\\uAAF6\'\)\ throws\ error\ V5\ \[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{068A}\x{0ACD}.\x{AAF6}", %p)}, undef, "to_ascii\(\'\\u068A\\u0ACD\.\\uAAF6\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2779\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0A75}\x{AF3A7}멹。𝟑\x{E0ED8}", %p)}, undef, "to_ascii\(\'\\u0A75\\uDA7C\\uDFA7멹\。𝟑\\uDB43\\uDED8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2780\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A75}\x{AF3A7}멹。𝟑\x{E0ED8}", %p)}, undef, "to_ascii\(\'\\u0A75\\uDA7C\\uDFA7멹\。𝟑\\uDB43\\uDED8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2781\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A75}\x{AF3A7}멹。3\x{E0ED8}", %p)}, undef, "to_ascii\(\'\\u0A75\\uDA7C\\uDFA7멹\。3\\uDB43\\uDED8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2782\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A75}\x{AF3A7}멹。3\x{E0ED8}", %p)}, undef, "to_ascii\(\'\\u0A75\\uDA7C\\uDFA7멹\。3\\uDB43\\uDED8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2783\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴅ\x{56FF5}릖\x{E03F8}.\x{0626}\x{10E6E}₄", %p)}, undef, "to_ascii\(\'Ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u0626\\uD803\\uDE6E₄\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2784\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴅ\x{56FF5}릖\x{E03F8}.\x{064A}\x{0654}\x{10E6E}₄", %p)}, undef, "to_ascii\(\'Ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u064A\\u0654\\uD803\\uDE6E₄\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2785\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴅ\x{56FF5}릖\x{E03F8}.\x{0626}\x{10E6E}4", %p)}, undef, "to_ascii\(\'Ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u0626\\uD803\\uDE6E4\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2786\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴅ\x{56FF5}릖\x{E03F8}.\x{064A}\x{0654}\x{10E6E}4", %p)}, undef, "to_ascii\(\'Ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u064A\\u0654\\uD803\\uDE6E4\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2787\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴅ\x{56FF5}릖\x{E03F8}.\x{064A}\x{0654}\x{10E6E}4", %p)}, undef, "to_ascii\(\'ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u064A\\u0654\\uD803\\uDE6E4\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2788\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴅ\x{56FF5}릖\x{E03F8}.\x{0626}\x{10E6E}4", %p)}, undef, "to_ascii\(\'ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u0626\\uD803\\uDE6E4\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2789\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴅ\x{56FF5}릖\x{E03F8}.\x{064A}\x{0654}\x{10E6E}₄", %p)}, undef, "to_ascii\(\'ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u064A\\u0654\\uD803\\uDE6E₄\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2790\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴅ\x{56FF5}릖\x{E03F8}.\x{0626}\x{10E6E}₄", %p)}, undef, "to_ascii\(\'ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u0626\\uD803\\uDE6E₄\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2791\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。︒", %p)}, undef, "to_ascii\(\'\\u200C。︒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2793\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。。", %p)}, undef, "to_ascii\(\'\\u200C\。\。\'\)\ throws\ error\ C1\ A4_2\ \[data\/IdnaTest\.txt\:2795\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯ꡙ.⒍", %p)}, undef, "to_ascii\(\'\≯ꡙ.⒍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2796\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}ꡙ.⒍", %p)}, undef, "to_ascii\(\'\>\\u0338ꡙ.⒍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2797\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯ꡙ.6.", %p)}, undef, "to_ascii\(\'\≯ꡙ\.6\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2798\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}ꡙ.6.", %p)}, undef, "to_ascii\(\'\>\\u0338ꡙ\.6\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2799\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}-8.ß-\x{200C}-", %p)}, undef, "to_ascii\(\'\\u062B\-8\.ß\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2801\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}-8.ß-\x{200C}-", %p)}, undef, "to_ascii\(\'\\u062B\-8\.ß\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2803\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}-8.SS-\x{200C}-", %p)}, undef, "to_ascii\(\'\\u062B\-8\.SS\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2805\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}-8.ss-\x{200C}-", %p)}, undef, "to_ascii\(\'\\u062B\-8\.ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2807\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}-8.Ss-\x{200C}-", %p)}, undef, "to_ascii\(\'\\u062B\-8\.Ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2809\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}-8.SS-\x{200C}-", %p)}, undef, "to_ascii\(\'\\u062B\-8\.SS\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2811\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}-8.ss-\x{200C}-", %p)}, undef, "to_ascii\(\'\\u062B\-8\.ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2813\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}-8.Ss-\x{200C}-", %p)}, undef, "to_ascii\(\'\\u062B\-8\.Ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2815\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EDBA}𝟥\x{06FC}\x{5AC7C}。Ӏ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDDBA𝟥\\u06FC\\uD92B\\uDC7C。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2816\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EDBA}3\x{06FC}\x{5AC7C}。Ӏ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDDBA3\\u06FC\\uD92B\\uDC7C\。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2817\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EDBA}3\x{06FC}\x{5AC7C}。ӏ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDDBA3\\u06FC\\uD92B\\uDC7C\。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2818\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EDBA}𝟥\x{06FC}\x{5AC7C}。ӏ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDDBA𝟥\\u06FC\\uD92B\\uDC7C。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2819\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.\x{10E79}\x{1EC95}\x{A6F1}⸟", %p)}, undef, "to_ascii\(\'\-\.\\uD803\\uDE79\\uD83B\\uDC95\\uA6F1\⸟\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2820\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10B492}ᡰ。\x{1CF4}₺", %p)}, undef, "to_ascii\(\'\\uDBED\\uDC92ᡰ\。\\u1CF4₺\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2821\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ႷᡔႫ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\≠ႷᡔႫ。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2822\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ႷᡔႫ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ႷᡔႫ。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2823\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ႷᡔႫ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\≠ႷᡔႫ\。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2824\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ႷᡔႫ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ႷᡔႫ\。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2825\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ⴗᡔⴋ\。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2826\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\≠ⴗᡔⴋ\。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2827\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠Ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\≠Ⴗᡔⴋ\。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2828\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}Ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\=\\u0338Ⴗᡔⴋ\。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2829\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ⴗᡔⴋ。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2830\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\≠ⴗᡔⴋ。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2831\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠Ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\≠Ⴗᡔⴋ。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2832\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}Ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_ascii\(\'\=\\u0338Ⴗᡔⴋ。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2833\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0600}.\x{10FA3}", %p)}, undef, "to_ascii\(\'\\u0600\.\\uD803\\uDFA3\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2834\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}🄈。\x{200D}\x{6962F}\x{066B}\x{0E3A}", %p)}, undef, "to_ascii\(\'\\u0CCD🄈。\\u200D\\uD965\\uDE2F\\u066B\\u0E3A\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2836\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}7,。\x{200D}\x{6962F}\x{066B}\x{0E3A}", %p)}, undef, "to_ascii\(\'\\u0CCD7\,\。\\u200D\\uD965\\uDE2F\\u066B\\u0E3A\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2838\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E8122}4\x{410B1}.≯\x{10E74}\x{135E}\x{E0E0C}", %p)}, undef, "to_ascii\(\'\\uDB60\\uDD224\\uD8C4\\uDCB1\.\≯\\uD803\\uDE74\\u135E\\uDB43\\uDE0C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2839\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E8122}4\x{410B1}.>\x{0338}\x{10E74}\x{135E}\x{E0E0C}", %p)}, undef, "to_ascii\(\'\\uDB60\\uDD224\\uD8C4\\uDCB1\.\>\\u0338\\uD803\\uDE74\\u135E\\uDB43\\uDE0C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2840\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{57237}🄉。𝟕\x{1A5A}⒉\x{79447}", %p)}, undef, "to_ascii\(\'\\uD91C\\uDE37🄉\。𝟕\\u1A5A⒉\\uD9A5\\uDC47\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2841\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{57237}8,。7\x{1A5A}2.\x{79447}", %p)}, undef, "to_ascii\(\'\\uD91C\\uDE378\,\。7\\u1A5A2\.\\uD9A5\\uDC47\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2842\]") 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\:2844\]") 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\:2846\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}1.1.。≯5,\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D1\.1\.\。\≯5\,\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A4_2\ \[data\/IdnaTest\.txt\:2848\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}1.1.。>\x{0338}5,\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D1\.1\.\。\>\\u03385\,\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A4_2\ \[data\/IdnaTest\.txt\:2850\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0755}\x{06CF}\x{A927}.\x{8C2E1}ᡚ≠\x{200C}", %p)}, undef, "to_ascii\(\'\\u0755\\u06CF\\uA927.\\uD9F0\\uDEE1ᡚ\≠\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2852\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0755}\x{06CF}\x{A927}.\x{8C2E1}ᡚ=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0755\\u06CF\\uA927.\\uD9F0\\uDEE1ᡚ\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2854\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0755}\x{06CF}\x{A927}.\x{8C2E1}ᡚ≠\x{200C}", %p)}, undef, "to_ascii\(\'\\u0755\\u06CF\\uA927\.\\uD9F0\\uDEE1ᡚ\≠\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2856\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0755}\x{06CF}\x{A927}.\x{8C2E1}ᡚ=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0755\\u06CF\\uA927\.\\uD9F0\\uDEE1ᡚ\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2858\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1BF1}。\x{BBE4D}\x{066B}", %p)}, undef, "to_ascii\(\'\\u1BF1。\\uDAAF\\uDE4D\\u066B\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2859\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1BF1}。\x{BBE4D}\x{066B}", %p)}, undef, "to_ascii\(\'\\u1BF1\。\\uDAAF\\uDE4D\\u066B\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2860\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E78}。\x{E0123}", %p)}, undef, "to_ascii\(\'3\\uD803\\uDE78\。\\uDB40\\uDD23\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2861\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E78}。\x{E0123}", %p)}, undef, "to_ascii\(\'3\\uD803\\uDE78\。\\uDB40\\uDD23\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2862\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E77}\x{10E73}.ꡟ긷", %p)}, undef, "to_ascii\(\'ᠬ\\uD803\\uDE77\\uD803\\uDE73\.ꡟ긷\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:2863\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E77}\x{10E73}.ꡟ긷", %p)}, undef, "to_ascii\(\'ᠬ\\uD803\\uDE77\\uD803\\uDE73\.ꡟ긷\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:2864\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("︒Ↄ\x{1732}\x{95B0F}.Ⴗ\x{1E890}", %p)}, undef, "to_ascii\(\'︒Ↄ\\u1732\\uDA16\\uDF0F.Ⴗ\\uD83A\\uDC90\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2865\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。Ↄ\x{1732}\x{95B0F}.Ⴗ\x{1E890}", %p)}, undef, "to_ascii\(\'\。Ↄ\\u1732\\uDA16\\uDF0F\.Ⴗ\\uD83A\\uDC90\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2866\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。ↄ\x{1732}\x{95B0F}.ⴗ\x{1E890}", %p)}, undef, "to_ascii\(\'\。ↄ\\u1732\\uDA16\\uDF0F\.ⴗ\\uD83A\\uDC90\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2867\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒ↄ\x{1732}\x{95B0F}.ⴗ\x{1E890}", %p)}, undef, "to_ascii\(\'︒ↄ\\u1732\\uDA16\\uDF0F.ⴗ\\uD83A\\uDC90\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2868\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6F}.\x{0948}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6F\.\\u0948\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2869\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ς≯。\x{10E65}", %p)}, undef, "to_ascii\(\'ς\≯。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2870\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς>\x{0338}。\x{10E65}", %p)}, undef, "to_ascii\(\'ς\>\\u0338。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2871\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς≯。\x{10E65}", %p)}, undef, "to_ascii\(\'ς\≯\。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2872\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς>\x{0338}。\x{10E65}", %p)}, undef, "to_ascii\(\'ς\>\\u0338\。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2873\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ>\x{0338}。\x{10E65}", %p)}, undef, "to_ascii\(\'Σ\>\\u0338\。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2874\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ≯。\x{10E65}", %p)}, undef, "to_ascii\(\'Σ\≯\。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2875\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ≯。\x{10E65}", %p)}, undef, "to_ascii\(\'σ\≯\。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2876\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ>\x{0338}。\x{10E65}", %p)}, undef, "to_ascii\(\'σ\>\\u0338\。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2877\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ>\x{0338}。\x{10E65}", %p)}, undef, "to_ascii\(\'Σ\>\\u0338。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2878\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ≯。\x{10E65}", %p)}, undef, "to_ascii\(\'Σ\≯。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2879\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ≯。\x{10E65}", %p)}, undef, "to_ascii\(\'σ\≯。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2880\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ>\x{0338}。\x{10E65}", %p)}, undef, "to_ascii\(\'σ\>\\u0338。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2881\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{200D}ꡀ。\x{10E78}", %p)}, undef, "to_ascii\(\'\\uA9C0\\u200Dꡀ\。\\uD803\\uDE78\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2882\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{9B886}\x{0A42}Ⴊ\x{5EF94}.≮", %p)}, undef, "to_ascii\(\'\\uDA2E\\uDC86\\u0A42Ⴊ\\uD93B\\uDF94\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2883\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9B886}\x{0A42}Ⴊ\x{5EF94}.<\x{0338}", %p)}, undef, "to_ascii\(\'\\uDA2E\\uDC86\\u0A42Ⴊ\\uD93B\\uDF94\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2884\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9B886}\x{0A42}ⴊ\x{5EF94}.<\x{0338}", %p)}, undef, "to_ascii\(\'\\uDA2E\\uDC86\\u0A42ⴊ\\uD93B\\uDF94\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2885\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9B886}\x{0A42}ⴊ\x{5EF94}.≮", %p)}, undef, "to_ascii\(\'\\uDA2E\\uDC86\\u0A42ⴊ\\uD93B\\uDF94\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2886\]") 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{0843}.𝟻", %p)}, "xn--1vb.5", "to_ascii\(\'\\u0843.𝟻\'\)\ \[data\/IdnaTest\.txt\:2887\]") 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{0843}.5", %p)}, "xn--1vb.5", "to_ascii\(\'\\u0843\.5\'\)\ \[data\/IdnaTest\.txt\:2888\]") 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--1vb.5", %p)}, "xn--1vb.5", "to_ascii\(\'xn\-\-1vb\.5\'\)\ \[data\/IdnaTest\.txt\:2889\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0603}\x{2DD9A}。\x{06CE}𝟢", %p)}, undef, "to_ascii\(\'\\u0603\\uD877\\uDD9A。\\u06CE𝟢\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2890\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}\x{2DD9A}。\x{06CE}0", %p)}, undef, "to_ascii\(\'\\u0603\\uD877\\uDD9A\。\\u06CE0\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2891\]") 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{111C0}\x{FCEC}\x{1B6D}。\x{200D}\x{0F84}", %p)}, undef, "to_ascii\(\'\-\\uD804\\uDDC0\\uFCEC\\u1B6D。\\u200D\\u0F84\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:2893\]") 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{111C0}\x{0643}\x{0645}\x{1B6D}。\x{200D}\x{0F84}", %p)}, undef, "to_ascii\(\'\-\\uD804\\uDDC0\\u0643\\u0645\\u1B6D\。\\u200D\\u0F84\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:2895\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FE0F}\x{200C}\x{8C6E1}𝟏。\x{200C}\x{A950}\x{0351}", %p)}, undef, "to_ascii\(\'\\uFE0F\\u200C\\uD9F1\\uDEE1𝟏。\\u200C\\uA950\\u0351\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2897\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE0F}\x{200C}\x{8C6E1}1。\x{200C}\x{A950}\x{0351}", %p)}, undef, "to_ascii\(\'\\uFE0F\\u200C\\uD9F1\\uDEE11\。\\u200C\\uA950\\u0351\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2899\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("兎。\x{071B}\x{E0D1C}\x{1734}\x{0F84}", %p)}, undef, "to_ascii\(\'兎。\\u071B\\uDB43\\uDD1C\\u1734\\u0F84\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2900\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("兎。\x{071B}\x{E0D1C}\x{1734}\x{0F84}", %p)}, undef, "to_ascii\(\'兎\。\\u071B\\uDB43\\uDD1C\\u1734\\u0F84\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2901\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒙。\x{200D}5\x{200D}⒕", %p)}, undef, "to_ascii\(\'⒙。\\u200D5\\u200D⒕\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2903\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("18.。\x{200D}5\x{200D}14.", %p)}, undef, "to_ascii\(\'18\.\。\\u200D5\\u200D14\.\'\)\ throws\ error\ A4_2\ C2\ \[data\/IdnaTest\.txt\:2905\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0849}-。\x{E09FA}⒔", %p)}, undef, "to_ascii\(\'\\u0849\-。\\uDB42\\uDDFA⒔\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:2906\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0849}-。\x{E09FA}13.", %p)}, undef, "to_ascii\(\'\\u0849\-\。\\uDB42\\uDDFA13\.\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:2907\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DED}\x{7CF6C}\x{FC08}.\x{10E60}۸", %p)}, undef, "to_ascii\(\'\\u2DED\\uD9B3\\uDF6C\\uFC08.\\uD803\\uDE60۸\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2908\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DED}\x{7CF6C}\x{0628}\x{0645}.\x{10E60}۸", %p)}, undef, "to_ascii\(\'\\u2DED\\uD9B3\\uDF6C\\u0628\\u0645\.\\uD803\\uDE60۸\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2909\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴜ𤮹\x{1CE8}⾇。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴜ𤮹\\u1CE8⾇\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2911\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴜ𤮹\x{1CE8}舛。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴜ𤮹\\u1CE8舛\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2913\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1CE8}舛。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'ⴜ𤮹\\u1CE8舛\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ C1\ \[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("xn--16f130edj8dsszv.xn--e5h11w", %p)}, "xn--16f130edj8dsszv.xn--e5h11w", "to_ascii\(\'xn\-\-16f130edj8dsszv\.xn\-\-e5h11w\'\)\ \[data\/IdnaTest\.txt\:2916\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1CE8}舛.ⴏ♀", %p)}, "xn--16f130edj8dsszv.xn--e5h11w", "to_ascii\(\'ⴜ𤮹\\u1CE8舛\.ⴏ\♀\'\)\ \[data\/IdnaTest\.txt\:2917\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴜ𤮹\x{1CE8}舛.Ⴏ♀", %p)}, undef, "to_ascii\(\'Ⴜ𤮹\\u1CE8舛\.Ⴏ\♀\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2918\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1CE8}⾇。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'ⴜ𤮹\\u1CE8⾇\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2920\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0D4D}🄈.\x{200D}", %p)}, undef, "to_ascii\(\'\\u0D4D🄈\.\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2922\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0D4D}7,.\x{200D}", %p)}, undef, "to_ascii\(\'\\u0D4D7\,\.\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2924\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C512A}Ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\\uDAD4\\uDD2AႾ癀。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2926\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C512A}Ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\\uDAD4\\uDD2AႾ癀。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2928\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C512A}Ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\\uDAD4\\uDD2AႾ癀\。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2930\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C512A}Ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\\uDAD4\\uDD2AႾ癀\。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2932\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C512A}ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\\uDAD4\\uDD2Aⴞ癀\。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2934\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C512A}ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\\uDAD4\\uDD2Aⴞ癀\。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2936\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C512A}ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\\uDAD4\\uDD2Aⴞ癀。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2938\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{C512A}ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'\\uDAD4\\uDD2Aⴞ癀。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2940\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{D79A5}-\x{110B9}。\x{08A6}", %p)}, undef, "to_ascii\(\'\\uDB1E\\uDDA5\-\\uD804\\uDCB9\。\\u08A6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2941\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08A4}𝟥≯\x{06BB}.氁\x{2BF95}ꁫ", %p)}, undef, "to_ascii\(\'\\u08A4𝟥\≯\\u06BB.氁\\uD86F\\uDF95ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2942\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08A4}𝟥>\x{0338}\x{06BB}.氁\x{2BF95}ꁫ", %p)}, undef, "to_ascii\(\'\\u08A4𝟥\>\\u0338\\u06BB.氁\\uD86F\\uDF95ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2943\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08A4}3≯\x{06BB}.氁\x{2BF95}ꁫ", %p)}, undef, "to_ascii\(\'\\u08A43\≯\\u06BB\.氁\\uD86F\\uDF95ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2944\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08A4}3>\x{0338}\x{06BB}.氁\x{2BF95}ꁫ", %p)}, undef, "to_ascii\(\'\\u08A43\>\\u0338\\u06BB\.氁\\uD86F\\uDF95ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2945\]") 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{0664}\x{116B0}.\x{0369}", %p)}, undef, "to_ascii\(\'\\u0664\\uD805\\uDEB0.\\u0369\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2946\]") 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{0664}\x{116B0}.\x{0369}", %p)}, undef, "to_ascii\(\'\\u0664\\uD805\\uDEB0\.\\u0369\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2947\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-\x{1112D}𝟮.₅\x{EDAD1}\x{E03AD}", %p)}, undef, "to_ascii\(\'\-\\uD804\\uDD2D𝟮.₅\\uDB76\\uDED1\\uDB40\\uDFAD\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2948\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{1112D}2.5\x{EDAD1}\x{E03AD}", %p)}, undef, "to_ascii\(\'\-\\uD804\\uDD2D2\.5\\uDB76\\uDED1\\uDB40\\uDFAD\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2949\]") 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\:2951\]") 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\:2953\]") 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\:2955\]") 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\:2957\]") 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\:2959\]") 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\:2961\]") 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\:2963\]") 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\:2965\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("歷。\x{10E62}≯\x{A5AF3}\x{200D}", %p)}, undef, "to_ascii\(\'歷。\\uD803\\uDE62\≯\\uDA56\\uDEF3\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2967\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("歷。\x{10E62}>\x{0338}\x{A5AF3}\x{200D}", %p)}, undef, "to_ascii\(\'歷。\\uD803\\uDE62\>\\u0338\\uDA56\\uDEF3\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2969\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("歷。\x{10E62}≯\x{A5AF3}\x{200D}", %p)}, undef, "to_ascii\(\'歷\。\\uD803\\uDE62\≯\\uDA56\\uDEF3\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2971\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("歷。\x{10E62}>\x{0338}\x{A5AF3}\x{200D}", %p)}, undef, "to_ascii\(\'歷\。\\uD803\\uDE62\>\\u0338\\uDA56\\uDEF3\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2973\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0962}\x{200D}.𠸔\x{E0C11}", %p)}, undef, "to_ascii\(\'\\u0962\\u200D.𠸔\\uDB43\\uDC11\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2975\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0962}\x{200D}.𠸔\x{E0C11}", %p)}, undef, "to_ascii\(\'\\u0962\\u200D\.𠸔\\uDB43\\uDC11\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2977\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{0756}。\x{E9AA5}\x{FD1E}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u0756。\\uDB66\\uDEA5\\uFD1E\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2979\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{0756}。\x{E9AA5}\x{062C}\x{064A}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u0756\。\\uDB66\\uDEA5\\u062C\\u064A\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2981\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}≠𝟶-.ς⒓\x{10E7E}≠", %p)}, undef, "to_ascii\(\'\\u0641\≠𝟶\-\.ς⒓\\uD803\\uDE7E\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2982\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}=\x{0338}𝟶-.ς⒓\x{10E7E}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0641\=\\u0338𝟶\-\.ς⒓\\uD803\\uDE7E\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2983\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}≠0-.ς12.\x{10E7E}≠", %p)}, undef, "to_ascii\(\'\\u0641\≠0\-\.ς12\.\\uD803\\uDE7E\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:2984\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}=\x{0338}0-.ς12.\x{10E7E}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0641\=\\u03380\-\.ς12\.\\uD803\\uDE7E\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:2985\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}=\x{0338}0-.Σ12.\x{10E7E}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0641\=\\u03380\-\.Σ12\.\\uD803\\uDE7E\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:2986\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}≠0-.Σ12.\x{10E7E}≠", %p)}, undef, "to_ascii\(\'\\u0641\≠0\-\.Σ12\.\\uD803\\uDE7E\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:2987\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}≠0-.σ12.\x{10E7E}≠", %p)}, undef, "to_ascii\(\'\\u0641\≠0\-\.σ12\.\\uD803\\uDE7E\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:2988\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}=\x{0338}0-.σ12.\x{10E7E}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0641\=\\u03380\-\.σ12\.\\uD803\\uDE7E\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:2989\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}=\x{0338}𝟶-.Σ⒓\x{10E7E}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0641\=\\u0338𝟶\-\.Σ⒓\\uD803\\uDE7E\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2990\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}≠𝟶-.Σ⒓\x{10E7E}≠", %p)}, undef, "to_ascii\(\'\\u0641\≠𝟶\-\.Σ⒓\\uD803\\uDE7E\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2991\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}≠𝟶-.σ⒓\x{10E7E}≠", %p)}, undef, "to_ascii\(\'\\u0641\≠𝟶\-\.σ⒓\\uD803\\uDE7E\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2992\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}=\x{0338}𝟶-.σ⒓\x{10E7E}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0641\=\\u0338𝟶\-\.σ⒓\\uD803\\uDE7E\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2993\]") 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{0623}\x{17CD}\x{11042}", %p)}, undef, "to_ascii\(\'ꊉ\.\-\\u0623\\u17CD\\uD804\\uDC42\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2994\]") 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{0627}\x{0654}\x{17CD}\x{11042}", %p)}, undef, "to_ascii\(\'ꊉ\.\-\\u0627\\u0654\\u17CD\\uD804\\uDC42\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2995\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᢚ⒈ß\x{05B0}。\x{83F0F}-", %p)}, undef, "to_ascii\(\'ᢚ⒈ß\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2996\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢚ1.ß\x{05B0}。\x{83F0F}-", %p)}, undef, "to_ascii\(\'ᢚ1\.ß\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2997\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢚ1.SS\x{05B0}。\x{83F0F}-", %p)}, undef, "to_ascii\(\'ᢚ1\.SS\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2998\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢚ1.ss\x{05B0}。\x{83F0F}-", %p)}, undef, "to_ascii\(\'ᢚ1\.ss\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2999\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢚ1.Ss\x{05B0}。\x{83F0F}-", %p)}, undef, "to_ascii\(\'ᢚ1\.Ss\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3000\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢚ⒈SS\x{05B0}。\x{83F0F}-", %p)}, undef, "to_ascii\(\'ᢚ⒈SS\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3001\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢚ⒈ss\x{05B0}。\x{83F0F}-", %p)}, undef, "to_ascii\(\'ᢚ⒈ss\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3002\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢚ⒈Ss\x{05B0}。\x{83F0F}-", %p)}, undef, "to_ascii\(\'ᢚ⒈Ss\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3003\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}ςႦ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99.\\u1039ςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3005\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}ςႦ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99\.\\u1039ςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3007\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}ςⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99\.\\u1039ςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3009\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}ΣႦ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99\.\\u1039ΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3011\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99\.\\u1039σⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3013\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}Σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99\.\\u1039Σⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3015\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}ςⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99.\\u1039ςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3017\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}ΣႦ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99.\\u1039ΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3019\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99.\\u1039σⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3021\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{68D99}.\x{1039}Σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD963\\uDD99.\\u1039Σⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3023\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E70}.\x{302A}", %p)}, undef, "to_ascii\(\'⾆\\uD803\\uDE70\.\\u302A\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3024\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E70}.\x{302A}", %p)}, undef, "to_ascii\(\'舌\\uD803\\uDE70\.\\u302A\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3025\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("🝧\x{10E6F}\x{E01BA}。⸠⒈", %p)}, undef, "to_ascii\(\'🝧\\uD803\\uDE6F\\uDB40\\uDDBA\。\⸠⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3026\]") 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{10E6F}\x{E01BA}。⸠1.", %p)}, undef, "to_ascii\(\'🝧\\uD803\\uDE6F\\uDB40\\uDDBA\。\⸠1\.\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3027\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒈\x{200C}\x{0946}︒.\x{10A3F}", %p)}, undef, "to_ascii\(\'⒈\\u200C\\u0946︒.\\uD802\\uDE3F\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3029\]") 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("1.\x{200C}\x{0946}。.\x{10A3F}", %p)}, undef, "to_ascii\(\'1\.\\u200C\\u0946\。\.\\uD802\\uDE3F\'\)\ throws\ error\ V5\ C1\ A4_2\ \[data\/IdnaTest\.txt\:3031\]") 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{1BAB}。䰀\x{10E65}\x{FC7B}\x{0829}", %p)}, undef, "to_ascii\(\'\\u1BAB\。䰀\\uD803\\uDE65\\uFC7B\\u0829\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3032\]") 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{1BAB}。䰀\x{10E65}\x{062B}\x{064A}\x{0829}", %p)}, undef, "to_ascii\(\'\\u1BAB\。䰀\\uD803\\uDE65\\u062B\\u064A\\u0829\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3033\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ß\x{200D}.\x{1BAB}\x{C9110}", %p)}, undef, "to_ascii\(\'ß\\u200D\.\\u1BAB\\uDAE4\\uDD10\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3035\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{200D}.\x{1BAB}\x{C9110}", %p)}, undef, "to_ascii\(\'SS\\u200D\.\\u1BAB\\uDAE4\\uDD10\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3037\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{200D}.\x{1BAB}\x{C9110}", %p)}, undef, "to_ascii\(\'ss\\u200D\.\\u1BAB\\uDAE4\\uDD10\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3039\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{200D}.\x{1BAB}\x{C9110}", %p)}, undef, "to_ascii\(\'Ss\\u200D\.\\u1BAB\\uDAE4\\uDD10\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3041\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{103A}\x{200C}≮.≮", %p)}, undef, "to_ascii\(\'\\u103A\\u200C\≮\.\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3042\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{103A}\x{200C}<\x{0338}.<\x{0338}", %p)}, undef, "to_ascii\(\'\\u103A\\u200C\<\\u0338\.\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3043\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("℈.\x{FFA0}", %p)}, undef, "to_ascii\(\'℈.\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3044\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("℈.\x{1160}", %p)}, undef, "to_ascii\(\'℈\.\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3045\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0721}\x{10F06}。\x{CEF44}", %p)}, undef, "to_ascii\(\'\\u0721\\uD803\\uDF06\。\\uDAFB\\uDF44\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3046\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("爕\x{91BA2}.5気", %p)}, undef, "to_ascii\(\'爕\\uDA06\\uDFA2.5気\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3047\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("爕\x{91BA2}.5気", %p)}, undef, "to_ascii\(\'爕\\uDA06\\uDFA2\.5気\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3048\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷\x{11134}Ⴝ-.\x{0801}\x{10A3F}\x{0DD6}", %p)}, undef, "to_ascii\(\'۷\\uD804\\uDD34Ⴝ\-.\\u0801\\uD802\\uDE3F\\u0DD6\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3049\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷\x{11134}Ⴝ-.\x{0801}\x{10A3F}\x{0DD6}", %p)}, undef, "to_ascii\(\'۷\\uD804\\uDD34Ⴝ\-\.\\u0801\\uD802\\uDE3F\\u0DD6\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3050\]") 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{11134}ⴝ-.\x{0801}\x{10A3F}\x{0DD6}", %p)}, undef, "to_ascii\(\'۷\\uD804\\uDD34ⴝ\-\.\\u0801\\uD802\\uDE3F\\u0DD6\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3051\]") 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{11134}ⴝ-.\x{0801}\x{10A3F}\x{0DD6}", %p)}, undef, "to_ascii\(\'۷\\uD804\\uDD34ⴝ\-.\\u0801\\uD802\\uDE3F\\u0DD6\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3052\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{7D0D3}。\x{102DAD}\x{E27E2}--", %p)}, undef, "to_ascii\(\'\\uD9B4\\uDCD3\。\\uDBCB\\uDDAD\\uDB49\\uDFE2\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ \[data\/IdnaTest\.txt\:3053\]") 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{200D}ꡪ。\x{200C}\x{1039}", %p)}, undef, "to_ascii\(\'\\u200Dꡪ。\\u200C\\u1039\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3055\]") 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{200D}ꡪ。\x{200C}\x{1039}", %p)}, undef, "to_ascii\(\'\\u200Dꡪ\。\\u200C\\u1039\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3057\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1EA31}\x{FEF4}\x{06C9}。ᡔ𪻗ꡠ", %p)}, undef, "to_ascii\(\'\\uD83A\\uDE31\\uFEF4\\u06C9。ᡔ𪻗ꡠ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3058\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EA31}\x{064A}\x{06C9}。ᡔ𪻗ꡠ", %p)}, undef, "to_ascii\(\'\\uD83A\\uDE31\\u064A\\u06C9\。ᡔ𪻗ꡠ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3059\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1C2E}\x{1EEE0}\x{B47DA}\x{A806}.\x{0717}ᡌ", %p)}, undef, "to_ascii\(\'\\u1C2E\\uD83B\\uDEE0\\uDA91\\uDFDA\\uA806\.\\u0717ᡌ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:3060\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。ς\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。ς\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3061\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。ς\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。ς\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3062\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。ς\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。ς\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3063\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。ς\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。ς\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3064\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}Σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。Σ\\u06CEΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3065\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}Σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。Σ\\u06CEΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3066\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3067\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3068\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。Σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3069\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。Σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3070\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。Σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3071\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。Σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3072\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3073\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3074\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}Σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。Σ\\u06CEΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3075\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}Σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。Σ\\u06CEΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3076\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3077\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3078\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。Σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3079\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}σ", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。Σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3080\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。Σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3081\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。Σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3082\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3083\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}ς", %p)}, undef, "to_ascii\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3084\]") 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{059F}\x{036E}-\x{11133}", %p)}, undef, "to_ascii\(\'蔰\。\\u059F\\u036E\-\\uD804\\uDD33\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3085\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ςჅ。\x{08A5}", %p)}, undef, "to_ascii\(\'ςჅ\。\\u08A5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3086\]") 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{08A5}", %p)}, "xn--3xa403s.xn--uyb", "to_ascii\(\'ςⴥ\。\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3088\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ΣჅ。\x{08A5}", %p)}, undef, "to_ascii\(\'ΣჅ\。\\u08A5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3089\]") 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{08A5}", %p)}, "xn--4xa203s.xn--uyb", "to_ascii\(\'σⴥ\。\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3090\]") 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{08A5}", %p)}, "xn--4xa203s.xn--uyb", "to_ascii\(\'Σⴥ\。\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3091\]") 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--4xa203s.xn--uyb", %p)}, "xn--4xa203s.xn--uyb", "to_ascii\(\'xn\-\-4xa203s\.xn\-\-uyb\'\)\ \[data\/IdnaTest\.txt\:3092\]") 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{08A5}", %p)}, "xn--4xa203s.xn--uyb", "to_ascii\(\'σⴥ\.\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3093\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ΣჅ.\x{08A5}", %p)}, undef, "to_ascii\(\'ΣჅ\.\\u08A5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3094\]") 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{08A5}", %p)}, "xn--4xa203s.xn--uyb", "to_ascii\(\'Σⴥ\.\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3095\]") 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--3xa403s.xn--uyb", %p)}, "xn--3xa403s.xn--uyb", "to_ascii\(\'xn\-\-3xa403s\.xn\-\-uyb\'\)\ \[data\/IdnaTest\.txt\:3096\]") 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{08A5}", %p)}, "xn--3xa403s.xn--uyb", "to_ascii\(\'ςⴥ\.\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3098\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0BCD}Ⴉ\x{FB22}.\x{08E9}", %p)}, undef, "to_ascii\(\'\\u0BCDႩ\\uFB22.\\u08E9\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3099\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}Ⴉ\x{05D3}.\x{08E9}", %p)}, undef, "to_ascii\(\'\\u0BCDႩ\\u05D3\.\\u08E9\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3100\]") 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{0BCD}ⴉ\x{05D3}.\x{08E9}", %p)}, undef, "to_ascii\(\'\\u0BCDⴉ\\u05D3\.\\u08E9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3101\]") 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{0BCD}ⴉ\x{FB22}.\x{08E9}", %p)}, undef, "to_ascii\(\'\\u0BCDⴉ\\uFB22.\\u08E9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3102\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E0F21}≮\x{4CBE5}\x{085A}。\x{10CDF}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDF21\≮\\uD8F2\\uDFE5\\u085A\。\\uD803\\uDCDF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3103\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0F21}<\x{0338}\x{4CBE5}\x{085A}。\x{10CDF}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDF21\<\\u0338\\uD8F2\\uDFE5\\u085A\。\\uD803\\uDCDF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3104\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}。\x{200D}ẏ\x{200C}\x{0633}", %p)}, undef, "to_ascii\(\'\\u06C5。\\u200Dẏ\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3106\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}。\x{200D}y\x{0307}\x{200C}\x{0633}", %p)}, undef, "to_ascii\(\'\\u06C5。\\u200Dy\\u0307\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3108\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}。\x{200D}ẏ\x{200C}\x{0633}", %p)}, undef, "to_ascii\(\'\\u06C5\。\\u200Dẏ\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3110\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}。\x{200D}y\x{0307}\x{200C}\x{0633}", %p)}, undef, "to_ascii\(\'\\u06C5\。\\u200Dy\\u0307\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3112\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}。\x{200D}Y\x{0307}\x{200C}\x{0633}", %p)}, undef, "to_ascii\(\'\\u06C5\。\\u200DY\\u0307\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3114\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}。\x{200D}Ẏ\x{200C}\x{0633}", %p)}, undef, "to_ascii\(\'\\u06C5\。\\u200DẎ\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3116\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}。\x{200D}Y\x{0307}\x{200C}\x{0633}", %p)}, undef, "to_ascii\(\'\\u06C5。\\u200DY\\u0307\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3118\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}。\x{200D}Ẏ\x{200C}\x{0633}", %p)}, undef, "to_ascii\(\'\\u06C5。\\u200DẎ\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3120\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E67}\x{0353}。\x{92CF6}\x{0F84}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE67\\u0353\。\\uDA0B\\uDCF6\\u0F84\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3121\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≠\x{1BAA}。嵕\x{1097F}𝟷\x{2D7F}", %p)}, undef, "to_ascii\(\'\-\≠\\u1BAA。嵕\\uD802\\uDD7F𝟷\\u2D7F\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3122\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-=\x{0338}\x{1BAA}。嵕\x{1097F}𝟷\x{2D7F}", %p)}, undef, "to_ascii\(\'\-\=\\u0338\\u1BAA。嵕\\uD802\\uDD7F𝟷\\u2D7F\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3123\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≠\x{1BAA}。嵕\x{1097F}1\x{2D7F}", %p)}, undef, "to_ascii\(\'\-\≠\\u1BAA\。嵕\\uD802\\uDD7F1\\u2D7F\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3124\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-=\x{0338}\x{1BAA}。嵕\x{1097F}1\x{2D7F}", %p)}, undef, "to_ascii\(\'\-\=\\u0338\\u1BAA\。嵕\\uD802\\uDD7F1\\u2D7F\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3125\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{16736}\x{10E7D}\x{06AD}.\x{0693}\x{200D}≯\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\\uD819\\uDF36\\uD803\\uDE7D\\u06AD.\\u0693\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3127\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{16736}\x{10E7D}\x{06AD}.\x{0693}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\\uD819\\uDF36\\uD803\\uDE7D\\u06AD.\\u0693\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3129\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{16736}\x{10E7D}\x{06AD}.\x{0693}\x{200D}≯\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\\uD819\\uDF36\\uD803\\uDE7D\\u06AD\.\\u0693\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3131\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{16736}\x{10E7D}\x{06AD}.\x{0693}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C\\uD819\\uDF36\\uD803\\uDE7D\\u06AD\.\\u0693\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3133\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.\x{17B5}ᢨ\x{07E8}", %p)}, undef, "to_ascii\(\'\≮.\\u17B5ᢨ\\u07E8\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3134\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.\x{17B5}ᢨ\x{07E8}", %p)}, undef, "to_ascii\(\'\<\\u0338.\\u17B5ᢨ\\u07E8\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3135\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.\x{17B5}ᢨ\x{07E8}", %p)}, undef, "to_ascii\(\'\≮\.\\u17B5ᢨ\\u07E8\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3136\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.\x{17B5}ᢨ\x{07E8}", %p)}, undef, "to_ascii\(\'\<\\u0338\.\\u17B5ᢨ\\u07E8\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3137\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EC59}\x{200D}。ႩႵ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDC59\\u200D。ႩႵ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3139\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EC59}\x{200D}。ႩႵ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDC59\\u200D\。ႩႵ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3141\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EC59}\x{200D}。ⴉⴕ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDC59\\u200D\。ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3143\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EC59}\x{200D}。Ⴉⴕ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDC59\\u200D\。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3145\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EC59}\x{200D}。ⴉⴕ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDC59\\u200D。ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3147\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EC59}\x{200D}。Ⴉⴕ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDC59\\u200D。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3149\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}ㄤ.\x{1DD9}\x{4484F}\x{A92A}", %p)}, undef, "to_ascii\(\'\\u200C\\u200Cㄤ.\\u1DD9\\uD8D2\\uDC4F\\uA92A\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3151\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}ㄤ.\x{1DD9}\x{4484F}\x{A92A}", %p)}, undef, "to_ascii\(\'\\u200C\\u200Cㄤ\.\\u1DD9\\uD8D2\\uDC4F\\uA92A\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3153\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒓。-\x{200C}ᠶႷ", %p)}, undef, "to_ascii\(\'⒓。\-\\u200CᠶႷ\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:3155\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("12.。-\x{200C}ᠶႷ", %p)}, undef, "to_ascii\(\'12\.\。\-\\u200CᠶႷ\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ C1\ \[data\/IdnaTest\.txt\:3157\]") 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("12.。-\x{200C}ᠶⴗ", %p)}, undef, "to_ascii\(\'12\.\。\-\\u200Cᠶⴗ\'\)\ throws\ error\ V3\ A4_2\ C1\ \[data\/IdnaTest\.txt\:3159\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒓。-\x{200C}ᠶⴗ", %p)}, undef, "to_ascii\(\'⒓。\-\\u200Cᠶⴗ\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:3161\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🐚\x{1E87B}.≠\x{200C}", %p)}, undef, "to_ascii\(\'🐚\\uD83A\\uDC7B.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3163\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🐚\x{1E87B}.=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'🐚\\uD83A\\uDC7B.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3165\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🐚\x{1E87B}.≠\x{200C}", %p)}, undef, "to_ascii\(\'🐚\\uD83A\\uDC7B\.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3167\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🐚\x{1E87B}.=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'🐚\\uD83A\\uDC7B\.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3169\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A672}\x{0F74}。\x{1EF16}\x{0B4D}\x{FE25}", %p)}, undef, "to_ascii\(\'\\uA672\\u0F74。\\uD83B\\uDF16\\u0B4D\\uFE25\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3170\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A672}\x{0F74}。\x{1EF16}\x{0B4D}\x{FE25}", %p)}, undef, "to_ascii\(\'\\uA672\\u0F74\。\\uD83B\\uDF16\\u0B4D\\uFE25\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3171\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ\x{07F2}۰\x{05C5}.⒕\x{1037}\x{08FD}", %p)}, undef, "to_ascii\(\'Ⴔ\\u07F2۰\\u05C5.⒕\\u1037\\u08FD\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3172\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ\x{07F2}۰\x{05C5}.14.\x{1037}\x{08FD}", %p)}, undef, "to_ascii\(\'Ⴔ\\u07F2۰\\u05C5\.14\.\\u1037\\u08FD\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3173\]") 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{07F2}۰\x{05C5}.14.\x{1037}\x{08FD}", %p)}, undef, "to_ascii\(\'ⴔ\\u07F2۰\\u05C5\.14\.\\u1037\\u08FD\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3174\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ⴔ\x{07F2}۰\x{05C5}.⒕\x{1037}\x{08FD}", %p)}, undef, "to_ascii\(\'ⴔ\\u07F2۰\\u05C5.⒕\\u1037\\u08FD\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3175\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䏈\x{200C}。\x{200C}⒈\x{FDAE1}", %p)}, undef, "to_ascii\(\'䏈\\u200C\。\\u200C⒈\\uDBB6\\uDEE1\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3177\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䏈\x{200C}。\x{200C}1.\x{FDAE1}", %p)}, undef, "to_ascii\(\'䏈\\u200C\。\\u200C1\.\\uDBB6\\uDEE1\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3179\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟑\x{0F7E}ß\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_ascii\(\'𝟑\\u0F7Eß\\u1CDB。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3180\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{0F7E}ß\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_ascii\(\'3\\u0F7Eß\\u1CDB\。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3181\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{0F7E}SS\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_ascii\(\'3\\u0F7ESS\\u1CDB\。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3182\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{0F7E}ss\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_ascii\(\'3\\u0F7Ess\\u1CDB\。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3183\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{0F7E}Ss\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_ascii\(\'3\\u0F7ESs\\u1CDB\。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3184\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟑\x{0F7E}SS\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_ascii\(\'𝟑\\u0F7ESS\\u1CDB。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3185\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟑\x{0F7E}ss\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_ascii\(\'𝟑\\u0F7Ess\\u1CDB。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3186\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟑\x{0F7E}Ss\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_ascii\(\'𝟑\\u0F7ESs\\u1CDB。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3187\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{4B0FF}\x{10EBF}\x{17D2}。ᡌ⒈", %p)}, undef, "to_ascii\(\'\\u200D\\uD8EC\\uDCFF\\uD803\\uDEBF\\u17D2。ᡌ⒈\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3189\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{4B0FF}\x{10EBF}\x{17D2}。ᡌ1.", %p)}, undef, "to_ascii\(\'\\u200D\\uD8EC\\uDCFF\\uD803\\uDEBF\\u17D2\。ᡌ1\.\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3191\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0135}.\x{10D6D}\x{9700D}\x{1065D4}\x{08A6}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD35.\\uD803\\uDD6D\\uDA1C\\uDC0D\\uDBD9\\uDDD4\\u08A6\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:3192\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0135}.\x{10D6D}\x{9700D}\x{1065D4}\x{08A6}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD35\.\\uD803\\uDD6D\\uDA1C\\uDC0D\\uDBD9\\uDDD4\\u08A6\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:3193\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0642}\x{108B0}⒈.\x{20C4}🄅\x{2C433}\x{075B}", %p)}, undef, "to_ascii\(\'\\u0642\\uD802\\uDCB0⒈.\\u20C4🄅\\uD871\\uDC33\\u075B\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3194\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0642}\x{108B0}1..\x{20C4}4,\x{2C433}\x{075B}", %p)}, undef, "to_ascii\(\'\\u0642\\uD802\\uDCB01\.\.\\u20C44\,\\uD871\\uDC33\\u075B\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3195\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ECB}\x{07E9}\x{0944}\x{08A3}。-≀\x{9B07D}", %p)}, undef, "to_ascii\(\'\\u0ECB\\u07E9\\u0944\\u08A3\。\-\≀\\uDA2C\\uDC7D\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3196\]") 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{111C0}剘ßᢔ", %p)}, undef, "to_ascii\(\'\-\.\\uD804\\uDDC0剘ßᢔ\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3197\]") 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{111C0}剘SSᢔ", %p)}, undef, "to_ascii\(\'\-\.\\uD804\\uDDC0剘SSᢔ\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3198\]") 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{111C0}剘ssᢔ", %p)}, undef, "to_ascii\(\'\-\.\\uD804\\uDDC0剘ssᢔ\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3199\]") 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{111C0}剘Ssᢔ", %p)}, undef, "to_ascii\(\'\-\.\\uD804\\uDDC0剘Ssᢔ\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3200\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("🕟\x{10FC0}。-", %p)}, undef, "to_ascii\(\'🕟\\uD803\\uDFC0。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3201\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🕟\x{10FC0}。-", %p)}, undef, "to_ascii\(\'🕟\\uD803\\uDFC0\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3202\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{E070C}\x{10E69}。≠\x{0664}\x{10E6C}", %p)}, undef, "to_ascii\(\'⒈\\uDB41\\uDF0C\\uD803\\uDE69。\≠\\u0664\\uD803\\uDE6C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3203\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{E070C}\x{10E69}。=\x{0338}\x{0664}\x{10E6C}", %p)}, undef, "to_ascii\(\'⒈\\uDB41\\uDF0C\\uD803\\uDE69。\=\\u0338\\u0664\\uD803\\uDE6C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3204\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{E070C}\x{10E69}。≠\x{0664}\x{10E6C}", %p)}, undef, "to_ascii\(\'1\.\\uDB41\\uDF0C\\uD803\\uDE69\。\≠\\u0664\\uD803\\uDE6C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3205\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{E070C}\x{10E69}。=\x{0338}\x{0664}\x{10E6C}", %p)}, undef, "to_ascii\(\'1\.\\uDB41\\uDF0C\\uD803\\uDE69\。\=\\u0338\\u0664\\uD803\\uDE6C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3206\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0661}㇡Ⴎ\x{200C}.㖾\x{0666}", %p)}, undef, "to_ascii\(\'\\u0661㇡Ⴎ\\u200C\.㖾\\u0666\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3208\]") 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{0661}㇡ⴎ\x{200C}.㖾\x{0666}", %p)}, undef, "to_ascii\(\'\\u0661㇡ⴎ\\u200C\.㖾\\u0666\'\)\ throws\ error\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3210\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{5A22C}.\x{07C7}\x{06B8}ႳႧ", %p)}, undef, "to_ascii\(\'\\uD928\\uDE2C.\\u07C7\\u06B8ႳႧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3211\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{5A22C}.\x{07C7}\x{06B8}ႳႧ", %p)}, undef, "to_ascii\(\'\\uD928\\uDE2C\.\\u07C7\\u06B8ႳႧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3212\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{5A22C}.\x{07C7}\x{06B8}ⴓⴇ", %p)}, undef, "to_ascii\(\'\\uD928\\uDE2C\.\\u07C7\\u06B8ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3213\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{5A22C}.\x{07C7}\x{06B8}Ⴓⴇ", %p)}, undef, "to_ascii\(\'\\uD928\\uDE2C\.\\u07C7\\u06B8Ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3214\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{5A22C}.\x{07C7}\x{06B8}ⴓⴇ", %p)}, undef, "to_ascii\(\'\\uD928\\uDE2C.\\u07C7\\u06B8ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3215\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{5A22C}.\x{07C7}\x{06B8}Ⴓⴇ", %p)}, undef, "to_ascii\(\'\\uD928\\uDE2C.\\u07C7\\u06B8Ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3216\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{A2EE5}.\x{1092E}\x{1EAE9}", %p)}, undef, "to_ascii\(\'\\u200D\\uDA4B\\uDEE5\.\\uD802\\uDD2E\\uD83A\\uDEE9\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3218\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{62467}⒒\x{E0C07}.ꡎ⒈", %p)}, undef, "to_ascii\(\'\\uD949\\uDC67⒒\\uDB43\\uDC07.ꡎ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3219\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{62467}11.\x{E0C07}.ꡎ1.", %p)}, undef, "to_ascii\(\'\\uD949\\uDC6711\.\\uDB43\\uDC07\.ꡎ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3220\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06D0}𝟝\x{1CE92}-。\x{4459A}\x{1039}\x{FC39}\x{AAF6}", %p)}, undef, "to_ascii\(\'\\u06D0𝟝\\uD833\\uDE92\-。\\uD8D1\\uDD9A\\u1039\\uFC39\\uAAF6\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3221\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06D0}5\x{1CE92}-。\x{4459A}\x{1039}\x{0643}\x{062D}\x{AAF6}", %p)}, undef, "to_ascii\(\'\\u06D05\\uD833\\uDE92\-\。\\uD8D1\\uDD9A\\u1039\\u0643\\u062D\\uAAF6\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3222\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。⒖≮ß\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。⒖\≮ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3223\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。⒖<\x{0338}ß\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。⒖\<\\u0338ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3224\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。15.≮ß\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。15\.\≮ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3225\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。15.<\x{0338}ß\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。15\.\<\\u0338ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3226\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。15.<\x{0338}ß\x{E01E1}", %p)}, undef, "to_ascii\(\'ⴕ\。15\.\<\\u0338ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3227\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。15.≮ß\x{E01E1}", %p)}, undef, "to_ascii\(\'ⴕ\。15\.\≮ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3228\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。15.≮SS\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。15\.\≮SS\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3229\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。15.<\x{0338}SS\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。15\.\<\\u0338SS\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3230\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。15.<\x{0338}ss\x{E01E1}", %p)}, undef, "to_ascii\(\'ⴕ\。15\.\<\\u0338ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3231\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。15.≮ss\x{E01E1}", %p)}, undef, "to_ascii\(\'ⴕ\。15\.\≮ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3232\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。15.≮Ss\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。15\.\≮Ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3233\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。15.<\x{0338}Ss\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。15\.\<\\u0338Ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3234\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。⒖<\x{0338}ß\x{E01E1}", %p)}, undef, "to_ascii\(\'ⴕ\。⒖\<\\u0338ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3235\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。⒖≮ß\x{E01E1}", %p)}, undef, "to_ascii\(\'ⴕ\。⒖\≮ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3236\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。⒖≮SS\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。⒖\≮SS\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3237\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。⒖<\x{0338}SS\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。⒖\<\\u0338SS\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3238\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。⒖<\x{0338}ss\x{E01E1}", %p)}, undef, "to_ascii\(\'ⴕ\。⒖\<\\u0338ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3239\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。⒖≮ss\x{E01E1}", %p)}, undef, "to_ascii\(\'ⴕ\。⒖\≮ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。⒖≮Ss\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。⒖\≮Ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3241\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。⒖<\x{0338}Ss\x{E01E1}", %p)}, undef, "to_ascii\(\'Ⴕ\。⒖\<\\u0338Ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3242\]") 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{08F5}꒱\x{E01AB}", %p)}, undef, "to_ascii\(\'ᡧ\-\.\\u08F5꒱\\uDB40\\uDDAB\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3243\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{10B65}\x{200C}.≯䕵⬯", %p)}, undef, "to_ascii\(\'\\uD802\\uDF65\\u200C\.\≯䕵\⬯\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3245\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10B65}\x{200C}.>\x{0338}䕵⬯", %p)}, undef, "to_ascii\(\'\\uD802\\uDF65\\u200C\.\>\\u0338䕵\⬯\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3247\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F18}ß\x{0643}.ᡄ⁷︒", %p)}, undef, "to_ascii\(\'\\u0F18ß\\u0643\.ᡄ⁷︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3248\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F18}ß\x{0643}.ᡄ7。", %p)}, undef, "to_ascii\(\'\\u0F18ß\\u0643\.ᡄ7\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3249\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F18}SS\x{0643}.ᡄ7。", %p)}, undef, "to_ascii\(\'\\u0F18SS\\u0643\.ᡄ7\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3250\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F18}ss\x{0643}.ᡄ7。", %p)}, undef, "to_ascii\(\'\\u0F18ss\\u0643\.ᡄ7\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3251\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F18}Ss\x{0643}.ᡄ7。", %p)}, undef, "to_ascii\(\'\\u0F18Ss\\u0643\.ᡄ7\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3252\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F18}SS\x{0643}.ᡄ⁷︒", %p)}, undef, "to_ascii\(\'\\u0F18SS\\u0643\.ᡄ⁷︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3253\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F18}ss\x{0643}.ᡄ⁷︒", %p)}, undef, "to_ascii\(\'\\u0F18ss\\u0643\.ᡄ⁷︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F18}Ss\x{0643}.ᡄ⁷︒", %p)}, undef, "to_ascii\(\'\\u0F18Ss\\u0643\.ᡄ⁷︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3255\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≮\x{E08E8}\x{E0101}.\x{E0E5F}Ⴁꡋ", %p)}, undef, "to_ascii\(\'\-\≮\\uDB42\\uDCE8\\uDB40\\uDD01\.\\uDB43\\uDE5FႡꡋ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3256\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-<\x{0338}\x{E08E8}\x{E0101}.\x{E0E5F}Ⴁꡋ", %p)}, undef, "to_ascii\(\'\-\<\\u0338\\uDB42\\uDCE8\\uDB40\\uDD01\.\\uDB43\\uDE5FႡꡋ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3257\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-<\x{0338}\x{E08E8}\x{E0101}.\x{E0E5F}ⴁꡋ", %p)}, undef, "to_ascii\(\'\-\<\\u0338\\uDB42\\uDCE8\\uDB40\\uDD01\.\\uDB43\\uDE5Fⴁꡋ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3258\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≮\x{E08E8}\x{E0101}.\x{E0E5F}ⴁꡋ", %p)}, undef, "to_ascii\(\'\-\≮\\uDB42\\uDCE8\\uDB40\\uDD01\.\\uDB43\\uDE5Fⴁꡋ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3259\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡒ。\x{0693}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ᡒ。\\u0693\\u200D\\u200C\'\)\ throws\ error\ B3\ C2\ C1\ \[data\/IdnaTest\.txt\:3261\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡒ。\x{0693}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ᡒ\。\\u0693\\u200D\\u200C\'\)\ throws\ error\ B3\ C2\ C1\ \[data\/IdnaTest\.txt\:3263\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--i8e.xn--pjb", %p)}, "xn--i8e.xn--pjb", "to_ascii\(\'xn\-\-i8e\.xn\-\-pjb\'\)\ \[data\/IdnaTest\.txt\:3264\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡒ.\x{0693}", %p)}, "xn--i8e.xn--pjb", "to_ascii\(\'ᡒ\.\\u0693\'\)\ \[data\/IdnaTest\.txt\:3265\]") 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{1B80}\x{07AE}.\x{0672}\x{06D9}\x{0660}", %p)}, undef, "to_ascii\(\'\\u1B80\\u07AE.\\u0672\\u06D9\\u0660\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3266\]") 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{1B80}\x{07AE}.\x{0672}\x{06D9}\x{0660}", %p)}, undef, "to_ascii\(\'\\u1B80\\u07AE\.\\u0672\\u06D9\\u0660\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3267\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⅎ\x{033D}\x{98A47}。≯⾑", %p)}, undef, "to_ascii\(\'Ⅎ\\u033D\\uDA22\\uDE47\。\≯⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3268\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ\x{033D}\x{98A47}。>\x{0338}⾑", %p)}, undef, "to_ascii\(\'Ⅎ\\u033D\\uDA22\\uDE47\。\>\\u0338⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3269\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ\x{033D}\x{98A47}。≯襾", %p)}, undef, "to_ascii\(\'Ⅎ\\u033D\\uDA22\\uDE47\。\≯襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3270\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ\x{033D}\x{98A47}。>\x{0338}襾", %p)}, undef, "to_ascii\(\'Ⅎ\\u033D\\uDA22\\uDE47\。\>\\u0338襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3271\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ\x{033D}\x{98A47}。>\x{0338}襾", %p)}, undef, "to_ascii\(\'ⅎ\\u033D\\uDA22\\uDE47\。\>\\u0338襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3272\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ\x{033D}\x{98A47}。≯襾", %p)}, undef, "to_ascii\(\'ⅎ\\u033D\\uDA22\\uDE47\。\≯襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3273\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ\x{033D}\x{98A47}。>\x{0338}⾑", %p)}, undef, "to_ascii\(\'ⅎ\\u033D\\uDA22\\uDE47\。\>\\u0338⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3274\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ\x{033D}\x{98A47}。≯⾑", %p)}, undef, "to_ascii\(\'ⅎ\\u033D\\uDA22\\uDE47\。\≯⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3275\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_ascii\(\'ς\\u200D\\u1A18\\uD803\\uDE7B。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3277\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_ascii\(\'ς\\u200D\\u1A18\\uD803\\uDE7B\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3279\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_ascii\(\'Σ\\u200D\\u1A18\\uD803\\uDE7B\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3281\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_ascii\(\'σ\\u200D\\u1A18\\uD803\\uDE7B\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3283\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_ascii\(\'Σ\\u200D\\u1A18\\uD803\\uDE7B。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3285\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_ascii\(\'σ\\u200D\\u1A18\\uD803\\uDE7B。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3287\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}.ßႩ-", %p)}, undef, "to_ascii\(\'\\u200C\.ßႩ\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:3289\]") 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\:3291\]") 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\:3293\]") 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\:3295\]") 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\:3297\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{9E584}\x{07E1}㓱。⾑", %p)}, undef, "to_ascii\(\'\\uDA39\\uDD84\\u07E1㓱\。⾑\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3298\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9E584}\x{07E1}㓱。襾", %p)}, undef, "to_ascii\(\'\\uDA39\\uDD84\\u07E1㓱\。襾\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3299\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0724}ꡗ\x{10E66}≮。≯\x{8FFFF}\x{200D}", %p)}, undef, "to_ascii\(\'\\u0724ꡗ\\uD803\\uDE66\≮\。\≯\\uD9FF\\uDFFF\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3301\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0724}ꡗ\x{10E66}<\x{0338}。>\x{0338}\x{8FFFF}\x{200D}", %p)}, undef, "to_ascii\(\'\\u0724ꡗ\\uD803\\uDE66\<\\u0338\。\>\\u0338\\uD9FF\\uDFFF\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3303\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟯。\x{BB642}\x{0766}ᠣ⩋", %p)}, undef, "to_ascii\(\'𝟯。\\uDAAD\\uDE42\\u0766ᠣ\⩋\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3304\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3。\x{BB642}\x{0766}ᠣ⩋", %p)}, undef, "to_ascii\(\'3\。\\uDAAD\\uDE42\\u0766ᠣ\⩋\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3305\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{1E935}。\x{0FB4}\x{0E3A}", %p)}, undef, "to_ascii\(\'\-\\uD83A\\uDD35\。\\u0FB4\\u0E3A\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3306\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{0484}⒏.\x{1B03}\x{C6173}\x{0665}\x{4F80E}", %p)}, undef, "to_ascii\(\'\\u200C\\u0484⒏\.\\u1B03\\uDAD8\\uDD73\\u0665\\uD8FE\\uDC0E\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:3308\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{0484}8..\x{1B03}\x{C6173}\x{0665}\x{4F80E}", %p)}, undef, "to_ascii\(\'\\u200C\\u04848\.\.\\u1B03\\uDAD8\\uDD73\\u0665\\uD8FE\\uDC0E\'\)\ throws\ error\ P1\ V5\ V6\ C1\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3310\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("齙--۴.ß", %p)}, "xn-----xbe3617m.xn--zca", "to_ascii\(\'齙\-\-۴\.ß\'\)\ \[data\/IdnaTest\.txt\:3312\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("齙--۴.SS", %p)}, "xn-----xbe3617m.ss", "to_ascii\(\'齙\-\-۴\.SS\'\)\ \[data\/IdnaTest\.txt\:3313\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn-----xbe3617m.ss", %p)}, "xn-----xbe3617m.ss", "to_ascii\(\'xn\-\-\-\-\-xbe3617m\.ss\'\)\ \[data\/IdnaTest\.txt\:3314\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn-----xbe3617m.xn--zca", %p)}, "xn-----xbe3617m.xn--zca", "to_ascii\(\'xn\-\-\-\-\-xbe3617m\.xn\-\-zca\'\)\ \[data\/IdnaTest\.txt\:3315\]") 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{2D7F}.\x{0665}\x{1CE5}\x{200C}", %p)}, undef, "to_ascii\(\'\\u2D7F\.\\u0665\\u1CE5\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3317\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{3C3F2}\x{A6F0}。\x{DEDE}-\x{200D}", %p)}, undef, "to_ascii\(\'\\uD8B0\\uDFF2\\uA6F0。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A3\ \[data\/IdnaTest\.txt\:3319\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3C3F2}\x{A6F0}。\x{DEDE}-\x{200D}", %p)}, undef, "to_ascii\(\'\\uD8B0\\uDFF2\\uA6F0\。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A3\ \[data\/IdnaTest\.txt\:3321\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3C3F2}\x{A6F0}", %p)}, undef, "to_ascii\(\'\\uD8B0\\uDFF2\\uA6F0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3322\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1BF3}.\x{1E8AB}-\x{FE0A}悎", %p)}, undef, "to_ascii\(\'\\u1BF3.\\uD83A\\uDCAB\-\\uFE0A悎\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3323\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1BF3}.\x{1E8AB}-\x{FE0A}悎", %p)}, undef, "to_ascii\(\'\\u1BF3\.\\uD83A\\uDCAB\-\\uFE0A悎\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3324\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{5F299}\x{E076C}.\x{077F}\x{46A12}", %p)}, undef, "to_ascii\(\'\\uD93C\\uDE99\\uDB41\\uDF6C.\\u077F\\uD8DA\\uDE12\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3325\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{5F299}\x{E076C}.\x{077F}\x{46A12}", %p)}, undef, "to_ascii\(\'\\uD93C\\uDE99\\uDB41\\uDF6C\.\\u077F\\uD8DA\\uDE12\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3326\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡭ\x{1096B}ᠹ.4", %p)}, undef, "to_ascii\(\'ᡭ\\uD802\\uDD6Bᠹ\.4\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3327\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10AE3}\x{0852}\x{084C}\x{066C}.\x{DF56}", %p)}, undef, "to_ascii\(\'\\uD802\\uDEE3\\u0852\\u084C\\u066C\.\\uDF56\'\)\ throws\ error\ P1\ V6\ A3\ \[data\/IdnaTest\.txt\:3328\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10AE3}\x{0852}\x{084C}\x{066C}", %p)}, undef, "to_ascii\(\'\\uD802\\uDEE3\\u0852\\u084C\\u066C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3329\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ↄ。\x{1A60}\x{11180}\x{1E83D}", %p)}, undef, "to_ascii\(\'Ↄ\。\\u1A60\\uD804\\uDD80\\uD83A\\uDC3D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3330\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ↄ。\x{1A60}\x{11180}\x{1E83D}", %p)}, undef, "to_ascii\(\'ↄ\。\\u1A60\\uD804\\uDD80\\uD83A\\uDC3D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3331\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0100}-。\x{47672}≮\x{11046}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD00\-\。\\uD8DD\\uDE72\≮\\uD804\\uDC46\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3332\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0100}-。\x{47672}<\x{0338}\x{11046}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD00\-\。\\uD8DD\\uDE72\<\\u0338\\uD804\\uDC46\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3333\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}䷭\x{200D}。\x{9ADC3}≮Ⴉ", %p)}, undef, "to_ascii\(\'\\u200C䷭\\u200D\。\\uDA2B\\uDDC3\≮Ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3335\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}䷭\x{200D}。\x{9ADC3}<\x{0338}Ⴉ", %p)}, undef, "to_ascii\(\'\\u200C䷭\\u200D\。\\uDA2B\\uDDC3\<\\u0338Ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3337\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}䷭\x{200D}。\x{9ADC3}<\x{0338}ⴉ", %p)}, undef, "to_ascii\(\'\\u200C䷭\\u200D\。\\uDA2B\\uDDC3\<\\u0338ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3339\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}䷭\x{200D}。\x{9ADC3}≮ⴉ", %p)}, undef, "to_ascii\(\'\\u200C䷭\\u200D\。\\uDA2B\\uDDC3\≮ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3341\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E64}-\x{1BF3}ᡓ。︒䖐⾆", %p)}, undef, "to_ascii\(\'\\uD803\\uDE64\-\\u1BF3ᡓ\。︒䖐⾆\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3342\]") 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{10E64}-\x{1BF3}ᡓ。。䖐舌", %p)}, undef, "to_ascii\(\'\\uD803\\uDE64\-\\u1BF3ᡓ\。\。䖐舌\'\)\ throws\ error\ B1\ A4_2\ \[data\/IdnaTest\.txt\:3343\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0981}Ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0981Ⴐ。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3344\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0981}Ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0981Ⴐ。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3345\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0981}Ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0981Ⴐ\。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3346\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0981}Ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0981Ⴐ\。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3347\]") 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{0981}ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0981ⴐ\。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3348\]") 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{0981}ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0981ⴐ\。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3349\]") 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{0981}ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0981ⴐ。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3350\]") 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{0981}ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0981ⴐ。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3351\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0C4D}쩁\x{0604}.\x{BE999}", %p)}, undef, "to_ascii\(\'\\u0C4D쩁\\u0604\.\\uDABA\\uDD99\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3352\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0C4D}쩁\x{0604}.\x{BE999}", %p)}, undef, "to_ascii\(\'\\u0C4D쩁\\u0604\.\\uDABA\\uDD99\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3353\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BD}⒒\x{200C}。😠\x{66C9E}", %p)}, undef, "to_ascii\(\'\\u06BD⒒\\u200C。😠\\uD95B\\uDC9E\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3355\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BD}11.\x{200C}。😠\x{66C9E}", %p)}, undef, "to_ascii\(\'\\u06BD11\.\\u200C\。😠\\uD95B\\uDC9E\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3357\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕𝟝ꍩ\x{0F9E}.\x{200D}ß", %p)}, undef, "to_ascii\(\'羕𝟝ꍩ\\u0F9E.\\u200Dß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3359\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕𝟝ꍩ\x{0F9E}.\x{200D}ß", %p)}, undef, "to_ascii\(\'羕𝟝ꍩ\\u0F9E.\\u200Dß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3361\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕5ꍩ\x{0F9E}.\x{200D}ß", %p)}, undef, "to_ascii\(\'羕5ꍩ\\u0F9E\.\\u200Dß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3363\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕5ꍩ\x{0F9E}.\x{200D}SS", %p)}, undef, "to_ascii\(\'羕5ꍩ\\u0F9E\.\\u200DSS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3365\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕5ꍩ\x{0F9E}.\x{200D}ss", %p)}, undef, "to_ascii\(\'羕5ꍩ\\u0F9E\.\\u200Dss\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3367\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕5ꍩ\x{0F9E}.\x{200D}Ss", %p)}, undef, "to_ascii\(\'羕5ꍩ\\u0F9E\.\\u200DSs\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3369\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--5-glg1017fj73a.ss", %p)}, "xn--5-glg1017fj73a.ss", "to_ascii\(\'xn\-\-5\-glg1017fj73a\.ss\'\)\ \[data\/IdnaTest\.txt\:3370\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕5ꍩ\x{0F9E}.ss", %p)}, "xn--5-glg1017fj73a.ss", "to_ascii\(\'羕5ꍩ\\u0F9E\.ss\'\)\ \[data\/IdnaTest\.txt\:3371\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕𝟝ꍩ\x{0F9E}.\x{200D}SS", %p)}, undef, "to_ascii\(\'羕𝟝ꍩ\\u0F9E.\\u200DSS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3373\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕𝟝ꍩ\x{0F9E}.\x{200D}ss", %p)}, undef, "to_ascii\(\'羕𝟝ꍩ\\u0F9E.\\u200Dss\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3375\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕𝟝ꍩ\x{0F9E}.\x{200D}Ss", %p)}, undef, "to_ascii\(\'羕𝟝ꍩ\\u0F9E.\\u200DSs\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3377\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕𝟝ꍩ\x{0F9E}.\x{200D}SS", %p)}, undef, "to_ascii\(\'羕𝟝ꍩ\\u0F9E.\\u200DSS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3379\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕𝟝ꍩ\x{0F9E}.\x{200D}ss", %p)}, undef, "to_ascii\(\'羕𝟝ꍩ\\u0F9E.\\u200Dss\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3381\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羕𝟝ꍩ\x{0F9E}.\x{200D}Ss", %p)}, undef, "to_ascii\(\'羕𝟝ꍩ\\u0F9E.\\u200DSs\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3383\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꗷ\x{0EB5}.\x{08A0}\x{10A14}", %p)}, undef, "to_ascii\(\'ꗷ\\u0EB5\.\\u08A0\\uD802\\uDE14\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3384\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6≯-。︒蚴-\x{FFB20}", %p)}, undef, "to_ascii\(\'6\≯\-\。︒蚴\-\\uDBBE\\uDF20\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3385\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6>\x{0338}-。︒蚴-\x{FFB20}", %p)}, undef, "to_ascii\(\'6\>\\u0338\-\。︒蚴\-\\uDBBE\\uDF20\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3386\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6≯-。。蚴-\x{FFB20}", %p)}, undef, "to_ascii\(\'6\≯\-\。\。蚴\-\\uDBBE\\uDF20\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3387\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6>\x{0338}-。。蚴-\x{FFB20}", %p)}, undef, "to_ascii\(\'6\>\\u0338\-\。\。蚴\-\\uDBBE\\uDF20\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3388\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A72F0}\x{E012A}Ⴡ﹒.\x{10FCA}", %p)}, undef, "to_ascii\(\'\\uDA5C\\uDEF0\\uDB40\\uDD2AჁ﹒.\\uD803\\uDFCA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3389\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A72F0}\x{E012A}Ⴡ..\x{10FCA}", %p)}, undef, "to_ascii\(\'\\uDA5C\\uDEF0\\uDB40\\uDD2AჁ\.\.\\uD803\\uDFCA\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3390\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A72F0}\x{E012A}ⴡ..\x{10FCA}", %p)}, undef, "to_ascii\(\'\\uDA5C\\uDEF0\\uDB40\\uDD2Aⴡ\.\.\\uD803\\uDFCA\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3391\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A72F0}\x{E012A}ⴡ﹒.\x{10FCA}", %p)}, undef, "to_ascii\(\'\\uDA5C\\uDEF0\\uDB40\\uDD2Aⴡ﹒.\\uD803\\uDFCA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3392\]") 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{0FB7}。𝟠ᢉ-\x{084A}", %p)}, undef, "to_ascii\(\'\\u0FB7\。𝟠ᢉ\-\\u084A\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3393\]") 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{0FB7}。8ᢉ-\x{084A}", %p)}, undef, "to_ascii\(\'\\u0FB7\。8ᢉ\-\\u084A\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3394\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("싇。⾇\x{1EEE6}Ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇\\uD83B\\uDEE6Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3395\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。⾇\x{1EEE6}Ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇\\uD83B\\uDEE6Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3396\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。舛\x{1EEE6}Ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛\\uD83B\\uDEE6Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3397\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。舛\x{1EEE6}Ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛\\uD83B\\uDEE6Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3398\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。舛\x{1EEE6}ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛\\uD83B\\uDEE6ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3399\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。舛\x{1EEE6}ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛\\uD83B\\uDEE6ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3400\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。⾇\x{1EEE6}ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇\\uD83B\\uDEE6ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3401\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。⾇\x{1EEE6}ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇\\uD83B\\uDEE6ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3402\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0660}ς。\x{200C}ᡣჀ", %p)}, undef, "to_ascii\(\'\\u0660ς\。\\u200CᡣჀ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3404\]") 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{0660}ς。\x{200C}ᡣⴠ", %p)}, undef, "to_ascii\(\'\\u0660ς\。\\u200Cᡣⴠ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:3406\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0660}Σ。\x{200C}ᡣჀ", %p)}, undef, "to_ascii\(\'\\u0660Σ\。\\u200CᡣჀ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3408\]") 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{0660}σ。\x{200C}ᡣⴠ", %p)}, undef, "to_ascii\(\'\\u0660σ\。\\u200Cᡣⴠ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:3410\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{72D67}\x{200C}\x{10E73}.ꡝ-ß", %p)}, undef, "to_ascii\(\'\\uD98B\\uDD67\\u200C\\uD803\\uDE73\.ꡝ\-ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3412\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{72D67}\x{200C}\x{10E73}.ꡝ-SS", %p)}, undef, "to_ascii\(\'\\uD98B\\uDD67\\u200C\\uD803\\uDE73\.ꡝ\-SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3414\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{72D67}\x{200C}\x{10E73}.ꡝ-ss", %p)}, undef, "to_ascii\(\'\\uD98B\\uDD67\\u200C\\uD803\\uDE73\.ꡝ\-ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3416\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{72D67}\x{200C}\x{10E73}.ꡝ-Ss", %p)}, undef, "to_ascii\(\'\\uD98B\\uDD67\\u200C\\uD803\\uDE73\.ꡝ\-Ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3418\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200D}\x{17B5}\x{0759}.-\x{1EEA2}\x{B5E7C}\x{1ECB9}", %p)}, undef, "to_ascii\(\'\\u200C\\u200D\\u17B5\\u0759\.\-\\uD83B\\uDEA2\\uDA97\\uDE7C\\uD83B\\uDCB9\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:3420\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200D}\x{17B5}\x{0759}.-\x{062C}\x{B5E7C}\x{1ECB9}", %p)}, undef, "to_ascii\(\'\\u200C\\u200D\\u17B5\\u0759\.\-\\u062C\\uDA97\\uDE7C\\uD83B\\uDCB9\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:3422\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B102F}。\x{06B3}≠", %p)}, undef, "to_ascii\(\'\\uDA84\\uDC2F。\\u06B3\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3423\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B102F}。\x{06B3}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDA84\\uDC2F。\\u06B3\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3424\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B102F}。\x{06B3}≠", %p)}, undef, "to_ascii\(\'\\uDA84\\uDC2F\。\\u06B3\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3425\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B102F}。\x{06B3}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uDA84\\uDC2F\。\\u06B3\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3426\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1039}\x{0680}。\x{10E79}\x{0666}덝4", %p)}, undef, "to_ascii\(\'\\u1039\\u0680。\\uD803\\uDE79\\u0666덝4\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3427\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1039}\x{0680}。\x{10E79}\x{0666}덝4", %p)}, undef, "to_ascii\(\'\\u1039\\u0680。\\uD803\\uDE79\\u0666덝4\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3428\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1039}\x{0680}。\x{10E79}\x{0666}덝4", %p)}, undef, "to_ascii\(\'\\u1039\\u0680\。\\uD803\\uDE79\\u0666덝4\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3429\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1039}\x{0680}。\x{10E79}\x{0666}덝4", %p)}, undef, "to_ascii\(\'\\u1039\\u0680\。\\uD803\\uDE79\\u0666덝4\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3430\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴏ\x{1B02}-.\x{200D}Ⴉ", %p)}, undef, "to_ascii\(\'Ⴏ\\u1B02\-.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3432\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴏ\x{1B02}-.\x{200D}Ⴉ", %p)}, undef, "to_ascii\(\'Ⴏ\\u1B02\-\.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3434\]") 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{1B02}-.\x{200D}ⴉ", %p)}, undef, "to_ascii\(\'ⴏ\\u1B02\-\.\\u200Dⴉ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3436\]") 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{1B02}-.\x{200D}ⴉ", %p)}, undef, "to_ascii\(\'ⴏ\\u1B02\-.\\u200Dⴉ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3438\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("🐄\x{1037}\x{E0AB7}\x{A858C}。\x{066B}➱\x{0F19}", %p)}, undef, "to_ascii\(\'🐄\\u1037\\uDB42\\uDEB7\\uDA61\\uDD8C\。\\u066B\➱\\u0F19\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3439\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{0849}.➂⒎⒈", %p)}, undef, "to_ascii\(\'\≠\\u0849\.➂⒎⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3440\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{0849}.➂⒎⒈", %p)}, undef, "to_ascii\(\'\=\\u0338\\u0849\.➂⒎⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3441\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{0849}.➂7.1.", %p)}, undef, "to_ascii\(\'\≠\\u0849\.➂7\.1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3442\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{0849}.➂7.1.", %p)}, undef, "to_ascii\(\'\=\\u0338\\u0849\.➂7\.1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3443\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A0D}\x{E0C89}ß.ᠩ\x{1F653}\x{200C}\x{10E75}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE0D\\uDB43\\uDC89ß\.ᠩ\\uD83D\\uDE53\\u200C\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3445\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A0D}\x{E0C89}SS.ᠩ\x{1F653}\x{200C}\x{10E75}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE0D\\uDB43\\uDC89SS\.ᠩ\\uD83D\\uDE53\\u200C\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3447\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A0D}\x{E0C89}ss.ᠩ\x{1F653}\x{200C}\x{10E75}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE0D\\uDB43\\uDC89ss\.ᠩ\\uD83D\\uDE53\\u200C\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3449\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A0D}\x{E0C89}Ss.ᠩ\x{1F653}\x{200C}\x{10E75}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE0D\\uDB43\\uDC89Ss\.ᠩ\\uD83D\\uDE53\\u200C\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3451\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1EDA8}\x{5FA29}Ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'ß\\uD83B\\uDDA8\\uD93E\\uDE29Ⴇ。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3452\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1EDA8}\x{5FA29}Ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'ß\\uD83B\\uDDA8\\uD93E\\uDE29Ⴇ\。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3453\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1EDA8}\x{5FA29}ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'ß\\uD83B\\uDDA8\\uD93E\\uDE29ⴇ\。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3454\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{1EDA8}\x{5FA29}Ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'SS\\uD83B\\uDDA8\\uD93E\\uDE29Ⴇ\。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3455\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{1EDA8}\x{5FA29}ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'ss\\uD83B\\uDDA8\\uD93E\\uDE29ⴇ\。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3456\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{1EDA8}\x{5FA29}Ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'Ss\\uD83B\\uDDA8\\uD93E\\uDE29Ⴇ\。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3457\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1EDA8}\x{5FA29}ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'ß\\uD83B\\uDDA8\\uD93E\\uDE29ⴇ。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3458\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{1EDA8}\x{5FA29}Ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'SS\\uD83B\\uDDA8\\uD93E\\uDE29Ⴇ。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3459\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{1EDA8}\x{5FA29}ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'ss\\uD83B\\uDDA8\\uD93E\\uDE29ⴇ。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3460\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{1EDA8}\x{5FA29}Ⴇ。\x{E0179}", %p)}, undef, "to_ascii\(\'Ss\\uD83B\\uDDA8\\uD93E\\uDE29Ⴇ。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3461\]") 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{1BAB}。\x{11131}-\x{A9C0}", %p)}, undef, "to_ascii\(\'\\u1BAB\。\\uD804\\uDD31\-\\uA9C0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3462\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0E4D}-.\x{2FEDD}\x{0AC5}ß", %p)}, undef, "to_ascii\(\'\\u0E4D\-.\\uD87F\\uDEDD\\u0AC5ß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3463\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4D}-.\x{2FEDD}\x{0AC5}ß", %p)}, undef, "to_ascii\(\'\\u0E4D\-\.\\uD87F\\uDEDD\\u0AC5ß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3464\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4D}-.\x{2FEDD}\x{0AC5}SS", %p)}, undef, "to_ascii\(\'\\u0E4D\-\.\\uD87F\\uDEDD\\u0AC5SS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3465\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4D}-.\x{2FEDD}\x{0AC5}ss", %p)}, undef, "to_ascii\(\'\\u0E4D\-\.\\uD87F\\uDEDD\\u0AC5ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3466\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4D}-.\x{2FEDD}\x{0AC5}Ss", %p)}, undef, "to_ascii\(\'\\u0E4D\-\.\\uD87F\\uDEDD\\u0AC5Ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3467\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4D}-.\x{2FEDD}\x{0AC5}SS", %p)}, undef, "to_ascii\(\'\\u0E4D\-.\\uD87F\\uDEDD\\u0AC5SS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3468\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4D}-.\x{2FEDD}\x{0AC5}ss", %p)}, undef, "to_ascii\(\'\\u0E4D\-.\\uD87F\\uDEDD\\u0AC5ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3469\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4D}-.\x{2FEDD}\x{0AC5}Ss", %p)}, undef, "to_ascii\(\'\\u0E4D\-.\\uD87F\\uDEDD\\u0AC5Ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3470\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0775}-≮。\x{10E7E}\x{05A5}ꡃ", %p)}, undef, "to_ascii\(\'\\u0775\-\≮\。\\uD803\\uDE7E\\u05A5ꡃ\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3471\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0775}-<\x{0338}。\x{10E7E}\x{05A5}ꡃ", %p)}, undef, "to_ascii\(\'\\u0775\-\<\\u0338\。\\uD803\\uDE7E\\u05A5ꡃ\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3472\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄇\x{E060C}\x{09CD}\x{E01A8}.\x{103A}\x{1BF2}8\x{1752}", %p)}, undef, "to_ascii\(\'🄇\\uDB41\\uDE0C\\u09CD\\uDB40\\uDDA8.\\u103A\\u1BF28\\u1752\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3473\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6,\x{E060C}\x{09CD}\x{E01A8}.\x{103A}\x{1BF2}8\x{1752}", %p)}, undef, "to_ascii\(\'6\,\\uDB41\\uDE0C\\u09CD\\uDB40\\uDDA8\.\\u103A\\u1BF28\\u1752\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3474\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{887C4}\x{200D}\x{E0BCF}", %p)}, undef, "to_ascii\(\'\-。\\uD9E1\\uDFC4\\u200D\\uDB42\\uDFCF\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3476\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{887C4}\x{200D}\x{E0BCF}", %p)}, undef, "to_ascii\(\'\-\。\\uD9E1\\uDFC4\\u200D\\uDB42\\uDFCF\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3478\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟒…𝟫\x{142F1}。\x{0737}\x{773FA}", %p)}, undef, "to_ascii\(\'𝟒\…𝟫\\uD810\\uDEF1。\\u0737\\uD99C\\uDFFA\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3479\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4...9\x{142F1}。\x{0737}\x{773FA}", %p)}, undef, "to_ascii\(\'4\.\.\.9\\uD810\\uDEF1\。\\u0737\\uD99C\\uDFFA\'\)\ throws\ error\ P1\ V6\ V5\ A4_2\ \[data\/IdnaTest\.txt\:3480\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.-├\x{DC52F}", %p)}, undef, "to_ascii\(\'\-\.\-\├\\uDB31\\uDD2F\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3481\]") 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{E01B1}ᡬ。\x{200D}⳾", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDB1ᡬ。\\u200D⳾\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3483\]") 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{E01B1}ᡬ。\x{200D}⳾", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDB1ᡬ\。\\u200D⳾\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3485\]") 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--88e.xn--pkj", %p)}, "xn--88e.xn--pkj", "to_ascii\(\'xn\-\-88e\.xn\-\-pkj\'\)\ \[data\/IdnaTest\.txt\:3486\]") 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--88e.xn--pkj", "to_ascii\(\'ᡬ\.⳾\'\)\ \[data\/IdnaTest\.txt\:3487\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("쥥\x{671AB}Ⴎ.\x{200C}⒈⒈ᢝ", %p)}, undef, "to_ascii\(\'쥥\\uD95C\\uDDABႮ.\\u200C⒈⒈ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3489\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥\x{671AB}Ⴎ.\x{200C}⒈⒈ᢝ", %p)}, undef, "to_ascii\(\'쥥\\uD95C\\uDDABႮ.\\u200C⒈⒈ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3491\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥\x{671AB}Ⴎ.\x{200C}1.1.ᢝ", %p)}, undef, "to_ascii\(\'쥥\\uD95C\\uDDABႮ\.\\u200C1\.1\.ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3493\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥\x{671AB}Ⴎ.\x{200C}1.1.ᢝ", %p)}, undef, "to_ascii\(\'쥥\\uD95C\\uDDABႮ\.\\u200C1\.1\.ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3495\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥\x{671AB}ⴎ.\x{200C}1.1.ᢝ", %p)}, undef, "to_ascii\(\'쥥\\uD95C\\uDDABⴎ\.\\u200C1\.1\.ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3497\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥\x{671AB}ⴎ.\x{200C}1.1.ᢝ", %p)}, undef, "to_ascii\(\'쥥\\uD95C\\uDDABⴎ\.\\u200C1\.1\.ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3499\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥\x{671AB}ⴎ.\x{200C}⒈⒈ᢝ", %p)}, undef, "to_ascii\(\'쥥\\uD95C\\uDDABⴎ.\\u200C⒈⒈ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3501\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥\x{671AB}ⴎ.\x{200C}⒈⒈ᢝ", %p)}, undef, "to_ascii\(\'쥥\\uD95C\\uDDABⴎ.\\u200C⒈⒈ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3503\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{A8E7}𝟼ᡵ-。\x{0E3A}", %p)}, undef, "to_ascii\(\'\\uA8E7𝟼ᡵ\-\。\\u0E3A\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3504\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{A8E7}6ᡵ-。\x{0E3A}", %p)}, undef, "to_ascii\(\'\\uA8E76ᡵ\-\。\\u0E3A\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3505\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ς.\x{069A}\x{E0868}⒈", %p)}, undef, "to_ascii\(\'ς.\\u069A\\uDB42\\uDC68⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3506\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς.\x{069A}\x{E0868}1.", %p)}, undef, "to_ascii\(\'ς\.\\u069A\\uDB42\\uDC681\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3507\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ.\x{069A}\x{E0868}1.", %p)}, undef, "to_ascii\(\'Σ\.\\u069A\\uDB42\\uDC681\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3508\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ.\x{069A}\x{E0868}1.", %p)}, undef, "to_ascii\(\'σ\.\\u069A\\uDB42\\uDC681\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3509\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ.\x{069A}\x{E0868}⒈", %p)}, undef, "to_ascii\(\'Σ.\\u069A\\uDB42\\uDC68⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3510\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ.\x{069A}\x{E0868}⒈", %p)}, undef, "to_ascii\(\'σ.\\u069A\\uDB42\\uDC68⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3511\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0BAC}-。\x{0669}\x{4F3FA}\x{3E232}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDFAC\-。\\u0669\\uD8FC\\uDFFA\\uD8B8\\uDE32\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3512\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0BAC}-。\x{0669}\x{4F3FA}\x{3E232}", %p)}, undef, "to_ascii\(\'\\uDB42\\uDFAC\-\。\\u0669\\uD8FC\\uDFFA\\uD8B8\\uDE32\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3513\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10816}-\x{E061C}。⒓\x{200C}\x{10AD0}", %p)}, undef, "to_ascii\(\'\\uD802\\uDC16\-\\uDB41\\uDE1C。⒓\\u200C\\uD802\\uDED0\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:3515\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10816}-\x{E061C}。12.\x{200C}\x{10AD0}", %p)}, undef, "to_ascii\(\'\\uD802\\uDC16\-\\uDB41\\uDE1C\。12\.\\u200C\\uD802\\uDED0\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:3517\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ß.ᠱ₃\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200Dß.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3519\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ß.ᠱ₃\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200Dß.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3521\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ß.ᠱ3\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200Dß\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3523\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ß.ᠱ3\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200Dß\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3525\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}SS.ᠱ3\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200DSS\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3527\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}SS.ᠱ3\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200DSS\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3529\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ss.ᠱ3\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200Dss\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3531\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ss.ᠱ3\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200Dss\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3533\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}Ss.ᠱ3\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200DSs\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3535\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}Ss.ᠱ3\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200DSs\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3537\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}SS.ᠱ₃\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200DSS.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3539\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}SS.ᠱ₃\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200DSS.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3541\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ss.ᠱ₃\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200Dss.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3543\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ss.ᠱ₃\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200Dss.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3545\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}Ss.ᠱ₃\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200DSs.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3547\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}Ss.ᠱ₃\x{E012B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C늿\\u200DSs.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3549\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝟷\x{0941}.\x{341F5}ꡁ", %p)}, undef, "to_ascii\(\'𝟷\\u0941.\\uD890\\uDDF5ꡁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3550\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1\x{0941}.\x{341F5}ꡁ", %p)}, undef, "to_ascii\(\'1\\u0941\.\\uD890\\uDDF5ꡁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3551\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.\x{05C3}😳ßˋ", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.\\u05C3😳ßˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3553\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1160}.\x{05C3}😳ßˋ", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.\\u05C3😳ßˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3555\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1160}.\x{05C3}😳SSˋ", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.\\u05C3😳SSˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3557\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1160}.\x{05C3}😳ssˋ", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.\\u05C3😳ssˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3559\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1160}.\x{05C3}😳Ssˋ", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.\\u05C3😳Ssˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3561\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.\x{05C3}😳SSˋ", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.\\u05C3😳SSˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3563\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.\x{05C3}😳ssˋ", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.\\u05C3😳ssˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3565\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.\x{05C3}😳Ssˋ", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.\\u05C3😳Ssˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3567\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒Ⴖ\x{05BC}.\x{200C}", %p)}, undef, "to_ascii\(\'︒Ⴖ\\u05BC.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3569\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。Ⴖ\x{05BC}.\x{200C}", %p)}, undef, "to_ascii\(\'\。Ⴖ\\u05BC\.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3571\]") 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{05BC}.\x{200C}", %p)}, undef, "to_ascii\(\'\。ⴖ\\u05BC\.\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3573\]") 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--kdb162r.", %p)}, "xn--kdb162r.", "to_ascii\(\'xn\-\-kdb162r\.\'\)\ \[data\/IdnaTest\.txt\:3574\]") 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{05BC}.", %p)}, "xn--kdb162r.", "to_ascii\(\'ⴖ\\u05BC\.\'\)\ \[data\/IdnaTest\.txt\:3575\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴖ\x{05BC}.", %p)}, undef, "to_ascii\(\'Ⴖ\\u05BC\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3576\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒ⴖ\x{05BC}.\x{200C}", %p)}, undef, "to_ascii\(\'︒ⴖ\\u05BC.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3578\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08A0}.\x{200C}Ⴃ\x{AA31}", %p)}, undef, "to_ascii\(\'\\u08A0.\\u200CႣ\\uAA31\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3580\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08A0}.\x{200C}Ⴃ\x{AA31}", %p)}, undef, "to_ascii\(\'\\u08A0\.\\u200CႣ\\uAA31\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3582\]") 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{08A0}.\x{200C}ⴃ\x{AA31}", %p)}, undef, "to_ascii\(\'\\u08A0\.\\u200Cⴃ\\uAA31\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3584\]") 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--pyb.xn--ukj2811b", %p)}, "xn--pyb.xn--ukj2811b", "to_ascii\(\'xn\-\-pyb\.xn\-\-ukj2811b\'\)\ \[data\/IdnaTest\.txt\:3585\]") 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{08A0}.ⴃ\x{AA31}", %p)}, "xn--pyb.xn--ukj2811b", "to_ascii\(\'\\u08A0\.ⴃ\\uAA31\'\)\ \[data\/IdnaTest\.txt\:3586\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{08A0}.Ⴃ\x{AA31}", %p)}, undef, "to_ascii\(\'\\u08A0\.Ⴃ\\uAA31\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3587\]") 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{08A0}.\x{200C}ⴃ\x{AA31}", %p)}, undef, "to_ascii\(\'\\u08A0.\\u200Cⴃ\\uAA31\'\)\ throws\ error\ C1\ \[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_ascii("\x{200D}\x{200C}。0䫷\x{1A6A}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\。0䫷\\u1A6A\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3591\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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--0-e3k657x", %p)}, "xn--0-e3k657x", "to_ascii\(\'xn\-\-0\-e3k657x\'\)\ \[data\/IdnaTest\.txt\:3592\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A6A}", %p)}, "xn--0-e3k657x", "to_ascii\(\'0䫷\\u1A6A\'\)\ \[data\/IdnaTest\.txt\:3593\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-\x{08EF}\x{2EB97}。\x{5EAA7}", %p)}, undef, "to_ascii\(\'\-\\u08EF\\uD87A\\uDF97\。\\uD93A\\uDEA7\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3594\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{709A6}︒\x{200C}㟀.ꡛ⒈", %p)}, undef, "to_ascii\(\'\\uD982\\uDDA6︒\\u200C㟀.ꡛ⒈\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3596\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{709A6}。\x{200C}㟀.ꡛ1.", %p)}, undef, "to_ascii\(\'\\uD982\\uDDA6\。\\u200C㟀\.ꡛ1\.\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3598\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{A8EA}\x{06C4}\x{0483}。-\x{200D}", %p)}, undef, "to_ascii\(\'\\uA8EA\\u06C4\\u0483\。\-\\u200D\'\)\ throws\ error\ V5\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3600\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}.Ⴉ≠\x{1E8F2}", %p)}, undef, "to_ascii\(\'\\u200C.Ⴉ\≠\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3602\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.Ⴉ=\x{0338}\x{1E8F2}", %p)}, undef, "to_ascii\(\'\\u200C.Ⴉ\=\\u0338\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3604\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.Ⴉ≠\x{1E8F2}", %p)}, undef, "to_ascii\(\'\\u200C\.Ⴉ\≠\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3606\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.Ⴉ=\x{0338}\x{1E8F2}", %p)}, undef, "to_ascii\(\'\\u200C\.Ⴉ\=\\u0338\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3608\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.ⴉ=\x{0338}\x{1E8F2}", %p)}, undef, "to_ascii\(\'\\u200C\.ⴉ\=\\u0338\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3610\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.ⴉ≠\x{1E8F2}", %p)}, undef, "to_ascii\(\'\\u200C\.ⴉ\≠\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3612\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.ⴉ=\x{0338}\x{1E8F2}", %p)}, undef, "to_ascii\(\'\\u200C.ⴉ\=\\u0338\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3614\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.ⴉ≠\x{1E8F2}", %p)}, undef, "to_ascii\(\'\\u200C.ⴉ\≠\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3616\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CD}。≯ς", %p)}, undef, "to_ascii\(\'\\u06CD\。\≯ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3617\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CD}。>\x{0338}ς", %p)}, undef, "to_ascii\(\'\\u06CD\。\>\\u0338ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3618\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CD}。>\x{0338}Σ", %p)}, undef, "to_ascii\(\'\\u06CD\。\>\\u0338Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3619\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CD}。≯Σ", %p)}, undef, "to_ascii\(\'\\u06CD\。\≯Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3620\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CD}。≯σ", %p)}, undef, "to_ascii\(\'\\u06CD\。\≯σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3621\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CD}。>\x{0338}σ", %p)}, undef, "to_ascii\(\'\\u06CD\。\>\\u0338σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3622\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FCA6}\x{0776}.\x{B78F2}︒\x{8A5EA}Ⴐ", %p)}, undef, "to_ascii\(\'\\uFCA6\\u0776\.\\uDA9E\\uDCF2︒\\uD9E9\\uDDEAႰ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3623\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}\x{0645}\x{0776}.\x{B78F2}。\x{8A5EA}Ⴐ", %p)}, undef, "to_ascii\(\'\\u062B\\u0645\\u0776\.\\uDA9E\\uDCF2\。\\uD9E9\\uDDEAႰ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3624\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}\x{0645}\x{0776}.\x{B78F2}。\x{8A5EA}ⴐ", %p)}, undef, "to_ascii\(\'\\u062B\\u0645\\u0776\.\\uDA9E\\uDCF2\。\\uD9E9\\uDDEAⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3625\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FCA6}\x{0776}.\x{B78F2}︒\x{8A5EA}ⴐ", %p)}, undef, "to_ascii\(\'\\uFCA6\\u0776\.\\uDA9E\\uDCF2︒\\uD9E9\\uDDEAⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3626\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴥ⾏\x{E05AB}\x{A9B8}。\x{0599}", %p)}, undef, "to_ascii\(\'Ⴥ⾏\\uDB41\\uDDAB\\uA9B8。\\u0599\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3627\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴥ行\x{E05AB}\x{A9B8}。\x{0599}", %p)}, undef, "to_ascii\(\'Ⴥ行\\uDB41\\uDDAB\\uA9B8\。\\u0599\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3628\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴥ行\x{E05AB}\x{A9B8}。\x{0599}", %p)}, undef, "to_ascii\(\'ⴥ行\\uDB41\\uDDAB\\uA9B8\。\\u0599\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3629\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴥ⾏\x{E05AB}\x{A9B8}。\x{0599}", %p)}, undef, "to_ascii\(\'ⴥ⾏\\uDB41\\uDDAB\\uA9B8。\\u0599\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3630\]") 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)}, "5.xn--xbf5506v", "to_ascii\(\'𝟱\。🜎ᢧ\'\)\ \[data\/IdnaTest\.txt\:3631\]") 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("5。🜎ᢧ", %p)}, "5.xn--xbf5506v", "to_ascii\(\'5\。🜎ᢧ\'\)\ \[data\/IdnaTest\.txt\:3632\]") 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("5.xn--xbf5506v", %p)}, "5.xn--xbf5506v", "to_ascii\(\'5\.xn\-\-xbf5506v\'\)\ \[data\/IdnaTest\.txt\:3633\]") 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("5.🜎ᢧ", %p)}, "5.xn--xbf5506v", "to_ascii\(\'5\.🜎ᢧ\'\)\ \[data\/IdnaTest\.txt\:3634\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≮ꡌ。섖쮖ß", %p)}, undef, "to_ascii\(\'\≮ꡌ\。섖쮖ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3635\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ꡌ。섖쮖ß", %p)}, undef, "to_ascii\(\'\<\\u0338ꡌ\。섖쮖ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3636\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ꡌ。섖쮖SS", %p)}, undef, "to_ascii\(\'\<\\u0338ꡌ\。섖쮖SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3637\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮ꡌ。섖쮖SS", %p)}, undef, "to_ascii\(\'\≮ꡌ\。섖쮖SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3638\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮ꡌ。섖쮖ss", %p)}, undef, "to_ascii\(\'\≮ꡌ\。섖쮖ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3639\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ꡌ。섖쮖ss", %p)}, undef, "to_ascii\(\'\<\\u0338ꡌ\。섖쮖ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3640\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}ꡌ。섖쮖Ss", %p)}, undef, "to_ascii\(\'\<\\u0338ꡌ\。섖쮖Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3641\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮ꡌ。섖쮖Ss", %p)}, undef, "to_ascii\(\'\≮ꡌ\。섖쮖Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3642\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0365}\x{E066C}-。ᠾ", %p)}, undef, "to_ascii\(\'\\u0365\\uDB41\\uDE6C\-\。ᠾ\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3643\]") 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{1EEB6}\x{0669}ꡊ\x{1BAB}。\x{07DA}ᡴ\x{200C}\x{067C}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDEB6\\u0669ꡊ\\u1BAB\。\\u07DAᡴ\\u200C\\u067C\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:3644\]") 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{062B}\x{0669}ꡊ\x{1BAB}。\x{07DA}ᡴ\x{200C}\x{067C}", %p)}, undef, "to_ascii\(\'\\u062B\\u0669ꡊ\\u1BAB\。\\u07DAᡴ\\u200C\\u067C\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:3645\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{A92D}.\x{10F81}\x{58BF1}", %p)}, undef, "to_ascii\(\'\\uA92D\.\\uD803\\uDF81\\uD922\\uDFF1\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3646\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("--。\x{41AF8}\x{06A0}\x{109A4}\x{1E868}", %p)}, undef, "to_ascii\(\'\-\-\。\\uD8C6\\uDEF8\\u06A0\\uD802\\uDDA4\\uD83A\\uDC68\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3647\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9461E}𝟐\x{87B22}.≯ᢜᢗ\x{8C130}", %p)}, undef, "to_ascii\(\'\\uDA11\\uDE1E𝟐\\uD9DE\\uDF22\.\≯ᢜᢗ\\uD9F0\\uDD30\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3648\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9461E}𝟐\x{87B22}.>\x{0338}ᢜᢗ\x{8C130}", %p)}, undef, "to_ascii\(\'\\uDA11\\uDE1E𝟐\\uD9DE\\uDF22\.\>\\u0338ᢜᢗ\\uD9F0\\uDD30\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3649\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9461E}2\x{87B22}.≯ᢜᢗ\x{8C130}", %p)}, undef, "to_ascii\(\'\\uDA11\\uDE1E2\\uD9DE\\uDF22\.\≯ᢜᢗ\\uD9F0\\uDD30\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3650\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9461E}2\x{87B22}.>\x{0338}ᢜᢗ\x{8C130}", %p)}, undef, "to_ascii\(\'\\uDA11\\uDE1E2\\uD9DE\\uDF22\.\>\\u0338ᢜᢗ\\uD9F0\\uDD30\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3651\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䔛\x{E010E}\x{D4626}\x{0668}.-䤷", %p)}, undef, "to_ascii\(\'䔛\\uDB40\\uDD0E\\uDB11\\uDE26\\u0668.\-䤷\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3652\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䔛\x{E010E}\x{D4626}\x{0668}.-䤷", %p)}, undef, "to_ascii\(\'䔛\\uDB40\\uDD0E\\uDB11\\uDE26\\u0668\.\-䤷\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3653\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0666}.\x{200D}-", %p)}, undef, "to_ascii\(\'\\u0666.\\u200D\-\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3655\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0666}.\x{200D}-", %p)}, undef, "to_ascii\(\'\\u0666\.\\u200D\-\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3657\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DFF6F}帷。≯萺\x{E0F50}-", %p)}, undef, "to_ascii\(\'\\uDB3F\\uDF6F帷。\≯萺\\uDB43\\uDF50\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3658\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DFF6F}帷。>\x{0338}萺\x{E0F50}-", %p)}, undef, "to_ascii\(\'\\uDB3F\\uDF6F帷。\>\\u0338萺\\uDB43\\uDF50\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3659\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DFF6F}帷。≯萺\x{E0F50}-", %p)}, undef, "to_ascii\(\'\\uDB3F\\uDF6F帷\。\≯萺\\uDB43\\uDF50\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3660\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DFF6F}帷。>\x{0338}萺\x{E0F50}-", %p)}, undef, "to_ascii\(\'\\uDB3F\\uDF6F帷\。\>\\u0338萺\\uDB43\\uDF50\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3661\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}攌\x{A806}。\x{0723}-Ⴘ", %p)}, undef, "to_ascii\(\'\\u200D攌\\uA806\。\\u0723\-Ⴘ\'\)\ throws\ error\ P1\ V6\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3663\]") 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{A806}。\x{0723}-ⴘ", %p)}, undef, "to_ascii\(\'\\u200D攌\\uA806\。\\u0723\-ⴘ\'\)\ throws\ error\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3665\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}ꖨ.𝟪₀\x{93F89}𝟱", %p)}, undef, "to_ascii\(\'\\u200Cꖨ.𝟪₀\\uDA0F\\uDF89𝟱\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3667\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ꖨ.80\x{93F89}5", %p)}, undef, "to_ascii\(\'\\u200Cꖨ\.80\\uDA0F\\uDF895\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3669\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈걾2.\x{FD96}\x{0767}", %p)}, undef, "to_ascii\(\'⒈걾2\.\\uFD96\\u0767\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3670\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈걾2.\x{FD96}\x{0767}", %p)}, undef, "to_ascii\(\'⒈걾2\.\\uFD96\\u0767\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3671\]") 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("1.걾2.\x{0646}\x{062D}\x{0649}\x{0767}", %p)}, "1.xn--2-945e.xn--sgb3ck85i", "to_ascii\(\'1\.걾2\.\\u0646\\u062D\\u0649\\u0767\'\)\ \[data\/IdnaTest\.txt\:3672\]") 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("1.걾2.\x{0646}\x{062D}\x{0649}\x{0767}", %p)}, "1.xn--2-945e.xn--sgb3ck85i", "to_ascii\(\'1\.걾2\.\\u0646\\u062D\\u0649\\u0767\'\)\ \[data\/IdnaTest\.txt\:3673\]") 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("1.xn--2-945e.xn--sgb3ck85i", %p)}, "1.xn--2-945e.xn--sgb3ck85i", "to_ascii\(\'1\.xn\-\-2\-945e\.xn\-\-sgb3ck85i\'\)\ \[data\/IdnaTest\.txt\:3674\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{109C4}𝟻≮≮.\x{2DFB}ᢣ", %p)}, undef, "to_ascii\(\'\\uD802\\uDDC4𝟻\≮\≮\.\\u2DFBᢣ\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:3675\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{109C4}𝟻<\x{0338}<\x{0338}.\x{2DFB}ᢣ", %p)}, undef, "to_ascii\(\'\\uD802\\uDDC4𝟻\<\\u0338\<\\u0338\.\\u2DFBᢣ\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:3676\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{109C4}5≮≮.\x{2DFB}ᢣ", %p)}, undef, "to_ascii\(\'\\uD802\\uDDC45\≮\≮\.\\u2DFBᢣ\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:3677\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{109C4}5<\x{0338}<\x{0338}.\x{2DFB}ᢣ", %p)}, undef, "to_ascii\(\'\\uD802\\uDDC45\<\\u0338\<\\u0338\.\\u2DFBᢣ\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:3678\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0043}.\x{10E7A}\x{115F}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDC43\.\\uD803\\uDE7A\\u115F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3679\]") 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{1BA5}\x{E0110}.\x{200D}", %p)}, undef, "to_ascii\(\'𝟨\\u1BA5\\uDB40\\uDD10\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3681\]") 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("6\x{1BA5}\x{E0110}.\x{200D}", %p)}, undef, "to_ascii\(\'6\\u1BA5\\uDB40\\uDD10\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3683\]") 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--6-eml.", %p)}, "xn--6-eml.", "to_ascii\(\'xn\-\-6\-eml\.\'\)\ \[data\/IdnaTest\.txt\:3684\]") 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("6\x{1BA5}.", %p)}, "xn--6-eml.", "to_ascii\(\'6\\u1BA5\.\'\)\ \[data\/IdnaTest\.txt\:3685\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᡭ≠\x{06A3}\x{0C4D}。-\x{200C}ꡠ", %p)}, undef, "to_ascii\(\'ᡭ\≠\\u06A3\\u0C4D。\-\\u200Cꡠ\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3687\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡭ=\x{0338}\x{06A3}\x{0C4D}。-\x{200C}ꡠ", %p)}, undef, "to_ascii\(\'ᡭ\=\\u0338\\u06A3\\u0C4D。\-\\u200Cꡠ\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3689\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡭ≠\x{06A3}\x{0C4D}。-\x{200C}ꡠ", %p)}, undef, "to_ascii\(\'ᡭ\≠\\u06A3\\u0C4D\。\-\\u200Cꡠ\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3691\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡭ=\x{0338}\x{06A3}\x{0C4D}。-\x{200C}ꡠ", %p)}, undef, "to_ascii\(\'ᡭ\=\\u0338\\u06A3\\u0C4D\。\-\\u200Cꡠ\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3693\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7C}\x{1CE7}-\x{0628}。\x{06A8}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7C\\u1CE7\-\\u0628。\\u06A8\'\)\ throws\ error\ B1\ \[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{10E7C}\x{1CE7}-\x{0628}。\x{06A8}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7C\\u1CE7\-\\u0628\。\\u06A8\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3695\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("F\x{1CD0}。\x{1090D1}⁖", %p)}, undef, "to_ascii\(\'F\\u1CD0。\\uDBE4\\uDCD1\⁖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3696\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("F\x{1CD0}。\x{1090D1}⁖", %p)}, undef, "to_ascii\(\'F\\u1CD0\。\\uDBE4\\uDCD1\⁖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3697\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("f\x{1CD0}。\x{1090D1}⁖", %p)}, undef, "to_ascii\(\'f\\u1CD0\。\\uDBE4\\uDCD1\⁖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3698\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("f\x{1CD0}。\x{1090D1}⁖", %p)}, undef, "to_ascii\(\'f\\u1CD0。\\uDBE4\\uDCD1\⁖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3699\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}\x{1734}\x{1A7B}。۰Ⴘ\x{135E}\x{AF13F}", %p)}, undef, "to_ascii\(\'\\u1734\\u1734\\u1A7B\。۰Ⴘ\\u135E\\uDA7C\\uDD3F\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3700\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}\x{1734}\x{1A7B}。۰ⴘ\x{135E}\x{AF13F}", %p)}, undef, "to_ascii\(\'\\u1734\\u1734\\u1A7B\。۰ⴘ\\u135E\\uDA7C\\uDD3F\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3701\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{30A68}\x{200C}\x{200C}5。勉\x{E0078}", %p)}, undef, "to_ascii\(\'\\uD882\\uDE68\\u200C\\u200C5\。勉\\uDB40\\uDC78\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3703\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{30A68}\x{200C}\x{200C}5。勉\x{E0078}", %p)}, undef, "to_ascii\(\'\\uD882\\uDE68\\u200C\\u200C5\。勉\\uDB40\\uDC78\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3705\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠇.\x{D3154}\x{5CF08}\x{6C1A6}", %p)}, undef, "to_ascii\(\'᠇\.\\uDB0C\\uDD54\\uD933\\uDF08\\uD970\\uDDA6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3706\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}。⒈≯8", %p)}, undef, "to_ascii\(\'\\u200C\\u200C。⒈\≯8\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3708\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}。⒈>\x{0338}8", %p)}, undef, "to_ascii\(\'\\u200C\\u200C。⒈\>\\u03388\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3710\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}。1.≯8", %p)}, undef, "to_ascii\(\'\\u200C\\u200C\。1\.\≯8\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3712\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}。1.>\x{0338}8", %p)}, undef, "to_ascii\(\'\\u200C\\u200C\。1\.\>\\u03388\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3714\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}\x{102D}\x{564A6}.\x{472BE}≯ᡞ", %p)}, undef, "to_ascii\(\'\\u115F\\u102D\\uD919\\uDCA6\.\\uD8DC\\uDEBE\≯ᡞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3715\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}\x{102D}\x{564A6}.\x{472BE}>\x{0338}ᡞ", %p)}, undef, "to_ascii\(\'\\u115F\\u102D\\uD919\\uDCA6\.\\uD8DC\\uDEBE\>\\u0338ᡞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3716\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🁠\x{0948}\x{200D}\x{0713}.\x{0356}-\x{1B71}\x{58169}", %p)}, undef, "to_ascii\(\'🁠\\u0948\\u200D\\u0713\.\\u0356\-\\u1B71\\uD920\\uDD69\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3718\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E01CD}.\x{0B4D}-", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDCD.\\u0B4D\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3719\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E01CD}.\x{0B4D}-", %p)}, undef, "to_ascii\(\'\\uDB40\\uDDCD\.\\u0B4D\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3720\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䮸ß.\x{E0D5F}℮紙\x{0770}", %p)}, undef, "to_ascii\(\'䮸ß\.\\uDB43\\uDD5F℮紙\\u0770\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3721\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䮸SS.\x{E0D5F}℮紙\x{0770}", %p)}, undef, "to_ascii\(\'䮸SS\.\\uDB43\\uDD5F℮紙\\u0770\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3722\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䮸ss.\x{E0D5F}℮紙\x{0770}", %p)}, undef, "to_ascii\(\'䮸ss\.\\uDB43\\uDD5F℮紙\\u0770\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3723\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䮸Ss.\x{E0D5F}℮紙\x{0770}", %p)}, undef, "to_ascii\(\'䮸Ss\.\\uDB43\\uDD5F℮紙\\u0770\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3724\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-Ⴞ.-\x{E0C5D}\x{E0B98}\x{1E99C}", %p)}, undef, "to_ascii\(\'\-Ⴞ\.\-\\uDB43\\uDC5D\\uDB42\\uDF98\\uD83A\\uDD9C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3725\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ⴞ.-\x{E0C5D}\x{E0B98}\x{1E99C}", %p)}, undef, "to_ascii\(\'\-ⴞ\.\-\\uDB43\\uDC5D\\uDB42\\uDF98\\uD83A\\uDD9C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3726\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{37585}\x{0662}\x{036E}。\x{CB7C6}ꡌ\x{3D03C}ᠪ", %p)}, undef, "to_ascii\(\'\\uD89D\\uDD85\\u0662\\u036E。\\uDAED\\uDFC6ꡌ\\uD8B4\\uDC3Cᠪ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3727\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{37585}\x{0662}\x{036E}。\x{CB7C6}ꡌ\x{3D03C}ᠪ", %p)}, undef, "to_ascii\(\'\\uD89D\\uDD85\\u0662\\u036E\。\\uDAED\\uDFC6ꡌ\\uD8B4\\uDC3Cᠪ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3728\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAA}-\x{200D}\x{1D188}.\x{06B3}\x{200D}\x{75647}", %p)}, undef, "to_ascii\(\'\\u0FAA\-\\u200D\\uD834\\uDD88.\\u06B3\\u200D\\uD995\\uDE47\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3730\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAA}-\x{200D}\x{1D188}.\x{06B3}\x{200D}\x{75647}", %p)}, undef, "to_ascii\(\'\\u0FAA\-\\u200D\\uD834\\uDD88\.\\u06B3\\u200D\\uD995\\uDE47\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3732\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⁶。≠\x{10E78}", %p)}, undef, "to_ascii\(\'⁶\。\≠\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3733\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⁶。=\x{0338}\x{10E78}", %p)}, undef, "to_ascii\(\'⁶\。\=\\u0338\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3734\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6。≠\x{10E78}", %p)}, undef, "to_ascii\(\'6\。\≠\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3735\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6。=\x{0338}\x{10E78}", %p)}, undef, "to_ascii\(\'6\。\=\\u0338\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3736\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}廊.\x{07A0}", %p)}, undef, "to_ascii\(\'\\uABED廊\.\\u07A0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3737\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}\x{05B5}-.-Ⴐ\x{0666}", %p)}, undef, "to_ascii\(\'\\u200D\\u05B5\-.\-Ⴐ\\u0666\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3739\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{05B5}-.-Ⴐ\x{0666}", %p)}, undef, "to_ascii\(\'\\u200D\\u05B5\-\.\-Ⴐ\\u0666\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3741\]") 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{05B5}-.-ⴐ\x{0666}", %p)}, undef, "to_ascii\(\'\\u200D\\u05B5\-\.\-ⴐ\\u0666\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3743\]") 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{05B5}-.-ⴐ\x{0666}", %p)}, undef, "to_ascii\(\'\\u200D\\u05B5\-.\-ⴐ\\u0666\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3745\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0721}\x{0661}挏\x{F9128}.-", %p)}, undef, "to_ascii\(\'\\u0721\\u0661挏\\uDBA4\\uDD28\.\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3746\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FD0B}。\x{0604}ꡎ", %p)}, undef, "to_ascii\(\'\\uFD0B。\\u0604ꡎ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3747\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0634}\x{062E}。\x{0604}ꡎ", %p)}, undef, "to_ascii\(\'\\u0634\\u062E\。\\u0604ꡎ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3748\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_ascii\(\'Ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3749\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_ascii\(\'Ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3750\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_ascii\(\'Ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19\.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3751\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_ascii\(\'Ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19\.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3752\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_ascii\(\'ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19\.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3753\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_ascii\(\'ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19\.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3754\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_ascii\(\'ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3755\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_ascii\(\'ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3756\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🔱\x{6B20D}\x{06B7}\x{0668}。≯\x{200C}\x{AAB3}", %p)}, undef, "to_ascii\(\'🔱\\uD96C\\uDE0D\\u06B7\\u0668。\≯\\u200C\\uAAB3\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3758\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🔱\x{6B20D}\x{06B7}\x{0668}。>\x{0338}\x{200C}\x{AAB3}", %p)}, undef, "to_ascii\(\'🔱\\uD96C\\uDE0D\\u06B7\\u0668。\>\\u0338\\u200C\\uAAB3\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3760\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🔱\x{6B20D}\x{06B7}\x{0668}。≯\x{200C}\x{AAB3}", %p)}, undef, "to_ascii\(\'🔱\\uD96C\\uDE0D\\u06B7\\u0668\。\≯\\u200C\\uAAB3\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3762\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🔱\x{6B20D}\x{06B7}\x{0668}。>\x{0338}\x{200C}\x{AAB3}", %p)}, undef, "to_ascii\(\'🔱\\uD96C\\uDE0D\\u06B7\\u0668\。\>\\u0338\\u200C\\uAAB3\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3764\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᛎ\x{05A0}\x{FFF9}\x{200D}。\x{0603}\x{10E77}\x{1E817}-", %p)}, undef, "to_ascii\(\'ᛎ\\u05A0\\uFFF9\\u200D。\\u0603\\uD803\\uDE77\\uD83A\\uDC17\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3766\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᛎ\x{05A0}\x{FFF9}\x{200D}。\x{0603}\x{10E77}\x{1E817}-", %p)}, undef, "to_ascii\(\'ᛎ\\u05A0\\uFFF9\\u200D\。\\u0603\\uD803\\uDE77\\uD83A\\uDC17\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3768\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E69}.\x{07E4}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE69\.\\u07E4\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3769\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ß\x{200D}\x{0E3A}。⒈", %p)}, undef, "to_ascii\(\'ß\\u200D\\u0E3A。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3771\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{200D}\x{0E3A}。1.", %p)}, undef, "to_ascii\(\'ß\\u200D\\u0E3A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3773\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{200D}\x{0E3A}。1.", %p)}, undef, "to_ascii\(\'SS\\u200D\\u0E3A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3775\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{200D}\x{0E3A}。1.", %p)}, undef, "to_ascii\(\'ss\\u200D\\u0E3A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3777\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{200D}\x{0E3A}。1.", %p)}, undef, "to_ascii\(\'Ss\\u200D\\u0E3A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3779\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ss-jvi.1.", %p)}, "xn--ss-jvi.1.", "to_ascii\(\'xn\-\-ss\-jvi\.1\.\'\)\ \[data\/IdnaTest\.txt\:3780\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{0E3A}.1.", %p)}, "xn--ss-jvi.1.", "to_ascii\(\'ss\\u0E3A\.1\.\'\)\ \[data\/IdnaTest\.txt\:3781\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{0E3A}.1.", %p)}, "xn--ss-jvi.1.", "to_ascii\(\'SS\\u0E3A\.1\.\'\)\ \[data\/IdnaTest\.txt\:3782\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{0E3A}.1.", %p)}, "xn--ss-jvi.1.", "to_ascii\(\'Ss\\u0E3A\.1\.\'\)\ \[data\/IdnaTest\.txt\:3783\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{200D}\x{0E3A}。⒈", %p)}, undef, "to_ascii\(\'SS\\u200D\\u0E3A。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3785\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{200D}\x{0E3A}。⒈", %p)}, undef, "to_ascii\(\'ss\\u200D\\u0E3A。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3787\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{200D}\x{0E3A}。⒈", %p)}, undef, "to_ascii\(\'Ss\\u200D\\u0E3A。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3789\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{111C0}\x{200C}\x{9475B}\x{1EAA0}。\x{200D}", %p)}, undef, "to_ascii\(\'\\uD804\\uDDC0\\u200C\\uDA11\\uDF5B\\uD83A\\uDEA0\。\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3791\]") 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{0777}。\x{067A}🔋", %p)}, undef, "to_ascii\(\'\\u0777。\\u067A🔋\'\)\ throws\ error\ B3\ \[data\/IdnaTest\.txt\:3792\]") 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{0777}。\x{067A}🔋", %p)}, undef, "to_ascii\(\'\\u0777\。\\u067A🔋\'\)\ throws\ error\ B3\ \[data\/IdnaTest\.txt\:3793\]") 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{07DC}\x{1BF2}。\x{0677}\x{1A1B}\x{200C}\x{0D4D}", %p)}, undef, "to_ascii\(\'\\u07DC\\u1BF2\。\\u0677\\u1A1B\\u200C\\u0D4D\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:3795\]") 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{07DC}\x{1BF2}。\x{06C7}\x{0674}\x{1A1B}\x{200C}\x{0D4D}", %p)}, undef, "to_ascii\(\'\\u07DC\\u1BF2\。\\u06C7\\u0674\\u1A1B\\u200C\\u0D4D\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:3797\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{D4CA7}.\x{E017E}ꡑ", %p)}, undef, "to_ascii\(\'\\uDB13\\uDCA7\.\\uDB40\\uDD7Eꡑ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3798\]") 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{1BF3}.ß\x{0A4D}\x{0FBC}", %p)}, "xn--88e02p.xn--zca249bipe", "to_ascii\(\'ᡬ\\u1BF3.ß\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3800\]") 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{1BF3}.ß\x{0A4D}\x{0FBC}", %p)}, "xn--88e02p.xn--zca249bipe", "to_ascii\(\'ᡬ\\u1BF3\.ß\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3802\]") 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{1BF3}.SS\x{0A4D}\x{0FBC}", %p)}, "xn--88e02p.xn--ss-efg876c", "to_ascii\(\'ᡬ\\u1BF3\.SS\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3803\]") 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{1BF3}.ss\x{0A4D}\x{0FBC}", %p)}, "xn--88e02p.xn--ss-efg876c", "to_ascii\(\'ᡬ\\u1BF3\.ss\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3804\]") 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{1BF3}.Ss\x{0A4D}\x{0FBC}", %p)}, "xn--88e02p.xn--ss-efg876c", "to_ascii\(\'ᡬ\\u1BF3\.Ss\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3805\]") 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--88e02p.xn--ss-efg876c", %p)}, "xn--88e02p.xn--ss-efg876c", "to_ascii\(\'xn\-\-88e02p\.xn\-\-ss\-efg876c\'\)\ \[data\/IdnaTest\.txt\:3806\]") 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--88e02p.xn--zca249bipe", %p)}, "xn--88e02p.xn--zca249bipe", "to_ascii\(\'xn\-\-88e02p\.xn\-\-zca249bipe\'\)\ \[data\/IdnaTest\.txt\:3807\]") 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{1BF3}.SS\x{0A4D}\x{0FBC}", %p)}, "xn--88e02p.xn--ss-efg876c", "to_ascii\(\'ᡬ\\u1BF3.SS\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3808\]") 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{1BF3}.ss\x{0A4D}\x{0FBC}", %p)}, "xn--88e02p.xn--ss-efg876c", "to_ascii\(\'ᡬ\\u1BF3.ss\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3809\]") 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{1BF3}.Ss\x{0A4D}\x{0FBC}", %p)}, "xn--88e02p.xn--ss-efg876c", "to_ascii\(\'ᡬ\\u1BF3.Ss\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3810\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("۴≮\x{200C}。\x{116B2}\x{17B4}", %p)}, undef, "to_ascii\(\'۴\≮\\u200C。\\uD805\\uDEB2\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3812\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۴<\x{0338}\x{200C}。\x{116B2}\x{17B4}", %p)}, undef, "to_ascii\(\'۴\<\\u0338\\u200C。\\uD805\\uDEB2\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3814\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۴≮\x{200C}。\x{116B2}\x{17B4}", %p)}, undef, "to_ascii\(\'۴\≮\\u200C\。\\uD805\\uDEB2\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3816\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۴<\x{0338}\x{200C}。\x{116B2}\x{17B4}", %p)}, undef, "to_ascii\(\'۴\<\\u0338\\u200C\。\\uD805\\uDEB2\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3818\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}≯︒\x{B23D5}.Ⴀ", %p)}, undef, "to_ascii\(\'\\u06C5\≯︒\\uDA88\\uDFD5.Ⴀ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3819\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}>\x{0338}︒\x{B23D5}.Ⴀ", %p)}, undef, "to_ascii\(\'\\u06C5\>\\u0338︒\\uDA88\\uDFD5.Ⴀ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3820\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}≯。\x{B23D5}.Ⴀ", %p)}, undef, "to_ascii\(\'\\u06C5\≯\。\\uDA88\\uDFD5\.Ⴀ\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3821\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}>\x{0338}。\x{B23D5}.Ⴀ", %p)}, undef, "to_ascii\(\'\\u06C5\>\\u0338\。\\uDA88\\uDFD5\.Ⴀ\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3822\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}>\x{0338}。\x{B23D5}.ⴀ", %p)}, undef, "to_ascii\(\'\\u06C5\>\\u0338\。\\uDA88\\uDFD5\.ⴀ\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3823\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}≯。\x{B23D5}.ⴀ", %p)}, undef, "to_ascii\(\'\\u06C5\≯\。\\uDA88\\uDFD5\.ⴀ\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3824\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}>\x{0338}︒\x{B23D5}.ⴀ", %p)}, undef, "to_ascii\(\'\\u06C5\>\\u0338︒\\uDA88\\uDFD5.ⴀ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3825\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C5}≯︒\x{B23D5}.ⴀ", %p)}, undef, "to_ascii\(\'\\u06C5\≯︒\\uDA88\\uDFD5.ⴀ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3826\]") 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{E0121}.-\x{2DF9}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD21.\-\\u2DF9\'\)\ throws\ error\ V3\ \[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{E0121}.-\x{2DF9}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD21\.\-\\u2DF9\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3828\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᵬ\x{0DD3}.핒🄃⒈\x{A74BE}", %p)}, undef, "to_ascii\(\'ᵬ\\u0DD3.핒🄃⒈\\uDA5D\\uDCBE\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3829\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᵬ\x{0DD3}.핒🄃⒈\x{A74BE}", %p)}, undef, "to_ascii\(\'ᵬ\\u0DD3.핒🄃⒈\\uDA5D\\uDCBE\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3830\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᵬ\x{0DD3}.핒2,1.\x{A74BE}", %p)}, undef, "to_ascii\(\'ᵬ\\u0DD3\.핒2\,1\.\\uDA5D\\uDCBE\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3831\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᵬ\x{0DD3}.핒2,1.\x{A74BE}", %p)}, undef, "to_ascii\(\'ᵬ\\u0DD3\.핒2\,1\.\\uDA5D\\uDCBE\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3832\]") 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{111C0}₆.\x{10E61}", %p)}, undef, "to_ascii\(\'ς\\uD804\\uDDC0₆.\\uD803\\uDE61\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3833\]") 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{111C0}6.\x{10E61}", %p)}, undef, "to_ascii\(\'ς\\uD804\\uDDC06\.\\uD803\\uDE61\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3834\]") 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{111C0}6.\x{10E61}", %p)}, undef, "to_ascii\(\'Σ\\uD804\\uDDC06\.\\uD803\\uDE61\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3835\]") 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{111C0}6.\x{10E61}", %p)}, undef, "to_ascii\(\'σ\\uD804\\uDDC06\.\\uD803\\uDE61\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3836\]") 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{111C0}₆.\x{10E61}", %p)}, undef, "to_ascii\(\'Σ\\uD804\\uDDC0₆.\\uD803\\uDE61\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3837\]") 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{111C0}₆.\x{10E61}", %p)}, undef, "to_ascii\(\'σ\\uD804\\uDDC0₆.\\uD803\\uDE61\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3838\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1039}\x{200C}₇\x{200D}.\x{1D169}\x{1E902}\x{0602}", %p)}, undef, "to_ascii\(\'\\u1039\\u200C₇\\u200D\.\\uD834\\uDD69\\uD83A\\uDD02\\u0602\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3840\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1039}\x{200C}7\x{200D}.\x{1D169}\x{1E902}\x{0602}", %p)}, undef, "to_ascii\(\'\\u1039\\u200C7\\u200D\.\\uD834\\uDD69\\uD83A\\uDD02\\u0602\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3842\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0CD3}。\x{3C4F0}\x{07CD}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDCD3\。\\uD8B1\\uDCF0\\u07CD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3843\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF33}𥂚。\x{9FCF1}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF33𥂚\。\\uDA3F\\uDCF1\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3844\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E6C}\x{0902}\x{0849}。ς\x{BE839}\x{E0CCC}\x{17B5}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C\\u0902\\u0849\。ς\\uDABA\\uDC39\\uDB43\\uDCCC\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3845\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E6C}\x{0902}\x{0849}。Σ\x{BE839}\x{E0CCC}\x{17B5}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C\\u0902\\u0849\。Σ\\uDABA\\uDC39\\uDB43\\uDCCC\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3846\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E6C}\x{0902}\x{0849}。σ\x{BE839}\x{E0CCC}\x{17B5}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6C\\u0902\\u0849\。σ\\uDABA\\uDC39\\uDB43\\uDCCC\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3847\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{1EA1B}\x{0683}\x{193B}。\x{11046}⒕", %p)}, undef, "to_ascii\(\'\-\\uD83A\\uDE1B\\u0683\\u193B\。\\uD804\\uDC46⒕\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3848\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{1EA1B}\x{0683}\x{193B}。\x{11046}14.", %p)}, undef, "to_ascii\(\'\-\\uD83A\\uDE1B\\u0683\\u193B\。\\uD804\\uDC4614\.\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3849\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}🔲。\x{E0757}≮\x{10C84}", %p)}, undef, "to_ascii\(\'\\u200C🔲。\\uDB41\\uDF57\≮\\uD803\\uDC84\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3851\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}🔲。\x{E0757}<\x{0338}\x{10C84}", %p)}, undef, "to_ascii\(\'\\u200C🔲。\\uDB41\\uDF57\<\\u0338\\uD803\\uDC84\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3853\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}🔲。\x{E0757}≮\x{10C84}", %p)}, undef, "to_ascii\(\'\\u200C🔲\。\\uDB41\\uDF57\≮\\uD803\\uDC84\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3855\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}🔲。\x{E0757}<\x{0338}\x{10C84}", %p)}, undef, "to_ascii\(\'\\u200C🔲\。\\uDB41\\uDF57\<\\u0338\\uD803\\uDC84\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3857\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈【\x{A2308}.𝟲\x{95459}", %p)}, undef, "to_ascii\(\'⒈\【\\uDA48\\uDF08.𝟲\\uDA15\\uDC59\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3858\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.【\x{A2308}.6\x{95459}", %p)}, undef, "to_ascii\(\'1\.\【\\uDA48\\uDF08\.6\\uDA15\\uDC59\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3859\]") 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{1B71}\x{08A2}\x{FBE5}.\x{0667}\x{2DFB}", %p)}, undef, "to_ascii\(\'\\u1B71\\u08A2\\uFBE5\.\\u0667\\u2DFB\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3860\]") 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{1B71}\x{08A2}\x{06D0}.\x{0667}\x{2DFB}", %p)}, undef, "to_ascii\(\'\\u1B71\\u08A2\\u06D0\.\\u0667\\u2DFB\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3861\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{103A}", %p)}, undef, "to_ascii\(\'ς.\\uA9C0\\u103A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3862\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{103A}", %p)}, undef, "to_ascii\(\'ς\.\\uA9C0\\u103A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3863\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{103A}", %p)}, undef, "to_ascii\(\'Σ\.\\uA9C0\\u103A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3864\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{103A}", %p)}, undef, "to_ascii\(\'σ\.\\uA9C0\\u103A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3865\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{103A}", %p)}, undef, "to_ascii\(\'Σ.\\uA9C0\\u103A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3866\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{103A}", %p)}, undef, "to_ascii\(\'σ.\\uA9C0\\u103A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3867\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E013D}\x{200C}≯\x{10EC3}.\x{081B}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD3D\\u200C\≯\\uD803\\uDEC3.\\u081B\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3869\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E013D}\x{200C}>\x{0338}\x{10EC3}.\x{081B}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD3D\\u200C\>\\u0338\\uD803\\uDEC3.\\u081B\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3871\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E013D}\x{200C}≯\x{10EC3}.\x{081B}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD3D\\u200C\≯\\uD803\\uDEC3\.\\u081B\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3873\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E013D}\x{200C}>\x{0338}\x{10EC3}.\x{081B}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD3D\\u200C\>\\u0338\\uD803\\uDEC3\.\\u081B\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[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("羚。≯", %p)}, undef, "to_ascii\(\'羚\。\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3878\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羚。>\x{0338}", %p)}, undef, "to_ascii\(\'羚\。\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3879\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A3F}\x{1759}.ꡦ", %p)}, undef, "to_ascii\(\'\\uD802\\uDE3F\\u1759.ꡦ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3880\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A3F}\x{1759}.ꡦ", %p)}, undef, "to_ascii\(\'\\uD802\\uDE3F\\u1759\.ꡦ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3881\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}ҠჀ²", %p)}, undef, "to_ascii\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D。\\uD803\\uDE6DҠჀ²\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3883\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}ҠჀ2", %p)}, undef, "to_ascii\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D\。\\uD803\\uDE6DҠჀ2\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3885\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}ҡⴠ2", %p)}, undef, "to_ascii\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D\。\\uD803\\uDE6Dҡⴠ2\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3887\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}Ҡⴠ2", %p)}, undef, "to_ascii\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D\。\\uD803\\uDE6DҠⴠ2\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3889\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}ҡⴠ²", %p)}, undef, "to_ascii\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D。\\uD803\\uDE6Dҡⴠ²\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3891\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}Ҡⴠ²", %p)}, undef, "to_ascii\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D。\\uD803\\uDE6DҠⴠ²\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3893\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6D}\x{A6F1}", %p)}, undef, "to_ascii\(\'ᠴ\。\\uD803\\uDE6D\\uA6F1\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3894\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}ß", %p)}, undef, "to_ascii\(\'\\uD8D4\\uDD21\\u0B4D。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3895\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}ß", %p)}, undef, "to_ascii\(\'\\uD8D4\\uDD21\\u0B4D\。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3896\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}SS", %p)}, undef, "to_ascii\(\'\\uD8D4\\uDD21\\u0B4D\。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDSS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3897\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}ss", %p)}, undef, "to_ascii\(\'\\uD8D4\\uDD21\\u0B4D\。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3898\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}Ss", %p)}, undef, "to_ascii\(\'\\uD8D4\\uDD21\\u0B4D\。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDSs\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3899\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}SS", %p)}, undef, "to_ascii\(\'\\uD8D4\\uDD21\\u0B4D。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDSS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3900\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}ss", %p)}, undef, "to_ascii\(\'\\uD8D4\\uDD21\\u0B4D。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3901\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}Ss", %p)}, undef, "to_ascii\(\'\\uD8D4\\uDD21\\u0B4D。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDSs\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3902\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E72}\x{9D467}\x{036C}.⸖︒≠", %p)}, undef, "to_ascii\(\'\\uD803\\uDE72\\uDA35\\uDC67\\u036C\.\⸖︒\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3903\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E72}\x{9D467}\x{036C}.⸖︒=\x{0338}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE72\\uDA35\\uDC67\\u036C\.\⸖︒\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3904\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E72}\x{9D467}\x{036C}.⸖。≠", %p)}, undef, "to_ascii\(\'\\uD803\\uDE72\\uDA35\\uDC67\\u036C\.\⸖\。\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3905\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E72}\x{9D467}\x{036C}.⸖。=\x{0338}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE72\\uDA35\\uDC67\\u036C\.\⸖\。\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3906\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏫\x{CEDF8}ỗ⒈.\x{37B57}\x{B8390}⧸⒌", %p)}, undef, "to_ascii\(\'🏫\\uDAFB\\uDDF8ỗ⒈.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸⒌\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3907\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏫\x{CEDF8}o\x{0302}\x{0303}⒈.\x{37B57}\x{B8390}⧸⒌", %p)}, undef, "to_ascii\(\'🏫\\uDAFB\\uDDF8o\\u0302\\u0303⒈.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸⒌\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3908\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏫\x{CEDF8}ỗ1..\x{37B57}\x{B8390}⧸5.", %p)}, undef, "to_ascii\(\'🏫\\uDAFB\\uDDF8ỗ1\.\.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸5\.\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3909\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏫\x{CEDF8}o\x{0302}\x{0303}1..\x{37B57}\x{B8390}⧸5.", %p)}, undef, "to_ascii\(\'🏫\\uDAFB\\uDDF8o\\u0302\\u03031\.\.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸5\.\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3910\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏫\x{CEDF8}O\x{0302}\x{0303}1..\x{37B57}\x{B8390}⧸5.", %p)}, undef, "to_ascii\(\'🏫\\uDAFB\\uDDF8O\\u0302\\u03031\.\.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸5\.\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3911\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏫\x{CEDF8}Ỗ1..\x{37B57}\x{B8390}⧸5.", %p)}, undef, "to_ascii\(\'🏫\\uDAFB\\uDDF8Ỗ1\.\.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸5\.\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3912\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏫\x{CEDF8}O\x{0302}\x{0303}⒈.\x{37B57}\x{B8390}⧸⒌", %p)}, undef, "to_ascii\(\'🏫\\uDAFB\\uDDF8O\\u0302\\u0303⒈.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸⒌\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3913\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏫\x{CEDF8}Ỗ⒈.\x{37B57}\x{B8390}⧸⒌", %p)}, undef, "to_ascii\(\'🏫\\uDAFB\\uDDF8Ỗ⒈.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸⒌\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3914\]") 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{200D}。ꡏ", %p)}, undef, "to_ascii\(\'\\u200D。ꡏ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3916\]") 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{200D}。ꡏ", %p)}, undef, "to_ascii\(\'\\u200D\。ꡏ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3918\]") 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--oc9a", %p)}, "xn--oc9a", "to_ascii\(\'xn\-\-oc9a\'\)\ \[data\/IdnaTest\.txt\:3919\]") 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--oc9a", "to_ascii\(\'ꡏ\'\)\ \[data\/IdnaTest\.txt\:3920\]") 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{E01C5}ꡉ.\x{06FA}", %p)}, "xn--ic9a.xn--nmb", "to_ascii\(\'\\uDB40\\uDDC5ꡉ\.\\u06FA\'\)\ \[data\/IdnaTest\.txt\:3921\]") 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--ic9a.xn--nmb", %p)}, "xn--ic9a.xn--nmb", "to_ascii\(\'xn\-\-ic9a\.xn\-\-nmb\'\)\ \[data\/IdnaTest\.txt\:3922\]") 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{06FA}", %p)}, "xn--ic9a.xn--nmb", "to_ascii\(\'ꡉ\.\\u06FA\'\)\ \[data\/IdnaTest\.txt\:3923\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1B80}\x{200C}-。\x{7CC35}ß", %p)}, undef, "to_ascii\(\'\\u1B80\\u200C\-\。\\uD9B3\\uDC35ß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3925\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B80}\x{200C}-。\x{7CC35}SS", %p)}, undef, "to_ascii\(\'\\u1B80\\u200C\-\。\\uD9B3\\uDC35SS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3927\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B80}\x{200C}-。\x{7CC35}ss", %p)}, undef, "to_ascii\(\'\\u1B80\\u200C\-\。\\uD9B3\\uDC35ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3929\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B80}\x{200C}-。\x{7CC35}Ss", %p)}, undef, "to_ascii\(\'\\u1B80\\u200C\-\。\\uD9B3\\uDC35Ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3931\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ς⩕𝟶.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_ascii\(\'\\u200Cς\⩕𝟶\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3933\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ς⩕0.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_ascii\(\'\\u200Cς\⩕0\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3935\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Σ⩕0.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_ascii\(\'\\u200CΣ\⩕0\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3937\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}σ⩕0.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_ascii\(\'\\u200Cσ\⩕0\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3939\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Σ⩕𝟶.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_ascii\(\'\\u200CΣ\⩕𝟶\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3941\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}σ⩕𝟶.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_ascii\(\'\\u200Cσ\⩕𝟶\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3943\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.\x{1E888}", %p)}, undef, "to_ascii\(\'\-\.\\uD83A\\uDC88\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3944\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{5B1FD}\x{0773}.\x{302D}\x{07D3}", %p)}, undef, "to_ascii\(\'\\uD92C\\uDDFD\\u0773\.\\u302D\\u07D3\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:3945\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FE6}ꡲ\x{182D3}.ᠤ", %p)}, undef, "to_ascii\(\'\\u0FE6ꡲ\\uD820\\uDED3\.ᠤ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3946\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷\x{89430}\x{077B}ß。\x{0766}", %p)}, undef, "to_ascii\(\'۷\\uD9E5\\uDC30\\u077Bß\。\\u0766\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3947\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷\x{89430}\x{077B}SS。\x{0766}", %p)}, undef, "to_ascii\(\'۷\\uD9E5\\uDC30\\u077BSS\。\\u0766\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3948\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷\x{89430}\x{077B}ss。\x{0766}", %p)}, undef, "to_ascii\(\'۷\\uD9E5\\uDC30\\u077Bss\。\\u0766\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3949\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۷\x{89430}\x{077B}Ss。\x{0766}", %p)}, undef, "to_ascii\(\'۷\\uD9E5\\uDC30\\u077BSs\。\\u0766\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3950\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ≮.\x{08A4}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\≮.\\u08A4ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3952\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ<\x{0338}.\x{08A4}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\<\\u0338.\\u08A4ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3954\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ≮.\x{08A4}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\≮\.\\u08A4ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3956\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ<\x{0338}.\x{08A4}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\<\\u0338\.\\u08A4ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3958\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ<\x{0338}.\x{08A4}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\<\\u0338\.\\u08A4SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3960\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ≮.\x{08A4}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\≮\.\\u08A4SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3962\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ≮.\x{08A4}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\≮\.\\u08A4ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3964\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ<\x{0338}.\x{08A4}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\<\\u0338\.\\u08A4ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3966\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ<\x{0338}.\x{08A4}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\<\\u0338\.\\u08A4Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3968\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ≮.\x{08A4}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\≮\.\\u08A4Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3970\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ<\x{0338}.\x{08A4}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\<\\u0338.\\u08A4SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3972\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ≮.\x{08A4}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\≮.\\u08A4SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3974\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ≮.\x{08A4}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\≮.\\u08A4ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3976\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ<\x{0338}.\x{08A4}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\<\\u0338.\\u08A4ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3978\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ<\x{0338}.\x{08A4}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\<\\u0338.\\u08A4Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3980\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳ꡡ≮.\x{08A4}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳ꡡ\≮.\\u08A4Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3982\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{BB86C}\x{E017C}\x{1B00}.\x{AA31}-︒", %p)}, undef, "to_ascii\(\'\-\\uDAAE\\uDC6C\\uDB40\\uDD7C\\u1B00\.\\uAA31\-︒\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:3983\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{BB86C}\x{E017C}\x{1B00}.\x{AA31}-。", %p)}, undef, "to_ascii\(\'\-\\uDAAE\\uDC6C\\uDB40\\uDD7C\\u1B00\.\\uAA31\-\。\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:3984\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒.\x{6FFEB}\x{1CE5}", %p)}, undef, "to_ascii\(\'︒\.\\uD97F\\uDFEB\\u1CE5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3985\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。.\x{6FFEB}\x{1CE5}", %p)}, undef, "to_ascii\(\'\。\.\\uD97F\\uDFEB\\u1CE5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3986\]") 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{2DF5}\x{08F7}。\x{200C}⓾\x{200C}\x{075C}", %p)}, undef, "to_ascii\(\'\\u2DF5\\u08F7\。\\u200C⓾\\u200C\\u075C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3988\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{06FD}ꡙ\x{0666}。\x{074A}ᡍ\x{0823}", %p)}, undef, "to_ascii\(\'\\u06FDꡙ\\u0666。\\u074Aᡍ\\u0823\'\)\ throws\ error\ V5\ B2\ \[data\/IdnaTest\.txt\:3989\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{06FD}ꡙ\x{0666}。\x{074A}ᡍ\x{0823}", %p)}, undef, "to_ascii\(\'\\u06FDꡙ\\u0666\。\\u074Aᡍ\\u0823\'\)\ throws\ error\ V5\ B2\ \[data\/IdnaTest\.txt\:3990\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{A949}.-\x{49FF5}", %p)}, undef, "to_ascii\(\'\\uA949\.\-\\uD8E7\\uDFF5\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:3991\]") 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{1B72}.赏", %p)}, undef, "to_ascii\(\'\\u1B72.赏\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3992\]") 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{1B72}.赏", %p)}, undef, "to_ascii\(\'\\u1B72\.赏\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3993\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0686}\x{0680}。Ⴁ", %p)}, undef, "to_ascii\(\'\\u0686\\u0680。Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3994\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0686}\x{0680}。Ⴁ", %p)}, undef, "to_ascii\(\'\\u0686\\u0680\。Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3995\]") 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{0686}\x{0680}。ⴁ", %p)}, "xn--5ibl.xn--skj", "to_ascii\(\'\\u0686\\u0680\。ⴁ\'\)\ \[data\/IdnaTest\.txt\:3996\]") 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--5ibl.xn--skj", %p)}, "xn--5ibl.xn--skj", "to_ascii\(\'xn\-\-5ibl\.xn\-\-skj\'\)\ \[data\/IdnaTest\.txt\:3997\]") 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{0686}\x{0680}.ⴁ", %p)}, "xn--5ibl.xn--skj", "to_ascii\(\'\\u0686\\u0680\.ⴁ\'\)\ \[data\/IdnaTest\.txt\:3998\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0686}\x{0680}.Ⴁ", %p)}, undef, "to_ascii\(\'\\u0686\\u0680\.Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3999\]") 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{0686}\x{0680}。ⴁ", %p)}, "xn--5ibl.xn--skj", "to_ascii\(\'\\u0686\\u0680。ⴁ\'\)\ \[data\/IdnaTest\.txt\:4000\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FE26}Ⴊ\x{07D4}ς。-", %p)}, undef, "to_ascii\(\'\\uFE26Ⴊ\\u07D4ς。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4001\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE26}Ⴊ\x{07D4}ς。-", %p)}, undef, "to_ascii\(\'\\uFE26Ⴊ\\u07D4ς\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4002\]") 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{FE26}ⴊ\x{07D4}ς。-", %p)}, undef, "to_ascii\(\'\\uFE26ⴊ\\u07D4ς\。\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4003\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FE26}Ⴊ\x{07D4}Σ。-", %p)}, undef, "to_ascii\(\'\\uFE26Ⴊ\\u07D4Σ\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4004\]") 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{FE26}ⴊ\x{07D4}σ。-", %p)}, undef, "to_ascii\(\'\\uFE26ⴊ\\u07D4σ\。\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4005\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FE26}Ⴊ\x{07D4}σ。-", %p)}, undef, "to_ascii\(\'\\uFE26Ⴊ\\u07D4σ\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4006\]") 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{FE26}ⴊ\x{07D4}ς。-", %p)}, undef, "to_ascii\(\'\\uFE26ⴊ\\u07D4ς。\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4007\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FE26}Ⴊ\x{07D4}Σ。-", %p)}, undef, "to_ascii\(\'\\uFE26Ⴊ\\u07D4Σ。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4008\]") 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{FE26}ⴊ\x{07D4}σ。-", %p)}, undef, "to_ascii\(\'\\uFE26ⴊ\\u07D4σ。\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4009\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FE26}Ⴊ\x{07D4}σ。-", %p)}, undef, "to_ascii\(\'\\uFE26Ⴊ\\u07D4σ。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4010\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴍ.\x{645EA}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴍ.\\uD951\\uDDEA\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4012\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴍ.\x{645EA}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴍ\.\\uD951\\uDDEA\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4014\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴍ.\x{645EA}\x{200C}", %p)}, undef, "to_ascii\(\'ⴍ\.\\uD951\\uDDEA\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4016\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴍ.\x{645EA}\x{200C}", %p)}, undef, "to_ascii\(\'ⴍ.\\uD951\\uDDEA\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4018\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{32D72}⏎.ᠧ\x{17D2}\x{E2C9C}\x{0CCD}", %p)}, undef, "to_ascii\(\'\\uD88B\\uDD72\⏎\.ᠧ\\u17D2\\uDB4B\\uDC9C\\u0CCD\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4019\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯˒ꡟ。\x{10E7A}\x{E0B08}", %p)}, undef, "to_ascii\(\'\≯˒ꡟ。\\uD803\\uDE7A\\uDB42\\uDF08\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4020\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}˒ꡟ。\x{10E7A}\x{E0B08}", %p)}, undef, "to_ascii\(\'\>\\u0338˒ꡟ。\\uD803\\uDE7A\\uDB42\\uDF08\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4021\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯˒ꡟ。\x{10E7A}\x{E0B08}", %p)}, undef, "to_ascii\(\'\≯˒ꡟ\。\\uD803\\uDE7A\\uDB42\\uDF08\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4022\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}˒ꡟ。\x{10E7A}\x{E0B08}", %p)}, undef, "to_ascii\(\'\>\\u0338˒ꡟ\。\\uD803\\uDE7A\\uDB42\\uDF08\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4023\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{F991E}\x{10E7E}\x{0764}\x{10E77}。Ⴈ\x{0631}Ⴏ", %p)}, undef, "to_ascii\(\'\\uDBA6\\uDD1E\\uD803\\uDE7E\\u0764\\uD803\\uDE77\。Ⴈ\\u0631Ⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4024\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{F991E}\x{10E7E}\x{0764}\x{10E77}。ⴈ\x{0631}ⴏ", %p)}, undef, "to_ascii\(\'\\uDBA6\\uDD1E\\uD803\\uDE7E\\u0764\\uD803\\uDE77\。ⴈ\\u0631ⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4025\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{F991E}\x{10E7E}\x{0764}\x{10E77}。Ⴈ\x{0631}ⴏ", %p)}, undef, "to_ascii\(\'\\uDBA6\\uDD1E\\uD803\\uDE7E\\u0764\\uD803\\uDE77\。Ⴈ\\u0631ⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4026\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EB92}。\x{E007D}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDF92\。\\uDB40\\uDC7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4027\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("³\x{0600}.\x{E01B1}⬙7ᡦ", %p)}, undef, "to_ascii\(\'³\\u0600.\\uDB40\\uDDB1\⬙7ᡦ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4028\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{0600}.\x{E01B1}⬙7ᡦ", %p)}, undef, "to_ascii\(\'3\\u0600\.\\uDB40\\uDDB1\⬙7ᡦ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4029\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{069F}\x{10E7E}\x{08C7}.\x{033E}", %p)}, undef, "to_ascii\(\'\\u069F\\uD803\\uDE7E\\u08C7.\\u033E\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4030\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{069F}\x{10E7E}\x{08C7}.\x{033E}", %p)}, undef, "to_ascii\(\'\\u069F\\uD803\\uDE7E\\u08C7\.\\u033E\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4031\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0088}\x{95A50}\x{0646}.\x{06BA}\x{200D}\x{10CE6}", %p)}, undef, "to_ascii\(\'\\u0088\\uDA16\\uDE50\\u0646.\\u06BA\\u200D\\uD803\\uDCE6\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4033\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0088}\x{95A50}\x{0646}.\x{06BA}\x{200D}\x{10CE6}", %p)}, undef, "to_ascii\(\'\\u0088\\uDA16\\uDE50\\u0646\.\\u06BA\\u200D\\uD803\\uDCE6\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4035\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡊ\x{C73E1}\x{10F89}-.≠\x{C8E8F}\x{ABED}", %p)}, undef, "to_ascii\(\'ꡊ\\uDADC\\uDFE1\\uD803\\uDF89\-.\≠\\uDAE3\\uDE8F\\uABED\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4036\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡊ\x{C73E1}\x{10F89}-.=\x{0338}\x{C8E8F}\x{ABED}", %p)}, undef, "to_ascii\(\'ꡊ\\uDADC\\uDFE1\\uD803\\uDF89\-.\=\\u0338\\uDAE3\\uDE8F\\uABED\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4037\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡊ\x{C73E1}\x{10F89}-.≠\x{C8E8F}\x{ABED}", %p)}, undef, "to_ascii\(\'ꡊ\\uDADC\\uDFE1\\uD803\\uDF89\-\.\≠\\uDAE3\\uDE8F\\uABED\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4038\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡊ\x{C73E1}\x{10F89}-.=\x{0338}\x{C8E8F}\x{ABED}", %p)}, undef, "to_ascii\(\'ꡊ\\uDADC\\uDFE1\\uD803\\uDF89\-\.\=\\u0338\\uDAE3\\uDE8F\\uABED\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4039\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₅.\x{71C0B}", %p)}, undef, "to_ascii\(\'₅.\\uD987\\uDC0B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4040\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("5.\x{71C0B}", %p)}, undef, "to_ascii\(\'5\.\\uD987\\uDC0B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4041\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200D}.Ⴞ1", %p)}, undef, "to_ascii\(\'\-\\u200D\.Ⴞ1\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:4043\]") 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}.ⴞ1", %p)}, undef, "to_ascii\(\'\-\\u200D\.ⴞ1\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:4045\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200Dςß\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4047\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200Dςß\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4049\]") 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}ΣSS\x{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200DΣSS\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4051\]") 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}σss\x{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200Dσss\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4053\]") 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}Σss\x{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200DΣss\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4055\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200DΣß\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4057\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200Dσß\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4059\]") 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}ΣSS\x{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200DΣSS\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4061\]") 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}σss\x{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200Dσss\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4063\]") 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}Σss\x{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200DΣss\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4065\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200DΣß\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4067\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_ascii\(\'\\u200Dσß\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4069\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≠.\x{200D}", %p)}, undef, "to_ascii\(\'\≠.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4071\]") 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\:4073\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠.\x{200D}", %p)}, undef, "to_ascii\(\'\≠\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4075\]") 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\:4077\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF53}。\x{0612}\x{06D1}⸩\x{A53B4}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF53。\\u0612\\u06D1\⸩\\uDA54\\uDFB4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4078\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF53}。\x{0612}\x{06D1}⸩\x{A53B4}", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF53\。\\u0612\\u06D1\⸩\\uDA54\\uDFB4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4079\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}ς.ς\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4Dς.ς\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4080\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}ς.ς\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4Dς\.ς\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4081\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}Σ.Σ\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4DΣ\.Σ\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4082\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}σ.ς\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4Dσ\.ς\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4083\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}σ.σ\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4Dσ\.σ\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4084\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}Σ.σ\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4DΣ\.σ\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4085\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}Σ.ς\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4DΣ\.ς\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4086\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}Σ.Σ\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4DΣ.Σ\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4087\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}σ.ς\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4Dσ.ς\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4088\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}σ.σ\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4Dσ.σ\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4089\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}Σ.σ\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4DΣ.σ\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4090\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{46840}\x{0C4D}Σ.ς\x{A9C0}", %p)}, undef, "to_ascii\(\'\\uD8DA\\uDC40\\u0C4DΣ.ς\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4091\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062A}ᢋ牅\x{0F79}。\x{10A8E}\x{1D18B}\x{760C0}Ⴙ", %p)}, undef, "to_ascii\(\'\\u062Aᢋ牅\\u0F79。\\uD802\\uDE8E\\uD834\\uDD8B\\uD998\\uDCC0Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4092\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062A}ᢋ牅\x{0FB3}\x{0F71}\x{0F80}。\x{10A8E}\x{1D18B}\x{760C0}Ⴙ", %p)}, undef, "to_ascii\(\'\\u062Aᢋ牅\\u0FB3\\u0F71\\u0F80\。\\uD802\\uDE8E\\uD834\\uDD8B\\uD998\\uDCC0Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4093\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062A}ᢋ牅\x{0FB3}\x{0F71}\x{0F80}。\x{10A8E}\x{1D18B}\x{760C0}ⴙ", %p)}, undef, "to_ascii\(\'\\u062Aᢋ牅\\u0FB3\\u0F71\\u0F80\。\\uD802\\uDE8E\\uD834\\uDD8B\\uD998\\uDCC0ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4094\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062A}ᢋ牅\x{0F79}。\x{10A8E}\x{1D18B}\x{760C0}ⴙ", %p)}, undef, "to_ascii\(\'\\u062Aᢋ牅\\u0F79。\\uD802\\uDE8E\\uD834\\uDD8B\\uD998\\uDCC0ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4095\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{6DCA6}。륧", %p)}, undef, "to_ascii\(\'\\uD977\\uDCA6。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4096\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{6DCA6}。륧", %p)}, undef, "to_ascii\(\'\\uD977\\uDCA6。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4097\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{6DCA6}。륧", %p)}, undef, "to_ascii\(\'\\uD977\\uDCA6\。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4098\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{6DCA6}。륧", %p)}, undef, "to_ascii\(\'\\uD977\\uDCA6\。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4099\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0602}\x{200D}。\x{7D7EE}", %p)}, undef, "to_ascii\(\'\\u0602\\u200D\。\\uD9B5\\uDFEE\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4101\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴘᡓ\x{1DFC}。-", %p)}, undef, "to_ascii\(\'Ⴘᡓ\\u1DFC。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4102\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴘᡓ\x{1DFC}。-", %p)}, undef, "to_ascii\(\'Ⴘᡓ\\u1DFC\。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4103\]") 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{1DFC}。-", %p)}, undef, "to_ascii\(\'ⴘᡓ\\u1DFC\。\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4104\]") 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{1DFC}。-", %p)}, undef, "to_ascii\(\'ⴘᡓ\\u1DFC。\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4105\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1BF3}\x{0675}🄆ꡁ。\x{E0C8A}\x{06B0}", %p)}, undef, "to_ascii\(\'\\u1BF3\\u0675🄆ꡁ\。\\uDB43\\uDC8A\\u06B0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:4106\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1BF3}\x{0627}\x{0674}5,ꡁ。\x{E0C8A}\x{06B0}", %p)}, undef, "to_ascii\(\'\\u1BF3\\u0627\\u06745\,ꡁ\。\\uDB43\\uDC8A\\u06B0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:4107\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{6F43F}.꘏\x{07E5}\x{06AE}\x{072D}", %p)}, undef, "to_ascii\(\'\\uD97D\\uDC3F\.꘏\\u07E5\\u06AE\\u072D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4108\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0647}\x{D929}。-ᢣ", %p)}, undef, "to_ascii\(\'\\u0647\\uD929\。\-ᢣ\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ A3\ \[data\/IdnaTest\.txt\:4109\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{06C7}⾑.\x{200C}\x{06B3}\x{200C}⒈", %p)}, undef, "to_ascii\(\'ς\\u06C7⾑.\\u200C\\u06B3\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4111\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{06C7}襾.\x{200C}\x{06B3}\x{200C}1.", %p)}, undef, "to_ascii\(\'ς\\u06C7襾\.\\u200C\\u06B3\\u200C1\.\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4113\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{06C7}襾.\x{200C}\x{06B3}\x{200C}1.", %p)}, undef, "to_ascii\(\'Σ\\u06C7襾\.\\u200C\\u06B3\\u200C1\.\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4115\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{06C7}襾.\x{200C}\x{06B3}\x{200C}1.", %p)}, undef, "to_ascii\(\'σ\\u06C7襾\.\\u200C\\u06B3\\u200C1\.\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4117\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{06C7}⾑.\x{200C}\x{06B3}\x{200C}⒈", %p)}, undef, "to_ascii\(\'Σ\\u06C7⾑.\\u200C\\u06B3\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4119\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{06C7}⾑.\x{200C}\x{06B3}\x{200C}⒈", %p)}, undef, "to_ascii\(\'σ\\u06C7⾑.\\u200C\\u06B3\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4121\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0772}\x{41714}.\x{08BD}", %p)}, undef, "to_ascii\(\'\\u0772\\uD8C5\\uDF14.\\u08BD\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4122\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0772}\x{41714}.\x{08BD}", %p)}, undef, "to_ascii\(\'\\u0772\\uD8C5\\uDF14\.\\u08BD\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4123\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A8C4}\x{F668D}\x{0F19}。\x{200C}ᡲ\x{9C361}", %p)}, undef, "to_ascii\(\'\\uA8C4\\uDB99\\uDE8D\\u0F19。\\u200Cᡲ\\uDA30\\uDF61\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4125\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A8C4}\x{F668D}\x{0F19}。\x{200C}ᡲ\x{9C361}", %p)}, undef, "to_ascii\(\'\\uA8C4\\uDB99\\uDE8D\\u0F19\。\\u200Cᡲ\\uDA30\\uDF61\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4127\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡵ\x{0F9D}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_ascii\(\'ᡵ\\u0F9D\\uD817\\uDC9F\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4129\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡵ\x{0F9C}\x{0FB7}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_ascii\(\'ᡵ\\u0F9C\\u0FB7\\uD817\\uDC9F\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4131\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡵ\x{0F9C}\x{0FB7}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_ascii\(\'ᡵ\\u0F9C\\u0FB7\\uD817\\uDC9F\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4133\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡵ\x{0F9C}\x{0FB7}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_ascii\(\'ᡵ\\u0F9C\\u0FB7\\uD817\\uDC9F\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4135\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡵ\x{0F9C}\x{0FB7}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_ascii\(\'ᡵ\\u0F9C\\u0FB7\\uD817\\uDC9F\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4137\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E41E6}。\x{0751}", %p)}, undef, "to_ascii\(\'\\uDB50\\uDDE6。\\u0751\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4138\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E41E6}。\x{0751}", %p)}, undef, "to_ascii\(\'\\uDB50\\uDDE6\。\\u0751\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4139\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("嬃\x{E0BE9}.\x{200D}\x{10A0E}", %p)}, undef, "to_ascii\(\'嬃\\uDB42\\uDFE9.\\u200D\\uD802\\uDE0E\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4141\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("嬃\x{E0BE9}.\x{200D}\x{10A0E}", %p)}, undef, "to_ascii\(\'嬃\\uDB42\\uDFE9\.\\u200D\\uD802\\uDE0E\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4143\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0660}🎨≯.\x{7F5C6}\x{92698}", %p)}, undef, "to_ascii\(\'\\u0660🎨\≯.\\uD9BD\\uDDC6\\uDA09\\uDE98\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4144\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0660}🎨>\x{0338}.\x{7F5C6}\x{92698}", %p)}, undef, "to_ascii\(\'\\u0660🎨\>\\u0338.\\uD9BD\\uDDC6\\uDA09\\uDE98\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4145\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0660}🎨≯.\x{7F5C6}\x{92698}", %p)}, undef, "to_ascii\(\'\\u0660🎨\≯\.\\uD9BD\\uDDC6\\uDA09\\uDE98\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4146\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0660}🎨>\x{0338}.\x{7F5C6}\x{92698}", %p)}, undef, "to_ascii\(\'\\u0660🎨\>\\u0338\.\\uD9BD\\uDDC6\\uDA09\\uDE98\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4147\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B173E}ᡚ\x{1DD3}\x{0D4D}.\x{FEB3}", %p)}, undef, "to_ascii\(\'\\uDA85\\uDF3Eᡚ\\u1DD3\\u0D4D\.\\uFEB3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4148\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B173E}ᡚ\x{0D4D}\x{1DD3}.\x{FEB3}", %p)}, undef, "to_ascii\(\'\\uDA85\\uDF3Eᡚ\\u0D4D\\u1DD3\.\\uFEB3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4149\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B173E}ᡚ\x{0D4D}\x{1DD3}.\x{0633}", %p)}, undef, "to_ascii\(\'\\uDA85\\uDF3Eᡚ\\u0D4D\\u1DD3\.\\u0633\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4150\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.\x{844D8}", %p)}, undef, "to_ascii\(\'\\u200C\.\\uD9D1\\uDCD8\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4152\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𖡘Ⴃ䠅.\x{108F2}", %p)}, undef, "to_ascii\(\'𖡘Ⴃ䠅.\\uD802\\uDCF2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4153\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𖡘Ⴃ䠅.\x{108F2}", %p)}, undef, "to_ascii\(\'𖡘Ⴃ䠅\.\\uD802\\uDCF2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4154\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𖡘ⴃ䠅.\x{108F2}", %p)}, undef, "to_ascii\(\'𖡘ⴃ䠅\.\\uD802\\uDCF2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4155\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𖡘ⴃ䠅.\x{108F2}", %p)}, undef, "to_ascii\(\'𖡘ⴃ䠅.\\uD802\\uDCF2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4156\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A39}\x{0661}\x{10E7A}\x{062C}。⒑Ⴅ", %p)}, undef, "to_ascii\(\'\\uD802\\uDE39\\u0661\\uD803\\uDE7A\\u062C。⒑Ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4157\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A39}\x{0661}\x{10E7A}\x{062C}。10.Ⴅ", %p)}, undef, "to_ascii\(\'\\uD802\\uDE39\\u0661\\uD803\\uDE7A\\u062C\。10\.Ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4158\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10A39}\x{0661}\x{10E7A}\x{062C}。10.ⴅ", %p)}, undef, "to_ascii\(\'\\uD802\\uDE39\\u0661\\uD803\\uDE7A\\u062C\。10\.ⴅ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4159\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{10A39}\x{0661}\x{10E7A}\x{062C}。⒑ⴅ", %p)}, undef, "to_ascii\(\'\\uD802\\uDE39\\u0661\\uD803\\uDE7A\\u062C。⒑ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4160\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。︒", %p)}, undef, "to_ascii\(\'\-。︒\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4161\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。。", %p)}, undef, "to_ascii\(\'\-\。\。\'\)\ throws\ error\ V3\ A4_2\ \[data\/IdnaTest\.txt\:4162\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}Ⴠ。-۴--", %p)}, undef, "to_ascii\(\'\\u06EEჀ。\-۴\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4163\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}Ⴠ。-۴--", %p)}, undef, "to_ascii\(\'\\u06EEჀ\。\-۴\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4164\]") 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{06EE}ⴠ。-۴--", %p)}, undef, "to_ascii\(\'\\u06EEⴠ\。\-۴\-\-\'\)\ throws\ error\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4165\]") 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{06EE}ⴠ。-۴--", %p)}, undef, "to_ascii\(\'\\u06EEⴠ。\-۴\-\-\'\)\ throws\ error\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4166\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≯\x{D8DD}𐅸。\x{10E70}\x{0665}≯\x{10A37}", %p)}, undef, "to_ascii\(\'\≯\\uD8DD𐅸。\\uD803\\uDE70\\u0665\≯\\uD802\\uDE37\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4167\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{D8DD}𐅸。\x{10E70}\x{0665}>\x{0338}\x{10A37}", %p)}, undef, "to_ascii\(\'\>\\u0338\\uD8DD𐅸。\\uD803\\uDE70\\u0665\>\\u0338\\uD802\\uDE37\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4168\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{D8DD}𐅸。\x{10E70}\x{0665}≯\x{10A37}", %p)}, undef, "to_ascii\(\'\≯\\uD8DD𐅸\。\\uD803\\uDE70\\u0665\≯\\uD802\\uDE37\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4169\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{D8DD}𐅸。\x{10E70}\x{0665}>\x{0338}\x{10A37}", %p)}, undef, "to_ascii\(\'\>\\u0338\\uD8DD𐅸\。\\uD803\\uDE70\\u0665\>\\u0338\\uD802\\uDE37\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4170\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㍔\x{0AC8}\x{06FF}\x{200D}。\x{0DD4}\x{7D7D1}\x{302D}\x{10E67}", %p)}, undef, "to_ascii\(\'㍔\\u0AC8\\u06FF\\u200D\。\\u0DD4\\uD9B5\\uDFD1\\u302D\\uD803\\uDE67\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4172\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ルーブル\x{0AC8}\x{06FF}\x{200D}。\x{0DD4}\x{7D7D1}\x{302D}\x{10E67}", %p)}, undef, "to_ascii\(\'ルーブル\\u0AC8\\u06FF\\u200D\。\\u0DD4\\uD9B5\\uDFD1\\u302D\\uD803\\uDE67\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4174\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ルーフ\x{3099}ル\x{0AC8}\x{06FF}\x{200D}。\x{0DD4}\x{7D7D1}\x{302D}\x{10E67}", %p)}, undef, "to_ascii\(\'ルーフ\\u3099ル\\u0AC8\\u06FF\\u200D\。\\u0DD4\\uD9B5\\uDFD1\\u302D\\uD803\\uDE67\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4176\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}.F", %p)}, undef, "to_ascii\(\'\\u200D\.F\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4178\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("f", %p)}, "f", "to_ascii\(\'f\'\)\ \[data\/IdnaTest\.txt\:4179\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㨲。ß", %p)}, undef, "to_ascii\(\'\\u200D㨲。ß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4181\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㨲。ß", %p)}, undef, "to_ascii\(\'\\u200D㨲\。ß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4183\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㨲。SS", %p)}, undef, "to_ascii\(\'\\u200D㨲\。SS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4185\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--9bm.ss", %p)}, "xn--9bm.ss", "to_ascii\(\'xn\-\-9bm\.ss\'\)\ \[data\/IdnaTest\.txt\:4186\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㨲.ss", %p)}, "xn--9bm.ss", "to_ascii\(\'㨲\.ss\'\)\ \[data\/IdnaTest\.txt\:4187\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㨲。SS", %p)}, undef, "to_ascii\(\'\\u200D㨲。SS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4189\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E60}ᠺ。\x{069E}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE60ᠺ。\\u069E\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4190\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E60}ᠺ。\x{069E}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE60ᠺ\。\\u069E\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4191\]") 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{076E}。\x{0660}\x{07E5}", %p)}, undef, "to_ascii\(\'⾑ᡣ\\u076E\。\\u0660\\u07E5\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4192\]") 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{076E}。\x{0660}\x{07E5}", %p)}, undef, "to_ascii\(\'襾ᡣ\\u076E\。\\u0660\\u07E5\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4193\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{4B8AD}ς-🌿。ꡗ-\x{0771}", %p)}, undef, "to_ascii\(\'\\uD8EE\\uDCADς\-🌿。ꡗ\-\\u0771\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4194\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4B8AD}ς-🌿。ꡗ-\x{0771}", %p)}, undef, "to_ascii\(\'\\uD8EE\\uDCADς\-🌿\。ꡗ\-\\u0771\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4195\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4B8AD}Σ-🌿。ꡗ-\x{0771}", %p)}, undef, "to_ascii\(\'\\uD8EE\\uDCADΣ\-🌿\。ꡗ\-\\u0771\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4196\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4B8AD}σ-🌿。ꡗ-\x{0771}", %p)}, undef, "to_ascii\(\'\\uD8EE\\uDCADσ\-🌿\。ꡗ\-\\u0771\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4197\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4B8AD}Σ-🌿。ꡗ-\x{0771}", %p)}, undef, "to_ascii\(\'\\uD8EE\\uDCADΣ\-🌿。ꡗ\-\\u0771\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4198\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{4B8AD}σ-🌿。ꡗ-\x{0771}", %p)}, undef, "to_ascii\(\'\\uD8EE\\uDCADσ\-🌿。ꡗ\-\\u0771\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4199\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}.\x{99D02}", %p)}, undef, "to_ascii\(\'\\u200D.\\uDA27\\uDD02\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4201\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}.\x{99D02}", %p)}, undef, "to_ascii\(\'\\u200D\.\\uDA27\\uDD02\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4203\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3B1B9}\x{EA1C9}。≠𝟭", %p)}, undef, "to_ascii\(\'\\uD8AC\\uDDB9\\uDB68\\uDDC9。\≠𝟭\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4204\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3B1B9}\x{EA1C9}。=\x{0338}𝟭", %p)}, undef, "to_ascii\(\'\\uD8AC\\uDDB9\\uDB68\\uDDC9。\=\\u0338𝟭\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4205\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3B1B9}\x{EA1C9}。≠1", %p)}, undef, "to_ascii\(\'\\uD8AC\\uDDB9\\uDB68\\uDDC9\。\≠1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4206\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3B1B9}\x{EA1C9}。=\x{0338}1", %p)}, undef, "to_ascii\(\'\\uD8AC\\uDDB9\\uDB68\\uDDC9\。\=\\u03381\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4207\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A3F}\x{08A4}\x{200D}.\x{1E810}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE3F\\u08A4\\u200D\.\\uD83A\\uDC10\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4209\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CBC}ᢜ\x{10EA4}\x{0ACD}.\x{AC00D}", %p)}, undef, "to_ascii\(\'\\u0CBCᢜ\\uD803\\uDEA4\\u0ACD.\\uDA70\\uDC0D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4210\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CBC}ᢜ\x{10EA4}\x{0ACD}.\x{AC00D}", %p)}, undef, "to_ascii\(\'\\u0CBCᢜ\\uD803\\uDEA4\\u0ACD\.\\uDA70\\uDC0D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4211\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{077F}。\x{1B38}\x{200C}≯\x{1DE3}", %p)}, undef, "to_ascii\(\'\\u077F\。\\u1B38\\u200C\≯\\u1DE3\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4213\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{077F}。\x{1B38}\x{200C}>\x{0338}\x{1DE3}", %p)}, undef, "to_ascii\(\'\\u077F\。\\u1B38\\u200C\>\\u0338\\u1DE3\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4215\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0351}𝟏.ᡢ\x{60DEF}Ⴉ", %p)}, undef, "to_ascii\(\'\\u0351𝟏\.ᡢ\\uD943\\uDDEFႩ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4216\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0351}1.ᡢ\x{60DEF}Ⴉ", %p)}, undef, "to_ascii\(\'\\u03511\.ᡢ\\uD943\\uDDEFႩ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4217\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0351}1.ᡢ\x{60DEF}ⴉ", %p)}, undef, "to_ascii\(\'\\u03511\.ᡢ\\uD943\\uDDEFⴉ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4218\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0351}𝟏.ᡢ\x{60DEF}ⴉ", %p)}, undef, "to_ascii\(\'\\u0351𝟏\.ᡢ\\uD943\\uDDEFⴉ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4219\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("閃𝟹\x{0FAF}。Ↄ\x{10E67}\x{067D}\x{1B44}", %p)}, undef, "to_ascii\(\'閃𝟹\\u0FAF\。Ↄ\\uD803\\uDE67\\u067D\\u1B44\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4220\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("閃3\x{0FAF}。Ↄ\x{10E67}\x{067D}\x{1B44}", %p)}, undef, "to_ascii\(\'閃3\\u0FAF\。Ↄ\\uD803\\uDE67\\u067D\\u1B44\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4221\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0FAF}。ↄ\x{10E67}\x{067D}\x{1B44}", %p)}, undef, "to_ascii\(\'閃3\\u0FAF\。ↄ\\uD803\\uDE67\\u067D\\u1B44\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4222\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0FAF}。ↄ\x{10E67}\x{067D}\x{1B44}", %p)}, undef, "to_ascii\(\'閃𝟹\\u0FAF\。ↄ\\uD803\\uDE67\\u067D\\u1B44\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4223\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{2D7F}\x{0768}\x{A8C4}𝟿.𝟚\x{E015B}\x{A950}︒", %p)}, undef, "to_ascii\(\'\\u2D7F\\u0768\\uA8C4𝟿\.𝟚\\uDB40\\uDD5B\\uA950︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4224\]") 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{2D7F}\x{0768}\x{A8C4}9.2\x{E015B}\x{A950}。", %p)}, undef, "to_ascii\(\'\\u2D7F\\u0768\\uA8C49\.2\\uDB40\\uDD5B\\uA950\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4225\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{93904}。≠-\x{20CD}⾛", %p)}, undef, "to_ascii\(\'\\uDA0E\\uDD04。\≠\-\\u20CD⾛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4226\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{93904}。=\x{0338}-\x{20CD}⾛", %p)}, undef, "to_ascii\(\'\\uDA0E\\uDD04。\=\\u0338\-\\u20CD⾛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4227\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{93904}。≠-\x{20CD}走", %p)}, undef, "to_ascii\(\'\\uDA0E\\uDD04\。\≠\-\\u20CD走\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4228\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{93904}。=\x{0338}-\x{20CD}走", %p)}, undef, "to_ascii\(\'\\uDA0E\\uDD04\。\=\\u0338\-\\u20CD走\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4229\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡦ\x{10E77}Ⴊ。-≠\x{1160}", %p)}, undef, "to_ascii\(\'ꡦ\\uD803\\uDE77Ⴊ\。\-\≠\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:4230\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡦ\x{10E77}Ⴊ。-=\x{0338}\x{1160}", %p)}, undef, "to_ascii\(\'ꡦ\\uD803\\uDE77Ⴊ\。\-\=\\u0338\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:4231\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡦ\x{10E77}ⴊ。-=\x{0338}\x{1160}", %p)}, undef, "to_ascii\(\'ꡦ\\uD803\\uDE77ⴊ\。\-\=\\u0338\\u1160\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:4232\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡦ\x{10E77}ⴊ。-≠\x{1160}", %p)}, undef, "to_ascii\(\'ꡦ\\uD803\\uDE77ⴊ\。\-\≠\\u1160\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:4233\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10EF7}\x{10E76}⁹≯。\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDEF7\\uD803\\uDE76⁹\≯。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4235\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10EF7}\x{10E76}⁹>\x{0338}。\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDEF7\\uD803\\uDE76⁹\>\\u0338。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4237\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10EF7}\x{10E76}9≯。\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDEF7\\uD803\\uDE769\≯\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4239\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10EF7}\x{10E76}9>\x{0338}。\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDEF7\\uD803\\uDE769\>\\u0338\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4241\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⁸。甯", %p)}, "8.xn--qny", "to_ascii\(\'⁸\。甯\'\)\ \[data\/IdnaTest\.txt\:4242\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8。甯", %p)}, "8.xn--qny", "to_ascii\(\'8\。甯\'\)\ \[data\/IdnaTest\.txt\:4243\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8.xn--qny", %p)}, "8.xn--qny", "to_ascii\(\'8\.xn\-\-qny\'\)\ \[data\/IdnaTest\.txt\:4244\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8.甯", %p)}, "8.xn--qny", "to_ascii\(\'8\.甯\'\)\ \[data\/IdnaTest\.txt\:4245\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-⾆.\x{0CCD}", %p)}, undef, "to_ascii\(\'\-⾆.\\u0CCD\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4246\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-舌.\x{0CCD}", %p)}, undef, "to_ascii\(\'\-舌\.\\u0CCD\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4247\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。ᠵ", %p)}, undef, "to_ascii\(\'\-。ᠵ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4248\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。ᠵ", %p)}, undef, "to_ascii\(\'\-\。ᠵ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4249\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹂Ⴋ.≮", %p)}, undef, "to_ascii\(\'﹂Ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4250\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹂Ⴋ.<\x{0338}", %p)}, undef, "to_ascii\(\'﹂Ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4251\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("」Ⴋ.≮", %p)}, undef, "to_ascii\(\'\」Ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4252\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("」Ⴋ.<\x{0338}", %p)}, undef, "to_ascii\(\'\」Ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4253\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("」ⴋ.<\x{0338}", %p)}, undef, "to_ascii\(\'\」ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("」ⴋ.≮", %p)}, undef, "to_ascii\(\'\」ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4255\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹂ⴋ.<\x{0338}", %p)}, undef, "to_ascii\(\'﹂ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4256\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹂ⴋ.≮", %p)}, undef, "to_ascii\(\'﹂ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4257\]") 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{200C}\x{0351}", %p)}, undef, "to_ascii\(\'璼🐬。\\u200C\\u0351\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4259\]") 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{200C}\x{0351}", %p)}, undef, "to_ascii\(\'璼🐬\。\\u200C\\u0351\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4261\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{10E63}𝟹𦗙。-⁰\x{E0D43}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE63𝟹𦗙。\-⁰\\uDB43\\uDD43\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4262\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E63}3𦗙。-0\x{E0D43}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE633𦗙\。\-0\\uDB43\\uDD43\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4263\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.\x{200C}", %p)}, undef, "to_ascii\(\'\\u200C\.\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4265\]") 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{200D}튛.ꡃ", %p)}, undef, "to_ascii\(\'\\u200D튛\.ꡃ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4267\]") 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{200D}튛.ꡃ", %p)}, undef, "to_ascii\(\'\\u200D튛\.ꡃ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4269\]") 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--157b.xn--cc9a", %p)}, "xn--157b.xn--cc9a", "to_ascii\(\'xn\-\-157b\.xn\-\-cc9a\'\)\ \[data\/IdnaTest\.txt\:4270\]") 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--157b.xn--cc9a", "to_ascii\(\'튛\.ꡃ\'\)\ \[data\/IdnaTest\.txt\:4271\]") 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--157b.xn--cc9a", "to_ascii\(\'튛\.ꡃ\'\)\ \[data\/IdnaTest\.txt\:4272\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{07D1}\x{0600}\x{FBED}.\x{07E0}ⴞ", %p)}, undef, "to_ascii\(\'\\u07D1\\u0600\\uFBED\.\\u07E0ⴞ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4273\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D1}\x{0600}\x{0626}\x{06D5}.\x{07E0}ⴞ", %p)}, undef, "to_ascii\(\'\\u07D1\\u0600\\u0626\\u06D5\.\\u07E0ⴞ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4274\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D1}\x{0600}\x{064A}\x{0654}\x{06D5}.\x{07E0}ⴞ", %p)}, undef, "to_ascii\(\'\\u07D1\\u0600\\u064A\\u0654\\u06D5\.\\u07E0ⴞ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4275\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D1}\x{0600}\x{064A}\x{0654}\x{06D5}.\x{07E0}Ⴞ", %p)}, undef, "to_ascii\(\'\\u07D1\\u0600\\u064A\\u0654\\u06D5\.\\u07E0Ⴞ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4276\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D1}\x{0600}\x{0626}\x{06D5}.\x{07E0}Ⴞ", %p)}, undef, "to_ascii\(\'\\u07D1\\u0600\\u0626\\u06D5\.\\u07E0Ⴞ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4277\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D1}\x{0600}\x{FBED}.\x{07E0}Ⴞ", %p)}, undef, "to_ascii\(\'\\u07D1\\u0600\\uFBED\.\\u07E0Ⴞ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4278\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EFCE}\x{10E7E}\x{E011A}⁷.\x{0602}\x{0661}Ⴇ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDFCE\\uD803\\uDE7E\\uDB40\\uDD1A⁷.\\u0602\\u0661Ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4279\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EFCE}\x{10E7E}\x{E011A}7.\x{0602}\x{0661}Ⴇ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDFCE\\uD803\\uDE7E\\uDB40\\uDD1A7\.\\u0602\\u0661Ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4280\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EFCE}\x{10E7E}\x{E011A}7.\x{0602}\x{0661}ⴇ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDFCE\\uD803\\uDE7E\\uDB40\\uDD1A7\.\\u0602\\u0661ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4281\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EFCE}\x{10E7E}\x{E011A}⁷.\x{0602}\x{0661}ⴇ", %p)}, undef, "to_ascii\(\'\\uD83B\\uDFCE\\uD803\\uDE7E\\uDB40\\uDD1A⁷.\\u0602\\u0661ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4282\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴗ.\x{11042}\x{1734}\x{1C33}\x{317F0}", %p)}, undef, "to_ascii\(\'Ⴗ.\\uD804\\uDC42\\u1734\\u1C33\\uD885\\uDFF0\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4283\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴗ.\x{11042}\x{1734}\x{1C33}\x{317F0}", %p)}, undef, "to_ascii\(\'Ⴗ\.\\uD804\\uDC42\\u1734\\u1C33\\uD885\\uDFF0\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4284\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴗ.\x{11042}\x{1734}\x{1C33}\x{317F0}", %p)}, undef, "to_ascii\(\'ⴗ\.\\uD804\\uDC42\\u1734\\u1C33\\uD885\\uDFF0\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4285\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴗ.\x{11042}\x{1734}\x{1C33}\x{317F0}", %p)}, undef, "to_ascii\(\'ⴗ.\\uD804\\uDC42\\u1734\\u1C33\\uD885\\uDFF0\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4286\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۰\x{C7CA9}.\x{794D6}\x{06DD}", %p)}, undef, "to_ascii\(\'۰\\uDADF\\uDCA9.\\uD9A5\\uDCD6\\u06DD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4287\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۰\x{C7CA9}.\x{794D6}\x{06DD}", %p)}, undef, "to_ascii\(\'۰\\uDADF\\uDCA9\.\\uD9A5\\uDCD6\\u06DD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4288\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈酫︒。\x{17B4}", %p)}, undef, "to_ascii\(\'⒈酫︒\。\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4289\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.酫。。\x{17B4}", %p)}, undef, "to_ascii\(\'1\.酫\。\。\\u17B4\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:4290\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B62}\x{200C}≮\x{0FB4}.\x{200C}\x{1A60}", %p)}, undef, "to_ascii\(\'\\u0B62\\u200C\≮\\u0FB4\.\\u200C\\u1A60\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4292\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B62}\x{200C}<\x{0338}\x{0FB4}.\x{200C}\x{1A60}", %p)}, undef, "to_ascii\(\'\\u0B62\\u200C\<\\u0338\\u0FB4\.\\u200C\\u1A60\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4294\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E5D}。ႷႽ𝟶\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE5D\。ႷႽ𝟶\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4296\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E5D}。ႷႽ0\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE5D\。ႷႽ0\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4298\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E5D}。ⴗⴝ0\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE5D\。ⴗⴝ0\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4300\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E5D}。Ⴗⴝ0\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE5D\。Ⴗⴝ0\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4302\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E5D}。ⴗⴝ𝟶\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE5D\。ⴗⴝ𝟶\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4304\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E5D}。Ⴗⴝ𝟶\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE5D\。Ⴗⴝ𝟶\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[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{0A4D}\x{0BCD}𝟖.\x{1EE0F}\x{20D1}-", %p)}, undef, "to_ascii\(\'\\u0A4D\\u0BCD𝟖\.\\uD83B\\uDE0F\\u20D1\-\'\)\ throws\ error\ V5\ V3\ B3\ \[data\/IdnaTest\.txt\:4307\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0A4D}\x{0BCD}8.\x{0639}\x{20D1}-", %p)}, undef, "to_ascii\(\'\\u0A4D\\u0BCD8\.\\u0639\\u20D1\-\'\)\ throws\ error\ V5\ V3\ B3\ \[data\/IdnaTest\.txt\:4308\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0F14}\x{19FD9}\x{06DD}。𧛥\x{A953}\x{07D1}\x{062F}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDF14\\uD827\\uDFD9\\u06DD。𧛥\\uA953\\u07D1\\u062F\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:4309\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0F14}\x{19FD9}\x{06DD}。𧛥\x{A953}\x{07D1}\x{062F}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDF14\\uD827\\uDFD9\\u06DD\。𧛥\\uA953\\u07D1\\u062F\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:4310\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠮ\x{57F32}\x{0663}\x{0342}。ςᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_ascii\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342。ςᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4312\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠮ\x{57F32}\x{0663}\x{0342}。ςᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_ascii\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342\。ςᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4314\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠮ\x{57F32}\x{0663}\x{0342}。Σᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_ascii\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342\。Σᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4316\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠮ\x{57F32}\x{0663}\x{0342}。σᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_ascii\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342\。σᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4318\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠮ\x{57F32}\x{0663}\x{0342}。Σᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_ascii\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342。Σᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4320\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠮ\x{57F32}\x{0663}\x{0342}。σᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_ascii\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342。σᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4322\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}--≮。\x{10E64}", %p)}, undef, "to_ascii\(\'\\u200D\-\-\≮\。\\uD803\\uDE64\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:4324\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}--<\x{0338}。\x{10E64}", %p)}, undef, "to_ascii\(\'\\u200D\-\-\<\\u0338\。\\uD803\\uDE64\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:4326\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}。\x{1A862}\x{0F84}𝟗", %p)}, undef, "to_ascii\(\'\\u0BCD\。\\uD82A\\uDC62\\u0F84𝟗\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4327\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}。\x{1A862}\x{0F84}9", %p)}, undef, "to_ascii\(\'\\u0BCD\。\\uD82A\\uDC62\\u0F849\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4328\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{EB44E}\x{0682}.\x{0942}\x{10E73}", %p)}, undef, "to_ascii\(\'\\uDB6D\\uDC4E\\u0682.\\u0942\\uD803\\uDE73\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4329\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{EB44E}\x{0682}.\x{0942}\x{10E73}", %p)}, undef, "to_ascii\(\'\\uDB6D\\uDC4E\\u0682\.\\u0942\\uD803\\uDE73\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4330\]") 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{2060}ꡜ-。\x{067E}", %p)}, undef, "to_ascii\(\'\\u2060ꡜ\-\。\\u067E\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4331\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝟙4\x{E0046}\x{E01F0}.\x{200D}1✯\x{200D}", %p)}, undef, "to_ascii\(\'𝟙4\\uDB40\\uDC46\\uDB40\\uDDF0.\\u200D1\✯\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4333\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("14\x{E0046}\x{E01F0}.\x{200D}1✯\x{200D}", %p)}, undef, "to_ascii\(\'14\\uDB40\\uDC46\\uDB40\\uDDF0\.\\u200D1\✯\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4335\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E71}。ꡪ", %p)}, undef, "to_ascii\(\'\-\\uD803\\uDE71。ꡪ\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4336\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E71}。ꡪ", %p)}, undef, "to_ascii\(\'\-\\uD803\\uDE71\。ꡪ\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4337\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≮𝟎.謖ß≯", %p)}, undef, "to_ascii\(\'\≮𝟎.謖ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4338\]") 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\:4339\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮0.謖ß≯", %p)}, undef, "to_ascii\(\'\≮0\.謖ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4340\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}0.謖ß>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03380\.謖ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4341\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}0.謖SS>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03380\.謖SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4342\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮0.謖SS≯", %p)}, undef, "to_ascii\(\'\≮0\.謖SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4343\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮0.謖ss≯", %p)}, undef, "to_ascii\(\'\≮0\.謖ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4344\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}0.謖ss>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03380\.謖ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4345\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}0.謖Ss>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03380\.謖Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4346\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮0.謖Ss≯", %p)}, undef, "to_ascii\(\'\≮0\.謖Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4347\]") 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\:4348\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮𝟎.謖SS≯", %p)}, undef, "to_ascii\(\'\≮𝟎.謖SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4349\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮𝟎.謖ss≯", %p)}, undef, "to_ascii\(\'\≮𝟎.謖ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4350\]") 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\:4351\]") 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\:4352\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮𝟎.謖Ss≯", %p)}, undef, "to_ascii\(\'\≮𝟎.謖Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4353\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("朶Ⴉ\x{10DA0}.\x{2DEC}\x{110B9}⼲-", %p)}, undef, "to_ascii\(\'朶Ⴉ\\uD803\\uDDA0\.\\u2DEC\\uD804\\uDCB9⼲\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4354\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("朶Ⴉ\x{10DA0}.\x{110B9}\x{2DEC}⼲-", %p)}, undef, "to_ascii\(\'朶Ⴉ\\uD803\\uDDA0\.\\uD804\\uDCB9\\u2DEC⼲\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4355\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("朶Ⴉ\x{10DA0}.\x{110B9}\x{2DEC}干-", %p)}, undef, "to_ascii\(\'朶Ⴉ\\uD803\\uDDA0\.\\uD804\\uDCB9\\u2DEC干\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4356\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("朶ⴉ\x{10DA0}.\x{110B9}\x{2DEC}干-", %p)}, undef, "to_ascii\(\'朶ⴉ\\uD803\\uDDA0\.\\uD804\\uDCB9\\u2DEC干\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4357\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("朶ⴉ\x{10DA0}.\x{110B9}\x{2DEC}⼲-", %p)}, undef, "to_ascii\(\'朶ⴉ\\uD803\\uDDA0\.\\uD804\\uDCB9\\u2DEC⼲\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4358\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("朶ⴉ\x{10DA0}.\x{2DEC}\x{110B9}⼲-", %p)}, undef, "to_ascii\(\'朶ⴉ\\uD803\\uDDA0\.\\u2DEC\\uD804\\uDCB9⼲\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4359\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E8A4}。\x{E845A}\x{200C}≮\x{200D}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDCA4\。\\uDB61\\uDC5A\\u200C\≮\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:4361\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E8A4}。\x{E845A}\x{200C}<\x{0338}\x{200D}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDCA4\。\\uDB61\\uDC5A\\u200C\<\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:4363\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{90BA1}⒈。\x{200C}2", %p)}, undef, "to_ascii\(\'\\uDA02\\uDFA1⒈。\\u200C2\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4365\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{90BA1}1.。\x{200C}2", %p)}, undef, "to_ascii\(\'\\uDA02\\uDFA11\.\。\\u200C2\'\)\ throws\ error\ P1\ V6\ A4_2\ C1\ \[data\/IdnaTest\.txt\:4367\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0611}\x{10E70}\x{200D}.\x{10E67}\x{52922}\x{0604}", %p)}, undef, "to_ascii\(\'\\u0611\\uD803\\uDE70\\u200D.\\uD803\\uDE67\\uD90A\\uDD22\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4369\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0611}\x{10E70}\x{200D}.\x{10E67}\x{52922}\x{0604}", %p)}, undef, "to_ascii\(\'\\u0611\\uD803\\uDE70\\u200D\.\\uD803\\uDE67\\uD90A\\uDD22\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4371\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡀ\x{10E6F}\x{0F84}\x{1ECF0}.\x{0CCD}\x{0943}\x{37769}", %p)}, undef, "to_ascii\(\'ᡀ\\uD803\\uDE6F\\u0F84\\uD83B\\uDCF0.\\u0CCD\\u0943\\uD89D\\uDF69\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4372\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡀ\x{10E6F}\x{0F84}\x{1ECF0}.\x{0CCD}\x{0943}\x{37769}", %p)}, undef, "to_ascii\(\'ᡀ\\uD803\\uDE6F\\u0F84\\uD83B\\uDCF0\.\\u0CCD\\u0943\\uD89D\\uDF69\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4373\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E66}。\x{0660}\x{0667}\x{4058C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE66。\\u0660\\u0667\\uD8C1\\uDD8C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4374\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E66}。\x{0660}\x{0667}\x{4058C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE66\。\\u0660\\u0667\\uD8C1\\uDD8C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4375\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1160}\x{BC3E5}.8\x{E5448}ᢝ", %p)}, undef, "to_ascii\(\'\\u1160\\uDAB0\\uDFE5\.8\\uDB55\\uDC48ᢝ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4376\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{E0191}。ß\x{05B1}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\uDB40\\uDD91。ß\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4378\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{E0191}。ß\x{05B1}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\uDB40\\uDD91\。ß\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4380\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{E0191}。SS\x{05B1}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\uDB40\\uDD91\。SS\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4382\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{E0191}。ss\x{05B1}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\uDB40\\uDD91\。ss\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4384\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{E0191}。Ss\x{05B1}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\uDB40\\uDD91\。Ss\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4386\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ss-8id", %p)}, "xn--ss-8id", "to_ascii\(\'xn\-\-ss\-8id\'\)\ \[data\/IdnaTest\.txt\:4387\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{05B1}", %p)}, "xn--ss-8id", "to_ascii\(\'ss\\u05B1\'\)\ \[data\/IdnaTest\.txt\:4388\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{05B1}", %p)}, "xn--ss-8id", "to_ascii\(\'SS\\u05B1\'\)\ \[data\/IdnaTest\.txt\:4389\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{05B1}", %p)}, "xn--ss-8id", "to_ascii\(\'Ss\\u05B1\'\)\ \[data\/IdnaTest\.txt\:4390\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{E0191}。SS\x{05B1}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\uDB40\\uDD91。SS\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4392\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{E0191}。ss\x{05B1}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\uDB40\\uDD91。ss\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4394\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{E0191}。Ss\x{05B1}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\uDB40\\uDD91。Ss\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4396\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒\x{200C}ヶ䒩.ᡱ", %p)}, undef, "to_ascii\(\'︒\\u200Cヶ䒩\.ᡱ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4398\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。\x{200C}ヶ䒩.ᡱ", %p)}, undef, "to_ascii\(\'\。\\u200Cヶ䒩\.ᡱ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4400\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--qekw60d.xn--e9e", %p)}, "xn--qekw60d.xn--e9e", "to_ascii\(\'xn\-\-qekw60d\.xn\-\-e9e\'\)\ \[data\/IdnaTest\.txt\:4401\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ヶ䒩.ᡱ", %p)}, "xn--qekw60d.xn--e9e", "to_ascii\(\'ヶ䒩\.ᡱ\'\)\ \[data\/IdnaTest\.txt\:4402\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}⒈\x{4E6D1}.\x{7049C}\x{10A3F}", %p)}, undef, "to_ascii\(\'\\u200C⒈\\uD8F9\\uDED1\.\\uD981\\uDC9C\\uD802\\uDE3F\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4404\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}1.\x{4E6D1}.\x{7049C}\x{10A3F}", %p)}, undef, "to_ascii\(\'\\u200C1\.\\uD8F9\\uDED1\.\\uD981\\uDC9C\\uD802\\uDE3F\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4406\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{200C}ꡏ\x{E0EAD}。\x{0ACD}\x{E336E}\x{200D}", %p)}, undef, "to_ascii\(\'⒈\\u200Cꡏ\\uDB43\\uDEAD\。\\u0ACD\\uDB4C\\uDF6E\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C1\ C2\ \[data\/IdnaTest\.txt\:4408\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{200C}ꡏ\x{E0EAD}。\x{0ACD}\x{E336E}\x{200D}", %p)}, undef, "to_ascii\(\'1\.\\u200Cꡏ\\uDB43\\uDEAD\。\\u0ACD\\uDB4C\\uDF6E\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C1\ C2\ \[data\/IdnaTest\.txt\:4410\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E002E}。₀\x{0818}䬺⒈", %p)}, undef, "to_ascii\(\'\\uDB40\\uDC2E。₀\\u0818䬺⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4411\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E002E}。0\x{0818}䬺1.", %p)}, undef, "to_ascii\(\'\\uDB40\\uDC2E\。0\\u0818䬺1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4412\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B3A48}≯。盚\x{08A8}", %p)}, undef, "to_ascii\(\'\\uDA8E\\uDE48\≯\。盚\\u08A8\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4413\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B3A48}>\x{0338}。盚\x{08A8}", %p)}, undef, "to_ascii\(\'\\uDA8E\\uDE48\>\\u0338\。盚\\u08A8\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4414\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{8A18C}\x{07B0}。-\x{A67C}\x{10B49}≯", %p)}, undef, "to_ascii\(\'\-\\uD9E8\\uDD8C\\u07B0\。\-\\uA67C\\uD802\\uDF49\≯\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4415\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{8A18C}\x{07B0}。-\x{A67C}\x{10B49}>\x{0338}", %p)}, undef, "to_ascii\(\'\-\\uD9E8\\uDD8C\\u07B0\。\-\\uA67C\\uD802\\uDF49\>\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4416\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9DC5}\x{116B6}\x{200C}\x{1A60}.\x{10F94}\x{59DB8}", %p)}, undef, "to_ascii\(\'\\uDA67\\uDDC5\\uD805\\uDEB6\\u200C\\u1A60.\\uD803\\uDF94\\uD927\\uDDB8\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4417\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9DC5}\x{116B6}\x{200C}\x{1A60}.\x{10F94}\x{59DB8}", %p)}, undef, "to_ascii\(\'\\uDA67\\uDDC5\\uD805\\uDEB6\\u200C\\u1A60\.\\uD803\\uDF94\\uD927\\uDDB8\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4418\]") 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{069B}\x{067B}ꡒ\x{200D}", %p)}, undef, "to_ascii\(\'⾇\.\\u069B\\u067Bꡒ\\u200D\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4420\]") 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{069B}\x{067B}ꡒ\x{200D}", %p)}, undef, "to_ascii\(\'舛\.\\u069B\\u067Bꡒ\\u200D\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4422\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("5\x{587FA}。ᢏ≯", %p)}, undef, "to_ascii\(\'5\\uD921\\uDFFA\。ᢏ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4423\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("5\x{587FA}。ᢏ>\x{0338}", %p)}, undef, "to_ascii\(\'5\\uD921\\uDFFA\。ᢏ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4424\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("5\x{587FA}。ᢏ≯", %p)}, undef, "to_ascii\(\'5\\uD921\\uDFFA\。ᢏ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4425\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("5\x{587FA}。ᢏ>\x{0338}", %p)}, undef, "to_ascii\(\'5\\uD921\\uDFFA\。ᢏ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4426\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1C440}\x{10F74}\x{16597}硲.ᡯ", %p)}, undef, "to_ascii\(\'\\uD831\\uDC40\\uD803\\uDF74\\uD819\\uDD97硲.ᡯ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4427\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1C440}\x{10F74}\x{16597}硲.ᡯ", %p)}, undef, "to_ascii\(\'\\uD831\\uDC40\\uD803\\uDF74\\uD819\\uDD97硲\.ᡯ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4428\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.\x{11040}\x{10E6F}Ⴆ\x{009C}", %p)}, undef, "to_ascii\(\'\\u200C\.\\uD804\\uDC40\\uD803\\uDE6FႦ\\u009C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:4430\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.\x{11040}\x{10E6F}ⴆ\x{009C}", %p)}, undef, "to_ascii\(\'\\u200C\.\\uD804\\uDC40\\uD803\\uDE6Fⴆ\\u009C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:4432\]") 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{0685}.\x{AAF6}\x{200D}Ϟ", %p)}, undef, "to_ascii\(\'\\u0685.\\uAAF6\\u200DϞ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4433\]") 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{0685}.\x{AAF6}\x{200D}Ϟ", %p)}, undef, "to_ascii\(\'\\u0685\.\\uAAF6\\u200DϞ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4434\]") 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{0685}.\x{AAF6}\x{200D}ϟ", %p)}, undef, "to_ascii\(\'\\u0685\.\\uAAF6\\u200Dϟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4435\]") 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{0685}.\x{AAF6}\x{200D}ϟ", %p)}, undef, "to_ascii\(\'\\u0685.\\uAAF6\\u200Dϟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4436\]") 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{1EE51}\x{0D4D}。\x{0626}\x{0767}-腍", %p)}, undef, "to_ascii\(\'\\u200C\\uD83B\\uDE51\\u0D4D\。\\u0626\\u0767\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4438\]") 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{1EE51}\x{0D4D}。\x{064A}\x{0654}\x{0767}-腍", %p)}, undef, "to_ascii\(\'\\u200C\\uD83B\\uDE51\\u0D4D\。\\u064A\\u0654\\u0767\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4440\]") 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{0635}\x{0D4D}。\x{0626}\x{0767}-腍", %p)}, undef, "to_ascii\(\'\\u200C\\u0635\\u0D4D\。\\u0626\\u0767\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4442\]") 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{0635}\x{0D4D}。\x{064A}\x{0654}\x{0767}-腍", %p)}, undef, "to_ascii\(\'\\u200C\\u0635\\u0D4D\。\\u064A\\u0654\\u0767\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4444\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-\x{7366F}\x{10E70}𤾆。⒗\x{E4B97}𝟪", %p)}, undef, "to_ascii\(\'\-\\uD98D\\uDE6F\\uD803\\uDE70𤾆。⒗\\uDB52\\uDF97𝟪\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4445\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{7366F}\x{10E70}𤾆。16.\x{E4B97}8", %p)}, undef, "to_ascii\(\'\-\\uD98D\\uDE6F\\uD803\\uDE70𤾆\。16\.\\uDB52\\uDF978\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4446\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🁪.Ⴂᠺ\x{1714}3", %p)}, undef, "to_ascii\(\'🁪.Ⴂᠺ\\u17143\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4447\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🁪.Ⴂᠺ\x{1714}3", %p)}, undef, "to_ascii\(\'🁪\.Ⴂᠺ\\u17143\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4448\]") 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{1714}3", %p)}, "xn--jw7h.xn--3-kpjx0e812d", "to_ascii\(\'🁪\.ⴂᠺ\\u17143\'\)\ \[data\/IdnaTest\.txt\:4449\]") 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--jw7h.xn--3-kpjx0e812d", %p)}, "xn--jw7h.xn--3-kpjx0e812d", "to_ascii\(\'xn\-\-jw7h\.xn\-\-3\-kpjx0e812d\'\)\ \[data\/IdnaTest\.txt\:4450\]") 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{1714}3", %p)}, "xn--jw7h.xn--3-kpjx0e812d", "to_ascii\(\'🁪.ⴂᠺ\\u17143\'\)\ \[data\/IdnaTest\.txt\:4451\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("軥ᡋ.-\x{031D}", %p)}, undef, "to_ascii\(\'軥ᡋ\.\-\\u031D\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4452\]") 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{10E69}ᡴ\x{06B6}.\x{08F6}-", %p)}, undef, "to_ascii\(\'\\uD803\\uDE69ᡴ\\u06B6\.\\u08F6\-\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:4453\]") 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{E01B9}۴。\x{1BA3}\x{A67D}톇십", %p)}, undef, "to_ascii\(\'\-\\uDB40\\uDDB9۴。\\u1BA3\\uA67D톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4454\]") 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{E01B9}۴。\x{1BA3}\x{A67D}톇십", %p)}, undef, "to_ascii\(\'\-\\uDB40\\uDDB9۴。\\u1BA3\\uA67D톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4455\]") 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{E01B9}۴。\x{1BA3}\x{A67D}톇십", %p)}, undef, "to_ascii\(\'\-\\uDB40\\uDDB9۴\。\\u1BA3\\uA67D톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4456\]") 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{E01B9}۴。\x{1BA3}\x{A67D}톇십", %p)}, undef, "to_ascii\(\'\-\\uDB40\\uDDB9۴\。\\u1BA3\\uA67D톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4457\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{075E}︒--。\x{05A5}靈\x{10E68}\x{6F851}", %p)}, undef, "to_ascii\(\'\\u075E︒\-\-。\\u05A5靈\\uD803\\uDE68\\uD97E\\uDC51\'\)\ throws\ error\ P1\ V2\ V3\ V6\ V5\ B3\ B1\ \[data\/IdnaTest\.txt\:4458\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075E}。--。\x{05A5}靈\x{10E68}\x{6F851}", %p)}, undef, "to_ascii\(\'\\u075E\。\-\-\。\\u05A5靈\\uD803\\uDE68\\uD97E\\uDC51\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4459\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}ႿႵრ。\x{0C4D}", %p)}, undef, "to_ascii\(\'\\u115FႿႵრ。\\u0C4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4460\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}ႿႵრ。\x{0C4D}", %p)}, undef, "to_ascii\(\'\\u115FႿႵრ\。\\u0C4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4461\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}ⴟⴕრ。\x{0C4D}", %p)}, undef, "to_ascii\(\'\\u115Fⴟⴕრ\。\\u0C4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4462\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}Ⴟⴕრ。\x{0C4D}", %p)}, undef, "to_ascii\(\'\\u115FႿⴕრ\。\\u0C4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4463\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}ⴟⴕრ。\x{0C4D}", %p)}, undef, "to_ascii\(\'\\u115Fⴟⴕრ。\\u0C4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4464\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}Ⴟⴕრ。\x{0C4D}", %p)}, undef, "to_ascii\(\'\\u115FႿⴕრ。\\u0C4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4465\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒛\x{10E69}.\x{10E71}\x{E01B0}", %p)}, undef, "to_ascii\(\'⒛\\uD803\\uDE69\.\\uD803\\uDE71\\uDB40\\uDDB0\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4466\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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("20.\x{10E69}.\x{10E71}\x{E01B0}", %p)}, undef, "to_ascii\(\'20\.\\uD803\\uDE69\.\\uD803\\uDE71\\uDB40\\uDDB0\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4467\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{95C0E}\x{200C}\x{10CBC}.ᢝ\x{06B4}\x{0A4D}", %p)}, undef, "to_ascii\(\'\\uDA17\\uDC0E\\u200C\\uD803\\uDCBC.ᢝ\\u06B4\\u0A4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4469\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{95C0E}\x{200C}\x{10CBC}.ᢝ\x{06B4}\x{0A4D}", %p)}, undef, "to_ascii\(\'\\uDA17\\uDC0E\\u200C\\uD803\\uDCBC\.ᢝ\\u06B4\\u0A4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4471\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200D}\x{10FAC}\x{200C}。ᠡ\x{1DDA}\x{17B5}", %p)}, undef, "to_ascii\(\'\\u200D\\u200D\\uD803\\uDFAC\\u200C\。ᠡ\\u1DDA\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:4473\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE9A}。\x{E0FC4}\x{C8ED5}\x{103A}", %p)}, undef, "to_ascii\(\'\\uFE9A\。\\uDB43\\uDFC4\\uDAE3\\uDED5\\u103A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4474\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062B}。\x{E0FC4}\x{C8ED5}\x{103A}", %p)}, undef, "to_ascii\(\'\\u062B\。\\uDB43\\uDFC4\\uDAE3\\uDED5\\u103A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4475\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}≠.\x{10A24}\x{0663}", %p)}, undef, "to_ascii\(\'\\u1A60\≠.\\uD802\\uDE24\\u0663\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4476\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}=\x{0338}.\x{10A24}\x{0663}", %p)}, undef, "to_ascii\(\'\\u1A60\=\\u0338.\\uD802\\uDE24\\u0663\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4477\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}≠.\x{10A24}\x{0663}", %p)}, undef, "to_ascii\(\'\\u1A60\≠\.\\uD802\\uDE24\\u0663\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4478\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A60}=\x{0338}.\x{10A24}\x{0663}", %p)}, undef, "to_ascii\(\'\\u1A60\=\\u0338\.\\uD802\\uDE24\\u0663\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4479\]") 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{A671}\x{11134}。\x{E0165}-", %p)}, undef, "to_ascii\(\'𝟮\\uA671\\uD804\\uDD34。\\uDB40\\uDD65\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4480\]") 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("2\x{A671}\x{11134}。\x{E0165}-", %p)}, undef, "to_ascii\(\'2\\uA671\\uD804\\uDD34\。\\uDB40\\uDD65\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4481\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᢢ\x{1DE6}\x{1714}Ⴇ.𝟙", %p)}, undef, "to_ascii\(\'ᢢ\\u1DE6\\u1714Ⴇ\.𝟙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4482\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢢ\x{1714}\x{1DE6}Ⴇ.𝟙", %p)}, undef, "to_ascii\(\'ᢢ\\u1714\\u1DE6Ⴇ\.𝟙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4483\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢢ\x{1714}\x{1DE6}Ⴇ.1", %p)}, undef, "to_ascii\(\'ᢢ\\u1714\\u1DE6Ⴇ\.1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4484\]") 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{1714}\x{1DE6}ⴇ.1", %p)}, "xn--fze90fu1iw8r.1", "to_ascii\(\'ᢢ\\u1714\\u1DE6ⴇ\.1\'\)\ \[data\/IdnaTest\.txt\:4485\]") 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--fze90fu1iw8r.1", %p)}, "xn--fze90fu1iw8r.1", "to_ascii\(\'xn\-\-fze90fu1iw8r\.1\'\)\ \[data\/IdnaTest\.txt\:4486\]") 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{1714}\x{1DE6}ⴇ.𝟙", %p)}, "xn--fze90fu1iw8r.1", "to_ascii\(\'ᢢ\\u1714\\u1DE6ⴇ\.𝟙\'\)\ \[data\/IdnaTest\.txt\:4487\]") 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{1DE6}\x{1714}ⴇ.𝟙", %p)}, "xn--fze90fu1iw8r.1", "to_ascii\(\'ᢢ\\u1DE6\\u1714ⴇ\.𝟙\'\)\ \[data\/IdnaTest\.txt\:4488\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᄹ。\x{0EB9}\x{7F879}⁍", %p)}, undef, "to_ascii\(\'ᄹ。\\u0EB9\\uD9BE\\uDC79\⁍\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4489\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᄹ。\x{0EB9}\x{7F879}⁍", %p)}, undef, "to_ascii\(\'ᄹ\。\\u0EB9\\uD9BE\\uDC79\⁍\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4490\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴆ\x{4CF36}.\x{0823}\x{0AC1}ᡥ", %p)}, undef, "to_ascii\(\'Ⴆ\\uD8F3\\uDF36.\\u0823\\u0AC1ᡥ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4491\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴆ\x{4CF36}.\x{0823}\x{0AC1}ᡥ", %p)}, undef, "to_ascii\(\'Ⴆ\\uD8F3\\uDF36\.\\u0823\\u0AC1ᡥ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4492\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴆ\x{4CF36}.\x{0823}\x{0AC1}ᡥ", %p)}, undef, "to_ascii\(\'ⴆ\\uD8F3\\uDF36\.\\u0823\\u0AC1ᡥ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4493\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴆ\x{4CF36}.\x{0823}\x{0AC1}ᡥ", %p)}, undef, "to_ascii\(\'ⴆ\\uD8F3\\uDF36.\\u0823\\u0AC1ᡥ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4494\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1E8E9}︒\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'ß\\uD83A\\uDCE9︒\\u0687.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4496\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1E8E9}。\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'ß\\uD83A\\uDCE9\。\\u0687\.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4498\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1E8E9}。\x{0687}.帼f\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'ß\\uD83A\\uDCE9\。\\u0687\.帼f\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4500\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{1E8E9}。\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'SS\\uD83A\\uDCE9\。\\u0687\.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4502\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{1E8E9}。\x{0687}.帼f\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'ss\\uD83A\\uDCE9\。\\u0687\.帼f\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4504\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{1E8E9}。\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'Ss\\uD83A\\uDCE9\。\\u0687\.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4506\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1E8E9}︒\x{0687}.帼f\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'ß\\uD83A\\uDCE9︒\\u0687.帼f\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4508\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{1E8E9}︒\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'SS\\uD83A\\uDCE9︒\\u0687.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4510\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{1E8E9}︒\x{0687}.帼f\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'ss\\uD83A\\uDCE9︒\\u0687.帼f\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4512\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{1E8E9}︒\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_ascii\(\'Ss\\uD83A\\uDCE9︒\\u0687.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4514\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{968F9}。\x{10E68}\x{108FE}\x{200D}", %p)}, undef, "to_ascii\(\'\\uDA1A\\uDCF9。\\uD803\\uDE68\\uD802\\uDCFE\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4516\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{968F9}。\x{10E68}\x{108FE}\x{200D}", %p)}, undef, "to_ascii\(\'\\uDA1A\\uDCF9\。\\uD803\\uDE68\\uD802\\uDCFE\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4518\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10F0C6}.\x{3C962}⒈\x{1BF2}", %p)}, undef, "to_ascii\(\'\\uDBFC\\uDCC6\.\\uD8B2\\uDD62⒈\\u1BF2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4519\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10F0C6}.\x{3C962}1.\x{1BF2}", %p)}, undef, "to_ascii\(\'\\uDBFC\\uDCC6\.\\uD8B2\\uDD621\.\\u1BF2\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4520\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2062}\x{1EFC8}。-1ႱႨ", %p)}, undef, "to_ascii\(\'\\u2062\\uD83B\\uDFC8\。\-1ႱႨ\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4521\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2062}\x{1EFC8}。-1ႱႨ", %p)}, undef, "to_ascii\(\'\\u2062\\uD83B\\uDFC8\。\-1ႱႨ\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4522\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2062}\x{1EFC8}。-1ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u2062\\uD83B\\uDFC8\。\-1ⴑⴈ\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4523\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2062}\x{1EFC8}。-1Ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u2062\\uD83B\\uDFC8\。\-1Ⴑⴈ\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4524\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2062}\x{1EFC8}。-1ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u2062\\uD83B\\uDFC8\。\-1ⴑⴈ\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4525\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2062}\x{1EFC8}。-1Ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u2062\\uD83B\\uDFC8\。\-1Ⴑⴈ\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4526\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢓ.-ᠷ︒", %p)}, undef, "to_ascii\(\'ᢓ.\-ᠷ︒\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4527\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢓ.-ᠷ。", %p)}, undef, "to_ascii\(\'ᢓ\.\-ᠷ\。\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4528\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1EF0E}.\x{E01A2}--", %p)}, undef, "to_ascii\(\'\\u200C\\uD83B\\uDF0E\.\\uDB40\\uDDA2\-\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:4530\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒒\x{EDEC7}Ⴢ.Ⴁ", %p)}, undef, "to_ascii\(\'⒒\\uDB77\\uDEC7Ⴢ\.Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4531\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("11.\x{EDEC7}Ⴢ.Ⴁ", %p)}, undef, "to_ascii\(\'11\.\\uDB77\\uDEC7Ⴢ\.Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4532\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("11.\x{EDEC7}ⴢ.ⴁ", %p)}, undef, "to_ascii\(\'11\.\\uDB77\\uDEC7ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4533\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("11.\x{EDEC7}Ⴢ.ⴁ", %p)}, undef, "to_ascii\(\'11\.\\uDB77\\uDEC7Ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4534\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒒\x{EDEC7}ⴢ.ⴁ", %p)}, undef, "to_ascii\(\'⒒\\uDB77\\uDEC7ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4535\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒒\x{EDEC7}Ⴢ.ⴁ", %p)}, undef, "to_ascii\(\'⒒\\uDB77\\uDEC7Ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4536\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{34887}\x{1BAA}5\x{83182}。\x{AD4DD}\x{E098A}ς", %p)}, undef, "to_ascii\(\'\\uD892\\uDC87\\u1BAA5\\uD9CC\\uDD82。\\uDA75\\uDCDD\\uDB42\\uDD8Aς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4537\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{34887}\x{1BAA}5\x{83182}。\x{AD4DD}\x{E098A}ς", %p)}, undef, "to_ascii\(\'\\uD892\\uDC87\\u1BAA5\\uD9CC\\uDD82\。\\uDA75\\uDCDD\\uDB42\\uDD8Aς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4538\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{34887}\x{1BAA}5\x{83182}。\x{AD4DD}\x{E098A}Σ", %p)}, undef, "to_ascii\(\'\\uD892\\uDC87\\u1BAA5\\uD9CC\\uDD82\。\\uDA75\\uDCDD\\uDB42\\uDD8AΣ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4539\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{34887}\x{1BAA}5\x{83182}。\x{AD4DD}\x{E098A}σ", %p)}, undef, "to_ascii\(\'\\uD892\\uDC87\\u1BAA5\\uD9CC\\uDD82\。\\uDA75\\uDCDD\\uDB42\\uDD8Aσ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4540\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{34887}\x{1BAA}5\x{83182}。\x{AD4DD}\x{E098A}Σ", %p)}, undef, "to_ascii\(\'\\uD892\\uDC87\\u1BAA5\\uD9CC\\uDD82。\\uDA75\\uDCDD\\uDB42\\uDD8AΣ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4541\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{34887}\x{1BAA}5\x{83182}。\x{AD4DD}\x{E098A}σ", %p)}, undef, "to_ascii\(\'\\uD892\\uDC87\\u1BAA5\\uD9CC\\uDD82。\\uDA75\\uDCDD\\uDB42\\uDD8Aσ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4542\]") 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{2DE1}ᡛ。\x{034C}\x{069D}", %p)}, undef, "to_ascii\(\'\\u2DE1ᡛ\。\\u034C\\u069D\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4543\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{10E79}ᢓ\x{2DF9}。\x{AD638}Ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE79ᢓ\\u2DF9。\\uDA75\\uDE38Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4545\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E79}ᢓ\x{2DF9}。\x{AD638}Ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE79ᢓ\\u2DF9\。\\uDA75\\uDE38Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4547\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E79}ᢓ\x{2DF9}。\x{AD638}ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE79ᢓ\\u2DF9\。\\uDA75\\uDE38ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4549\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E79}ᢓ\x{2DF9}。\x{AD638}ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE79ᢓ\\u2DF9。\\uDA75\\uDE38ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4551\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{094D}\x{1E82F}\x{E0B29}\x{200D}。-\x{10E7B}", %p)}, undef, "to_ascii\(\'\\u094D\\uD83A\\uDC2F\\uDB42\\uDF29\\u200D。\-\\uD803\\uDE7B\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:4553\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{094D}\x{1E82F}\x{E0B29}\x{200D}。-\x{10E7B}", %p)}, undef, "to_ascii\(\'\\u094D\\uD83A\\uDC2F\\uDB42\\uDF29\\u200D\。\-\\uD803\\uDE7B\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:4555\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B97A0}。\x{07D4}︒쯙𝟳", %p)}, undef, "to_ascii\(\'\\uDAA5\\uDFA0。\\u07D4︒쯙𝟳\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4556\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B97A0}。\x{07D4}︒쯙𝟳", %p)}, undef, "to_ascii\(\'\\uDAA5\\uDFA0。\\u07D4︒쯙𝟳\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4557\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B97A0}。\x{07D4}。쯙7", %p)}, undef, "to_ascii\(\'\\uDAA5\\uDFA0\。\\u07D4\。쯙7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4558\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{B97A0}。\x{07D4}。쯙7", %p)}, undef, "to_ascii\(\'\\uDAA5\\uDFA0\。\\u07D4\。쯙7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4559\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡀ-。\x{0850}≮뻐", %p)}, undef, "to_ascii\(\'ꡀ\-\。\\u0850\≮뻐\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4560\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡀ-。\x{0850}<\x{0338}뻐", %p)}, undef, "to_ascii\(\'ꡀ\-\。\\u0850\<\\u0338뻐\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4561\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E91F}-\x{6EC7F}.\x{077C}≠", %p)}, undef, "to_ascii\(\'\\uD83A\\uDD1F\-\\uD97B\\uDC7F.\\u077C\≠\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4562\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E91F}-\x{6EC7F}.\x{077C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDD1F\-\\uD97B\\uDC7F.\\u077C\=\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4563\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E91F}-\x{6EC7F}.\x{077C}≠", %p)}, undef, "to_ascii\(\'\\uD83A\\uDD1F\-\\uD97B\\uDC7F\.\\u077C\≠\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4564\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1E91F}-\x{6EC7F}.\x{077C}=\x{0338}", %p)}, undef, "to_ascii\(\'\\uD83A\\uDD1F\-\\uD97B\\uDC7F\.\\u077C\=\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4565\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}ςႼ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33ςႼ.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4566\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}ςႼ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33ςႼ\.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4567\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}ςⴜ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33ςⴜ\.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4568\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}ΣႼ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33ΣႼ\.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4569\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}σⴜ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33σⴜ\.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4570\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}Σⴜ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33Σⴜ\.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4571\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}ςⴜ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33ςⴜ.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4572\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}ΣႼ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33ΣႼ.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4573\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}σⴜ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33σⴜ.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4574\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{41233}Σⴜ.\x{10E7A}", %p)}, undef, "to_ascii\(\'\-\\uD8C4\\uDE33Σⴜ.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4575\]") 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{116B2}.\x{200D}𝟐\x{1112A}", %p)}, undef, "to_ascii\(\'\\uD805\\uDEB2\.\\u200D𝟐\\uD804\\uDD2A\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4577\]") 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{116B2}.\x{200D}2\x{1112A}", %p)}, undef, "to_ascii\(\'\\uD805\\uDEB2\.\\u200D2\\uD804\\uDD2A\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4579\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≯𝟎。\x{0D4D}ꡭ\x{B1DF6}", %p)}, undef, "to_ascii\(\'\≯𝟎。\\u0D4Dꡭ\\uDA87\\uDDF6\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4580\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}𝟎。\x{0D4D}ꡭ\x{B1DF6}", %p)}, undef, "to_ascii\(\'\>\\u0338𝟎。\\u0D4Dꡭ\\uDA87\\uDDF6\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4581\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯0。\x{0D4D}ꡭ\x{B1DF6}", %p)}, undef, "to_ascii\(\'\≯0\。\\u0D4Dꡭ\\uDA87\\uDDF6\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4582\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}0。\x{0D4D}ꡭ\x{B1DF6}", %p)}, undef, "to_ascii\(\'\>\\u03380\。\\u0D4Dꡭ\\uDA87\\uDDF6\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4583\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0746}Ↄ\x{0666}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u0746Ↄ\\u0666。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4585\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0746}Ↄ\x{0666}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u0746Ↄ\\u0666\。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4587\]") 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{0746}ↄ\x{0666}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u0746ↄ\\u0666\。\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4589\]") 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{0746}ↄ\x{0666}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u0746ↄ\\u0666。\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4591\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E0031}𝟼\x{200D}\x{10CF0}.\x{200D}ꡥ⒈", %p)}, undef, "to_ascii\(\'\\uDB40\\uDC31𝟼\\u200D\\uD803\\uDCF0\.\\u200Dꡥ⒈\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4593\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0031}6\x{200D}\x{10CF0}.\x{200D}ꡥ1.", %p)}, undef, "to_ascii\(\'\\uDB40\\uDC316\\u200D\\uD803\\uDCF0\.\\u200Dꡥ1\.\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4595\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0C4D}。嬶ß葽", %p)}, undef, "to_ascii\(\'\\u0C4D\。嬶ß葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4596\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0C4D}。嬶SS葽", %p)}, undef, "to_ascii\(\'\\u0C4D\。嬶SS葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4597\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0C4D}。嬶ss葽", %p)}, undef, "to_ascii\(\'\\u0C4D\。嬶ss葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4598\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0C4D}。嬶Ss葽", %p)}, undef, "to_ascii\(\'\\u0C4D\。嬶Ss葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4599\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{ABED}⒈。\x{3F3D1}\x{0665}", %p)}, undef, "to_ascii\(\'\\uABED⒈\。\\uD8BC\\uDFD1\\u0665\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4600\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{ABED}1.。\x{3F3D1}\x{0665}", %p)}, undef, "to_ascii\(\'\\uABED1\.\。\\uD8BC\\uDFD1\\u0665\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:4601\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B34}︒≮.\x{9A5E5}\x{1096E}\x{FDA5}", %p)}, undef, "to_ascii\(\'\\u1B34︒\≮.\\uDA29\\uDDE5\\uD802\\uDD6E\\uFDA5\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4602\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B34}︒<\x{0338}.\x{9A5E5}\x{1096E}\x{FDA5}", %p)}, undef, "to_ascii\(\'\\u1B34︒\<\\u0338.\\uDA29\\uDDE5\\uD802\\uDD6E\\uFDA5\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4603\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B34}。≮.\x{9A5E5}\x{1096E}\x{062C}\x{0645}\x{064A}", %p)}, undef, "to_ascii\(\'\\u1B34\。\≮\.\\uDA29\\uDDE5\\uD802\\uDD6E\\u062C\\u0645\\u064A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4604\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B34}。<\x{0338}.\x{9A5E5}\x{1096E}\x{062C}\x{0645}\x{064A}", %p)}, undef, "to_ascii\(\'\\u1B34\。\<\\u0338\.\\uDA29\\uDDE5\\uD802\\uDD6E\\u062C\\u0645\\u064A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4605\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0104}\x{10E6A}\x{8316D}.\x{E0BD8}ς\x{A2737}\x{C58AB}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD04\\uD803\\uDE6A\\uD9CC\\uDD6D\.\\uDB42\\uDFD8ς\\uDA49\\uDF37\\uDAD6\\uDCAB\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4606\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0104}\x{10E6A}\x{8316D}.\x{E0BD8}Σ\x{A2737}\x{C58AB}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD04\\uD803\\uDE6A\\uD9CC\\uDD6D\.\\uDB42\\uDFD8Σ\\uDA49\\uDF37\\uDAD6\\uDCAB\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4607\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0104}\x{10E6A}\x{8316D}.\x{E0BD8}σ\x{A2737}\x{C58AB}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD04\\uD803\\uDE6A\\uD9CC\\uDD6D\.\\uDB42\\uDFD8σ\\uDA49\\uDF37\\uDAD6\\uDCAB\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4608\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_ascii\(\'ς\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4610\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_ascii\(\'ς\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4612\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_ascii\(\'ς\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4614\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_ascii\(\'ς\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4616\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_ascii\(\'Σ\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4618\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_ascii\(\'Σ\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4620\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_ascii\(\'σ\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4622\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_ascii\(\'σ\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4624\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_ascii\(\'Σ\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4626\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_ascii\(\'Σ\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4628\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_ascii\(\'σ\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4630\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_ascii\(\'σ\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4632\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{E6D78}。-\x{1EBD6}\x{06BE}", %p)}, undef, "to_ascii\(\'\-\\uDB5B\\uDD78。\-\\uD83A\\uDFD6\\u06BE\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4633\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{E6D78}。-\x{1EBD6}\x{06BE}", %p)}, undef, "to_ascii\(\'\-\\uDB5B\\uDD78\。\-\\uD83A\\uDFD6\\u06BE\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4634\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⽶\x{45520}𝟵。\x{200D}\x{05AB}", %p)}, undef, "to_ascii\(\'⽶\\uD8D5\\uDD20𝟵。\\u200D\\u05AB\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4636\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("米\x{45520}9。\x{200D}\x{05AB}", %p)}, undef, "to_ascii\(\'米\\uD8D5\\uDD209\。\\u200D\\u05AB\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4638\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CF8}\x{200D}\x{08F0}\x{10E6F}。𫀎", %p)}, undef, "to_ascii\(\'\\u0CF8\\u200D\\u08F0\\uD803\\uDE6F。𫀎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4640\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CF8}\x{200D}\x{08F0}\x{10E6F}。𫀎", %p)}, undef, "to_ascii\(\'\\u0CF8\\u200D\\u08F0\\uD803\\uDE6F\。𫀎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4642\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E68}.Ⴍ🄁𝟰", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68.Ⴍ🄁𝟰\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4643\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E68}.Ⴍ0,4", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68\.Ⴍ0\,4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4644\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E68}.ⴍ0,4", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68\.ⴍ0\,4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4645\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E68}.ⴍ🄁𝟰", %p)}, undef, "to_ascii\(\'\\uD803\\uDE68.ⴍ🄁𝟰\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4646\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。ß\x{10E7D}3≯", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8。ß\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4648\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。ß\x{10E7D}3>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8。ß\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4650\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。ß\x{10E7D}3≯", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8\。ß\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4652\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。ß\x{10E7D}3>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8\。ß\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4654\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。SS\x{10E7D}3>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8\。SS\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4656\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。SS\x{10E7D}3≯", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8\。SS\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4658\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。ss\x{10E7D}3≯", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8\。ss\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4660\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。ss\x{10E7D}3>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8\。ss\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4662\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。Ss\x{10E7D}3>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8\。Ss\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4664\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。Ss\x{10E7D}3≯", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8\。Ss\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4666\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。SS\x{10E7D}3>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8。SS\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4668\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。SS\x{10E7D}3≯", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8。SS\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4670\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。ss\x{10E7D}3≯", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8。ss\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4672\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。ss\x{10E7D}3>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8。ss\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4674\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。Ss\x{10E7D}3>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8。Ss\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4676\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{AAB8}。Ss\x{10E7D}3≯", %p)}, undef, "to_ascii\(\'\\u200C\\uAAB8。Ss\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4678\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{10D62}\x{06A4}.\x{FB0C6}", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDD62\\u06A4.\\uDBAC\\uDCC6\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4680\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{10D62}\x{06A4}.\x{FB0C6}", %p)}, undef, "to_ascii\(\'\\u200C\\uD803\\uDD62\\u06A4\.\\uDBAC\\uDCC6\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4682\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{071D}\x{BE21D}-\x{C072C}。⫲Ⴛ\x{10A5B}\x{09E3}", %p)}, undef, "to_ascii\(\'\\u071D\\uDAB8\\uDE1D\-\\uDAC1\\uDF2C\。\⫲Ⴛ\\uD802\\uDE5B\\u09E3\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4683\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{071D}\x{BE21D}-\x{C072C}。⫲ⴛ\x{10A5B}\x{09E3}", %p)}, undef, "to_ascii\(\'\\u071D\\uDAB8\\uDE1D\-\\uDAC1\\uDF2C\。\⫲ⴛ\\uD802\\uDE5B\\u09E3\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4684\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0176}。\x{E097C}\x{05AB}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD76\。\\uDB42\\uDD7C\\u05AB\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4685\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{08A6}.Ⴕ\x{10DB7}\x{0602}\x{200D}", %p)}, undef, "to_ascii\(\'⾛\\u08A6\.Ⴕ\\uD803\\uDDB7\\u0602\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4687\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{08A6}.Ⴕ\x{10DB7}\x{0602}\x{200D}", %p)}, undef, "to_ascii\(\'走\\u08A6\.Ⴕ\\uD803\\uDDB7\\u0602\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4689\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{08A6}.ⴕ\x{10DB7}\x{0602}\x{200D}", %p)}, undef, "to_ascii\(\'走\\u08A6\.ⴕ\\uD803\\uDDB7\\u0602\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4691\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{08A6}.ⴕ\x{10DB7}\x{0602}\x{200D}", %p)}, undef, "to_ascii\(\'⾛\\u08A6\.ⴕ\\uD803\\uDDB7\\u0602\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4693\]") 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{0AE3}", %p)}, undef, "to_ascii\(\'\-ꡩ\\u200C𝟺\.\\u0AE3\'\)\ throws\ error\ V3\ V5\ C1\ \[data\/IdnaTest\.txt\:4695\]") 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}4.\x{0AE3}", %p)}, undef, "to_ascii\(\'\-ꡩ\\u200C4\.\\u0AE3\'\)\ throws\ error\ V3\ V5\ C1\ \[data\/IdnaTest\.txt\:4697\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≠\x{FCDC}\x{44F53}\x{200C}.Ⴚ\x{83BA7}", %p)}, undef, "to_ascii\(\'\≠\\uFCDC\\uD8D3\\uDF53\\u200C\.Ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4699\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{FCDC}\x{44F53}\x{200C}.Ⴚ\x{83BA7}", %p)}, undef, "to_ascii\(\'\=\\u0338\\uFCDC\\uD8D3\\uDF53\\u200C\.Ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4701\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{064A}\x{062E}\x{44F53}\x{200C}.Ⴚ\x{83BA7}", %p)}, undef, "to_ascii\(\'\≠\\u064A\\u062E\\uD8D3\\uDF53\\u200C\.Ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4703\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{064A}\x{062E}\x{44F53}\x{200C}.Ⴚ\x{83BA7}", %p)}, undef, "to_ascii\(\'\=\\u0338\\u064A\\u062E\\uD8D3\\uDF53\\u200C\.Ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4705\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{064A}\x{062E}\x{44F53}\x{200C}.ⴚ\x{83BA7}", %p)}, undef, "to_ascii\(\'\=\\u0338\\u064A\\u062E\\uD8D3\\uDF53\\u200C\.ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4707\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{064A}\x{062E}\x{44F53}\x{200C}.ⴚ\x{83BA7}", %p)}, undef, "to_ascii\(\'\≠\\u064A\\u062E\\uD8D3\\uDF53\\u200C\.ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4709\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{FCDC}\x{44F53}\x{200C}.ⴚ\x{83BA7}", %p)}, undef, "to_ascii\(\'\=\\u0338\\uFCDC\\uD8D3\\uDF53\\u200C\.ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4711\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{FCDC}\x{44F53}\x{200C}.ⴚ\x{83BA7}", %p)}, undef, "to_ascii\(\'\≠\\uFCDC\\uD8D3\\uDF53\\u200C\.ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4713\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7E}。\x{A6F0}\x{17D1}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7E。\\uA6F0\\u17D1\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4714\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7E}。\x{A6F0}\x{17D1}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7E\。\\uA6F0\\u17D1\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4715\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{10A02}\x{FC22}≯۹。-", %p)}, undef, "to_ascii\(\'\\uD802\\uDE02\\uFC22\≯۹\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4716\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A02}\x{FC22}>\x{0338}۹。-", %p)}, undef, "to_ascii\(\'\\uD802\\uDE02\\uFC22\>\\u0338۹\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4717\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A02}\x{0636}\x{062C}≯۹。-", %p)}, undef, "to_ascii\(\'\\uD802\\uDE02\\u0636\\u062C\≯۹\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4718\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A02}\x{0636}\x{062C}>\x{0338}۹。-", %p)}, undef, "to_ascii\(\'\\uD802\\uDE02\\u0636\\u062C\>\\u0338۹\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4719\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{17B4}.쮇-", %p)}, undef, "to_ascii\(\'\\u17B4\.쮇\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4720\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{17B4}.쮇-", %p)}, undef, "to_ascii\(\'\\u17B4\.쮇\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4721\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{103A}。⒈-\x{5DED9}", %p)}, undef, "to_ascii\(\'\\u200C\\u103A\。⒈\-\\uD937\\uDED9\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4723\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{103A}。1.-\x{5DED9}", %p)}, undef, "to_ascii\(\'\\u200C\\u103A\。1\.\-\\uD937\\uDED9\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4725\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{1088F}\x{200C}。\x{06E3}⅗\x{200C}\x{E015A}", %p)}, undef, "to_ascii\(\'⒈\\uD802\\uDC8F\\u200C\。\\u06E3⅗\\u200C\\uDB40\\uDD5A\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4727\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{1088F}\x{200C}。\x{06E3}3⁄5\x{200C}\x{E015A}", %p)}, undef, "to_ascii\(\'1\.\\uD802\\uDC8F\\u200C\。\\u06E33\⁄5\\u200C\\uDB40\\uDD5A\'\)\ throws\ error\ P1\ V6\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:4729\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9FE5D}。۶\x{1B3A}\x{06BC}", %p)}, undef, "to_ascii\(\'\\uDA3F\\uDE5D。۶\\u1B3A\\u06BC\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4730\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{9FE5D}。۶\x{1B3A}\x{06BC}", %p)}, undef, "to_ascii\(\'\\uDA3F\\uDE5D\。۶\\u1B3A\\u06BC\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4731\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0894}\x{D3408}.ς\x{200D}\x{0660}", %p)}, undef, "to_ascii\(\'\\u0894\\uDB0D\\uDC08\.ς\\u200D\\u0660\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4733\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0894}\x{D3408}.Σ\x{200D}\x{0660}", %p)}, undef, "to_ascii\(\'\\u0894\\uDB0D\\uDC08\.Σ\\u200D\\u0660\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4735\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0894}\x{D3408}.σ\x{200D}\x{0660}", %p)}, undef, "to_ascii\(\'\\u0894\\uDB0D\\uDC08\.σ\\u200D\\u0660\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4737\]") 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("7\x{0847}\x{10E62}。\x{10A3F}𝟡\x{1C2E}", %p)}, undef, "to_ascii\(\'7\\u0847\\uD803\\uDE62。\\uD802\\uDE3F𝟡\\u1C2E\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4738\]") 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("7\x{0847}\x{10E62}。\x{10A3F}9\x{1C2E}", %p)}, undef, "to_ascii\(\'7\\u0847\\uD803\\uDE62\。\\uD802\\uDE3F9\\u1C2E\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4739\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-ꡘ᠆\x{62531}。\x{0667}\x{E016E}\x{10E69}", %p)}, undef, "to_ascii\(\'\-ꡘ᠆\\uD949\\uDD31\。\\u0667\\uDB40\\uDD6E\\uD803\\uDE69\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4740\]") 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{06B4}\x{0668}\x{A949}", %p)}, undef, "to_ascii\(\'\\u200D\.\\u06B4\\u0668\\uA949\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4742\]") 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--hib5mm619b", %p)}, "xn--hib5mm619b", "to_ascii\(\'xn\-\-hib5mm619b\'\)\ \[data\/IdnaTest\.txt\:4743\]") 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{06B4}\x{0668}\x{A949}", %p)}, "xn--hib5mm619b", "to_ascii\(\'\\u06B4\\u0668\\uA949\'\)\ \[data\/IdnaTest\.txt\:4744\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("㒧𝟬.Ⴚ\x{076F}\x{200D}", %p)}, undef, "to_ascii\(\'㒧𝟬\.Ⴚ\\u076F\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4746\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㒧0.Ⴚ\x{076F}\x{200D}", %p)}, undef, "to_ascii\(\'㒧0\.Ⴚ\\u076F\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4748\]") 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("㒧0.ⴚ\x{076F}\x{200D}", %p)}, undef, "to_ascii\(\'㒧0\.ⴚ\\u076F\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4750\]") 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{076F}\x{200D}", %p)}, undef, "to_ascii\(\'㒧𝟬\.ⴚ\\u076F\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4752\]") 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{0487}\x{06C9}-.-\x{20EE}", %p)}, undef, "to_ascii\(\'\\u0487\\u06C9\-.\-\\u20EE\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:4753\]") 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{0487}\x{06C9}-.-\x{20EE}", %p)}, undef, "to_ascii\(\'\\u0487\\u06C9\-\.\-\\u20EE\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:4754\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{CC583}-\x{E0CF9}\x{200C}.标-", %p)}, undef, "to_ascii\(\'\\uDAF1\\uDD83\-\\uDB43\\uDCF9\\u200C.标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4756\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{CC583}-\x{E0CF9}\x{200C}.标-", %p)}, undef, "to_ascii\(\'\\uDAF1\\uDD83\-\\uDB43\\uDCF9\\u200C\.标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4758\]") 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{07D1}.ςꡇ", %p)}, "xn--ssb.xn--3xa8435f", "to_ascii\(\'\\u07D1.ςꡇ\'\)\ \[data\/IdnaTest\.txt\:4760\]") 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{07D1}.ςꡇ", %p)}, "xn--ssb.xn--3xa8435f", "to_ascii\(\'\\u07D1\.ςꡇ\'\)\ \[data\/IdnaTest\.txt\:4762\]") 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{07D1}.Σꡇ", %p)}, "xn--ssb.xn--4xa6435f", "to_ascii\(\'\\u07D1\.Σꡇ\'\)\ \[data\/IdnaTest\.txt\:4763\]") 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{07D1}.σꡇ", %p)}, "xn--ssb.xn--4xa6435f", "to_ascii\(\'\\u07D1\.σꡇ\'\)\ \[data\/IdnaTest\.txt\:4764\]") 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--ssb.xn--4xa6435f", %p)}, "xn--ssb.xn--4xa6435f", "to_ascii\(\'xn\-\-ssb\.xn\-\-4xa6435f\'\)\ \[data\/IdnaTest\.txt\:4765\]") 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--ssb.xn--3xa8435f", %p)}, "xn--ssb.xn--3xa8435f", "to_ascii\(\'xn\-\-ssb\.xn\-\-3xa8435f\'\)\ \[data\/IdnaTest\.txt\:4766\]") 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{07D1}.Σꡇ", %p)}, "xn--ssb.xn--4xa6435f", "to_ascii\(\'\\u07D1.Σꡇ\'\)\ \[data\/IdnaTest\.txt\:4767\]") 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{07D1}.σꡇ", %p)}, "xn--ssb.xn--4xa6435f", "to_ascii\(\'\\u07D1.σꡇ\'\)\ \[data\/IdnaTest\.txt\:4768\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E14E8}\x{10E70}.\x{1ECC1}\x{200D}\x{1BF3}\x{7B784}", %p)}, undef, "to_ascii\(\'\\uDB45\\uDCE8\\uD803\\uDE70.\\uD83B\\uDCC1\\u200D\\u1BF3\\uD9AD\\uDF84\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4770\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E14E8}\x{10E70}.\x{1ECC1}\x{200D}\x{1BF3}\x{7B784}", %p)}, undef, "to_ascii\(\'\\uDB45\\uDCE8\\uD803\\uDE70\.\\uD83B\\uDCC1\\u200D\\u1BF3\\uD9AD\\uDF84\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4772\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0662}¹\x{10EAC}。\x{09CD}", %p)}, undef, "to_ascii\(\'\\u0662¹\\uD803\\uDEAC。\\u09CD\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4773\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0662}1\x{10EAC}。\x{09CD}", %p)}, undef, "to_ascii\(\'\\u06621\\uD803\\uDEAC\。\\u09CD\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4774\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟶\x{1160}\x{0364}\x{E0E27}.\x{4C5BA}锰\x{084B}ς", %p)}, undef, "to_ascii\(\'𝟶\\u1160\\u0364\\uDB43\\uDE27\.\\uD8F1\\uDDBA锰\\u084Bς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4775\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0\x{1160}\x{0364}\x{E0E27}.\x{4C5BA}锰\x{084B}ς", %p)}, undef, "to_ascii\(\'0\\u1160\\u0364\\uDB43\\uDE27\.\\uD8F1\\uDDBA锰\\u084Bς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4776\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0\x{1160}\x{0364}\x{E0E27}.\x{4C5BA}锰\x{084B}Σ", %p)}, undef, "to_ascii\(\'0\\u1160\\u0364\\uDB43\\uDE27\.\\uD8F1\\uDDBA锰\\u084BΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4777\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0\x{1160}\x{0364}\x{E0E27}.\x{4C5BA}锰\x{084B}σ", %p)}, undef, "to_ascii\(\'0\\u1160\\u0364\\uDB43\\uDE27\.\\uD8F1\\uDDBA锰\\u084Bσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4778\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟶\x{1160}\x{0364}\x{E0E27}.\x{4C5BA}锰\x{084B}Σ", %p)}, undef, "to_ascii\(\'𝟶\\u1160\\u0364\\uDB43\\uDE27\.\\uD8F1\\uDDBA锰\\u084BΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4779\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟶\x{1160}\x{0364}\x{E0E27}.\x{4C5BA}锰\x{084B}σ", %p)}, undef, "to_ascii\(\'𝟶\\u1160\\u0364\\uDB43\\uDE27\.\\uD8F1\\uDDBA锰\\u084Bσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4780\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡢ\x{E0046}\x{11AA6}𝟙。\x{10E6E}", %p)}, undef, "to_ascii\(\'ꡢ\\uDB40\\uDC46\\uD806\\uDEA6𝟙。\\uD803\\uDE6E\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4781\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡢ\x{E0046}\x{11AA6}1。\x{10E6E}", %p)}, undef, "to_ascii\(\'ꡢ\\uDB40\\uDC46\\uD806\\uDEA61\。\\uD803\\uDE6E\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4782\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FCF5}.\x{200C}᚜", %p)}, undef, "to_ascii\(\'\\uFCF5.\\u200C᚜\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4784\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0637}\x{0649}.\x{200C}᚜", %p)}, undef, "to_ascii\(\'\\u0637\\u0649\.\\u200C᚜\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4786\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--2gb0b.xn--zve", %p)}, "xn--2gb0b.xn--zve", "to_ascii\(\'xn\-\-2gb0b\.xn\-\-zve\'\)\ \[data\/IdnaTest\.txt\:4787\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0637}\x{0649}.᚜", %p)}, "xn--2gb0b.xn--zve", "to_ascii\(\'\\u0637\\u0649\.᚜\'\)\ \[data\/IdnaTest\.txt\:4788\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{77779}.\x{2DE5}\x{06A2}-", %p)}, undef, "to_ascii\(\'\-\\uD99D\\uDF79\.\\u2DE5\\u06A2\-\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4789\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🔤\x{200D}\x{103A}.\x{200C}🄂\x{0660}", %p)}, undef, "to_ascii\(\'🔤\\u200D\\u103A.\\u200C🄂\\u0660\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:4791\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🔤\x{200D}\x{103A}.\x{200C}1,\x{0660}", %p)}, undef, "to_ascii\(\'🔤\\u200D\\u103A\.\\u200C1\,\\u0660\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:4793\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒\x{FD99}\x{20D1}\x{FCDD}。岓\x{1039}⚊\x{06B6}", %p)}, undef, "to_ascii\(\'︒\\uFD99\\u20D1\\uFCDD\。岓\\u1039\⚊\\u06B6\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:4794\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。\x{0646}\x{062C}\x{0649}\x{20D1}\x{064A}\x{0645}。岓\x{1039}⚊\x{06B6}", %p)}, undef, "to_ascii\(\'\。\\u0646\\u062C\\u0649\\u20D1\\u064A\\u0645\。岓\\u1039\⚊\\u06B6\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4795\]") 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{066B}。8\x{A953}", %p)}, undef, "to_ascii\(\'\\u066B\。8\\uA953\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4796\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0591}\x{1DCF}.\x{0751}\x{110B9}\x{10E67}\x{E011F}", %p)}, undef, "to_ascii\(\'\\u0591\\u1DCF.\\u0751\\uD804\\uDCB9\\uD803\\uDE67\\uDB40\\uDD1F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4797\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0591}\x{1DCF}.\x{0751}\x{110B9}\x{10E67}\x{E011F}", %p)}, undef, "to_ascii\(\'\\u0591\\u1DCF\.\\u0751\\uD804\\uDCB9\\uD803\\uDE67\\uDB40\\uDD1F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4798\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{126D1}\x{10E1D}\x{08EE}。\x{E0345}", %p)}, undef, "to_ascii\(\'\\uD809\\uDED1\\uD803\\uDE1D\\u08EE。\\uDB40\\uDF45\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4799\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{126D1}\x{10E1D}\x{08EE}。\x{E0345}", %p)}, undef, "to_ascii\(\'\\uD809\\uDED1\\uD803\\uDE1D\\u08EE\。\\uDB40\\uDF45\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4800\]") 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{0761}.-\x{0CE3}", %p)}, undef, "to_ascii\(\'\\u0761.\-\\u0CE3\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4801\]") 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{0761}.-\x{0CE3}", %p)}, undef, "to_ascii\(\'\\u0761\.\-\\u0CE3\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4802\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{10515F}\x{E0ACB}。\x{0604}\x{10B05}\x{ABED}", %p)}, undef, "to_ascii\(\'\\uDBD4\\uDD5F\\uDB42\\uDECB。\\u0604\\uD802\\uDF05\\uABED\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4803\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10515F}\x{E0ACB}。\x{0604}\x{10B05}\x{ABED}", %p)}, undef, "to_ascii\(\'\\uDBD4\\uDD5F\\uDB42\\uDECB\。\\u0604\\uD802\\uDF05\\uABED\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4804\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴐᠫ.\x{200C}", %p)}, undef, "to_ascii\(\'Ⴐᠫ.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4806\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴐᠫ.\x{200C}", %p)}, undef, "to_ascii\(\'Ⴐᠫ\.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4808\]") 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\:4810\]") 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--e7e118h.", %p)}, "xn--e7e118h.", "to_ascii\(\'xn\-\-e7e118h\.\'\)\ \[data\/IdnaTest\.txt\:4811\]") 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--e7e118h.", "to_ascii\(\'ⴐᠫ\.\'\)\ \[data\/IdnaTest\.txt\:4812\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴐᠫ.", %p)}, undef, "to_ascii\(\'Ⴐᠫ\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4813\]") 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\:4815\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝟰\x{E016C}-⒈。\x{200D}\x{0727}ᠹ", %p)}, undef, "to_ascii\(\'𝟰\\uDB40\\uDD6C\-⒈\。\\u200D\\u0727ᠹ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4817\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{E016C}-1.。\x{200D}\x{0727}ᠹ", %p)}, undef, "to_ascii\(\'4\\uDB40\\uDD6C\-1\.\。\\u200D\\u0727ᠹ\'\)\ throws\ error\ A4_2\ B1\ C2\ \[data\/IdnaTest\.txt\:4819\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{673DD}。\x{0842}\x{5834D}", %p)}, undef, "to_ascii\(\'\\uD95C\\uDFDD\。\\u0842\\uD920\\uDF4D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[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("\x{1BE9}𝟫。ᢟ\x{10E60}\x{E01E8}鄨", %p)}, undef, "to_ascii\(\'\\u1BE9𝟫。ᢟ\\uD803\\uDE60\\uDB40\\uDDE8鄨\'\)\ throws\ error\ V5\ B5\ \[data\/IdnaTest\.txt\:4821\]") 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{1BE9}9。ᢟ\x{10E60}\x{E01E8}鄨", %p)}, undef, "to_ascii\(\'\\u1BE99\。ᢟ\\uD803\\uDE60\\uDB40\\uDDE8鄨\'\)\ throws\ error\ V5\ B5\ \[data\/IdnaTest\.txt\:4822\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1EF07}-\x{084A}。\x{064D}\x{0A4D}-", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF07\-\\u084A\。\\u064D\\u0A4D\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:4823\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1EF07}-\x{084A}。\x{0A4D}\x{064D}-", %p)}, undef, "to_ascii\(\'\\uD83B\\uDF07\-\\u084A\。\\u0A4D\\u064D\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:4824\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}-\x{6D04B}\x{0944}.ß", %p)}, undef, "to_ascii\(\'\\u0E3A\-\\uD974\\uDC4B\\u0944.ß\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4825\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}-\x{6D04B}\x{0944}.ß", %p)}, undef, "to_ascii\(\'\\u0E3A\-\\uD974\\uDC4B\\u0944\.ß\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4826\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}-\x{6D04B}\x{0944}.SS", %p)}, undef, "to_ascii\(\'\\u0E3A\-\\uD974\\uDC4B\\u0944\.SS\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4827\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E3A}-\x{6D04B}\x{0944}.SS", %p)}, undef, "to_ascii\(\'\\u0E3A\-\\uD974\\uDC4B\\u0944.SS\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4828\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A1C}-\x{200C}。Ⴟ\x{200C}\x{E0451}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE1C\-\\u200C。Ⴟ\\u200C\\uDB41\\uDC51\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4830\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A1C}-\x{200C}。Ⴟ\x{200C}\x{E0451}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE1C\-\\u200C\。Ⴟ\\u200C\\uDB41\\uDC51\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4832\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A1C}-\x{200C}。ⴟ\x{200C}\x{E0451}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE1C\-\\u200C\。ⴟ\\u200C\\uDB41\\uDC51\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4834\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10A1C}-\x{200C}。ⴟ\x{200C}\x{E0451}", %p)}, undef, "to_ascii\(\'\\uD802\\uDE1C\-\\u200C。ⴟ\\u200C\\uDB41\\uDC51\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4836\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}-\x{200D}\x{200C}。\x{ABA8F}⒐≠", %p)}, undef, "to_ascii\(\'\\u0DCA\-\\u200D\\u200C。\\uDA6E\\uDE8F⒐\≠\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4838\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}-\x{200D}\x{200C}。\x{ABA8F}⒐=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0DCA\-\\u200D\\u200C。\\uDA6E\\uDE8F⒐\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4840\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}-\x{200D}\x{200C}。\x{ABA8F}9.≠", %p)}, undef, "to_ascii\(\'\\u0DCA\-\\u200D\\u200C\。\\uDA6E\\uDE8F9\.\≠\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4842\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0DCA}-\x{200D}\x{200C}。\x{ABA8F}9.=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0DCA\-\\u200D\\u200C\。\\uDA6E\\uDE8F9\.\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4844\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{42DC6}。\x{10A3F}\x{E016A}⅋", %p)}, undef, "to_ascii\(\'\\uD8CB\\uDDC6\。\\uD802\\uDE3F\\uDB40\\uDD6A⅋\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4845\]") 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{0682}♥.ᡦ\x{200D}\x{A949}", %p)}, undef, "to_ascii\(\'\\u0682\♥.ᡦ\\u200D\\uA949\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:4847\]") 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{0682}♥.ᡦ\x{200D}\x{A949}", %p)}, undef, "to_ascii\(\'\\u0682\♥\.ᡦ\\u200D\\uA949\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:4849\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{10E65}4Ⴅ.\x{FEA2}\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE654Ⴅ.\\uFEA2\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4851\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E65}4Ⴅ.\x{062D}\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE654Ⴅ\.\\u062D\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4853\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E65}4ⴅ.\x{062D}\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE654ⴅ\.\\u062D\\u200C\'\)\ throws\ error\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4855\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E65}4ⴅ.\x{FEA2}\x{200C}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE654ⴅ.\\uFEA2\\u200C\'\)\ throws\ error\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4857\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ჁႱ⒕\x{2DF8}。ß\x{E0109}", %p)}, undef, "to_ascii\(\'ჁႱ⒕\\u2DF8\。ß\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4858\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ჁႱ14.\x{2DF8}。ß\x{E0109}", %p)}, undef, "to_ascii\(\'ჁႱ14\.\\u2DF8\。ß\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4859\]") 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("ⴡⴑ14.\x{2DF8}。ß\x{E0109}", %p)}, undef, "to_ascii\(\'ⴡⴑ14\.\\u2DF8\。ß\\uDB40\\uDD09\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4860\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ჁႱ14.\x{2DF8}。SS\x{E0109}", %p)}, undef, "to_ascii\(\'ჁႱ14\.\\u2DF8\。SS\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4861\]") 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("ⴡⴑ14.\x{2DF8}。ss\x{E0109}", %p)}, undef, "to_ascii\(\'ⴡⴑ14\.\\u2DF8\。ss\\uDB40\\uDD09\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4862\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴡⴑ14.\x{2DF8}。Ss\x{E0109}", %p)}, undef, "to_ascii\(\'Ⴡⴑ14\.\\u2DF8\。Ss\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4863\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴡⴑ⒕\x{2DF8}。ß\x{E0109}", %p)}, undef, "to_ascii\(\'ⴡⴑ⒕\\u2DF8\。ß\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4864\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ჁႱ⒕\x{2DF8}。SS\x{E0109}", %p)}, undef, "to_ascii\(\'ჁႱ⒕\\u2DF8\。SS\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4865\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴡⴑ⒕\x{2DF8}。ss\x{E0109}", %p)}, undef, "to_ascii\(\'ⴡⴑ⒕\\u2DF8\。ss\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4866\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴡⴑ⒕\x{2DF8}。Ss\x{E0109}", %p)}, undef, "to_ascii\(\'Ⴡⴑ⒕\\u2DF8\。Ss\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4867\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{8A284}。≯\x{11134}", %p)}, undef, "to_ascii\(\'\\uD9E8\\uDE84。\≯\\uD804\\uDD34\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4868\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{8A284}。>\x{0338}\x{11134}", %p)}, undef, "to_ascii\(\'\\uD9E8\\uDE84。\>\\u0338\\uD804\\uDD34\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4869\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{8A284}。≯\x{11134}", %p)}, undef, "to_ascii\(\'\\uD9E8\\uDE84\。\≯\\uD804\\uDD34\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4870\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{8A284}。>\x{0338}\x{11134}", %p)}, undef, "to_ascii\(\'\\uD9E8\\uDE84\。\>\\u0338\\uD804\\uDD34\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4871\]") 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{065A}𝟬。\x{200C}-\x{A8C4}\x{0668}", %p)}, undef, "to_ascii\(\'\\u065A𝟬\。\\u200C\-\\uA8C4\\u0668\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4873\]") 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{065A}0。\x{200C}-\x{A8C4}\x{0668}", %p)}, undef, "to_ascii\(\'\\u065A0\。\\u200C\-\\uA8C4\\u0668\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4875\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FE21}\x{A826}\x{E07EC}。\x{FFA0}", %p)}, undef, "to_ascii\(\'\\uFE21\\uA826\\uDB41\\uDFEC。\\uFFA0\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4876\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE21}\x{A826}\x{E07EC}。\x{1160}", %p)}, undef, "to_ascii\(\'\\uFE21\\uA826\\uDB41\\uDFEC\。\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4877\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß⒈\x{08A5}\x{10747F}.\x{7F0A8}\x{1D173}\x{10E7B}\x{DA4DD}", %p)}, undef, "to_ascii\(\'ß⒈\\u08A5\\uDBDD\\uDC7F.\\uD9BC\\uDCA8\\uD834\\uDD73\\uD803\\uDE7B\\uDB29\\uDCDD\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4878\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß1.\x{08A5}\x{10747F}.\x{7F0A8}\x{1D173}\x{10E7B}\x{DA4DD}", %p)}, undef, "to_ascii\(\'ß1\.\\u08A5\\uDBDD\\uDC7F\.\\uD9BC\\uDCA8\\uD834\\uDD73\\uD803\\uDE7B\\uDB29\\uDCDD\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:4879\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS1.\x{08A5}\x{10747F}.\x{7F0A8}\x{1D173}\x{10E7B}\x{DA4DD}", %p)}, undef, "to_ascii\(\'SS1\.\\u08A5\\uDBDD\\uDC7F\.\\uD9BC\\uDCA8\\uD834\\uDD73\\uD803\\uDE7B\\uDB29\\uDCDD\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:4880\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS⒈\x{08A5}\x{10747F}.\x{7F0A8}\x{1D173}\x{10E7B}\x{DA4DD}", %p)}, undef, "to_ascii\(\'SS⒈\\u08A5\\uDBDD\\uDC7F.\\uD9BC\\uDCA8\\uD834\\uDD73\\uD803\\uDE7B\\uDB29\\uDCDD\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4881\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss⒈\x{08A5}\x{10747F}.\x{7F0A8}\x{1D173}\x{10E7B}\x{DA4DD}", %p)}, undef, "to_ascii\(\'ss⒈\\u08A5\\uDBDD\\uDC7F.\\uD9BC\\uDCA8\\uD834\\uDD73\\uD803\\uDE7B\\uDB29\\uDCDD\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4882\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss⒈\x{08A5}\x{10747F}.\x{7F0A8}\x{1D173}\x{10E7B}\x{DA4DD}", %p)}, undef, "to_ascii\(\'Ss⒈\\u08A5\\uDBDD\\uDC7F.\\uD9BC\\uDCA8\\uD834\\uDD73\\uD803\\uDE7B\\uDB29\\uDCDD\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4883\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(").2𝟠", %p)}, undef, "to_ascii\(\'\)\.2𝟠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4884\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(").28", %p)}, undef, "to_ascii\(\'\)\.28\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4885\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡂ\x{0652}。-ßᡳ\x{200C}", %p)}, undef, "to_ascii\(\'ᡂ\\u0652\。\-ßᡳ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4887\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡂ\x{0652}。-SSᡳ\x{200C}", %p)}, undef, "to_ascii\(\'ᡂ\\u0652\。\-SSᡳ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4889\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡂ\x{0652}。-ssᡳ\x{200C}", %p)}, undef, "to_ascii\(\'ᡂ\\u0652\。\-ssᡳ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4891\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡂ\x{0652}。-Ssᡳ\x{200C}", %p)}, undef, "to_ascii\(\'ᡂ\\u0652\。\-Ssᡳ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4893\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ABC}\x{200D}ꡞ\x{4E737}.☸⋤Ⴡ", %p)}, undef, "to_ascii\(\'\\u0ABC\\u200Dꡞ\\uD8F9\\uDF37.\☸\⋤Ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4895\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ABC}\x{200D}ꡞ\x{4E737}.☸⋤Ⴡ", %p)}, undef, "to_ascii\(\'\\u0ABC\\u200Dꡞ\\uD8F9\\uDF37\.\☸\⋤Ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4897\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ABC}\x{200D}ꡞ\x{4E737}.☸⋤ⴡ", %p)}, undef, "to_ascii\(\'\\u0ABC\\u200Dꡞ\\uD8F9\\uDF37\.\☸\⋤ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4899\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ABC}\x{200D}ꡞ\x{4E737}.☸⋤ⴡ", %p)}, undef, "to_ascii\(\'\\u0ABC\\u200Dꡞ\\uD8F9\\uDF37.\☸\⋤ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4901\]") 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\:4903\]") 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\:4905\]") 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\:4907\]") 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\:4909\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}︒.\x{06AF}≯\x{0845}", %p)}, undef, "to_ascii\(\'\\u1734︒\.\\u06AF\≯\\u0845\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4910\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}︒.\x{06AF}>\x{0338}\x{0845}", %p)}, undef, "to_ascii\(\'\\u1734︒\.\\u06AF\>\\u0338\\u0845\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4911\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}。.\x{06AF}≯\x{0845}", %p)}, undef, "to_ascii\(\'\\u1734\。\.\\u06AF\≯\\u0845\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:4912\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}。.\x{06AF}>\x{0338}\x{0845}", %p)}, undef, "to_ascii\(\'\\u1734\。\.\\u06AF\>\\u0338\\u0845\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:4913\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮≠𑂼。-\x{77850}ꡠ\x{10E76}", %p)}, undef, "to_ascii\(\'\≮\≠𑂼。\-\\uD99E\\uDC50ꡠ\\uD803\\uDE76\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4914\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}=\x{0338}𑂼。-\x{77850}ꡠ\x{10E76}", %p)}, undef, "to_ascii\(\'\<\\u0338\=\\u0338𑂼。\-\\uD99E\\uDC50ꡠ\\uD803\\uDE76\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4915\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮≠𑂼。-\x{77850}ꡠ\x{10E76}", %p)}, undef, "to_ascii\(\'\≮\≠𑂼\。\-\\uD99E\\uDC50ꡠ\\uD803\\uDE76\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4916\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}=\x{0338}𑂼。-\x{77850}ꡠ\x{10E76}", %p)}, undef, "to_ascii\(\'\<\\u0338\=\\u0338𑂼\。\-\\uD99E\\uDC50ꡠ\\uD803\\uDE76\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4917\]") 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{10E6B}ꡯ。\x{084B}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6Bꡯ\。\\u084B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4918\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴉ✦\x{6A994}\x{A806}.ß\x{10D58}\x{0669}\x{0641}", %p)}, undef, "to_ascii\(\'Ⴉ\✦\\uD96A\\uDD94\\uA806\.ß\\uD803\\uDD58\\u0669\\u0641\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4919\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ✦\x{6A994}\x{A806}.ß\x{10D58}\x{0669}\x{0641}", %p)}, undef, "to_ascii\(\'ⴉ\✦\\uD96A\\uDD94\\uA806\.ß\\uD803\\uDD58\\u0669\\u0641\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4920\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ✦\x{6A994}\x{A806}.SS\x{10D58}\x{0669}\x{0641}", %p)}, undef, "to_ascii\(\'Ⴉ\✦\\uD96A\\uDD94\\uA806\.SS\\uD803\\uDD58\\u0669\\u0641\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4921\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ✦\x{6A994}\x{A806}.ss\x{10D58}\x{0669}\x{0641}", %p)}, undef, "to_ascii\(\'ⴉ\✦\\uD96A\\uDD94\\uA806\.ss\\uD803\\uDD58\\u0669\\u0641\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4922\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ✦\x{6A994}\x{A806}.Ss\x{10D58}\x{0669}\x{0641}", %p)}, undef, "to_ascii\(\'Ⴉ\✦\\uD96A\\uDD94\\uA806\.Ss\\uD803\\uDD58\\u0669\\u0641\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4923\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{07CF}\x{10E81}🎅.\x{187E5}", %p)}, undef, "to_ascii\(\'\\u200D\\u07CF\\uD803\\uDE81🎅\.\\uD821\\uDFE5\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4925\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("梉。\x{200C}", %p)}, undef, "to_ascii\(\'梉\。\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4927\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--7zv.", %p)}, "xn--7zv.", "to_ascii\(\'xn\-\-7zv\.\'\)\ \[data\/IdnaTest\.txt\:4928\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("梉.", %p)}, "xn--7zv.", "to_ascii\(\'梉\.\'\)\ \[data\/IdnaTest\.txt\:4929\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075D}-≠.\x{200D}ꡘ⸈Ↄ", %p)}, undef, "to_ascii\(\'\\u075D\-\≠\.\\u200Dꡘ\⸈Ↄ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:4931\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075D}-=\x{0338}.\x{200D}ꡘ⸈Ↄ", %p)}, undef, "to_ascii\(\'\\u075D\-\=\\u0338\.\\u200Dꡘ\⸈Ↄ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:4933\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075D}-=\x{0338}.\x{200D}ꡘ⸈ↄ", %p)}, undef, "to_ascii\(\'\\u075D\-\=\\u0338\.\\u200Dꡘ\⸈ↄ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:4935\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075D}-≠.\x{200D}ꡘ⸈ↄ", %p)}, undef, "to_ascii\(\'\\u075D\-\≠\.\\u200Dꡘ\⸈ↄ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:4937\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς۲\x{1DFF}⸵。\x{1EC99}⁷🄂", %p)}, undef, "to_ascii\(\'ς۲\\u1DFF\⸵。\\uD83B\\uDC99⁷🄂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4938\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς۲\x{1DFF}⸵。\x{1EC99}71,", %p)}, undef, "to_ascii\(\'ς۲\\u1DFF\⸵\。\\uD83B\\uDC9971\,\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4939\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ۲\x{1DFF}⸵。\x{1EC99}71,", %p)}, undef, "to_ascii\(\'Σ۲\\u1DFF\⸵\。\\uD83B\\uDC9971\,\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4940\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ۲\x{1DFF}⸵。\x{1EC99}71,", %p)}, undef, "to_ascii\(\'σ۲\\u1DFF\⸵\。\\uD83B\\uDC9971\,\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4941\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ۲\x{1DFF}⸵。\x{1EC99}⁷🄂", %p)}, undef, "to_ascii\(\'Σ۲\\u1DFF\⸵。\\uD83B\\uDC99⁷🄂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4942\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ۲\x{1DFF}⸵。\x{1EC99}⁷🄂", %p)}, undef, "to_ascii\(\'σ۲\\u1DFF\⸵。\\uD83B\\uDC99⁷🄂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4943\]") 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{08AC}.\x{200C}ß", %p)}, undef, "to_ascii\(\'\\u08AC.\\u200Cß\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4945\]") 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{08AC}.\x{200C}ß", %p)}, undef, "to_ascii\(\'\\u08AC\.\\u200Cß\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4947\]") 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{08AC}.\x{200C}SS", %p)}, undef, "to_ascii\(\'\\u08AC\.\\u200CSS\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4949\]") 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{08AC}.\x{200C}ss", %p)}, undef, "to_ascii\(\'\\u08AC\.\\u200Css\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4951\]") 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{08AC}.\x{200C}Ss", %p)}, undef, "to_ascii\(\'\\u08AC\.\\u200CSs\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4953\]") 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--1yb.ss", %p)}, "xn--1yb.ss", "to_ascii\(\'xn\-\-1yb\.ss\'\)\ \[data\/IdnaTest\.txt\:4954\]") 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{08AC}.ss", %p)}, "xn--1yb.ss", "to_ascii\(\'\\u08AC\.ss\'\)\ \[data\/IdnaTest\.txt\:4955\]") 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{08AC}.\x{200C}SS", %p)}, undef, "to_ascii\(\'\\u08AC.\\u200CSS\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4957\]") 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{08AC}.\x{200C}ss", %p)}, undef, "to_ascii\(\'\\u08AC.\\u200Css\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4959\]") 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{08AC}.\x{200C}Ss", %p)}, undef, "to_ascii\(\'\\u08AC.\\u200CSs\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4961\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{A70C7}-.\x{200D}ꡓ\x{1CDF}⸺", %p)}, undef, "to_ascii\(\'\\uDA5C\\uDCC7\-\.\\u200Dꡓ\\u1CDF\⸺\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:4963\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䃚蟥-。-\x{78D20}⒈", %p)}, undef, "to_ascii\(\'䃚蟥\-\。\-\\uD9A3\\uDD20⒈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4964\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䃚蟥-。-\x{78D20}1.", %p)}, undef, "to_ascii\(\'䃚蟥\-\。\-\\uD9A3\\uDD201\.\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4965\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7E}䚵-ᡐ。₠", %p)}, undef, "to_ascii\(\'\\uD803\\uDE7E䚵\-ᡐ\。₠\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4966\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0CCD}。\x{1ADC}\x{0603}", %p)}, undef, "to_ascii\(\'\\u0CCD\。\\u1ADC\\u0603\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4967\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{10E62}.₅\x{1DCF}\x{0689}\x{10E78}", %p)}, undef, "to_ascii\(\'\≮\\uD803\\uDE62\.₅\\u1DCF\\u0689\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4968\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{10E62}.₅\x{1DCF}\x{0689}\x{10E78}", %p)}, undef, "to_ascii\(\'\<\\u0338\\uD803\\uDE62\.₅\\u1DCF\\u0689\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4969\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{10E62}.5\x{1DCF}\x{0689}\x{10E78}", %p)}, undef, "to_ascii\(\'\≮\\uD803\\uDE62\.5\\u1DCF\\u0689\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4970\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{10E62}.5\x{1DCF}\x{0689}\x{10E78}", %p)}, undef, "to_ascii\(\'\<\\u0338\\uD803\\uDE62\.5\\u1DCF\\u0689\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4971\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡏ≠\x{95144}.\x{200D}⁰", %p)}, undef, "to_ascii\(\'ᡏ\≠\\uDA14\\uDD44\.\\u200D⁰\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4973\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡏ=\x{0338}\x{95144}.\x{200D}⁰", %p)}, undef, "to_ascii\(\'ᡏ\=\\u0338\\uDA14\\uDD44\.\\u200D⁰\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4975\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡏ≠\x{95144}.\x{200D}0", %p)}, undef, "to_ascii\(\'ᡏ\≠\\uDA14\\uDD44\.\\u200D0\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4977\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡏ=\x{0338}\x{95144}.\x{200D}0", %p)}, undef, "to_ascii\(\'ᡏ\=\\u0338\\uDA14\\uDD44\.\\u200D0\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4979\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{108B1}≮\x{FBBBD}≯.\x{10E7D}\x{075E}\x{E0A7A}", %p)}, undef, "to_ascii\(\'\\uD802\\uDCB1\≮\\uDBAE\\uDFBD\≯.\\uD803\\uDE7D\\u075E\\uDB42\\uDE7A\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4980\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{108B1}<\x{0338}\x{FBBBD}>\x{0338}.\x{10E7D}\x{075E}\x{E0A7A}", %p)}, undef, "to_ascii\(\'\\uD802\\uDCB1\<\\u0338\\uDBAE\\uDFBD\>\\u0338.\\uD803\\uDE7D\\u075E\\uDB42\\uDE7A\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4981\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{108B1}≮\x{FBBBD}≯.\x{10E7D}\x{075E}\x{E0A7A}", %p)}, undef, "to_ascii\(\'\\uD802\\uDCB1\≮\\uDBAE\\uDFBD\≯\.\\uD803\\uDE7D\\u075E\\uDB42\\uDE7A\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4982\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{108B1}<\x{0338}\x{FBBBD}>\x{0338}.\x{10E7D}\x{075E}\x{E0A7A}", %p)}, undef, "to_ascii\(\'\\uD802\\uDCB1\<\\u0338\\uDBAE\\uDFBD\>\\u0338\.\\uD803\\uDE7D\\u075E\\uDB42\\uDE7A\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4983\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{E014F}", %p)}, undef, "to_ascii\(\'\-。\\uDB40\\uDD4F\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4984\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{E014F}", %p)}, undef, "to_ascii\(\'\-\。\\uDB40\\uDD4F\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4985\]") 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{08E8}.\x{1112F}", %p)}, undef, "to_ascii\(\'䷻\\u08E8.\\uD804\\uDD2F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4986\]") 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{08E8}.\x{11132}\x{11127}", %p)}, undef, "to_ascii\(\'䷻\\u08E8.\\uD804\\uDD32\\uD804\\uDD27\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4987\]") 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{08E8}.\x{1112F}", %p)}, undef, "to_ascii\(\'䷻\\u08E8\.\\uD804\\uDD2F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4988\]") 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{08E8}.\x{11132}\x{11127}", %p)}, undef, "to_ascii\(\'䷻\\u08E8\.\\uD804\\uDD32\\uD804\\uDD27\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4989\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{E0EF4}.\x{9CCB1}\x{200C}", %p)}, undef, "to_ascii\(\'\\uDB43\\uDEF4\.\\uDA33\\uDCB1\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4991\]") 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{105F}.\x{11180}", %p)}, undef, "to_ascii\(\'ꡈ\\u105F\.\\uD804\\uDD80\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4992\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("漦Ⴙς.\x{89D3C}\x{1EA85}", %p)}, undef, "to_ascii\(\'漦Ⴙς\.\\uD9E7\\uDD3C\\uD83A\\uDE85\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4993\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("漦ⴙς.\x{89D3C}\x{1EA85}", %p)}, undef, "to_ascii\(\'漦ⴙς\.\\uD9E7\\uDD3C\\uD83A\\uDE85\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4994\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("漦ႹΣ.\x{89D3C}\x{1EA85}", %p)}, undef, "to_ascii\(\'漦ႹΣ\.\\uD9E7\\uDD3C\\uD83A\\uDE85\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4995\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("漦ⴙσ.\x{89D3C}\x{1EA85}", %p)}, undef, "to_ascii\(\'漦ⴙσ\.\\uD9E7\\uDD3C\\uD83A\\uDE85\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4996\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("漦Ⴙσ.\x{89D3C}\x{1EA85}", %p)}, undef, "to_ascii\(\'漦Ⴙσ\.\\uD9E7\\uDD3C\\uD83A\\uDE85\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4997\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E6E}踧\x{09CD}\x{D614C}.\x{44985}⒈\x{E0148}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6E踧\\u09CD\\uDB18\\uDD4C\.\\uD8D2\\uDD85⒈\\uDB40\\uDD48\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4998\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{10E6E}踧\x{09CD}\x{D614C}.\x{44985}1.\x{E0148}", %p)}, undef, "to_ascii\(\'\\uD803\\uDE6E踧\\u09CD\\uDB18\\uDD4C\.\\uD8D2\\uDD851\.\\uDB40\\uDD48\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4999\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}≮.📃\x{335B4}-", %p)}, undef, "to_ascii\(\'\\u200D\≮.📃\\uD88D\\uDDB4\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5001\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}<\x{0338}.📃\x{335B4}-", %p)}, undef, "to_ascii\(\'\\u200D\<\\u0338.📃\\uD88D\\uDDB4\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5003\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}≮.📃\x{335B4}-", %p)}, undef, "to_ascii\(\'\\u200D\≮\.📃\\uD88D\\uDDB4\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5005\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}<\x{0338}.📃\x{335B4}-", %p)}, undef, "to_ascii\(\'\\u200D\<\\u0338\.📃\\uD88D\\uDDB4\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5007\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200D}襔。Ⴜ𝟧ᢧ\x{D5132}", %p)}, undef, "to_ascii\(\'\\u200D\\u200D襔\。Ⴜ𝟧ᢧ\\uDB14\\uDD32\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:5009\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200D}襔。Ⴜ5ᢧ\x{D5132}", %p)}, undef, "to_ascii\(\'\\u200D\\u200D襔\。Ⴜ5ᢧ\\uDB14\\uDD32\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:5011\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200D}襔。ⴜ5ᢧ\x{D5132}", %p)}, undef, "to_ascii\(\'\\u200D\\u200D襔\。ⴜ5ᢧ\\uDB14\\uDD32\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:5013\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200D}襔。ⴜ𝟧ᢧ\x{D5132}", %p)}, undef, "to_ascii\(\'\\u200D\\u200D襔\。ⴜ𝟧ᢧ\\uDB14\\uDD32\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:5015\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C7}\x{E019D}\x{200D}.婀", %p)}, undef, "to_ascii\(\'\\u06C7\\uDB40\\uDD9D\\u200D.婀\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:5017\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C7}\x{E019D}\x{200D}.婀", %p)}, undef, "to_ascii\(\'\\u06C7\\uDB40\\uDD9D\\u200D\.婀\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:5019\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--6kb.xn--q0s", %p)}, "xn--6kb.xn--q0s", "to_ascii\(\'xn\-\-6kb\.xn\-\-q0s\'\)\ \[data\/IdnaTest\.txt\:5020\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C7}.婀", %p)}, "xn--6kb.xn--q0s", "to_ascii\(\'\\u06C7\.婀\'\)\ \[data\/IdnaTest\.txt\:5021\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0117}︒︒\x{10E6B}。▨\x{E015B}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD17︒︒\\uD803\\uDE6B。\▨\\uDB40\\uDD5B\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5022\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{E0117}。。\x{10E6B}。▨\x{E015B}", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD17\。\。\\uD803\\uDE6B\。\▨\\uDB40\\uDD5B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:5023\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("🄀ß.\x{0369}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'🄀ß.\\u0369\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V6\ V5\ A3\ \[data\/IdnaTest\.txt\:5024\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.ß.\x{0369}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'0\.ß\.\\u0369\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5025\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.ß.\x{0369}-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'0\.ß\.\\u0369\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5026\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.SS.\x{0369}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'0\.SS\.\\u0369\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5027\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.ss.\x{0369}-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'0\.ss\.\\u0369\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5028\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀ß.\x{0369}-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'🄀ß.\\u0369\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V6\ V5\ A3\ \[data\/IdnaTest\.txt\:5029\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀SS.\x{0369}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'🄀SS.\\u0369\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V6\ V5\ A3\ \[data\/IdnaTest\.txt\:5030\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀ss.\x{0369}-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'🄀ss.\\u0369\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V6\ V5\ A3\ \[data\/IdnaTest\.txt\:5031\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀Ss.\x{0369}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'🄀Ss.\\u0369\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V6\ V5\ A3\ \[data\/IdnaTest\.txt\:5032\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200D}\x{E02DF}.\x{200C}\x{06DD}Ⴅ", %p)}, undef, "to_ascii\(\'\-\\u200D\\uDB40\\uDEDF\.\\u200C\\u06DDႥ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:5034\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200D}\x{E02DF}.\x{200C}\x{06DD}ⴅ", %p)}, undef, "to_ascii\(\'\-\\u200D\\uDB40\\uDEDF\.\\u200C\\u06DDⴅ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:5036\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF0}\x{200D}큷\x{45C6B}。⒒", %p)}, undef, "to_ascii\(\'\\u2DF0\\u200D큷\\uD8D7\\uDC6B。⒒\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5038\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF0}\x{200D}큷\x{45C6B}。⒒", %p)}, undef, "to_ascii\(\'\\u2DF0\\u200D큷\\uD8D7\\uDC6B。⒒\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5040\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF0}\x{200D}큷\x{45C6B}。11.", %p)}, undef, "to_ascii\(\'\\u2DF0\\u200D큷\\uD8D7\\uDC6B\。11\.\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5042\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2DF0}\x{200D}큷\x{45C6B}。11.", %p)}, undef, "to_ascii\(\'\\u2DF0\\u200D큷\\uD8D7\\uDC6B\。11\.\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5044\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DF4D}.𝟨\x{0638}", %p)}, undef, "to_ascii\(\'\\uDF4D\.𝟨\\u0638\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:5045\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DF4D}.6\x{0638}", %p)}, undef, "to_ascii\(\'\\uDF4D\.6\\u0638\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:5046\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0188}\x{1E9CF}。\x{10E6E}\x{42C61}\x{1DD9}⒈", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD88\\uD83A\\uDDCF\。\\uD803\\uDE6E\\uD8CB\\uDC61\\u1DD9⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5047\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E0188}\x{1E9CF}。\x{10E6E}\x{42C61}\x{1DD9}1.", %p)}, undef, "to_ascii\(\'\\uDB40\\uDD88\\uD83A\\uDDCF\。\\uD803\\uDE6E\\uD8CB\\uDC61\\u1DD91\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5048\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{CF578}\x{10EF6}\x{0712}。Ⴈ\x{200D}", %p)}, undef, "to_ascii\(\'\\uDAFD\\uDD78\\uD803\\uDEF6\\u0712\。Ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:5050\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{CF578}\x{10EF6}\x{0712}。ⴈ\x{200D}", %p)}, undef, "to_ascii\(\'\\uDAFD\\uDD78\\uD803\\uDEF6\\u0712\。ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:5052\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{66A3E}\x{A9B9}\x{06C2}⒈.\x{073C}髯\x{200C}", %p)}, undef, "to_ascii\(\'\\uD95A\\uDE3E\\uA9B9\\u06C2⒈.\\u073C髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ C1\ \[data\/IdnaTest\.txt\:5054\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{66A3E}\x{A9B9}\x{06C1}\x{0654}⒈.\x{073C}髯\x{200C}", %p)}, undef, "to_ascii\(\'\\uD95A\\uDE3E\\uA9B9\\u06C1\\u0654⒈.\\u073C髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ C1\ \[data\/IdnaTest\.txt\:5056\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{66A3E}\x{A9B9}\x{06C2}1..\x{073C}髯\x{200C}", %p)}, undef, "to_ascii\(\'\\uD95A\\uDE3E\\uA9B9\\u06C21\.\.\\u073C髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ A4_2\ C1\ \[data\/IdnaTest\.txt\:5058\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{66A3E}\x{A9B9}\x{06C1}\x{0654}1..\x{073C}髯\x{200C}", %p)}, undef, "to_ascii\(\'\\uD95A\\uDE3E\\uA9B9\\u06C1\\u06541\.\.\\u073C髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ A4_2\ C1\ \[data\/IdnaTest\.txt\:5060\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{06A6}.\x{07E6}\x{1A62}", %p)}, "xn--8jb.xn--etb875g", "to_ascii\(\'\\u06A6.\\u07E6\\u1A62\'\)\ \[data\/IdnaTest\.txt\:5061\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{06A6}.\x{07E6}\x{1A62}", %p)}, "xn--8jb.xn--etb875g", "to_ascii\(\'\\u06A6\.\\u07E6\\u1A62\'\)\ \[data\/IdnaTest\.txt\:5062\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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--8jb.xn--etb875g", %p)}, "xn--8jb.xn--etb875g", "to_ascii\(\'xn\-\-8jb\.xn\-\-etb875g\'\)\ \[data\/IdnaTest\.txt\:5063\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0D4D}.\x{1E86E}", %p)}, undef, "to_ascii\(\'\\u0D4D.\\uD83A\\uDC6E\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5064\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0D4D}.\x{1E86E}", %p)}, undef, "to_ascii\(\'\\u0D4D\.\\uD83A\\uDC6E\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5065\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠膣。\x{0DD2}", %p)}, undef, "to_ascii\(\'\≠膣\。\\u0DD2\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5066\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}膣。\x{0DD2}", %p)}, undef, "to_ascii\(\'\=\\u0338膣\。\\u0DD2\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5067\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{745DA}-\x{08A8}。ß", %p)}, undef, "to_ascii\(\'\\uD991\\uDDDA\-\\u08A8。ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5068\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{745DA}-\x{08A8}。ß", %p)}, undef, "to_ascii\(\'\\uD991\\uDDDA\-\\u08A8\。ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5069\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{745DA}-\x{08A8}。SS", %p)}, undef, "to_ascii\(\'\\uD991\\uDDDA\-\\u08A8\。SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5070\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{745DA}-\x{08A8}。SS", %p)}, undef, "to_ascii\(\'\\uD991\\uDDDA\-\\u08A8。SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5071\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{0669}ᡲ\x{17D2}.\x{0321}\x{10E68}\x{45953}\x{069D}", %p)}, undef, "to_ascii\(\'ς\\u0669ᡲ\\u17D2.\\u0321\\uD803\\uDE68\\uD8D6\\uDD53\\u069D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:5072\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{0669}ᡲ\x{17D2}.\x{0321}\x{10E68}\x{45953}\x{069D}", %p)}, undef, "to_ascii\(\'ς\\u0669ᡲ\\u17D2\.\\u0321\\uD803\\uDE68\\uD8D6\\uDD53\\u069D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:5073\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{0669}ᡲ\x{17D2}.\x{0321}\x{10E68}\x{45953}\x{069D}", %p)}, undef, "to_ascii\(\'Σ\\u0669ᡲ\\u17D2\.\\u0321\\uD803\\uDE68\\uD8D6\\uDD53\\u069D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:5074\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{0669}ᡲ\x{17D2}.\x{0321}\x{10E68}\x{45953}\x{069D}", %p)}, undef, "to_ascii\(\'σ\\u0669ᡲ\\u17D2\.\\u0321\\uD803\\uDE68\\uD8D6\\uDD53\\u069D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:5075\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{0669}ᡲ\x{17D2}.\x{0321}\x{10E68}\x{45953}\x{069D}", %p)}, undef, "to_ascii\(\'Σ\\u0669ᡲ\\u17D2.\\u0321\\uD803\\uDE68\\uD8D6\\uDD53\\u069D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:5076\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{0669}ᡲ\x{17D2}.\x{0321}\x{10E68}\x{45953}\x{069D}", %p)}, undef, "to_ascii\(\'σ\\u0669ᡲ\\u17D2.\\u0321\\uD803\\uDE68\\uD8D6\\uDD53\\u069D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:5077\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟹。\x{200D}", %p)}, undef, "to_ascii\(\'𝟹\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:5079\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3。\x{200D}", %p)}, undef, "to_ascii\(\'3\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:5081\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3.", %p)}, "3.", "to_ascii\(\'3\.\'\)\ \[data\/IdnaTest\.txt\:5082\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⽬\x{1B72}。\x{E0CD8}", %p)}, undef, "to_ascii\(\'⽬\\u1B72\。\\uDB43\\uDCD8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5083\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("目\x{1B72}。\x{E0CD8}", %p)}, undef, "to_ascii\(\'目\\u1B72\。\\uDB43\\uDCD8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5084\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0732}䁴\x{B67F6}.Ⴕ🄈\x{200C}\x{AAB7}", %p)}, undef, "to_ascii\(\'\\u0732䁴\\uDA99\\uDFF6.Ⴕ🄈\\u200C\\uAAB7\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5086\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0732}䁴\x{B67F6}.Ⴕ7,\x{200C}\x{AAB7}", %p)}, undef, "to_ascii\(\'\\u0732䁴\\uDA99\\uDFF6\.Ⴕ7\,\\u200C\\uAAB7\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5088\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0732}䁴\x{B67F6}.ⴕ7,\x{200C}\x{AAB7}", %p)}, undef, "to_ascii\(\'\\u0732䁴\\uDA99\\uDFF6\.ⴕ7\,\\u200C\\uAAB7\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5090\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0732}䁴\x{B67F6}.ⴕ🄈\x{200C}\x{AAB7}", %p)}, undef, "to_ascii\(\'\\u0732䁴\\uDA99\\uDFF6.ⴕ🄈\\u200C\\uAAB7\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5092\]") 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\:5094\]") 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\:5096\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("憡\x{DF1F}\x{200C}Ⴔ.5\x{200D}≠", %p)}, undef, "to_ascii\(\'憡\\uDF1F\\u200CႴ\.5\\u200D\≠\'\)\ throws\ error\ P1\ V6\ C1\ C2\ A3\ \[data\/IdnaTest\.txt\:5098\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("憡\x{DF1F}\x{200C}Ⴔ.5\x{200D}=\x{0338}", %p)}, undef, "to_ascii\(\'憡\\uDF1F\\u200CႴ\.5\\u200D\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ A3\ \[data\/IdnaTest\.txt\:5100\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("", %p)}, undef, "to_ascii\(\'\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:5101\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("憡\x{DF1F}\x{200C}ⴔ.5\x{200D}=\x{0338}", %p)}, undef, "to_ascii\(\'憡\\uDF1F\\u200Cⴔ\.5\\u200D\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ A3\ \[data\/IdnaTest\.txt\:5103\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("憡\x{DF1F}\x{200C}ⴔ.5\x{200D}≠", %p)}, undef, "to_ascii\(\'憡\\uDF1F\\u200Cⴔ\.5\\u200D\≠\'\)\ throws\ error\ P1\ V6\ C1\ C2\ 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\ C1\ C2\ 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\ C1\ C2\ A3\ \[data\/IdnaTest\.txt\:5109\]") or ($@ and diag($@)); exit(0); Net-IDN-Encode-2.100/t/uts46_to_unicode.t000444000765000024 453514612260275730 20172 0ustar00cfaerberstaff000000000000# *** 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 warnings; BEGIN { binmode STDOUT, ':utf8'; binmode STDERR, ':utf8'; } 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\:60\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("faß.de", %p)}, "faß.de", "to_unicode\(\'faß\.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("xn--fa-hia.de", %p)}, "faß.de", "to_unicode\(\'xn\-\-fa\-hia\.de\'\)\ \[data\/IdnaTest\.txt\:65\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("à\x{05D0}", %p)}, undef, "to_unicode\(\'à\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:69\]") 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\: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("À\x{05D0}", %p)}, undef, "to_unicode\(\'À\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:72\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0à.\x{05D0}", %p)}, "0à.\x{05D0}", "to_unicode\(\'0à\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:73\]") 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\: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("0À.\x{05D0}", %p)}, "0à.\x{05D0}", "to_unicode\(\'0À\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:76\]") 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\:77\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("à.\x{05D0}\x{0308}", %p)}, "à.\x{05D0}\x{0308}", "to_unicode\(\'à\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:78\]") 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\: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("À.\x{05D0}\x{0308}", %p)}, "à.\x{05D0}\x{0308}", "to_unicode\(\'À\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:81\]") 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\:82\]") 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\:83\]") 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\: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("À.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_unicode\(\'À\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:86\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0308}.\x{05D0}", %p)}, undef, "to_unicode\(\'\\u0308\.\\u05D0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:87\]") 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\:88\]") 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\: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("À.\x{05D0}0\x{0660}", %p)}, undef, "to_unicode\(\'À\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:91\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("àˇ.\x{05D0}", %p)}, "àˇ.\x{05D0}", "to_unicode\(\'àˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:92\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0300}ˇ.\x{05D0}", %p)}, "àˇ.\x{05D0}", "to_unicode\(\'a\\u0300ˇ\.\\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("Àˇ.\x{05D0}", %p)}, "àˇ.\x{05D0}", "to_unicode\(\'Àˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:95\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--0ca88g.xn--4db", %p)}, "àˇ.\x{05D0}", "to_unicode\(\'xn\-\-0ca88g\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:96\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("à\x{0308}.\x{05D0}", %p)}, "à\x{0308}.\x{05D0}", "to_unicode\(\'à\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:97\]") 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\: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("À\x{0308}.\x{05D0}", %p)}, "à\x{0308}.\x{05D0}", "to_unicode\(\'À\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:100\]") 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\:101\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{200C}b", %p)}, undef, "to_unicode\(\'a\\u200Cb\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:105\]") 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("ab", %p)}, "ab", "to_unicode\(\'ab\'\)\ \[data\/IdnaTest\.txt\:111\]") 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\: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("xn--ab-fsf", %p)}, "a\x{094D}b", "to_unicode\(\'xn\-\-ab\-fsf\'\)\ \[data\/IdnaTest\.txt\:118\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{094D}b", %p)}, "a\x{094D}b", "to_unicode\(\'a\\u094Db\'\)\ \[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("xn--ab-fsf604u", %p)}, "a\x{094D}\x{200C}b", "to_unicode\(\'xn\-\-ab\-fsf604u\'\)\ \[data\/IdnaTest\.txt\:122\]") 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\: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("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\: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}\x{0628}b", %p)}, undef, "to_unicode\(\'a\\u0628\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ B5\ \[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{200D}b", %p)}, undef, "to_unicode\(\'a\\u200Db\'\)\ throws\ error\ C2\ \[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{094D}\x{200D}b", %p)}, "a\x{094D}\x{200D}b", "to_unicode\(\'a\\u094D\\u200Db\'\)\ \[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("xn--ab-fsf014u", %p)}, "a\x{094D}\x{200D}b", "to_unicode\(\'xn\-\-ab\-fsf014u\'\)\ \[data\/IdnaTest\.txt\:146\]") 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\: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("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\: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}\x{0628}b", %p)}, undef, "to_unicode\(\'a\\u0628\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ B5\ 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("¡", %p)}, "¡", "to_unicode\(\'\¡\'\)\ \[data\/IdnaTest\.txt\:164\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--7a", %p)}, "¡", "to_unicode\(\'xn\-\-7a\'\)\ \[data\/IdnaTest\.txt\:165\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。", %p)}, undef, "to_unicode\(\'\。\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:166\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1234567890ä1234567890123456789012345678901234567890123456", %p)}, "1234567890ä1234567890123456789012345678901234567890123456", "to_unicode\(\'1234567890ä1234567890123456789012345678901234567890123456\'\)\ \[data\/IdnaTest\.txt\:167\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1234567890a\x{0308}1234567890123456789012345678901234567890123456", %p)}, "1234567890ä1234567890123456789012345678901234567890123456", "to_unicode\(\'1234567890a\\u03081234567890123456789012345678901234567890123456\'\)\ \[data\/IdnaTest\.txt\:168\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1234567890A\x{0308}1234567890123456789012345678901234567890123456", %p)}, "1234567890ä1234567890123456789012345678901234567890123456", "to_unicode\(\'1234567890A\\u03081234567890123456789012345678901234567890123456\'\)\ \[data\/IdnaTest\.txt\:169\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1234567890Ä1234567890123456789012345678901234567890123456", %p)}, "1234567890ä1234567890123456789012345678901234567890123456", "to_unicode\(\'1234567890Ä1234567890123456789012345678901234567890123456\'\)\ \[data\/IdnaTest\.txt\:170\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("www.eXample.cOm", %p)}, "www.example.com", "to_unicode\(\'www\.eXample\.cOm\'\)\ \[data\/IdnaTest\.txt\:171\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Bücher.de", %p)}, "bücher.de", "to_unicode\(\'Bücher\.de\'\)\ \[data\/IdnaTest\.txt\:172\]") 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\:173\]") 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\:174\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("bücher.de", %p)}, "bücher.de", "to_unicode\(\'bücher\.de\'\)\ \[data\/IdnaTest\.txt\:175\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("BÜCHER.DE", %p)}, "bücher.de", "to_unicode\(\'BÜCHER\.DE\'\)\ \[data\/IdnaTest\.txt\:176\]") 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\:177\]") 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\:178\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ÖBB", %p)}, "öbb", "to_unicode\(\'ÖBB\'\)\ \[data\/IdnaTest\.txt\:179\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("O\x{0308}BB", %p)}, "öbb", "to_unicode\(\'O\\u0308BB\'\)\ \[data\/IdnaTest\.txt\:180\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("o\x{0308}bb", %p)}, "öbb", "to_unicode\(\'o\\u0308bb\'\)\ \[data\/IdnaTest\.txt\:181\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("öbb", %p)}, "öbb", "to_unicode\(\'öbb\'\)\ \[data\/IdnaTest\.txt\:182\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Öbb", %p)}, "öbb", "to_unicode\(\'Öbb\'\)\ \[data\/IdnaTest\.txt\:183\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("O\x{0308}bb", %p)}, "öbb", "to_unicode\(\'O\\u0308bb\'\)\ \[data\/IdnaTest\.txt\:184\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--bb-eka", %p)}, "öbb", "to_unicode\(\'xn\-\-bb\-eka\'\)\ \[data\/IdnaTest\.txt\:185\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βόλος.com", %p)}, "βόλος.com", "to_unicode\(\'βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:186\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βόλος.com", %p)}, "βόλος.com", "to_unicode\(\'βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:187\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βο\x{0301}λος.com", %p)}, "βόλος.com", "to_unicode\(\'βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:188\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βο\x{0301}λος.com", %p)}, "βόλος.com", "to_unicode\(\'βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:189\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ΒΟ\x{0301}ΛΟΣ.COM", %p)}, "βόλοσ.com", "to_unicode\(\'ΒΟ\\u0301ΛΟΣ\.COM\'\)\ \[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("Βόλοσ.com", %p)}, "βόλοσ.com", "to_unicode\(\'Βόλοσ\.com\'\)\ \[data\/IdnaTest\.txt\:195\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--nxasmq6b.com", %p)}, "βόλοσ.com", "to_unicode\(\'xn\-\-nxasmq6b\.com\'\)\ \[data\/IdnaTest\.txt\:196\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Βο\x{0301}λος.com", %p)}, "βόλος.com", "to_unicode\(\'Βο\\u0301λος\.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("Βόλος.com", %p)}, "βόλος.com", "to_unicode\(\'Βόλος\.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--nxasmm1c.com", %p)}, "βόλος.com", "to_unicode\(\'xn\-\-nxasmm1c\.com\'\)\ \[data\/IdnaTest\.txt\:201\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--nxasmm1c", %p)}, "βόλος", "to_unicode\(\'xn\-\-nxasmm1c\'\)\ \[data\/IdnaTest\.txt\:202\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βόλος", %p)}, "βόλος", "to_unicode\(\'βόλος\'\)\ \[data\/IdnaTest\.txt\:203\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βόλος", %p)}, "βόλος", "to_unicode\(\'βόλος\'\)\ \[data\/IdnaTest\.txt\:204\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βο\x{0301}λος", %p)}, "βόλος", "to_unicode\(\'βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:205\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βο\x{0301}λος", %p)}, "βόλος", "to_unicode\(\'βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:206\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ΒΟ\x{0301}ΛΟΣ", %p)}, "βόλοσ", "to_unicode\(\'ΒΟ\\u0301ΛΟΣ\'\)\ \[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("Βόλοσ", %p)}, "βόλοσ", "to_unicode\(\'Βόλοσ\'\)\ \[data\/IdnaTest\.txt\:212\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--nxasmq6b", %p)}, "βόλοσ", "to_unicode\(\'xn\-\-nxasmq6b\'\)\ \[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("Βόλος", %p)}, "βόλος", "to_unicode\(\'Βόλος\'\)\ \[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("Βο\x{0301}λος", %p)}, "βόλος", "to_unicode\(\'Βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:217\]") 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\:218\]") 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\:219\]") 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\:220\]") 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\:221\]") 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\:222\]") 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\:223\]") 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\:224\]") 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\:225\]") 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\:226\]") 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\:227\]") 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\:228\]") 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\:229\]") 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\:230\]") 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\:231\]") 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\:232\]") 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\:233\]") 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\:234\]") 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\:235\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("U\x{0308}.xn--tda", %p)}, "ü.ü", "to_unicode\(\'U\\u0308\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:236\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ü.xn--tda", %p)}, "ü.ü", "to_unicode\(\'Ü\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:237\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ü.xn--tda", %p)}, "ü.ü", "to_unicode\(\'ü\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:238\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("u\x{0308}.xn--tda", %p)}, "ü.ü", "to_unicode\(\'u\\u0308\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:239\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--tda.xn--tda", %p)}, "ü.ü", "to_unicode\(\'xn\-\-tda\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:240\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ü.ü", %p)}, "ü.ü", "to_unicode\(\'ü\.ü\'\)\ \[data\/IdnaTest\.txt\:241\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("u\x{0308}.u\x{0308}", %p)}, "ü.ü", "to_unicode\(\'u\\u0308\.u\\u0308\'\)\ \[data\/IdnaTest\.txt\:242\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("U\x{0308}.U\x{0308}", %p)}, "ü.ü", "to_unicode\(\'U\\u0308\.U\\u0308\'\)\ \[data\/IdnaTest\.txt\:243\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ü.Ü", %p)}, "ü.ü", "to_unicode\(\'Ü\.Ü\'\)\ \[data\/IdnaTest\.txt\:244\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ü.ü", %p)}, "ü.ü", "to_unicode\(\'Ü\.ü\'\)\ \[data\/IdnaTest\.txt\:245\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("U\x{0308}.u\x{0308}", %p)}, "ü.ü", "to_unicode\(\'U\\u0308\.u\\u0308\'\)\ \[data\/IdnaTest\.txt\:246\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--u-ccb", %p)}, undef, "to_unicode\(\'xn\-\-u\-ccb\'\)\ throws\ error\ V1\ \[data\/IdnaTest\.txt\:247\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a⒈com", %p)}, undef, "to_unicode\(\'a⒈com\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:248\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a1.com", %p)}, "a1.com", "to_unicode\(\'a1\.com\'\)\ \[data\/IdnaTest\.txt\:249\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A⒈COM", %p)}, undef, "to_unicode\(\'A⒈COM\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:250\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A⒈Com", %p)}, undef, "to_unicode\(\'A⒈Com\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:251\]") 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\:252\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--0.pt", %p)}, undef, "to_unicode\(\'xn\-\-0\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:253\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--a.pt", %p)}, undef, "to_unicode\(\'xn\-\-a\.pt\'\)\ throws\ error\ V6\ \[data\/IdnaTest\.txt\:254\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--a-Ä.pt", %p)}, undef, "to_unicode\(\'xn\-\-a\-Ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:255\]") 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\:256\]") 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\:257\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--a-ä.pt", %p)}, undef, "to_unicode\(\'xn\-\-a\-ä\.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\ A3\ \[data\/IdnaTest\.txt\:259\]") 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\: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-Ä.pt", %p)}, undef, "to_unicode\(\'Xn\-\-A\-Ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:262\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("日本語。JP", %p)}, "日本語.jp", "to_unicode\(\'日本語\。JP\'\)\ \[data\/IdnaTest\.txt\:263\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("日本語。JP", %p)}, "日本語.jp", "to_unicode\(\'日本語\。JP\'\)\ \[data\/IdnaTest\.txt\:264\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--wgv71a119e.jp", %p)}, "日本語.jp", "to_unicode\(\'xn\-\-wgv71a119e\.jp\'\)\ \[data\/IdnaTest\.txt\:265\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("日本語.jp", %p)}, "日本語.jp", "to_unicode\(\'日本語\.jp\'\)\ \[data\/IdnaTest\.txt\:266\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("日本語。jp", %p)}, "日本語.jp", "to_unicode\(\'日本語\。jp\'\)\ \[data\/IdnaTest\.txt\:267\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("日本語。Jp", %p)}, "日本語.jp", "to_unicode\(\'日本語\。Jp\'\)\ \[data\/IdnaTest\.txt\:268\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("☕", %p)}, "☕", "to_unicode\(\'\☕\'\)\ \[data\/IdnaTest\.txt\:269\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--53h", %p)}, "☕", "to_unicode\(\'xn\-\-53h\'\)\ \[data\/IdnaTest\.txt\:270\]") 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\:271\]") 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\:272\]") 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\:273\]") 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\:274\]") 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\:275\]") 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\:276\]") 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\:277\]") 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\: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σσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_unicode\(\'1\.ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ 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σσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_unicode\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ 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σσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_unicode\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ 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σσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz", %p)}, undef, "to_unicode\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:284\]") 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\:285\]") 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\:286\]") 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\:287\]") 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\:288\]") 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\:289\]") 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\:290\]") 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\:291\]") 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\:292\]") 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\: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("xn--bss", %p)}, "夙", "to_unicode\(\'xn\-\-bss\'\)\ \[data\/IdnaTest\.txt\:295\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("夙", %p)}, "夙", "to_unicode\(\'夙\'\)\ \[data\/IdnaTest\.txt\:296\]") 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\:297\]") 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\:298\]") 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}𝔰\x{E01EF}ffl", %p)}, "夡夞夜夙", "to_unicode\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD-\\u180Cℬ\\uFE00ſ\\u2064𝔰\\uDB40\\uDDEFffl\'\)\ \[data\/IdnaTest\.txt\:299\]") 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\x{E01EF}ffl", %p)}, "夡夞夜夙", "to_unicode\(\'x\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00s\\u2064s\\uDB40\\uDDEFffl\'\)\ \[data\/IdnaTest\.txt\:300\]") 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\x{E01EF}ffl", %p)}, "夡夞夜夙", "to_unicode\(\'x\\u034Fn\\u200B\-\\u00AD\-\\u180Cb\\uFE00s\\u2064s\\uDB40\\uDDEFffl\'\)\ \[data\/IdnaTest\.txt\:301\]") 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\x{E01EF}FFL", %p)}, "夡夞夜夙", "to_unicode\(\'X\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00S\\u2064S\\uDB40\\uDDEFFFL\'\)\ \[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_unicode("X\x{034F}n\x{200B}-\x{00AD}-\x{180C}B\x{FE00}s\x{2064}s\x{E01EF}ffl", %p)}, "夡夞夜夙", "to_unicode\(\'X\\u034Fn\\u200B\-\\u00AD\-\\u180CB\\uFE00s\\u2064s\\uDB40\\uDDEFffl\'\)\ \[data\/IdnaTest\.txt\:303\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("xn--bssffl", %p)}, "夡夞夜夙", "to_unicode\(\'xn\-\-bssffl\'\)\ \[data\/IdnaTest\.txt\:304\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("夡夞夜夙", %p)}, "夡夞夜夙", "to_unicode\(\'夡夞夜夙\'\)\ \[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{034F}ℕ\x{200B}﹣\x{00AD}-\x{180C}ℬ\x{FE00}S\x{2064}𝔰\x{E01EF}FFL", %p)}, "夡夞夜夙", "to_unicode\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD-\\u180Cℬ\\uFE00S\\u2064𝔰\\uDB40\\uDDEFFFL\'\)\ \[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\x{E01EF}FFL", %p)}, "夡夞夜夙", "to_unicode\(\'x\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00S\\u2064s\\uDB40\\uDDEFFFL\'\)\ \[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{034F}ℕ\x{200B}﹣\x{00AD}-\x{180C}ℬ\x{FE00}s\x{2064}𝔰\x{E01EF}ffl", %p)}, "夡夞夜夙", "to_unicode\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD-\\u180Cℬ\\uFE00s\\u2064𝔰\\uDB40\\uDDEFffl\'\)\ \[data\/IdnaTest\.txt\:308\]") 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\:309\]") 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\:310\]") 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\:311\]") 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\:312\]") 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\:313\]") 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\:314\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ä1234567890123456789012345678901234567890123456789012345", %p)}, "ä1234567890123456789012345678901234567890123456789012345", "to_unicode\(\'ä1234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:315\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0308}1234567890123456789012345678901234567890123456789012345", %p)}, "ä1234567890123456789012345678901234567890123456789012345", "to_unicode\(\'a\\u03081234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:316\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0308}1234567890123456789012345678901234567890123456789012345", %p)}, "ä1234567890123456789012345678901234567890123456789012345", "to_unicode\(\'A\\u03081234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:317\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ä1234567890123456789012345678901234567890123456789012345", %p)}, "ä1234567890123456789012345678901234567890123456789012345", "to_unicode\(\'Ä1234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:318\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--1234567890123456789012345678901234567890123456789012345-9te", %p)}, "ä1234567890123456789012345678901234567890123456789012345", "to_unicode\(\'xn\-\-1234567890123456789012345678901234567890123456789012345\-9te\'\)\ \[data\/IdnaTest\.txt\:319\]") 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\:320\]") 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\:321\]") 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\:322\]") 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\:323\]") 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\: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.12345678901234567890123456789012345678901234567890123456789012", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ \[data\/IdnaTest\.txt\:330\]") 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\:331\]") 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\:332\]") 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\:333\]") 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\:334\]") 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\:335\]") 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\:336\]") 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\:337\]") 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\:338\]") 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\: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.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ \[data\/IdnaTest\.txt\:341\]") 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\:342\]") 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\:343\]") 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\:344\]") 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\:345\]") 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\:346\]") 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\:347\]") 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\:348\]") 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\:349\]") 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\:350\]") 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\:351\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a..c", %p)}, undef, "to_unicode\(\'a\.\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:352\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a.-b.", %p)}, undef, "to_unicode\(\'a\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:353\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a.b-.c", %p)}, undef, "to_unicode\(\'a\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:354\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a.-.c", %p)}, undef, "to_unicode\(\'a\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:355\]") 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\:356\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ä.\x{00AD}.c", %p)}, undef, "to_unicode\(\'ä\.\\u00AD\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:357\]") 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\:358\]") 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\:359\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ä.\x{00AD}.C", %p)}, undef, "to_unicode\(\'Ä\.\\u00AD\.C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:360\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ä.-b.", %p)}, undef, "to_unicode\(\'ä\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:361\]") 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\:362\]") 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\:363\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ä.-B.", %p)}, undef, "to_unicode\(\'Ä\.\-B\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:364\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ä.b-.c", %p)}, undef, "to_unicode\(\'ä\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:365\]") 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\:366\]") 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\:367\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ä.B-.C", %p)}, undef, "to_unicode\(\'Ä\.B\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:368\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ä.-.c", %p)}, undef, "to_unicode\(\'ä\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:369\]") 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\:370\]") 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\:371\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ä.-.C", %p)}, undef, "to_unicode\(\'Ä\.\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:372\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ä.bc--de.f", %p)}, undef, "to_unicode\(\'ä\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:373\]") 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\:374\]") 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\:375\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ä.BC--DE.F", %p)}, undef, "to_unicode\(\'Ä\.BC\-\-DE\.F\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:376\]") 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\:377\]") 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\:378\]") 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\:379\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A0", %p)}, "a0", "to_unicode\(\'A0\'\)\ \[data\/IdnaTest\.txt\:380\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0A", %p)}, "0a", "to_unicode\(\'0A\'\)\ \[data\/IdnaTest\.txt\:381\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0A.\x{05D0}", %p)}, "0a.\x{05D0}", "to_unicode\(\'0A\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:382\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0a.xn--4db", %p)}, "0a.\x{05D0}", "to_unicode\(\'0a\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:383\]") 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\:384\]") 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\:385\]") 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\:386\]") 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\:387\]") 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\:388\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("b-.\x{05D0}", %p)}, undef, "to_unicode\(\'b\-\.\\u05D0\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:389\]") 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\:390\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{05D0}", %p)}, undef, "to_unicode\(\'a\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:391\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{05D0}", %p)}, undef, "to_unicode\(\'A\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:392\]") 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\:393\]") 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\:394\]") 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\:395\]") 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\:396\]") 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\: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}A\x{05C7}", %p)}, undef, "to_unicode\(\'\\u05D0A\\u05C7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:398\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{05D0}\x{05EA}", %p)}, "\x{05D0}\x{05EA}", "to_unicode\(\'\\u05D0\\u05EA\'\)\ \[data\/IdnaTest\.txt\:399\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--4db6c", %p)}, "\x{05D0}\x{05EA}", "to_unicode\(\'xn\-\-4db6c\'\)\ \[data\/IdnaTest\.txt\:400\]") 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\:401\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--4db6c0a", %p)}, "\x{05D0}\x{05F3}\x{05EA}", "to_unicode\(\'xn\-\-4db6c0a\'\)\ \[data\/IdnaTest\.txt\:402\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{05D0}Tz", %p)}, undef, "to_unicode\(\'a\\u05D0Tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:403\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{05D0}tz", %p)}, undef, "to_unicode\(\'a\\u05D0tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:404\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{05D0}TZ", %p)}, undef, "to_unicode\(\'A\\u05D0TZ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:405\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{05D0}tz", %p)}, undef, "to_unicode\(\'A\\u05D0tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:406\]") 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\:407\]") 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\:408\]") 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\:409\]") 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\:410\]") 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\:411\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--4db6c6t", %p)}, "\x{05D0}\x{0667}\x{05EA}", "to_unicode\(\'xn\-\-4db6c6t\'\)\ \[data\/IdnaTest\.txt\:412\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a7\x{0667}z", %p)}, undef, "to_unicode\(\'a7\\u0667z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:413\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A7\x{0667}Z", %p)}, undef, "to_unicode\(\'A7\\u0667Z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:414\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A7\x{0667}z", %p)}, undef, "to_unicode\(\'A7\\u0667z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:415\]") 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\:416\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ\x{0BCD}\x{200D}", %p)}, "ஹ\x{0BCD}\x{200D}", "to_unicode\(\'ஹ\\u0BCD\\u200D\'\)\ \[data\/IdnaTest\.txt\:417\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ\x{0BCD}\x{200D}", %p)}, "ஹ\x{0BCD}\x{200D}", "to_unicode\(\'ஹ\\u0BCD\\u200D\'\)\ \[data\/IdnaTest\.txt\:418\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--dmc4b", %p)}, "ஹ\x{0BCD}", "to_unicode\(\'xn\-\-dmc4b\'\)\ \[data\/IdnaTest\.txt\:419\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ\x{0BCD}", %p)}, "ஹ\x{0BCD}", "to_unicode\(\'ஹ\\u0BCD\'\)\ \[data\/IdnaTest\.txt\:420\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--dmc4b194h", %p)}, "ஹ\x{0BCD}\x{200D}", "to_unicode\(\'xn\-\-dmc4b194h\'\)\ \[data\/IdnaTest\.txt\:421\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ\x{200D}", %p)}, undef, "to_unicode\(\'ஹ\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:422\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ\x{200D}", %p)}, undef, "to_unicode\(\'ஹ\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:423\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--dmc", %p)}, "ஹ", "to_unicode\(\'xn\-\-dmc\'\)\ \[data\/IdnaTest\.txt\:424\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ", %p)}, "ஹ", "to_unicode\(\'ஹ\'\)\ \[data\/IdnaTest\.txt\:425\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D\'\)\ throws\ error\ C2\ \[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{0BCD}\x{200C}", %p)}, "ஹ\x{0BCD}\x{200C}", "to_unicode\(\'ஹ\\u0BCD\\u200C\'\)\ \[data\/IdnaTest\.txt\:428\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ\x{0BCD}\x{200C}", %p)}, "ஹ\x{0BCD}\x{200C}", "to_unicode\(\'ஹ\\u0BCD\\u200C\'\)\ \[data\/IdnaTest\.txt\:429\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--dmc4by94h", %p)}, "ஹ\x{0BCD}\x{200C}", "to_unicode\(\'xn\-\-dmc4by94h\'\)\ \[data\/IdnaTest\.txt\:430\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ\x{200C}", %p)}, undef, "to_unicode\(\'ஹ\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:431\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ\x{200C}", %p)}, undef, "to_unicode\(\'ஹ\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:432\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}", %p)}, undef, "to_unicode\(\'\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:433\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}", %p)}, undef, "to_unicode\(\'\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:434\]") 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\:435\]") 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\:436\]") 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\:437\]") 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\:438\]") 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\:439\]") 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\:440\]") 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\:441\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ghb2g3q", %p)}, "\x{0644}\x{0670}\x{06EF}", "to_unicode\(\'xn\-\-ghb2g3q\'\)\ \[data\/IdnaTest\.txt\:442\]") 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\:443\]") 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\:444\]") 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\:445\]") 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\:446\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ghb25aga", %p)}, "\x{0644}\x{06ED}\x{06EF}", "to_unicode\(\'xn\-\-ghb25aga\'\)\ \[data\/IdnaTest\.txt\:447\]") 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\:448\]") 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\:449\]") 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\:450\]") 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\:451\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ghb65a", %p)}, "\x{0644}\x{06EF}", "to_unicode\(\'xn\-\-ghb65a\'\)\ \[data\/IdnaTest\.txt\:452\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}\x{06EF}", %p)}, "\x{0644}\x{06EF}", "to_unicode\(\'\\u0644\\u06EF\'\)\ \[data\/IdnaTest\.txt\:453\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ghb65a953d", %p)}, "\x{0644}\x{200C}\x{06EF}", "to_unicode\(\'xn\-\-ghb65a953d\'\)\ \[data\/IdnaTest\.txt\:454\]") 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\:455\]") 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\:456\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ghb2gxq", %p)}, "\x{0644}\x{0670}\x{06ED}", "to_unicode\(\'xn\-\-ghb2gxq\'\)\ \[data\/IdnaTest\.txt\:457\]") 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\:458\]") 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\:459\]") 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\:460\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--cmba", %p)}, "\x{06EF}\x{06EF}", "to_unicode\(\'xn\-\-cmba\'\)\ \[data\/IdnaTest\.txt\:461\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06EF}\x{06EF}", %p)}, "\x{06EF}\x{06EF}", "to_unicode\(\'\\u06EF\\u06EF\'\)\ \[data\/IdnaTest\.txt\:462\]") 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\:463\]") 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\:464\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ghb", %p)}, "\x{0644}", "to_unicode\(\'xn\-\-ghb\'\)\ \[data\/IdnaTest\.txt\:465\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}", %p)}, "\x{0644}", "to_unicode\(\'\\u0644\'\)\ \[data\/IdnaTest\.txt\:466\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⁷∝\x{A8EC}\x{E2410}.-\x{E01D1}", %p)}, undef, "to_unicode\(\'⁷\∝\\uA8EC\\uDB49\\uDC10.\-\\uDB40\\uDDD1\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:470\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("7∝\x{A8EC}\x{E2410}.-\x{E01D1}", %p)}, undef, "to_unicode\(\'7\∝\\uA8EC\\uDB49\\uDC10\.\-\\uDB40\\uDDD1\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:471\]") 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{0769}.ꡰ", %p)}, "\x{0769}.ꡰ", "to_unicode\(\'\\u0769\.ꡰ\'\)\ \[data\/IdnaTest\.txt\:472\]") 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--tpb.xn--md9a", %p)}, "\x{0769}.ꡰ", "to_unicode\(\'xn\-\-tpb\.xn\-\-md9a\'\)\ \[data\/IdnaTest\.txt\:473\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("≯\x{066B}。-", %p)}, undef, "to_unicode\(\'\≯\\u066B。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:474\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{066B}。-", %p)}, undef, "to_unicode\(\'\>\\u0338\\u066B。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:475\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{066B}。-", %p)}, undef, "to_unicode\(\'\≯\\u066B\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:476\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{066B}。-", %p)}, undef, "to_unicode\(\'\>\\u0338\\u066B\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:477\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾛\x{066B}⾕.\x{115F}⚙ςႭ", %p)}, undef, "to_unicode\(\'⾛\\u066B⾕\.\\u115F\⚙ςႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:478\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("走\x{066B}谷.\x{115F}⚙ςႭ", %p)}, undef, "to_unicode\(\'走\\u066B谷\.\\u115F\⚙ςႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:479\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("走\x{066B}谷.\x{115F}⚙ςⴍ", %p)}, undef, "to_unicode\(\'走\\u066B谷\.\\u115F\⚙ςⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:480\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("走\x{066B}谷.\x{115F}⚙ΣႭ", %p)}, undef, "to_unicode\(\'走\\u066B谷\.\\u115F\⚙ΣႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:481\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("走\x{066B}谷.\x{115F}⚙σⴍ", %p)}, undef, "to_unicode\(\'走\\u066B谷\.\\u115F\⚙σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:482\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("走\x{066B}谷.\x{115F}⚙Σⴍ", %p)}, undef, "to_unicode\(\'走\\u066B谷\.\\u115F\⚙Σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:483\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾛\x{066B}⾕.\x{115F}⚙ςⴍ", %p)}, undef, "to_unicode\(\'⾛\\u066B⾕\.\\u115F\⚙ςⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:484\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾛\x{066B}⾕.\x{115F}⚙ΣႭ", %p)}, undef, "to_unicode\(\'⾛\\u066B⾕\.\\u115F\⚙ΣႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:485\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾛\x{066B}⾕.\x{115F}⚙σⴍ", %p)}, undef, "to_unicode\(\'⾛\\u066B⾕\.\\u115F\⚙σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:486\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾛\x{066B}⾕.\x{115F}⚙Σⴍ", %p)}, undef, "to_unicode\(\'⾛\\u066B⾕\.\\u115F\⚙Σⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:487\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}≠ᡈ≯.솣-\x{0646}Ⴀ", %p)}, undef, "to_unicode\(\'\\u200D\≠ᡈ\≯\.솣\-\\u0646Ⴀ\'\)\ throws\ error\ P1\ V6\ C2\ B5\ \[data\/IdnaTest\.txt\:488\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}≠ᡈ≯.솣-\x{0646}Ⴀ", %p)}, undef, "to_unicode\(\'\\u200D\≠ᡈ\≯\.솣\-\\u0646Ⴀ\'\)\ throws\ error\ P1\ V6\ C2\ B5\ \[data\/IdnaTest\.txt\:489\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}=\x{0338}ᡈ>\x{0338}.솣-\x{0646}Ⴀ", %p)}, undef, "to_unicode\(\'\\u200D\=\\u0338ᡈ\>\\u0338\.솣\-\\u0646Ⴀ\'\)\ throws\ error\ P1\ V6\ C2\ B5\ \[data\/IdnaTest\.txt\:490\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}=\x{0338}ᡈ>\x{0338}.솣-\x{0646}Ⴀ", %p)}, undef, "to_unicode\(\'\\u200D\=\\u0338ᡈ\>\\u0338\.솣\-\\u0646Ⴀ\'\)\ throws\ error\ P1\ V6\ C2\ B5\ \[data\/IdnaTest\.txt\:491\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}=\x{0338}ᡈ>\x{0338}.솣-\x{0646}ⴀ", %p)}, undef, "to_unicode\(\'\\u200D\=\\u0338ᡈ\>\\u0338\.솣\-\\u0646ⴀ\'\)\ throws\ error\ P1\ V6\ C2\ B5\ \[data\/IdnaTest\.txt\:492\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}=\x{0338}ᡈ>\x{0338}.솣-\x{0646}ⴀ", %p)}, undef, "to_unicode\(\'\\u200D\=\\u0338ᡈ\>\\u0338\.솣\-\\u0646ⴀ\'\)\ throws\ error\ P1\ V6\ C2\ B5\ \[data\/IdnaTest\.txt\:493\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}≠ᡈ≯.솣-\x{0646}ⴀ", %p)}, undef, "to_unicode\(\'\\u200D\≠ᡈ\≯\.솣\-\\u0646ⴀ\'\)\ throws\ error\ P1\ V6\ C2\ B5\ \[data\/IdnaTest\.txt\:494\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}≠ᡈ≯.솣-\x{0646}ⴀ", %p)}, undef, "to_unicode\(\'\\u200D\≠ᡈ\≯\.솣\-\\u0646ⴀ\'\)\ throws\ error\ P1\ V6\ C2\ B5\ \[data\/IdnaTest\.txt\:495\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E8204}.\x{FD05}\x{032F}\x{072E}\x{10E7C}", %p)}, undef, "to_unicode\(\'\\uDB60\\uDE04.\\uFD05\\u032F\\u072E\\uD803\\uDE7C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:496\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E8204}.\x{0635}\x{0649}\x{032F}\x{072E}\x{10E7C}", %p)}, undef, "to_unicode\(\'\\uDB60\\uDE04\.\\u0635\\u0649\\u032F\\u072E\\uD803\\uDE7C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:497\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{B5606}\x{1039}.\x{AAF6}", %p)}, undef, "to_unicode\(\'\\uDA95\\uDE06\\u1039\.\\uAAF6\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:498\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠼ\x{0FB3}\x{BCBAD}。\x{1D177}Ⴣ\x{07E4}", %p)}, undef, "to_unicode\(\'ᠼ\\u0FB3\\uDAB2\\uDFAD\。\\uD834\\uDD77Ⴣ\\u07E4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:499\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠼ\x{0FB3}\x{BCBAD}。\x{1D177}ⴣ\x{07E4}", %p)}, undef, "to_unicode\(\'ᠼ\\u0FB3\\uDAB2\\uDFAD\。\\uD834\\uDD77ⴣ\\u07E4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:500\]") 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{10E6A}\x{09CD}ς🃌。\x{1A76}렧", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6A\\u09CDς🃌\。\\u1A76렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:501\]") 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{10E6A}\x{09CD}ς🃌。\x{1A76}렧", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6A\\u09CDς🃌\。\\u1A76렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:502\]") 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{10E6A}\x{09CD}Σ🃌。\x{1A76}렧", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6A\\u09CDΣ🃌\。\\u1A76렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:503\]") 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{10E6A}\x{09CD}Σ🃌。\x{1A76}렧", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6A\\u09CDΣ🃌\。\\u1A76렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:504\]") 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{10E6A}\x{09CD}σ🃌。\x{1A76}렧", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6A\\u09CDσ🃌\。\\u1A76렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:505\]") 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{10E6A}\x{09CD}σ🃌。\x{1A76}렧", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6A\\u09CDσ🃌\。\\u1A76렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:506\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("-\x{200D}。\x{0755}\x{200C}\x{200D}⒈", %p)}, undef, "to_unicode\(\'\-\\u200D\。\\u0755\\u200C\\u200D⒈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:507\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200D}。\x{0755}\x{200C}\x{200D}⒈", %p)}, undef, "to_unicode\(\'\-\\u200D\。\\u0755\\u200C\\u200D⒈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:508\]") 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{0755}\x{200C}\x{200D}1.", %p)}, undef, "to_unicode\(\'\-\\u200D\。\\u0755\\u200C\\u200D1\.\'\)\ throws\ error\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:509\]") 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{0755}\x{200C}\x{200D}1.", %p)}, undef, "to_unicode\(\'\-\\u200D\。\\u0755\\u200C\\u200D1\.\'\)\ throws\ error\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:510\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}\x{D4ADD}.Ⴒ\x{111C0}", %p)}, undef, "to_unicode\(\'\\u200C\\uDB12\\uDEDD\.Ⴒ\\uD804\\uDDC0\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:511\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{D4ADD}.Ⴒ\x{111C0}", %p)}, undef, "to_unicode\(\'\\u200C\\uDB12\\uDEDD\.Ⴒ\\uD804\\uDDC0\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:512\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{D4ADD}.ⴒ\x{111C0}", %p)}, undef, "to_unicode\(\'\\u200C\\uDB12\\uDEDD\.ⴒ\\uD804\\uDDC0\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:513\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{D4ADD}.ⴒ\x{111C0}", %p)}, undef, "to_unicode\(\'\\u200C\\uDB12\\uDEDD\.ⴒ\\uD804\\uDDC0\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:514\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("繱\x{0E3A}\x{200D}.9︒", %p)}, undef, "to_unicode\(\'繱\\u0E3A\\u200D\.9︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:515\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("繱\x{0E3A}\x{200D}.9。", %p)}, "繱\x{0E3A}\x{200D}.9.", "to_unicode\(\'繱\\u0E3A\\u200D\.9\。\'\)\ \[data\/IdnaTest\.txt\:516\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("繱\x{0E3A}\x{200D}.9。", %p)}, "繱\x{0E3A}\x{200D}.9.", "to_unicode\(\'繱\\u0E3A\\u200D\.9\。\'\)\ \[data\/IdnaTest\.txt\:517\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--o4c7658c.9.", %p)}, "繱\x{0E3A}.9.", "to_unicode\(\'xn\-\-o4c7658c\.9\.\'\)\ \[data\/IdnaTest\.txt\:518\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("繱\x{0E3A}.9.", %p)}, "繱\x{0E3A}.9.", "to_unicode\(\'繱\\u0E3A\.9\.\'\)\ \[data\/IdnaTest\.txt\:519\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--o4c042gf52e.9.", %p)}, "繱\x{0E3A}\x{200D}.9.", "to_unicode\(\'xn\-\-o4c042gf52e\.9\.\'\)\ \[data\/IdnaTest\.txt\:520\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("繱\x{0E3A}\x{200D}.9.", %p)}, "繱\x{0E3A}\x{200D}.9.", "to_unicode\(\'繱\\u0E3A\\u200D\.9\.\'\)\ \[data\/IdnaTest\.txt\:521\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("繱\x{0E3A}\x{200D}.9.", %p)}, "繱\x{0E3A}\x{200D}.9.", "to_unicode\(\'繱\\u0E3A\\u200D\.9\.\'\)\ \[data\/IdnaTest\.txt\:522\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E01DF}.\x{E016C}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDDDF.\\uDB40\\uDD6C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:523\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E01DF}.\x{E016C}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDDDF\.\\uDB40\\uDD6C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:524\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{20D8}。\x{200D}", %p)}, undef, "to_unicode\(\'ß\\u20D8\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:525\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{20D8}。\x{200D}", %p)}, undef, "to_unicode\(\'ß\\u20D8\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:526\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{20D8}。\x{200D}", %p)}, undef, "to_unicode\(\'SS\\u20D8\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:527\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{20D8}。\x{200D}", %p)}, undef, "to_unicode\(\'SS\\u20D8\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:528\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{20D8}。\x{200D}", %p)}, undef, "to_unicode\(\'ss\\u20D8\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:529\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{20D8}。\x{200D}", %p)}, undef, "to_unicode\(\'ss\\u20D8\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:530\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{20D8}。\x{200D}", %p)}, undef, "to_unicode\(\'Ss\\u20D8\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:531\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{20D8}。\x{200D}", %p)}, undef, "to_unicode\(\'Ss\\u20D8\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:532\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ss-1ju.", %p)}, "ss\x{20D8}.", "to_unicode\(\'xn\-\-ss\-1ju\.\'\)\ \[data\/IdnaTest\.txt\:533\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{20D8}.", %p)}, "ss\x{20D8}.", "to_unicode\(\'ss\\u20D8\.\'\)\ \[data\/IdnaTest\.txt\:534\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{20D8}.", %p)}, "ss\x{20D8}.", "to_unicode\(\'SS\\u20D8\.\'\)\ \[data\/IdnaTest\.txt\:535\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{20D8}.", %p)}, "ss\x{20D8}.", "to_unicode\(\'Ss\\u20D8\.\'\)\ \[data\/IdnaTest\.txt\:536\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0DD7}\x{200C}⒈.\x{E0387}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDDD7\\u200C⒈.\\uDB40\\uDF87\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:537\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0DD7}\x{200C}⒈.\x{E0387}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDDD7\\u200C⒈.\\uDB40\\uDF87\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:538\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0DD7}\x{200C}1..\x{E0387}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDDD7\\u200C1\.\.\\uDB40\\uDF87\'\)\ throws\ error\ P1\ V6\ C1\ A4_2\ \[data\/IdnaTest\.txt\:539\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0DD7}\x{200C}1..\x{E0387}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDDD7\\u200C1\.\.\\uDB40\\uDF87\'\)\ throws\ error\ P1\ V6\ C1\ A4_2\ \[data\/IdnaTest\.txt\:540\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{F6C8F}\x{1D242}\x{1CF4}ß。\x{B373C}", %p)}, undef, "to_unicode\(\'\\uDB9B\\uDC8F\\uD834\\uDE42\\u1CF4ß\。\\uDA8D\\uDF3C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:541\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{F6C8F}\x{1D242}\x{1CF4}SS。\x{B373C}", %p)}, undef, "to_unicode\(\'\\uDB9B\\uDC8F\\uD834\\uDE42\\u1CF4SS\。\\uDA8D\\uDF3C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:542\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{F6C8F}\x{1D242}\x{1CF4}ss。\x{B373C}", %p)}, undef, "to_unicode\(\'\\uDB9B\\uDC8F\\uD834\\uDE42\\u1CF4ss\。\\uDA8D\\uDF3C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:543\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{F6C8F}\x{1D242}\x{1CF4}Ss。\x{B373C}", %p)}, undef, "to_unicode\(\'\\uDB9B\\uDC8F\\uD834\\uDE42\\u1CF4Ss\。\\uDA8D\\uDF3C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:544\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡊ\x{200C}\x{062F}。\x{60C9A}䉜\x{200D}\x{3E9BB}", %p)}, undef, "to_unicode\(\'ᡊ\\u200C\\u062F\。\\uD943\\uDC9A䉜\\u200D\\uD8BA\\uDDBB\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:545\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡊ\x{200C}\x{062F}。\x{60C9A}䉜\x{200D}\x{3E9BB}", %p)}, undef, "to_unicode\(\'ᡊ\\u200C\\u062F\。\\uD943\\uDC9A䉜\\u200D\\uD8BA\\uDDBB\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:546\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{469FA}ς\x{084A}⒈.≮\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDDFAς\\u084A⒈\.\≮\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:547\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{469FA}ς\x{084A}⒈.<\x{0338}\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDDFAς\\u084A⒈\.\<\\u0338\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:548\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{469FA}ς\x{084A}1..≮\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDDFAς\\u084A1\.\.\≮\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:549\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{469FA}ς\x{084A}1..<\x{0338}\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDDFAς\\u084A1\.\.\<\\u0338\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:550\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{469FA}Σ\x{084A}1..<\x{0338}\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDDFAΣ\\u084A1\.\.\<\\u0338\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:551\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{469FA}Σ\x{084A}1..≮\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDDFAΣ\\u084A1\.\.\≮\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:552\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{469FA}σ\x{084A}1..≮\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDDFAσ\\u084A1\.\.\≮\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:553\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{469FA}σ\x{084A}1..<\x{0338}\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDDFAσ\\u084A1\.\.\<\\u0338\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:554\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{469FA}Σ\x{084A}⒈.<\x{0338}\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDDFAΣ\\u084A⒈\.\<\\u0338\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:555\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{469FA}Σ\x{084A}⒈.≮\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDDFAΣ\\u084A⒈\.\≮\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:556\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{469FA}σ\x{084A}⒈.≮\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDDFAσ\\u084A⒈\.\≮\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:557\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{469FA}σ\x{084A}⒈.<\x{0338}\x{1BF2}\x{200D}\x{06A6}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDDFAσ\\u084A⒈\.\<\\u0338\\u1BF2\\u200D\\u06A6\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:558\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{3164}\x{0ACD}Ⴀ\x{0942}.\x{180B}", %p)}, undef, "to_unicode\(\'\\u3164\\u0ACDႠ\\u0942\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:559\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1160}\x{0ACD}Ⴀ\x{0942}.\x{180B}", %p)}, undef, "to_unicode\(\'\\u1160\\u0ACDႠ\\u0942\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:560\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1160}\x{0ACD}ⴀ\x{0942}.\x{180B}", %p)}, undef, "to_unicode\(\'\\u1160\\u0ACDⴀ\\u0942\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:561\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{3164}\x{0ACD}ⴀ\x{0942}.\x{180B}", %p)}, undef, "to_unicode\(\'\\u3164\\u0ACDⴀ\\u0942\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:562\]") 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{116B6}\x{1A77}\x{1032}\x{E0153}", %p)}, undef, "to_unicode\(\'🎲\\u200D.\\uD805\\uDEB6\\u1A77\\u1032\\uDB40\\uDD53\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:563\]") 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{116B6}\x{1A77}\x{1032}\x{E0153}", %p)}, undef, "to_unicode\(\'🎲\\u200D.\\uD805\\uDEB6\\u1A77\\u1032\\uDB40\\uDD53\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:564\]") 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{116B6}\x{1A77}\x{1032}\x{E0153}", %p)}, undef, "to_unicode\(\'🎲\\u200D\.\\uD805\\uDEB6\\u1A77\\u1032\\uDB40\\uDD53\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:565\]") 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{116B6}\x{1A77}\x{1032}\x{E0153}", %p)}, undef, "to_unicode\(\'🎲\\u200D\.\\uD805\\uDEB6\\u1A77\\u1032\\uDB40\\uDD53\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:566\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("≮\x{10811}\x{1E8A1}.≯\x{7F4ED}ᠴ", %p)}, undef, "to_unicode\(\'\≮\\uD802\\uDC11\\uD83A\\uDCA1\.\≯\\uD9BD\\uDCEDᠴ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:567\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{10811}\x{1E8A1}.>\x{0338}\x{7F4ED}ᠴ", %p)}, undef, "to_unicode\(\'\<\\u0338\\uD802\\uDC11\\uD83A\\uDCA1\.\>\\u0338\\uD9BD\\uDCEDᠴ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:568\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE05}\x{1EEFE}\x{10F6E}٪。\x{A953}ꡏ", %p)}, undef, "to_unicode\(\'\\uFE05\\uD83B\\uDEFE\\uD803\\uDF6E٪。\\uA953ꡏ\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:569\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE05}\x{1EEFE}\x{10F6E}٪。\x{A953}ꡏ", %p)}, undef, "to_unicode\(\'\\uFE05\\uD83B\\uDEFE\\uD803\\uDF6E٪\。\\uA953ꡏ\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:570\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06D7}。\x{1091DF}", %p)}, undef, "to_unicode\(\'\\u06D7\。\\uDBE4\\uDDDF\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:571\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0ACD}\x{1103A}.\x{1160}", %p)}, undef, "to_unicode\(\'\\u0ACD\\uD804\\uDC3A.\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:572\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0ACD}\x{1103A}.\x{1160}", %p)}, undef, "to_unicode\(\'\\u0ACD\\uD804\\uDC3A\.\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:573\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{068A}\x{200D}。\x{D8C20}\x{109CB}", %p)}, undef, "to_unicode\(\'\-\\u068A\\u200D\。\\uDB23\\uDC20\\uD802\\uDDCB\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:574\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{068A}\x{200D}。\x{D8C20}\x{109CB}", %p)}, undef, "to_unicode\(\'\-\\u068A\\u200D\。\\uDB23\\uDC20\\uD802\\uDDCB\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:575\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06AA}゜≯\x{73334}。\x{E01B5}⾇滸\x{0669}", %p)}, undef, "to_unicode\(\'\\u06AA゜\≯\\uD98C\\uDF34\。\\uDB40\\uDDB5⾇滸\\u0669\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:576\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06AA}゜>\x{0338}\x{73334}。\x{E01B5}⾇滸\x{0669}", %p)}, undef, "to_unicode\(\'\\u06AA゜\>\\u0338\\uD98C\\uDF34\。\\uDB40\\uDDB5⾇滸\\u0669\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:577\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06AA}\x{0020}\x{309A}≯\x{73334}。\x{E01B5}舛滸\x{0669}", %p)}, undef, "to_unicode\(\'\\u06AA\\u0020\\u309A\≯\\uD98C\\uDF34\。\\uDB40\\uDDB5舛滸\\u0669\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:578\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06AA}\x{0020}\x{309A}>\x{0338}\x{73334}。\x{E01B5}舛滸\x{0669}", %p)}, undef, "to_unicode\(\'\\u06AA\\u0020\\u309A\>\\u0338\\uD98C\\uDF34\。\\uDB40\\uDDB5舛滸\\u0669\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:579\]") 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{1BAB}", %p)}, undef, "to_unicode\(\'蔏。\\u1BAB\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:580\]") 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{1BAB}", %p)}, undef, "to_unicode\(\'蔏\。\\u1BAB\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:581\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("🄁\x{0712}。\x{E0107}", %p)}, undef, "to_unicode\(\'🄁\\u0712\。\\uDB40\\uDD07\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:582\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0,\x{0712}。\x{E0107}", %p)}, undef, "to_unicode\(\'0\,\\u0712\。\\uDB40\\uDD07\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:583\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A005C}-䟖F。\x{0855}⒈\x{10E67}", %p)}, undef, "to_unicode\(\'\\uDA40\\uDC5C\-䟖F\。\\u0855⒈\\uD803\\uDE67\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:584\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A005C}-䟖F。\x{0855}1.\x{10E67}", %p)}, undef, "to_unicode\(\'\\uDA40\\uDC5C\-䟖F\。\\u08551\.\\uD803\\uDE67\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:585\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A005C}-䟖f。\x{0855}1.\x{10E67}", %p)}, undef, "to_unicode\(\'\\uDA40\\uDC5C\-䟖f\。\\u08551\.\\uD803\\uDE67\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:586\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A005C}-䟖f。\x{0855}⒈\x{10E67}", %p)}, undef, "to_unicode\(\'\\uDA40\\uDC5C\-䟖f\。\\u0855⒈\\uD803\\uDE67\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:587\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7D}", %p)}, undef, "to_unicode\(\'\\u200C。\\uD803\\uDE7D\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:588\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7D}", %p)}, undef, "to_unicode\(\'\\u200C。\\uD803\\uDE7D\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:589\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7D}", %p)}, undef, "to_unicode\(\'\\u200C\。\\uD803\\uDE7D\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:590\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7D}", %p)}, undef, "to_unicode\(\'\\u200C\。\\uD803\\uDE7D\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:591\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{1EA6A}.≯\x{200C}-\x{07DE}", %p)}, undef, "to_unicode\(\'\\uD83A\\uDE6A\.\≯\\u200C\-\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:592\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EA6A}.≯\x{200C}-\x{07DE}", %p)}, undef, "to_unicode\(\'\\uD83A\\uDE6A\.\≯\\u200C\-\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:593\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EA6A}.>\x{0338}\x{200C}-\x{07DE}", %p)}, undef, "to_unicode\(\'\\uD83A\\uDE6A\.\>\\u0338\\u200C\-\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:594\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EA6A}.>\x{0338}\x{200C}-\x{07DE}", %p)}, undef, "to_unicode\(\'\\uD83A\\uDE6A\.\>\\u0338\\u200C\-\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:595\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08FB}-。≠\x{1096E}", %p)}, undef, "to_unicode\(\'\\u08FB\-\。\≠\\uD802\\uDD6E\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:596\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08FB}-。=\x{0338}\x{1096E}", %p)}, undef, "to_unicode\(\'\\u08FB\-\。\=\\u0338\\uD802\\uDD6E\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:597\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A5DB4}\x{1A60}。\x{200D}\x{1EA86}", %p)}, undef, "to_unicode\(\'\\uDA57\\uDDB4\\u1A60\。\\u200D\\uD83A\\uDE86\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:598\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A5DB4}\x{1A60}。\x{200D}\x{1EA86}", %p)}, undef, "to_unicode\(\'\\uDA57\\uDDB4\\u1A60\。\\u200D\\uD83A\\uDE86\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:599\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A38}\x{0D4D}🄉。㧉\x{3FB78}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE38\\u0D4D🄉。㧉\\uD8BE\\uDF78\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:600\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0D4D}\x{10A38}🄉。㧉\x{3FB78}", %p)}, undef, "to_unicode\(\'\\u0D4D\\uD802\\uDE38🄉。㧉\\uD8BE\\uDF78\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:601\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0D4D}\x{10A38}8,。㧉\x{3FB78}", %p)}, undef, "to_unicode\(\'\\u0D4D\\uD802\\uDE388\,\。㧉\\uD8BE\\uDF78\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:602\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{8E039}\x{10E66}\x{108C1}。≯⒙", %p)}, undef, "to_unicode\(\'\\u200C\\uD9F8\\uDC39\\uD803\\uDE66\\uD802\\uDCC1\。\≯⒙\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:603\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{8E039}\x{10E66}\x{108C1}。≯⒙", %p)}, undef, "to_unicode\(\'\\u200C\\uD9F8\\uDC39\\uD803\\uDE66\\uD802\\uDCC1\。\≯⒙\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:604\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{8E039}\x{10E66}\x{108C1}。>\x{0338}⒙", %p)}, undef, "to_unicode\(\'\\u200C\\uD9F8\\uDC39\\uD803\\uDE66\\uD802\\uDCC1\。\>\\u0338⒙\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:605\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{8E039}\x{10E66}\x{108C1}。>\x{0338}⒙", %p)}, undef, "to_unicode\(\'\\u200C\\uD9F8\\uDC39\\uD803\\uDE66\\uD802\\uDCC1\。\>\\u0338⒙\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:606\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{8E039}\x{10E66}\x{108C1}。≯18.", %p)}, undef, "to_unicode\(\'\\u200C\\uD9F8\\uDC39\\uD803\\uDE66\\uD802\\uDCC1\。\≯18\.\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:607\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{8E039}\x{10E66}\x{108C1}。≯18.", %p)}, undef, "to_unicode\(\'\\u200C\\uD9F8\\uDC39\\uD803\\uDE66\\uD802\\uDCC1\。\≯18\.\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:608\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{8E039}\x{10E66}\x{108C1}。>\x{0338}18.", %p)}, undef, "to_unicode\(\'\\u200C\\uD9F8\\uDC39\\uD803\\uDE66\\uD802\\uDCC1\。\>\\u033818\.\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:609\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{8E039}\x{10E66}\x{108C1}。>\x{0338}18.", %p)}, undef, "to_unicode\(\'\\u200C\\uD9F8\\uDC39\\uD803\\uDE66\\uD802\\uDCC1\。\>\\u033818\.\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:610\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A60}.\x{0665}\x{173D0}-\x{200D}", %p)}, undef, "to_unicode\(\'\\u1A60.\\u0665\\uD81C\\uDFD0\-\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:611\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A60}.\x{0665}\x{173D0}-\x{200D}", %p)}, undef, "to_unicode\(\'\\u1A60.\\u0665\\uD81C\\uDFD0\-\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:612\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A60}.\x{0665}\x{173D0}-\x{200D}", %p)}, undef, "to_unicode\(\'\\u1A60\.\\u0665\\uD81C\\uDFD0\-\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:613\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A60}.\x{0665}\x{173D0}-\x{200D}", %p)}, undef, "to_unicode\(\'\\u1A60\.\\u0665\\uD81C\\uDFD0\-\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:614\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0CA6}ς\x{E5CA6}。\x{FFA0}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDCA6ς\\uDB57\\uDCA6。\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:615\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0CA6}ς\x{E5CA6}。\x{1160}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDCA6ς\\uDB57\\uDCA6\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:616\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0CA6}Σ\x{E5CA6}。\x{1160}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDCA6Σ\\uDB57\\uDCA6\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:617\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0CA6}σ\x{E5CA6}。\x{1160}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDCA6σ\\uDB57\\uDCA6\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:618\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0CA6}Σ\x{E5CA6}。\x{FFA0}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDCA6Σ\\uDB57\\uDCA6。\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:619\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0CA6}σ\x{E5CA6}。\x{FFA0}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDCA6σ\\uDB57\\uDCA6。\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:620\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0684}\x{A8E1}ꡢ\x{06C9}.\x{1EAE1}\x{A806}Ⴃ", %p)}, undef, "to_unicode\(\'\\u0684\\uA8E1ꡢ\\u06C9\.\\uD83A\\uDEE1\\uA806Ⴃ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:621\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0684}\x{A8E1}ꡢ\x{06C9}.\x{1EAE1}\x{A806}ⴃ", %p)}, undef, "to_unicode\(\'\\u0684\\uA8E1ꡢ\\u06C9\.\\uD83A\\uDEE1\\uA806ⴃ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:622\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E75}\x{094D}-킼.\x{0C4D}\x{0F79}\x{10E7E}≯", %p)}, undef, "to_unicode\(\'\\uD803\\uDE75\\u094D\-킼\.\\u0C4D\\u0F79\\uD803\\uDE7E\≯\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:623\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E75}\x{094D}-킼.\x{0C4D}\x{0F79}\x{10E7E}>\x{0338}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE75\\u094D\-킼\.\\u0C4D\\u0F79\\uD803\\uDE7E\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:624\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E75}\x{094D}-킼.\x{0C4D}\x{0FB3}\x{0F71}\x{0F80}\x{10E7E}≯", %p)}, undef, "to_unicode\(\'\\uD803\\uDE75\\u094D\-킼\.\\u0C4D\\u0FB3\\u0F71\\u0F80\\uD803\\uDE7E\≯\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:625\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E75}\x{094D}-킼.\x{0C4D}\x{0FB3}\x{0F71}\x{0F80}\x{10E7E}>\x{0338}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE75\\u094D\-킼\.\\u0C4D\\u0FB3\\u0F71\\u0F80\\uD803\\uDE7E\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:626\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。ᠯ\x{0600}\x{AB323}\x{0A4D}", %p)}, undef, "to_unicode\(\'\-\。ᠯ\\u0600\\uDA6C\\uDF23\\u0A4D\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:627\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㼣\x{A679}.\x{FE23}\x{E819}ᢗ🄉", %p)}, undef, "to_unicode\(\'\\u200D㼣\\uA679.\\uFE23\\uE819ᢗ🄉\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:628\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㼣\x{A679}.\x{FE23}\x{E819}ᢗ🄉", %p)}, undef, "to_unicode\(\'\\u200D㼣\\uA679.\\uFE23\\uE819ᢗ🄉\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:629\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㼣\x{A679}.\x{FE23}\x{E819}ᢗ8,", %p)}, undef, "to_unicode\(\'\\u200D㼣\\uA679\.\\uFE23\\uE819ᢗ8\,\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:630\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㼣\x{A679}.\x{FE23}\x{E819}ᢗ8,", %p)}, undef, "to_unicode\(\'\\u200D㼣\\uA679\.\\uFE23\\uE819ᢗ8\,\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:631\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒\x{B9953}ς\x{97D30}。\x{076A}", %p)}, undef, "to_unicode\(\'︒\\uDAA6\\uDD53ς\\uDA1F\\uDD30。\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:632\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。\x{B9953}ς\x{97D30}。\x{076A}", %p)}, undef, "to_unicode\(\'\。\\uDAA6\\uDD53ς\\uDA1F\\uDD30\。\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:633\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。\x{B9953}Σ\x{97D30}。\x{076A}", %p)}, undef, "to_unicode\(\'\。\\uDAA6\\uDD53Σ\\uDA1F\\uDD30\。\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:634\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。\x{B9953}σ\x{97D30}。\x{076A}", %p)}, undef, "to_unicode\(\'\。\\uDAA6\\uDD53σ\\uDA1F\\uDD30\。\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:635\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒\x{B9953}Σ\x{97D30}。\x{076A}", %p)}, undef, "to_unicode\(\'︒\\uDAA6\\uDD53Σ\\uDA1F\\uDD30。\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:636\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒\x{B9953}σ\x{97D30}。\x{076A}", %p)}, undef, "to_unicode\(\'︒\\uDAA6\\uDD53σ\\uDA1F\\uDD30。\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:637\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1E88E}.\x{FC20}\x{914D9}≯\x{1A7F}", %p)}, undef, "to_unicode\(\'\\uD83A\\uDC8E.\\uFC20\\uDA05\\uDCD9\≯\\u1A7F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:638\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1E88E}.\x{FC20}\x{914D9}>\x{0338}\x{1A7F}", %p)}, undef, "to_unicode\(\'\\uD83A\\uDC8E.\\uFC20\\uDA05\\uDCD9\>\\u0338\\u1A7F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:639\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1E88E}.\x{0635}\x{062D}\x{914D9}≯\x{1A7F}", %p)}, undef, "to_unicode\(\'\\uD83A\\uDC8E\.\\u0635\\u062D\\uDA05\\uDCD9\≯\\u1A7F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:640\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1E88E}.\x{0635}\x{062D}\x{914D9}>\x{0338}\x{1A7F}", %p)}, undef, "to_unicode\(\'\\uD83A\\uDC8E\.\\u0635\\u062D\\uDA05\\uDCD9\>\\u0338\\u1A7F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:641\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08FE}\x{5DD8C}.\x{1EFC6}", %p)}, undef, "to_unicode\(\'\\u08FE\\uD937\\uDD8C\.\\uD83B\\uDFC6\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:642\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۸\x{0355}≠。Ⴟ\x{2DE3}Ⴈ", %p)}, undef, "to_unicode\(\'۸\\u0355\≠。Ⴟ\\u2DE3Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:643\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۸\x{0355}=\x{0338}。Ⴟ\x{2DE3}Ⴈ", %p)}, undef, "to_unicode\(\'۸\\u0355\=\\u0338。Ⴟ\\u2DE3Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:644\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۸\x{0355}≠。Ⴟ\x{2DE3}Ⴈ", %p)}, undef, "to_unicode\(\'۸\\u0355\≠\。Ⴟ\\u2DE3Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:645\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۸\x{0355}=\x{0338}。Ⴟ\x{2DE3}Ⴈ", %p)}, undef, "to_unicode\(\'۸\\u0355\=\\u0338\。Ⴟ\\u2DE3Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:646\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۸\x{0355}=\x{0338}。ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_unicode\(\'۸\\u0355\=\\u0338\。ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:647\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۸\x{0355}≠。ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_unicode\(\'۸\\u0355\≠\。ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:648\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۸\x{0355}≠。Ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_unicode\(\'۸\\u0355\≠\。Ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:649\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۸\x{0355}=\x{0338}。Ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_unicode\(\'۸\\u0355\=\\u0338\。Ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:650\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۸\x{0355}=\x{0338}。ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_unicode\(\'۸\\u0355\=\\u0338。ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:651\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۸\x{0355}≠。ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_unicode\(\'۸\\u0355\≠。ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:652\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۸\x{0355}≠。Ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_unicode\(\'۸\\u0355\≠。Ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:653\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۸\x{0355}=\x{0338}。Ⴟ\x{2DE3}ⴈ", %p)}, undef, "to_unicode\(\'۸\\u0355\=\\u0338。Ⴟ\\u2DE3ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:654\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{E0271}\x{E016B}Ⴥ。-\x{066C}ᡳ\x{08ED}", %p)}, undef, "to_unicode\(\'\-\\uDB40\\uDE71\\uDB40\\uDD6BჅ\。\-\\u066Cᡳ\\u08ED\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:655\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{E0271}\x{E016B}ⴥ。-\x{066C}ᡳ\x{08ED}", %p)}, undef, "to_unicode\(\'\-\\uDB40\\uDE71\\uDB40\\uDD6Bⴥ\。\-\\u066Cᡳ\\u08ED\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:656\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E012B}。\x{0A4D}︒ᢖᢔ", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD2B\。\\u0A4D︒ᢖᢔ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:657\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E012B}。\x{0A4D}。ᢖᢔ", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD2B\。\\u0A4D\。ᢖᢔ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:658\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴙꡱ.\x{E015A}\x{200D}", %p)}, undef, "to_unicode\(\'Ⴙꡱ\.\\uDB40\\uDD5A\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:659\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴙꡱ.\x{E015A}\x{200D}", %p)}, undef, "to_unicode\(\'Ⴙꡱ\.\\uDB40\\uDD5A\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:660\]") 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{E015A}\x{200D}", %p)}, undef, "to_unicode\(\'ⴙꡱ\.\\uDB40\\uDD5A\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:661\]") 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{E015A}\x{200D}", %p)}, undef, "to_unicode\(\'ⴙꡱ\.\\uDB40\\uDD5A\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:662\]") 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--hlj6950b.", %p)}, "ⴙꡱ.", "to_unicode\(\'xn\-\-hlj6950b\.\'\)\ \[data\/IdnaTest\.txt\:663\]") 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\:664\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴙꡱ.", %p)}, undef, "to_unicode\(\'Ⴙꡱ\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:665\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B72}。⒎⒋\x{10CD6}ꡙ", %p)}, undef, "to_unicode\(\'\\u1B72。⒎⒋\\uD803\\uDCD6ꡙ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:666\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B72}。7.4.\x{10CD6}ꡙ", %p)}, undef, "to_unicode\(\'\\u1B72\。7\.4\.\\uD803\\uDCD6ꡙ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:667\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒋ᠬ。-\x{0747}", %p)}, undef, "to_unicode\(\'⒋ᠬ。\-\\u0747\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:668\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4.ᠬ。-\x{0747}", %p)}, undef, "to_unicode\(\'4\.ᠬ\。\-\\u0747\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:669\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{37E15}\x{0604}。\x{AAF6}ς\x{10D5F}\x{AA4C}", %p)}, undef, "to_unicode\(\'\\u200D\\uD89F\\uDE15\\u0604。\\uAAF6ς\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:670\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{37E15}\x{0604}。\x{AAF6}ς\x{10D5F}\x{AA4C}", %p)}, undef, "to_unicode\(\'\\u200D\\uD89F\\uDE15\\u0604。\\uAAF6ς\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:671\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{37E15}\x{0604}。\x{AAF6}ς\x{10D5F}\x{AA4C}", %p)}, undef, "to_unicode\(\'\\u200D\\uD89F\\uDE15\\u0604\。\\uAAF6ς\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:672\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{37E15}\x{0604}。\x{AAF6}ς\x{10D5F}\x{AA4C}", %p)}, undef, "to_unicode\(\'\\u200D\\uD89F\\uDE15\\u0604\。\\uAAF6ς\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:673\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{37E15}\x{0604}。\x{AAF6}Σ\x{10D5F}\x{AA4C}", %p)}, undef, "to_unicode\(\'\\u200D\\uD89F\\uDE15\\u0604\。\\uAAF6Σ\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:674\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{37E15}\x{0604}。\x{AAF6}Σ\x{10D5F}\x{AA4C}", %p)}, undef, "to_unicode\(\'\\u200D\\uD89F\\uDE15\\u0604\。\\uAAF6Σ\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:675\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{37E15}\x{0604}。\x{AAF6}σ\x{10D5F}\x{AA4C}", %p)}, undef, "to_unicode\(\'\\u200D\\uD89F\\uDE15\\u0604\。\\uAAF6σ\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:676\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{37E15}\x{0604}。\x{AAF6}σ\x{10D5F}\x{AA4C}", %p)}, undef, "to_unicode\(\'\\u200D\\uD89F\\uDE15\\u0604\。\\uAAF6σ\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:677\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{37E15}\x{0604}。\x{AAF6}Σ\x{10D5F}\x{AA4C}", %p)}, undef, "to_unicode\(\'\\u200D\\uD89F\\uDE15\\u0604。\\uAAF6Σ\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:678\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{37E15}\x{0604}。\x{AAF6}Σ\x{10D5F}\x{AA4C}", %p)}, undef, "to_unicode\(\'\\u200D\\uD89F\\uDE15\\u0604。\\uAAF6Σ\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:679\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{37E15}\x{0604}。\x{AAF6}σ\x{10D5F}\x{AA4C}", %p)}, undef, "to_unicode\(\'\\u200D\\uD89F\\uDE15\\u0604。\\uAAF6σ\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:680\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{37E15}\x{0604}。\x{AAF6}σ\x{10D5F}\x{AA4C}", %p)}, undef, "to_unicode\(\'\\u200D\\uD89F\\uDE15\\u0604。\\uAAF6σ\\uD803\\uDD5F\\uAA4C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:681\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{ECD8E}Ⴓ⒪.\x{1B42}\x{60C9C}\x{1EC97}\x{066C}", %p)}, undef, "to_unicode\(\'⒈\\uDB73\\uDD8EႳ⒪.\\u1B42\\uD943\\uDC9C\\uD83B\\uDC97\\u066C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:682\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{ECD8E}Ⴓ(o).\x{1B42}\x{60C9C}\x{1EC97}\x{066C}", %p)}, undef, "to_unicode\(\'1\.\\uDB73\\uDD8EႳ\(o\)\.\\u1B42\\uD943\\uDC9C\\uD83B\\uDC97\\u066C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:683\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{ECD8E}ⴓ(o).\x{1B42}\x{60C9C}\x{1EC97}\x{066C}", %p)}, undef, "to_unicode\(\'1\.\\uDB73\\uDD8Eⴓ\(o\)\.\\u1B42\\uD943\\uDC9C\\uD83B\\uDC97\\u066C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:684\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{ECD8E}Ⴓ(O).\x{1B42}\x{60C9C}\x{1EC97}\x{066C}", %p)}, undef, "to_unicode\(\'1\.\\uDB73\\uDD8EႳ\(O\)\.\\u1B42\\uD943\\uDC9C\\uD83B\\uDC97\\u066C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:685\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{ECD8E}ⴓ⒪.\x{1B42}\x{60C9C}\x{1EC97}\x{066C}", %p)}, undef, "to_unicode\(\'⒈\\uDB73\\uDD8Eⴓ⒪.\\u1B42\\uD943\\uDC9C\\uD83B\\uDC97\\u066C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:686\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07E7}.\x{0855}\x{109DE}\x{066C}\x{07DE}", %p)}, undef, "to_unicode\(\'\\u07E7\.\\u0855\\uD802\\uDDDE\\u066C\\u07DE\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:687\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EC17}-。\x{1BAB}獀", %p)}, undef, "to_unicode\(\'\\uD83B\\uDC17\-。\\u1BAB獀\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:688\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EC17}-。\x{1BAB}獀", %p)}, undef, "to_unicode\(\'\\uD83B\\uDC17\-\。\\u1BAB獀\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:689\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-䷊ꡡ.\x{E0C24}\x{4A8EB}۸", %p)}, undef, "to_unicode\(\'\-䷊ꡡ.\\uDB43\\uDC24\\uD8EA\\uDCEB۸\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:690\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-䷊ꡡ.\x{E0C24}\x{4A8EB}۸", %p)}, undef, "to_unicode\(\'\-䷊ꡡ\.\\uDB43\\uDC24\\uD8EA\\uDCEB۸\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:691\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🁝˶𣾪\x{332DE}.\x{0850}9", %p)}, undef, "to_unicode\(\'🁝˶𣾪\\uD88C\\uDEDE\.\\u08509\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:692\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮\x{0663}.\x{07A9}", %p)}, undef, "to_unicode\(\'\≮\\u0663.\\u07A9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:693\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{0663}.\x{07A9}", %p)}, undef, "to_unicode\(\'\<\\u0338\\u0663.\\u07A9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:694\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮\x{0663}.\x{07A9}", %p)}, undef, "to_unicode\(\'\≮\\u0663\.\\u07A9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:695\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{0663}.\x{07A9}", %p)}, undef, "to_unicode\(\'\<\\u0338\\u0663\.\\u07A9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:696\]") 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{10E62}ᯛ\x{1BAA}。脥", %p)}, undef, "to_unicode\(\'\\uD803\\uDE62ᯛ\\u1BAA。脥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:697\]") 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{10E62}ᯛ\x{1BAA}。脥", %p)}, undef, "to_unicode\(\'\\uD803\\uDE62ᯛ\\u1BAA\。脥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:698\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0F84}\x{115F}\x{10E89}\x{9C047}.-", %p)}, undef, "to_unicode\(\'\\u0F84\\u115F\\uD803\\uDE89\\uDA30\\uDC47\.\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:699\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。\x{E005D}", %p)}, undef, "to_unicode\(\'\\u200C。\\uDB40\\uDC5D\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:700\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。\x{E005D}", %p)}, undef, "to_unicode\(\'\\u200C。\\uDB40\\uDC5D\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:701\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。\x{E005D}", %p)}, undef, "to_unicode\(\'\\u200C\。\\uDB40\\uDC5D\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:702\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。\x{E005D}", %p)}, undef, "to_unicode\(\'\\u200C\。\\uDB40\\uDC5D\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:703\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠤ\x{AA2C}.\x{06C7}Ⴎ", %p)}, undef, "to_unicode\(\'ᠤ\\uAA2C.\\u06C7Ⴎ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:704\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠤ\x{AA2C}.\x{06C7}Ⴎ", %p)}, undef, "to_unicode\(\'ᠤ\\uAA2C\.\\u06C7Ⴎ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:705\]") 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{AA2C}.\x{06C7}ⴎ", %p)}, undef, "to_unicode\(\'ᠤ\\uAA2C\.\\u06C7ⴎ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:706\]") 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{AA2C}.\x{06C7}ⴎ", %p)}, undef, "to_unicode\(\'ᠤ\\uAA2C.\\u06C7ⴎ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:707\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ᡅ\x{A949}Ξ.\x{68897}㛨∋", %p)}, undef, "to_unicode\(\'ᡅ\\uA949Ξ.\\uD962\\uDC97㛨\∋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:708\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡅ\x{A949}Ξ.\x{68897}㛨∋", %p)}, undef, "to_unicode\(\'ᡅ\\uA949Ξ\.\\uD962\\uDC97㛨\∋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:709\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡅ\x{A949}ξ.\x{68897}㛨∋", %p)}, undef, "to_unicode\(\'ᡅ\\uA949ξ\.\\uD962\\uDC97㛨\∋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:710\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡅ\x{A949}ξ.\x{68897}㛨∋", %p)}, undef, "to_unicode\(\'ᡅ\\uA949ξ.\\uD962\\uDC97㛨\∋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:711\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ\x{0765}︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-。Ⴛ\\u0765︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:712\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ\x{0765}︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-。Ⴛ\\u0765︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:713\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ\x{0765}︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-。Ⴛ\\u0765︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:714\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ\x{0765}︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-。Ⴛ\\u0765︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:715\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ\x{0765}。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。Ⴛ\\u0765\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:716\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ\x{0765}。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。Ⴛ\\u0765\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:717\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ\x{0765}。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。Ⴛ\\u0765\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:718\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ\x{0765}。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。Ⴛ\\u0765\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:719\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ\x{0765}。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。ⴛ\\u0765\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:720\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ\x{0765}。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。ⴛ\\u0765\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:721\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ\x{0765}。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。ⴛ\\u0765\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:722\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ\x{0765}。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。ⴛ\\u0765\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:723\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ\x{0765}︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-。ⴛ\\u0765︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:724\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ\x{0765}︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-。ⴛ\\u0765︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:725\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ\x{0765}︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-。ⴛ\\u0765︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:726\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ\x{0765}︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-。ⴛ\\u0765︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:727\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⽖.︒⌄\x{200C}\x{10E62}", %p)}, undef, "to_unicode\(\'⽖\.︒\⌄\\u200C\\uD803\\uDE62\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:728\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⽖.︒⌄\x{200C}\x{10E62}", %p)}, undef, "to_unicode\(\'⽖\.︒\⌄\\u200C\\uD803\\uDE62\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:729\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E62}", %p)}, undef, "to_unicode\(\'爪\.\。\⌄\\u200C\\uD803\\uDE62\'\)\ throws\ error\ A4_2\ B1\ C1\ \[data\/IdnaTest\.txt\:730\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E62}", %p)}, undef, "to_unicode\(\'爪\.\。\⌄\\u200C\\uD803\\uDE62\'\)\ throws\ error\ A4_2\ B1\ C1\ \[data\/IdnaTest\.txt\:731\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{10B9E}.\x{10E72}Ⴑ\x{4D0E5}\x{0694}", %p)}, undef, "to_unicode\(\'\\uD802\\uDF9E\.\\uD803\\uDE72Ⴑ\\uD8F4\\uDCE5\\u0694\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:732\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10B9E}.\x{10E72}ⴑ\x{4D0E5}\x{0694}", %p)}, undef, "to_unicode\(\'\\uD802\\uDF9E\.\\uD803\\uDE72ⴑ\\uD8F4\\uDCE5\\u0694\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:733\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0362}\x{2B951}.🄈Ⴛ", %p)}, undef, "to_unicode\(\'\\u0362\\uD86E\\uDD51.🄈Ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:734\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0362}\x{2B951}.7,Ⴛ", %p)}, undef, "to_unicode\(\'\\u0362\\uD86E\\uDD51\.7\,Ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:735\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0362}\x{2B951}.7,ⴛ", %p)}, undef, "to_unicode\(\'\\u0362\\uD86E\\uDD51\.7\,ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:736\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0362}\x{2B951}.🄈ⴛ", %p)}, undef, "to_unicode\(\'\\u0362\\uD86E\\uDD51.🄈ⴛ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:737\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{A69F}齀。릿\x{1EF8C}", %p)}, undef, "to_unicode\(\'\-\\uA69F齀\。릿\\uD83B\\uDF8C\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:738\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{A69F}齀。릿\x{1EF8C}", %p)}, undef, "to_unicode\(\'\-\\uA69F齀\。릿\\uD83B\\uDF8C\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:739\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DFE}\x{0852}鹝꾗。\x{64262}\x{200D}\x{200D}⏃", %p)}, undef, "to_unicode\(\'\\u2DFE\\u0852鹝꾗\。\\uD950\\uDE62\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:740\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DFE}\x{0852}鹝꾗。\x{64262}\x{200D}\x{200D}⏃", %p)}, undef, "to_unicode\(\'\\u2DFE\\u0852鹝꾗\。\\uD950\\uDE62\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:741\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DFE}\x{0852}鹝꾗。\x{64262}\x{200D}\x{200D}⏃", %p)}, undef, "to_unicode\(\'\\u2DFE\\u0852鹝꾗\。\\uD950\\uDE62\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:742\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DFE}\x{0852}鹝꾗。\x{64262}\x{200D}\x{200D}⏃", %p)}, undef, "to_unicode\(\'\\u2DFE\\u0852鹝꾗\。\\uD950\\uDE62\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:743\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮.-\x{1EACC}--", %p)}, undef, "to_unicode\(\'\≮.\-\\uD83A\\uDECC\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:744\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}.-\x{1EACC}--", %p)}, undef, "to_unicode\(\'\<\\u0338.\-\\uD83A\\uDECC\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:745\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮.-\x{1EACC}--", %p)}, undef, "to_unicode\(\'\≮\.\-\\uD83A\\uDECC\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:746\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}.-\x{1EACC}--", %p)}, undef, "to_unicode\(\'\<\\u0338\.\-\\uD83A\\uDECC\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:747\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}ς3", %p)}, undef, "to_unicode\(\'\\uD803\\uDE68؉\。\\u200Dς3\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:748\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}ς3", %p)}, undef, "to_unicode\(\'\\uD803\\uDE68؉\。\\u200Dς3\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:749\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}ς3", %p)}, undef, "to_unicode\(\'\\uD803\\uDE68؉\。\\u200Dς3\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:750\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}ς3", %p)}, undef, "to_unicode\(\'\\uD803\\uDE68؉\。\\u200Dς3\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:751\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}Σ3", %p)}, undef, "to_unicode\(\'\\uD803\\uDE68؉\。\\u200DΣ3\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:752\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}Σ3", %p)}, undef, "to_unicode\(\'\\uD803\\uDE68؉\。\\u200DΣ3\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:753\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}σ3", %p)}, undef, "to_unicode\(\'\\uD803\\uDE68؉\。\\u200Dσ3\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:754\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}σ3", %p)}, undef, "to_unicode\(\'\\uD803\\uDE68؉\。\\u200Dσ3\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:755\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}Σ3", %p)}, undef, "to_unicode\(\'\\uD803\\uDE68؉\。\\u200DΣ3\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:756\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}Σ3", %p)}, undef, "to_unicode\(\'\\uD803\\uDE68؉\。\\u200DΣ3\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:757\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}σ3", %p)}, undef, "to_unicode\(\'\\uD803\\uDE68؉\。\\u200Dσ3\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:758\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E68}؉。\x{200D}σ3", %p)}, undef, "to_unicode\(\'\\uD803\\uDE68؉\。\\u200Dσ3\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:759\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ς\x{DF8CA}₃.\x{10D7D}", %p)}, undef, "to_unicode\(\'ς\\uDB3E\\uDCCA₃\.\\uD803\\uDD7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:760\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{DF8CA}3.\x{10D7D}", %p)}, undef, "to_unicode\(\'ς\\uDB3E\\uDCCA3\.\\uD803\\uDD7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:761\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{DF8CA}3.\x{10D7D}", %p)}, undef, "to_unicode\(\'Σ\\uDB3E\\uDCCA3\.\\uD803\\uDD7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:762\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{DF8CA}3.\x{10D7D}", %p)}, undef, "to_unicode\(\'σ\\uDB3E\\uDCCA3\.\\uD803\\uDD7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:763\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{DF8CA}₃.\x{10D7D}", %p)}, undef, "to_unicode\(\'Σ\\uDB3E\\uDCCA₃\.\\uD803\\uDD7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:764\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{DF8CA}₃.\x{10D7D}", %p)}, undef, "to_unicode\(\'σ\\uDB3E\\uDCCA₃\.\\uD803\\uDD7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:765\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{0760}⒉\x{077C}.-\x{07E6}\x{1B42}", %p)}, undef, "to_unicode\(\'\\u200C\\u0760⒉\\u077C.\-\\u07E6\\u1B42\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:766\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{0760}⒉\x{077C}.-\x{07E6}\x{1B42}", %p)}, undef, "to_unicode\(\'\\u200C\\u0760⒉\\u077C.\-\\u07E6\\u1B42\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:767\]") 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}\x{0760}2.\x{077C}.-\x{07E6}\x{1B42}", %p)}, undef, "to_unicode\(\'\\u200C\\u07602\.\\u077C\.\-\\u07E6\\u1B42\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:768\]") 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}\x{0760}2.\x{077C}.-\x{07E6}\x{1B42}", %p)}, undef, "to_unicode\(\'\\u200C\\u07602\.\\u077C\.\-\\u07E6\\u1B42\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:769\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{7C1E5}。\x{07A0}넯\x{E8610}", %p)}, undef, "to_unicode\(\'\\uD9B0\\uDDE5\。\\u07A0넯\\uDB61\\uDE10\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:770\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7C1E5}。\x{07A0}넯\x{E8610}", %p)}, undef, "to_unicode\(\'\\uD9B0\\uDDE5\。\\u07A0넯\\uDB61\\uDE10\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:771\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{076E}Ⴘ。\x{0603}Ⴈ\x{FE03}", %p)}, undef, "to_unicode\(\'\\u076EႸ\。\\u0603Ⴈ\\uFE03\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:772\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{076E}ⴘ。\x{0603}ⴈ\x{FE03}", %p)}, undef, "to_unicode\(\'\\u076Eⴘ\。\\u0603ⴈ\\uFE03\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:773\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟑\x{E02D1}\x{071B}。牣\x{10E78}Ⴜᣥ", %p)}, undef, "to_unicode\(\'𝟑\\uDB40\\uDED1\\u071B\。牣\\uD803\\uDE78Ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:774\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3\x{E02D1}\x{071B}。牣\x{10E78}Ⴜᣥ", %p)}, undef, "to_unicode\(\'3\\uDB40\\uDED1\\u071B\。牣\\uD803\\uDE78Ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:775\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3\x{E02D1}\x{071B}。牣\x{10E78}ⴜᣥ", %p)}, undef, "to_unicode\(\'3\\uDB40\\uDED1\\u071B\。牣\\uD803\\uDE78ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:776\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟑\x{E02D1}\x{071B}。牣\x{10E78}ⴜᣥ", %p)}, undef, "to_unicode\(\'𝟑\\uDB40\\uDED1\\u071B\。牣\\uD803\\uDE78ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:777\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-⒐\x{FB3C}⒈.Ⴓ", %p)}, undef, "to_unicode\(\'\-⒐\\uFB3C⒈\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:778\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-⒐\x{05DC}\x{05BC}⒈.Ⴓ", %p)}, undef, "to_unicode\(\'\-⒐\\u05DC\\u05BC⒈\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:779\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-9.\x{05DC}\x{05BC}1..Ⴓ", %p)}, undef, "to_unicode\(\'\-9\.\\u05DC\\u05BC1\.\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:780\]") 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{05DC}\x{05BC}1..ⴓ", %p)}, undef, "to_unicode\(\'\-9\.\\u05DC\\u05BC1\.\.ⴓ\'\)\ throws\ error\ V3\ A4_2\ \[data\/IdnaTest\.txt\:781\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("-⒐\x{05DC}\x{05BC}⒈.ⴓ", %p)}, undef, "to_unicode\(\'\-⒐\\u05DC\\u05BC⒈\.ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:782\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-⒐\x{FB3C}⒈.ⴓ", %p)}, undef, "to_unicode\(\'\-⒐\\uFB3C⒈\.ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:783\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}긃.𩃹-", %p)}, undef, "to_unicode\(\'\\u200C긃\.𩃹\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:784\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}긃.𩃹-", %p)}, undef, "to_unicode\(\'\\u200C긃\.𩃹\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:785\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}긃.𩃹-", %p)}, undef, "to_unicode\(\'\\u200C긃\.𩃹\-\'\)\ throws\ error\ V3\ C1\ \[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{8C224}.\x{11046}\x{200D}", %p)}, undef, "to_unicode\(\'뉓泓\\uD9F0\\uDE24\.\\uD804\\uDC46\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:788\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("뉓泓\x{8C224}.\x{11046}\x{200D}", %p)}, undef, "to_unicode\(\'뉓泓\\uD9F0\\uDE24\.\\uD804\\uDC46\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:789\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E7E}ß。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE7Eß。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:790\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E7E}ß。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE7Eß。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:791\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E7E}ß。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE7Eß\。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:792\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E7E}ß。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE7Eß\。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:793\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E7E}SS。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE7ESS\。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:794\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E7E}SS。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE7ESS\。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:795\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E7E}ss。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE7Ess\。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:796\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E7E}ss。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE7Ess\。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:797\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E7E}Ss。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE7ESs\。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:798\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E7E}Ss。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE7ESs\。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:799\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E7E}SS。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE7ESS。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:800\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E7E}SS。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE7ESS。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:801\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E7E}ss。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE7Ess。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:802\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E7E}ss。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE7Ess。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:803\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E7E}Ss。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE7ESs。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:804\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E7E}Ss。\x{08F1}\x{2B75}\x{C8A18}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE7ESs。\\u08F1\\u2B75\\uDAE2\\uDE18\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:805\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{11046}.\x{A8C4}-≮≠", %p)}, undef, "to_unicode\(\'\\uD804\\uDC46.\\uA8C4\-\≮\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:806\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{11046}.\x{A8C4}-<\x{0338}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uD804\\uDC46.\\uA8C4\-\<\\u0338\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:807\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{11046}.\x{A8C4}-≮≠", %p)}, undef, "to_unicode\(\'\\uD804\\uDC46\.\\uA8C4\-\≮\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:808\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{11046}.\x{A8C4}-<\x{0338}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uD804\\uDC46\.\\uA8C4\-\<\\u0338\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:809\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1039}Ⴑ\x{115F}.\x{A8C4}Ⅎ", %p)}, undef, "to_unicode\(\'\\u1039Ⴑ\\u115F.\\uA8C4Ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:810\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1039}Ⴑ\x{115F}.\x{A8C4}Ⅎ", %p)}, undef, "to_unicode\(\'\\u1039Ⴑ\\u115F\.\\uA8C4Ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:811\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1039}ⴑ\x{115F}.\x{A8C4}ⅎ", %p)}, undef, "to_unicode\(\'\\u1039ⴑ\\u115F\.\\uA8C4ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:812\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1039}Ⴑ\x{115F}.\x{A8C4}ⅎ", %p)}, undef, "to_unicode\(\'\\u1039Ⴑ\\u115F\.\\uA8C4ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:813\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1039}ⴑ\x{115F}.\x{A8C4}ⅎ", %p)}, undef, "to_unicode\(\'\\u1039ⴑ\\u115F.\\uA8C4ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:814\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1039}Ⴑ\x{115F}.\x{A8C4}ⅎ", %p)}, undef, "to_unicode\(\'\\u1039Ⴑ\\u115F.\\uA8C4ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:815\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82222}。Ⴃ\x{1EEA8}\x{10E7E}똯", %p)}, undef, "to_unicode\(\'\\uD9C8\\uDE22\。Ⴃ\\uD83B\\uDEA8\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:816\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82222}。Ⴃ\x{1EEA8}\x{10E7E}똯", %p)}, undef, "to_unicode\(\'\\uD9C8\\uDE22\。Ⴃ\\uD83B\\uDEA8\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:817\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82222}。Ⴃ\x{0637}\x{10E7E}똯", %p)}, undef, "to_unicode\(\'\\uD9C8\\uDE22\。Ⴃ\\u0637\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:818\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82222}。Ⴃ\x{0637}\x{10E7E}똯", %p)}, undef, "to_unicode\(\'\\uD9C8\\uDE22\。Ⴃ\\u0637\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:819\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82222}。ⴃ\x{0637}\x{10E7E}똯", %p)}, undef, "to_unicode\(\'\\uD9C8\\uDE22\。ⴃ\\u0637\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:820\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82222}。ⴃ\x{0637}\x{10E7E}똯", %p)}, undef, "to_unicode\(\'\\uD9C8\\uDE22\。ⴃ\\u0637\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:821\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82222}。ⴃ\x{1EEA8}\x{10E7E}똯", %p)}, undef, "to_unicode\(\'\\uD9C8\\uDE22\。ⴃ\\uD83B\\uDEA8\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:822\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82222}。ⴃ\x{1EEA8}\x{10E7E}똯", %p)}, undef, "to_unicode\(\'\\uD9C8\\uDE22\。ⴃ\\uD83B\\uDEA8\\uD803\\uDE7E똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:823\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06AC}。⳻\x{E01AD}\x{2D7F}\x{3164}", %p)}, undef, "to_unicode\(\'\\u06AC。⳻\\uDB40\\uDDAD\\u2D7F\\u3164\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:824\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06AC}。⳻\x{E01AD}\x{2D7F}\x{1160}", %p)}, undef, "to_unicode\(\'\\u06AC\。⳻\\uDB40\\uDDAD\\u2D7F\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:825\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10B1C}⾇.ᢣ-𝟢", %p)}, undef, "to_unicode\(\'\\uD802\\uDF1C⾇.ᢣ\-𝟢\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:826\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10B1C}舛.ᢣ-0", %p)}, undef, "to_unicode\(\'\\uD802\\uDF1C舛\.ᢣ\-0\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:827\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴉ猕\x{4C0A1}≮.︒", %p)}, undef, "to_unicode\(\'Ⴉ猕\\uD8F0\\uDCA1\≮.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:828\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴉ猕\x{4C0A1}<\x{0338}.︒", %p)}, undef, "to_unicode\(\'Ⴉ猕\\uD8F0\\uDCA1\<\\u0338.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:829\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴉ猕\x{4C0A1}≮.。", %p)}, undef, "to_unicode\(\'Ⴉ猕\\uD8F0\\uDCA1\≮\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:830\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴉ猕\x{4C0A1}<\x{0338}.。", %p)}, undef, "to_unicode\(\'Ⴉ猕\\uD8F0\\uDCA1\<\\u0338\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:831\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴉ猕\x{4C0A1}<\x{0338}.。", %p)}, undef, "to_unicode\(\'ⴉ猕\\uD8F0\\uDCA1\<\\u0338\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:832\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴉ猕\x{4C0A1}≮.。", %p)}, undef, "to_unicode\(\'ⴉ猕\\uD8F0\\uDCA1\≮\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:833\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴉ猕\x{4C0A1}<\x{0338}.︒", %p)}, undef, "to_unicode\(\'ⴉ猕\\uD8F0\\uDCA1\<\\u0338.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:834\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴉ猕\x{4C0A1}≮.︒", %p)}, undef, "to_unicode\(\'ⴉ猕\\uD8F0\\uDCA1\≮.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:835\]") 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{0682}\x{0F91}", %p)}, undef, "to_unicode\(\'⳪。ᢙ鳳\\u0682\\u0F91\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:836\]") 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{0682}\x{0F91}", %p)}, undef, "to_unicode\(\'⳪\。ᢙ鳳\\u0682\\u0F91\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:837\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200D}\x{0600}。ß", %p)}, undef, "to_unicode\(\'\\u200D\\u0600\。ß\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:838\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{0600}。ß", %p)}, undef, "to_unicode\(\'\\u200D\\u0600\。ß\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:839\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{0600}。SS", %p)}, undef, "to_unicode\(\'\\u200D\\u0600\。SS\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:840\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{0600}。SS", %p)}, undef, "to_unicode\(\'\\u200D\\u0600\。SS\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[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("Å둄-.\x{200C}", %p)}, undef, "to_unicode\(\'Å둄\-.\\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("A\x{030A}둄-.\x{200C}", %p)}, undef, "to_unicode\(\'A\\u030A둄\-.\\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("Å둄-.\x{200C}", %p)}, undef, "to_unicode\(\'Å둄\-\.\\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("a\x{030A}둄-.\x{200C}", %p)}, undef, "to_unicode\(\'a\\u030A둄\-\.\\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("å둄-.\x{200C}", %p)}, undef, "to_unicode\(\'å둄\-\.\\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("a\x{030A}둄-.\x{200C}", %p)}, undef, "to_unicode\(\'a\\u030A둄\-.\\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{200C}", %p)}, undef, "to_unicode\(\'å둄\-.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:857\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E01E1}\x{11AFF}\x{065E}\x{068D}.\x{2C83D}-\x{0618}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDDE1\\uD806\\uDEFF\\u065E\\u068D\.\\uD872\\uDC3D\-\\u0618\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:858\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς.ß\x{D722C}\x{10E72}\x{0BCD}", %p)}, undef, "to_unicode\(\'ς\.ß\\uDB1C\\uDE2C\\uD803\\uDE72\\u0BCD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:859\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ.SS\x{D722C}\x{10E72}\x{0BCD}", %p)}, undef, "to_unicode\(\'Σ\.SS\\uDB1C\\uDE2C\\uD803\\uDE72\\u0BCD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:860\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ.ss\x{D722C}\x{10E72}\x{0BCD}", %p)}, undef, "to_unicode\(\'σ\.ss\\uDB1C\\uDE2C\\uD803\\uDE72\\u0BCD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:861\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ.ss\x{D722C}\x{10E72}\x{0BCD}", %p)}, undef, "to_unicode\(\'Σ\.ss\\uDB1C\\uDE2C\\uD803\\uDE72\\u0BCD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:862\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ.ß\x{D722C}\x{10E72}\x{0BCD}", %p)}, undef, "to_unicode\(\'Σ\.ß\\uDB1C\\uDE2C\\uD803\\uDE72\\u0BCD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:863\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ.ß\x{D722C}\x{10E72}\x{0BCD}", %p)}, undef, "to_unicode\(\'σ\.ß\\uDB1C\\uDE2C\\uD803\\uDE72\\u0BCD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:864\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{067C}\x{E01D0}。\x{10E65}\x{E01E3}", %p)}, undef, "to_unicode\(\'\\u067C\\uDB40\\uDDD0。\\uD803\\uDE65\\uDB40\\uDDE3\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:865\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{067C}\x{E01D0}。\x{10E65}\x{E01E3}", %p)}, undef, "to_unicode\(\'\\u067C\\uDB40\\uDDD0\。\\uD803\\uDE65\\uDB40\\uDDE3\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:866\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("밬\x{200C}\x{1E9A9}。\x{E0391}\x{9F04D}-\x{1ED1A}", %p)}, undef, "to_unicode\(\'밬\\u200C\\uD83A\\uDDA9。\\uDB40\\uDF91\\uDA3C\\uDC4D\-\\uD83B\\uDD1A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:867\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("밬\x{200C}\x{1E9A9}。\x{E0391}\x{9F04D}-\x{1ED1A}", %p)}, undef, "to_unicode\(\'밬\\u200C\\uD83A\\uDDA9。\\uDB40\\uDF91\\uDA3C\\uDC4D\-\\uD83B\\uDD1A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:868\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("밬\x{200C}\x{1E9A9}。\x{E0391}\x{9F04D}-\x{1ED1A}", %p)}, undef, "to_unicode\(\'밬\\u200C\\uD83A\\uDDA9。\\uDB40\\uDF91\\uDA3C\\uDC4D\-\\uD83B\\uDD1A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:869\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("밬\x{200C}\x{1E9A9}。\x{E0391}\x{9F04D}-\x{1ED1A}", %p)}, undef, "to_unicode\(\'밬\\u200C\\uD83A\\uDDA9。\\uDB40\\uDF91\\uDA3C\\uDC4D\-\\uD83B\\uDD1A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:870\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("밬\x{200C}\x{1E9A9}。\x{E0391}\x{9F04D}-\x{1ED1A}", %p)}, undef, "to_unicode\(\'밬\\u200C\\uD83A\\uDDA9\。\\uDB40\\uDF91\\uDA3C\\uDC4D\-\\uD83B\\uDD1A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:871\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("밬\x{200C}\x{1E9A9}。\x{E0391}\x{9F04D}-\x{1ED1A}", %p)}, undef, "to_unicode\(\'밬\\u200C\\uD83A\\uDDA9\。\\uDB40\\uDF91\\uDA3C\\uDC4D\-\\uD83B\\uDD1A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:872\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("밬\x{200C}\x{1E9A9}。\x{E0391}\x{9F04D}-\x{1ED1A}", %p)}, undef, "to_unicode\(\'밬\\u200C\\uD83A\\uDDA9\。\\uDB40\\uDF91\\uDA3C\\uDC4D\-\\uD83B\\uDD1A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:873\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("밬\x{200C}\x{1E9A9}。\x{E0391}\x{9F04D}-\x{1ED1A}", %p)}, undef, "to_unicode\(\'밬\\u200C\\uD83A\\uDDA9\。\\uDB40\\uDF91\\uDA3C\\uDC4D\-\\uD83B\\uDD1A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:874\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("룱\x{200D}\x{BE542}\x{200C}。\x{E01A9}︒", %p)}, undef, "to_unicode\(\'룱\\u200D\\uDAB9\\uDD42\\u200C\。\\uDB40\\uDDA9︒\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:875\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("룱\x{200D}\x{BE542}\x{200C}。\x{E01A9}︒", %p)}, undef, "to_unicode\(\'룱\\u200D\\uDAB9\\uDD42\\u200C\。\\uDB40\\uDDA9︒\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:876\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("룱\x{200D}\x{BE542}\x{200C}。\x{E01A9}︒", %p)}, undef, "to_unicode\(\'룱\\u200D\\uDAB9\\uDD42\\u200C\。\\uDB40\\uDDA9︒\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:877\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("룱\x{200D}\x{BE542}\x{200C}。\x{E01A9}︒", %p)}, undef, "to_unicode\(\'룱\\u200D\\uDAB9\\uDD42\\u200C\。\\uDB40\\uDDA9︒\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:878\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("룱\x{200D}\x{BE542}\x{200C}。\x{E01A9}。", %p)}, undef, "to_unicode\(\'룱\\u200D\\uDAB9\\uDD42\\u200C\。\\uDB40\\uDDA9\。\'\)\ throws\ error\ P1\ V6\ C2\ C1\ A4_2\ \[data\/IdnaTest\.txt\:879\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("룱\x{200D}\x{BE542}\x{200C}。\x{E01A9}。", %p)}, undef, "to_unicode\(\'룱\\u200D\\uDAB9\\uDD42\\u200C\。\\uDB40\\uDDA9\。\'\)\ throws\ error\ P1\ V6\ C2\ C1\ A4_2\ \[data\/IdnaTest\.txt\:880\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("룱\x{200D}\x{BE542}\x{200C}。\x{E01A9}。", %p)}, undef, "to_unicode\(\'룱\\u200D\\uDAB9\\uDD42\\u200C\。\\uDB40\\uDDA9\。\'\)\ throws\ error\ P1\ V6\ C2\ C1\ A4_2\ \[data\/IdnaTest\.txt\:881\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("룱\x{200D}\x{BE542}\x{200C}。\x{E01A9}。", %p)}, undef, "to_unicode\(\'룱\\u200D\\uDAB9\\uDD42\\u200C\。\\uDB40\\uDDA9\。\'\)\ throws\ error\ P1\ V6\ C2\ C1\ A4_2\ \[data\/IdnaTest\.txt\:882\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("₆.\x{FE07}⒈ß", %p)}, undef, "to_unicode\(\'₆.\\uFE07⒈ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:883\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6.\x{FE07}1.ß", %p)}, "6.1.ß", "to_unicode\(\'6\.\\uFE071\.ß\'\)\ \[data\/IdnaTest\.txt\:884\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6.\x{FE07}1.ß", %p)}, "6.1.ß", "to_unicode\(\'6\.\\uFE071\.ß\'\)\ \[data\/IdnaTest\.txt\:885\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6.\x{FE07}1.SS", %p)}, "6.1.ss", "to_unicode\(\'6\.\\uFE071\.SS\'\)\ \[data\/IdnaTest\.txt\:886\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6.1.ss", %p)}, "6.1.ss", "to_unicode\(\'6\.1\.ss\'\)\ \[data\/IdnaTest\.txt\:887\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6.1.xn--zca", %p)}, "6.1.ß", "to_unicode\(\'6\.1\.xn\-\-zca\'\)\ \[data\/IdnaTest\.txt\:888\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6.1.ß", %p)}, "6.1.ß", "to_unicode\(\'6\.1\.ß\'\)\ \[data\/IdnaTest\.txt\:889\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6.1.ß", %p)}, "6.1.ß", "to_unicode\(\'6\.1\.ß\'\)\ \[data\/IdnaTest\.txt\:890\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("₆.\x{FE07}⒈SS", %p)}, undef, "to_unicode\(\'₆.\\uFE07⒈SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:891\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("₆.\x{FE07}⒈ss", %p)}, undef, "to_unicode\(\'₆.\\uFE07⒈ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:892\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("₆.\x{FE07}⒈Ss", %p)}, undef, "to_unicode\(\'₆.\\uFE07⒈Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:893\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82F0D}\x{17D2}。\x{1EBE7}\x{A4D5C}\x{E0160}", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDF0D\\u17D2。\\uD83A\\uDFE7\\uDA53\\uDD5C\\uDB40\\uDD60\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:894\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82F0D}\x{17D2}。\x{1EBE7}\x{A4D5C}\x{E0160}", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDF0D\\u17D2\。\\uD83A\\uDFE7\\uDA53\\uDD5C\\uDB40\\uDD60\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:895\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2CEF}\x{0CCD}\x{094D}.≠\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u2CEF\\u0CCD\\u094D.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:896\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2CEF}\x{0CCD}\x{094D}.≠\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u2CEF\\u0CCD\\u094D.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:897\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CCD}\x{094D}\x{2CEF}.≠\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u0CCD\\u094D\\u2CEF.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:898\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CCD}\x{094D}\x{2CEF}.≠\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u0CCD\\u094D\\u2CEF.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:899\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CCD}\x{094D}\x{2CEF}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u0CCD\\u094D\\u2CEF.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:900\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CCD}\x{094D}\x{2CEF}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u0CCD\\u094D\\u2CEF.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:901\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CCD}\x{094D}\x{2CEF}.≠\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u0CCD\\u094D\\u2CEF\.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:902\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CCD}\x{094D}\x{2CEF}.≠\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u0CCD\\u094D\\u2CEF\.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:903\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CCD}\x{094D}\x{2CEF}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u0CCD\\u094D\\u2CEF\.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:904\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CCD}\x{094D}\x{2CEF}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u0CCD\\u094D\\u2CEF\.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:905\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴁ¹娤.\x{200D}\x{E0152}\x{0669}\x{E005F}", %p)}, undef, "to_unicode\(\'Ⴁ¹娤\.\\u200D\\uDB40\\uDD52\\u0669\\uDB40\\uDC5F\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:906\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴁ¹娤.\x{200D}\x{E0152}\x{0669}\x{E005F}", %p)}, undef, "to_unicode\(\'Ⴁ¹娤\.\\u200D\\uDB40\\uDD52\\u0669\\uDB40\\uDC5F\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:907\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴁ1娤.\x{200D}\x{E0152}\x{0669}\x{E005F}", %p)}, undef, "to_unicode\(\'Ⴁ1娤\.\\u200D\\uDB40\\uDD52\\u0669\\uDB40\\uDC5F\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:908\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴁ1娤.\x{200D}\x{E0152}\x{0669}\x{E005F}", %p)}, undef, "to_unicode\(\'Ⴁ1娤\.\\u200D\\uDB40\\uDD52\\u0669\\uDB40\\uDC5F\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:909\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴁ1娤.\x{200D}\x{E0152}\x{0669}\x{E005F}", %p)}, undef, "to_unicode\(\'ⴁ1娤\.\\u200D\\uDB40\\uDD52\\u0669\\uDB40\\uDC5F\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:910\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴁ1娤.\x{200D}\x{E0152}\x{0669}\x{E005F}", %p)}, undef, "to_unicode\(\'ⴁ1娤\.\\u200D\\uDB40\\uDD52\\u0669\\uDB40\\uDC5F\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:911\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴁ¹娤.\x{200D}\x{E0152}\x{0669}\x{E005F}", %p)}, undef, "to_unicode\(\'ⴁ¹娤\.\\u200D\\uDB40\\uDD52\\u0669\\uDB40\\uDC5F\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:912\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴁ¹娤.\x{200D}\x{E0152}\x{0669}\x{E005F}", %p)}, undef, "to_unicode\(\'ⴁ¹娤\.\\u200D\\uDB40\\uDD52\\u0669\\uDB40\\uDC5F\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:913\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒚Ⴄ\x{0669}\x{E0065}。⒈\x{1D1AB}ß", %p)}, undef, "to_unicode\(\'⒚Ⴄ\\u0669\\uDB40\\uDC65\。⒈\\uD834\\uDDABß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:914\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("19.Ⴄ\x{0669}\x{E0065}。1.\x{1D1AB}ß", %p)}, undef, "to_unicode\(\'19\.Ⴄ\\u0669\\uDB40\\uDC65\。1\.\\uD834\\uDDABß\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:915\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("19.ⴄ\x{0669}\x{E0065}。1.\x{1D1AB}ß", %p)}, undef, "to_unicode\(\'19\.ⴄ\\u0669\\uDB40\\uDC65\。1\.\\uD834\\uDDABß\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:916\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("19.Ⴄ\x{0669}\x{E0065}。1.\x{1D1AB}SS", %p)}, undef, "to_unicode\(\'19\.Ⴄ\\u0669\\uDB40\\uDC65\。1\.\\uD834\\uDDABSS\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:917\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("19.ⴄ\x{0669}\x{E0065}。1.\x{1D1AB}ss", %p)}, undef, "to_unicode\(\'19\.ⴄ\\u0669\\uDB40\\uDC65\。1\.\\uD834\\uDDABss\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:918\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("19.Ⴄ\x{0669}\x{E0065}。1.\x{1D1AB}Ss", %p)}, undef, "to_unicode\(\'19\.Ⴄ\\u0669\\uDB40\\uDC65\。1\.\\uD834\\uDDABSs\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:919\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒚ⴄ\x{0669}\x{E0065}。⒈\x{1D1AB}ß", %p)}, undef, "to_unicode\(\'⒚ⴄ\\u0669\\uDB40\\uDC65\。⒈\\uD834\\uDDABß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:920\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒚Ⴄ\x{0669}\x{E0065}。⒈\x{1D1AB}SS", %p)}, undef, "to_unicode\(\'⒚Ⴄ\\u0669\\uDB40\\uDC65\。⒈\\uD834\\uDDABSS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:921\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒚ⴄ\x{0669}\x{E0065}。⒈\x{1D1AB}ss", %p)}, undef, "to_unicode\(\'⒚ⴄ\\u0669\\uDB40\\uDC65\。⒈\\uD834\\uDDABss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:922\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒚Ⴄ\x{0669}\x{E0065}。⒈\x{1D1AB}Ss", %p)}, undef, "to_unicode\(\'⒚Ⴄ\\u0669\\uDB40\\uDC65\。⒈\\uD834\\uDDABSs\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:923\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠.\x{200C}-\x{0662}", %p)}, undef, "to_unicode\(\'\≠\.\\u200C\-\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:924\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠.\x{200C}-\x{0662}", %p)}, undef, "to_unicode\(\'\≠\.\\u200C\-\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:925\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}.\x{200C}-\x{0662}", %p)}, undef, "to_unicode\(\'\=\\u0338\.\\u200C\-\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:926\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}.\x{200C}-\x{0662}", %p)}, undef, "to_unicode\(\'\=\\u0338\.\\u200C\-\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:927\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E78}𝟭。\x{E0825}\x{10ACB}\x{10E6D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE78𝟭。\\uDB42\\uDC25\\uD802\\uDECB\\uD803\\uDE6D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:928\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E78}1。\x{E0825}\x{10ACB}\x{10E6D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE781\。\\uDB42\\uDC25\\uD802\\uDECB\\uD803\\uDE6D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:929\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10E77}𝟓。\x{5E121}\x{EB555}\x{A8C4}", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE77𝟓\。\\uD938\\uDD21\\uDB6D\\uDD55\\uA8C4\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:930\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10E77}𝟓。\x{5E121}\x{EB555}\x{A8C4}", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE77𝟓\。\\uD938\\uDD21\\uDB6D\\uDD55\\uA8C4\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:931\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10E77}5。\x{5E121}\x{EB555}\x{A8C4}", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE775\。\\uD938\\uDD21\\uDB6D\\uDD55\\uA8C4\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:932\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10E77}5。\x{5E121}\x{EB555}\x{A8C4}", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE775\。\\uD938\\uDD21\\uDB6D\\uDD55\\uA8C4\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:933\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{110B9}.-逋\x{8A281}\x{C017F}", %p)}, undef, "to_unicode\(\'\\uD804\\uDCB9\.\-逋\\uD9E8\\uDE81\\uDAC0\\uDD7F\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:934\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0630}。\x{3164}\x{200D}ς", %p)}, undef, "to_unicode\(\'\\u0630\。\\u3164\\u200Dς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:935\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0630}。\x{3164}\x{200D}ς", %p)}, undef, "to_unicode\(\'\\u0630\。\\u3164\\u200Dς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:936\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0630}。\x{1160}\x{200D}ς", %p)}, undef, "to_unicode\(\'\\u0630\。\\u1160\\u200Dς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:937\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0630}。\x{1160}\x{200D}ς", %p)}, undef, "to_unicode\(\'\\u0630\。\\u1160\\u200Dς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:938\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0630}。\x{1160}\x{200D}Σ", %p)}, undef, "to_unicode\(\'\\u0630\。\\u1160\\u200DΣ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:939\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0630}。\x{1160}\x{200D}Σ", %p)}, undef, "to_unicode\(\'\\u0630\。\\u1160\\u200DΣ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:940\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0630}。\x{1160}\x{200D}σ", %p)}, undef, "to_unicode\(\'\\u0630\。\\u1160\\u200Dσ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:941\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0630}。\x{1160}\x{200D}σ", %p)}, undef, "to_unicode\(\'\\u0630\。\\u1160\\u200Dσ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:942\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0630}。\x{3164}\x{200D}Σ", %p)}, undef, "to_unicode\(\'\\u0630\。\\u3164\\u200DΣ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:943\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0630}。\x{3164}\x{200D}Σ", %p)}, undef, "to_unicode\(\'\\u0630\。\\u3164\\u200DΣ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:944\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0630}。\x{3164}\x{200D}σ", %p)}, undef, "to_unicode\(\'\\u0630\。\\u3164\\u200Dσ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:945\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0630}。\x{3164}\x{200D}σ", %p)}, undef, "to_unicode\(\'\\u0630\。\\u3164\\u200Dσ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:946\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{077C}Ⴃ。\x{E98A7}\x{309A}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'\\u077CႣ。\\uDB66\\uDCA7\\u309A\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:947\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{077C}Ⴃ。\x{E98A7}\x{309A}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'\\u077CႣ。\\uDB66\\uDCA7\\u309A\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:948\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{077C}Ⴃ。\x{E98A7}\x{309A}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'\\u077CႣ\。\\uDB66\\uDCA7\\u309A\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:949\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{077C}Ⴃ。\x{E98A7}\x{309A}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'\\u077CႣ\。\\uDB66\\uDCA7\\u309A\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:950\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{077C}ⴃ。\x{E98A7}\x{309A}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'\\u077Cⴃ\。\\uDB66\\uDCA7\\u309A\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:951\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{077C}ⴃ。\x{E98A7}\x{309A}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'\\u077Cⴃ\。\\uDB66\\uDCA7\\u309A\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:952\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{077C}ⴃ。\x{E98A7}\x{309A}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'\\u077Cⴃ。\\uDB66\\uDCA7\\u309A\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:953\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{077C}ⴃ。\x{E98A7}\x{309A}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'\\u077Cⴃ。\\uDB66\\uDCA7\\u309A\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:954\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᡶ🁺.ς\\u063A\\u200C\\u200D\'\)\ throws\ error\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:955\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᡶ🁺.ς\\u063A\\u200C\\u200D\'\)\ throws\ error\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:956\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᡶ🁺\.ς\\u063A\\u200C\\u200D\'\)\ throws\ error\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:957\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᡶ🁺\.ς\\u063A\\u200C\\u200D\'\)\ throws\ error\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:958\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᡶ🁺\.Σ\\u063A\\u200C\\u200D\'\)\ throws\ error\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:959\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᡶ🁺\.Σ\\u063A\\u200C\\u200D\'\)\ throws\ error\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:960\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᡶ🁺\.σ\\u063A\\u200C\\u200D\'\)\ throws\ error\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:961\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᡶ🁺\.σ\\u063A\\u200C\\u200D\'\)\ throws\ error\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:962\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᡶ🁺.Σ\\u063A\\u200C\\u200D\'\)\ throws\ error\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:963\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᡶ🁺.Σ\\u063A\\u200C\\u200D\'\)\ throws\ error\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:964\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᡶ🁺.σ\\u063A\\u200C\\u200D\'\)\ throws\ error\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:965\]") 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{063A}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᡶ🁺.σ\\u063A\\u200C\\u200D\'\)\ throws\ error\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:966\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{17B5}。\x{067F}\x{06EE}😽", %p)}, undef, "to_unicode\(\'\\u17B5\。\\u067F\\u06EE😽\'\)\ throws\ error\ P1\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:967\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E73}暑.⾑\x{0600}", %p)}, undef, "to_unicode\(\'\\u0E73暑.⾑\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:968\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E73}暑.襾\x{0600}", %p)}, undef, "to_unicode\(\'\\u0E73暑\.襾\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:969\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DF8}≯\x{07DE}。\x{FB28}\x{1B42}", %p)}, undef, "to_unicode\(\'\\u2DF8\≯\\u07DE\。\\uFB28\\u1B42\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:970\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DF8}>\x{0338}\x{07DE}。\x{FB28}\x{1B42}", %p)}, undef, "to_unicode\(\'\\u2DF8\>\\u0338\\u07DE\。\\uFB28\\u1B42\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:971\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DF8}≯\x{07DE}。\x{05EA}\x{1B42}", %p)}, undef, "to_unicode\(\'\\u2DF8\≯\\u07DE\。\\u05EA\\u1B42\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:972\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DF8}>\x{0338}\x{07DE}。\x{05EA}\x{1B42}", %p)}, undef, "to_unicode\(\'\\u2DF8\>\\u0338\\u07DE\。\\u05EA\\u1B42\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:973\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{109AE}\x{5A632}\x{1039}\x{A9C0}.\x{65732}Ⴗ", %p)}, undef, "to_unicode\(\'\\uD802\\uDDAE\\uD929\\uDE32\\u1039\\uA9C0\.\\uD955\\uDF32Ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:974\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{109AE}\x{5A632}\x{1039}\x{A9C0}.\x{65732}ⴗ", %p)}, undef, "to_unicode\(\'\\uD802\\uDDAE\\uD929\\uDE32\\u1039\\uA9C0\.\\uD955\\uDF32ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:975\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0365}。\x{0CCD}\x{436E9}\x{9992E}", %p)}, undef, "to_unicode\(\'\\u0365。\\u0CCD\\uD8CD\\uDEE9\\uDA26\\uDD2E\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:976\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0365}。\x{0CCD}\x{436E9}\x{9992E}", %p)}, undef, "to_unicode\(\'\\u0365\。\\u0CCD\\uD8CD\\uDEE9\\uDA26\\uDD2E\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:977\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0DCD}\x{200C}.\x{069D}\x{200C}ꡘ", %p)}, undef, "to_unicode\(\'\\uDB43\\uDDCD\\u200C.\\u069D\\u200Cꡘ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:978\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0DCD}\x{200C}.\x{069D}\x{200C}ꡘ", %p)}, undef, "to_unicode\(\'\\uDB43\\uDDCD\\u200C.\\u069D\\u200Cꡘ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:979\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0DCD}\x{200C}.\x{069D}\x{200C}ꡘ", %p)}, undef, "to_unicode\(\'\\uDB43\\uDDCD\\u200C\.\\u069D\\u200Cꡘ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:980\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0DCD}\x{200C}.\x{069D}\x{200C}ꡘ", %p)}, undef, "to_unicode\(\'\\uDB43\\uDDCD\\u200C\.\\u069D\\u200Cꡘ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:981\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07D9}\x{B49CE}ß.ጧ", %p)}, undef, "to_unicode\(\'\\u07D9\\uDA92\\uDDCEß\.ጧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:982\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07D9}\x{B49CE}SS.ጧ", %p)}, undef, "to_unicode\(\'\\u07D9\\uDA92\\uDDCESS\.ጧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:983\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07D9}\x{B49CE}ss.ጧ", %p)}, undef, "to_unicode\(\'\\u07D9\\uDA92\\uDDCEss\.ጧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:984\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07D9}\x{B49CE}Ss.ጧ", %p)}, undef, "to_unicode\(\'\\u07D9\\uDA92\\uDDCESs\.ጧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:985\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EFE}\x{200C}.\x{EDBBF}\x{200C}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEFE\\u200C\.\\uDB76\\uDFBF\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:986\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EFE}\x{200C}.\x{EDBBF}\x{200C}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEFE\\u200C\.\\uDB76\\uDFBF\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:987\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0710}\x{50DE4}\x{10E7D}。Ⴜ", %p)}, undef, "to_unicode\(\'\\u0710\\uD903\\uDDE4\\uD803\\uDE7D\。Ⴜ\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:988\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0710}\x{50DE4}\x{10E7D}。ⴜ", %p)}, undef, "to_unicode\(\'\\u0710\\uD903\\uDDE4\\uD803\\uDE7D\。ⴜ\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:989\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0601}\x{2BA3}\x{200C}\x{05A6}。\x{8BF30}\x{1EB89}", %p)}, undef, "to_unicode\(\'\\u0601\\u2BA3\\u200C\\u05A6。\\uD9EF\\uDF30\\uD83A\\uDF89\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:990\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0601}\x{2BA3}\x{200C}\x{05A6}。\x{8BF30}\x{1EB89}", %p)}, undef, "to_unicode\(\'\\u0601\\u2BA3\\u200C\\u05A6。\\uD9EF\\uDF30\\uD83A\\uDF89\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:991\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0601}\x{2BA3}\x{200C}\x{05A6}。\x{8BF30}\x{1EB89}", %p)}, undef, "to_unicode\(\'\\u0601\\u2BA3\\u200C\\u05A6\。\\uD9EF\\uDF30\\uD83A\\uDF89\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:992\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0601}\x{2BA3}\x{200C}\x{05A6}。\x{8BF30}\x{1EB89}", %p)}, undef, "to_unicode\(\'\\u0601\\u2BA3\\u200C\\u05A6\。\\uD9EF\\uDF30\\uD83A\\uDF89\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:993\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴒ。デß\x{07E5}\x{0DCA}", %p)}, undef, "to_unicode\(\'Ⴒ\。デß\\u07E5\\u0DCA\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:994\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴒ。テ\x{3099}ß\x{07E5}\x{0DCA}", %p)}, undef, "to_unicode\(\'Ⴒ\。テ\\u3099ß\\u07E5\\u0DCA\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:995\]") 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{3099}ß\x{07E5}\x{0DCA}", %p)}, undef, "to_unicode\(\'ⴒ\。テ\\u3099ß\\u07E5\\u0DCA\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:996\]") 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{0DCA}", %p)}, undef, "to_unicode\(\'ⴒ\。デß\\u07E5\\u0DCA\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:997\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴒ。デSS\x{07E5}\x{0DCA}", %p)}, undef, "to_unicode\(\'Ⴒ\。デSS\\u07E5\\u0DCA\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:998\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴒ。テ\x{3099}SS\x{07E5}\x{0DCA}", %p)}, undef, "to_unicode\(\'Ⴒ\。テ\\u3099SS\\u07E5\\u0DCA\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:999\]") 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{3099}ss\x{07E5}\x{0DCA}", %p)}, undef, "to_unicode\(\'ⴒ\。テ\\u3099ss\\u07E5\\u0DCA\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1000\]") 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("ⴒ。デss\x{07E5}\x{0DCA}", %p)}, undef, "to_unicode\(\'ⴒ\。デss\\u07E5\\u0DCA\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1001\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴒ。デSs\x{07E5}\x{0DCA}", %p)}, undef, "to_unicode\(\'Ⴒ\。デSs\\u07E5\\u0DCA\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1002\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴒ。テ\x{3099}Ss\x{07E5}\x{0DCA}", %p)}, undef, "to_unicode\(\'Ⴒ\。テ\\u3099Ss\\u07E5\\u0DCA\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1003\]") 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{094D}\x{1714}.𝟠-\x{07DE}", %p)}, undef, "to_unicode\(\'\\u094D\\u1714.𝟠\-\\u07DE\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1004\]") 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{094D}\x{1714}.8-\x{07DE}", %p)}, undef, "to_unicode\(\'\\u094D\\u1714\.8\-\\u07DE\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1005\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("≯\x{0BCD}\x{0017}.\x{A806}𩬾\x{E012B}\x{077F}", %p)}, undef, "to_unicode\(\'\≯\\u0BCD\\u0017\.\\uA806𩬾\\uDB40\\uDD2B\\u077F\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1006\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{0BCD}\x{0017}.\x{A806}𩬾\x{E012B}\x{077F}", %p)}, undef, "to_unicode\(\'\>\\u0338\\u0BCD\\u0017\.\\uA806𩬾\\uDB40\\uDD2B\\u077F\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1007\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0102}\x{C9AE1}Ⴗ쏔。\x{1EFC3}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD02\\uDAE6\\uDEE1Ⴗ쏔\。\\uD83B\\uDFC3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1008\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0102}\x{C9AE1}Ⴗ쏔。\x{1EFC3}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD02\\uDAE6\\uDEE1Ⴗ쏔\。\\uD83B\\uDFC3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1009\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0102}\x{C9AE1}ⴗ쏔。\x{1EFC3}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD02\\uDAE6\\uDEE1ⴗ쏔\。\\uD83B\\uDFC3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1010\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0102}\x{C9AE1}ⴗ쏔。\x{1EFC3}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD02\\uDAE6\\uDEE1ⴗ쏔\。\\uD83B\\uDFC3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1011\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß。🄃Ⴌ\x{0FC6}", %p)}, undef, "to_unicode\(\'ß。🄃Ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1012\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß。2,Ⴌ\x{0FC6}", %p)}, undef, "to_unicode\(\'ß\。2\,Ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1013\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß。2,ⴌ\x{0FC6}", %p)}, undef, "to_unicode\(\'ß\。2\,ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1014\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS。2,Ⴌ\x{0FC6}", %p)}, undef, "to_unicode\(\'SS\。2\,Ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1015\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss。2,ⴌ\x{0FC6}", %p)}, undef, "to_unicode\(\'ss\。2\,ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1016\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß。🄃ⴌ\x{0FC6}", %p)}, undef, "to_unicode\(\'ß。🄃ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1017\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS。🄃Ⴌ\x{0FC6}", %p)}, undef, "to_unicode\(\'SS。🄃Ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1018\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss。🄃ⴌ\x{0FC6}", %p)}, undef, "to_unicode\(\'ss。🄃ⴌ\\u0FC6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1019\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{07E0}\x{1E8C4}.\x{200C}∖\x{A953}", %p)}, undef, "to_unicode\(\'\-\\u07E0\\uD83A\\uDCC4\.\\u200C\∖\\uA953\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1020\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{07E0}\x{1E8C4}.\x{200C}∖\x{A953}", %p)}, undef, "to_unicode\(\'\-\\u07E0\\uD83A\\uDCC4\.\\u200C\∖\\uA953\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1021\]") 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{1BF1}\x{111C0}.☠\x{200D}", %p)}, undef, "to_unicode\(\'🏨ᠣ\\u1BF1\\uD804\\uDDC0\.\☠\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:1022\]") 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{1BF1}\x{111C0}.☠\x{200D}", %p)}, undef, "to_unicode\(\'🏨ᠣ\\u1BF1\\uD804\\uDDC0\.\☠\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:1023\]") 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--56e26q0321avb7g.xn--h4h", %p)}, "🏨ᠣ\x{1BF1}\x{111C0}.☠", "to_unicode\(\'xn\-\-56e26q0321avb7g\.xn\-\-h4h\'\)\ \[data\/IdnaTest\.txt\:1024\]") 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{1BF1}\x{111C0}.☠", %p)}, "🏨ᠣ\x{1BF1}\x{111C0}.☠", "to_unicode\(\'🏨ᠣ\\u1BF1\\uD804\\uDDC0\.\☠\'\)\ \[data\/IdnaTest\.txt\:1025\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0FAD}\x{200D}\x{08FB}\x{077A}.\x{0853}\x{200C}\x{E0344}", %p)}, undef, "to_unicode\(\'\\u0FAD\\u200D\\u08FB\\u077A\.\\u0853\\u200C\\uDB40\\uDF44\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ B3\ C1\ \[data\/IdnaTest\.txt\:1026\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAD}\x{200D}\x{08FB}\x{077A}.\x{0853}\x{200C}\x{E0344}", %p)}, undef, "to_unicode\(\'\\u0FAD\\u200D\\u08FB\\u077A\.\\u0853\\u200C\\uDB40\\uDF44\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ B3\ C1\ \[data\/IdnaTest\.txt\:1027\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴑ.\x{062E}\x{10AC5}\x{0758}", %p)}, undef, "to_unicode\(\'Ⴑ.\\u062E\\uD802\\uDEC5\\u0758\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1028\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴑ.\x{062E}\x{10AC5}\x{0758}", %p)}, undef, "to_unicode\(\'Ⴑ\.\\u062E\\uD802\\uDEC5\\u0758\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1029\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴑ.\x{062E}\x{10AC5}\x{0758}", %p)}, undef, "to_unicode\(\'ⴑ\.\\u062E\\uD802\\uDEC5\\u0758\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1030\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴑ.\x{062E}\x{10AC5}\x{0758}", %p)}, undef, "to_unicode\(\'ⴑ.\\u062E\\uD802\\uDEC5\\u0758\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1031\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0954}\x{AD48F}\x{0DCA}。\x{10B96E}𝟻", %p)}, undef, "to_unicode\(\'\\u0954\\uDA75\\uDC8F\\u0DCA\。\\uDBEE\\uDD6E𝟻\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1032\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0954}\x{AD48F}\x{0DCA}。\x{10B96E}5", %p)}, undef, "to_unicode\(\'\\u0954\\uDA75\\uDC8F\\u0DCA\。\\uDBEE\\uDD6E5\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1033\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{062E}\x{3730B}2。Ⴣ\x{07F1}\x{1EFFA}\x{79880}", %p)}, undef, "to_unicode\(\'\\u200C\\u062E\\uD89C\\uDF0B2。Ⴣ\\u07F1\\uD83B\\uDFFA\\uD9A6\\uDC80\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1034\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{062E}\x{3730B}2。Ⴣ\x{07F1}\x{1EFFA}\x{79880}", %p)}, undef, "to_unicode\(\'\\u200C\\u062E\\uD89C\\uDF0B2。Ⴣ\\u07F1\\uD83B\\uDFFA\\uD9A6\\uDC80\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1035\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{062E}\x{3730B}2。Ⴣ\x{07F1}\x{1EFFA}\x{79880}", %p)}, undef, "to_unicode\(\'\\u200C\\u062E\\uD89C\\uDF0B2\。Ⴣ\\u07F1\\uD83B\\uDFFA\\uD9A6\\uDC80\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1036\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{062E}\x{3730B}2。Ⴣ\x{07F1}\x{1EFFA}\x{79880}", %p)}, undef, "to_unicode\(\'\\u200C\\u062E\\uD89C\\uDF0B2\。Ⴣ\\u07F1\\uD83B\\uDFFA\\uD9A6\\uDC80\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1037\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{062E}\x{3730B}2。ⴣ\x{07F1}\x{1EFFA}\x{79880}", %p)}, undef, "to_unicode\(\'\\u200C\\u062E\\uD89C\\uDF0B2\。ⴣ\\u07F1\\uD83B\\uDFFA\\uD9A6\\uDC80\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1038\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{062E}\x{3730B}2。ⴣ\x{07F1}\x{1EFFA}\x{79880}", %p)}, undef, "to_unicode\(\'\\u200C\\u062E\\uD89C\\uDF0B2\。ⴣ\\u07F1\\uD83B\\uDFFA\\uD9A6\\uDC80\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1039\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{062E}\x{3730B}2。ⴣ\x{07F1}\x{1EFFA}\x{79880}", %p)}, undef, "to_unicode\(\'\\u200C\\u062E\\uD89C\\uDF0B2。ⴣ\\u07F1\\uD83B\\uDFFA\\uD9A6\\uDC80\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1040\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{062E}\x{3730B}2。ⴣ\x{07F1}\x{1EFFA}\x{79880}", %p)}, undef, "to_unicode\(\'\\u200C\\u062E\\uD89C\\uDF0B2。ⴣ\\u07F1\\uD83B\\uDFFA\\uD9A6\\uDC80\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1041\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BE}。\x{116B5}\x{8ED6C}\x{E0001}-", %p)}, undef, "to_unicode\(\'\\u06BE。\\uD805\\uDEB5\\uD9FB\\uDD6C\\uDB40\\uDC01\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1042\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BE}。\x{116B5}\x{8ED6C}\x{E0001}-", %p)}, undef, "to_unicode\(\'\\u06BE\。\\uD805\\uDEB5\\uD9FB\\uDD6C\\uDB40\\uDC01\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1043\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10D4B}\x{106843}。絧\x{0953}", %p)}, undef, "to_unicode\(\'\\uD803\\uDD4B\\uDBDA\\uDC43\。絧\\u0953\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1044\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}Ⴋ.5≯︒\x{E0195}", %p)}, undef, "to_unicode\(\'\\u0DCAႫ.5\≯︒\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1045\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}Ⴋ.5>\x{0338}︒\x{E0195}", %p)}, undef, "to_unicode\(\'\\u0DCAႫ.5\>\\u0338︒\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1046\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}Ⴋ.5≯。\x{E0195}", %p)}, undef, "to_unicode\(\'\\u0DCAႫ\.5\≯\。\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1047\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}Ⴋ.5>\x{0338}。\x{E0195}", %p)}, undef, "to_unicode\(\'\\u0DCAႫ\.5\>\\u0338\。\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1048\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}ⴋ.5>\x{0338}。\x{E0195}", %p)}, undef, "to_unicode\(\'\\u0DCAⴋ\.5\>\\u0338\。\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1049\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}ⴋ.5≯。\x{E0195}", %p)}, undef, "to_unicode\(\'\\u0DCAⴋ\.5\≯\。\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1050\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}ⴋ.5>\x{0338}︒\x{E0195}", %p)}, undef, "to_unicode\(\'\\u0DCAⴋ.5\>\\u0338︒\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1051\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}ⴋ.5≯︒\x{E0195}", %p)}, undef, "to_unicode\(\'\\u0DCAⴋ.5\≯︒\\uDB40\\uDD95\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1052\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}F\x{A806}。\x{2DFA}︒\x{07E6}\x{10E75}", %p)}, undef, "to_unicode\(\'\\u200DF\\uA806\。\\u2DFA︒\\u07E6\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1053\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}F\x{A806}。\x{2DFA}︒\x{07E6}\x{10E75}", %p)}, undef, "to_unicode\(\'\\u200DF\\uA806\。\\u2DFA︒\\u07E6\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1054\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}F\x{A806}。\x{2DFA}。\x{07E6}\x{10E75}", %p)}, undef, "to_unicode\(\'\\u200DF\\uA806\。\\u2DFA\。\\u07E6\\uD803\\uDE75\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1055\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}F\x{A806}。\x{2DFA}。\x{07E6}\x{10E75}", %p)}, undef, "to_unicode\(\'\\u200DF\\uA806\。\\u2DFA\。\\u07E6\\uD803\\uDE75\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1056\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}f\x{A806}。\x{2DFA}。\x{07E6}\x{10E75}", %p)}, undef, "to_unicode\(\'\\u200Df\\uA806\。\\u2DFA\。\\u07E6\\uD803\\uDE75\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1057\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}f\x{A806}。\x{2DFA}。\x{07E6}\x{10E75}", %p)}, undef, "to_unicode\(\'\\u200Df\\uA806\。\\u2DFA\。\\u07E6\\uD803\\uDE75\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1058\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200D}f\x{A806}。\x{2DFA}︒\x{07E6}\x{10E75}", %p)}, undef, "to_unicode\(\'\\u200Df\\uA806\。\\u2DFA︒\\u07E6\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1059\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}f\x{A806}。\x{2DFA}︒\x{07E6}\x{10E75}", %p)}, undef, "to_unicode\(\'\\u200Df\\uA806\。\\u2DFA︒\\u07E6\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1060\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{068C}𝟖\x{FC29}︒。\x{10E77}\x{17D2}", %p)}, undef, "to_unicode\(\'\\u068C𝟖\\uFC29︒。\\uD803\\uDE77\\u17D2\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:1061\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{068C}8\x{0639}\x{062C}。。\x{10E77}\x{17D2}", %p)}, undef, "to_unicode\(\'\\u068C8\\u0639\\u062C\。\。\\uD803\\uDE77\\u17D2\'\)\ throws\ error\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1062\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{FCDF}.\x{E01B6}\x{0650}\x{08BB}", %p)}, undef, "to_unicode\(\'\\uFCDF\.\\uDB40\\uDDB6\\u0650\\u08BB\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1063\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0626}\x{0645}.\x{E01B6}\x{0650}\x{08BB}", %p)}, undef, "to_unicode\(\'\\u0626\\u0645\.\\uDB40\\uDDB6\\u0650\\u08BB\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1064\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{064A}\x{0654}\x{0645}.\x{E01B6}\x{0650}\x{08BB}", %p)}, undef, "to_unicode\(\'\\u064A\\u0654\\u0645\.\\uDB40\\uDDB6\\u0650\\u08BB\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1065\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴂ䠺。\x{0683}\x{DB798}\x{5A942}\x{084A}", %p)}, undef, "to_unicode\(\'Ⴂ䠺\。\\u0683\\uDB2D\\uDF98\\uD92A\\uDD42\\u084A\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1066\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴂ䠺。\x{0683}\x{DB798}\x{5A942}\x{084A}", %p)}, undef, "to_unicode\(\'ⴂ䠺\。\\u0683\\uDB2D\\uDF98\\uD92A\\uDD42\\u084A\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1067\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟚伐︒.\x{85C24}\x{0A4D}", %p)}, undef, "to_unicode\(\'𝟚伐︒\.\\uD9D7\\uDC24\\u0A4D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1068\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("2伐。.\x{85C24}\x{0A4D}", %p)}, undef, "to_unicode\(\'2伐\。\.\\uD9D7\\uDC24\\u0A4D\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1069\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E79}\x{0B4D}\x{E001B}。\x{200D}\x{07DC}Ⴚ\x{1039}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE79\\u0B4D\\uDB40\\uDC1B\。\\u200D\\u07DCႺ\\u1039\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1070\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E79}\x{0B4D}\x{E001B}。\x{200D}\x{07DC}Ⴚ\x{1039}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE79\\u0B4D\\uDB40\\uDC1B\。\\u200D\\u07DCႺ\\u1039\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1071\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E79}\x{0B4D}\x{E001B}。\x{200D}\x{07DC}ⴚ\x{1039}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE79\\u0B4D\\uDB40\\uDC1B\。\\u200D\\u07DCⴚ\\u1039\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1072\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{10E79}\x{0B4D}\x{E001B}。\x{200D}\x{07DC}ⴚ\x{1039}", %p)}, undef, "to_unicode\(\'\\u200D\\uD803\\uDE79\\u0B4D\\uDB40\\uDC1B\。\\u200D\\u07DCⴚ\\u1039\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1073\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0A70}.\x{1AAC0}\x{666A4}", %p)}, undef, "to_unicode\(\'\\u0A70.\\uD82A\\uDEC0\\uD959\\uDEA4\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1074\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0A70}.\x{1AAC0}\x{666A4}", %p)}, undef, "to_unicode\(\'\\u0A70\.\\uD82A\\uDEC0\\uD959\\uDEA4\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1075\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡰ\x{200C}Ⴆ.≠\x{10F03}", %p)}, undef, "to_unicode\(\'ꡰ\\u200CႦ\.\≠\\uD803\\uDF03\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1076\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡰ\x{200C}Ⴆ.≠\x{10F03}", %p)}, undef, "to_unicode\(\'ꡰ\\u200CႦ\.\≠\\uD803\\uDF03\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1077\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡰ\x{200C}Ⴆ.=\x{0338}\x{10F03}", %p)}, undef, "to_unicode\(\'ꡰ\\u200CႦ\.\=\\u0338\\uD803\\uDF03\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1078\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡰ\x{200C}Ⴆ.=\x{0338}\x{10F03}", %p)}, undef, "to_unicode\(\'ꡰ\\u200CႦ\.\=\\u0338\\uD803\\uDF03\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1079\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡰ\x{200C}ⴆ.=\x{0338}\x{10F03}", %p)}, undef, "to_unicode\(\'ꡰ\\u200Cⴆ\.\=\\u0338\\uD803\\uDF03\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1080\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡰ\x{200C}ⴆ.=\x{0338}\x{10F03}", %p)}, undef, "to_unicode\(\'ꡰ\\u200Cⴆ\.\=\\u0338\\uD803\\uDF03\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1081\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡰ\x{200C}ⴆ.≠\x{10F03}", %p)}, undef, "to_unicode\(\'ꡰ\\u200Cⴆ\.\≠\\uD803\\uDF03\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1082\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡰ\x{200C}ⴆ.≠\x{10F03}", %p)}, undef, "to_unicode\(\'ꡰ\\u200Cⴆ\.\≠\\uD803\\uDF03\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1083\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1030}\x{14A04}₀ꘌ.\x{067F}", %p)}, undef, "to_unicode\(\'\\u1030\\uD812\\uDE04₀ꘌ.\\u067F\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1084\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1030}\x{14A04}0ꘌ.\x{067F}", %p)}, undef, "to_unicode\(\'\\u1030\\uD812\\uDE040ꘌ\.\\u067F\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1085\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-.\x{07F0}\x{BC92C}-", %p)}, undef, "to_unicode\(\'\-\.\\u07F0\\uDAB2\\uDD2C\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1086\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7227F}\x{200C}。\x{200C}\x{1EC50}ς", %p)}, undef, "to_unicode\(\'\\uD988\\uDE7F\\u200C。\\u200C\\uD83B\\uDC50ς\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1087\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7227F}\x{200C}。\x{200C}\x{1EC50}ς", %p)}, undef, "to_unicode\(\'\\uD988\\uDE7F\\u200C。\\u200C\\uD83B\\uDC50ς\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1088\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7227F}\x{200C}。\x{200C}\x{1EC50}ς", %p)}, undef, "to_unicode\(\'\\uD988\\uDE7F\\u200C\。\\u200C\\uD83B\\uDC50ς\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1089\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7227F}\x{200C}。\x{200C}\x{1EC50}ς", %p)}, undef, "to_unicode\(\'\\uD988\\uDE7F\\u200C\。\\u200C\\uD83B\\uDC50ς\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1090\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7227F}\x{200C}。\x{200C}\x{1EC50}Σ", %p)}, undef, "to_unicode\(\'\\uD988\\uDE7F\\u200C\。\\u200C\\uD83B\\uDC50Σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1091\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7227F}\x{200C}。\x{200C}\x{1EC50}Σ", %p)}, undef, "to_unicode\(\'\\uD988\\uDE7F\\u200C\。\\u200C\\uD83B\\uDC50Σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1092\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7227F}\x{200C}。\x{200C}\x{1EC50}σ", %p)}, undef, "to_unicode\(\'\\uD988\\uDE7F\\u200C\。\\u200C\\uD83B\\uDC50σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1093\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7227F}\x{200C}。\x{200C}\x{1EC50}σ", %p)}, undef, "to_unicode\(\'\\uD988\\uDE7F\\u200C\。\\u200C\\uD83B\\uDC50σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1094\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7227F}\x{200C}。\x{200C}\x{1EC50}Σ", %p)}, undef, "to_unicode\(\'\\uD988\\uDE7F\\u200C。\\u200C\\uD83B\\uDC50Σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1095\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7227F}\x{200C}。\x{200C}\x{1EC50}Σ", %p)}, undef, "to_unicode\(\'\\uD988\\uDE7F\\u200C。\\u200C\\uD83B\\uDC50Σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1096\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7227F}\x{200C}。\x{200C}\x{1EC50}σ", %p)}, undef, "to_unicode\(\'\\uD988\\uDE7F\\u200C。\\u200C\\uD83B\\uDC50σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1097\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7227F}\x{200C}。\x{200C}\x{1EC50}σ", %p)}, undef, "to_unicode\(\'\\uD988\\uDE7F\\u200C。\\u200C\\uD83B\\uDC50σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1098\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("堕\x{094D}\x{E0A2D}。\x{07D8}\x{0722}\x{200C}-", %p)}, undef, "to_unicode\(\'堕\\u094D\\uDB42\\uDE2D\。\\u07D8\\u0722\\u200C\-\'\)\ throws\ error\ P1\ V6\ V3\ B3\ C1\ \[data\/IdnaTest\.txt\:1099\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("堕\x{094D}\x{E0A2D}。\x{07D8}\x{0722}\x{200C}-", %p)}, undef, "to_unicode\(\'堕\\u094D\\uDB42\\uDE2D\。\\u07D8\\u0722\\u200C\-\'\)\ throws\ error\ P1\ V6\ V3\ B3\ C1\ \[data\/IdnaTest\.txt\:1100\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}ς\x{0847}ς", %p)}, undef, "to_unicode\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726。\\u07E9ς\\u0847ς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1101\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}ς\x{0847}ς", %p)}, undef, "to_unicode\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726\。\\u07E9ς\\u0847ς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1102\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}Σ\x{0847}Σ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726\。\\u07E9Σ\\u0847Σ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1103\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}σ\x{0847}σ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726\。\\u07E9σ\\u0847σ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1104\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}Σ\x{0847}σ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726\。\\u07E9Σ\\u0847σ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1105\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}Σ\x{0847}ς", %p)}, undef, "to_unicode\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726\。\\u07E9Σ\\u0847ς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1106\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}σ\x{0847}ς", %p)}, undef, "to_unicode\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726\。\\u07E9σ\\u0847ς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1107\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}Σ\x{0847}Σ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726。\\u07E9Σ\\u0847Σ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1108\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}σ\x{0847}σ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726。\\u07E9σ\\u0847σ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1109\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}Σ\x{0847}σ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726。\\u07E9Σ\\u0847σ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1110\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}Σ\x{0847}ς", %p)}, undef, "to_unicode\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726。\\u07E9Σ\\u0847ς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1111\]") 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{10E67}\x{AAF6}ᢤ\x{0726}。\x{07E9}σ\x{0847}ς", %p)}, undef, "to_unicode\(\'\\uD803\\uDE67\\uAAF6ᢤ\\u0726。\\u07E9σ\\u0847ς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1112\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{BBB8C}.-5ß", %p)}, undef, "to_unicode\(\'\\uDAAE\\uDF8C.\-5ß\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1113\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{BBB8C}.-5ß", %p)}, undef, "to_unicode\(\'\\uDAAE\\uDF8C\.\-5ß\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1114\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{BBB8C}.-5SS", %p)}, undef, "to_unicode\(\'\\uDAAE\\uDF8C\.\-5SS\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1115\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{BBB8C}.-5SS", %p)}, undef, "to_unicode\(\'\\uDAAE\\uDF8C.\-5SS\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1116\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{A806}.\x{0FA6}Ⴥ\x{15445}", %p)}, undef, "to_unicode\(\'\\u200D\\uA806\.\\u0FA6Ⴥ\\uD815\\uDC45\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1117\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{A806}.\x{0FA6}Ⴥ\x{15445}", %p)}, undef, "to_unicode\(\'\\u200D\\uA806\.\\u0FA6Ⴥ\\uD815\\uDC45\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1118\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{A806}.\x{0FA6}ⴥ\x{15445}", %p)}, undef, "to_unicode\(\'\\u200D\\uA806\.\\u0FA6ⴥ\\uD815\\uDC45\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1119\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{A806}.\x{0FA6}ⴥ\x{15445}", %p)}, undef, "to_unicode\(\'\\u200D\\uA806\.\\u0FA6ⴥ\\uD815\\uDC45\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1120\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{DEA33}。ß樲\x{200D}", %p)}, undef, "to_unicode\(\'\\uDB3A\\uDE33\。ß樲\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1121\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{DEA33}。ß樲\x{200D}", %p)}, undef, "to_unicode\(\'\\uDB3A\\uDE33\。ß樲\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1122\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{DEA33}。SS樲\x{200D}", %p)}, undef, "to_unicode\(\'\\uDB3A\\uDE33\。SS樲\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1123\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{DEA33}。SS樲\x{200D}", %p)}, undef, "to_unicode\(\'\\uDB3A\\uDE33\。SS樲\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1124\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{DEA33}。ss樲\x{200D}", %p)}, undef, "to_unicode\(\'\\uDB3A\\uDE33\。ss樲\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1125\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{DEA33}。ss樲\x{200D}", %p)}, undef, "to_unicode\(\'\\uDB3A\\uDE33\。ss樲\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1126\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{DEA33}。Ss樲\x{200D}", %p)}, undef, "to_unicode\(\'\\uDB3A\\uDE33\。Ss樲\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1127\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{DEA33}。Ss樲\x{200D}", %p)}, undef, "to_unicode\(\'\\uDB3A\\uDE33\。Ss樲\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1128\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1413C}。\x{FE24}\x{E0BE1}\x{10CD0}", %p)}, undef, "to_unicode\(\'\\u200C\\uD810\\uDD3C\。\\uFE24\\uDB42\\uDFE1\\uD803\\uDCD0\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:1129\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1413C}。\x{FE24}\x{E0BE1}\x{10CD0}", %p)}, undef, "to_unicode\(\'\\u200C\\uD810\\uDD3C\。\\uFE24\\uDB42\\uDFE1\\uD803\\uDCD0\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:1130\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{109FD}\x{200C}\x{0735}。\x{0602}", %p)}, undef, "to_unicode\(\'\\uD802\\uDDFD\\u200C\\u0735\。\\u0602\'\)\ throws\ error\ P1\ V6\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1131\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{109FD}\x{200C}\x{0735}。\x{0602}", %p)}, undef, "to_unicode\(\'\\uD802\\uDDFD\\u200C\\u0735\。\\u0602\'\)\ throws\ error\ P1\ V6\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1132\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}ς≠", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4ς\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1133\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}ς≠", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4ς\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1134\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}ς=\x{0338}", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4ς\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1135\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}ς=\x{0338}", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4ς\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1136\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}ς≠", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4ς\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1137\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}ς≠", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4ς\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1138\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}ς=\x{0338}", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4ς\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1139\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}ς=\x{0338}", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4ς\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1140\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}Σ=\x{0338}", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4Σ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1141\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}Σ=\x{0338}", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4Σ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1142\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}Σ≠", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4Σ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1143\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}Σ≠", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4Σ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1144\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}σ≠", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4σ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1145\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}σ≠", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4σ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1146\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}σ=\x{0338}", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4σ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1147\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}σ=\x{0338}", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7\。\\uD804\\uDDC0\\u0FB4σ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1148\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}Σ=\x{0338}", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4Σ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1149\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}Σ=\x{0338}", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4Σ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1150\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}Σ≠", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4Σ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1151\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}Σ≠", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4Σ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1152\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}σ≠", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4σ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1153\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}σ≠", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4σ\≠\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1154\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}σ=\x{0338}", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4σ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1155\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{202B}\x{90739}\x{200C}\x{E0CD7}。\x{111C0}\x{0FB4}σ=\x{0338}", %p)}, undef, "to_unicode\(\'\\u202B\\uDA01\\uDF39\\u200C\\uDB43\\uDCD7。\\uD804\\uDDC0\\u0FB4σ\=\\u0338\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1156\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6。⒈\x{200D}\x{1B4F1}", %p)}, undef, "to_unicode\(\'6。⒈\\u200D\\uD82D\\uDCF1\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1157\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6。⒈\x{200D}\x{1B4F1}", %p)}, undef, "to_unicode\(\'6。⒈\\u200D\\uD82D\\uDCF1\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1158\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6。1.\x{200D}\x{1B4F1}", %p)}, undef, "to_unicode\(\'6\。1\.\\u200D\\uD82D\\uDCF1\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1159\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6。1.\x{200D}\x{1B4F1}", %p)}, undef, "to_unicode\(\'6\。1\.\\u200D\\uD82D\\uDCF1\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1160\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠬß。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_unicode\(\'ᠬß。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1161\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠬß。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_unicode\(\'ᠬß\。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1162\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠬSS。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_unicode\(\'ᠬSS\。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1163\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠬss。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_unicode\(\'ᠬss\。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1164\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠬSs。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_unicode\(\'ᠬSs\。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1165\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠬSS。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_unicode\(\'ᠬSS。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1166\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠬss。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_unicode\(\'ᠬss。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1167\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠬSs。\x{1773}\x{0B4D}\x{50852}\x{06A0}", %p)}, undef, "to_unicode\(\'ᠬSs。\\u1773\\u0B4D\\uD902\\uDC52\\u06A0\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1168\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0666}\x{17D2}\x{593A5}.\x{0AE2}\x{0F93}\x{1A60}\x{0D4D}", %p)}, undef, "to_unicode\(\'\\u0666\\u17D2\\uD924\\uDFA5\.\\u0AE2\\u0F93\\u1A60\\u0D4D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1169\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0666}\x{17D2}\x{593A5}.\x{0AE2}\x{0F92}\x{0FB7}\x{1A60}\x{0D4D}", %p)}, undef, "to_unicode\(\'\\u0666\\u17D2\\uD924\\uDFA5\.\\u0AE2\\u0F92\\u0FB7\\u1A60\\u0D4D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1170\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴓ\x{ABED}\x{200D}\x{34F17}.ᠹ\x{E0077}", %p)}, undef, "to_unicode\(\'Ⴓ\\uABED\\u200D\\uD893\\uDF17.ᠹ\\uDB40\\uDC77\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1171\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴓ\x{ABED}\x{200D}\x{34F17}.ᠹ\x{E0077}", %p)}, undef, "to_unicode\(\'Ⴓ\\uABED\\u200D\\uD893\\uDF17\.ᠹ\\uDB40\\uDC77\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1172\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴓ\x{ABED}\x{200D}\x{34F17}.ᠹ\x{E0077}", %p)}, undef, "to_unicode\(\'ⴓ\\uABED\\u200D\\uD893\\uDF17\.ᠹ\\uDB40\\uDC77\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1173\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴓ\x{ABED}\x{200D}\x{34F17}.ᠹ\x{E0077}", %p)}, undef, "to_unicode\(\'ⴓ\\uABED\\u200D\\uD893\\uDF17.ᠹ\\uDB40\\uDC77\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1174\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{E0126}", %p)}, undef, "to_unicode\(\'\\uA9C0\.𝟕\\uDB40\\uDD26\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1175\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}.7\x{E0126}", %p)}, undef, "to_unicode\(\'\\uA9C0\.7\\uDB40\\uDD26\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1176\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{539F1}\x{FCF44}𝟗。\x{206E}-", %p)}, undef, "to_unicode\(\'\\uD90E\\uDDF1\\uDBB3\\uDF44𝟗\。\\u206E\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1177\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{539F1}\x{FCF44}9。\x{206E}-", %p)}, undef, "to_unicode\(\'\\uD90E\\uDDF1\\uDBB3\\uDF449\。\\u206E\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1178\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1AE33}ᠩ\x{10E69}。\x{10E79}\x{0631}\x{0684}", %p)}, undef, "to_unicode\(\'\\uD82B\\uDE33ᠩ\\uD803\\uDE69\。\\uD803\\uDE79\\u0631\\u0684\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1179\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}ᡒႾ₈.⤴\x{06B0}\x{A9053}\x{200C}", %p)}, undef, "to_unicode\(\'\\u200DᡒႾ₈\.\⤴\\u06B0\\uDA64\\uDC53\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1180\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}ᡒႾ₈.⤴\x{06B0}\x{A9053}\x{200C}", %p)}, undef, "to_unicode\(\'\\u200DᡒႾ₈\.\⤴\\u06B0\\uDA64\\uDC53\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1181\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}ᡒႾ8.⤴\x{06B0}\x{A9053}\x{200C}", %p)}, undef, "to_unicode\(\'\\u200DᡒႾ8\.\⤴\\u06B0\\uDA64\\uDC53\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1182\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}ᡒႾ8.⤴\x{06B0}\x{A9053}\x{200C}", %p)}, undef, "to_unicode\(\'\\u200DᡒႾ8\.\⤴\\u06B0\\uDA64\\uDC53\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1183\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}ᡒⴞ8.⤴\x{06B0}\x{A9053}\x{200C}", %p)}, undef, "to_unicode\(\'\\u200Dᡒⴞ8\.\⤴\\u06B0\\uDA64\\uDC53\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1184\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}ᡒⴞ8.⤴\x{06B0}\x{A9053}\x{200C}", %p)}, undef, "to_unicode\(\'\\u200Dᡒⴞ8\.\⤴\\u06B0\\uDA64\\uDC53\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1185\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}ᡒⴞ₈.⤴\x{06B0}\x{A9053}\x{200C}", %p)}, undef, "to_unicode\(\'\\u200Dᡒⴞ₈\.\⤴\\u06B0\\uDA64\\uDC53\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1186\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}ᡒⴞ₈.⤴\x{06B0}\x{A9053}\x{200C}", %p)}, undef, "to_unicode\(\'\\u200Dᡒⴞ₈\.\⤴\\u06B0\\uDA64\\uDC53\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1187\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E6A}ᠮ.\x{0E3A}\x{7BCB7}⾆", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6Aᠮ.\\u0E3A\\uD9AF\\uDCB7⾆\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1188\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E6A}ᠮ.\x{0E3A}\x{7BCB7}舌", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6Aᠮ\.\\u0E3A\\uD9AF\\uDCB7舌\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1189\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE06}⌆\x{8DF53}.\x{76578}", %p)}, undef, "to_unicode\(\'\\uFE06\⌆\\uD9F7\\uDF53\.\\uD999\\uDD78\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1190\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0735}\x{8B6EA}-죀.4Ⴄ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0735\\uD9ED\\uDEEA\-죀\.4Ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1191\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0735}\x{8B6EA}-죀.4Ⴄ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0735\\uD9ED\\uDEEA\-죀\.4Ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1192\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0735}\x{8B6EA}-죀.4Ⴄ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0735\\uD9ED\\uDEEA\-죀\.4Ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1193\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0735}\x{8B6EA}-죀.4Ⴄ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0735\\uD9ED\\uDEEA\-죀\.4Ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1194\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0735}\x{8B6EA}-죀.4ⴄ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0735\\uD9ED\\uDEEA\-죀\.4ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1195\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0735}\x{8B6EA}-죀.4ⴄ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0735\\uD9ED\\uDEEA\-죀\.4ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1196\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0735}\x{8B6EA}-죀.4ⴄ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0735\\uD9ED\\uDEEA\-죀\.4ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1197\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0735}\x{8B6EA}-죀.4ⴄ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0735\\uD9ED\\uDEEA\-죀\.4ⴄ\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1198\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᚭ。\x{E0BBD}ß\x{1D1AA}", %p)}, undef, "to_unicode\(\'ᚭ。\\uDB42\\uDFBDß\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1199\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᚭ。\x{E0BBD}ß\x{1D1AA}", %p)}, undef, "to_unicode\(\'ᚭ\。\\uDB42\\uDFBDß\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1200\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᚭ。\x{E0BBD}SS\x{1D1AA}", %p)}, undef, "to_unicode\(\'ᚭ\。\\uDB42\\uDFBDSS\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1201\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᚭ。\x{E0BBD}ss\x{1D1AA}", %p)}, undef, "to_unicode\(\'ᚭ\。\\uDB42\\uDFBDss\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1202\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᚭ。\x{E0BBD}Ss\x{1D1AA}", %p)}, undef, "to_unicode\(\'ᚭ\。\\uDB42\\uDFBDSs\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1203\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᚭ。\x{E0BBD}SS\x{1D1AA}", %p)}, undef, "to_unicode\(\'ᚭ。\\uDB42\\uDFBDSS\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1204\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᚭ。\x{E0BBD}ss\x{1D1AA}", %p)}, undef, "to_unicode\(\'ᚭ。\\uDB42\\uDFBDss\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1205\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᚭ。\x{E0BBD}Ss\x{1D1AA}", %p)}, undef, "to_unicode\(\'ᚭ。\\uDB42\\uDFBDSs\\uD834\\uDDAA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1206\]") 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{08A4}ꡞ", %p)}, undef, "to_unicode\(\'0。\\u08A4ꡞ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1207\]") 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{08A4}ꡞ", %p)}, undef, "to_unicode\(\'0\。\\u08A4ꡞ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1208\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{144FD}\x{200C}.\x{087F}麷\x{E8D37}", %p)}, undef, "to_unicode\(\'\\uD811\\uDCFD\\u200C\.\\u087F麷\\uDB63\\uDD37\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1209\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{144FD}\x{200C}.\x{087F}麷\x{E8D37}", %p)}, undef, "to_unicode\(\'\\uD811\\uDCFD\\u200C\.\\u087F麷\\uDB63\\uDD37\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1210\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{035B}≯。\x{E061D}", %p)}, undef, "to_unicode\(\'\\u035B\≯。\\uDB41\\uDE1D\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1211\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{035B}>\x{0338}。\x{E061D}", %p)}, undef, "to_unicode\(\'\\u035B\>\\u0338。\\uDB41\\uDE1D\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1212\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{035B}≯。\x{E061D}", %p)}, undef, "to_unicode\(\'\\u035B\≯\。\\uDB41\\uDE1D\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1213\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{035B}>\x{0338}。\x{E061D}", %p)}, undef, "to_unicode\(\'\\u035B\>\\u0338\。\\uDB41\\uDE1D\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1214\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴋ≮\x{104620}。\x{200D}\x{E016B}۹", %p)}, undef, "to_unicode\(\'Ⴋ\≮\\uDBD1\\uDE20\。\\u200D\\uDB40\\uDD6B۹\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1215\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴋ≮\x{104620}。\x{200D}\x{E016B}۹", %p)}, undef, "to_unicode\(\'Ⴋ\≮\\uDBD1\\uDE20\。\\u200D\\uDB40\\uDD6B۹\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1216\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴋ<\x{0338}\x{104620}。\x{200D}\x{E016B}۹", %p)}, undef, "to_unicode\(\'Ⴋ\<\\u0338\\uDBD1\\uDE20\。\\u200D\\uDB40\\uDD6B۹\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1217\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴋ<\x{0338}\x{104620}。\x{200D}\x{E016B}۹", %p)}, undef, "to_unicode\(\'Ⴋ\<\\u0338\\uDBD1\\uDE20\。\\u200D\\uDB40\\uDD6B۹\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1218\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴋ<\x{0338}\x{104620}。\x{200D}\x{E016B}۹", %p)}, undef, "to_unicode\(\'ⴋ\<\\u0338\\uDBD1\\uDE20\。\\u200D\\uDB40\\uDD6B۹\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1219\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴋ<\x{0338}\x{104620}。\x{200D}\x{E016B}۹", %p)}, undef, "to_unicode\(\'ⴋ\<\\u0338\\uDBD1\\uDE20\。\\u200D\\uDB40\\uDD6B۹\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1220\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴋ≮\x{104620}。\x{200D}\x{E016B}۹", %p)}, undef, "to_unicode\(\'ⴋ\≮\\uDBD1\\uDE20\。\\u200D\\uDB40\\uDD6B۹\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1221\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴋ≮\x{104620}。\x{200D}\x{E016B}۹", %p)}, undef, "to_unicode\(\'ⴋ\≮\\uDBD1\\uDE20\。\\u200D\\uDB40\\uDD6B۹\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1222\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}.\x{72EEA}≯", %p)}, undef, "to_unicode\(\'\\u0B4D\.\\uD98B\\uDEEA\≯\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1223\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}.\x{72EEA}>\x{0338}", %p)}, undef, "to_unicode\(\'\\u0B4D\.\\uD98B\\uDEEA\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1224\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C0BF9}\x{1BF3}.\x{1921}É\x{1D168}\x{1BAB}", %p)}, undef, "to_unicode\(\'\\uDAC2\\uDFF9\\u1BF3.\\u1921É\\uD834\\uDD68\\u1BAB\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1225\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C0BF9}\x{1BF3}.\x{1921}E\x{1D168}\x{1BAB}\x{0301}", %p)}, undef, "to_unicode\(\'\\uDAC2\\uDFF9\\u1BF3.\\u1921E\\uD834\\uDD68\\u1BAB\\u0301\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1226\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C0BF9}\x{1BF3}.\x{1921}É\x{1D168}\x{1BAB}", %p)}, undef, "to_unicode\(\'\\uDAC2\\uDFF9\\u1BF3\.\\u1921É\\uD834\\uDD68\\u1BAB\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1227\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C0BF9}\x{1BF3}.\x{1921}E\x{1D168}\x{1BAB}\x{0301}", %p)}, undef, "to_unicode\(\'\\uDAC2\\uDFF9\\u1BF3\.\\u1921E\\uD834\\uDD68\\u1BAB\\u0301\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1228\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C0BF9}\x{1BF3}.\x{1921}e\x{1D168}\x{1BAB}\x{0301}", %p)}, undef, "to_unicode\(\'\\uDAC2\\uDFF9\\u1BF3\.\\u1921e\\uD834\\uDD68\\u1BAB\\u0301\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1229\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C0BF9}\x{1BF3}.\x{1921}é\x{1D168}\x{1BAB}", %p)}, undef, "to_unicode\(\'\\uDAC2\\uDFF9\\u1BF3\.\\u1921é\\uD834\\uDD68\\u1BAB\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1230\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C0BF9}\x{1BF3}.\x{1921}e\x{1D168}\x{1BAB}\x{0301}", %p)}, undef, "to_unicode\(\'\\uDAC2\\uDFF9\\u1BF3.\\u1921e\\uD834\\uDD68\\u1BAB\\u0301\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1231\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C0BF9}\x{1BF3}.\x{1921}é\x{1D168}\x{1BAB}", %p)}, undef, "to_unicode\(\'\\uDAC2\\uDFF9\\u1BF3.\\u1921é\\uD834\\uDD68\\u1BAB\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1232\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡔ\x{200D}\x{0E3A}。︒\x{08A0}", %p)}, undef, "to_unicode\(\'ᡔ\\u200D\\u0E3A。︒\\u08A0\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1233\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡔ\x{200D}\x{0E3A}。︒\x{08A0}", %p)}, undef, "to_unicode\(\'ᡔ\\u200D\\u0E3A。︒\\u08A0\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1234\]") 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{0E3A}。。\x{08A0}", %p)}, undef, "to_unicode\(\'ᡔ\\u200D\\u0E3A\。\。\\u08A0\'\)\ throws\ error\ C2\ A4_2\ \[data\/IdnaTest\.txt\:1235\]") 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{0E3A}。。\x{08A0}", %p)}, undef, "to_unicode\(\'ᡔ\\u200D\\u0E3A\。\。\\u08A0\'\)\ throws\ error\ C2\ A4_2\ \[data\/IdnaTest\.txt\:1236\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{069B}\x{84E75}\x{AAF6}\x{200C}。ᢟ\x{E01A6}≮", %p)}, undef, "to_unicode\(\'\\u069B\\uD9D3\\uDE75\\uAAF6\\u200C。ᢟ\\uDB40\\uDDA6\≮\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1237\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{069B}\x{84E75}\x{AAF6}\x{200C}。ᢟ\x{E01A6}<\x{0338}", %p)}, undef, "to_unicode\(\'\\u069B\\uD9D3\\uDE75\\uAAF6\\u200C。ᢟ\\uDB40\\uDDA6\<\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1238\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{069B}\x{84E75}\x{AAF6}\x{200C}。ᢟ\x{E01A6}≮", %p)}, undef, "to_unicode\(\'\\u069B\\uD9D3\\uDE75\\uAAF6\\u200C\。ᢟ\\uDB40\\uDDA6\≮\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1239\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{069B}\x{84E75}\x{AAF6}\x{200C}。ᢟ\x{E01A6}<\x{0338}", %p)}, undef, "to_unicode\(\'\\u069B\\uD9D3\\uDE75\\uAAF6\\u200C\。ᢟ\\uDB40\\uDDA6\<\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1240\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴣ.\x{1DC5}\x{0693}", %p)}, undef, "to_unicode\(\'Ⴣ.\\u1DC5\\u0693\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1241\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴣ.\x{1DC5}\x{0693}", %p)}, undef, "to_unicode\(\'Ⴣ\.\\u1DC5\\u0693\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1242\]") 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{1DC5}\x{0693}", %p)}, undef, "to_unicode\(\'ⴣ\.\\u1DC5\\u0693\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1243\]") 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{1DC5}\x{0693}", %p)}, undef, "to_unicode\(\'ⴣ.\\u1DC5\\u0693\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1244\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("🀽\x{FD4D}.\x{10B5F2}\x{6B40F}Ⴤ\x{E9058}", %p)}, undef, "to_unicode\(\'🀽\\uFD4D.\\uDBED\\uDDF2\\uD96D\\uDC0FჄ\\uDB64\\uDC58\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1245\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🀽\x{FD4D}.\x{10B5F2}\x{6B40F}Ⴤ\x{E9058}", %p)}, undef, "to_unicode\(\'🀽\\uFD4D\.\\uDBED\\uDDF2\\uD96D\\uDC0FჄ\\uDB64\\uDC58\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1246\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🀽\x{FD4D}.\x{10B5F2}\x{6B40F}ⴤ\x{E9058}", %p)}, undef, "to_unicode\(\'🀽\\uFD4D\.\\uDBED\\uDDF2\\uD96D\\uDC0Fⴤ\\uDB64\\uDC58\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1247\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🀽\x{FD4D}.\x{10B5F2}\x{6B40F}ⴤ\x{E9058}", %p)}, undef, "to_unicode\(\'🀽\\uFD4D.\\uDBED\\uDDF2\\uD96D\\uDC0Fⴤ\\uDB64\\uDC58\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1248\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE0C}\x{E01EB}≮.\x{E0C70}", %p)}, undef, "to_unicode\(\'\\uFE0C\\uDB40\\uDDEB\≮.\\uDB43\\uDC70\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1249\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE0C}\x{E01EB}<\x{0338}.\x{E0C70}", %p)}, undef, "to_unicode\(\'\\uFE0C\\uDB40\\uDDEB\<\\u0338.\\uDB43\\uDC70\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1250\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE0C}\x{E01EB}≮.\x{E0C70}", %p)}, undef, "to_unicode\(\'\\uFE0C\\uDB40\\uDDEB\≮\.\\uDB43\\uDC70\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1251\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE0C}\x{E01EB}<\x{0338}.\x{E0C70}", %p)}, undef, "to_unicode\(\'\\uFE0C\\uDB40\\uDDEB\<\\u0338\.\\uDB43\\uDC70\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1252\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E77}\x{1ECCC}≮Ⴢ.Ⴃ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE77\\uD83B\\uDCCC\≮Ⴢ.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1253\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E77}\x{1ECCC}<\x{0338}Ⴢ.Ⴃ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE77\\uD83B\\uDCCC\<\\u0338Ⴢ.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1254\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E77}\x{1ECCC}≮Ⴢ.Ⴃ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE77\\uD83B\\uDCCC\≮Ⴢ\.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1255\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E77}\x{1ECCC}<\x{0338}Ⴢ.Ⴃ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE77\\uD83B\\uDCCC\<\\u0338Ⴢ\.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1256\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E77}\x{1ECCC}<\x{0338}ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE77\\uD83B\\uDCCC\<\\u0338ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1257\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E77}\x{1ECCC}≮ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE77\\uD83B\\uDCCC\≮ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1258\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E77}\x{1ECCC}≮Ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE77\\uD83B\\uDCCC\≮Ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1259\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E77}\x{1ECCC}<\x{0338}Ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE77\\uD83B\\uDCCC\<\\u0338Ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1260\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E77}\x{1ECCC}<\x{0338}ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE77\\uD83B\\uDCCC\<\\u0338ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1261\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E77}\x{1ECCC}≮ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE77\\uD83B\\uDCCC\≮ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1262\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E77}\x{1ECCC}≮Ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE77\\uD83B\\uDCCC\≮Ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1263\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E77}\x{1ECCC}<\x{0338}Ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE77\\uD83B\\uDCCC\<\\u0338Ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1264\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DD3}。-", %p)}, undef, "to_unicode\(\'\\u0DD3\。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1265\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A8C4}\x{7F225}\x{E0520}。饈≠\x{10E6A}", %p)}, undef, "to_unicode\(\'\\uA8C4\\uD9BC\\uDE25\\uDB41\\uDD20。饈\≠\\uD803\\uDE6A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1266\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A8C4}\x{7F225}\x{E0520}。饈=\x{0338}\x{10E6A}", %p)}, undef, "to_unicode\(\'\\uA8C4\\uD9BC\\uDE25\\uDB41\\uDD20。饈\=\\u0338\\uD803\\uDE6A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1267\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A8C4}\x{7F225}\x{E0520}。饈≠\x{10E6A}", %p)}, undef, "to_unicode\(\'\\uA8C4\\uD9BC\\uDE25\\uDB41\\uDD20\。饈\≠\\uD803\\uDE6A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1268\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A8C4}\x{7F225}\x{E0520}。饈=\x{0338}\x{10E6A}", %p)}, undef, "to_unicode\(\'\\uA8C4\\uD9BC\\uDE25\\uDB41\\uDD20\。饈\=\\u0338\\uD803\\uDE6A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1269\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0719}ᡊ4。≯邅\x{E0036}4", %p)}, undef, "to_unicode\(\'\\u0719ᡊ4。\≯邅\\uDB40\\uDC364\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1270\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0719}ᡊ4。>\x{0338}邅\x{E0036}4", %p)}, undef, "to_unicode\(\'\\u0719ᡊ4。\>\\u0338邅\\uDB40\\uDC364\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1271\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0719}ᡊ4。≯邅\x{E0036}4", %p)}, undef, "to_unicode\(\'\\u0719ᡊ4\。\≯邅\\uDB40\\uDC364\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1272\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0719}ᡊ4。>\x{0338}邅\x{E0036}4", %p)}, undef, "to_unicode\(\'\\u0719ᡊ4\。\>\\u0338邅\\uDB40\\uDC364\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1273\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7FE19}ᡳ-\x{07EF}.\x{0667}⒚\x{10E7D}\x{3018B}", %p)}, undef, "to_unicode\(\'\\uD9BF\\uDE19ᡳ\-\\u07EF\.\\u0667⒚\\uD803\\uDE7D\\uD880\\uDD8B\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1274\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7FE19}ᡳ-\x{07EF}.\x{0667}19.\x{10E7D}\x{3018B}", %p)}, undef, "to_unicode\(\'\\uD9BF\\uDE19ᡳ\-\\u07EF\.\\u066719\.\\uD803\\uDE7D\\uD880\\uDD8B\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1275\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{B2908}ᠹ\x{1D189}.넨-\x{F51CC}", %p)}, undef, "to_unicode\(\'\\uDA8A\\uDD08ᠹ\\uD834\\uDD89\.넨\-\\uDB94\\uDDCC\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1276\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{B2908}ᠹ\x{1D189}.넨-\x{F51CC}", %p)}, undef, "to_unicode\(\'\\uDA8A\\uDD08ᠹ\\uD834\\uDD89\.넨\-\\uDB94\\uDDCC\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1277\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06AB}ᡣ\x{200D}⒈。𝟏-", %p)}, undef, "to_unicode\(\'\\u06ABᡣ\\u200D⒈\。𝟏\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ C2\ \[data\/IdnaTest\.txt\:1278\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06AB}ᡣ\x{200D}⒈。𝟏-", %p)}, undef, "to_unicode\(\'\\u06ABᡣ\\u200D⒈\。𝟏\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ C2\ \[data\/IdnaTest\.txt\:1279\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06AB}ᡣ\x{200D}1.。1-", %p)}, undef, "to_unicode\(\'\\u06ABᡣ\\u200D1\.\。1\-\'\)\ throws\ error\ V3\ B2\ C2\ A4_2\ \[data\/IdnaTest\.txt\:1280\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06AB}ᡣ\x{200D}1.。1-", %p)}, undef, "to_unicode\(\'\\u06ABᡣ\\u200D1\.\。1\-\'\)\ throws\ error\ V3\ B2\ C2\ A4_2\ \[data\/IdnaTest\.txt\:1281\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴌ。\x{42924}\x{10C42}", %p)}, undef, "to_unicode\(\'Ⴌ\。\\uD8CA\\uDD24\\uD803\\uDC42\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1282\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴌ。\x{42924}\x{10C42}", %p)}, undef, "to_unicode\(\'ⴌ\。\\uD8CA\\uDD24\\uD803\\uDC42\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1283\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢜ\x{FC90}.\x{A806}\x{E01BB}-\x{128AD}", %p)}, undef, "to_unicode\(\'ᢜ\\uFC90\.\\uA806\\uDB40\\uDDBB\-\\uD80A\\uDCAD\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1284\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢜ\x{0649}\x{0670}.\x{A806}\x{E01BB}-\x{128AD}", %p)}, undef, "to_unicode\(\'ᢜ\\u0649\\u0670\.\\uA806\\uDB40\\uDDBB\-\\uD80A\\uDCAD\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1285\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{592AE}\x{200D}-。웈", %p)}, undef, "to_unicode\(\'⒈\\uD924\\uDEAE\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1286\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{592AE}\x{200D}-。웈", %p)}, undef, "to_unicode\(\'⒈\\uD924\\uDEAE\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1287\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{592AE}\x{200D}-。웈", %p)}, undef, "to_unicode\(\'⒈\\uD924\\uDEAE\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1288\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{592AE}\x{200D}-。웈", %p)}, undef, "to_unicode\(\'⒈\\uD924\\uDEAE\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1289\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{592AE}\x{200D}-。웈", %p)}, undef, "to_unicode\(\'1\.\\uD924\\uDEAE\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1290\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{592AE}\x{200D}-。웈", %p)}, undef, "to_unicode\(\'1\.\\uD924\\uDEAE\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1291\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{592AE}\x{200D}-。웈", %p)}, undef, "to_unicode\(\'1\.\\uD924\\uDEAE\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1292\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{592AE}\x{200D}-。웈", %p)}, undef, "to_unicode\(\'1\.\\uD924\\uDEAE\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1293\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{07F0}\x{A8E1}", %p)}, undef, "to_unicode\(\'て\。\\u200C\\u07F0\\uA8E1\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:1294\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{07F0}\x{A8E1}", %p)}, undef, "to_unicode\(\'て\。\\u200C\\u07F0\\uA8E1\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:1295\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ς。\x{0CCD}\x{0BC0}", %p)}, undef, "to_unicode\(\'ς。\\u0CCD\\u0BC0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1296\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς。\x{0CCD}\x{0BC0}", %p)}, undef, "to_unicode\(\'ς\。\\u0CCD\\u0BC0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1297\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ。\x{0CCD}\x{0BC0}", %p)}, undef, "to_unicode\(\'Σ\。\\u0CCD\\u0BC0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1298\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ。\x{0CCD}\x{0BC0}", %p)}, undef, "to_unicode\(\'σ\。\\u0CCD\\u0BC0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1299\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ。\x{0CCD}\x{0BC0}", %p)}, undef, "to_unicode\(\'Σ。\\u0CCD\\u0BC0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1300\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ。\x{0CCD}\x{0BC0}", %p)}, undef, "to_unicode\(\'σ。\\u0CCD\\u0BC0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1301\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A806}\x{C9B09}\x{A5208}.ႢႵ", %p)}, undef, "to_unicode\(\'\\uA806\\uDAE6\\uDF09\\uDA54\\uDE08\.ႢႵ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1302\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A806}\x{C9B09}\x{A5208}.ⴂⴕ", %p)}, undef, "to_unicode\(\'\\uA806\\uDAE6\\uDF09\\uDA54\\uDE08\.ⴂⴕ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1303\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A806}\x{C9B09}\x{A5208}.Ⴂⴕ", %p)}, undef, "to_unicode\(\'\\uA806\\uDAE6\\uDF09\\uDA54\\uDE08\.Ⴂⴕ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1304\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0A58}𝟖⾛\x{1BE9}.\x{200D}\x{67B78}\x{10CFE}", %p)}, undef, "to_unicode\(\'\\uDB42\\uDE58𝟖⾛\\u1BE9.\\u200D\\uD95E\\uDF78\\uD803\\uDCFE\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1305\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0A58}𝟖⾛\x{1BE9}.\x{200D}\x{67B78}\x{10CFE}", %p)}, undef, "to_unicode\(\'\\uDB42\\uDE58𝟖⾛\\u1BE9.\\u200D\\uD95E\\uDF78\\uD803\\uDCFE\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1306\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0A58}8走\x{1BE9}.\x{200D}\x{67B78}\x{10CFE}", %p)}, undef, "to_unicode\(\'\\uDB42\\uDE588走\\u1BE9\.\\u200D\\uD95E\\uDF78\\uD803\\uDCFE\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1307\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0A58}8走\x{1BE9}.\x{200D}\x{67B78}\x{10CFE}", %p)}, undef, "to_unicode\(\'\\uDB42\\uDE588走\\u1BE9\.\\u200D\\uD95E\\uDF78\\uD803\\uDCFE\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1308\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{084E}。Ӏ\x{712A9}", %p)}, undef, "to_unicode\(\'\\u084E。Ӏ\\uD984\\uDEA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1309\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{084E}。Ӏ\x{712A9}", %p)}, undef, "to_unicode\(\'\\u084E\。Ӏ\\uD984\\uDEA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1310\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{084E}。ӏ\x{712A9}", %p)}, undef, "to_unicode\(\'\\u084E\。ӏ\\uD984\\uDEA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1311\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{084E}。ӏ\x{712A9}", %p)}, undef, "to_unicode\(\'\\u084E。ӏ\\uD984\\uDEA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1312\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E7A}-。\x{C489F}\x{E034E}ᄾ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE7A\-\。\\uDAD2\\uDC9F\\uDB40\\uDF4Eᄾ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1313\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-₆\x{0F95}。\x{0B3F}", %p)}, undef, "to_unicode\(\'\-₆\\u0F95\。\\u0B3F\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1314\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-6\x{0F95}。\x{0B3F}", %p)}, undef, "to_unicode\(\'\-6\\u0F95\。\\u0B3F\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1315\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10E71}\x{E0EC8}멈.\x{09CD}\x{718A4}", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE71\\uDB43\\uDEC8멈\.\\u09CD\\uD986\\uDCA4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:1316\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10E71}\x{E0EC8}멈.\x{09CD}\x{718A4}", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE71\\uDB43\\uDEC8멈\.\\u09CD\\uD986\\uDCA4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:1317\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10E71}\x{E0EC8}멈.\x{09CD}\x{718A4}", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE71\\uDB43\\uDEC8멈\.\\u09CD\\uD986\\uDCA4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:1318\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10E71}\x{E0EC8}멈.\x{09CD}\x{718A4}", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE71\\uDB43\\uDEC8멈\.\\u09CD\\uD986\\uDCA4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:1319\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮.\x{06D3}\x{10E77}", %p)}, undef, "to_unicode\(\'\≮\.\\u06D3\\uD803\\uDE77\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1320\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}.\x{06D2}\x{0654}\x{10E77}", %p)}, undef, "to_unicode\(\'\<\\u0338\.\\u06D2\\u0654\\uD803\\uDE77\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1321\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10C39}⾆。\x{200C}\x{0ACD}\x{B9E17}\x{108DA}", %p)}, undef, "to_unicode\(\'\\uD803\\uDC39⾆。\\u200C\\u0ACD\\uDAA7\\uDE17\\uD802\\uDCDA\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:1322\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10C39}⾆。\x{200C}\x{0ACD}\x{B9E17}\x{108DA}", %p)}, undef, "to_unicode\(\'\\uD803\\uDC39⾆。\\u200C\\u0ACD\\uDAA7\\uDE17\\uD802\\uDCDA\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:1323\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10C39}舌。\x{200C}\x{0ACD}\x{B9E17}\x{108DA}", %p)}, undef, "to_unicode\(\'\\uD803\\uDC39舌\。\\u200C\\u0ACD\\uDAA7\\uDE17\\uD802\\uDCDA\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:1324\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10C39}舌。\x{200C}\x{0ACD}\x{B9E17}\x{108DA}", %p)}, undef, "to_unicode\(\'\\uD803\\uDC39舌\。\\u200C\\u0ACD\\uDAA7\\uDE17\\uD802\\uDCDA\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:1325\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴠ-.9ς\x{10F8C}ς", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.9ς\\uD803\\uDF8Cς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1326\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴠ-.9ς\x{10F8C}ς", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.9ς\\uD803\\uDF8Cς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1327\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ⴠ-.9ς\x{10F8C}ς", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.9ς\\uD803\\uDF8Cς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1328\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ⴠ-.9ς\x{10F8C}ς", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.9ς\\uD803\\uDF8Cς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1329\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴠ-.9Σ\x{10F8C}Σ", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.9Σ\\uD803\\uDF8CΣ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1330\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴠ-.9Σ\x{10F8C}Σ", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.9Σ\\uD803\\uDF8CΣ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1331\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ⴠ-.9σ\x{10F8C}σ", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.9σ\\uD803\\uDF8Cσ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1332\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ⴠ-.9σ\x{10F8C}σ", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.9σ\\uD803\\uDF8Cσ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1333\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0354}\x{E011B}\x{1E7F6}。𝟮Ⴜ", %p)}, undef, "to_unicode\(\'\\u0354\\uDB40\\uDD1B\\uD839\\uDFF6。𝟮Ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1334\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0354}\x{E011B}\x{1E7F6}。2Ⴜ", %p)}, undef, "to_unicode\(\'\\u0354\\uDB40\\uDD1B\\uD839\\uDFF6\。2Ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1335\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0354}\x{E011B}\x{1E7F6}。2ⴜ", %p)}, undef, "to_unicode\(\'\\u0354\\uDB40\\uDD1B\\uD839\\uDFF6\。2ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1336\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0354}\x{E011B}\x{1E7F6}。𝟮ⴜ", %p)}, undef, "to_unicode\(\'\\u0354\\uDB40\\uDD1B\\uD839\\uDFF6。𝟮ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1337\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䪏\x{1ED87}\x{06AA}\x{2CEF}。뭕\x{0633}\x{0DD4}", %p)}, undef, "to_unicode\(\'䪏\\uD83B\\uDD87\\u06AA\\u2CEF。뭕\\u0633\\u0DD4\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1338\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䪏\x{1ED87}\x{06AA}\x{2CEF}。뭕\x{0633}\x{0DD4}", %p)}, undef, "to_unicode\(\'䪏\\uD83B\\uDD87\\u06AA\\u2CEF。뭕\\u0633\\u0DD4\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1339\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䪏\x{1ED87}\x{06AA}\x{2CEF}。뭕\x{0633}\x{0DD4}", %p)}, undef, "to_unicode\(\'䪏\\uD83B\\uDD87\\u06AA\\u2CEF\。뭕\\u0633\\u0DD4\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1340\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䪏\x{1ED87}\x{06AA}\x{2CEF}。뭕\x{0633}\x{0DD4}", %p)}, undef, "to_unicode\(\'䪏\\uD83B\\uDD87\\u06AA\\u2CEF\。뭕\\u0633\\u0DD4\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1341\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}。\x{E0391}\x{E0102}", %p)}, undef, "to_unicode\(\'\\u0BCD。\\uDB40\\uDF91\\uDB40\\uDD02\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1342\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}。\x{E0391}\x{E0102}", %p)}, undef, "to_unicode\(\'\\u0BCD\。\\uDB40\\uDF91\\uDB40\\uDD02\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1343\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{9DD52}\x{E0180}。ς\x{200D}\x{10E78}\x{0ACD}", %p)}, undef, "to_unicode\(\'\\uDA37\\uDD52\\uDB40\\uDD80\。ς\\u200D\\uD803\\uDE78\\u0ACD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1344\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{9DD52}\x{E0180}。ς\x{200D}\x{10E78}\x{0ACD}", %p)}, undef, "to_unicode\(\'\\uDA37\\uDD52\\uDB40\\uDD80\。ς\\u200D\\uD803\\uDE78\\u0ACD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1345\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{9DD52}\x{E0180}。Σ\x{200D}\x{10E78}\x{0ACD}", %p)}, undef, "to_unicode\(\'\\uDA37\\uDD52\\uDB40\\uDD80\。Σ\\u200D\\uD803\\uDE78\\u0ACD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1346\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{9DD52}\x{E0180}。Σ\x{200D}\x{10E78}\x{0ACD}", %p)}, undef, "to_unicode\(\'\\uDA37\\uDD52\\uDB40\\uDD80\。Σ\\u200D\\uD803\\uDE78\\u0ACD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1347\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{9DD52}\x{E0180}。σ\x{200D}\x{10E78}\x{0ACD}", %p)}, undef, "to_unicode\(\'\\uDA37\\uDD52\\uDB40\\uDD80\。σ\\u200D\\uD803\\uDE78\\u0ACD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1348\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{9DD52}\x{E0180}。σ\x{200D}\x{10E78}\x{0ACD}", %p)}, undef, "to_unicode\(\'\\uDA37\\uDD52\\uDB40\\uDD80\。σ\\u200D\\uD803\\uDE78\\u0ACD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1349\]") 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}ᡚ\x{1714}.\x{10A3F}", %p)}, undef, "to_unicode\(\'\\u07E1ᡚ\\u1714.\\uD802\\uDE3F\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1350\]") 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}ᡚ\x{1714}.\x{10A3F}", %p)}, undef, "to_unicode\(\'\\u07E1ᡚ\\u1714\.\\uD802\\uDE3F\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1351\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𢶂籕\x{BED4C}-。\x{200C}", %p)}, undef, "to_unicode\(\'𢶂籕\\uDABB\\uDD4C\-\。\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:1352\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𢶂籕\x{BED4C}-。\x{200C}", %p)}, undef, "to_unicode\(\'𢶂籕\\uDABB\\uDD4C\-\。\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:1353\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0601}.\x{FBFD}", %p)}, undef, "to_unicode\(\'\\u0601.\\uFBFD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1354\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0601}.\x{06CC}", %p)}, undef, "to_unicode\(\'\\u0601\.\\u06CC\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1355\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-ᠱ。Ↄ", %p)}, undef, "to_unicode\(\'\-ᠱ。Ↄ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1356\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-ᠱ。Ↄ", %p)}, undef, "to_unicode\(\'\-ᠱ\。Ↄ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1357\]") 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)}, undef, "to_unicode\(\'\-ᠱ\。ↄ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1358\]") 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)}, undef, "to_unicode\(\'\-ᠱ。ↄ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1359\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200D}-︒\x{E019D}。ß哑\x{200C}\x{1E9CE}", %p)}, undef, "to_unicode\(\'\\u200D\-︒\\uDB40\\uDD9D\。ß哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1360\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-︒\x{E019D}。ß哑\x{200C}\x{1E9CE}", %p)}, undef, "to_unicode\(\'\\u200D\-︒\\uDB40\\uDD9D\。ß哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1361\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-。\x{E019D}。ß哑\x{200C}\x{1E9CE}", %p)}, undef, "to_unicode\(\'\\u200D\-\。\\uDB40\\uDD9D\。ß哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1362\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-。\x{E019D}。ß哑\x{200C}\x{1E9CE}", %p)}, undef, "to_unicode\(\'\\u200D\-\。\\uDB40\\uDD9D\。ß哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1363\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-。\x{E019D}。SS哑\x{200C}\x{1E9CE}", %p)}, undef, "to_unicode\(\'\\u200D\-\。\\uDB40\\uDD9D\。SS哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1364\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-。\x{E019D}。SS哑\x{200C}\x{1E9CE}", %p)}, undef, "to_unicode\(\'\\u200D\-\。\\uDB40\\uDD9D\。SS哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1365\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-。\x{E019D}。ss哑\x{200C}\x{1E9CE}", %p)}, undef, "to_unicode\(\'\\u200D\-\。\\uDB40\\uDD9D\。ss哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1366\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-。\x{E019D}。ss哑\x{200C}\x{1E9CE}", %p)}, undef, "to_unicode\(\'\\u200D\-\。\\uDB40\\uDD9D\。ss哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1367\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-。\x{E019D}。Ss哑\x{200C}\x{1E9CE}", %p)}, undef, "to_unicode\(\'\\u200D\-\。\\uDB40\\uDD9D\。Ss哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1368\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-。\x{E019D}。Ss哑\x{200C}\x{1E9CE}", %p)}, undef, "to_unicode\(\'\\u200D\-\。\\uDB40\\uDD9D\。Ss哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V3\ V6\ C2\ A4_2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1369\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-︒\x{E019D}。SS哑\x{200C}\x{1E9CE}", %p)}, undef, "to_unicode\(\'\\u200D\-︒\\uDB40\\uDD9D\。SS哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1370\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-︒\x{E019D}。SS哑\x{200C}\x{1E9CE}", %p)}, undef, "to_unicode\(\'\\u200D\-︒\\uDB40\\uDD9D\。SS哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1371\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-︒\x{E019D}。ss哑\x{200C}\x{1E9CE}", %p)}, undef, "to_unicode\(\'\\u200D\-︒\\uDB40\\uDD9D\。ss哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1372\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-︒\x{E019D}。ss哑\x{200C}\x{1E9CE}", %p)}, undef, "to_unicode\(\'\\u200D\-︒\\uDB40\\uDD9D\。ss哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1373\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-︒\x{E019D}。Ss哑\x{200C}\x{1E9CE}", %p)}, undef, "to_unicode\(\'\\u200D\-︒\\uDB40\\uDD9D\。Ss哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1374\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-︒\x{E019D}。Ss哑\x{200C}\x{1E9CE}", %p)}, undef, "to_unicode\(\'\\u200D\-︒\\uDB40\\uDD9D\。Ss哑\\u200C\\uD83A\\uDDCE\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1375\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒.\x{1DC3}\x{ABED}", %p)}, undef, "to_unicode\(\'︒.\\u1DC3\\uABED\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1376\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒.\x{ABED}\x{1DC3}", %p)}, undef, "to_unicode\(\'︒.\\uABED\\u1DC3\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1377\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}\x{1DC3}", %p)}, undef, "to_unicode\(\'\。\.\\uABED\\u1DC3\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1378\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0670}。\x{200D}", %p)}, undef, "to_unicode\(\'\\u0670\。\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1379\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0670}。\x{200D}", %p)}, undef, "to_unicode\(\'\\u0670\。\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1380\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}🜼。\x{10E38}", %p)}, undef, "to_unicode\(\'\\u200D🜼。\\uD803\\uDE38\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1381\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}🜼。\x{10E38}", %p)}, undef, "to_unicode\(\'\\u200D🜼。\\uD803\\uDE38\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1382\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}🜼。\x{10E38}", %p)}, undef, "to_unicode\(\'\\u200D🜼\。\\uD803\\uDE38\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1383\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}🜼。\x{10E38}", %p)}, undef, "to_unicode\(\'\\u200D🜼\。\\uD803\\uDE38\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1384\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-Ⴄ𝟫\x{0602}.\x{1713}ς", %p)}, undef, "to_unicode\(\'\-Ⴄ𝟫\\u0602.\\u1713ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1385\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-Ⴄ9\x{0602}.\x{1713}ς", %p)}, undef, "to_unicode\(\'\-Ⴄ9\\u0602\.\\u1713ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1386\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-ⴄ9\x{0602}.\x{1713}ς", %p)}, undef, "to_unicode\(\'\-ⴄ9\\u0602\.\\u1713ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1387\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-Ⴄ9\x{0602}.\x{1713}Σ", %p)}, undef, "to_unicode\(\'\-Ⴄ9\\u0602\.\\u1713Σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1388\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-ⴄ9\x{0602}.\x{1713}σ", %p)}, undef, "to_unicode\(\'\-ⴄ9\\u0602\.\\u1713σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1389\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-ⴄ𝟫\x{0602}.\x{1713}ς", %p)}, undef, "to_unicode\(\'\-ⴄ𝟫\\u0602.\\u1713ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1390\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-Ⴄ𝟫\x{0602}.\x{1713}Σ", %p)}, undef, "to_unicode\(\'\-Ⴄ𝟫\\u0602.\\u1713Σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1391\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-ⴄ𝟫\x{0602}.\x{1713}σ", %p)}, undef, "to_unicode\(\'\-ⴄ𝟫\\u0602.\\u1713σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1392\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{38E5E}。-", %p)}, undef, "to_unicode\(\'\\uD8A3\\uDE5E\。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1393\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋠🄊.\x{AF652}\x{A982}ß≯", %p)}, undef, "to_unicode\(\'\⋠🄊.\\uDA7D\\uDE52\\uA982ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1394\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≼\x{0338}🄊.\x{AF652}\x{A982}ß>\x{0338}", %p)}, undef, "to_unicode\(\'\≼\\u0338🄊.\\uDA7D\\uDE52\\uA982ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1395\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋠9,.\x{AF652}\x{A982}ß≯", %p)}, undef, "to_unicode\(\'\⋠9\,\.\\uDA7D\\uDE52\\uA982ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1396\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≼\x{0338}9,.\x{AF652}\x{A982}ß>\x{0338}", %p)}, undef, "to_unicode\(\'\≼\\u03389\,\.\\uDA7D\\uDE52\\uA982ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1397\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≼\x{0338}9,.\x{AF652}\x{A982}SS>\x{0338}", %p)}, undef, "to_unicode\(\'\≼\\u03389\,\.\\uDA7D\\uDE52\\uA982SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1398\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋠9,.\x{AF652}\x{A982}SS≯", %p)}, undef, "to_unicode\(\'\⋠9\,\.\\uDA7D\\uDE52\\uA982SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1399\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋠9,.\x{AF652}\x{A982}ss≯", %p)}, undef, "to_unicode\(\'\⋠9\,\.\\uDA7D\\uDE52\\uA982ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1400\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≼\x{0338}9,.\x{AF652}\x{A982}ss>\x{0338}", %p)}, undef, "to_unicode\(\'\≼\\u03389\,\.\\uDA7D\\uDE52\\uA982ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1401\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≼\x{0338}9,.\x{AF652}\x{A982}Ss>\x{0338}", %p)}, undef, "to_unicode\(\'\≼\\u03389\,\.\\uDA7D\\uDE52\\uA982Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1402\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋠9,.\x{AF652}\x{A982}Ss≯", %p)}, undef, "to_unicode\(\'\⋠9\,\.\\uDA7D\\uDE52\\uA982Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1403\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≼\x{0338}🄊.\x{AF652}\x{A982}SS>\x{0338}", %p)}, undef, "to_unicode\(\'\≼\\u0338🄊.\\uDA7D\\uDE52\\uA982SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1404\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋠🄊.\x{AF652}\x{A982}SS≯", %p)}, undef, "to_unicode\(\'\⋠🄊.\\uDA7D\\uDE52\\uA982SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1405\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋠🄊.\x{AF652}\x{A982}ss≯", %p)}, undef, "to_unicode\(\'\⋠🄊.\\uDA7D\\uDE52\\uA982ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1406\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≼\x{0338}🄊.\x{AF652}\x{A982}ss>\x{0338}", %p)}, undef, "to_unicode\(\'\≼\\u0338🄊.\\uDA7D\\uDE52\\uA982ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1407\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≼\x{0338}🄊.\x{AF652}\x{A982}Ss>\x{0338}", %p)}, undef, "to_unicode\(\'\≼\\u0338🄊.\\uDA7D\\uDE52\\uA982Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1408\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋠🄊.\x{AF652}\x{A982}Ss≯", %p)}, undef, "to_unicode\(\'\⋠🄊.\\uDA7D\\uDE52\\uA982Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1409\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄈₅\x{0669}。\x{E03DD}\x{FB56}\x{EDACF}", %p)}, undef, "to_unicode\(\'🄈₅\\u0669。\\uDB40\\uDFDD\\uFB56\\uDB76\\uDECF\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1410\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("7,5\x{0669}。\x{E03DD}\x{067E}\x{EDACF}", %p)}, undef, "to_unicode\(\'7\,5\\u0669\。\\uDB40\\uDFDD\\u067E\\uDB76\\uDECF\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1411\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("儭-。\x{10E62}Ⴢ\x{46253}\x{200C}", %p)}, undef, "to_unicode\(\'儭\-。\\uD803\\uDE62Ⴢ\\uD8D8\\uDE53\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1412\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("儭-。\x{10E62}Ⴢ\x{46253}\x{200C}", %p)}, undef, "to_unicode\(\'儭\-。\\uD803\\uDE62Ⴢ\\uD8D8\\uDE53\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1413\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("儭-。\x{10E62}Ⴢ\x{46253}\x{200C}", %p)}, undef, "to_unicode\(\'儭\-\。\\uD803\\uDE62Ⴢ\\uD8D8\\uDE53\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1414\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("儭-。\x{10E62}Ⴢ\x{46253}\x{200C}", %p)}, undef, "to_unicode\(\'儭\-\。\\uD803\\uDE62Ⴢ\\uD8D8\\uDE53\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1415\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("儭-。\x{10E62}ⴢ\x{46253}\x{200C}", %p)}, undef, "to_unicode\(\'儭\-\。\\uD803\\uDE62ⴢ\\uD8D8\\uDE53\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1416\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("儭-。\x{10E62}ⴢ\x{46253}\x{200C}", %p)}, undef, "to_unicode\(\'儭\-\。\\uD803\\uDE62ⴢ\\uD8D8\\uDE53\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1417\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("儭-。\x{10E62}ⴢ\x{46253}\x{200C}", %p)}, undef, "to_unicode\(\'儭\-。\\uD803\\uDE62ⴢ\\uD8D8\\uDE53\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1418\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("儭-。\x{10E62}ⴢ\x{46253}\x{200C}", %p)}, undef, "to_unicode\(\'儭\-。\\uD803\\uDE62ⴢ\\uD8D8\\uDE53\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1419\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟓₅\x{072E}.ᢢ\x{A6CFA}", %p)}, undef, "to_unicode\(\'𝟓₅\\u072E.ᢢ\\uDA5B\\uDCFA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1420\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("55\x{072E}.ᢢ\x{A6CFA}", %p)}, undef, "to_unicode\(\'55\\u072E\.ᢢ\\uDA5B\\uDCFA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1421\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯-\x{06C4}\x{17BD}.⒈\x{0664}", %p)}, undef, "to_unicode\(\'\≯\-\\u06C4\\u17BD\.⒈\\u0664\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1422\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}-\x{06C4}\x{17BD}.⒈\x{0664}", %p)}, undef, "to_unicode\(\'\>\\u0338\-\\u06C4\\u17BD\.⒈\\u0664\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1423\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯-\x{06C4}\x{17BD}.1.\x{0664}", %p)}, undef, "to_unicode\(\'\≯\-\\u06C4\\u17BD\.1\.\\u0664\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1424\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}-\x{06C4}\x{17BD}.1.\x{0664}", %p)}, undef, "to_unicode\(\'\>\\u0338\-\\u06C4\\u17BD\.1\.\\u0664\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1425\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0117}.\x{6AA1B}蚀", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD17.\\uD96A\\uDE1B蚀\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1426\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0117}.\x{6AA1B}蚀", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD17\.\\uD96A\\uDE1B蚀\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1427\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0752}Ⴘ.\x{1EA34}\x{ABED}ß\x{0962}", %p)}, undef, "to_unicode\(\'\\u0752Ⴘ\.\\uD83A\\uDE34\\uABEDß\\u0962\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1428\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0752}ⴘ.\x{1EA34}\x{ABED}ß\x{0962}", %p)}, undef, "to_unicode\(\'\\u0752ⴘ\.\\uD83A\\uDE34\\uABEDß\\u0962\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1429\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0752}Ⴘ.\x{1EA34}\x{ABED}SS\x{0962}", %p)}, undef, "to_unicode\(\'\\u0752Ⴘ\.\\uD83A\\uDE34\\uABEDSS\\u0962\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1430\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0752}ⴘ.\x{1EA34}\x{ABED}ss\x{0962}", %p)}, undef, "to_unicode\(\'\\u0752ⴘ\.\\uD83A\\uDE34\\uABEDss\\u0962\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1431\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0752}Ⴘ.\x{1EA34}\x{ABED}Ss\x{0962}", %p)}, undef, "to_unicode\(\'\\u0752Ⴘ\.\\uD83A\\uDE34\\uABEDSs\\u0962\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1432\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1034}\x{10E6B}\x{40BCC}。凬", %p)}, undef, "to_unicode\(\'\\u1034\\uD803\\uDE6B\\uD8C2\\uDFCC。凬\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1433\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1034}\x{10E6B}\x{40BCC}。凬", %p)}, undef, "to_unicode\(\'\\u1034\\uD803\\uDE6B\\uD8C2\\uDFCC\。凬\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1434\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0927}𝟕\x{200D}ᡞ。\x{0B4D}", %p)}, undef, "to_unicode\(\'\\uDB42\\uDD27𝟕\\u200Dᡞ。\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1435\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0927}𝟕\x{200D}ᡞ。\x{0B4D}", %p)}, undef, "to_unicode\(\'\\uDB42\\uDD27𝟕\\u200Dᡞ。\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1436\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0927}7\x{200D}ᡞ。\x{0B4D}", %p)}, undef, "to_unicode\(\'\\uDB42\\uDD277\\u200Dᡞ\。\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1437\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0927}7\x{200D}ᡞ。\x{0B4D}", %p)}, undef, "to_unicode\(\'\\uDB42\\uDD277\\u200Dᡞ\。\\u0B4D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1438\]") 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{08A4}。\x{11046}ᠶ", %p)}, undef, "to_unicode\(\'\\u08A4\。\\uD804\\uDC46ᠶ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1439\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{E019F}≮.\x{065A}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD9F\≮\.\\u065A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1440\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E019F}<\x{0338}.\x{065A}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD9F\<\\u0338\.\\u065A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1441\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴢ≯褦.ᡚ\x{069F}Ⴞ\x{06B2}", %p)}, undef, "to_unicode\(\'Ⴢ\≯褦.ᡚ\\u069FႾ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1442\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴢ>\x{0338}褦.ᡚ\x{069F}Ⴞ\x{06B2}", %p)}, undef, "to_unicode\(\'Ⴢ\>\\u0338褦.ᡚ\\u069FႾ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1443\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴢ≯褦.ᡚ\x{069F}Ⴞ\x{06B2}", %p)}, undef, "to_unicode\(\'Ⴢ\≯褦\.ᡚ\\u069FႾ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1444\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴢ>\x{0338}褦.ᡚ\x{069F}Ⴞ\x{06B2}", %p)}, undef, "to_unicode\(\'Ⴢ\>\\u0338褦\.ᡚ\\u069FႾ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1445\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴢ>\x{0338}褦.ᡚ\x{069F}ⴞ\x{06B2}", %p)}, undef, "to_unicode\(\'ⴢ\>\\u0338褦\.ᡚ\\u069Fⴞ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1446\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴢ≯褦.ᡚ\x{069F}ⴞ\x{06B2}", %p)}, undef, "to_unicode\(\'ⴢ\≯褦\.ᡚ\\u069Fⴞ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1447\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴢ>\x{0338}褦.ᡚ\x{069F}ⴞ\x{06B2}", %p)}, undef, "to_unicode\(\'ⴢ\>\\u0338褦.ᡚ\\u069Fⴞ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1448\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴢ≯褦.ᡚ\x{069F}ⴞ\x{06B2}", %p)}, undef, "to_unicode\(\'ⴢ\≯褦.ᡚ\\u069Fⴞ\\u06B2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1449\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{55CFB}\x{1DC1}\x{200C}\x{1734}。ꡚꡋ\x{0633}", %p)}, undef, "to_unicode\(\'\\uD917\\uDCFB\\u1DC1\\u200C\\u1734\。ꡚꡋ\\u0633\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:1450\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{55CFB}\x{1DC1}\x{200C}\x{1734}。ꡚꡋ\x{0633}", %p)}, undef, "to_unicode\(\'\\uD917\\uDCFB\\u1DC1\\u200C\\u1734\。ꡚꡋ\\u0633\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:1451\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.≯", %p)}, undef, "to_unicode\(\'\\u200C\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1452\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.≯", %p)}, undef, "to_unicode\(\'\\u200C\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1453\]") 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\:1454\]") 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\:1455\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{EFA25}\x{B70CE}-.\x{094D}-悜", %p)}, undef, "to_unicode\(\'\\uDB7E\\uDE25\\uDA9C\\uDCCE\-.\\u094D\-悜\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1456\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{EFA25}\x{B70CE}-.\x{094D}-悜", %p)}, undef, "to_unicode\(\'\\uDB7E\\uDE25\\uDA9C\\uDCCE\-\.\\u094D\-悜\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1457\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BD}\x{E8BB0}\x{E09BB}\x{07D7}.-\x{200D}\x{E0128}\x{2DF9}", %p)}, undef, "to_unicode\(\'\\u06BD\\uDB62\\uDFB0\\uDB42\\uDDBB\\u07D7\.\-\\u200D\\uDB40\\uDD28\\u2DF9\'\)\ throws\ error\ P1\ V6\ V3\ B2\ C2\ \[data\/IdnaTest\.txt\:1458\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BD}\x{E8BB0}\x{E09BB}\x{07D7}.-\x{200D}\x{E0128}\x{2DF9}", %p)}, undef, "to_unicode\(\'\\u06BD\\uDB62\\uDFB0\\uDB42\\uDDBB\\u07D7\.\-\\u200D\\uDB40\\uDD28\\u2DF9\'\)\ throws\ error\ P1\ V6\ V3\ B2\ C2\ \[data\/IdnaTest\.txt\:1459\]") 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\:1460\]") 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\:1461\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("2\x{200C}衃Ⴝ.\x{0682}Ⴔ", %p)}, undef, "to_unicode\(\'2\\u200C衃Ⴝ\.\\u0682Ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1462\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("2\x{200C}衃Ⴝ.\x{0682}Ⴔ", %p)}, undef, "to_unicode\(\'2\\u200C衃Ⴝ\.\\u0682Ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1463\]") 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("2\x{200C}衃ⴝ.\x{0682}ⴔ", %p)}, undef, "to_unicode\(\'2\\u200C衃ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1464\]") 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("2\x{200C}衃ⴝ.\x{0682}ⴔ", %p)}, undef, "to_unicode\(\'2\\u200C衃ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1465\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("2\x{200C}衃Ⴝ.\x{0682}ⴔ", %p)}, undef, "to_unicode\(\'2\\u200C衃Ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1466\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("2\x{200C}衃Ⴝ.\x{0682}ⴔ", %p)}, undef, "to_unicode\(\'2\\u200C衃Ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1467\]") 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{0682}ⴔ", %p)}, undef, "to_unicode\(\'𝟸\\u200C衃ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1468\]") 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{0682}ⴔ", %p)}, undef, "to_unicode\(\'𝟸\\u200C衃ⴝ\.\\u0682ⴔ\'\)\ throws\ error\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1469\]") 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\:1470\]") 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\:1471\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0638}\x{200C}。--⼼", %p)}, undef, "to_unicode\(\'\\u0638\\u200C\。\-\-⼼\'\)\ throws\ error\ V3\ B3\ C1\ \[data\/IdnaTest\.txt\:1472\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0638}\x{200C}。--⼼", %p)}, undef, "to_unicode\(\'\\u0638\\u200C\。\-\-⼼\'\)\ throws\ error\ V3\ B3\ C1\ \[data\/IdnaTest\.txt\:1473\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0638}\x{200C}。--心", %p)}, undef, "to_unicode\(\'\\u0638\\u200C\。\-\-心\'\)\ throws\ error\ V3\ B3\ C1\ \[data\/IdnaTest\.txt\:1474\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0638}\x{200C}。--心", %p)}, undef, "to_unicode\(\'\\u0638\\u200C\。\-\-心\'\)\ throws\ error\ V3\ B3\ C1\ \[data\/IdnaTest\.txt\:1475\]") 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{FBE3}.\x{08A5}", %p)}, "\x{06C9}.\x{08A5}", "to_unicode\(\'\\uFBE3.\\u08A5\'\)\ \[data\/IdnaTest\.txt\:1476\]") 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{06C9}.\x{08A5}", %p)}, "\x{06C9}.\x{08A5}", "to_unicode\(\'\\u06C9\.\\u08A5\'\)\ \[data\/IdnaTest\.txt\:1477\]") 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--8kb.xn--uyb", %p)}, "\x{06C9}.\x{08A5}", "to_unicode\(\'xn\-\-8kb\.xn\-\-uyb\'\)\ \[data\/IdnaTest\.txt\:1478\]") 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{1037}-.-\x{116B6}", %p)}, undef, "to_unicode\(\'\\u1037\-.\-\\uD805\\uDEB6\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1479\]") 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{1037}-.-\x{116B6}", %p)}, undef, "to_unicode\(\'\\u1037\-\.\-\\uD805\\uDEB6\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1480\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{E0B7F}ᡰ-.\x{1D173}", %p)}, undef, "to_unicode\(\'\\uDB42\\uDF7Fᡰ\-\.\\uD834\\uDD73\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1481\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡒ\x{E068A}🔃\x{10E6C}.\x{1BF3}₇\x{3C3D0}", %p)}, undef, "to_unicode\(\'ᡒ\\uDB41\\uDE8A🔃\\uD803\\uDE6C\.\\u1BF3₇\\uD8B0\\uDFD0\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1482\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡒ\x{E068A}🔃\x{10E6C}.\x{1BF3}7\x{3C3D0}", %p)}, undef, "to_unicode\(\'ᡒ\\uDB41\\uDE8A🔃\\uD803\\uDE6C\.\\u1BF37\\uD8B0\\uDFD0\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1483\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E01BB}🄃。\x{0816}\x{200C}\x{10994}\x{200D}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDDBB🄃\。\\u0816\\u200C\\uD802\\uDD94\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1484\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E01BB}🄃。\x{0816}\x{200C}\x{10994}\x{200D}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDDBB🄃\。\\u0816\\u200C\\uD802\\uDD94\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1485\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E01BB}2,。\x{0816}\x{200C}\x{10994}\x{200D}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDDBB2\,\。\\u0816\\u200C\\uD802\\uDD94\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1486\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E01BB}2,。\x{0816}\x{200C}\x{10994}\x{200D}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDDBB2\,\。\\u0816\\u200C\\uD802\\uDD94\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1487\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴚ₄\x{FE0C}。4\x{30F75}\x{1BF3}", %p)}, undef, "to_unicode\(\'Ⴚ₄\\uFE0C\。4\\uD883\\uDF75\\u1BF3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1488\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴚ4\x{FE0C}。4\x{30F75}\x{1BF3}", %p)}, undef, "to_unicode\(\'Ⴚ4\\uFE0C\。4\\uD883\\uDF75\\u1BF3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1489\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴚ4\x{FE0C}。4\x{30F75}\x{1BF3}", %p)}, undef, "to_unicode\(\'ⴚ4\\uFE0C\。4\\uD883\\uDF75\\u1BF3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1490\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴚ₄\x{FE0C}。4\x{30F75}\x{1BF3}", %p)}, undef, "to_unicode\(\'ⴚ₄\\uFE0C\。4\\uD883\\uDF75\\u1BF3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1491\]") 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}-\x{07E3}🝦.\x{E015F}\x{0FA3}", %p)}, undef, "to_unicode\(\'\\u200D\-\\u07E3🝦\.\\uDB40\\uDD5F\\u0FA3\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1492\]") 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}-\x{07E3}🝦.\x{E015F}\x{0FA3}", %p)}, undef, "to_unicode\(\'\\u200D\-\\u07E3🝦\.\\uDB40\\uDD5F\\u0FA3\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1493\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("≠.\x{0768}", %p)}, undef, "to_unicode\(\'\≠\.\\u0768\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1494\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}.\x{0768}", %p)}, undef, "to_unicode\(\'\=\\u0338\.\\u0768\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1495\]") 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{07D5}\x{064B}。㌪", %p)}, "\x{07D5}\x{064B}.ハイツ", "to_unicode\(\'\\u07D5\\u064B。㌪\'\)\ \[data\/IdnaTest\.txt\:1496\]") 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{07D5}\x{064B}。ハイツ", %p)}, "\x{07D5}\x{064B}.ハイツ", "to_unicode\(\'\\u07D5\\u064B\。ハイツ\'\)\ \[data\/IdnaTest\.txt\:1497\]") 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--nhb10f.xn--eck4c5a", %p)}, "\x{07D5}\x{064B}.ハイツ", "to_unicode\(\'xn\-\-nhb10f\.xn\-\-eck4c5a\'\)\ \[data\/IdnaTest\.txt\:1498\]") 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{07D5}\x{064B}.ハイツ", %p)}, "\x{07D5}\x{064B}.ハイツ", "to_unicode\(\'\\u07D5\\u064B\.ハイツ\'\)\ \[data\/IdnaTest\.txt\:1499\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{1E9EF}\x{05BA}≮.\x{ABED}-", %p)}, undef, "to_unicode\(\'\\uD83A\\uDDEF\\u05BA\≮\.\\uABED\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1500\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1E9EF}\x{05BA}<\x{0338}.\x{ABED}-", %p)}, undef, "to_unicode\(\'\\uD83A\\uDDEF\\u05BA\<\\u0338\.\\uABED\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1501\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟲榎\x{37B15}\x{110B9}。ᡚ\x{1D189}\x{1E87E}\x{E0BA8}", %p)}, undef, "to_unicode\(\'𝟲榎\\uD89E\\uDF15\\uD804\\uDCB9。ᡚ\\uD834\\uDD89\\uD83A\\uDC7E\\uDB42\\uDFA8\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1502\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6榎\x{37B15}\x{110B9}。ᡚ\x{1D189}\x{1E87E}\x{E0BA8}", %p)}, undef, "to_unicode\(\'6榎\\uD89E\\uDF15\\uD804\\uDCB9\。ᡚ\\uD834\\uDD89\\uD83A\\uDC7E\\uDB42\\uDFA8\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1503\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E90F3}.\x{5A710}", %p)}, undef, "to_unicode\(\'\\uDB64\\uDCF3.\\uD929\\uDF10\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1504\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E90F3}.\x{5A710}", %p)}, undef, "to_unicode\(\'\\uDB64\\uDCF3\.\\uD929\\uDF10\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1505\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}︒。\x{069F}\x{200C}", %p)}, undef, "to_unicode\(\'\\u200D︒。\\u069F\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B3\ C1\ \[data\/IdnaTest\.txt\:1506\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}︒。\x{069F}\x{200C}", %p)}, undef, "to_unicode\(\'\\u200D︒。\\u069F\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ B3\ C1\ \[data\/IdnaTest\.txt\:1507\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。。\x{069F}\x{200C}", %p)}, undef, "to_unicode\(\'\\u200D\。\。\\u069F\\u200C\'\)\ throws\ error\ C2\ A4_2\ B3\ C1\ \[data\/IdnaTest\.txt\:1508\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。。\x{069F}\x{200C}", %p)}, undef, "to_unicode\(\'\\u200D\。\。\\u069F\\u200C\'\)\ throws\ error\ C2\ A4_2\ B3\ C1\ \[data\/IdnaTest\.txt\:1509\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--1jb", %p)}, "\x{069F}", "to_unicode\(\'xn\-\-1jb\'\)\ \[data\/IdnaTest\.txt\:1510\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{069F}", %p)}, "\x{069F}", "to_unicode\(\'\\u069F\'\)\ \[data\/IdnaTest\.txt\:1511\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0669}\x{200C}\x{10E69}。\x{20CD}", %p)}, undef, "to_unicode\(\'\\u0669\\u200C\\uD803\\uDE69\。\\u20CD\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1512\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0669}\x{200C}\x{10E69}。\x{20CD}", %p)}, undef, "to_unicode\(\'\\u0669\\u200C\\uD803\\uDE69\。\\u20CD\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1513\]") 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{05A5}\x{1DC1}𝟼。-🂄", %p)}, undef, "to_unicode\(\'\\u1BAA\\u05A5\\u1DC1𝟼\。\-🂄\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1514\]") 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{05A5}\x{1DC1}6。-🂄", %p)}, undef, "to_unicode\(\'\\u1BAA\\u05A5\\u1DC16\。\-🂄\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1515\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{37EC1}。뙏", %p)}, undef, "to_unicode\(\'\\uD89F\\uDEC1\。뙏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1516\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{37EC1}。뙏", %p)}, undef, "to_unicode\(\'\\uD89F\\uDEC1\。뙏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1517\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{32E54}\x{E0113}\x{92B14}\x{067E}.\x{076A}", %p)}, undef, "to_unicode\(\'\\uD88B\\uDE54\\uDB40\\uDD13\\uDA0A\\uDF14\\u067E\.\\u076A\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1518\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。\x{E10E7}", %p)}, undef, "to_unicode\(\'\\u200D。\\uDB44\\uDCE7\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1519\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。\x{E10E7}", %p)}, undef, "to_unicode\(\'\\u200D。\\uDB44\\uDCE7\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1520\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。\x{E10E7}", %p)}, undef, "to_unicode\(\'\\u200D\。\\uDB44\\uDCE7\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1521\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。\x{E10E7}", %p)}, undef, "to_unicode\(\'\\u200D\。\\uDB44\\uDCE7\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1522\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡦ皥.-", %p)}, undef, "to_unicode\(\'ᡦ皥.\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1523\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡦ皥.-", %p)}, undef, "to_unicode\(\'ᡦ皥\.\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1524\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FB68}\x{E0128}ᠧ.⒈ᡕ", %p)}, undef, "to_unicode\(\'\\uFB68\\uDB40\\uDD28ᠧ.⒈ᡕ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1525\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0679}\x{E0128}ᠧ.1.ᡕ", %p)}, undef, "to_unicode\(\'\\u0679\\uDB40\\uDD28ᠧ\.1\.ᡕ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1526\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}ā\x{0663}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0ā\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1527\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}ā\x{0663}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0ā\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1528\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}a\x{0304}\x{0663}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0a\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1529\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}a\x{0304}\x{0663}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0a\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1530\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}ā\x{0663}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160ā\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1531\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}ā\x{0663}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160ā\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1532\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}a\x{0304}\x{0663}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160a\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1533\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}a\x{0304}\x{0663}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160a\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1534\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}a\x{0304}\x{0663}", %p)}, undef, "to_unicode\(\'ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160a\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1535\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}a\x{0304}\x{0663}", %p)}, undef, "to_unicode\(\'ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160a\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1536\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}ā\x{0663}", %p)}, undef, "to_unicode\(\'ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160ā\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1537\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}ā\x{0663}", %p)}, undef, "to_unicode\(\'ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160ā\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1538\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}Ā\x{0663}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160Ā\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1539\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}Ā\x{0663}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160Ā\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1540\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}A\x{0304}\x{0663}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160A\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1541\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{1160}A\x{0304}\x{0663}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\u1160A\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1542\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}a\x{0304}\x{0663}", %p)}, undef, "to_unicode\(\'ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0a\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1543\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}a\x{0304}\x{0663}", %p)}, undef, "to_unicode\(\'ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0a\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1544\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}ā\x{0663}", %p)}, undef, "to_unicode\(\'ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0ā\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1545\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}ā\x{0663}", %p)}, undef, "to_unicode\(\'ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0ā\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1546\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}Ā\x{0663}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0Ā\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1547\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}Ā\x{0663}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0Ā\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1548\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}A\x{0304}\x{0663}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0A\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1549\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}\x{E0141}\x{200D}。\x{FFA0}A\x{0304}\x{0663}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C\\uDB40\\uDD41\\u200D\。\\uFFA0A\\u0304\\u0663\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1550\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⳿\x{200C}。曳⾑₁≯", %p)}, undef, "to_unicode\(\'⳿\\u200C。曳⾑₁\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1551\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⳿\x{200C}。曳⾑₁≯", %p)}, undef, "to_unicode\(\'⳿\\u200C。曳⾑₁\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1552\]") 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\:1553\]") 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\:1554\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⳿\x{200C}。曳襾1≯", %p)}, undef, "to_unicode\(\'⳿\\u200C\。曳襾1\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1555\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⳿\x{200C}。曳襾1≯", %p)}, undef, "to_unicode\(\'⳿\\u200C\。曳襾1\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1556\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⳿\x{200C}。曳襾1>\x{0338}", %p)}, undef, "to_unicode\(\'⳿\\u200C\。曳襾1\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1557\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⳿\x{200C}。曳襾1>\x{0338}", %p)}, undef, "to_unicode\(\'⳿\\u200C\。曳襾1\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1558\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯⒈。ß", %p)}, undef, "to_unicode\(\'\≯⒈\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1559\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}⒈。ß", %p)}, undef, "to_unicode\(\'\>\\u0338⒈\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1560\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯1.。ß", %p)}, undef, "to_unicode\(\'\≯1\.\。ß\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1561\]") 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\:1562\]") 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\:1563\]") 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\:1564\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}⒈。SS", %p)}, undef, "to_unicode\(\'\>\\u0338⒈\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1565\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯⒈。SS", %p)}, undef, "to_unicode\(\'\≯⒈\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1566\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E7D}\x{200D}\x{1E986}。\x{077E}-1Ⴙ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE7D\\u200D\\uD83A\\uDD86。\\u077E\-1Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1567\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E7D}\x{200D}\x{1E986}。\x{077E}-1Ⴙ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE7D\\u200D\\uD83A\\uDD86。\\u077E\-1Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1568\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E7D}\x{200D}\x{1E986}。\x{077E}-1Ⴙ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE7D\\u200D\\uD83A\\uDD86\。\\u077E\-1Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1569\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E7D}\x{200D}\x{1E986}。\x{077E}-1Ⴙ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE7D\\u200D\\uD83A\\uDD86\。\\u077E\-1Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1570\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E7D}\x{200D}\x{1E986}。\x{077E}-1ⴙ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE7D\\u200D\\uD83A\\uDD86\。\\u077E\-1ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1571\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E7D}\x{200D}\x{1E986}。\x{077E}-1ⴙ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE7D\\u200D\\uD83A\\uDD86\。\\u077E\-1ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1572\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E7D}\x{200D}\x{1E986}。\x{077E}-1ⴙ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE7D\\u200D\\uD83A\\uDD86。\\u077E\-1ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1573\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E7D}\x{200D}\x{1E986}。\x{077E}-1ⴙ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE7D\\u200D\\uD83A\\uDD86。\\u077E\-1ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1574\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。≠", %p)}, undef, "to_unicode\(\'\\u200C。\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1575\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。≠", %p)}, undef, "to_unicode\(\'\\u200C。\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1576\]") 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\:1577\]") 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\:1578\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。≠", %p)}, undef, "to_unicode\(\'\\u200C\。\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1579\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。≠", %p)}, undef, "to_unicode\(\'\\u200C\。\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1580\]") 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\:1581\]") 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\:1582\]") 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{0A4D}\x{E0111}.\x{0721}\x{0C4D}\x{A94E}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0A4D\\uDB40\\uDD11\.\\u0721\\u0C4D\\uA94E\\u200C\'\)\ throws\ error\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:1583\]") 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{0A4D}\x{E0111}.\x{0721}\x{0C4D}\x{A94E}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0A4D\\uDB40\\uDD11\.\\u0721\\u0C4D\\uA94E\\u200C\'\)\ throws\ error\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:1584\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{794E7}\x{200D}\x{8CA2E}.\x{1A5D}Ↄ≠-", %p)}, undef, "to_unicode\(\'\\uD9A5\\uDCE7\\u200D\\uD9F2\\uDE2E\.\\u1A5DↃ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1585\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{794E7}\x{200D}\x{8CA2E}.\x{1A5D}Ↄ≠-", %p)}, undef, "to_unicode\(\'\\uD9A5\\uDCE7\\u200D\\uD9F2\\uDE2E\.\\u1A5DↃ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1586\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{794E7}\x{200D}\x{8CA2E}.\x{1A5D}Ↄ=\x{0338}-", %p)}, undef, "to_unicode\(\'\\uD9A5\\uDCE7\\u200D\\uD9F2\\uDE2E\.\\u1A5DↃ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1587\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{794E7}\x{200D}\x{8CA2E}.\x{1A5D}Ↄ=\x{0338}-", %p)}, undef, "to_unicode\(\'\\uD9A5\\uDCE7\\u200D\\uD9F2\\uDE2E\.\\u1A5DↃ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1588\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{794E7}\x{200D}\x{8CA2E}.\x{1A5D}ↄ=\x{0338}-", %p)}, undef, "to_unicode\(\'\\uD9A5\\uDCE7\\u200D\\uD9F2\\uDE2E\.\\u1A5Dↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1589\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{794E7}\x{200D}\x{8CA2E}.\x{1A5D}ↄ=\x{0338}-", %p)}, undef, "to_unicode\(\'\\uD9A5\\uDCE7\\u200D\\uD9F2\\uDE2E\.\\u1A5Dↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1590\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{794E7}\x{200D}\x{8CA2E}.\x{1A5D}ↄ≠-", %p)}, undef, "to_unicode\(\'\\uD9A5\\uDCE7\\u200D\\uD9F2\\uDE2E\.\\u1A5Dↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1591\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{794E7}\x{200D}\x{8CA2E}.\x{1A5D}ↄ≠-", %p)}, undef, "to_unicode\(\'\\uD9A5\\uDCE7\\u200D\\uD9F2\\uDE2E\.\\u1A5Dↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1592\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡏς\x{200D}۴。蔑\x{CEDEE}", %p)}, undef, "to_unicode\(\'ꡏς\\u200D۴\。蔑\\uDAFB\\uDDEE\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1593\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡏς\x{200D}۴。蔑\x{CEDEE}", %p)}, undef, "to_unicode\(\'ꡏς\\u200D۴\。蔑\\uDAFB\\uDDEE\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1594\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡏΣ\x{200D}۴。蔑\x{CEDEE}", %p)}, undef, "to_unicode\(\'ꡏΣ\\u200D۴\。蔑\\uDAFB\\uDDEE\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1595\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡏΣ\x{200D}۴。蔑\x{CEDEE}", %p)}, undef, "to_unicode\(\'ꡏΣ\\u200D۴\。蔑\\uDAFB\\uDDEE\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1596\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡏσ\x{200D}۴。蔑\x{CEDEE}", %p)}, undef, "to_unicode\(\'ꡏσ\\u200D۴\。蔑\\uDAFB\\uDDEE\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1597\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡏσ\x{200D}۴。蔑\x{CEDEE}", %p)}, undef, "to_unicode\(\'ꡏσ\\u200D۴\。蔑\\uDAFB\\uDDEE\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1598\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06DD}.\x{10E62}", %p)}, undef, "to_unicode\(\'\\u06DD\.\\uD803\\uDE62\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1599\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-ᡂ.\x{63FCE}", %p)}, undef, "to_unicode\(\'\-ᡂ\.\\uD94F\\uDFCE\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1600\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{FDC4}\x{FE0C}。誆⒈", %p)}, undef, "to_unicode\(\'\≯\\uFDC4\\uFE0C\。誆⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1601\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{FDC4}\x{FE0C}。誆⒈", %p)}, undef, "to_unicode\(\'\>\\u0338\\uFDC4\\uFE0C\。誆⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1602\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{0639}\x{062C}\x{0645}\x{FE0C}。誆1.", %p)}, undef, "to_unicode\(\'\≯\\u0639\\u062C\\u0645\\uFE0C\。誆1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1603\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{0639}\x{062C}\x{0645}\x{FE0C}。誆1.", %p)}, undef, "to_unicode\(\'\>\\u0338\\u0639\\u062C\\u0645\\uFE0C\。誆1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1604\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F99}\x{1EE41}䐊\x{2DF6}.︒\x{07E2}㉼\x{06AB}", %p)}, undef, "to_unicode\(\'\\u0F99\\uD83B\\uDE41䐊\\u2DF6.︒\\u07E2㉼\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1605\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F99}\x{1EE41}䐊\x{2DF6}.。\x{07E2}참고\x{06AB}", %p)}, undef, "to_unicode\(\'\\u0F99\\uD83B\\uDE41䐊\\u2DF6\.\。\\u07E2참고\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ B1\ A4_2\ B2\ \[data\/IdnaTest\.txt\:1606\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F99}\x{1EE41}䐊\x{2DF6}.。\x{07E2}참고\x{06AB}", %p)}, undef, "to_unicode\(\'\\u0F99\\uD83B\\uDE41䐊\\u2DF6\.\。\\u07E2참고\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ B1\ A4_2\ B2\ \[data\/IdnaTest\.txt\:1607\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("퀬-\x{DF7E}\x{7E510}.\x{200C}\x{E015A}\x{69297}𝟤", %p)}, undef, "to_unicode\(\'퀬\-\\uDF7E\\uD9B9\\uDD10\.\\u200C\\uDB40\\uDD5A\\uD964\\uDE97𝟤\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1608\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("퀬-\x{DF7E}\x{7E510}.\x{200C}\x{E015A}\x{69297}𝟤", %p)}, undef, "to_unicode\(\'퀬\-\\uDF7E\\uD9B9\\uDD10\.\\u200C\\uDB40\\uDD5A\\uD964\\uDE97𝟤\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1609\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("퀬-\x{DF7E}\x{7E510}.\x{200C}\x{E015A}\x{69297}𝟤", %p)}, undef, "to_unicode\(\'퀬\-\\uDF7E\\uD9B9\\uDD10\.\\u200C\\uDB40\\uDD5A\\uD964\\uDE97𝟤\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1610\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("퀬-\x{DF7E}\x{7E510}.\x{200C}\x{E015A}\x{69297}𝟤", %p)}, undef, "to_unicode\(\'퀬\-\\uDF7E\\uD9B9\\uDD10\.\\u200C\\uDB40\\uDD5A\\uD964\\uDE97𝟤\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1611\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("퀬-\x{DF7E}\x{7E510}.\x{200C}\x{E015A}\x{69297}2", %p)}, undef, "to_unicode\(\'퀬\-\\uDF7E\\uD9B9\\uDD10\.\\u200C\\uDB40\\uDD5A\\uD964\\uDE972\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1612\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("퀬-\x{DF7E}\x{7E510}.\x{200C}\x{E015A}\x{69297}2", %p)}, undef, "to_unicode\(\'퀬\-\\uDF7E\\uD9B9\\uDD10\.\\u200C\\uDB40\\uDD5A\\uD964\\uDE972\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1613\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("퀬-\x{DF7E}\x{7E510}.\x{200C}\x{E015A}\x{69297}2", %p)}, undef, "to_unicode\(\'퀬\-\\uDF7E\\uD9B9\\uDD10\.\\u200C\\uDB40\\uDD5A\\uD964\\uDE972\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1614\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("퀬-\x{DF7E}\x{7E510}.\x{200C}\x{E015A}\x{69297}2", %p)}, undef, "to_unicode\(\'퀬\-\\uDF7E\\uD9B9\\uDD10\.\\u200C\\uDB40\\uDD5A\\uD964\\uDE972\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1615\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("퀬", %p)}, "퀬", "to_unicode\(\'퀬\'\)\ \[data\/IdnaTest\.txt\:1616\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("퀬", %p)}, "퀬", "to_unicode\(\'퀬\'\)\ \[data\/IdnaTest\.txt\:1617\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--8n7b", %p)}, "퀬", "to_unicode\(\'xn\-\-8n7b\'\)\ \[data\/IdnaTest\.txt\:1618\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴌ.\x{0600}︒\x{09CD}\x{1E9F4}", %p)}, undef, "to_unicode\(\'Ⴌ\.\\u0600︒\\u09CD\\uD83A\\uDDF4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1619\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴌ.\x{0600}。\x{09CD}\x{1E9F4}", %p)}, undef, "to_unicode\(\'Ⴌ\.\\u0600\。\\u09CD\\uD83A\\uDDF4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1620\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴌ.\x{0600}。\x{09CD}\x{1E9F4}", %p)}, undef, "to_unicode\(\'ⴌ\.\\u0600\。\\u09CD\\uD83A\\uDDF4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1621\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴌ.\x{0600}︒\x{09CD}\x{1E9F4}", %p)}, undef, "to_unicode\(\'ⴌ\.\\u0600︒\\u09CD\\uD83A\\uDDF4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1622\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{6E836}\x{193A}。\x{10BAA}\x{1CD1}", %p)}, undef, "to_unicode\(\'\\uD97A\\uDC36\\u193A\。\\uD802\\uDFAA\\u1CD1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1623\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{E04CC}\x{082A}.\x{0A48}\x{0A02}\x{AAF6}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D\\uDB41\\uDCCC\\u082A.\\u0A48\\u0A02\\uAAF6\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1624\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{E04CC}\x{082A}.\x{0A48}\x{0A02}\x{AAF6}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D\\uDB41\\uDCCC\\u082A.\\u0A48\\u0A02\\uAAF6\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1625\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{E04CC}\x{082A}.\x{0A48}\x{0A02}\x{AAF6}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D\\uDB41\\uDCCC\\u082A\.\\u0A48\\u0A02\\uAAF6\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1626\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{E04CC}\x{082A}.\x{0A48}\x{0A02}\x{AAF6}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D\\uDB41\\uDCCC\\u082A\.\\u0A48\\u0A02\\uAAF6\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1627\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{18135}。۹", %p)}, undef, "to_unicode\(\'\\uD820\\uDD35。۹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1628\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{18135}。۹", %p)}, undef, "to_unicode\(\'\\uD820\\uDD35\。۹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1629\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A68}刍.⋁", %p)}, undef, "to_unicode\(\'\\u1A68刍\.\⋁\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1630\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{E07E0}5。\x{AABE}🄈", %p)}, undef, "to_unicode\(\'\\uDB41\\uDFE05。\\uAABE🄈\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1631\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E07E0}5。\x{AABE}7,", %p)}, undef, "to_unicode\(\'\\uDB41\\uDFE05\。\\uAABE7\,\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1632\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0721}𝟳Ⴔ辘.\x{1EC88}ꡬ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0721𝟳Ⴔ辘\.\\uD83B\\uDC88ꡬ\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1633\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0721}𝟳Ⴔ辘.\x{1EC88}ꡬ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0721𝟳Ⴔ辘\.\\uD83B\\uDC88ꡬ\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1634\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0721}7Ⴔ辘.\x{1EC88}ꡬ\x{200C}", %p)}, undef, "to_unicode\(\'\\u07217Ⴔ辘\.\\uD83B\\uDC88ꡬ\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1635\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0721}7Ⴔ辘.\x{1EC88}ꡬ\x{200C}", %p)}, undef, "to_unicode\(\'\\u07217Ⴔ辘\.\\uD83B\\uDC88ꡬ\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1636\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0721}7ⴔ辘.\x{1EC88}ꡬ\x{200C}", %p)}, undef, "to_unicode\(\'\\u07217ⴔ辘\.\\uD83B\\uDC88ꡬ\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1637\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0721}7ⴔ辘.\x{1EC88}ꡬ\x{200C}", %p)}, undef, "to_unicode\(\'\\u07217ⴔ辘\.\\uD83B\\uDC88ꡬ\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1638\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0721}𝟳ⴔ辘.\x{1EC88}ꡬ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0721𝟳ⴔ辘\.\\uD83B\\uDC88ꡬ\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1639\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0721}𝟳ⴔ辘.\x{1EC88}ꡬ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0721𝟳ⴔ辘\.\\uD83B\\uDC88ꡬ\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1640\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0981}.ᠨ\x{10A88}\x{96CD6}𝟝", %p)}, undef, "to_unicode\(\'\\u0981\.ᠨ\\uD802\\uDE88\\uDA1B\\uDCD6𝟝\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1641\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0981}.ᠨ\x{10A88}\x{96CD6}5", %p)}, undef, "to_unicode\(\'\\u0981\.ᠨ\\uD802\\uDE88\\uDA1B\\uDCD65\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1642\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A87D}≯.\x{91B8E}\x{900A9}", %p)}, undef, "to_unicode\(\'\\uA87D\≯.\\uDA06\\uDF8E\\uDA00\\uDCA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1643\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A87D}>\x{0338}.\x{91B8E}\x{900A9}", %p)}, undef, "to_unicode\(\'\\uA87D\>\\u0338.\\uDA06\\uDF8E\\uDA00\\uDCA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1644\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A87D}≯.\x{91B8E}\x{900A9}", %p)}, undef, "to_unicode\(\'\\uA87D\≯\.\\uDA06\\uDF8E\\uDA00\\uDCA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1645\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A87D}>\x{0338}.\x{91B8E}\x{900A9}", %p)}, undef, "to_unicode\(\'\\uA87D\>\\u0338\.\\uDA06\\uDF8E\\uDA00\\uDCA9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1646\]") 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{084A}", %p)}, undef, "to_unicode\(\'ςოꡢ\.ς\\u084A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1647\]") 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{084A}", %p)}, undef, "to_unicode\(\'Σოꡢ\.Σ\\u084A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1648\]") 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{084A}", %p)}, undef, "to_unicode\(\'σოꡢ\.σ\\u084A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1649\]") 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{084A}", %p)}, undef, "to_unicode\(\'Σოꡢ\.σ\\u084A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1650\]") 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{084A}", %p)}, undef, "to_unicode\(\'Σოꡢ\.ς\\u084A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1651\]") 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{084A}", %p)}, undef, "to_unicode\(\'σოꡢ\.ς\\u084A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1652\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{6F521}\x{0316}\x{BA57D}ꡱ。㇟", %p)}, undef, "to_unicode\(\'\\uD97D\\uDD21\\u0316\\uDAA9\\uDD7Dꡱ。㇟\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1653\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{6F521}\x{0316}\x{BA57D}ꡱ。㇟", %p)}, undef, "to_unicode\(\'\\uD97D\\uDD21\\u0316\\uDAA9\\uDD7Dꡱ\。㇟\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1654\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E080A}.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_unicode\(\'\\uDB42\\uDC0A.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1655\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E080A}.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_unicode\(\'\\uDB42\\uDC0A.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1656\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E080A}.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_unicode\(\'\\uDB42\\uDC0A.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1657\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E080A}.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_unicode\(\'\\uDB42\\uDC0A.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1658\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E080A}.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_unicode\(\'\\uDB42\\uDC0A\.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1659\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E080A}.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_unicode\(\'\\uDB42\\uDC0A\.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1660\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E080A}.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_unicode\(\'\\uDB42\\uDC0A\.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1661\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E080A}.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_unicode\(\'\\uDB42\\uDC0A\.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1662\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E080A}.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_unicode\(\'\\uDB42\\uDC0A\.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1663\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E080A}.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_unicode\(\'\\uDB42\\uDC0A\.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1664\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E080A}.\x{200D}䤫≠ⴞ", %p)}, undef, "to_unicode\(\'\\uDB42\\uDC0A\.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1665\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E080A}.\x{200D}䤫≠ⴞ", %p)}, undef, "to_unicode\(\'\\uDB42\\uDC0A\.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1666\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E080A}.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_unicode\(\'\\uDB42\\uDC0A.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1667\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E080A}.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_unicode\(\'\\uDB42\\uDC0A.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1668\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E080A}.\x{200D}䤫≠ⴞ", %p)}, undef, "to_unicode\(\'\\uDB42\\uDC0A.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1669\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E080A}.\x{200D}䤫≠ⴞ", %p)}, undef, "to_unicode\(\'\\uDB42\\uDC0A.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1670\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10F30}\x{1B44}.\x{0667}\x{20E0}", %p)}, undef, "to_unicode\(\'\\uD803\\uDF30\\u1B44.\\u0667\\u20E0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1671\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10F30}\x{1B44}.\x{0667}\x{20E0}", %p)}, undef, "to_unicode\(\'\\uD803\\uDF30\\u1B44\.\\u0667\\u20E0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1672\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄉⒈\x{E01C0}。𝟷", %p)}, undef, "to_unicode\(\'🄉⒈\\uDB40\\uDDC0\。𝟷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1673\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("8,1.\x{E01C0}。1", %p)}, undef, "to_unicode\(\'8\,1\.\\uDB40\\uDDC0\。1\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1674\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}\x{070F}≮.\x{06DD}\x{5D709}4𝟤", %p)}, undef, "to_unicode\(\'\-\\u200C\\u070F\≮.\\u06DD\\uD935\\uDF094𝟤\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1675\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}\x{070F}≮.\x{06DD}\x{5D709}4𝟤", %p)}, undef, "to_unicode\(\'\-\\u200C\\u070F\≮.\\u06DD\\uD935\\uDF094𝟤\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1676\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}\x{070F}<\x{0338}.\x{06DD}\x{5D709}4𝟤", %p)}, undef, "to_unicode\(\'\-\\u200C\\u070F\<\\u0338.\\u06DD\\uD935\\uDF094𝟤\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1677\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}\x{070F}<\x{0338}.\x{06DD}\x{5D709}4𝟤", %p)}, undef, "to_unicode\(\'\-\\u200C\\u070F\<\\u0338.\\u06DD\\uD935\\uDF094𝟤\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1678\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}\x{070F}≮.\x{06DD}\x{5D709}42", %p)}, undef, "to_unicode\(\'\-\\u200C\\u070F\≮\.\\u06DD\\uD935\\uDF0942\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1679\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}\x{070F}≮.\x{06DD}\x{5D709}42", %p)}, undef, "to_unicode\(\'\-\\u200C\\u070F\≮\.\\u06DD\\uD935\\uDF0942\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1680\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}\x{070F}<\x{0338}.\x{06DD}\x{5D709}42", %p)}, undef, "to_unicode\(\'\-\\u200C\\u070F\<\\u0338\.\\u06DD\\uD935\\uDF0942\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1681\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}\x{070F}<\x{0338}.\x{06DD}\x{5D709}42", %p)}, undef, "to_unicode\(\'\-\\u200C\\u070F\<\\u0338\.\\u06DD\\uD935\\uDF0942\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1682\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-≯딾。\x{0842}", %p)}, undef, "to_unicode\(\'\-\≯딾。\\u0842\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1683\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("->\x{0338}딾。\x{0842}", %p)}, undef, "to_unicode\(\'\-\>\\u0338딾。\\u0842\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1684\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-≯딾。\x{0842}", %p)}, undef, "to_unicode\(\'\-\≯딾\。\\u0842\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1685\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("->\x{0338}딾。\x{0842}", %p)}, undef, "to_unicode\(\'\-\>\\u0338딾\。\\u0842\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1686\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⽉⒈\x{10E70}-。🀴\x{200C}", %p)}, undef, "to_unicode\(\'⽉⒈\\uD803\\uDE70\-。🀴\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1687\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⽉⒈\x{10E70}-。🀴\x{200C}", %p)}, undef, "to_unicode\(\'⽉⒈\\uD803\\uDE70\-。🀴\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1688\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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.\x{10E70}-。🀴\x{200C}", %p)}, undef, "to_unicode\(\'月1\.\\uD803\\uDE70\-\。🀴\\u200C\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:1689\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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.\x{10E70}-。🀴\x{200C}", %p)}, undef, "to_unicode\(\'月1\.\\uD803\\uDE70\-\。🀴\\u200C\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:1690\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0FB0}.\x{033E}", %p)}, undef, "to_unicode\(\'\\u0FB0.\\u033E\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1691\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FB0}.\x{033E}", %p)}, undef, "to_unicode\(\'\\u0FB0\.\\u033E\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1692\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("훉≮。\x{031B}", %p)}, undef, "to_unicode\(\'훉\≮。\\u031B\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1693\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("훉<\x{0338}。\x{031B}", %p)}, undef, "to_unicode\(\'훉\<\\u0338。\\u031B\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1694\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("훉≮。\x{031B}", %p)}, undef, "to_unicode\(\'훉\≮\。\\u031B\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1695\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("훉<\x{0338}。\x{031B}", %p)}, undef, "to_unicode\(\'훉\<\\u0338\。\\u031B\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1696\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE20}\x{40209}\x{E03D0}.\x{B6627}۰\x{08EC}ᡁ", %p)}, undef, "to_unicode\(\'\\uFE20\\uD8C0\\uDE09\\uDB40\\uDFD0.\\uDA99\\uDE27۰\\u08ECᡁ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1697\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE20}\x{40209}\x{E03D0}.\x{B6627}۰\x{08EC}ᡁ", %p)}, undef, "to_unicode\(\'\\uFE20\\uD8C0\\uDE09\\uDB40\\uDFD0\.\\uDA99\\uDE27۰\\u08ECᡁ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1698\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A216}ß\x{0620}\x{200C}。\x{10E7A}\x{10C0A}\x{1E9E0}-", %p)}, undef, "to_unicode\(\'\\uD828\\uDE16ß\\u0620\\u200C\。\\uD803\\uDE7A\\uD803\\uDC0A\\uD83A\\uDDE0\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1699\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A216}ß\x{0620}\x{200C}。\x{10E7A}\x{10C0A}\x{1E9E0}-", %p)}, undef, "to_unicode\(\'\\uD828\\uDE16ß\\u0620\\u200C\。\\uD803\\uDE7A\\uD803\\uDC0A\\uD83A\\uDDE0\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1700\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A216}SS\x{0620}\x{200C}。\x{10E7A}\x{10C0A}\x{1E9E0}-", %p)}, undef, "to_unicode\(\'\\uD828\\uDE16SS\\u0620\\u200C\。\\uD803\\uDE7A\\uD803\\uDC0A\\uD83A\\uDDE0\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1701\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A216}SS\x{0620}\x{200C}。\x{10E7A}\x{10C0A}\x{1E9E0}-", %p)}, undef, "to_unicode\(\'\\uD828\\uDE16SS\\u0620\\u200C\。\\uD803\\uDE7A\\uD803\\uDC0A\\uD83A\\uDDE0\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1702\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A216}ss\x{0620}\x{200C}。\x{10E7A}\x{10C0A}\x{1E9E0}-", %p)}, undef, "to_unicode\(\'\\uD828\\uDE16ss\\u0620\\u200C\。\\uD803\\uDE7A\\uD803\\uDC0A\\uD83A\\uDDE0\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1703\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A216}ss\x{0620}\x{200C}。\x{10E7A}\x{10C0A}\x{1E9E0}-", %p)}, undef, "to_unicode\(\'\\uD828\\uDE16ss\\u0620\\u200C\。\\uD803\\uDE7A\\uD803\\uDC0A\\uD83A\\uDDE0\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1704\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A216}Ss\x{0620}\x{200C}。\x{10E7A}\x{10C0A}\x{1E9E0}-", %p)}, undef, "to_unicode\(\'\\uD828\\uDE16Ss\\u0620\\u200C\。\\uD803\\uDE7A\\uD803\\uDC0A\\uD83A\\uDDE0\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1705\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A216}Ss\x{0620}\x{200C}。\x{10E7A}\x{10C0A}\x{1E9E0}-", %p)}, undef, "to_unicode\(\'\\uD828\\uDE16Ss\\u0620\\u200C\。\\uD803\\uDE7A\\uD803\\uDC0A\\uD83A\\uDDE0\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1706\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0729}。Ↄ\x{E048B}놮-", %p)}, undef, "to_unicode\(\'\\u0729\。Ↄ\\uDB41\\uDC8B놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1707\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0729}。Ↄ\x{E048B}놮-", %p)}, undef, "to_unicode\(\'\\u0729\。Ↄ\\uDB41\\uDC8B놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1708\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0729}。ↄ\x{E048B}놮-", %p)}, undef, "to_unicode\(\'\\u0729\。ↄ\\uDB41\\uDC8B놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1709\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0729}。ↄ\x{E048B}놮-", %p)}, undef, "to_unicode\(\'\\u0729\。ↄ\\uDB41\\uDC8B놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1710\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EC01}\x{200D}.\x{99A6A}\x{06A3}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDC01\\u200D\.\\uDA26\\uDE6A\\u06A3\'\)\ throws\ error\ P1\ V6\ B3\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1711\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EC01}\x{200D}.\x{99A6A}\x{06A3}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDC01\\u200D\.\\uDA26\\uDE6A\\u06A3\'\)\ throws\ error\ P1\ V6\ B3\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1712\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴜ\x{E01CA}\x{07BB}≯。\x{0743}\x{E04C3}\x{1073}", %p)}, undef, "to_unicode\(\'Ⴜ\\uDB40\\uDDCA\\u07BB\≯\。\\u0743\\uDB41\\uDCC3\\u1073\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1713\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴜ\x{E01CA}\x{07BB}>\x{0338}。\x{0743}\x{E04C3}\x{1073}", %p)}, undef, "to_unicode\(\'Ⴜ\\uDB40\\uDDCA\\u07BB\>\\u0338\。\\u0743\\uDB41\\uDCC3\\u1073\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1714\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴜ\x{E01CA}\x{07BB}>\x{0338}。\x{0743}\x{E04C3}\x{1073}", %p)}, undef, "to_unicode\(\'ⴜ\\uDB40\\uDDCA\\u07BB\>\\u0338\。\\u0743\\uDB41\\uDCC3\\u1073\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1715\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴜ\x{E01CA}\x{07BB}≯。\x{0743}\x{E04C3}\x{1073}", %p)}, undef, "to_unicode\(\'ⴜ\\uDB40\\uDDCA\\u07BB\≯\。\\u0743\\uDB41\\uDCC3\\u1073\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1716\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟺。\x{FCEA}", %p)}, "4.\x{0634}\x{0647}", "to_unicode\(\'𝟺\。\\uFCEA\'\)\ \[data\/IdnaTest\.txt\:1717\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4。\x{0634}\x{0647}", %p)}, "4.\x{0634}\x{0647}", "to_unicode\(\'4\。\\u0634\\u0647\'\)\ \[data\/IdnaTest\.txt\:1718\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4.xn--zgb2b", %p)}, "4.\x{0634}\x{0647}", "to_unicode\(\'4\.xn\-\-zgb2b\'\)\ \[data\/IdnaTest\.txt\:1719\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4.\x{0634}\x{0647}", %p)}, "4.\x{0634}\x{0647}", "to_unicode\(\'4\.\\u0634\\u0647\'\)\ \[data\/IdnaTest\.txt\:1720\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮\x{0A42}.\x{DD212}\x{09C3}\x{2E48}\x{DE331}", %p)}, undef, "to_unicode\(\'\≮\\u0A42.\\uDB34\\uDE12\\u09C3\\u2E48\\uDB38\\uDF31\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1721\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{0A42}.\x{DD212}\x{09C3}\x{2E48}\x{DE331}", %p)}, undef, "to_unicode\(\'\<\\u0338\\u0A42.\\uDB34\\uDE12\\u09C3\\u2E48\\uDB38\\uDF31\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1722\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮\x{0A42}.\x{DD212}\x{09C3}\x{2E48}\x{DE331}", %p)}, undef, "to_unicode\(\'\≮\\u0A42\.\\uDB34\\uDE12\\u09C3\\u2E48\\uDB38\\uDF31\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1723\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{0A42}.\x{DD212}\x{09C3}\x{2E48}\x{DE331}", %p)}, undef, "to_unicode\(\'\<\\u0338\\u0A42\.\\uDB34\\uDE12\\u09C3\\u2E48\\uDB38\\uDF31\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1724\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B6D}\x{05BA}ᢕ.\x{E016D}\x{10E72}\x{E0D0D}", %p)}, undef, "to_unicode\(\'\\u1B6D\\u05BAᢕ.\\uDB40\\uDD6D\\uD803\\uDE72\\uDB43\\uDD0D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1725\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{05BA}\x{1B6D}ᢕ.\x{E016D}\x{10E72}\x{E0D0D}", %p)}, undef, "to_unicode\(\'\\u05BA\\u1B6Dᢕ.\\uDB40\\uDD6D\\uD803\\uDE72\\uDB43\\uDD0D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1726\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{05BA}\x{1B6D}ᢕ.\x{E016D}\x{10E72}\x{E0D0D}", %p)}, undef, "to_unicode\(\'\\u05BA\\u1B6Dᢕ\.\\uDB40\\uDD6D\\uD803\\uDE72\\uDB43\\uDD0D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1727\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10EB5}\x{08A5}\x{200C}\x{0842}.\x{110B9}\x{E01A9}", %p)}, undef, "to_unicode\(\'\\uD803\\uDEB5\\u08A5\\u200C\\u0842.\\uD804\\uDCB9\\uDB40\\uDDA9\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1728\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10EB5}\x{08A5}\x{200C}\x{0842}.\x{110B9}\x{E01A9}", %p)}, undef, "to_unicode\(\'\\uD803\\uDEB5\\u08A5\\u200C\\u0842\.\\uD804\\uDCB9\\uDB40\\uDDA9\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1729\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{ABED}。\x{200D}\x{9F82E}\x{E0391}\x{8D875}", %p)}, undef, "to_unicode\(\'\\uABED。\\u200D\\uDA3E\\uDC2E\\uDB40\\uDF91\\uD9F6\\uDC75\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1730\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{ABED}。\x{200D}\x{9F82E}\x{E0391}\x{8D875}", %p)}, undef, "to_unicode\(\'\\uABED。\\u200D\\uDA3E\\uDC2E\\uDB40\\uDF91\\uD9F6\\uDC75\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1731\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{ABED}。\x{200D}\x{9F82E}\x{E0391}\x{8D875}", %p)}, undef, "to_unicode\(\'\\uABED\。\\u200D\\uDA3E\\uDC2E\\uDB40\\uDF91\\uD9F6\\uDC75\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1732\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{ABED}。\x{200D}\x{9F82E}\x{E0391}\x{8D875}", %p)}, undef, "to_unicode\(\'\\uABED\。\\u200D\\uDA3E\\uDC2E\\uDB40\\uDF91\\uD9F6\\uDC75\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1733\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{FB58}。𝟪", %p)}, undef, "to_unicode\(\'\-\\uFB58\。𝟪\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1734\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{067E}。8", %p)}, undef, "to_unicode\(\'\-\\u067E\。8\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1735\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E5ABF}\x{07D7}\x{200C}。ꡲ\x{200D}", %p)}, undef, "to_unicode\(\'\\uDB56\\uDEBF\\u07D7\\u200C。ꡲ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ C2\ \[data\/IdnaTest\.txt\:1736\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E5ABF}\x{07D7}\x{200C}。ꡲ\x{200D}", %p)}, undef, "to_unicode\(\'\\uDB56\\uDEBF\\u07D7\\u200C。ꡲ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ C2\ \[data\/IdnaTest\.txt\:1737\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E5ABF}\x{07D7}\x{200C}。ꡲ\x{200D}", %p)}, undef, "to_unicode\(\'\\uDB56\\uDEBF\\u07D7\\u200C\。ꡲ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ C2\ \[data\/IdnaTest\.txt\:1738\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E5ABF}\x{07D7}\x{200C}。ꡲ\x{200D}", %p)}, undef, "to_unicode\(\'\\uDB56\\uDEBF\\u07D7\\u200C\。ꡲ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ C2\ \[data\/IdnaTest\.txt\:1739\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{0C4C}\x{0827}。ᡨ8🄆", %p)}, undef, "to_unicode\(\'ß\\u0C4C\\u0827\。ᡨ8🄆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1740\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{0C4C}\x{0827}。ᡨ85,", %p)}, undef, "to_unicode\(\'ß\\u0C4C\\u0827\。ᡨ85\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1741\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{0C4C}\x{0827}。ᡨ85,", %p)}, undef, "to_unicode\(\'SS\\u0C4C\\u0827\。ᡨ85\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1742\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{0C4C}\x{0827}。ᡨ85,", %p)}, undef, "to_unicode\(\'ss\\u0C4C\\u0827\。ᡨ85\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1743\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{0C4C}\x{0827}。ᡨ85,", %p)}, undef, "to_unicode\(\'Ss\\u0C4C\\u0827\。ᡨ85\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1744\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{0C4C}\x{0827}。ᡨ8🄆", %p)}, undef, "to_unicode\(\'SS\\u0C4C\\u0827\。ᡨ8🄆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1745\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{0C4C}\x{0827}。ᡨ8🄆", %p)}, undef, "to_unicode\(\'ss\\u0C4C\\u0827\。ᡨ8🄆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1746\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{0C4C}\x{0827}。ᡨ8🄆", %p)}, undef, "to_unicode\(\'Ss\\u0C4C\\u0827\。ᡨ8🄆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1747\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A60}\x{0B3C}魅⒔.₉\x{0600}ß", %p)}, undef, "to_unicode\(\'\\u1A60\\u0B3C魅⒔.₉\\u0600ß\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1748\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B3C}\x{1A60}魅⒔.₉\x{0600}ß", %p)}, undef, "to_unicode\(\'\\u0B3C\\u1A60魅⒔.₉\\u0600ß\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1749\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B3C}\x{1A60}魅13..9\x{0600}ß", %p)}, undef, "to_unicode\(\'\\u0B3C\\u1A60魅13\.\.9\\u0600ß\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1750\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B3C}\x{1A60}魅13..9\x{0600}SS", %p)}, undef, "to_unicode\(\'\\u0B3C\\u1A60魅13\.\.9\\u0600SS\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1751\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B3C}\x{1A60}魅13..9\x{0600}ss", %p)}, undef, "to_unicode\(\'\\u0B3C\\u1A60魅13\.\.9\\u0600ss\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1752\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B3C}\x{1A60}魅13..9\x{0600}Ss", %p)}, undef, "to_unicode\(\'\\u0B3C\\u1A60魅13\.\.9\\u0600Ss\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1753\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B3C}\x{1A60}魅⒔.₉\x{0600}SS", %p)}, undef, "to_unicode\(\'\\u0B3C\\u1A60魅⒔.₉\\u0600SS\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1754\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B3C}\x{1A60}魅⒔.₉\x{0600}ss", %p)}, undef, "to_unicode\(\'\\u0B3C\\u1A60魅⒔.₉\\u0600ss\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1755\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B3C}\x{1A60}魅⒔.₉\x{0600}Ss", %p)}, undef, "to_unicode\(\'\\u0B3C\\u1A60魅⒔.₉\\u0600Ss\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1756\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A60}\x{0B3C}魅⒔.₉\x{0600}SS", %p)}, undef, "to_unicode\(\'\\u1A60\\u0B3C魅⒔.₉\\u0600SS\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1757\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A60}\x{0B3C}魅⒔.₉\x{0600}ss", %p)}, undef, "to_unicode\(\'\\u1A60\\u0B3C魅⒔.₉\\u0600ss\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1758\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A60}\x{0B3C}魅⒔.₉\x{0600}Ss", %p)}, undef, "to_unicode\(\'\\u1A60\\u0B3C魅⒔.₉\\u0600Ss\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1759\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07E7}。\x{AAF6}⒈\x{0CCD}⾞", %p)}, undef, "to_unicode\(\'\\u07E7。\\uAAF6⒈\\u0CCD⾞\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1760\]") 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{07E7}。\x{AAF6}1.\x{0CCD}車", %p)}, undef, "to_unicode\(\'\\u07E7\。\\uAAF61\.\\u0CCD車\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1761\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0C4B}છ。嵨", %p)}, undef, "to_unicode\(\'\\u0C4Bછ\。嵨\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1762\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴔ≠Ⴀ.\x{0666}\x{0662}", %p)}, undef, "to_unicode\(\'Ⴔ\≠Ⴀ\.\\u0666\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1763\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴔ=\x{0338}Ⴀ.\x{0666}\x{0662}", %p)}, undef, "to_unicode\(\'Ⴔ\=\\u0338Ⴀ\.\\u0666\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1764\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴔ=\x{0338}ⴀ.\x{0666}\x{0662}", %p)}, undef, "to_unicode\(\'ⴔ\=\\u0338ⴀ\.\\u0666\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1765\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴔ≠ⴀ.\x{0666}\x{0662}", %p)}, undef, "to_unicode\(\'ⴔ\≠ⴀ\.\\u0666\\u0662\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1766\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}⒙\x{E01BA}。\x{20EA}", %p)}, undef, "to_unicode\(\'\-\\u200C⒙\\uDB40\\uDDBA。\\u20EA\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1767\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}⒙\x{E01BA}。\x{20EA}", %p)}, undef, "to_unicode\(\'\-\\u200C⒙\\uDB40\\uDDBA。\\u20EA\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1768\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}18.\x{E01BA}。\x{20EA}", %p)}, undef, "to_unicode\(\'\-\\u200C18\.\\uDB40\\uDDBA\。\\u20EA\'\)\ throws\ error\ V3\ V5\ C1\ A4_2\ \[data\/IdnaTest\.txt\:1769\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}18.\x{E01BA}。\x{20EA}", %p)}, undef, "to_unicode\(\'\-\\u200C18\.\\uDB40\\uDDBA\。\\u20EA\'\)\ throws\ error\ V3\ V5\ C1\ A4_2\ \[data\/IdnaTest\.txt\:1770\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒.ʌ\x{0635}-\x{0669}", %p)}, undef, "to_unicode\(\'︒\.ʌ\\u0635\-\\u0669\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1771\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。.ʌ\x{0635}-\x{0669}", %p)}, undef, "to_unicode\(\'\。\.ʌ\\u0635\-\\u0669\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1772\]") 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{0635}-\x{0669}", %p)}, undef, "to_unicode\(\'\。\.Ʌ\\u0635\-\\u0669\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1773\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("︒.Ʌ\x{0635}-\x{0669}", %p)}, undef, "to_unicode\(\'︒\.Ʌ\\u0635\-\\u0669\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1774\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0347}︒。\x{37450}\x{1CD6}", %p)}, undef, "to_unicode\(\'\\u0347︒\。\\uD89D\\uDC50\\u1CD6\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1775\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0347}。。\x{37450}\x{1CD6}", %p)}, undef, "to_unicode\(\'\\u0347\。\。\\uD89D\\uDC50\\u1CD6\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1776\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1E8DD}ß\x{E3676}。ᠯ", %p)}, undef, "to_unicode\(\'\\uD83A\\uDCDDß\\uDB4D\\uDE76\。ᠯ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1777\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1E8DD}SS\x{E3676}。ᠯ", %p)}, undef, "to_unicode\(\'\\uD83A\\uDCDDSS\\uDB4D\\uDE76\。ᠯ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1778\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1E8DD}ss\x{E3676}。ᠯ", %p)}, undef, "to_unicode\(\'\\uD83A\\uDCDDss\\uDB4D\\uDE76\。ᠯ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1779\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1E8DD}Ss\x{E3676}。ᠯ", %p)}, undef, "to_unicode\(\'\\uD83A\\uDCDDSs\\uDB4D\\uDE76\。ᠯ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1780\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0C4D}\x{200D}ꡂ\x{10E7E}。\x{79186}\x{9A953}\x{200C}\x{0308}", %p)}, undef, "to_unicode\(\'\\u0C4D\\u200Dꡂ\\uD803\\uDE7E\。\\uD9A4\\uDD86\\uDA2A\\uDD53\\u200C\\u0308\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1781\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0C4D}\x{200D}ꡂ\x{10E7E}。\x{79186}\x{9A953}\x{200C}\x{0308}", %p)}, undef, "to_unicode\(\'\\u0C4D\\u200Dꡂ\\uD803\\uDE7E\。\\uD9A4\\uDD86\\uDA2A\\uDD53\\u200C\\u0308\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1782\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-ß\x{200C}≠", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1783\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-ß\x{200C}≠", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1784\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-ß\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1785\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-ß\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1786\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-ß\x{200C}≠", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1\.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1787\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-ß\x{200C}≠", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1\.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1788\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-ß\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1\.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1789\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-ß\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1\.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1790\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-SS\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1\.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1791\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-SS\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1\.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1792\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-SS\x{200C}≠", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1\.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1793\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-SS\x{200C}≠", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1\.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1794\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1\.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1795\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1\.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1796\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1\.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1797\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1\.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1798\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1\.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1799\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1\.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1800\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-Ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1\.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1801\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-Ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1\.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1802\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-SS\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1803\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-SS\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1804\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-SS\x{200C}≠", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1805\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-SS\x{200C}≠", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1806\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1807\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1808\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1809\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1810\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1811\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1812\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-Ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1813\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF1}.-Ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF1.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1814\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}\x{200C}。≯𝟡≠", %p)}, undef, "to_unicode\(\'\\u0641\\u200C。\≯𝟡\≠\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1815\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}\x{200C}。≯𝟡≠", %p)}, undef, "to_unicode\(\'\\u0641\\u200C。\≯𝟡\≠\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1816\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}\x{200C}。>\x{0338}𝟡=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0641\\u200C。\>\\u0338𝟡\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1817\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}\x{200C}。>\x{0338}𝟡=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0641\\u200C。\>\\u0338𝟡\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1818\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}\x{200C}。≯9≠", %p)}, undef, "to_unicode\(\'\\u0641\\u200C\。\≯9\≠\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1819\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}\x{200C}。≯9≠", %p)}, undef, "to_unicode\(\'\\u0641\\u200C\。\≯9\≠\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1820\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}\x{200C}。>\x{0338}9=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0641\\u200C\。\>\\u03389\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1821\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}\x{200C}。>\x{0338}9=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0641\\u200C\。\>\\u03389\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1822\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E74}\x{1E84A}\x{1CDC}\x{8F885}。\x{E0063}⁴", %p)}, undef, "to_unicode\(\'\\uD803\\uDE74\\uD83A\\uDC4A\\u1CDC\\uD9FE\\uDC85\。\\uDB40\\uDC63⁴\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1823\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E74}\x{1E84A}\x{1CDC}\x{8F885}。\x{E0063}4", %p)}, undef, "to_unicode\(\'\\uD803\\uDE74\\uD83A\\uDC4A\\u1CDC\\uD9FE\\uDC85\。\\uDB40\\uDC634\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1824\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴄ.\x{200D}ᡇ𦥍ς", %p)}, undef, "to_unicode\(\'Ⴄ.\\u200Dᡇ𦥍ς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1825\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴄ.\x{200D}ᡇ𦥍ς", %p)}, undef, "to_unicode\(\'Ⴄ.\\u200Dᡇ𦥍ς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1826\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴄ.\x{200D}ᡇ𦥍ς", %p)}, undef, "to_unicode\(\'Ⴄ\.\\u200Dᡇ𦥍ς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1827\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴄ.\x{200D}ᡇ𦥍ς", %p)}, undef, "to_unicode\(\'Ⴄ\.\\u200Dᡇ𦥍ς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1828\]") 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\ C2\ \[data\/IdnaTest\.txt\:1829\]") 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\ C2\ \[data\/IdnaTest\.txt\:1830\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴄ.\x{200D}ᡇ𦥍Σ", %p)}, undef, "to_unicode\(\'Ⴄ\.\\u200Dᡇ𦥍Σ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1831\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴄ.\x{200D}ᡇ𦥍Σ", %p)}, undef, "to_unicode\(\'Ⴄ\.\\u200Dᡇ𦥍Σ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1832\]") 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\ C2\ \[data\/IdnaTest\.txt\:1833\]") 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\ C2\ \[data\/IdnaTest\.txt\:1834\]") 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--vkj.xn--4xa716hww74b", %p)}, "ⴄ.ᡇ𦥍σ", "to_unicode\(\'xn\-\-vkj\.xn\-\-4xa716hww74b\'\)\ \[data\/IdnaTest\.txt\:1835\]") 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\:1836\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴄ.ᡇ𦥍Σ", %p)}, undef, "to_unicode\(\'Ⴄ\.ᡇ𦥍Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1837\]") 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\ C2\ \[data\/IdnaTest\.txt\:1838\]") 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\ C2\ \[data\/IdnaTest\.txt\:1839\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴄ.\x{200D}ᡇ𦥍Σ", %p)}, undef, "to_unicode\(\'Ⴄ.\\u200Dᡇ𦥍Σ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1840\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴄ.\x{200D}ᡇ𦥍Σ", %p)}, undef, "to_unicode\(\'Ⴄ.\\u200Dᡇ𦥍Σ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1841\]") 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\ C2\ \[data\/IdnaTest\.txt\:1842\]") 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\ C2\ \[data\/IdnaTest\.txt\:1843\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{946D2}\x{E01B7}.Ⴕ", %p)}, undef, "to_unicode\(\'\\uDA11\\uDED2\\uDB40\\uDDB7\.Ⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1844\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{946D2}\x{E01B7}.ⴕ", %p)}, undef, "to_unicode\(\'\\uDA11\\uDED2\\uDB40\\uDDB7\.ⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1845\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{E0070}\x{1E98E}。\x{200C}\x{1B44}⻱\x{200D}", %p)}, undef, "to_unicode\(\'\≯\\uDB40\\uDC70\\uD83A\\uDD8E\。\\u200C\\u1B44⻱\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1846\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{E0070}\x{1E98E}。\x{200C}\x{1B44}⻱\x{200D}", %p)}, undef, "to_unicode\(\'\≯\\uDB40\\uDC70\\uD83A\\uDD8E\。\\u200C\\u1B44⻱\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1847\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{E0070}\x{1E98E}。\x{200C}\x{1B44}⻱\x{200D}", %p)}, undef, "to_unicode\(\'\>\\u0338\\uDB40\\uDC70\\uD83A\\uDD8E\。\\u200C\\u1B44⻱\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1848\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{E0070}\x{1E98E}。\x{200C}\x{1B44}⻱\x{200D}", %p)}, undef, "to_unicode\(\'\>\\u0338\\uDB40\\uDC70\\uD83A\\uDD8E\。\\u200C\\u1B44⻱\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1849\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{05B0}。\x{E6583}", %p)}, undef, "to_unicode\(\'\\u200C\\u05B0。\\uDB59\\uDD83\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1850\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{05B0}。\x{E6583}", %p)}, undef, "to_unicode\(\'\\u200C\\u05B0。\\uDB59\\uDD83\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1851\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{05B0}。\x{E6583}", %p)}, undef, "to_unicode\(\'\\u200C\\u05B0\。\\uDB59\\uDD83\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1852\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{05B0}。\x{E6583}", %p)}, undef, "to_unicode\(\'\\u200C\\u05B0\。\\uDB59\\uDD83\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1853\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{E01C1}焅.\x{583E9}\x{200D}ꡑ", %p)}, undef, "to_unicode\(\'⒈\\uDB40\\uDDC1焅\.\\uD920\\uDFE9\\u200Dꡑ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1854\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{E01C1}焅.\x{583E9}\x{200D}ꡑ", %p)}, undef, "to_unicode\(\'⒈\\uDB40\\uDDC1焅\.\\uD920\\uDFE9\\u200Dꡑ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1855\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{E01C1}焅.\x{583E9}\x{200D}ꡑ", %p)}, undef, "to_unicode\(\'1\.\\uDB40\\uDDC1焅\.\\uD920\\uDFE9\\u200Dꡑ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1856\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{E01C1}焅.\x{583E9}\x{200D}ꡑ", %p)}, undef, "to_unicode\(\'1\.\\uDB40\\uDDC1焅\.\\uD920\\uDFE9\\u200Dꡑ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1857\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DDA}ς≮.ς\x{E0184}\x{0762}𝟽", %p)}, undef, "to_unicode\(\'\\u1DDAς\≮\.ς\\uDB40\\uDD84\\u0762𝟽\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1858\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DDA}ς<\x{0338}.ς\x{E0184}\x{0762}𝟽", %p)}, undef, "to_unicode\(\'\\u1DDAς\<\\u0338\.ς\\uDB40\\uDD84\\u0762𝟽\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1859\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DDA}ς≮.ς\x{E0184}\x{0762}7", %p)}, undef, "to_unicode\(\'\\u1DDAς\≮\.ς\\uDB40\\uDD84\\u07627\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1860\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DDA}ς<\x{0338}.ς\x{E0184}\x{0762}7", %p)}, undef, "to_unicode\(\'\\u1DDAς\<\\u0338\.ς\\uDB40\\uDD84\\u07627\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1861\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DDA}Σ<\x{0338}.Σ\x{E0184}\x{0762}7", %p)}, undef, "to_unicode\(\'\\u1DDAΣ\<\\u0338\.Σ\\uDB40\\uDD84\\u07627\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1862\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DDA}Σ≮.Σ\x{E0184}\x{0762}7", %p)}, undef, "to_unicode\(\'\\u1DDAΣ\≮\.Σ\\uDB40\\uDD84\\u07627\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1863\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DDA}σ≮.σ\x{E0184}\x{0762}7", %p)}, undef, "to_unicode\(\'\\u1DDAσ\≮\.σ\\uDB40\\uDD84\\u07627\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1864\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DDA}σ<\x{0338}.σ\x{E0184}\x{0762}7", %p)}, undef, "to_unicode\(\'\\u1DDAσ\<\\u0338\.σ\\uDB40\\uDD84\\u07627\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1865\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DDA}Σ<\x{0338}.Σ\x{E0184}\x{0762}𝟽", %p)}, undef, "to_unicode\(\'\\u1DDAΣ\<\\u0338\.Σ\\uDB40\\uDD84\\u0762𝟽\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1866\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DDA}Σ≮.Σ\x{E0184}\x{0762}𝟽", %p)}, undef, "to_unicode\(\'\\u1DDAΣ\≮\.Σ\\uDB40\\uDD84\\u0762𝟽\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1867\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DDA}σ≮.σ\x{E0184}\x{0762}𝟽", %p)}, undef, "to_unicode\(\'\\u1DDAσ\≮\.σ\\uDB40\\uDD84\\u0762𝟽\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1868\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DDA}σ<\x{0338}.σ\x{E0184}\x{0762}𝟽", %p)}, undef, "to_unicode\(\'\\u1DDAσ\<\\u0338\.σ\\uDB40\\uDD84\\u0762𝟽\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1869\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{D69D1}ß\x{033D}\x{0767}.\x{E014E}\x{0755}", %p)}, undef, "to_unicode\(\'\\uDB1A\\uDDD1ß\\u033D\\u0767\.\\uDB40\\uDD4E\\u0755\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1870\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{D69D1}SS\x{033D}\x{0767}.\x{E014E}\x{0755}", %p)}, undef, "to_unicode\(\'\\uDB1A\\uDDD1SS\\u033D\\u0767\.\\uDB40\\uDD4E\\u0755\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1871\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{D69D1}ss\x{033D}\x{0767}.\x{E014E}\x{0755}", %p)}, undef, "to_unicode\(\'\\uDB1A\\uDDD1ss\\u033D\\u0767\.\\uDB40\\uDD4E\\u0755\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1872\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{D69D1}Ss\x{033D}\x{0767}.\x{E014E}\x{0755}", %p)}, undef, "to_unicode\(\'\\uDB1A\\uDDD1Ss\\u033D\\u0767\.\\uDB40\\uDD4E\\u0755\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1873\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{FC12}。⒈", %p)}, undef, "to_unicode\(\'\-\\uFC12。⒈\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1874\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{062B}\x{0645}。1.", %p)}, undef, "to_unicode\(\'\-\\u062B\\u0645\。1\.\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1875\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{87A26}\x{0682}𝟲。\x{06EF}\x{1734}", %p)}, undef, "to_unicode\(\'\\uD9DE\\uDE26\\u0682𝟲\。\\u06EF\\u1734\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1876\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{87A26}\x{0682}6。\x{06EF}\x{1734}", %p)}, undef, "to_unicode\(\'\\uD9DE\\uDE26\\u06826\。\\u06EF\\u1734\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1877\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E64}\x{10F90}\x{0666}\x{0EB9}.\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE64\\uD803\\uDF90\\u0666\\u0EB9\.\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1878\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E64}\x{10F90}\x{0666}\x{0EB9}.\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE64\\uD803\\uDF90\\u0666\\u0EB9\.\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1879\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("₅.Ⴇ\x{32E8C}\x{10D51}\x{ECE9B}", %p)}, undef, "to_unicode\(\'₅.Ⴇ\\uD88B\\uDE8C\\uD803\\uDD51\\uDB73\\uDE9B\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1880\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("5.Ⴇ\x{32E8C}\x{10D51}\x{ECE9B}", %p)}, undef, "to_unicode\(\'5\.Ⴇ\\uD88B\\uDE8C\\uD803\\uDD51\\uDB73\\uDE9B\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1881\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("5.ⴇ\x{32E8C}\x{10D51}\x{ECE9B}", %p)}, undef, "to_unicode\(\'5\.ⴇ\\uD88B\\uDE8C\\uD803\\uDD51\\uDB73\\uDE9B\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1882\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("₅.ⴇ\x{32E8C}\x{10D51}\x{ECE9B}", %p)}, undef, "to_unicode\(\'₅.ⴇ\\uD88B\\uDE8C\\uD803\\uDD51\\uDB73\\uDE9B\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1883\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F84}\x{E052B}.\x{E0169}ꡇ", %p)}, undef, "to_unicode\(\'\\u0F84\\uDB41\\uDD2B\.\\uDB40\\uDD69ꡇ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1884\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-\x{075F}.\x{67A96}", %p)}, undef, "to_unicode\(\'\\u200D\-\\u075F\.\\uD95E\\uDE96\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1885\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-\x{075F}.\x{67A96}", %p)}, undef, "to_unicode\(\'\\u200D\-\\u075F\.\\uD95E\\uDE96\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1886\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BA}ꡛ\x{074E}寐。\x{200C}≯\x{E01FF}", %p)}, undef, "to_unicode\(\'\\u06BAꡛ\\u074E寐。\\u200C\≯\\uDB40\\uDDFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1887\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BA}ꡛ\x{074E}寐。\x{200C}≯\x{E01FF}", %p)}, undef, "to_unicode\(\'\\u06BAꡛ\\u074E寐。\\u200C\≯\\uDB40\\uDDFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1888\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BA}ꡛ\x{074E}寐。\x{200C}>\x{0338}\x{E01FF}", %p)}, undef, "to_unicode\(\'\\u06BAꡛ\\u074E寐。\\u200C\>\\u0338\\uDB40\\uDDFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1889\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BA}ꡛ\x{074E}寐。\x{200C}>\x{0338}\x{E01FF}", %p)}, undef, "to_unicode\(\'\\u06BAꡛ\\u074E寐。\\u200C\>\\u0338\\uDB40\\uDDFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1890\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BA}ꡛ\x{074E}寐。\x{200C}≯\x{E01FF}", %p)}, undef, "to_unicode\(\'\\u06BAꡛ\\u074E寐\。\\u200C\≯\\uDB40\\uDDFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1891\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BA}ꡛ\x{074E}寐。\x{200C}≯\x{E01FF}", %p)}, undef, "to_unicode\(\'\\u06BAꡛ\\u074E寐\。\\u200C\≯\\uDB40\\uDDFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1892\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BA}ꡛ\x{074E}寐。\x{200C}>\x{0338}\x{E01FF}", %p)}, undef, "to_unicode\(\'\\u06BAꡛ\\u074E寐\。\\u200C\>\\u0338\\uDB40\\uDDFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1893\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BA}ꡛ\x{074E}寐。\x{200C}>\x{0338}\x{E01FF}", %p)}, undef, "to_unicode\(\'\\u06BAꡛ\\u074E寐\。\\u200C\>\\u0338\\uDB40\\uDDFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1894\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。穛ႺႴ\x{1ECBF}", %p)}, undef, "to_unicode\(\'\\u200D。穛ႺႴ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1895\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。穛ႺႴ\x{1ECBF}", %p)}, undef, "to_unicode\(\'\\u200D。穛ႺႴ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1896\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。穛ႺႴ\x{1ECBF}", %p)}, undef, "to_unicode\(\'\\u200D\。穛ႺႴ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1897\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。穛ႺႴ\x{1ECBF}", %p)}, undef, "to_unicode\(\'\\u200D\。穛ႺႴ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1898\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。穛ⴚⴔ\x{1ECBF}", %p)}, undef, "to_unicode\(\'\\u200D\。穛ⴚⴔ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1899\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。穛ⴚⴔ\x{1ECBF}", %p)}, undef, "to_unicode\(\'\\u200D\。穛ⴚⴔ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1900\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。穛Ⴚⴔ\x{1ECBF}", %p)}, undef, "to_unicode\(\'\\u200D\。穛Ⴚⴔ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1901\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。穛Ⴚⴔ\x{1ECBF}", %p)}, undef, "to_unicode\(\'\\u200D\。穛Ⴚⴔ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1902\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。穛ⴚⴔ\x{1ECBF}", %p)}, undef, "to_unicode\(\'\\u200D。穛ⴚⴔ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1903\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。穛ⴚⴔ\x{1ECBF}", %p)}, undef, "to_unicode\(\'\\u200D。穛ⴚⴔ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1904\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。穛Ⴚⴔ\x{1ECBF}", %p)}, undef, "to_unicode\(\'\\u200D。穛Ⴚⴔ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1905\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。穛Ⴚⴔ\x{1ECBF}", %p)}, undef, "to_unicode\(\'\\u200D。穛Ⴚⴔ\\uD83B\\uDCBF\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1906\]") 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("-4.\x{200D}ヌ\x{08AC}", %p)}, undef, "to_unicode\(\'\-4\.\\u200Dヌ\\u08AC\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1907\]") 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("-4.\x{200D}ヌ\x{08AC}", %p)}, undef, "to_unicode\(\'\-4\.\\u200Dヌ\\u08AC\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1908\]") 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("-4.\x{200D}ヌ\x{08AC}", %p)}, undef, "to_unicode\(\'\-4\.\\u200Dヌ\\u08AC\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1909\]") 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("-4.\x{200D}ヌ\x{08AC}", %p)}, undef, "to_unicode\(\'\-4\.\\u200Dヌ\\u08AC\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1910\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("︐\x{10E64}ß\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_unicode\(\'︐\\uD803\\uDE64ß\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1911\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︐\x{10E64}ß\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_unicode\(\'︐\\uD803\\uDE64ß\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1912\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(",\x{10E64}ß\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_unicode\(\'\,\\uD803\\uDE64ß\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1913\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(",\x{10E64}ß\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_unicode\(\'\,\\uD803\\uDE64ß\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1914\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(",\x{10E64}SS\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_unicode\(\'\,\\uD803\\uDE64SS\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1915\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(",\x{10E64}SS\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_unicode\(\'\,\\uD803\\uDE64SS\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1916\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(",\x{10E64}ss\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_unicode\(\'\,\\uD803\\uDE64ss\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1917\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(",\x{10E64}ss\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_unicode\(\'\,\\uD803\\uDE64ss\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1918\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(",\x{10E64}Ss\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_unicode\(\'\,\\uD803\\uDE64Ss\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1919\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(",\x{10E64}Ss\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_unicode\(\'\,\\uD803\\uDE64Ss\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1920\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︐\x{10E64}SS\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_unicode\(\'︐\\uD803\\uDE64SS\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1921\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︐\x{10E64}SS\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_unicode\(\'︐\\uD803\\uDE64SS\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1922\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︐\x{10E64}ss\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_unicode\(\'︐\\uD803\\uDE64ss\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1923\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︐\x{10E64}ss\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_unicode\(\'︐\\uD803\\uDE64ss\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1924\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︐\x{10E64}Ss\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_unicode\(\'︐\\uD803\\uDE64Ss\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1925\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︐\x{10E64}Ss\x{200D}。⦭\x{105DD5}\x{10E3F}-", %p)}, undef, "to_unicode\(\'︐\\uD803\\uDE64Ss\\u200D\。\⦭\\uDBD7\\uDDD5\\uD803\\uDE3F\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:1926\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꇟ-\x{FC06}ᡉ。\x{B357A}\x{200C}", %p)}, undef, "to_unicode\(\'ꇟ\-\\uFC06ᡉ\。\\uDA8D\\uDD7A\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1927\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꇟ-\x{FC06}ᡉ。\x{B357A}\x{200C}", %p)}, undef, "to_unicode\(\'ꇟ\-\\uFC06ᡉ\。\\uDA8D\\uDD7A\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1928\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꇟ-\x{0628}\x{062D}ᡉ。\x{B357A}\x{200C}", %p)}, undef, "to_unicode\(\'ꇟ\-\\u0628\\u062Dᡉ\。\\uDA8D\\uDD7A\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1929\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꇟ-\x{0628}\x{062D}ᡉ。\x{B357A}\x{200C}", %p)}, undef, "to_unicode\(\'ꇟ\-\\u0628\\u062Dᡉ\。\\uDA8D\\uDD7A\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1930\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E7C}.\x{11001}\x{FD09}\x{07AA}\x{35A0B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE7C\.\\uD804\\uDC01\\uFD09\\u07AA\\uD896\\uDE0B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1931\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E7C}.\x{11001}\x{0634}\x{062C}\x{07AA}\x{35A0B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE7C\.\\uD804\\uDC01\\u0634\\u062C\\u07AA\\uD896\\uDE0B\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1932\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-.\x{3F861}\x{0756}\x{0B4D}", %p)}, undef, "to_unicode\(\'\-\.\\uD8BE\\uDC61\\u0756\\u0B4D\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1933\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{AB69E}ς.\x{10C84}녫ß", %p)}, undef, "to_unicode\(\'\\uDA6D\\uDE9Eς\.\\uD803\\uDC84녫ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1934\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{AB69E}ς.\x{10C84}녫ß", %p)}, undef, "to_unicode\(\'\\uDA6D\\uDE9Eς\.\\uD803\\uDC84녫ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1935\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{AB69E}Σ.\x{10C84}녫SS", %p)}, undef, "to_unicode\(\'\\uDA6D\\uDE9EΣ\.\\uD803\\uDC84녫SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1936\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{AB69E}Σ.\x{10C84}녫SS", %p)}, undef, "to_unicode\(\'\\uDA6D\\uDE9EΣ\.\\uD803\\uDC84녫SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1937\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{AB69E}σ.\x{10C84}녫ss", %p)}, undef, "to_unicode\(\'\\uDA6D\\uDE9Eσ\.\\uD803\\uDC84녫ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1938\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{AB69E}σ.\x{10C84}녫ss", %p)}, undef, "to_unicode\(\'\\uDA6D\\uDE9Eσ\.\\uD803\\uDC84녫ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1939\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{AB69E}Σ.\x{10C84}녫Ss", %p)}, undef, "to_unicode\(\'\\uDA6D\\uDE9EΣ\.\\uD803\\uDC84녫Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1940\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{AB69E}Σ.\x{10C84}녫Ss", %p)}, undef, "to_unicode\(\'\\uDA6D\\uDE9EΣ\.\\uD803\\uDC84녫Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1941\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ\x{1BAA}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ\\u1BAA\\u200D。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1942\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ\x{1BAA}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ\\u1BAA\\u200D。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1943\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ\x{1BAA}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ\\u1BAA\\u200D。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1944\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ\x{1BAA}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ\\u1BAA\\u200D。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1945\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ\x{1BAA}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ\\u1BAA\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1946\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ\x{1BAA}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ\\u1BAA\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1947\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ\x{1BAA}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ\\u1BAA\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1948\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ\x{1BAA}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ\\u1BAA\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1949\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ\x{1BAA}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ\\u1BAA\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1950\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ\x{1BAA}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ\\u1BAA\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1951\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ\x{1BAA}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ\\u1BAA\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1952\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ\x{1BAA}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ\\u1BAA\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1953\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ\x{1BAA}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ\\u1BAA\\u200D。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1954\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ\x{1BAA}\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ\\u1BAA\\u200D。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1955\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ\x{1BAA}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ\\u1BAA\\u200D。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1956\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ\x{1BAA}\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ\\u1BAA\\u200D。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1957\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⁹\x{11133}\x{1734}\x{EEA81}.\x{200C}\x{1734}\x{07E0}", %p)}, undef, "to_unicode\(\'⁹\\uD804\\uDD33\\u1734\\uDB7A\\uDE81.\\u200C\\u1734\\u07E0\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1958\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⁹\x{11133}\x{1734}\x{EEA81}.\x{200C}\x{1734}\x{07E0}", %p)}, undef, "to_unicode\(\'⁹\\uD804\\uDD33\\u1734\\uDB7A\\uDE81.\\u200C\\u1734\\u07E0\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1959\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("9\x{11133}\x{1734}\x{EEA81}.\x{200C}\x{1734}\x{07E0}", %p)}, undef, "to_unicode\(\'9\\uD804\\uDD33\\u1734\\uDB7A\\uDE81\.\\u200C\\u1734\\u07E0\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1960\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("9\x{11133}\x{1734}\x{EEA81}.\x{200C}\x{1734}\x{07E0}", %p)}, undef, "to_unicode\(\'9\\uD804\\uDD33\\u1734\\uDB7A\\uDE81\.\\u200C\\u1734\\u07E0\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1961\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7182B}\x{E0066}.≯", %p)}, undef, "to_unicode\(\'\\uD986\\uDC2B\\uDB40\\uDC66.\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1962\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7182B}\x{E0066}.>\x{0338}", %p)}, undef, "to_unicode\(\'\\uD986\\uDC2B\\uDB40\\uDC66.\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1963\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7182B}\x{E0066}.≯", %p)}, undef, "to_unicode\(\'\\uD986\\uDC2B\\uDB40\\uDC66\.\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1964\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7182B}\x{E0066}.>\x{0338}", %p)}, undef, "to_unicode\(\'\\uD986\\uDC2B\\uDB40\\uDC66\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1965\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{1EFE4}Ⴓ.\x{0324}", %p)}, undef, "to_unicode\(\'\\u200D\\uD83B\\uDFE4Ⴓ.\\u0324\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1966\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{1EFE4}Ⴓ.\x{0324}", %p)}, undef, "to_unicode\(\'\\u200D\\uD83B\\uDFE4Ⴓ.\\u0324\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1967\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{1EFE4}Ⴓ.\x{0324}", %p)}, undef, "to_unicode\(\'\\u200D\\uD83B\\uDFE4Ⴓ\.\\u0324\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1968\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{1EFE4}Ⴓ.\x{0324}", %p)}, undef, "to_unicode\(\'\\u200D\\uD83B\\uDFE4Ⴓ\.\\u0324\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1969\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{1EFE4}ⴓ.\x{0324}", %p)}, undef, "to_unicode\(\'\\u200D\\uD83B\\uDFE4ⴓ\.\\u0324\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1970\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{1EFE4}ⴓ.\x{0324}", %p)}, undef, "to_unicode\(\'\\u200D\\uD83B\\uDFE4ⴓ\.\\u0324\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1971\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{1EFE4}ⴓ.\x{0324}", %p)}, undef, "to_unicode\(\'\\u200D\\uD83B\\uDFE4ⴓ.\\u0324\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1972\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{1EFE4}ⴓ.\x{0324}", %p)}, undef, "to_unicode\(\'\\u200D\\uD83B\\uDFE4ⴓ.\\u0324\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1973\]") 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{FED3}ß\x{0333}.\x{0766}", %p)}, undef, "to_unicode\(\'\\uFED3ß\\u0333.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1974\]") 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{0641}ß\x{0333}.\x{0766}", %p)}, undef, "to_unicode\(\'\\u0641ß\\u0333\.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1975\]") 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{0641}SS\x{0333}.\x{0766}", %p)}, undef, "to_unicode\(\'\\u0641SS\\u0333\.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1976\]") 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{0641}ss\x{0333}.\x{0766}", %p)}, undef, "to_unicode\(\'\\u0641ss\\u0333\.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1977\]") 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{0641}Ss\x{0333}.\x{0766}", %p)}, undef, "to_unicode\(\'\\u0641Ss\\u0333\.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1978\]") 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{FED3}SS\x{0333}.\x{0766}", %p)}, undef, "to_unicode\(\'\\uFED3SS\\u0333.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1979\]") 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{FED3}ss\x{0333}.\x{0766}", %p)}, undef, "to_unicode\(\'\\uFED3ss\\u0333.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1980\]") 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{FED3}Ss\x{0333}.\x{0766}", %p)}, undef, "to_unicode\(\'\\uFED3Ss\\u0333.\\u0766\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1981\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0CCD}\x{E01AD}鸮\x{1039}.ς", %p)}, undef, "to_unicode\(\'\\u0CCD\\uDB40\\uDDAD鸮\\u1039\.ς\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1982\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CCD}\x{E01AD}鸮\x{1039}.Σ", %p)}, undef, "to_unicode\(\'\\u0CCD\\uDB40\\uDDAD鸮\\u1039\.Σ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1983\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CCD}\x{E01AD}鸮\x{1039}.σ", %p)}, undef, "to_unicode\(\'\\u0CCD\\uDB40\\uDDAD鸮\\u1039\.σ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1984\]") 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{11134}", %p)}, undef, "to_unicode\(\'𝟐ꡩ\。\-\\uD804\\uDD34\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1985\]") 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("2ꡩ。-\x{11134}", %p)}, undef, "to_unicode\(\'2ꡩ\。\-\\uD804\\uDD34\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1986\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0779}ᡲ⟙。\x{10E6D}\x{0775}⒈", %p)}, undef, "to_unicode\(\'\\u0779ᡲ\⟙。\\uD803\\uDE6D\\u0775⒈\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1987\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0779}ᡲ⟙。\x{10E6D}\x{0775}1.", %p)}, undef, "to_unicode\(\'\\u0779ᡲ\⟙\。\\uD803\\uDE6D\\u07751\.\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1988\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{2433}\x{109409}𝟣\x{10E78}.ᢉ8\x{05AC}\x{06DD}", %p)}, undef, "to_unicode\(\'\\u2433\\uDBE5\\uDC09𝟣\\uD803\\uDE78\.ᢉ8\\u05AC\\u06DD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1989\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2433}\x{109409}1\x{10E78}.ᢉ8\x{05AC}\x{06DD}", %p)}, undef, "to_unicode\(\'\\u2433\\uDBE5\\uDC091\\uD803\\uDE78\.ᢉ8\\u05AC\\u06DD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1990\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0603}.𝟤𝟶-\x{CCEF0}", %p)}, undef, "to_unicode\(\'\\u0603\.𝟤𝟶\-\\uDAF3\\uDEF0\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1991\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0603}.20-\x{CCEF0}", %p)}, undef, "to_unicode\(\'\\u0603\.20\-\\uDAF3\\uDEF0\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1992\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς-。\x{200C}⒚-", %p)}, undef, "to_unicode\(\'ς\-\。\\u200C⒚\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:1993\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς-。\x{200C}⒚-", %p)}, undef, "to_unicode\(\'ς\-\。\\u200C⒚\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:1994\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς-。\x{200C}19.-", %p)}, undef, "to_unicode\(\'ς\-\。\\u200C19\.\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:1995\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς-。\x{200C}19.-", %p)}, undef, "to_unicode\(\'ς\-\。\\u200C19\.\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:1996\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ-。\x{200C}19.-", %p)}, undef, "to_unicode\(\'Σ\-\。\\u200C19\.\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:1997\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ-。\x{200C}19.-", %p)}, undef, "to_unicode\(\'Σ\-\。\\u200C19\.\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:1998\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ-。\x{200C}19.-", %p)}, undef, "to_unicode\(\'σ\-\。\\u200C19\.\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:1999\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ-。\x{200C}19.-", %p)}, undef, "to_unicode\(\'σ\-\。\\u200C19\.\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2000\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ-。\x{200C}⒚-", %p)}, undef, "to_unicode\(\'Σ\-\。\\u200C⒚\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:2001\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ-。\x{200C}⒚-", %p)}, undef, "to_unicode\(\'Σ\-\。\\u200C⒚\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:2002\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ-。\x{200C}⒚-", %p)}, undef, "to_unicode\(\'σ\-\。\\u200C⒚\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:2003\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ-。\x{200C}⒚-", %p)}, undef, "to_unicode\(\'σ\-\。\\u200C⒚\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:2004\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}-\x{E0079}.\x{0AC5}Ⴄ", %p)}, undef, "to_unicode\(\'\\u0DCA\-\\uDB40\\uDC79.\\u0AC5Ⴄ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2005\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}-\x{E0079}.\x{0AC5}Ⴄ", %p)}, undef, "to_unicode\(\'\\u0DCA\-\\uDB40\\uDC79\.\\u0AC5Ⴄ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2006\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}-\x{E0079}.\x{0AC5}ⴄ", %p)}, undef, "to_unicode\(\'\\u0DCA\-\\uDB40\\uDC79\.\\u0AC5ⴄ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2007\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}-\x{E0079}.\x{0AC5}ⴄ", %p)}, undef, "to_unicode\(\'\\u0DCA\-\\uDB40\\uDC79.\\u0AC5ⴄ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2008\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{ECD27}\x{E05E9}\x{06AF}\x{109AF}。⏆⒈", %p)}, undef, "to_unicode\(\'\\uDB73\\uDD27\\uDB41\\uDDE9\\u06AF\\uD802\\uDDAF。\⏆⒈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2009\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{ECD27}\x{E05E9}\x{06AF}\x{109AF}。⏆1.", %p)}, undef, "to_unicode\(\'\\uDB73\\uDD27\\uDB41\\uDDE9\\u06AF\\uD802\\uDDAF\。\⏆1\.\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2010\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0C4D}.\x{0646}\x{0ECA}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0C4D.\\u0646\\u0ECA\\u200C\'\)\ throws\ error\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:2011\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0C4D}.\x{0646}\x{0ECA}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0C4D.\\u0646\\u0ECA\\u200C\'\)\ throws\ error\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:2012\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0C4D}.\x{0646}\x{0ECA}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0C4D\.\\u0646\\u0ECA\\u200C\'\)\ throws\ error\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:2013\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0C4D}.\x{0646}\x{0ECA}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0C4D\.\\u0646\\u0ECA\\u200C\'\)\ throws\ error\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:2014\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{3CA91}\x{06D1}≮\x{1BAA}.\x{FEA3}", %p)}, undef, "to_unicode\(\'\\uD8B2\\uDE91\\u06D1\≮\\u1BAA.\\uFEA3\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2015\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{3CA91}\x{06D1}<\x{0338}\x{1BAA}.\x{FEA3}", %p)}, undef, "to_unicode\(\'\\uD8B2\\uDE91\\u06D1\<\\u0338\\u1BAA.\\uFEA3\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2016\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{3CA91}\x{06D1}≮\x{1BAA}.\x{062D}", %p)}, undef, "to_unicode\(\'\\uD8B2\\uDE91\\u06D1\≮\\u1BAA\.\\u062D\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2017\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{3CA91}\x{06D1}<\x{0338}\x{1BAA}.\x{062D}", %p)}, undef, "to_unicode\(\'\\uD8B2\\uDE91\\u06D1\<\\u0338\\u1BAA\.\\u062D\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2018\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。\x{0FA9}⒈ꡍ\x{108614}", %p)}, undef, "to_unicode\(\'\\u200D\。\\u0FA9⒈ꡍ\\uDBE1\\uDE14\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2019\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。\x{0FA9}⒈ꡍ\x{108614}", %p)}, undef, "to_unicode\(\'\\u200D\。\\u0FA9⒈ꡍ\\uDBE1\\uDE14\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2020\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。\x{0FA9}1.ꡍ\x{108614}", %p)}, undef, "to_unicode\(\'\\u200D\。\\u0FA91\.ꡍ\\uDBE1\\uDE14\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2021\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。\x{0FA9}1.ꡍ\x{108614}", %p)}, undef, "to_unicode\(\'\\u200D\。\\u0FA91\.ꡍ\\uDBE1\\uDE14\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2022\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۷ᠤ.\x{1EC84}≠", %p)}, undef, "to_unicode\(\'۷ᠤ.\\uD83B\\uDC84\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2023\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۷ᠤ.\x{1EC84}=\x{0338}", %p)}, undef, "to_unicode\(\'۷ᠤ.\\uD83B\\uDC84\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2024\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۷ᠤ.\x{1EC84}≠", %p)}, undef, "to_unicode\(\'۷ᠤ\.\\uD83B\\uDC84\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2025\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۷ᠤ.\x{1EC84}=\x{0338}", %p)}, undef, "to_unicode\(\'۷ᠤ\.\\uD83B\\uDC84\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2026\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}\x{0776}\x{B8EEB}.𝟘\x{0680}\x{1086}", %p)}, undef, "to_unicode\(\'\\u06C5\\u0776\\uDAA3\\uDEEB\.𝟘\\u0680\\u1086\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2027\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}\x{0776}\x{B8EEB}.0\x{0680}\x{1086}", %p)}, undef, "to_unicode\(\'\\u06C5\\u0776\\uDAA3\\uDEEB\.0\\u0680\\u1086\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2028\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0AC3}-\x{10E66}۶.⤝\x{0825}4", %p)}, undef, "to_unicode\(\'\\u0AC3\-\\uD803\\uDE66۶\.\⤝\\u08254\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2029\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("⫐。Ⴠ-\x{8642E}", %p)}, undef, "to_unicode\(\'\⫐。Ⴠ\-\\uD9D9\\uDC2E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2030\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⫐。Ⴠ-\x{8642E}", %p)}, undef, "to_unicode\(\'\⫐\。Ⴠ\-\\uD9D9\\uDC2E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2031\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⫐。ⴠ-\x{8642E}", %p)}, undef, "to_unicode\(\'\⫐\。ⴠ\-\\uD9D9\\uDC2E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2032\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⫐。ⴠ-\x{8642E}", %p)}, undef, "to_unicode\(\'\⫐。ⴠ\-\\uD9D9\\uDC2E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2033\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1039}⺡.⦟\x{E0C37}", %p)}, undef, "to_unicode\(\'\\u1039⺡.\⦟\\uDB43\\uDC37\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2034\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1039}⺡.⦟\x{E0C37}", %p)}, undef, "to_unicode\(\'\\u1039⺡\.\⦟\\uDB43\\uDC37\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2035\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{DC729}-\x{10E73}。\x{87F6D}\x{068D}", %p)}, undef, "to_unicode\(\'\\uDB31\\uDF29\-\\uD803\\uDE73\。\\uD9DF\\uDF6D\\u068D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2036\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡚ。⩨\x{FE0E}\x{1EE55}\x{10E73}", %p)}, undef, "to_unicode\(\'ᡚ\。\⩨\\uFE0E\\uD83B\\uDE55\\uD803\\uDE73\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2037\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10D35}ꌄ。\x{200D}ᣬ", %p)}, undef, "to_unicode\(\'\\uD803\\uDD35ꌄ。\\u200Dᣬ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2038\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10D35}ꌄ。\x{200D}ᣬ", %p)}, undef, "to_unicode\(\'\\uD803\\uDD35ꌄ。\\u200Dᣬ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2039\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10D35}ꌄ。\x{200D}ᣬ", %p)}, undef, "to_unicode\(\'\\uD803\\uDD35ꌄ\。\\u200Dᣬ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2040\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10D35}ꌄ。\x{200D}ᣬ", %p)}, undef, "to_unicode\(\'\\uD803\\uDD35ꌄ\。\\u200Dᣬ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2041\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄃\x{066B}。\x{9564C}≯-", %p)}, undef, "to_unicode\(\'🄃\\u066B\。\\uDA15\\uDE4C\≯\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2042\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄃\x{066B}。\x{9564C}>\x{0338}-", %p)}, undef, "to_unicode\(\'🄃\\u066B\。\\uDA15\\uDE4C\>\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2043\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("2,\x{066B}。\x{9564C}≯-", %p)}, undef, "to_unicode\(\'2\,\\u066B\。\\uDA15\\uDE4C\≯\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2044\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("2,\x{066B}。\x{9564C}>\x{0338}-", %p)}, undef, "to_unicode\(\'2\,\\u066B\。\\uDA15\\uDE4C\>\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2045\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䷎\x{0669}-\x{10DA0}.۰ꡝ", %p)}, undef, "to_unicode\(\'䷎\\u0669\-\\uD803\\uDDA0\.۰ꡝ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2046\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠。\x{05A5}\x{10E64}Ⴡ\x{110B9}", %p)}, undef, "to_unicode\(\'\≠。\\u05A5\\uD803\\uDE64Ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2047\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}。\x{05A5}\x{10E64}Ⴡ\x{110B9}", %p)}, undef, "to_unicode\(\'\=\\u0338。\\u05A5\\uD803\\uDE64Ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2048\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠。\x{05A5}\x{10E64}Ⴡ\x{110B9}", %p)}, undef, "to_unicode\(\'\≠\。\\u05A5\\uD803\\uDE64Ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2049\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}。\x{05A5}\x{10E64}Ⴡ\x{110B9}", %p)}, undef, "to_unicode\(\'\=\\u0338\。\\u05A5\\uD803\\uDE64Ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2050\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}。\x{05A5}\x{10E64}ⴡ\x{110B9}", %p)}, undef, "to_unicode\(\'\=\\u0338\。\\u05A5\\uD803\\uDE64ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2051\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠。\x{05A5}\x{10E64}ⴡ\x{110B9}", %p)}, undef, "to_unicode\(\'\≠\。\\u05A5\\uD803\\uDE64ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2052\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}。\x{05A5}\x{10E64}ⴡ\x{110B9}", %p)}, undef, "to_unicode\(\'\=\\u0338。\\u05A5\\uD803\\uDE64ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2053\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠。\x{05A5}\x{10E64}ⴡ\x{110B9}", %p)}, undef, "to_unicode\(\'\≠。\\u05A5\\uD803\\uDE64ⴡ\\uD804\\uDCB9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2054\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FA8}≠.Ⴀᠽ", %p)}, undef, "to_unicode\(\'\\u0FA8\≠\.Ⴀᠽ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2055\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FA8}=\x{0338}.Ⴀᠽ", %p)}, undef, "to_unicode\(\'\\u0FA8\=\\u0338\.Ⴀᠽ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2056\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FA8}=\x{0338}.ⴀᠽ", %p)}, undef, "to_unicode\(\'\\u0FA8\=\\u0338\.ⴀᠽ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2057\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FA8}≠.ⴀᠽ", %p)}, undef, "to_unicode\(\'\\u0FA8\≠\.ⴀᠽ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2058\]") 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{1DDD}\x{20D9}ᡀ.ᡥ閪\x{0664}꒶", %p)}, undef, "to_unicode\(\'\\u1DDD\\u20D9ᡀ.ᡥ閪\\u0664꒶\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2059\]") 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{20D9}\x{1DDD}ᡀ.ᡥ閪\x{0664}꒶", %p)}, undef, "to_unicode\(\'\\u20D9\\u1DDDᡀ.ᡥ閪\\u0664꒶\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2060\]") 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{20D9}\x{1DDD}ᡀ.ᡥ閪\x{0664}꒶", %p)}, undef, "to_unicode\(\'\\u20D9\\u1DDDᡀ\.ᡥ閪\\u0664꒶\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2061\]") 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{1DDF}\x{FB20}\x{FE00}。\x{0E38}\x{0FA6}-ᛟ", %p)}, undef, "to_unicode\(\'\\u200D\\u1DDF\\uFB20\\uFE00。\\u0E38\\u0FA6\-ᛟ\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2062\]") 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{1DDF}\x{FB20}\x{FE00}。\x{0E38}\x{0FA6}-ᛟ", %p)}, undef, "to_unicode\(\'\\u200D\\u1DDF\\uFB20\\uFE00。\\u0E38\\u0FA6\-ᛟ\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2063\]") 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{1DDF}\x{05E2}\x{FE00}。\x{0E38}\x{0FA6}-ᛟ", %p)}, undef, "to_unicode\(\'\\u200D\\u1DDF\\u05E2\\uFE00\。\\u0E38\\u0FA6\-ᛟ\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2064\]") 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{1DDF}\x{05E2}\x{FE00}。\x{0E38}\x{0FA6}-ᛟ", %p)}, undef, "to_unicode\(\'\\u200D\\u1DDF\\u05E2\\uFE00\。\\u0E38\\u0FA6\-ᛟ\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2065\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("헁\x{BDB25}\x{09CD}\x{3922F}。ᡉ3", %p)}, undef, "to_unicode\(\'헁\\uDAB6\\uDF25\\u09CD\\uD8A4\\uDE2F\。ᡉ3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2066\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("헁\x{BDB25}\x{09CD}\x{3922F}。ᡉ3", %p)}, undef, "to_unicode\(\'헁\\uDAB6\\uDF25\\u09CD\\uD8A4\\uDE2F\。ᡉ3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2067\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E61}。\x{D2A2F}\x{200C}Ⴞ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE61。\\uDB0A\\uDE2F\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2068\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E61}。\x{D2A2F}\x{200C}Ⴞ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE61。\\uDB0A\\uDE2F\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2069\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E61}。\x{D2A2F}\x{200C}Ⴞ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE61\。\\uDB0A\\uDE2F\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2070\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E61}。\x{D2A2F}\x{200C}Ⴞ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE61\。\\uDB0A\\uDE2F\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2071\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E61}。\x{D2A2F}\x{200C}ⴞ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE61\。\\uDB0A\\uDE2F\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2072\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E61}。\x{D2A2F}\x{200C}ⴞ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE61\。\\uDB0A\\uDE2F\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2073\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E61}。\x{D2A2F}\x{200C}ⴞ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE61。\\uDB0A\\uDE2F\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2074\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E61}。\x{D2A2F}\x{200C}ⴞ", %p)}, undef, "to_unicode\(\'\\uD803\\uDE61。\\uDB0A\\uDE2F\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2075\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{A953}.\x{A8EF}\x{E01C0}馋", %p)}, undef, "to_unicode\(\'\\uA953\.\\uA8EF\\uDB40\\uDDC0馋\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2076\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{76898}𢁔\x{200D}。\x{3F7F3}", %p)}, undef, "to_unicode\(\'\\uD99A\\uDC98𢁔\\u200D。\\uD8BD\\uDFF3\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2077\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{76898}𢁔\x{200D}。\x{3F7F3}", %p)}, undef, "to_unicode\(\'\\uD99A\\uDC98𢁔\\u200D。\\uD8BD\\uDFF3\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2078\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{76898}𢁔\x{200D}。\x{3F7F3}", %p)}, undef, "to_unicode\(\'\\uD99A\\uDC98𢁔\\u200D\。\\uD8BD\\uDFF3\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2079\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{76898}𢁔\x{200D}。\x{3F7F3}", %p)}, undef, "to_unicode\(\'\\uD99A\\uDC98𢁔\\u200D\。\\uD8BD\\uDFF3\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2080\]") 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\:2081\]") 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\:2082\]") 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("ꡖ目姶1.6.\x{200D}╅\x{200D}", %p)}, undef, "to_unicode\(\'ꡖ目姶1\.6\.\\u200D\╅\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2083\]") 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("ꡖ目姶1.6.\x{200D}╅\x{200D}", %p)}, undef, "to_unicode\(\'ꡖ目姶1\.6\.\\u200D\╅\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2084\]") 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--1-yn1bw30gq07b.6.xn--7xh", %p)}, "ꡖ目姶1.6.╅", "to_unicode\(\'xn\-\-1\-yn1bw30gq07b\.6\.xn\-\-7xh\'\)\ \[data\/IdnaTest\.txt\:2085\]") 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("ꡖ目姶1.6.╅", %p)}, "ꡖ目姶1.6.╅", "to_unicode\(\'ꡖ目姶1\.6\.\╅\'\)\ \[data\/IdnaTest\.txt\:2086\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{10F7C}.\x{10E63}≾\x{0ACD}", %p)}, undef, "to_unicode\(\'\\uD803\\uDF7C\.\\uD803\\uDE63\≾\\u0ACD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2087\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴔ\x{0715}。\x{10E66}\x{AA36}۰", %p)}, undef, "to_unicode\(\'Ⴔ\\u0715。\\uD803\\uDE66\\uAA36۰\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2088\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴔ\x{0715}。\x{10E66}\x{AA36}۰", %p)}, undef, "to_unicode\(\'Ⴔ\\u0715\。\\uD803\\uDE66\\uAA36۰\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2089\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0715}。\x{10E66}\x{AA36}۰", %p)}, undef, "to_unicode\(\'ⴔ\\u0715\。\\uD803\\uDE66\\uAA36۰\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2090\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0715}。\x{10E66}\x{AA36}۰", %p)}, undef, "to_unicode\(\'ⴔ\\u0715。\\uD803\\uDE66\\uAA36۰\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2091\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{110B5}\x{068D}\x{200C}.︒-\x{1773}-", %p)}, undef, "to_unicode\(\'\\uD804\\uDCB5\\u068D\\u200C.︒\-\\u1773\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2092\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{110B5}\x{068D}\x{200C}.︒-\x{1773}-", %p)}, undef, "to_unicode\(\'\\uD804\\uDCB5\\u068D\\u200C.︒\-\\u1773\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2093\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{110B5}\x{068D}\x{200C}.。-\x{1773}-", %p)}, undef, "to_unicode\(\'\\uD804\\uDCB5\\u068D\\u200C\.\。\-\\u1773\-\'\)\ throws\ error\ V5\ V3\ B1\ C1\ A4_2\ \[data\/IdnaTest\.txt\:2094\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{110B5}\x{068D}\x{200C}.。-\x{1773}-", %p)}, undef, "to_unicode\(\'\\uD804\\uDCB5\\u068D\\u200C\.\。\-\\u1773\-\'\)\ throws\ error\ V5\ V3\ B1\ C1\ A4_2\ \[data\/IdnaTest\.txt\:2095\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("⒈\x{0602}🄆\x{200C}.\x{0829}\x{FC4E}", %p)}, undef, "to_unicode\(\'⒈\\u0602🄆\\u200C\.\\u0829\\uFC4E\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:2096\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{0602}🄆\x{200C}.\x{0829}\x{FC4E}", %p)}, undef, "to_unicode\(\'⒈\\u0602🄆\\u200C\.\\u0829\\uFC4E\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:2097\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{0602}5,\x{200C}.\x{0829}\x{0646}\x{0645}", %p)}, undef, "to_unicode\(\'1\.\\u06025\,\\u200C\.\\u0829\\u0646\\u0645\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:2098\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{0602}5,\x{200C}.\x{0829}\x{0646}\x{0645}", %p)}, undef, "to_unicode\(\'1\.\\u06025\,\\u200C\.\\u0829\\u0646\\u0645\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:2099\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E01A7}。-\x{1B44}Ⴋ", %p)}, undef, "to_unicode\(\'\\uDB40\\uDDA7\。\-\\u1B44Ⴋ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2100\]") 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{E01A7}。-\x{1B44}ⴋ", %p)}, undef, "to_unicode\(\'\\uDB40\\uDDA7\。\-\\u1B44ⴋ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2101\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ßჀ.\x{0642}刯Ⴝ", %p)}, undef, "to_unicode\(\'ßჀ\.\\u0642刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2102\]") 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{0642}刯ⴝ", %p)}, undef, "to_unicode\(\'ßⴠ\.\\u0642刯ⴝ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2103\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("SSჀ.\x{0642}刯Ⴝ", %p)}, undef, "to_unicode\(\'SSჀ\.\\u0642刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2104\]") 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{0642}刯ⴝ", %p)}, undef, "to_unicode\(\'ssⴠ\.\\u0642刯ⴝ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2105\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ssⴠ.\x{0642}刯Ⴝ", %p)}, undef, "to_unicode\(\'Ssⴠ\.\\u0642刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2106\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E3A}ႣℲ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_unicode\(\'\\u0E3AႣℲ。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2107\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E3A}ႣℲ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_unicode\(\'\\u0E3AႣℲ。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2108\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E3A}ႣℲ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_unicode\(\'\\u0E3AႣℲ\。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2109\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E3A}ႣℲ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_unicode\(\'\\u0E3AႣℲ\。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2110\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E3A}ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_unicode\(\'\\u0E3Aⴃⅎ\。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2111\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E3A}ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_unicode\(\'\\u0E3Aⴃⅎ\。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2112\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E3A}Ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_unicode\(\'\\u0E3AႣⅎ\。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2113\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E3A}Ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_unicode\(\'\\u0E3AႣⅎ\。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2114\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E3A}ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_unicode\(\'\\u0E3Aⴃⅎ。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2115\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E3A}ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_unicode\(\'\\u0E3Aⴃⅎ。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2116\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E3A}Ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_unicode\(\'\\u0E3AႣⅎ。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2117\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E3A}Ⴃⅎ。ᡗ툻\x{1ED2D}", %p)}, undef, "to_unicode\(\'\\u0E3AႣⅎ。ᡗ툻\\uD83B\\uDD2D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2118\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0800}.\x{07CF}\x{0601}\x{06D1}", %p)}, undef, "to_unicode\(\'\\uDB42\\uDC00\.\\u07CF\\u0601\\u06D1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2119\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢍ\x{06DF}。⒍\x{11133}", %p)}, undef, "to_unicode\(\'ᢍ\\u06DF\。⒍\\uD804\\uDD33\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2120\]") 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{06DF}。6.\x{11133}", %p)}, undef, "to_unicode\(\'ᢍ\\u06DF\。6\.\\uD804\\uDD33\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2121\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴣ\x{0600}.\x{200C}\x{E01B7}≮𝌶", %p)}, undef, "to_unicode\(\'Ⴣ\\u0600\.\\u200C\\uDB40\\uDDB7\≮𝌶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2122\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴣ\x{0600}.\x{200C}\x{E01B7}≮𝌶", %p)}, undef, "to_unicode\(\'Ⴣ\\u0600\.\\u200C\\uDB40\\uDDB7\≮𝌶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2123\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴣ\x{0600}.\x{200C}\x{E01B7}<\x{0338}𝌶", %p)}, undef, "to_unicode\(\'Ⴣ\\u0600\.\\u200C\\uDB40\\uDDB7\<\\u0338𝌶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2124\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴣ\x{0600}.\x{200C}\x{E01B7}<\x{0338}𝌶", %p)}, undef, "to_unicode\(\'Ⴣ\\u0600\.\\u200C\\uDB40\\uDDB7\<\\u0338𝌶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2125\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴣ\x{0600}.\x{200C}\x{E01B7}<\x{0338}𝌶", %p)}, undef, "to_unicode\(\'ⴣ\\u0600\.\\u200C\\uDB40\\uDDB7\<\\u0338𝌶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2126\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴣ\x{0600}.\x{200C}\x{E01B7}<\x{0338}𝌶", %p)}, undef, "to_unicode\(\'ⴣ\\u0600\.\\u200C\\uDB40\\uDDB7\<\\u0338𝌶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2127\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴣ\x{0600}.\x{200C}\x{E01B7}≮𝌶", %p)}, undef, "to_unicode\(\'ⴣ\\u0600\.\\u200C\\uDB40\\uDDB7\≮𝌶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2128\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴣ\x{0600}.\x{200C}\x{E01B7}≮𝌶", %p)}, undef, "to_unicode\(\'ⴣ\\u0600\.\\u200C\\uDB40\\uDDB7\≮𝌶\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2129\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⁹隁\x{E0F3A}.\x{0341}\x{200C}", %p)}, undef, "to_unicode\(\'⁹隁\\uDB43\\uDF3A.\\u0341\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2130\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⁹隁\x{E0F3A}.\x{0341}\x{200C}", %p)}, undef, "to_unicode\(\'⁹隁\\uDB43\\uDF3A.\\u0341\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2131\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⁹隁\x{E0F3A}.\x{0301}\x{200C}", %p)}, undef, "to_unicode\(\'⁹隁\\uDB43\\uDF3A.\\u0301\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2132\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⁹隁\x{E0F3A}.\x{0301}\x{200C}", %p)}, undef, "to_unicode\(\'⁹隁\\uDB43\\uDF3A.\\u0301\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2133\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("9隁\x{E0F3A}.\x{0301}\x{200C}", %p)}, undef, "to_unicode\(\'9隁\\uDB43\\uDF3A\.\\u0301\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2134\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("9隁\x{E0F3A}.\x{0301}\x{200C}", %p)}, undef, "to_unicode\(\'9隁\\uDB43\\uDF3A\.\\u0301\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2135\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒌\x{0662}。Ⴣ\x{A9C0}彦", %p)}, undef, "to_unicode\(\'⒌\\u0662。Ⴣ\\uA9C0彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2136\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("5.\x{0662}。Ⴣ\x{A9C0}彦", %p)}, undef, "to_unicode\(\'5\.\\u0662\。Ⴣ\\uA9C0彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2137\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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("5.\x{0662}。ⴣ\x{A9C0}彦", %p)}, undef, "to_unicode\(\'5\.\\u0662\。ⴣ\\uA9C0彦\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2138\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("⒌\x{0662}。ⴣ\x{A9C0}彦", %p)}, undef, "to_unicode\(\'⒌\\u0662。ⴣ\\uA9C0彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2139\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-问\x{E072D}𝟷。\x{10E64}-\x{1C385}橬", %p)}, undef, "to_unicode\(\'\-问\\uDB41\\uDF2D𝟷\。\\uD803\\uDE64\-\\uD830\\uDF85橬\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2140\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-问\x{E072D}1。\x{10E64}-\x{1C385}橬", %p)}, undef, "to_unicode\(\'\-问\\uDB41\\uDF2D1\。\\uD803\\uDE64\-\\uD830\\uDF85橬\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2141\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DF3}Ⴌ\x{200C}\x{E0150}。𝟐", %p)}, undef, "to_unicode\(\'\\u2DF3Ⴌ\\u200C\\uDB40\\uDD50\。𝟐\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2142\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DF3}Ⴌ\x{200C}\x{E0150}。𝟐", %p)}, undef, "to_unicode\(\'\\u2DF3Ⴌ\\u200C\\uDB40\\uDD50\。𝟐\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2143\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DF3}Ⴌ\x{200C}\x{E0150}。2", %p)}, undef, "to_unicode\(\'\\u2DF3Ⴌ\\u200C\\uDB40\\uDD50\。2\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2144\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DF3}Ⴌ\x{200C}\x{E0150}。2", %p)}, undef, "to_unicode\(\'\\u2DF3Ⴌ\\u200C\\uDB40\\uDD50\。2\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2145\]") 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{2DF3}ⴌ\x{200C}\x{E0150}。2", %p)}, undef, "to_unicode\(\'\\u2DF3ⴌ\\u200C\\uDB40\\uDD50\。2\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2146\]") 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{2DF3}ⴌ\x{200C}\x{E0150}。2", %p)}, undef, "to_unicode\(\'\\u2DF3ⴌ\\u200C\\uDB40\\uDD50\。2\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2147\]") 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{2DF3}ⴌ\x{200C}\x{E0150}。𝟐", %p)}, undef, "to_unicode\(\'\\u2DF3ⴌ\\u200C\\uDB40\\uDD50\。𝟐\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2148\]") 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{2DF3}ⴌ\x{200C}\x{E0150}。𝟐", %p)}, undef, "to_unicode\(\'\\u2DF3ⴌ\\u200C\\uDB40\\uDD50\。𝟐\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2149\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{DC5F}。\x{1B44}\x{0601}𑁡", %p)}, undef, "to_unicode\(\'\\uDC5F\。\\u1B44\\u0601𑁡\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2150\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAF}\x{E0146}⾶。⒊︒눇≮", %p)}, undef, "to_unicode\(\'\\u0FAF\\uDB40\\uDD46⾶。⒊︒눇\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2151\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAF}\x{E0146}⾶。⒊︒눇<\x{0338}", %p)}, undef, "to_unicode\(\'\\u0FAF\\uDB40\\uDD46⾶。⒊︒눇\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2152\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAF}\x{E0146}飛。3.。눇≮", %p)}, undef, "to_unicode\(\'\\u0FAF\\uDB40\\uDD46飛\。3\.\。눇\≮\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2153\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAF}\x{E0146}飛。3.。눇<\x{0338}", %p)}, undef, "to_unicode\(\'\\u0FAF\\uDB40\\uDD46飛\。3\.\。눇\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2154\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{0F96}\x{0601}\x{200D}.\x{200C}⿃", %p)}, undef, "to_unicode\(\'\\u200C\\u0F96\\u0601\\u200D.\\u200C⿃\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:2155\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{0F96}\x{0601}\x{200D}.\x{200C}⿃", %p)}, undef, "to_unicode\(\'\\u200C\\u0F96\\u0601\\u200D.\\u200C⿃\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:2156\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{0F96}\x{0601}\x{200D}.\x{200C}鳥", %p)}, undef, "to_unicode\(\'\\u200C\\u0F96\\u0601\\u200D\.\\u200C鳥\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:2157\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{0F96}\x{0601}\x{200D}.\x{200C}鳥", %p)}, undef, "to_unicode\(\'\\u200C\\u0F96\\u0601\\u200D\.\\u200C鳥\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:2158\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0931}.\x{200D}🀶\x{1EF6C}\x{1A7B}", %p)}, undef, "to_unicode\(\'\\uDB42\\uDD31.\\u200D🀶\\uD83B\\uDF6C\\u1A7B\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2159\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0931}.\x{200D}🀶\x{1EF6C}\x{1A7B}", %p)}, undef, "to_unicode\(\'\\uDB42\\uDD31.\\u200D🀶\\uD83B\\uDF6C\\u1A7B\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2160\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0931}.\x{200D}🀶\x{1EF6C}\x{1A7B}", %p)}, undef, "to_unicode\(\'\\uDB42\\uDD31\.\\u200D🀶\\uD83B\\uDF6C\\u1A7B\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2161\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0931}.\x{200D}🀶\x{1EF6C}\x{1A7B}", %p)}, undef, "to_unicode\(\'\\uDB42\\uDD31\.\\u200D🀶\\uD83B\\uDF6C\\u1A7B\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2162\]") 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{E015B}.ꡬ\x{200D}", %p)}, undef, "to_unicode\(\'ᡵ\\uDB40\\uDD5B\.ꡬ\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2163\]") 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{E015B}.ꡬ\x{200D}", %p)}, undef, "to_unicode\(\'ᡵ\\uDB40\\uDD5B\.ꡬ\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2164\]") 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--i9e.xn--id9a", %p)}, "ᡵ.ꡬ", "to_unicode\(\'xn\-\-i9e\.xn\-\-id9a\'\)\ \[data\/IdnaTest\.txt\:2165\]") 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\:2166\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0600}\x{1B44}-.\x{C5109}\x{1BF2}\x{AC9E9}", %p)}, undef, "to_unicode\(\'\\u0600\\u1B44\-.\\uDAD4\\uDD09\\u1BF2\\uDA72\\uDDE9\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2167\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0600}\x{1B44}-.\x{C5109}\x{1BF2}\x{AC9E9}", %p)}, undef, "to_unicode\(\'\\u0600\\u1B44\-\.\\uDAD4\\uDD09\\u1BF2\\uDA72\\uDDE9\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2168\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{11046}-\x{10E63}。\x{0E34}\x{200C}\x{10E64}≮", %p)}, undef, "to_unicode\(\'4\\uD804\\uDC46\-\\uD803\\uDE63。\\u0E34\\u200C\\uD803\\uDE64\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2169\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{11046}-\x{10E63}。\x{0E34}\x{200C}\x{10E64}≮", %p)}, undef, "to_unicode\(\'4\\uD804\\uDC46\-\\uD803\\uDE63。\\u0E34\\u200C\\uD803\\uDE64\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2170\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{11046}-\x{10E63}。\x{0E34}\x{200C}\x{10E64}<\x{0338}", %p)}, undef, "to_unicode\(\'4\\uD804\\uDC46\-\\uD803\\uDE63。\\u0E34\\u200C\\uD803\\uDE64\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2171\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{11046}-\x{10E63}。\x{0E34}\x{200C}\x{10E64}<\x{0338}", %p)}, undef, "to_unicode\(\'4\\uD804\\uDC46\-\\uD803\\uDE63。\\u0E34\\u200C\\uD803\\uDE64\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2172\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{11046}-\x{10E63}。\x{0E34}\x{200C}\x{10E64}≮", %p)}, undef, "to_unicode\(\'4\\uD804\\uDC46\-\\uD803\\uDE63\。\\u0E34\\u200C\\uD803\\uDE64\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2173\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{11046}-\x{10E63}。\x{0E34}\x{200C}\x{10E64}≮", %p)}, undef, "to_unicode\(\'4\\uD804\\uDC46\-\\uD803\\uDE63\。\\u0E34\\u200C\\uD803\\uDE64\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2174\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{11046}-\x{10E63}。\x{0E34}\x{200C}\x{10E64}<\x{0338}", %p)}, undef, "to_unicode\(\'4\\uD804\\uDC46\-\\uD803\\uDE63\。\\u0E34\\u200C\\uD803\\uDE64\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2175\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{11046}-\x{10E63}。\x{0E34}\x{200C}\x{10E64}<\x{0338}", %p)}, undef, "to_unicode\(\'4\\uD804\\uDC46\-\\uD803\\uDE63\。\\u0E34\\u200C\\uD803\\uDE64\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2176\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。\x{FFA0}\x{A953}\x{030C}", %p)}, undef, "to_unicode\(\'\\u200C\。\\uFFA0\\uA953\\u030C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2177\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。\x{FFA0}\x{A953}\x{030C}", %p)}, undef, "to_unicode\(\'\\u200C\。\\uFFA0\\uA953\\u030C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2178\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。\x{1160}\x{A953}\x{030C}", %p)}, undef, "to_unicode\(\'\\u200C\。\\u1160\\uA953\\u030C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2179\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。\x{1160}\x{A953}\x{030C}", %p)}, undef, "to_unicode\(\'\\u200C\。\\u1160\\uA953\\u030C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2180\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{8FE71}.\x{200D}𝈲\x{9A2B8}", %p)}, undef, "to_unicode\(\'\≯\\uD9FF\\uDE71.\\u200D𝈲\\uDA28\\uDEB8\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2181\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{8FE71}.\x{200D}𝈲\x{9A2B8}", %p)}, undef, "to_unicode\(\'\≯\\uD9FF\\uDE71.\\u200D𝈲\\uDA28\\uDEB8\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2182\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{8FE71}.\x{200D}𝈲\x{9A2B8}", %p)}, undef, "to_unicode\(\'\>\\u0338\\uD9FF\\uDE71.\\u200D𝈲\\uDA28\\uDEB8\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2183\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{8FE71}.\x{200D}𝈲\x{9A2B8}", %p)}, undef, "to_unicode\(\'\>\\u0338\\uD9FF\\uDE71.\\u200D𝈲\\uDA28\\uDEB8\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2184\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{8FE71}.\x{200D}𝈲\x{9A2B8}", %p)}, undef, "to_unicode\(\'\≯\\uD9FF\\uDE71\.\\u200D𝈲\\uDA28\\uDEB8\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2185\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{8FE71}.\x{200D}𝈲\x{9A2B8}", %p)}, undef, "to_unicode\(\'\≯\\uD9FF\\uDE71\.\\u200D𝈲\\uDA28\\uDEB8\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2186\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{8FE71}.\x{200D}𝈲\x{9A2B8}", %p)}, undef, "to_unicode\(\'\>\\u0338\\uD9FF\\uDE71\.\\u200D𝈲\\uDA28\\uDEB8\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2187\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{8FE71}.\x{200D}𝈲\x{9A2B8}", %p)}, undef, "to_unicode\(\'\>\\u0338\\uD9FF\\uDE71\.\\u200D𝈲\\uDA28\\uDEB8\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2188\]") 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{07DE}。⁶\x{071F}", %p)}, undef, "to_unicode\(\'ꡞß\\u07DE。⁶\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2189\]") 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{07DE}。6\x{071F}", %p)}, undef, "to_unicode\(\'ꡞß\\u07DE\。6\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2190\]") 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("ꡞSS\x{07DE}。6\x{071F}", %p)}, undef, "to_unicode\(\'ꡞSS\\u07DE\。6\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2191\]") 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("ꡞss\x{07DE}。6\x{071F}", %p)}, undef, "to_unicode\(\'ꡞss\\u07DE\。6\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2192\]") 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("ꡞSs\x{07DE}。6\x{071F}", %p)}, undef, "to_unicode\(\'ꡞSs\\u07DE\。6\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2193\]") 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("ꡞSS\x{07DE}。⁶\x{071F}", %p)}, undef, "to_unicode\(\'ꡞSS\\u07DE。⁶\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2194\]") 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("ꡞss\x{07DE}。⁶\x{071F}", %p)}, undef, "to_unicode\(\'ꡞss\\u07DE。⁶\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2195\]") 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("ꡞSs\x{07DE}。⁶\x{071F}", %p)}, undef, "to_unicode\(\'ꡞSs\\u07DE。⁶\\u071F\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2196\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ß\x{E005D}\x{1A5A}\x{1EF97}。\x{10C99}\x{126EE}\x{0666}", %p)}, undef, "to_unicode\(\'ß\\uDB40\\uDC5D\\u1A5A\\uD83B\\uDF97\。\\uD803\\uDC99\\uD809\\uDEEE\\u0666\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2197\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{E005D}\x{1A5A}\x{1EF97}。\x{10C99}\x{126EE}\x{0666}", %p)}, undef, "to_unicode\(\'SS\\uDB40\\uDC5D\\u1A5A\\uD83B\\uDF97\。\\uD803\\uDC99\\uD809\\uDEEE\\u0666\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2198\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{E005D}\x{1A5A}\x{1EF97}。\x{10C99}\x{126EE}\x{0666}", %p)}, undef, "to_unicode\(\'ss\\uDB40\\uDC5D\\u1A5A\\uD83B\\uDF97\。\\uD803\\uDC99\\uD809\\uDEEE\\u0666\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2199\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{E005D}\x{1A5A}\x{1EF97}。\x{10C99}\x{126EE}\x{0666}", %p)}, undef, "to_unicode\(\'Ss\\uDB40\\uDC5D\\u1A5A\\uD83B\\uDF97\。\\uD803\\uDC99\\uD809\\uDEEE\\u0666\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2200\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。\x{0319}𝟖\x{1E96B}", %p)}, undef, "to_unicode\(\'\-。\\u0319𝟖\\uD83A\\uDD6B\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2201\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。\x{0319}8\x{1E96B}", %p)}, undef, "to_unicode\(\'\-\。\\u03198\\uD83A\\uDD6B\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2202\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4E605}ς.-≮\x{109F0}", %p)}, undef, "to_unicode\(\'\\uD8F9\\uDE05ς.\-\≮\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2203\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4E605}ς.-<\x{0338}\x{109F0}", %p)}, undef, "to_unicode\(\'\\uD8F9\\uDE05ς.\-\<\\u0338\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2204\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4E605}ς.-≮\x{109F0}", %p)}, undef, "to_unicode\(\'\\uD8F9\\uDE05ς\.\-\≮\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2205\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4E605}ς.-<\x{0338}\x{109F0}", %p)}, undef, "to_unicode\(\'\\uD8F9\\uDE05ς\.\-\<\\u0338\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2206\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4E605}Σ.-<\x{0338}\x{109F0}", %p)}, undef, "to_unicode\(\'\\uD8F9\\uDE05Σ\.\-\<\\u0338\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2207\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4E605}Σ.-≮\x{109F0}", %p)}, undef, "to_unicode\(\'\\uD8F9\\uDE05Σ\.\-\≮\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2208\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4E605}σ.-≮\x{109F0}", %p)}, undef, "to_unicode\(\'\\uD8F9\\uDE05σ\.\-\≮\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2209\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4E605}σ.-<\x{0338}\x{109F0}", %p)}, undef, "to_unicode\(\'\\uD8F9\\uDE05σ\.\-\<\\u0338\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2210\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4E605}Σ.-<\x{0338}\x{109F0}", %p)}, undef, "to_unicode\(\'\\uD8F9\\uDE05Σ.\-\<\\u0338\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2211\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4E605}Σ.-≮\x{109F0}", %p)}, undef, "to_unicode\(\'\\uD8F9\\uDE05Σ.\-\≮\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2212\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4E605}σ.-≮\x{109F0}", %p)}, undef, "to_unicode\(\'\\uD8F9\\uDE05σ.\-\≮\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2213\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4E605}σ.-<\x{0338}\x{109F0}", %p)}, undef, "to_unicode\(\'\\uD8F9\\uDE05σ.\-\<\\u0338\\uD802\\uDDF0\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2214\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0772}\x{0685}\x{071A}.\x{D0158}🍼\x{A8C4}\x{1ED96}", %p)}, undef, "to_unicode\(\'\\u0772\\u0685\\u071A.\\uDB00\\uDD58🍼\\uA8C4\\uD83B\\uDD96\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2215\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0772}\x{0685}\x{071A}.\x{D0158}🍼\x{A8C4}\x{1ED96}", %p)}, undef, "to_unicode\(\'\\u0772\\u0685\\u071A\.\\uDB00\\uDD58🍼\\uA8C4\\uD83B\\uDD96\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2216\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FD2E}\x{06B0}ᢦ\x{063A}。🄅\x{08ED}\x{A949}", %p)}, undef, "to_unicode\(\'\\uFD2E\\u06B0ᢦ\\u063A\。🄅\\u08ED\\uA949\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:2217\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0634}\x{062D}\x{06B0}ᢦ\x{063A}。4,\x{08ED}\x{A949}", %p)}, undef, "to_unicode\(\'\\u0634\\u062D\\u06B0ᢦ\\u063A\。4\,\\u08ED\\uA949\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:2218\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("₇\x{B4228}--。\x{0755}\x{200C}\x{FC9A}\x{1BAA}", %p)}, undef, "to_unicode\(\'₇\\uDA90\\uDE28\-\-\。\\u0755\\u200C\\uFC9A\\u1BAA\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2219\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("7\x{B4228}--。\x{0755}\x{200C}\x{0626}\x{0645}\x{1BAA}", %p)}, undef, "to_unicode\(\'7\\uDA90\\uDE28\-\-\。\\u0755\\u200C\\u0626\\u0645\\u1BAA\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2220\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("7\x{B4228}--。\x{0755}\x{200C}\x{064A}\x{0654}\x{0645}\x{1BAA}", %p)}, undef, "to_unicode\(\'7\\uDA90\\uDE28\-\-\。\\u0755\\u200C\\u064A\\u0654\\u0645\\u1BAA\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2221\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{5BE73}.\x{076D}ꡕ-", %p)}, undef, "to_unicode\(\'\-\\uD92F\\uDE73.\\u076Dꡕ\-\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2222\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{5BE73}.\x{076D}ꡕ-", %p)}, undef, "to_unicode\(\'\-\\uD92F\\uDE73\.\\u076Dꡕ\-\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2223\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}-ß。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_unicode\(\'\\u200C\-ß。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2224\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}-ß。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_unicode\(\'\\u200C\-ß。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2225\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}-ß。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_unicode\(\'\\u200C\-ß\。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2226\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}-ß。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_unicode\(\'\\u200C\-ß\。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2227\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}-SS。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_unicode\(\'\\u200C\-SS\。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2228\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}-SS。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_unicode\(\'\\u200C\-SS\。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2229\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}-ss。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_unicode\(\'\\u200C\-ss\。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2230\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}-ss。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_unicode\(\'\\u200C\-ss\。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2231\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}-Ss。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_unicode\(\'\\u200C\-Ss\。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2232\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}-Ss。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_unicode\(\'\\u200C\-Ss\。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2233\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}-SS。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_unicode\(\'\\u200C\-SS。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2234\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}-SS。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_unicode\(\'\\u200C\-SS。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2235\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}-ss。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_unicode\(\'\\u200C\-ss。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2236\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}-ss。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_unicode\(\'\\u200C\-ss。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2237\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}-Ss。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_unicode\(\'\\u200C\-Ss。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2238\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}-Ss。ᢢ\x{0667}\x{06EE}", %p)}, undef, "to_unicode\(\'\\u200C\-Ss。ᢢ\\u0667\\u06EE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2239\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("꧐Ӏ\x{09CD}\x{0A01}.눵", %p)}, undef, "to_unicode\(\'꧐Ӏ\\u09CD\\u0A01.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2240\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("꧐Ӏ\x{09CD}\x{0A01}.눵", %p)}, undef, "to_unicode\(\'꧐Ӏ\\u09CD\\u0A01.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2241\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("꧐Ӏ\x{09CD}\x{0A01}.눵", %p)}, undef, "to_unicode\(\'꧐Ӏ\\u09CD\\u0A01\.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2242\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("꧐Ӏ\x{09CD}\x{0A01}.눵", %p)}, undef, "to_unicode\(\'꧐Ӏ\\u09CD\\u0A01\.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2243\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{09CD}\x{0A01}.눵", %p)}, "꧐ӏ\x{09CD}\x{0A01}.눵", "to_unicode\(\'꧐ӏ\\u09CD\\u0A01\.눵\'\)\ \[data\/IdnaTest\.txt\:2244\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{09CD}\x{0A01}.눵", %p)}, "꧐ӏ\x{09CD}\x{0A01}.눵", "to_unicode\(\'꧐ӏ\\u09CD\\u0A01\.눵\'\)\ \[data\/IdnaTest\.txt\:2245\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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--s5a07wqex704d.xn--2e1b", %p)}, "꧐ӏ\x{09CD}\x{0A01}.눵", "to_unicode\(\'xn\-\-s5a07wqex704d\.xn\-\-2e1b\'\)\ \[data\/IdnaTest\.txt\:2246\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{09CD}\x{0A01}.눵", %p)}, "꧐ӏ\x{09CD}\x{0A01}.눵", "to_unicode\(\'꧐ӏ\\u09CD\\u0A01.눵\'\)\ \[data\/IdnaTest\.txt\:2247\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{09CD}\x{0A01}.눵", %p)}, "꧐ӏ\x{09CD}\x{0A01}.눵", "to_unicode\(\'꧐ӏ\\u09CD\\u0A01.눵\'\)\ \[data\/IdnaTest\.txt\:2248\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{E007E}。\x{D8EF7}\x{0348}\x{1B72}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDC7E。\\uDB23\\uDEF7\\u0348\\u1B72\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2249\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E007E}。\x{D8EF7}\x{0348}\x{1B72}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDC7E\。\\uDB23\\uDEF7\\u0348\\u1B72\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2250\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4230F}🁸。\x{53771}≯⾇", %p)}, undef, "to_unicode\(\'\\uD8C8\\uDF0F🁸\。\\uD90D\\uDF71\≯⾇\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2251\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4230F}🁸。\x{53771}>\x{0338}⾇", %p)}, undef, "to_unicode\(\'\\uD8C8\\uDF0F🁸\。\\uD90D\\uDF71\>\\u0338⾇\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2252\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4230F}🁸。\x{53771}≯舛", %p)}, undef, "to_unicode\(\'\\uD8C8\\uDF0F🁸\。\\uD90D\\uDF71\≯舛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2253\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4230F}🁸。\x{53771}>\x{0338}舛", %p)}, undef, "to_unicode\(\'\\uD8C8\\uDF0F🁸\。\\uD90D\\uDF71\>\\u0338舛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2254\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06CD}\x{0602}\x{200C}.\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'\\u06CD\\u0602\\u200C.\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ C1\ C2\ \[data\/IdnaTest\.txt\:2255\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06CD}\x{0602}\x{200C}.\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'\\u06CD\\u0602\\u200C.\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ C1\ C2\ \[data\/IdnaTest\.txt\:2256\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06CD}\x{0602}\x{200C}.\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'\\u06CD\\u0602\\u200C\.\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ C1\ C2\ \[data\/IdnaTest\.txt\:2257\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06CD}\x{0602}\x{200C}.\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'\\u06CD\\u0602\\u200C\.\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ C1\ C2\ \[data\/IdnaTest\.txt\:2258\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FB266}砪≯\x{0639}。≯\x{1A74}\x{B5208}\x{200C}", %p)}, undef, "to_unicode\(\'\\uDBAC\\uDE66砪\≯\\u0639。\≯\\u1A74\\uDA94\\uDE08\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2259\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FB266}砪≯\x{0639}。≯\x{1A74}\x{B5208}\x{200C}", %p)}, undef, "to_unicode\(\'\\uDBAC\\uDE66砪\≯\\u0639。\≯\\u1A74\\uDA94\\uDE08\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2260\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FB266}砪>\x{0338}\x{0639}。>\x{0338}\x{1A74}\x{B5208}\x{200C}", %p)}, undef, "to_unicode\(\'\\uDBAC\\uDE66砪\>\\u0338\\u0639。\>\\u0338\\u1A74\\uDA94\\uDE08\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2261\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FB266}砪>\x{0338}\x{0639}。>\x{0338}\x{1A74}\x{B5208}\x{200C}", %p)}, undef, "to_unicode\(\'\\uDBAC\\uDE66砪\>\\u0338\\u0639。\>\\u0338\\u1A74\\uDA94\\uDE08\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2262\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FB266}砪≯\x{0639}。≯\x{1A74}\x{B5208}\x{200C}", %p)}, undef, "to_unicode\(\'\\uDBAC\\uDE66砪\≯\\u0639\。\≯\\u1A74\\uDA94\\uDE08\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2263\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FB266}砪≯\x{0639}。≯\x{1A74}\x{B5208}\x{200C}", %p)}, undef, "to_unicode\(\'\\uDBAC\\uDE66砪\≯\\u0639\。\≯\\u1A74\\uDA94\\uDE08\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2264\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FB266}砪>\x{0338}\x{0639}。>\x{0338}\x{1A74}\x{B5208}\x{200C}", %p)}, undef, "to_unicode\(\'\\uDBAC\\uDE66砪\>\\u0338\\u0639\。\>\\u0338\\u1A74\\uDA94\\uDE08\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2265\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FB266}砪>\x{0338}\x{0639}。>\x{0338}\x{1A74}\x{B5208}\x{200C}", %p)}, undef, "to_unicode\(\'\\uDBAC\\uDE66砪\>\\u0338\\u0639\。\>\\u0338\\u1A74\\uDA94\\uDE08\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2266\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴥ.\x{11134}㊸", %p)}, undef, "to_unicode\(\'Ⴥ\.\\uD804\\uDD34㊸\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2267\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴥ.\x{11134}43", %p)}, undef, "to_unicode\(\'Ⴥ\.\\uD804\\uDD3443\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2268\]") 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{11134}43", %p)}, undef, "to_unicode\(\'ⴥ\.\\uD804\\uDD3443\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2269\]") 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{11134}㊸", %p)}, undef, "to_unicode\(\'ⴥ\.\\uD804\\uDD34㊸\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2270\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𝟒\x{0663}。Ⴒᡷ\x{FE09}\x{10E64}", %p)}, undef, "to_unicode\(\'𝟒\\u0663\。Ⴒᡷ\\uFE09\\uD803\\uDE64\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2271\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{0663}。Ⴒᡷ\x{FE09}\x{10E64}", %p)}, undef, "to_unicode\(\'4\\u0663\。Ⴒᡷ\\uFE09\\uD803\\uDE64\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2272\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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("4\x{0663}。ⴒᡷ\x{FE09}\x{10E64}", %p)}, undef, "to_unicode\(\'4\\u0663\。ⴒᡷ\\uFE09\\uD803\\uDE64\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2273\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0663}。ⴒᡷ\x{FE09}\x{10E64}", %p)}, undef, "to_unicode\(\'𝟒\\u0663\。ⴒᡷ\\uFE09\\uD803\\uDE64\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2274\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{8A366}\x{1DD8}\x{FFA0}\x{059B}.\x{93F50}\x{2D7F}", %p)}, undef, "to_unicode\(\'\\uD9E8\\uDF66\\u1DD8\\uFFA0\\u059B\.\\uDA0F\\uDF50\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2275\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{8A366}\x{1DD8}\x{1160}\x{059B}.\x{93F50}\x{2D7F}", %p)}, undef, "to_unicode\(\'\\uD9E8\\uDF66\\u1DD8\\u1160\\u059B\.\\uDA0F\\uDF50\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2276\]") 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{FE08}.𝟠\x{200C}\x{103A}", %p)}, undef, "to_unicode\(\'\\uFE08\.𝟠\\u200C\\u103A\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2277\]") 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{FE08}.𝟠\x{200C}\x{103A}", %p)}, undef, "to_unicode\(\'\\uFE08\.𝟠\\u200C\\u103A\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2278\]") 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{FE08}.8\x{200C}\x{103A}", %p)}, undef, "to_unicode\(\'\\uFE08\.8\\u200C\\u103A\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2279\]") 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{FE08}.8\x{200C}\x{103A}", %p)}, undef, "to_unicode\(\'\\uFE08\.8\\u200C\\u103A\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2280\]") 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--8-dug", %p)}, "8\x{103A}", "to_unicode\(\'xn\-\-8\-dug\'\)\ \[data\/IdnaTest\.txt\:2281\]") 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("8\x{103A}", %p)}, "8\x{103A}", "to_unicode\(\'8\\u103A\'\)\ \[data\/IdnaTest\.txt\:2282\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{063F}.︒ꡅ", %p)}, undef, "to_unicode\(\'\\u063F.︒ꡅ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2283\]") 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{063F}.。ꡅ", %p)}, undef, "to_unicode\(\'\\u063F\.\。ꡅ\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:2284\]") 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{1BF3}\x{0349}。\x{FC71}", %p)}, undef, "to_unicode\(\'\\u1BF3\\u0349。\\uFC71\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2285\]") 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{1BF3}\x{0349}。\x{062A}\x{0632}", %p)}, undef, "to_unicode\(\'\\u1BF3\\u0349\。\\u062A\\u0632\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2286\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{FCB3}。ꡋ\x{57A89}", %p)}, undef, "to_unicode\(\'\\uFCB3\。ꡋ\\uD91E\\uDE89\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2287\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0635}\x{0645}。ꡋ\x{57A89}", %p)}, undef, "to_unicode\(\'\\u0635\\u0645\。ꡋ\\uD91E\\uDE89\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2288\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1BF2}㴼.\x{200C}\x{10E78}\x{E01E9}\x{921E3}", %p)}, undef, "to_unicode\(\'\\u1BF2㴼.\\u200C\\uD803\\uDE78\\uDB40\\uDDE9\\uDA08\\uDDE3\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2289\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1BF2}㴼.\x{200C}\x{10E78}\x{E01E9}\x{921E3}", %p)}, undef, "to_unicode\(\'\\u1BF2㴼.\\u200C\\uD803\\uDE78\\uDB40\\uDDE9\\uDA08\\uDDE3\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2290\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1BF2}㴼.\x{200C}\x{10E78}\x{E01E9}\x{921E3}", %p)}, undef, "to_unicode\(\'\\u1BF2㴼\.\\u200C\\uD803\\uDE78\\uDB40\\uDDE9\\uDA08\\uDDE3\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2291\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1BF2}㴼.\x{200C}\x{10E78}\x{E01E9}\x{921E3}", %p)}, undef, "to_unicode\(\'\\u1BF2㴼\.\\u200C\\uD803\\uDE78\\uDB40\\uDDE9\\uDA08\\uDDE3\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2292\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𠨧\x{0665}\x{200B}。\x{0737}", %p)}, undef, "to_unicode\(\'𠨧\\u0665\\u200B。\\u0737\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2293\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𠨧\x{0665}\x{200B}。\x{0737}", %p)}, undef, "to_unicode\(\'𠨧\\u0665\\u200B\。\\u0737\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2294\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0855}뾜⊙\x{AAF6}。\x{089D}\x{10E75}", %p)}, undef, "to_unicode\(\'\\u0855뾜\⊙\\uAAF6\。\\u089D\\uD803\\uDE75\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2295\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0855}뾜⊙\x{AAF6}。\x{089D}\x{10E75}", %p)}, undef, "to_unicode\(\'\\u0855뾜\⊙\\uAAF6\。\\u089D\\uD803\\uDE75\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2296\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E73}≠。⒖⸃\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE73\≠。⒖\⸃\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2297\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E73}≠。⒖⸃\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE73\≠。⒖\⸃\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2298\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E73}=\x{0338}。⒖⸃\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE73\=\\u0338。⒖\⸃\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2299\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E73}=\x{0338}。⒖⸃\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE73\=\\u0338。⒖\⸃\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2300\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E73}≠。15.⸃\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE73\≠\。15\.\⸃\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2301\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E73}≠。15.⸃\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE73\≠\。15\.\⸃\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2302\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E73}=\x{0338}。15.⸃\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE73\=\\u0338\。15\.\⸃\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2303\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E73}=\x{0338}。15.⸃\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE73\=\\u0338\。15\.\⸃\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2304\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}\x{8845A}\x{103A}.\x{200D}\x{11046}\x{1E9A2}", %p)}, undef, "to_unicode\(\'\\u115F\\uD9E1\\uDC5A\\u103A.\\u200D\\uD804\\uDC46\\uD83A\\uDDA2\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2305\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}\x{8845A}\x{103A}.\x{200D}\x{11046}\x{1E9A2}", %p)}, undef, "to_unicode\(\'\\u115F\\uD9E1\\uDC5A\\u103A.\\u200D\\uD804\\uDC46\\uD83A\\uDDA2\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2306\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}\x{8845A}\x{103A}.\x{200D}\x{11046}\x{1E9A2}", %p)}, undef, "to_unicode\(\'\\u115F\\uD9E1\\uDC5A\\u103A\.\\u200D\\uD804\\uDC46\\uD83A\\uDDA2\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2307\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}\x{8845A}\x{103A}.\x{200D}\x{11046}\x{1E9A2}", %p)}, undef, "to_unicode\(\'\\u115F\\uD9E1\\uDC5A\\u103A\.\\u200D\\uD804\\uDC46\\uD83A\\uDDA2\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2308\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{AD20D}\x{0AC5}\x{05C5}\x{05AD}。≮", %p)}, undef, "to_unicode\(\'\\uDA74\\uDE0D\\u0AC5\\u05C5\\u05AD\。\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2309\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{AD20D}\x{0AC5}\x{05C5}\x{05AD}。<\x{0338}", %p)}, undef, "to_unicode\(\'\\uDA74\\uDE0D\\u0AC5\\u05C5\\u05AD\。\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2310\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F9B}.\x{1032}暀≠", %p)}, undef, "to_unicode\(\'\\u0F9B\.\\u1032暀\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2311\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F9B}.\x{1032}暀=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0F9B\.\\u1032暀\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2312\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10C23}\x{A806}。\x{10DFB}\x{C0AAC}\x{11081}", %p)}, undef, "to_unicode\(\'\\uD803\\uDC23\\uA806。\\uD803\\uDDFB\\uDAC2\\uDEAC\\uD804\\uDC81\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2313\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10C23}\x{A806}。\x{10DFB}\x{C0AAC}\x{11081}", %p)}, undef, "to_unicode\(\'\\uD803\\uDC23\\uA806\。\\uD803\\uDDFB\\uDAC2\\uDEAC\\uD804\\uDC81\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2314\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1D17E}\x{200D}⒈。Ⴌ\x{1ED9D}", %p)}, undef, "to_unicode\(\'\\uD834\\uDD7E\\u200D⒈。Ⴌ\\uD83B\\uDD9D\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2315\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1D17E}\x{200D}⒈。Ⴌ\x{1ED9D}", %p)}, undef, "to_unicode\(\'\\uD834\\uDD7E\\u200D⒈。Ⴌ\\uD83B\\uDD9D\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2316\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1D17E}\x{200D}1.。Ⴌ\x{1ED9D}", %p)}, undef, "to_unicode\(\'\\uD834\\uDD7E\\u200D1\.\。Ⴌ\\uD83B\\uDD9D\'\)\ throws\ error\ P1\ V5\ V6\ C2\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2317\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1D17E}\x{200D}1.。Ⴌ\x{1ED9D}", %p)}, undef, "to_unicode\(\'\\uD834\\uDD7E\\u200D1\.\。Ⴌ\\uD83B\\uDD9D\'\)\ throws\ error\ P1\ V5\ V6\ C2\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2318\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1D17E}\x{200D}1.。ⴌ\x{1ED9D}", %p)}, undef, "to_unicode\(\'\\uD834\\uDD7E\\u200D1\.\。ⴌ\\uD83B\\uDD9D\'\)\ throws\ error\ P1\ V5\ V6\ C2\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2319\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1D17E}\x{200D}1.。ⴌ\x{1ED9D}", %p)}, undef, "to_unicode\(\'\\uD834\\uDD7E\\u200D1\.\。ⴌ\\uD83B\\uDD9D\'\)\ throws\ error\ P1\ V5\ V6\ C2\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2320\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1D17E}\x{200D}⒈。ⴌ\x{1ED9D}", %p)}, undef, "to_unicode\(\'\\uD834\\uDD7E\\u200D⒈。ⴌ\\uD83B\\uDD9D\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2321\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1D17E}\x{200D}⒈。ⴌ\x{1ED9D}", %p)}, undef, "to_unicode\(\'\\uD834\\uDD7E\\u200D⒈。ⴌ\\uD83B\\uDD9D\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2322\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0DAA}\x{0BCD}\x{151AB}\x{076B}.ς\x{78786}\x{90BAA}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDDAA\\u0BCD\\uD814\\uDDAB\\u076B\.ς\\uD9A1\\uDF86\\uDA02\\uDFAA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2323\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0DAA}\x{0BCD}\x{151AB}\x{076B}.Σ\x{78786}\x{90BAA}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDDAA\\u0BCD\\uD814\\uDDAB\\u076B\.Σ\\uD9A1\\uDF86\\uDA02\\uDFAA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2324\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0DAA}\x{0BCD}\x{151AB}\x{076B}.σ\x{78786}\x{90BAA}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDDAA\\u0BCD\\uD814\\uDDAB\\u076B\.σ\\uD9A1\\uDF86\\uDA02\\uDFAA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2325\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0844}。\x{200C}\x{06BE}\x{5D389}", %p)}, undef, "to_unicode\(\'\\u0844\。\\u200C\\u06BE\\uD934\\uDF89\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2326\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0844}。\x{200C}\x{06BE}\x{5D389}", %p)}, undef, "to_unicode\(\'\\u0844\。\\u200C\\u06BE\\uD934\\uDF89\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2327\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}\x{E0196}.\x{0AC3}\x{06AF}\x{06BF}\x{1A18}", %p)}, undef, "to_unicode\(\'\\u1A78\\uDB40\\uDD96\.\\u0AC3\\u06AF\\u06BF\\u1A18\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2328\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("䂹\x{10D5DB}6.\x{200D}", %p)}, undef, "to_unicode\(\'䂹\\uDBF5\\uDDDB6.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2329\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䂹\x{10D5DB}6.\x{200D}", %p)}, undef, "to_unicode\(\'䂹\\uDBF5\\uDDDB6.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2330\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䂹\x{10D5DB}6.\x{200D}", %p)}, undef, "to_unicode\(\'䂹\\uDBF5\\uDDDB6\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2331\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䂹\x{10D5DB}6.\x{200D}", %p)}, undef, "to_unicode\(\'䂹\\uDBF5\\uDDDB6\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2332\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}\x{200C}\x{10E6B}\x{200C}。\x{1ECE5}۰", %p)}, undef, "to_unicode\(\'\\u0BCD\\u200C\\uD803\\uDE6B\\u200C。\\uD83B\\uDCE5۰\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2333\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}\x{200C}\x{10E6B}\x{200C}。\x{1ECE5}۰", %p)}, undef, "to_unicode\(\'\\u0BCD\\u200C\\uD803\\uDE6B\\u200C。\\uD83B\\uDCE5۰\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2334\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}\x{200C}\x{10E6B}\x{200C}。\x{1ECE5}۰", %p)}, undef, "to_unicode\(\'\\u0BCD\\u200C\\uD803\\uDE6B\\u200C\。\\uD83B\\uDCE5۰\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2335\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}\x{200C}\x{10E6B}\x{200C}。\x{1ECE5}۰", %p)}, undef, "to_unicode\(\'\\u0BCD\\u200C\\uD803\\uDE6B\\u200C\。\\uD83B\\uDCE5۰\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[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("。。Ⴃ≯", %p)}, undef, "to_unicode\(\'\。\。Ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2339\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。。Ⴃ>\x{0338}", %p)}, undef, "to_unicode\(\'\。\。Ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2340\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。。ⴃ>\x{0338}", %p)}, undef, "to_unicode\(\'\。\。ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2341\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。。ⴃ≯", %p)}, undef, "to_unicode\(\'\。\。ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2342\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒。ⴃ>\x{0338}", %p)}, undef, "to_unicode\(\'︒。ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2343\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒。ⴃ≯", %p)}, undef, "to_unicode\(\'︒。ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2344\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E79}。\x{E0D8D}\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE79。\\uDB43\\uDD8D\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2345\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E79}。\x{E0D8D}\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE79。\\uDB43\\uDD8D\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2346\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E79}。\x{E0D8D}\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE79\。\\uDB43\\uDD8D\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2347\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E79}。\x{E0D8D}\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE79\。\\uDB43\\uDD8D\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2348\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴞ\x{0600}。︒ꡠ\x{200D}Ⴏ", %p)}, undef, "to_unicode\(\'Ⴞ\\u0600。︒ꡠ\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:2349\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴞ\x{0600}。︒ꡠ\x{200D}Ⴏ", %p)}, undef, "to_unicode\(\'Ⴞ\\u0600。︒ꡠ\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:2350\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴞ\x{0600}。。ꡠ\x{200D}Ⴏ", %p)}, undef, "to_unicode\(\'Ⴞ\\u0600\。\。ꡠ\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ A4_2\ C2\ \[data\/IdnaTest\.txt\:2351\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴞ\x{0600}。。ꡠ\x{200D}Ⴏ", %p)}, undef, "to_unicode\(\'Ⴞ\\u0600\。\。ꡠ\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ A4_2\ C2\ \[data\/IdnaTest\.txt\:2352\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴞ\x{0600}。。ꡠ\x{200D}ⴏ", %p)}, undef, "to_unicode\(\'ⴞ\\u0600\。\。ꡠ\\u200Dⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ A4_2\ C2\ \[data\/IdnaTest\.txt\:2353\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴞ\x{0600}。。ꡠ\x{200D}ⴏ", %p)}, undef, "to_unicode\(\'ⴞ\\u0600\。\。ꡠ\\u200Dⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ A4_2\ C2\ \[data\/IdnaTest\.txt\:2354\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴞ\x{0600}。︒ꡠ\x{200D}ⴏ", %p)}, undef, "to_unicode\(\'ⴞ\\u0600。︒ꡠ\\u200Dⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:2355\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴞ\x{0600}。︒ꡠ\x{200D}ⴏ", %p)}, undef, "to_unicode\(\'ⴞ\\u0600。︒ꡠ\\u200Dⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:2356\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴆ⒈。-\x{E0158}-\x{07D2}", %p)}, undef, "to_unicode\(\'\\u200CႦ⒈\。\-\\uDB40\\uDD58\-\\u07D2\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2357\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴆ⒈。-\x{E0158}-\x{07D2}", %p)}, undef, "to_unicode\(\'\\u200CႦ⒈\。\-\\uDB40\\uDD58\-\\u07D2\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2358\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴆ1.。-\x{E0158}-\x{07D2}", %p)}, undef, "to_unicode\(\'\\u200CႦ1\.\。\-\\uDB40\\uDD58\-\\u07D2\'\)\ throws\ error\ P1\ V6\ V3\ C1\ A4_2\ B1\ \[data\/IdnaTest\.txt\:2359\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴆ1.。-\x{E0158}-\x{07D2}", %p)}, undef, "to_unicode\(\'\\u200CႦ1\.\。\-\\uDB40\\uDD58\-\\u07D2\'\)\ throws\ error\ P1\ V6\ V3\ C1\ A4_2\ B1\ \[data\/IdnaTest\.txt\:2360\]") 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}ⴆ1.。-\x{E0158}-\x{07D2}", %p)}, undef, "to_unicode\(\'\\u200Cⴆ1\.\。\-\\uDB40\\uDD58\-\\u07D2\'\)\ throws\ error\ V3\ C1\ A4_2\ B1\ \[data\/IdnaTest\.txt\:2361\]") 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}ⴆ1.。-\x{E0158}-\x{07D2}", %p)}, undef, "to_unicode\(\'\\u200Cⴆ1\.\。\-\\uDB40\\uDD58\-\\u07D2\'\)\ throws\ error\ V3\ C1\ A4_2\ B1\ \[data\/IdnaTest\.txt\:2362\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}ⴆ⒈。-\x{E0158}-\x{07D2}", %p)}, undef, "to_unicode\(\'\\u200Cⴆ⒈\。\-\\uDB40\\uDD58\-\\u07D2\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2363\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ⴆ⒈。-\x{E0158}-\x{07D2}", %p)}, undef, "to_unicode\(\'\\u200Cⴆ⒈\。\-\\uDB40\\uDD58\-\\u07D2\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2364\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("箃Ⴡ-\x{E005A}。≠-𐆓", %p)}, undef, "to_unicode\(\'箃Ⴡ\-\\uDB40\\uDC5A。\≠\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2365\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("箃Ⴡ-\x{E005A}。=\x{0338}-𐆓", %p)}, undef, "to_unicode\(\'箃Ⴡ\-\\uDB40\\uDC5A。\=\\u0338\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2366\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("箃Ⴡ-\x{E005A}。≠-𐆓", %p)}, undef, "to_unicode\(\'箃Ⴡ\-\\uDB40\\uDC5A\。\≠\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2367\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("箃Ⴡ-\x{E005A}。=\x{0338}-𐆓", %p)}, undef, "to_unicode\(\'箃Ⴡ\-\\uDB40\\uDC5A\。\=\\u0338\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2368\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("箃ⴡ-\x{E005A}。=\x{0338}-𐆓", %p)}, undef, "to_unicode\(\'箃ⴡ\-\\uDB40\\uDC5A\。\=\\u0338\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2369\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("箃ⴡ-\x{E005A}。≠-𐆓", %p)}, undef, "to_unicode\(\'箃ⴡ\-\\uDB40\\uDC5A\。\≠\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2370\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("箃ⴡ-\x{E005A}。=\x{0338}-𐆓", %p)}, undef, "to_unicode\(\'箃ⴡ\-\\uDB40\\uDC5A。\=\\u0338\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2371\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("箃ⴡ-\x{E005A}。≠-𐆓", %p)}, undef, "to_unicode\(\'箃ⴡ\-\\uDB40\\uDC5A。\≠\-𐆓\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2372\]") 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{07DF}", %p)}, "ᡫ.\x{07DF}", "to_unicode\(\'ᡫ\.\\u07DF\'\)\ \[data\/IdnaTest\.txt\:2373\]") 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--78e.xn--6sb", %p)}, "ᡫ.\x{07DF}", "to_unicode\(\'xn\-\-78e\.xn\-\-6sb\'\)\ \[data\/IdnaTest\.txt\:2374\]") 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{200D}.ꡑ", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\.ꡑ\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:2375\]") 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{200D}.ꡑ", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\.ꡑ\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:2376\]") 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--qc9a", %p)}, "ꡑ", "to_unicode\(\'xn\-\-qc9a\'\)\ \[data\/IdnaTest\.txt\:2377\]") 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\:2378\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{E07EA}\x{10E7A}\x{06C5}.ς\x{1039}蜹", %p)}, undef, "to_unicode\(\'\\uDB41\\uDFEA\\uD803\\uDE7A\\u06C5\.ς\\u1039蜹\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2379\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E07EA}\x{10E7A}\x{06C5}.Σ\x{1039}蜹", %p)}, undef, "to_unicode\(\'\\uDB41\\uDFEA\\uD803\\uDE7A\\u06C5\.Σ\\u1039蜹\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2380\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E07EA}\x{10E7A}\x{06C5}.σ\x{1039}蜹", %p)}, undef, "to_unicode\(\'\\uDB41\\uDFEA\\uD803\\uDE7A\\u06C5\.σ\\u1039蜹\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2381\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{9D1CE}ス\x{101FF0}\x{10E75}.\x{C819F}", %p)}, undef, "to_unicode\(\'\\uDA34\\uDDCEス\\uDBC7\\uDFF0\\uD803\\uDE75.\\uDAE0\\uDD9F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2382\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{9D1CE}ス\x{101FF0}\x{10E75}.\x{C819F}", %p)}, undef, "to_unicode\(\'\\uDA34\\uDDCEス\\uDBC7\\uDFF0\\uD803\\uDE75\.\\uDAE0\\uDD9F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2383\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B81}\x{4B205}.\x{0F87}\x{D850}\x{0721}", %p)}, undef, "to_unicode\(\'\\u1B81\\uD8EC\\uDE05.\\u0F87\\uD850\\u0721\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2384\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B81}\x{4B205}.\x{0F87}\x{D850}\x{0721}", %p)}, undef, "to_unicode\(\'\\u1B81\\uD8EC\\uDE05\.\\u0F87\\uD850\\u0721\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2385\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0668}\x{C3F02}\x{200C}。\x{08A7}", %p)}, undef, "to_unicode\(\'\\u0668\\uDACF\\uDF02\\u200C\。\\u08A7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2386\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0668}\x{C3F02}\x{200C}。\x{08A7}", %p)}, undef, "to_unicode\(\'\\u0668\\uDACF\\uDF02\\u200C\。\\u08A7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2387\]") 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{200D}\x{200C}。-\x{200C}", %p)}, undef, "to_unicode\(\'\\u1BAA\\u200D\\u200C\。\-\\u200C\'\)\ throws\ error\ V5\ V3\ C1\ \[data\/IdnaTest\.txt\:2388\]") 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{200D}\x{200C}。-\x{200C}", %p)}, undef, "to_unicode\(\'\\u1BAA\\u200D\\u200C\。\-\\u200C\'\)\ throws\ error\ V5\ V3\ C1\ \[data\/IdnaTest\.txt\:2389\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("︒。\x{1BAB}\x{076E}", %p)}, undef, "to_unicode\(\'︒。\\u1BAB\\u076E\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2390\]") 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{1BAB}\x{076E}", %p)}, undef, "to_unicode\(\'\。\。\\u1BAB\\u076E\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2391\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{067C}ß。ጫ\x{06B3}\x{0698}1", %p)}, undef, "to_unicode\(\'\\u067Cß\。ጫ\\u06B3\\u06981\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2392\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{067C}SS。ጫ\x{06B3}\x{0698}1", %p)}, undef, "to_unicode\(\'\\u067CSS\。ጫ\\u06B3\\u06981\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2393\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{067C}ss。ጫ\x{06B3}\x{0698}1", %p)}, undef, "to_unicode\(\'\\u067Css\。ጫ\\u06B3\\u06981\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2394\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{067C}Ss。ጫ\x{06B3}\x{0698}1", %p)}, undef, "to_unicode\(\'\\u067CSs\。ጫ\\u06B3\\u06981\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2395\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FB52}\x{1E9A7}ᚲ.\x{0B4D}꒕🄇\x{1714}", %p)}, undef, "to_unicode\(\'\\uFB52\\uD83A\\uDDA7ᚲ\.\\u0B4D꒕🄇\\u1714\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2396\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{067B}\x{1E9A7}ᚲ.\x{0B4D}꒕6,\x{1714}", %p)}, undef, "to_unicode\(\'\\u067B\\uD83A\\uDDA7ᚲ\.\\u0B4D꒕6\,\\u1714\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2397\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{0A4D}︒\x{200D}.\x{D2E58}簸", %p)}, undef, "to_unicode\(\'\-\\u0A4D︒\\u200D\.\\uDB0B\\uDE58簸\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2398\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{0A4D}︒\x{200D}.\x{D2E58}簸", %p)}, undef, "to_unicode\(\'\-\\u0A4D︒\\u200D\.\\uDB0B\\uDE58簸\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2399\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{0A4D}。\x{200D}.\x{D2E58}簸", %p)}, undef, "to_unicode\(\'\-\\u0A4D\。\\u200D\.\\uDB0B\\uDE58簸\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2400\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{0A4D}。\x{200D}.\x{D2E58}簸", %p)}, undef, "to_unicode\(\'\-\\u0A4D\。\\u200D\.\\uDB0B\\uDE58簸\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2401\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⳧.≯\x{05B7}", %p)}, undef, "to_unicode\(\'⳧\.\≯\\u05B7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2402\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⳧.>\x{0338}\x{05B7}", %p)}, undef, "to_unicode\(\'⳧\.\>\\u0338\\u05B7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2403\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{0ACD}\x{0359}\x{0666}。\x{1EFB3}", %p)}, undef, "to_unicode\(\'\-\\u0ACD\\u0359\\u0666\。\\uD83B\\uDFB3\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2404\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡢ.\x{06EE}\x{115F}", %p)}, undef, "to_unicode\(\'ᡢ.\\u06EE\\u115F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2405\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡢ.\x{06EE}\x{115F}", %p)}, undef, "to_unicode\(\'ᡢ\.\\u06EE\\u115F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2406\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㨛\x{BA6B3}.︒𝟜\x{085A}", %p)}, undef, "to_unicode\(\'㨛\\uDAA9\\uDEB3\.︒𝟜\\u085A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2407\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㨛\x{BA6B3}.。4\x{085A}", %p)}, undef, "to_unicode\(\'㨛\\uDAA9\\uDEB3\.\。4\\u085A\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2408\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0602}\x{60317}-。\x{10E89}\x{E0024}\x{08A8}≮", %p)}, undef, "to_unicode\(\'\\u0602\\uD940\\uDF17\-。\\uD803\\uDE89\\uDB40\\uDC24\\u08A8\≮\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2409\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0602}\x{60317}-。\x{10E89}\x{E0024}\x{08A8}<\x{0338}", %p)}, undef, "to_unicode\(\'\\u0602\\uD940\\uDF17\-。\\uD803\\uDE89\\uDB40\\uDC24\\u08A8\<\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2410\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0602}\x{60317}-。\x{10E89}\x{E0024}\x{08A8}≮", %p)}, undef, "to_unicode\(\'\\u0602\\uD940\\uDF17\-\。\\uD803\\uDE89\\uDB40\\uDC24\\u08A8\≮\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2411\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0602}\x{60317}-。\x{10E89}\x{E0024}\x{08A8}<\x{0338}", %p)}, undef, "to_unicode\(\'\\u0602\\uD940\\uDF17\-\。\\uD803\\uDE89\\uDB40\\uDC24\\u08A8\<\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2412\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{200C}\x{11101}ᡚ.\x{06EA}ჁႶ", %p)}, undef, "to_unicode\(\'ß\\u200C\\uD804\\uDD01ᡚ.\\u06EAჁႶ\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2413\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{200C}\x{11101}ᡚ.\x{06EA}ჁႶ", %p)}, undef, "to_unicode\(\'ß\\u200C\\uD804\\uDD01ᡚ.\\u06EAჁႶ\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2414\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{200C}\x{11101}ᡚ.\x{06EA}ჁႶ", %p)}, undef, "to_unicode\(\'ß\\u200C\\uD804\\uDD01ᡚ\.\\u06EAჁႶ\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2415\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{200C}\x{11101}ᡚ.\x{06EA}ჁႶ", %p)}, undef, "to_unicode\(\'ß\\u200C\\uD804\\uDD01ᡚ\.\\u06EAჁႶ\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2416\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_unicode\(\'ß\\u200C\\uD804\\uDD01ᡚ\.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2417\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_unicode\(\'ß\\u200C\\uD804\\uDD01ᡚ\.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2418\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("SS\x{200C}\x{11101}ᡚ.\x{06EA}ჁႶ", %p)}, undef, "to_unicode\(\'SS\\u200C\\uD804\\uDD01ᡚ\.\\u06EAჁႶ\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2419\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{200C}\x{11101}ᡚ.\x{06EA}ჁႶ", %p)}, undef, "to_unicode\(\'SS\\u200C\\uD804\\uDD01ᡚ\.\\u06EAჁႶ\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2420\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_unicode\(\'ss\\u200C\\uD804\\uDD01ᡚ\.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2421\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_unicode\(\'ss\\u200C\\uD804\\uDD01ᡚ\.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2422\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_unicode\(\'Ss\\u200C\\uD804\\uDD01ᡚ\.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2423\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_unicode\(\'Ss\\u200C\\uD804\\uDD01ᡚ\.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2424\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_unicode\(\'ß\\u200C\\uD804\\uDD01ᡚ.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2425\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_unicode\(\'ß\\u200C\\uD804\\uDD01ᡚ.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2426\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("SS\x{200C}\x{11101}ᡚ.\x{06EA}ჁႶ", %p)}, undef, "to_unicode\(\'SS\\u200C\\uD804\\uDD01ᡚ.\\u06EAჁႶ\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2427\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{200C}\x{11101}ᡚ.\x{06EA}ჁႶ", %p)}, undef, "to_unicode\(\'SS\\u200C\\uD804\\uDD01ᡚ.\\u06EAჁႶ\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2428\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_unicode\(\'ss\\u200C\\uD804\\uDD01ᡚ.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2429\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_unicode\(\'ss\\u200C\\uD804\\uDD01ᡚ.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2430\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_unicode\(\'Ss\\u200C\\uD804\\uDD01ᡚ.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2431\]") 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{11101}ᡚ.\x{06EA}ⴡⴖ", %p)}, undef, "to_unicode\(\'Ss\\u200C\\uD804\\uDD01ᡚ.\\u06EAⴡⴖ\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2432\]") 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}。ς\x{11039}", %p)}, undef, "to_unicode\(\'\\u200D\。ς\\uD804\\uDC39\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2433\]") 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}。ς\x{11039}", %p)}, undef, "to_unicode\(\'\\u200D\。ς\\uD804\\uDC39\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2434\]") 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}。Σ\x{11039}", %p)}, undef, "to_unicode\(\'\\u200D\。Σ\\uD804\\uDC39\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2435\]") 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}。Σ\x{11039}", %p)}, undef, "to_unicode\(\'\\u200D\。Σ\\uD804\\uDC39\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2436\]") 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}。σ\x{11039}", %p)}, undef, "to_unicode\(\'\\u200D\。σ\\uD804\\uDC39\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2437\]") 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}。σ\x{11039}", %p)}, undef, "to_unicode\(\'\\u200D\。σ\\uD804\\uDC39\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2438\]") 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--4xa6658k", %p)}, "σ\x{11039}", "to_unicode\(\'xn\-\-4xa6658k\'\)\ \[data\/IdnaTest\.txt\:2439\]") 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{11039}", %p)}, "σ\x{11039}", "to_unicode\(\'σ\\uD804\\uDC39\'\)\ \[data\/IdnaTest\.txt\:2440\]") 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{11039}", %p)}, "σ\x{11039}", "to_unicode\(\'Σ\\uD804\\uDC39\'\)\ \[data\/IdnaTest\.txt\:2441\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0721}ß.\x{0714}\x{200D}ᢊ-", %p)}, undef, "to_unicode\(\'\\u0721ß\.\\u0714\\u200Dᢊ\-\'\)\ throws\ error\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2442\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0721}ß.\x{0714}\x{200D}ᢊ-", %p)}, undef, "to_unicode\(\'\\u0721ß\.\\u0714\\u200Dᢊ\-\'\)\ throws\ error\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2443\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0721}SS.\x{0714}\x{200D}ᢊ-", %p)}, undef, "to_unicode\(\'\\u0721SS\.\\u0714\\u200Dᢊ\-\'\)\ throws\ error\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2444\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0721}SS.\x{0714}\x{200D}ᢊ-", %p)}, undef, "to_unicode\(\'\\u0721SS\.\\u0714\\u200Dᢊ\-\'\)\ throws\ error\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2445\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0721}ss.\x{0714}\x{200D}ᢊ-", %p)}, undef, "to_unicode\(\'\\u0721ss\.\\u0714\\u200Dᢊ\-\'\)\ throws\ error\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2446\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0721}ss.\x{0714}\x{200D}ᢊ-", %p)}, undef, "to_unicode\(\'\\u0721ss\.\\u0714\\u200Dᢊ\-\'\)\ throws\ error\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2447\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0721}Ss.\x{0714}\x{200D}ᢊ-", %p)}, undef, "to_unicode\(\'\\u0721Ss\.\\u0714\\u200Dᢊ\-\'\)\ throws\ error\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2448\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0721}Ss.\x{0714}\x{200D}ᢊ-", %p)}, undef, "to_unicode\(\'\\u0721Ss\.\\u0714\\u200Dᢊ\-\'\)\ throws\ error\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2449\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{302A}\x{200D}ᡗ.\x{10E77}\x{97264}-", %p)}, undef, "to_unicode\(\'\\u302A\\u200Dᡗ.\\uD803\\uDE77\\uDA1C\\uDE64\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:2450\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{302A}\x{200D}ᡗ.\x{10E77}\x{97264}-", %p)}, undef, "to_unicode\(\'\\u302A\\u200Dᡗ.\\uD803\\uDE77\\uDA1C\\uDE64\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:2451\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{302A}\x{200D}ᡗ.\x{10E77}\x{97264}-", %p)}, undef, "to_unicode\(\'\\u302A\\u200Dᡗ\.\\uD803\\uDE77\\uDA1C\\uDE64\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:2452\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{302A}\x{200D}ᡗ.\x{10E77}\x{97264}-", %p)}, undef, "to_unicode\(\'\\u302A\\u200Dᡗ\.\\uD803\\uDE77\\uDA1C\\uDE64\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:2453\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟢\x{81DED}\x{49122}\x{135F}.-\x{63ADF}", %p)}, undef, "to_unicode\(\'𝟢\\uD9C7\\uDDED\\uD8E4\\uDD22\\u135F\.\-\\uD94E\\uDEDF\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2454\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0\x{81DED}\x{49122}\x{135F}.-\x{63ADF}", %p)}, undef, "to_unicode\(\'0\\uD9C7\\uDDED\\uD8E4\\uDD22\\u135F\.\-\\uD94E\\uDEDF\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2455\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。\x{200D}", %p)}, undef, "to_unicode\(\'\-。\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2456\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。\x{200D}", %p)}, undef, "to_unicode\(\'\-。\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2457\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。\x{200D}", %p)}, undef, "to_unicode\(\'\-\。\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2458\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。\x{200D}", %p)}, undef, "to_unicode\(\'\-\。\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2459\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮ᠪ.ς7-\x{DB09}", %p)}, undef, "to_unicode\(\'\≮ᠪ.ς7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2460\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}ᠪ.ς7-\x{DB09}", %p)}, undef, "to_unicode\(\'\<\\u0338ᠪ.ς7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2461\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮ᠪ.ς7-\x{DB09}", %p)}, undef, "to_unicode\(\'\≮ᠪ\.ς7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2462\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}ᠪ.ς7-\x{DB09}", %p)}, undef, "to_unicode\(\'\<\\u0338ᠪ\.ς7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2463\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}ᠪ.Σ7-\x{DB09}", %p)}, undef, "to_unicode\(\'\<\\u0338ᠪ\.Σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2464\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮ᠪ.Σ7-\x{DB09}", %p)}, undef, "to_unicode\(\'\≮ᠪ\.Σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2465\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮ᠪ.σ7-\x{DB09}", %p)}, undef, "to_unicode\(\'\≮ᠪ\.σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2466\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}ᠪ.σ7-\x{DB09}", %p)}, undef, "to_unicode\(\'\<\\u0338ᠪ\.σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2467\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}ᠪ.Σ7-\x{DB09}", %p)}, undef, "to_unicode\(\'\<\\u0338ᠪ.Σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2468\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮ᠪ.Σ7-\x{DB09}", %p)}, undef, "to_unicode\(\'\≮ᠪ.Σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2469\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮ᠪ.σ7-\x{DB09}", %p)}, undef, "to_unicode\(\'\≮ᠪ.σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2470\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}ᠪ.σ7-\x{DB09}", %p)}, undef, "to_unicode\(\'\<\\u0338ᠪ.σ7\-\\uDB09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2471\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ቬ\x{DA1A0}\x{6D893}。\x{10856}𝟫", %p)}, undef, "to_unicode\(\'ቬ\\uDB28\\uDDA0\\uD976\\uDC93。\\uD802\\uDC56𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2472\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ቬ\x{DA1A0}\x{6D893}。\x{10856}9", %p)}, undef, "to_unicode\(\'ቬ\\uDB28\\uDDA0\\uD976\\uDC93\。\\uD802\\uDC569\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2473\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1086F}。蔫ꡏ", %p)}, undef, "to_unicode\(\'\\uD802\\uDC6F\。蔫ꡏ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2474\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{127B3}3。ꡂ\x{71F1B}\x{17CD}ᡁ", %p)}, undef, "to_unicode\(\'\\uD809\\uDFB33。ꡂ\\uD987\\uDF1B\\u17CDᡁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2475\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{127B3}3。ꡂ\x{71F1B}\x{17CD}ᡁ", %p)}, undef, "to_unicode\(\'\\uD809\\uDFB33\。ꡂ\\uD987\\uDF1B\\u17CDᡁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2476\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4469F}ᡑ≠.ß", %p)}, undef, "to_unicode\(\'\\uD8D1\\uDE9Fᡑ\≠\.ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2477\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4469F}ᡑ=\x{0338}.ß", %p)}, undef, "to_unicode\(\'\\uD8D1\\uDE9Fᡑ\=\\u0338\.ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2478\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4469F}ᡑ=\x{0338}.SS", %p)}, undef, "to_unicode\(\'\\uD8D1\\uDE9Fᡑ\=\\u0338\.SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2479\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4469F}ᡑ≠.SS", %p)}, undef, "to_unicode\(\'\\uD8D1\\uDE9Fᡑ\≠\.SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2480\]") 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{0842}\x{E0152}۱.\x{0664}\x{FB20}⼀\x{200C}", %p)}, undef, "to_unicode\(\'ᠧ\\u0842\\uDB40\\uDD52۱\.\\u0664\\uFB20⼀\\u200C\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:2481\]") 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{0842}\x{E0152}۱.\x{0664}\x{FB20}⼀\x{200C}", %p)}, undef, "to_unicode\(\'ᠧ\\u0842\\uDB40\\uDD52۱\.\\u0664\\uFB20⼀\\u200C\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:2482\]") 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{0842}\x{E0152}۱.\x{0664}\x{05E2}一\x{200C}", %p)}, undef, "to_unicode\(\'ᠧ\\u0842\\uDB40\\uDD52۱\.\\u0664\\u05E2一\\u200C\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:2483\]") 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{0842}\x{E0152}۱.\x{0664}\x{05E2}一\x{200C}", %p)}, undef, "to_unicode\(\'ᠧ\\u0842\\uDB40\\uDD52۱\.\\u0664\\u05E2一\\u200C\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:2484\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ς\x{200D}-.Ⴣ\x{98733}", %p)}, undef, "to_unicode\(\'ς\\u200D\-\.Ⴣ\\uDA21\\uDF33\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2485\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{200D}-.Ⴣ\x{98733}", %p)}, undef, "to_unicode\(\'ς\\u200D\-\.Ⴣ\\uDA21\\uDF33\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2486\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{200D}-.ⴣ\x{98733}", %p)}, undef, "to_unicode\(\'ς\\u200D\-\.ⴣ\\uDA21\\uDF33\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2487\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{200D}-.ⴣ\x{98733}", %p)}, undef, "to_unicode\(\'ς\\u200D\-\.ⴣ\\uDA21\\uDF33\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2488\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{200D}-.Ⴣ\x{98733}", %p)}, undef, "to_unicode\(\'Σ\\u200D\-\.Ⴣ\\uDA21\\uDF33\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2489\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{200D}-.Ⴣ\x{98733}", %p)}, undef, "to_unicode\(\'Σ\\u200D\-\.Ⴣ\\uDA21\\uDF33\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2490\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{200D}-.ⴣ\x{98733}", %p)}, undef, "to_unicode\(\'σ\\u200D\-\.ⴣ\\uDA21\\uDF33\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2491\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{200D}-.ⴣ\x{98733}", %p)}, undef, "to_unicode\(\'σ\\u200D\-\.ⴣ\\uDA21\\uDF33\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2492\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠。\x{E0880}𝟑", %p)}, undef, "to_unicode\(\'\≠\。\\uDB42\\uDC80𝟑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2493\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}。\x{E0880}𝟑", %p)}, undef, "to_unicode\(\'\=\\u0338\。\\uDB42\\uDC80𝟑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2494\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠。\x{E0880}3", %p)}, undef, "to_unicode\(\'\≠\。\\uDB42\\uDC803\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2495\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}。\x{E0880}3", %p)}, undef, "to_unicode\(\'\=\\u0338\。\\uDB42\\uDC803\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2496\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{5223B}.蠔", %p)}, undef, "to_unicode\(\'\\uD908\\uDE3B\.蠔\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2497\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{302C}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u302C\\u200D.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2498\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{302C}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u302C\\u200D.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2499\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{302C}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u302C\\u200D.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2500\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{302C}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u302C\\u200D.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2501\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{302C}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u302C\\u200D\.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2502\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{302C}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u302C\\u200D\.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2503\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{302C}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u302C\\u200D\.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2504\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{302C}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u302C\\u200D\.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2505\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟛\x{094D}Ⱉ\x{FEF9}。\x{E0077}\x{06EF}-\x{0874}", %p)}, undef, "to_unicode\(\'𝟛\\u094DⰙ\\uFEF9\。\\uDB40\\uDC77\\u06EF\-\\u0874\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2506\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3\x{094D}Ⱉ\x{0644}\x{0625}。\x{E0077}\x{06EF}-\x{0874}", %p)}, undef, "to_unicode\(\'3\\u094DⰙ\\u0644\\u0625\。\\uDB40\\uDC77\\u06EF\-\\u0874\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2507\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3\x{094D}Ⱉ\x{0644}\x{0627}\x{0655}。\x{E0077}\x{06EF}-\x{0874}", %p)}, undef, "to_unicode\(\'3\\u094DⰙ\\u0644\\u0627\\u0655\。\\uDB40\\uDC77\\u06EF\-\\u0874\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2508\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3\x{094D}ⱉ\x{0644}\x{0627}\x{0655}。\x{E0077}\x{06EF}-\x{0874}", %p)}, undef, "to_unicode\(\'3\\u094Dⱉ\\u0644\\u0627\\u0655\。\\uDB40\\uDC77\\u06EF\-\\u0874\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2509\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3\x{094D}ⱉ\x{0644}\x{0625}。\x{E0077}\x{06EF}-\x{0874}", %p)}, undef, "to_unicode\(\'3\\u094Dⱉ\\u0644\\u0625\。\\uDB40\\uDC77\\u06EF\-\\u0874\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2510\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟛\x{094D}ⱉ\x{FEF9}。\x{E0077}\x{06EF}-\x{0874}", %p)}, undef, "to_unicode\(\'𝟛\\u094Dⱉ\\uFEF9\。\\uDB40\\uDC77\\u06EF\-\\u0874\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2511\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。ᡯ", %p)}, undef, "to_unicode\(\'\-。ᡯ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2512\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。ᡯ", %p)}, undef, "to_unicode\(\'\-\。ᡯ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2513\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F93}\x{AEDEF}。-⒈\x{07CA}\x{07E1}", %p)}, undef, "to_unicode\(\'\\u0F93\\uDA7B\\uDDEF。\-⒈\\u07CA\\u07E1\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2514\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F92}\x{0FB7}\x{AEDEF}。-⒈\x{07CA}\x{07E1}", %p)}, undef, "to_unicode\(\'\\u0F92\\u0FB7\\uDA7B\\uDDEF。\-⒈\\u07CA\\u07E1\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2515\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F92}\x{0FB7}\x{AEDEF}。-1.\x{07CA}\x{07E1}", %p)}, undef, "to_unicode\(\'\\u0F92\\u0FB7\\uDA7B\\uDDEF\。\-1\.\\u07CA\\u07E1\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:2516\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("璛\x{0DCA}ᠨ.-", %p)}, undef, "to_unicode\(\'璛\\u0DCAᠨ\.\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2517\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{FE0D}\x{07DF}\x{0C4D}샕.\x{10E6B}휁", %p)}, undef, "to_unicode\(\'\\uFE0D\\u07DF\\u0C4D샕.\\uD803\\uDE6B휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2518\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{FE0D}\x{07DF}\x{0C4D}샕.\x{10E6B}휁", %p)}, undef, "to_unicode\(\'\\uFE0D\\u07DF\\u0C4D샕.\\uD803\\uDE6B휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2519\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{FE0D}\x{07DF}\x{0C4D}샕.\x{10E6B}휁", %p)}, undef, "to_unicode\(\'\\uFE0D\\u07DF\\u0C4D샕\.\\uD803\\uDE6B휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2520\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{FE0D}\x{07DF}\x{0C4D}샕.\x{10E6B}휁", %p)}, undef, "to_unicode\(\'\\uFE0D\\u07DF\\u0C4D샕\.\\uD803\\uDE6B휁\'\)\ throws\ error\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2521\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{8C670}.\x{873D7}", %p)}, undef, "to_unicode\(\'\\uD9F1\\uDE70.\\uD9DC\\uDFD7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2522\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{8C670}.\x{873D7}", %p)}, undef, "to_unicode\(\'\\uD9F1\\uDE70\.\\uD9DC\\uDFD7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2523\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢊ\x{077A}。\x{111C0}ᡁႭ-", %p)}, undef, "to_unicode\(\'ᢊ\\u077A。\\uD804\\uDDC0ᡁႭ\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2524\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢊ\x{077A}。\x{111C0}ᡁႭ-", %p)}, undef, "to_unicode\(\'ᢊ\\u077A\。\\uD804\\uDDC0ᡁႭ\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2525\]") 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{077A}。\x{111C0}ᡁⴍ-", %p)}, undef, "to_unicode\(\'ᢊ\\u077A\。\\uD804\\uDDC0ᡁⴍ\-\'\)\ throws\ error\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2526\]") 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{077A}。\x{111C0}ᡁⴍ-", %p)}, undef, "to_unicode\(\'ᢊ\\u077A。\\uD804\\uDDC0ᡁⴍ\-\'\)\ throws\ error\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2527\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{1EDDD}\x{1EA62}\x{1E96B}。\x{69DDF}𝟸Ⴋ\x{10957F}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDDDD\\uD83A\\uDE62\\uD83A\\uDD6B\。\\uD967\\uDDDF𝟸Ⴋ\\uDBE5\\uDD7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2528\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EDDD}\x{1EA62}\x{1E96B}。\x{69DDF}2Ⴋ\x{10957F}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDDDD\\uD83A\\uDE62\\uD83A\\uDD6B\。\\uD967\\uDDDF2Ⴋ\\uDBE5\\uDD7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2529\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EDDD}\x{1EA62}\x{1E96B}。\x{69DDF}2ⴋ\x{10957F}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDDDD\\uD83A\\uDE62\\uD83A\\uDD6B\。\\uD967\\uDDDF2ⴋ\\uDBE5\\uDD7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2530\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EDDD}\x{1EA62}\x{1E96B}。\x{69DDF}𝟸ⴋ\x{10957F}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDDDD\\uD83A\\uDE62\\uD83A\\uDD6B\。\\uD967\\uDDDF𝟸ⴋ\\uDBE5\\uDD7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2531\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{07D0}︒🜢.≠", %p)}, undef, "to_unicode\(\'4\\u07D0︒🜢\.\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2532\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{07D0}︒🜢.=\x{0338}", %p)}, undef, "to_unicode\(\'4\\u07D0︒🜢\.\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2533\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{07D0}。🜢.≠", %p)}, undef, "to_unicode\(\'4\\u07D0\。🜢\.\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2534\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{07D0}。🜢.=\x{0338}", %p)}, undef, "to_unicode\(\'4\\u07D0\。🜢\.\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2535\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄀。\x{0340}", %p)}, undef, "to_unicode\(\'🄀\。\\u0340\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2536\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄀。\x{0300}", %p)}, undef, "to_unicode\(\'🄀\。\\u0300\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2537\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0.。\x{0300}", %p)}, undef, "to_unicode\(\'0\.\。\\u0300\'\)\ throws\ error\ V5\ A4_2\ \[data\/IdnaTest\.txt\:2538\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{CDCDB}.⾕", %p)}, undef, "to_unicode\(\'\\u200C\\uDAF7\\uDCDB\.⾕\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2539\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{CDCDB}.⾕", %p)}, undef, "to_unicode\(\'\\u200C\\uDAF7\\uDCDB\.⾕\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2540\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{CDCDB}.谷", %p)}, undef, "to_unicode\(\'\\u200C\\uDAF7\\uDCDB\.谷\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2541\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{CDCDB}.谷", %p)}, undef, "to_unicode\(\'\\u200C\\uDAF7\\uDCDB\.谷\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2542\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒\x{75929}\x{200D}.-\x{0B44}\x{200C}", %p)}, undef, "to_unicode\(\'︒\\uD996\\uDD29\\u200D\.\-\\u0B44\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:2543\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒\x{75929}\x{200D}.-\x{0B44}\x{200C}", %p)}, undef, "to_unicode\(\'︒\\uD996\\uDD29\\u200D\.\-\\u0B44\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:2544\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。\x{75929}\x{200D}.-\x{0B44}\x{200C}", %p)}, undef, "to_unicode\(\'\。\\uD996\\uDD29\\u200D\.\-\\u0B44\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:2545\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。\x{75929}\x{200D}.-\x{0B44}\x{200C}", %p)}, undef, "to_unicode\(\'\。\\uD996\\uDD29\\u200D\.\-\\u0B44\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:2546\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯ꡠ。\x{08A5}", %p)}, undef, "to_unicode\(\'\≯ꡠ\。\\u08A5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2547\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}ꡠ。\x{08A5}", %p)}, undef, "to_unicode\(\'\>\\u0338ꡠ\。\\u08A5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2548\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DE6}\x{A7D64}\x{E0BFD}。\x{06C7}\x{10E6E}", %p)}, undef, "to_unicode\(\'\\u2DE6\\uDA5F\\uDD64\\uDB42\\uDFFD\。\\u06C7\\uD803\\uDE6E\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2549\]") 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{E0101}\x{07CF}𝟻𝟲。۷", %p)}, "\x{07CF}56.۷", "to_unicode\(\'\\uDB40\\uDD01\\u07CF𝟻𝟲。۷\'\)\ \[data\/IdnaTest\.txt\:2550\]") 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{E0101}\x{07CF}56。۷", %p)}, "\x{07CF}56.۷", "to_unicode\(\'\\uDB40\\uDD01\\u07CF56\。۷\'\)\ \[data\/IdnaTest\.txt\:2551\]") 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--56-nue.xn--kmb", %p)}, "\x{07CF}56.۷", "to_unicode\(\'xn\-\-56\-nue\.xn\-\-kmb\'\)\ \[data\/IdnaTest\.txt\:2552\]") 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}56.۷", %p)}, "\x{07CF}56.۷", "to_unicode\(\'\\u07CF56\.۷\'\)\ \[data\/IdnaTest\.txt\:2553\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200D}.🄃", %p)}, undef, "to_unicode\(\'\\u200D.🄃\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2554\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}.🄃", %p)}, undef, "to_unicode\(\'\\u200D.🄃\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2555\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}.2,", %p)}, undef, "to_unicode\(\'\\u200D\.2\,\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2556\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}.2,", %p)}, undef, "to_unicode\(\'\\u200D\.2\,\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2557\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0776}\x{0647}\x{B59BE}。\x{063B}\x{2DE0}", %p)}, undef, "to_unicode\(\'\\u0776\\u0647\\uDA96\\uDDBE\。\\u063B\\u2DE0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2558\]") 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{0720}𝟵\x{06BE}겙。\x{1DD9}\x{FC55}", %p)}, undef, "to_unicode\(\'\\u0720𝟵\\u06BE겙\。\\u1DD9\\uFC55\'\)\ throws\ error\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2559\]") 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{0720}𝟵\x{06BE}겙。\x{1DD9}\x{FC55}", %p)}, undef, "to_unicode\(\'\\u0720𝟵\\u06BE겙\。\\u1DD9\\uFC55\'\)\ throws\ error\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2560\]") 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{0720}9\x{06BE}겙。\x{1DD9}\x{064A}\x{062C}", %p)}, undef, "to_unicode\(\'\\u07209\\u06BE겙\。\\u1DD9\\u064A\\u062C\'\)\ throws\ error\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2561\]") 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{0720}9\x{06BE}겙。\x{1DD9}\x{064A}\x{062C}", %p)}, undef, "to_unicode\(\'\\u07209\\u06BE겙\。\\u1DD9\\u064A\\u062C\'\)\ throws\ error\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2562\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴍ\x{4F9AF}ᠸ\x{1A7C}。Ⴞ\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴍ\\uD8FE\\uDDAFᠸ\\u1A7C\。Ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2563\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴍ\x{4F9AF}ᠸ\x{1A7C}。Ⴞ\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴍ\\uD8FE\\uDDAFᠸ\\u1A7C\。Ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2564\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴍ\x{4F9AF}ᠸ\x{1A7C}。ⴞ\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'ⴍ\\uD8FE\\uDDAFᠸ\\u1A7C\。ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2565\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴍ\x{4F9AF}ᠸ\x{1A7C}。ⴞ\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'ⴍ\\uD8FE\\uDDAFᠸ\\u1A7C\。ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2566\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("8。\x{4FF43}", %p)}, undef, "to_unicode\(\'8\。\\uD8FF\\uDF43\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2567\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("8。\x{4FF43}", %p)}, undef, "to_unicode\(\'8\。\\uD8FF\\uDF43\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2568\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{17F0D}\x{17B4}\x{0ACD}.\x{06DD}", %p)}, undef, "to_unicode\(\'\\uD81F\\uDF0D\\u17B4\\u0ACD\.\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2569\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{09E2}Ⴋ\x{DC2F0}\x{10F765}.\x{545DB}₂휪\x{1A62}", %p)}, undef, "to_unicode\(\'\\u09E2Ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65.\\uD911\\uDDDB₂휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2570\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{09E2}Ⴋ\x{DC2F0}\x{10F765}.\x{545DB}₂휪\x{1A62}", %p)}, undef, "to_unicode\(\'\\u09E2Ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65.\\uD911\\uDDDB₂휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2571\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{09E2}Ⴋ\x{DC2F0}\x{10F765}.\x{545DB}2휪\x{1A62}", %p)}, undef, "to_unicode\(\'\\u09E2Ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65\.\\uD911\\uDDDB2휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2572\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{09E2}Ⴋ\x{DC2F0}\x{10F765}.\x{545DB}2휪\x{1A62}", %p)}, undef, "to_unicode\(\'\\u09E2Ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65\.\\uD911\\uDDDB2휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2573\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{09E2}ⴋ\x{DC2F0}\x{10F765}.\x{545DB}2휪\x{1A62}", %p)}, undef, "to_unicode\(\'\\u09E2ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65\.\\uD911\\uDDDB2휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2574\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{09E2}ⴋ\x{DC2F0}\x{10F765}.\x{545DB}2휪\x{1A62}", %p)}, undef, "to_unicode\(\'\\u09E2ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65\.\\uD911\\uDDDB2휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2575\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{09E2}ⴋ\x{DC2F0}\x{10F765}.\x{545DB}₂휪\x{1A62}", %p)}, undef, "to_unicode\(\'\\u09E2ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65.\\uD911\\uDDDB₂휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2576\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{09E2}ⴋ\x{DC2F0}\x{10F765}.\x{545DB}₂휪\x{1A62}", %p)}, undef, "to_unicode\(\'\\u09E2ⴋ\\uDB30\\uDEF0\\uDBFD\\uDF65.\\uD911\\uDDDB₂휪\\u1A62\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2577\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1ED62}.\x{FBE3}\x{10E60}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDD62.\\uFBE3\\uD803\\uDE60\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2578\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1ED62}.\x{06C9}\x{10E60}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDD62\.\\u06C9\\uD803\\uDE60\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2579\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1714}2.8\x{0ACD}\x{200D}\x{E08AD}", %p)}, undef, "to_unicode\(\'\\u17142\.8\\u0ACD\\u200D\\uDB42\\uDCAD\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2580\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1714}2.8\x{0ACD}\x{200D}\x{E08AD}", %p)}, undef, "to_unicode\(\'\\u17142\.8\\u0ACD\\u200D\\uDB42\\uDCAD\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2581\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E06B9}⩷\x{E0150}。\x{1ED73}\x{0A75}\x{E01CB}", %p)}, undef, "to_unicode\(\'\\uDB41\\uDEB9\⩷\\uDB40\\uDD50\。\\uD83B\\uDD73\\u0A75\\uDB40\\uDDCB\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2582\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡞ≠\x{AA2B}\x{A5198}。\x{FD34}\x{1B36}\x{FFA0}", %p)}, undef, "to_unicode\(\'ꡞ\≠\\uAA2B\\uDA54\\uDD98。\\uFD34\\u1B36\\uFFA0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2583\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡞ=\x{0338}\x{AA2B}\x{A5198}。\x{FD34}\x{1B36}\x{FFA0}", %p)}, undef, "to_unicode\(\'ꡞ\=\\u0338\\uAA2B\\uDA54\\uDD98。\\uFD34\\u1B36\\uFFA0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2584\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡞ≠\x{AA2B}\x{A5198}。\x{0633}\x{062C}\x{1B36}\x{1160}", %p)}, undef, "to_unicode\(\'ꡞ\≠\\uAA2B\\uDA54\\uDD98\。\\u0633\\u062C\\u1B36\\u1160\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2585\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡞ=\x{0338}\x{AA2B}\x{A5198}。\x{0633}\x{062C}\x{1B36}\x{1160}", %p)}, undef, "to_unicode\(\'ꡞ\=\\u0338\\uAA2B\\uDA54\\uDD98\。\\u0633\\u062C\\u1B36\\u1160\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2586\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("鱊。\x{200C}", %p)}, undef, "to_unicode\(\'鱊\。\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2587\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("鱊。\x{200C}", %p)}, undef, "to_unicode\(\'鱊\。\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2588\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--rt6a.", %p)}, "鱊.", "to_unicode\(\'xn\-\-rt6a\.\'\)\ \[data\/IdnaTest\.txt\:2589\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("鱊.", %p)}, "鱊.", "to_unicode\(\'鱊\.\'\)\ \[data\/IdnaTest\.txt\:2590\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E73}.\x{034D}", %p)}, undef, "to_unicode\(\'8\\uD803\\uDE73.\\u034D\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2591\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E73}.\x{034D}", %p)}, undef, "to_unicode\(\'8\\uD803\\uDE73\.\\u034D\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2592\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{E0DCA}\x{0864}.ᠹ", %p)}, undef, "to_unicode\(\'\\uDB43\\uDDCA\\u0864.ᠹ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2593\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0DCA}\x{0864}.ᠹ", %p)}, undef, "to_unicode\(\'\\uDB43\\uDDCA\\u0864\.ᠹ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2594\]") 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{0754}\x{077C}4.\x{200D}", %p)}, undef, "to_unicode\(\'\\u0754\\u077C4.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2595\]") 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{0754}\x{077C}4.\x{200D}", %p)}, undef, "to_unicode\(\'\\u0754\\u077C4.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2596\]") 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{0754}\x{077C}4.\x{200D}", %p)}, undef, "to_unicode\(\'\\u0754\\u077C4\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2597\]") 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{0754}\x{077C}4.\x{200D}", %p)}, undef, "to_unicode\(\'\\u0754\\u077C4\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2598\]") 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--4-53c4j.", %p)}, "\x{0754}\x{077C}4.", "to_unicode\(\'xn\-\-4\-53c4j\.\'\)\ \[data\/IdnaTest\.txt\:2599\]") 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{0754}\x{077C}4.", %p)}, "\x{0754}\x{077C}4.", "to_unicode\(\'\\u0754\\u077C4\.\'\)\ \[data\/IdnaTest\.txt\:2600\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("5\x{0610}\x{082B}-.\x{0603}\x{E0FA7}", %p)}, undef, "to_unicode\(\'5\\u0610\\u082B\-\.\\u0603\\uDB43\\uDFA7\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2601\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。䏛", %p)}, undef, "to_unicode\(\'\-。䏛\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2602\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。䏛", %p)}, undef, "to_unicode\(\'\-\。䏛\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2603\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{9B8A0}.\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\\uDA2E\\uDCA0.\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2604\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{9B8A0}.\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\\uDA2E\\uDCA0.\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2605\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{9B8A0}.\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\\uDA2E\\uDCA0\.\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2606\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{9B8A0}.\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\\uDA2E\\uDCA0\.\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:2607\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{1059}\x{2CA0B}。\x{10E66}\x{200D}\x{B2DBF}Ⴕ", %p)}, undef, "to_unicode\(\'⒈\\u1059\\uD872\\uDE0B。\\uD803\\uDE66\\u200D\\uDA8B\\uDDBFႵ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2608\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{1059}\x{2CA0B}。\x{10E66}\x{200D}\x{B2DBF}Ⴕ", %p)}, undef, "to_unicode\(\'⒈\\u1059\\uD872\\uDE0B。\\uD803\\uDE66\\u200D\\uDA8B\\uDDBFႵ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2609\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{1059}\x{2CA0B}。\x{10E66}\x{200D}\x{B2DBF}Ⴕ", %p)}, undef, "to_unicode\(\'1\.\\u1059\\uD872\\uDE0B\。\\uD803\\uDE66\\u200D\\uDA8B\\uDDBFႵ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2610\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{1059}\x{2CA0B}。\x{10E66}\x{200D}\x{B2DBF}Ⴕ", %p)}, undef, "to_unicode\(\'1\.\\u1059\\uD872\\uDE0B\。\\uD803\\uDE66\\u200D\\uDA8B\\uDDBFႵ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2611\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{1059}\x{2CA0B}。\x{10E66}\x{200D}\x{B2DBF}ⴕ", %p)}, undef, "to_unicode\(\'1\.\\u1059\\uD872\\uDE0B\。\\uD803\\uDE66\\u200D\\uDA8B\\uDDBFⴕ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2612\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{1059}\x{2CA0B}。\x{10E66}\x{200D}\x{B2DBF}ⴕ", %p)}, undef, "to_unicode\(\'1\.\\u1059\\uD872\\uDE0B\。\\uD803\\uDE66\\u200D\\uDA8B\\uDDBFⴕ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2613\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{1059}\x{2CA0B}。\x{10E66}\x{200D}\x{B2DBF}ⴕ", %p)}, undef, "to_unicode\(\'⒈\\u1059\\uD872\\uDE0B。\\uD803\\uDE66\\u200D\\uDA8B\\uDDBFⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2614\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{1059}\x{2CA0B}。\x{10E66}\x{200D}\x{B2DBF}ⴕ", %p)}, undef, "to_unicode\(\'⒈\\u1059\\uD872\\uDE0B。\\uD803\\uDE66\\u200D\\uDA8B\\uDDBFⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2615\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EF8C}\x{0847}-ß。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDF8C\\u0847\-ß。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2616\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EF8C}\x{0847}-ß。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDF8C\\u0847\-ß\。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2617\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EF8C}\x{0847}-SS。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDF8C\\u0847\-SS\。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2618\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EF8C}\x{0847}-ss。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDF8C\\u0847\-ss\。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2619\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EF8C}\x{0847}-Ss。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDF8C\\u0847\-Ss\。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2620\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EF8C}\x{0847}-SS。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDF8C\\u0847\-SS。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2621\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EF8C}\x{0847}-ss。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDF8C\\u0847\-ss。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2622\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EF8C}\x{0847}-Ss。\x{17D3}効\x{10E67}\x{CF20F}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDF8C\\u0847\-Ss。\\u17D3効\\uD803\\uDE67\\uDAFC\\uDE0F\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2623\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{AAF6}.\x{E0560}", %p)}, undef, "to_unicode\(\'\\uAAF6\.\\uDB41\\uDD60\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2624\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0911}6\x{1E886}。𝟹\x{11134}\x{10B70}", %p)}, undef, "to_unicode\(\'\\uDB42\\uDD116\\uD83A\\uDC86。𝟹\\uD804\\uDD34\\uD802\\uDF70\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2625\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0911}6\x{1E886}。3\x{11134}\x{10B70}", %p)}, undef, "to_unicode\(\'\\uDB42\\uDD116\\uD83A\\uDC86\。3\\uD804\\uDD34\\uD802\\uDF70\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2626\]") 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{1D17E}", %p)}, undef, "to_unicode\(\'ᢢ𝟴\\uA92Cꡝ\。\\uD834\\uDD7E\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2627\]") 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("ᢢ8\x{A92C}ꡝ。\x{1D17E}", %p)}, undef, "to_unicode\(\'ᢢ8\\uA92Cꡝ\。\\uD834\\uDD7E\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2628\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{066C}-\x{92486}Ⴂ。\x{A0992}\x{200D}", %p)}, undef, "to_unicode\(\'\\u066C\-\\uDA09\\uDC86Ⴂ\。\\uDA42\\uDD92\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2629\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{066C}-\x{92486}Ⴂ。\x{A0992}\x{200D}", %p)}, undef, "to_unicode\(\'\\u066C\-\\uDA09\\uDC86Ⴂ\。\\uDA42\\uDD92\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2630\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{066C}-\x{92486}ⴂ。\x{A0992}\x{200D}", %p)}, undef, "to_unicode\(\'\\u066C\-\\uDA09\\uDC86ⴂ\。\\uDA42\\uDD92\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2631\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{066C}-\x{92486}ⴂ。\x{A0992}\x{200D}", %p)}, undef, "to_unicode\(\'\\u066C\-\\uDA09\\uDC86ⴂ\。\\uDA42\\uDD92\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2632\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾆.\x{0723}0≯ß", %p)}, undef, "to_unicode\(\'⾆.\\u07230\≯ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2633\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾆.\x{0723}0>\x{0338}ß", %p)}, undef, "to_unicode\(\'⾆.\\u07230\>\\u0338ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2634\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("舌.\x{0723}0≯ß", %p)}, undef, "to_unicode\(\'舌\.\\u07230\≯ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2635\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("舌.\x{0723}0>\x{0338}ß", %p)}, undef, "to_unicode\(\'舌\.\\u07230\>\\u0338ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2636\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("舌.\x{0723}0>\x{0338}SS", %p)}, undef, "to_unicode\(\'舌\.\\u07230\>\\u0338SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2637\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("舌.\x{0723}0≯SS", %p)}, undef, "to_unicode\(\'舌\.\\u07230\≯SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2638\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("舌.\x{0723}0≯ss", %p)}, undef, "to_unicode\(\'舌\.\\u07230\≯ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2639\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("舌.\x{0723}0>\x{0338}ss", %p)}, undef, "to_unicode\(\'舌\.\\u07230\>\\u0338ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2640\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("舌.\x{0723}0>\x{0338}Ss", %p)}, undef, "to_unicode\(\'舌\.\\u07230\>\\u0338Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2641\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("舌.\x{0723}0≯Ss", %p)}, undef, "to_unicode\(\'舌\.\\u07230\≯Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2642\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾆.\x{0723}0>\x{0338}SS", %p)}, undef, "to_unicode\(\'⾆.\\u07230\>\\u0338SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2643\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾆.\x{0723}0≯SS", %p)}, undef, "to_unicode\(\'⾆.\\u07230\≯SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2644\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾆.\x{0723}0≯ss", %p)}, undef, "to_unicode\(\'⾆.\\u07230\≯ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2645\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾆.\x{0723}0>\x{0338}ss", %p)}, undef, "to_unicode\(\'⾆.\\u07230\>\\u0338ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2646\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾆.\x{0723}0>\x{0338}Ss", %p)}, undef, "to_unicode\(\'⾆.\\u07230\>\\u0338Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2647\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾆.\x{0723}0≯Ss", %p)}, undef, "to_unicode\(\'⾆.\\u07230\≯Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2648\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{11134}8\x{200D}.\x{EE437}ᢊ", %p)}, undef, "to_unicode\(\'\\uD804\\uDD348\\u200D.\\uDB79\\uDC37ᢊ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2649\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{11134}8\x{200D}.\x{EE437}ᢊ", %p)}, undef, "to_unicode\(\'\\uD804\\uDD348\\u200D.\\uDB79\\uDC37ᢊ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2650\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{11134}8\x{200D}.\x{EE437}ᢊ", %p)}, undef, "to_unicode\(\'\\uD804\\uDD348\\u200D\.\\uDB79\\uDC37ᢊ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2651\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{11134}8\x{200D}.\x{EE437}ᢊ", %p)}, undef, "to_unicode\(\'\\uD804\\uDD348\\u200D\.\\uDB79\\uDC37ᢊ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2652\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{923C8}\x{10A06}≮\x{82828}.\x{B20AB}4˹\x{06B5}", %p)}, undef, "to_unicode\(\'\\uDA08\\uDFC8\\uD802\\uDE06\≮\\uD9CA\\uDC28.\\uDA88\\uDCAB4˹\\u06B5\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2653\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{923C8}\x{10A06}<\x{0338}\x{82828}.\x{B20AB}4˹\x{06B5}", %p)}, undef, "to_unicode\(\'\\uDA08\\uDFC8\\uD802\\uDE06\<\\u0338\\uD9CA\\uDC28.\\uDA88\\uDCAB4˹\\u06B5\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2654\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{923C8}\x{10A06}≮\x{82828}.\x{B20AB}4˹\x{06B5}", %p)}, undef, "to_unicode\(\'\\uDA08\\uDFC8\\uD802\\uDE06\≮\\uD9CA\\uDC28\.\\uDA88\\uDCAB4˹\\u06B5\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2655\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{923C8}\x{10A06}<\x{0338}\x{82828}.\x{B20AB}4˹\x{06B5}", %p)}, undef, "to_unicode\(\'\\uDA08\\uDFC8\\uD802\\uDE06\<\\u0338\\uD9CA\\uDC28\.\\uDA88\\uDCAB4˹\\u06B5\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2656\]") 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{0842}.ς", %p)}, "\x{0842}.ς", "to_unicode\(\'\\u0842\.ς\'\)\ \[data\/IdnaTest\.txt\:2657\]") 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{0842}.ς", %p)}, "\x{0842}.ς", "to_unicode\(\'\\u0842\.ς\'\)\ \[data\/IdnaTest\.txt\:2658\]") 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{0842}.Σ", %p)}, "\x{0842}.σ", "to_unicode\(\'\\u0842\.Σ\'\)\ \[data\/IdnaTest\.txt\:2659\]") 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{0842}.σ", %p)}, "\x{0842}.σ", "to_unicode\(\'\\u0842\.σ\'\)\ \[data\/IdnaTest\.txt\:2660\]") 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--0vb.xn--4xa", %p)}, "\x{0842}.σ", "to_unicode\(\'xn\-\-0vb\.xn\-\-4xa\'\)\ \[data\/IdnaTest\.txt\:2661\]") 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--0vb.xn--3xa", %p)}, "\x{0842}.ς", "to_unicode\(\'xn\-\-0vb\.xn\-\-3xa\'\)\ \[data\/IdnaTest\.txt\:2662\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}Ⴚ。ς", %p)}, undef, "to_unicode\(\'\\u200CႺ。ς\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2663\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴚ。ς", %p)}, undef, "to_unicode\(\'\\u200CႺ。ς\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2664\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴚ。ς", %p)}, undef, "to_unicode\(\'\\u200CႺ\。ς\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2665\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴚ。ς", %p)}, undef, "to_unicode\(\'\\u200CႺ\。ς\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2666\]") 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\:2667\]") 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\:2668\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}Ⴚ。Σ", %p)}, undef, "to_unicode\(\'\\u200CႺ\。Σ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2669\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴚ。Σ", %p)}, undef, "to_unicode\(\'\\u200CႺ\。Σ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2670\]") 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\:2671\]") 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\:2672\]") 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\:2673\]") 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\:2674\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴚ.Σ", %p)}, undef, "to_unicode\(\'Ⴚ\.Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2675\]") 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\:2676\]") 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\:2677\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴚ.ς", %p)}, undef, "to_unicode\(\'Ⴚ\.ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2678\]") 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\:2679\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴚ.σ", %p)}, undef, "to_unicode\(\'Ⴚ\.σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2680\]") 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\:2681\]") 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\:2682\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}Ⴚ。Σ", %p)}, undef, "to_unicode\(\'\\u200CႺ。Σ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2683\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴚ。Σ", %p)}, undef, "to_unicode\(\'\\u200CႺ。Σ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2684\]") 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\:2685\]") 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\:2686\]") 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{07E3}.\x{0663}", %p)}, undef, "to_unicode\(\'\\u07E3.\\u0663\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2687\]") 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{07E3}.\x{0663}", %p)}, undef, "to_unicode\(\'\\u07E3\.\\u0663\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2688\]") 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{0981}\x{111C0}ꡏ", %p)}, undef, "to_unicode\(\'\\u200D⾕\。\\u200C\\u0981\\uD804\\uDDC0ꡏ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2689\]") 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{0981}\x{111C0}ꡏ", %p)}, undef, "to_unicode\(\'\\u200D⾕\。\\u200C\\u0981\\uD804\\uDDC0ꡏ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2690\]") 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{0981}\x{111C0}ꡏ", %p)}, undef, "to_unicode\(\'\\u200D谷\。\\u200C\\u0981\\uD804\\uDDC0ꡏ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2691\]") 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{0981}\x{111C0}ꡏ", %p)}, undef, "to_unicode\(\'\\u200D谷\。\\u200C\\u0981\\uD804\\uDDC0ꡏ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2692\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ᠴ-뉔.\x{0726}\x{200C}", %p)}, undef, "to_unicode\(\'ᠴ\-뉔.\\u0726\\u200C\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:2693\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠴ-뉔.\x{0726}\x{200C}", %p)}, undef, "to_unicode\(\'ᠴ\-뉔.\\u0726\\u200C\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:2694\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠴ-뉔.\x{0726}\x{200C}", %p)}, undef, "to_unicode\(\'ᠴ\-뉔.\\u0726\\u200C\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:2695\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠴ-뉔.\x{0726}\x{200C}", %p)}, undef, "to_unicode\(\'ᠴ\-뉔.\\u0726\\u200C\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:2696\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠴ-뉔.\x{0726}\x{200C}", %p)}, undef, "to_unicode\(\'ᠴ\-뉔\.\\u0726\\u200C\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:2697\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠴ-뉔.\x{0726}\x{200C}", %p)}, undef, "to_unicode\(\'ᠴ\-뉔\.\\u0726\\u200C\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:2698\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠴ-뉔.\x{0726}\x{200C}", %p)}, undef, "to_unicode\(\'ᠴ\-뉔\.\\u0726\\u200C\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:2699\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠴ-뉔.\x{0726}\x{200C}", %p)}, undef, "to_unicode\(\'ᠴ\-뉔\.\\u0726\\u200C\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:2700\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn----05j1765f.xn--wnb", %p)}, "ᠴ-뉔.\x{0726}", "to_unicode\(\'xn\-\-\-\-05j1765f\.xn\-\-wnb\'\)\ \[data\/IdnaTest\.txt\:2701\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠴ-뉔.\x{0726}", %p)}, "ᠴ-뉔.\x{0726}", "to_unicode\(\'ᠴ\-뉔\.\\u0726\'\)\ \[data\/IdnaTest\.txt\:2702\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠴ-뉔.\x{0726}", %p)}, "ᠴ-뉔.\x{0726}", "to_unicode\(\'ᠴ\-뉔\.\\u0726\'\)\ \[data\/IdnaTest\.txt\:2703\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C0E47}𝟴ᦛς.\x{1714}\x{067D}\x{0C3E}\x{1A68}", %p)}, undef, "to_unicode\(\'\\uDAC3\\uDE47𝟴ᦛς\.\\u1714\\u067D\\u0C3E\\u1A68\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2704\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C0E47}8ᦛς.\x{1714}\x{067D}\x{0C3E}\x{1A68}", %p)}, undef, "to_unicode\(\'\\uDAC3\\uDE478ᦛς\.\\u1714\\u067D\\u0C3E\\u1A68\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2705\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C0E47}8ᦛΣ.\x{1714}\x{067D}\x{0C3E}\x{1A68}", %p)}, undef, "to_unicode\(\'\\uDAC3\\uDE478ᦛΣ\.\\u1714\\u067D\\u0C3E\\u1A68\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2706\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C0E47}8ᦛσ.\x{1714}\x{067D}\x{0C3E}\x{1A68}", %p)}, undef, "to_unicode\(\'\\uDAC3\\uDE478ᦛσ\.\\u1714\\u067D\\u0C3E\\u1A68\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2707\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C0E47}𝟴ᦛΣ.\x{1714}\x{067D}\x{0C3E}\x{1A68}", %p)}, undef, "to_unicode\(\'\\uDAC3\\uDE47𝟴ᦛΣ\.\\u1714\\u067D\\u0C3E\\u1A68\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2708\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C0E47}𝟴ᦛσ.\x{1714}\x{067D}\x{0C3E}\x{1A68}", %p)}, undef, "to_unicode\(\'\\uDAC3\\uDE47𝟴ᦛσ\.\\u1714\\u067D\\u0C3E\\u1A68\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2709\]") 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{08A6}", %p)}, "淽.\x{08A6}", "to_unicode\(\'淽\。\\u08A6\'\)\ \[data\/IdnaTest\.txt\:2710\]") 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--34w.xn--vyb", %p)}, "淽.\x{08A6}", "to_unicode\(\'xn\-\-34w\.xn\-\-vyb\'\)\ \[data\/IdnaTest\.txt\:2711\]") 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{08A6}", %p)}, "淽.\x{08A6}", "to_unicode\(\'淽\.\\u08A6\'\)\ \[data\/IdnaTest\.txt\:2712\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E66}\x{E01B7}。-", %p)}, undef, "to_unicode\(\'\\uD803\\uDE66\\uDB40\\uDDB7\。\-\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2713\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{D46C7}Ⴓ\x{E06F0}。\x{059A}", %p)}, undef, "to_unicode\(\'\\uDB11\\uDEC7Ⴓ\\uDB41\\uDEF0。\\u059A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2714\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{D46C7}Ⴓ\x{E06F0}。\x{059A}", %p)}, undef, "to_unicode\(\'\\uDB11\\uDEC7Ⴓ\\uDB41\\uDEF0\。\\u059A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2715\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{D46C7}ⴓ\x{E06F0}。\x{059A}", %p)}, undef, "to_unicode\(\'\\uDB11\\uDEC7ⴓ\\uDB41\\uDEF0\。\\u059A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2716\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{D46C7}ⴓ\x{E06F0}。\x{059A}", %p)}, undef, "to_unicode\(\'\\uDB11\\uDEC7ⴓ\\uDB41\\uDEF0。\\u059A\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2717\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10E72}\x{0641}Ⴇ。ßႣ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2718\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10E72}\x{0641}Ⴇ。ßႣ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2719\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10E72}\x{0641}Ⴇ。ßႣ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ\。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2720\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10E72}\x{0641}Ⴇ。ßႣ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ\。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2721\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E72}\x{0641}ⴇ。ßⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641ⴇ\。ßⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2722\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E72}\x{0641}ⴇ。ßⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641ⴇ\。ßⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2723\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}\x{10E72}\x{0641}Ⴇ。SSႣ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ\。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2724\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10E72}\x{0641}Ⴇ。SSႣ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ\。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2725\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E72}\x{0641}ⴇ。ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641ⴇ\。ssⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2726\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E72}\x{0641}ⴇ。ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641ⴇ\。ssⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2727\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}\x{10E72}\x{0641}Ⴇ。Ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ\。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2728\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10E72}\x{0641}Ⴇ。Ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ\。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2729\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E72}\x{0641}ⴇ。ßⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641ⴇ。ßⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2730\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E72}\x{0641}ⴇ。ßⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641ⴇ。ßⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2731\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}\x{10E72}\x{0641}Ⴇ。SSႣ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2732\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10E72}\x{0641}Ⴇ。SSႣ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2733\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E72}\x{0641}ⴇ。ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641ⴇ。ssⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2734\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E72}\x{0641}ⴇ。ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641ⴇ。ssⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2735\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}\x{10E72}\x{0641}Ⴇ。Ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2736\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10E72}\x{0641}Ⴇ。Ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDE72\\u0641Ⴇ。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2737\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1024D0}。\x{FDF1}", %p)}, undef, "to_unicode\(\'\\uDBC9\\uDCD0。\\uFDF1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2738\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1024D0}。\x{0642}\x{0644}\x{06D2}", %p)}, undef, "to_unicode\(\'\\uDBC9\\uDCD0\。\\u0642\\u0644\\u06D2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2739\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A66}\x{200D}。\x{1039}\x{20D8}", %p)}, undef, "to_unicode\(\'\\u1A66\\u200D。\\u1039\\u20D8\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2740\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A66}\x{200D}。\x{1039}\x{20D8}", %p)}, undef, "to_unicode\(\'\\u1A66\\u200D。\\u1039\\u20D8\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2741\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A66}\x{200D}。\x{20D8}\x{1039}", %p)}, undef, "to_unicode\(\'\\u1A66\\u200D。\\u20D8\\u1039\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2742\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A66}\x{200D}。\x{20D8}\x{1039}", %p)}, undef, "to_unicode\(\'\\u1A66\\u200D。\\u20D8\\u1039\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2743\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A66}\x{200D}。\x{20D8}\x{1039}", %p)}, undef, "to_unicode\(\'\\u1A66\\u200D\。\\u20D8\\u1039\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2744\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A66}\x{200D}。\x{20D8}\x{1039}", %p)}, undef, "to_unicode\(\'\\u1A66\\u200D\。\\u20D8\\u1039\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2745\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("-≠\x{0850}.\x{071B}\x{0751}≮\x{B1709}", %p)}, undef, "to_unicode\(\'\-\≠\\u0850.\\u071B\\u0751\≮\\uDA85\\uDF09\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:2746\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-=\x{0338}\x{0850}.\x{071B}\x{0751}<\x{0338}\x{B1709}", %p)}, undef, "to_unicode\(\'\-\=\\u0338\\u0850.\\u071B\\u0751\<\\u0338\\uDA85\\uDF09\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:2747\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-≠\x{0850}.\x{071B}\x{0751}≮\x{B1709}", %p)}, undef, "to_unicode\(\'\-\≠\\u0850\.\\u071B\\u0751\≮\\uDA85\\uDF09\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:2748\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-=\x{0338}\x{0850}.\x{071B}\x{0751}<\x{0338}\x{B1709}", %p)}, undef, "to_unicode\(\'\-\=\\u0338\\u0850\.\\u071B\\u0751\<\\u0338\\uDA85\\uDF09\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:2749\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䷘≯\x{08C5}\x{084E}.\x{ED7CD}≮\x{A9C0}\x{06BA}", %p)}, undef, "to_unicode\(\'䷘\≯\\u08C5\\u084E.\\uDB75\\uDFCD\≮\\uA9C0\\u06BA\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2750\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䷘>\x{0338}\x{08C5}\x{084E}.\x{ED7CD}<\x{0338}\x{A9C0}\x{06BA}", %p)}, undef, "to_unicode\(\'䷘\>\\u0338\\u08C5\\u084E.\\uDB75\\uDFCD\<\\u0338\\uA9C0\\u06BA\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2751\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䷘≯\x{08C5}\x{084E}.\x{ED7CD}≮\x{A9C0}\x{06BA}", %p)}, undef, "to_unicode\(\'䷘\≯\\u08C5\\u084E\.\\uDB75\\uDFCD\≮\\uA9C0\\u06BA\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2752\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䷘>\x{0338}\x{08C5}\x{084E}.\x{ED7CD}<\x{0338}\x{A9C0}\x{06BA}", %p)}, undef, "to_unicode\(\'䷘\>\\u0338\\u08C5\\u084E\.\\uDB75\\uDFCD\<\\u0338\\uA9C0\\u06BA\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2753\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠\x{86CAC}.\x{10E63}\x{0A4D}-\x{1ED77}", %p)}, undef, "to_unicode\(\'\≠\\uD9DB\\uDCAC\.\\uD803\\uDE63\\u0A4D\-\\uD83B\\uDD77\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2754\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{86CAC}.\x{10E63}\x{0A4D}-\x{1ED77}", %p)}, undef, "to_unicode\(\'\=\\u0338\\uD9DB\\uDCAC\.\\uD803\\uDE63\\u0A4D\-\\uD83B\\uDD77\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2755\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06E4}\x{0A81}≠。\x{10E73}𝟝", %p)}, undef, "to_unicode\(\'\\u06E4\\u0A81\≠。\\uD803\\uDE73𝟝\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2756\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06E4}\x{0A81}=\x{0338}。\x{10E73}𝟝", %p)}, undef, "to_unicode\(\'\\u06E4\\u0A81\=\\u0338。\\uD803\\uDE73𝟝\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2757\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06E4}\x{0A81}≠。\x{10E73}5", %p)}, undef, "to_unicode\(\'\\u06E4\\u0A81\≠\。\\uD803\\uDE735\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2758\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06E4}\x{0A81}=\x{0338}。\x{10E73}5", %p)}, undef, "to_unicode\(\'\\u06E4\\u0A81\=\\u0338\。\\uD803\\uDE735\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2759\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{AF6B7}\x{550BA}。\x{1A62}🃕ß", %p)}, undef, "to_unicode\(\'ß\\uDA7D\\uDEB7\\uD914\\uDCBA。\\u1A62🃕ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2760\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{AF6B7}\x{550BA}。\x{1A62}🃕ß", %p)}, undef, "to_unicode\(\'ß\\uDA7D\\uDEB7\\uD914\\uDCBA\。\\u1A62🃕ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2761\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{AF6B7}\x{550BA}。\x{1A62}🃕SS", %p)}, undef, "to_unicode\(\'SS\\uDA7D\\uDEB7\\uD914\\uDCBA\。\\u1A62🃕SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2762\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{AF6B7}\x{550BA}。\x{1A62}🃕ss", %p)}, undef, "to_unicode\(\'ss\\uDA7D\\uDEB7\\uD914\\uDCBA\。\\u1A62🃕ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2763\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{AF6B7}\x{550BA}。\x{1A62}🃕Ss", %p)}, undef, "to_unicode\(\'Ss\\uDA7D\\uDEB7\\uD914\\uDCBA\。\\u1A62🃕Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2764\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{AF6B7}\x{550BA}。\x{1A62}🃕SS", %p)}, undef, "to_unicode\(\'SS\\uDA7D\\uDEB7\\uD914\\uDCBA。\\u1A62🃕SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2765\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{AF6B7}\x{550BA}。\x{1A62}🃕ss", %p)}, undef, "to_unicode\(\'ss\\uDA7D\\uDEB7\\uD914\\uDCBA。\\u1A62🃕ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2766\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{AF6B7}\x{550BA}。\x{1A62}🃕Ss", %p)}, undef, "to_unicode\(\'Ss\\uDA7D\\uDEB7\\uD914\\uDCBA。\\u1A62🃕Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2767\]") 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\:2768\]") 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\:2769\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E49}\x{FDA9}\x{200D}.\x{E01D1}\x{1EF9C}\x{9B50A}", %p)}, undef, "to_unicode\(\'\\u0E49\\uFDA9\\u200D\.\\uDB40\\uDDD1\\uD83B\\uDF9C\\uDA2D\\uDD0A\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:2770\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E49}\x{FDA9}\x{200D}.\x{E01D1}\x{1EF9C}\x{9B50A}", %p)}, undef, "to_unicode\(\'\\u0E49\\uFDA9\\u200D\.\\uDB40\\uDDD1\\uD83B\\uDF9C\\uDA2D\\uDD0A\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:2771\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E49}\x{0635}\x{062D}\x{064A}\x{200D}.\x{E01D1}\x{1EF9C}\x{9B50A}", %p)}, undef, "to_unicode\(\'\\u0E49\\u0635\\u062D\\u064A\\u200D\.\\uDB40\\uDDD1\\uD83B\\uDF9C\\uDA2D\\uDD0A\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:2772\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E49}\x{0635}\x{062D}\x{064A}\x{200D}.\x{E01D1}\x{1EF9C}\x{9B50A}", %p)}, undef, "to_unicode\(\'\\u0E49\\u0635\\u062D\\u064A\\u200D\.\\uDB40\\uDDD1\\uD83B\\uDF9C\\uDA2D\\uDD0A\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:2773\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1EE26}\x{200C}临。ᢜ\x{6FE12}ⶏ\x{10E72}", %p)}, undef, "to_unicode\(\'\\u200C\\uD83B\\uDE26\\u200C临\。ᢜ\\uD97F\\uDE12ⶏ\\uD803\\uDE72\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2774\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1EE26}\x{200C}临。ᢜ\x{6FE12}ⶏ\x{10E72}", %p)}, undef, "to_unicode\(\'\\u200C\\uD83B\\uDE26\\u200C临\。ᢜ\\uD97F\\uDE12ⶏ\\uD803\\uDE72\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2775\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0DFA}.\x{0739}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDDFA.\\u0739\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2776\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0DFA}.\x{0739}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDDFA\.\\u0739\'\)\ throws\ error\ P1\ V6\ 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_unicode("\x{068A}\x{0ACD}.\x{AAF6}", %p)}, undef, "to_unicode\(\'\\u068A\\u0ACD.\\uAAF6\'\)\ throws\ error\ V5\ \[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{068A}\x{0ACD}.\x{AAF6}", %p)}, undef, "to_unicode\(\'\\u068A\\u0ACD\.\\uAAF6\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2779\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0A75}\x{AF3A7}멹。𝟑\x{E0ED8}", %p)}, undef, "to_unicode\(\'\\u0A75\\uDA7C\\uDFA7멹\。𝟑\\uDB43\\uDED8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2780\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0A75}\x{AF3A7}멹。𝟑\x{E0ED8}", %p)}, undef, "to_unicode\(\'\\u0A75\\uDA7C\\uDFA7멹\。𝟑\\uDB43\\uDED8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2781\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0A75}\x{AF3A7}멹。3\x{E0ED8}", %p)}, undef, "to_unicode\(\'\\u0A75\\uDA7C\\uDFA7멹\。3\\uDB43\\uDED8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2782\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0A75}\x{AF3A7}멹。3\x{E0ED8}", %p)}, undef, "to_unicode\(\'\\u0A75\\uDA7C\\uDFA7멹\。3\\uDB43\\uDED8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2783\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴅ\x{56FF5}릖\x{E03F8}.\x{0626}\x{10E6E}₄", %p)}, undef, "to_unicode\(\'Ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u0626\\uD803\\uDE6E₄\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2784\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴅ\x{56FF5}릖\x{E03F8}.\x{064A}\x{0654}\x{10E6E}₄", %p)}, undef, "to_unicode\(\'Ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u064A\\u0654\\uD803\\uDE6E₄\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2785\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴅ\x{56FF5}릖\x{E03F8}.\x{0626}\x{10E6E}4", %p)}, undef, "to_unicode\(\'Ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u0626\\uD803\\uDE6E4\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2786\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴅ\x{56FF5}릖\x{E03F8}.\x{064A}\x{0654}\x{10E6E}4", %p)}, undef, "to_unicode\(\'Ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u064A\\u0654\\uD803\\uDE6E4\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2787\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴅ\x{56FF5}릖\x{E03F8}.\x{064A}\x{0654}\x{10E6E}4", %p)}, undef, "to_unicode\(\'ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u064A\\u0654\\uD803\\uDE6E4\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2788\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴅ\x{56FF5}릖\x{E03F8}.\x{0626}\x{10E6E}4", %p)}, undef, "to_unicode\(\'ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u0626\\uD803\\uDE6E4\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2789\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴅ\x{56FF5}릖\x{E03F8}.\x{064A}\x{0654}\x{10E6E}₄", %p)}, undef, "to_unicode\(\'ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u064A\\u0654\\uD803\\uDE6E₄\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2790\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴅ\x{56FF5}릖\x{E03F8}.\x{0626}\x{10E6E}₄", %p)}, undef, "to_unicode\(\'ⴅ\\uD91B\\uDFF5릖\\uDB40\\uDFF8\.\\u0626\\uD803\\uDE6E₄\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2791\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。︒", %p)}, undef, "to_unicode\(\'\\u200C。︒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2792\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。︒", %p)}, undef, "to_unicode\(\'\\u200C。︒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2793\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。。", %p)}, undef, "to_unicode\(\'\\u200C\。\。\'\)\ throws\ error\ C1\ A4_2\ \[data\/IdnaTest\.txt\:2794\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。。", %p)}, undef, "to_unicode\(\'\\u200C\。\。\'\)\ throws\ error\ C1\ A4_2\ \[data\/IdnaTest\.txt\:2795\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯ꡙ.⒍", %p)}, undef, "to_unicode\(\'\≯ꡙ.⒍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2796\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}ꡙ.⒍", %p)}, undef, "to_unicode\(\'\>\\u0338ꡙ.⒍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2797\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯ꡙ.6.", %p)}, undef, "to_unicode\(\'\≯ꡙ\.6\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2798\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}ꡙ.6.", %p)}, undef, "to_unicode\(\'\>\\u0338ꡙ\.6\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2799\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}-8.ß-\x{200C}-", %p)}, undef, "to_unicode\(\'\\u062B\-8\.ß\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2800\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}-8.ß-\x{200C}-", %p)}, undef, "to_unicode\(\'\\u062B\-8\.ß\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2801\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}-8.ß-\x{200C}-", %p)}, undef, "to_unicode\(\'\\u062B\-8\.ß\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2802\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}-8.ß-\x{200C}-", %p)}, undef, "to_unicode\(\'\\u062B\-8\.ß\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2803\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}-8.SS-\x{200C}-", %p)}, undef, "to_unicode\(\'\\u062B\-8\.SS\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2804\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}-8.SS-\x{200C}-", %p)}, undef, "to_unicode\(\'\\u062B\-8\.SS\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2805\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}-8.ss-\x{200C}-", %p)}, undef, "to_unicode\(\'\\u062B\-8\.ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2806\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}-8.ss-\x{200C}-", %p)}, undef, "to_unicode\(\'\\u062B\-8\.ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2807\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}-8.Ss-\x{200C}-", %p)}, undef, "to_unicode\(\'\\u062B\-8\.Ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2808\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}-8.Ss-\x{200C}-", %p)}, undef, "to_unicode\(\'\\u062B\-8\.Ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2809\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}-8.SS-\x{200C}-", %p)}, undef, "to_unicode\(\'\\u062B\-8\.SS\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2810\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}-8.SS-\x{200C}-", %p)}, undef, "to_unicode\(\'\\u062B\-8\.SS\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2811\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}-8.ss-\x{200C}-", %p)}, undef, "to_unicode\(\'\\u062B\-8\.ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2812\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}-8.ss-\x{200C}-", %p)}, undef, "to_unicode\(\'\\u062B\-8\.ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2813\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}-8.Ss-\x{200C}-", %p)}, undef, "to_unicode\(\'\\u062B\-8\.Ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2814\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}-8.Ss-\x{200C}-", %p)}, undef, "to_unicode\(\'\\u062B\-8\.Ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2815\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EDBA}𝟥\x{06FC}\x{5AC7C}。Ӏ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDDBA𝟥\\u06FC\\uD92B\\uDC7C。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2816\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EDBA}3\x{06FC}\x{5AC7C}。Ӏ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDDBA3\\u06FC\\uD92B\\uDC7C\。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2817\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EDBA}3\x{06FC}\x{5AC7C}。ӏ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDDBA3\\u06FC\\uD92B\\uDC7C\。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2818\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EDBA}𝟥\x{06FC}\x{5AC7C}。ӏ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDDBA𝟥\\u06FC\\uD92B\\uDC7C。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2819\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-.\x{10E79}\x{1EC95}\x{A6F1}⸟", %p)}, undef, "to_unicode\(\'\-\.\\uD803\\uDE79\\uD83B\\uDC95\\uA6F1\⸟\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2820\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10B492}ᡰ。\x{1CF4}₺", %p)}, undef, "to_unicode\(\'\\uDBED\\uDC92ᡰ\。\\u1CF4₺\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2821\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠ႷᡔႫ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_unicode\(\'\≠ႷᡔႫ。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2822\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}ႷᡔႫ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_unicode\(\'\=\\u0338ႷᡔႫ。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2823\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠ႷᡔႫ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_unicode\(\'\≠ႷᡔႫ\。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2824\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}ႷᡔႫ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_unicode\(\'\=\\u0338ႷᡔႫ\。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2825\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_unicode\(\'\=\\u0338ⴗᡔⴋ\。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2826\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_unicode\(\'\≠ⴗᡔⴋ\。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2827\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠Ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_unicode\(\'\≠Ⴗᡔⴋ\。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2828\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}Ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_unicode\(\'\=\\u0338Ⴗᡔⴋ\。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2829\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_unicode\(\'\=\\u0338ⴗᡔⴋ。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2830\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_unicode\(\'\≠ⴗᡔⴋ。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2831\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠Ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_unicode\(\'\≠Ⴗᡔⴋ。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2832\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}Ⴗᡔⴋ。\x{D907}\x{1D18A}\x{0776}觴", %p)}, undef, "to_unicode\(\'\=\\u0338Ⴗᡔⴋ。\\uD907\\uD834\\uDD8A\\u0776觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2833\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0600}.\x{10FA3}", %p)}, undef, "to_unicode\(\'\\u0600\.\\uD803\\uDFA3\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2834\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CCD}🄈。\x{200D}\x{6962F}\x{066B}\x{0E3A}", %p)}, undef, "to_unicode\(\'\\u0CCD🄈。\\u200D\\uD965\\uDE2F\\u066B\\u0E3A\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2835\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CCD}🄈。\x{200D}\x{6962F}\x{066B}\x{0E3A}", %p)}, undef, "to_unicode\(\'\\u0CCD🄈。\\u200D\\uD965\\uDE2F\\u066B\\u0E3A\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2836\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CCD}7,。\x{200D}\x{6962F}\x{066B}\x{0E3A}", %p)}, undef, "to_unicode\(\'\\u0CCD7\,\。\\u200D\\uD965\\uDE2F\\u066B\\u0E3A\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2837\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CCD}7,。\x{200D}\x{6962F}\x{066B}\x{0E3A}", %p)}, undef, "to_unicode\(\'\\u0CCD7\,\。\\u200D\\uD965\\uDE2F\\u066B\\u0E3A\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2838\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E8122}4\x{410B1}.≯\x{10E74}\x{135E}\x{E0E0C}", %p)}, undef, "to_unicode\(\'\\uDB60\\uDD224\\uD8C4\\uDCB1\.\≯\\uD803\\uDE74\\u135E\\uDB43\\uDE0C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2839\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E8122}4\x{410B1}.>\x{0338}\x{10E74}\x{135E}\x{E0E0C}", %p)}, undef, "to_unicode\(\'\\uDB60\\uDD224\\uD8C4\\uDCB1\.\>\\u0338\\uD803\\uDE74\\u135E\\uDB43\\uDE0C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2840\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{57237}🄉。𝟕\x{1A5A}⒉\x{79447}", %p)}, undef, "to_unicode\(\'\\uD91C\\uDE37🄉\。𝟕\\u1A5A⒉\\uD9A5\\uDC47\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2841\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{57237}8,。7\x{1A5A}2.\x{79447}", %p)}, undef, "to_unicode\(\'\\uD91C\\uDE378\,\。7\\u1A5A2\.\\uD9A5\\uDC47\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2842\]") 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\:2843\]") 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\:2844\]") 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\:2845\]") 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\:2846\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}1.1.。≯5,\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D1\.1\.\。\≯5\,\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A4_2\ \[data\/IdnaTest\.txt\:2847\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}1.1.。≯5,\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D1\.1\.\。\≯5\,\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A4_2\ \[data\/IdnaTest\.txt\:2848\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}1.1.。>\x{0338}5,\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D1\.1\.\。\>\\u03385\,\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A4_2\ \[data\/IdnaTest\.txt\:2849\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}1.1.。>\x{0338}5,\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D1\.1\.\。\>\\u03385\,\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A4_2\ \[data\/IdnaTest\.txt\:2850\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0755}\x{06CF}\x{A927}.\x{8C2E1}ᡚ≠\x{200C}", %p)}, undef, "to_unicode\(\'\\u0755\\u06CF\\uA927.\\uD9F0\\uDEE1ᡚ\≠\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2851\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0755}\x{06CF}\x{A927}.\x{8C2E1}ᡚ≠\x{200C}", %p)}, undef, "to_unicode\(\'\\u0755\\u06CF\\uA927.\\uD9F0\\uDEE1ᡚ\≠\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2852\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0755}\x{06CF}\x{A927}.\x{8C2E1}ᡚ=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0755\\u06CF\\uA927.\\uD9F0\\uDEE1ᡚ\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2853\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0755}\x{06CF}\x{A927}.\x{8C2E1}ᡚ=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0755\\u06CF\\uA927.\\uD9F0\\uDEE1ᡚ\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2854\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0755}\x{06CF}\x{A927}.\x{8C2E1}ᡚ≠\x{200C}", %p)}, undef, "to_unicode\(\'\\u0755\\u06CF\\uA927\.\\uD9F0\\uDEE1ᡚ\≠\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2855\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0755}\x{06CF}\x{A927}.\x{8C2E1}ᡚ≠\x{200C}", %p)}, undef, "to_unicode\(\'\\u0755\\u06CF\\uA927\.\\uD9F0\\uDEE1ᡚ\≠\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2856\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0755}\x{06CF}\x{A927}.\x{8C2E1}ᡚ=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0755\\u06CF\\uA927\.\\uD9F0\\uDEE1ᡚ\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2857\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0755}\x{06CF}\x{A927}.\x{8C2E1}ᡚ=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0755\\u06CF\\uA927\.\\uD9F0\\uDEE1ᡚ\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2858\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1BF1}。\x{BBE4D}\x{066B}", %p)}, undef, "to_unicode\(\'\\u1BF1。\\uDAAF\\uDE4D\\u066B\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2859\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1BF1}。\x{BBE4D}\x{066B}", %p)}, undef, "to_unicode\(\'\\u1BF1\。\\uDAAF\\uDE4D\\u066B\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2860\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E78}。\x{E0123}", %p)}, undef, "to_unicode\(\'3\\uD803\\uDE78\。\\uDB40\\uDD23\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2861\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E78}。\x{E0123}", %p)}, undef, "to_unicode\(\'3\\uD803\\uDE78\。\\uDB40\\uDD23\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2862\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E77}\x{10E73}.ꡟ긷", %p)}, undef, "to_unicode\(\'ᠬ\\uD803\\uDE77\\uD803\\uDE73\.ꡟ긷\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:2863\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E77}\x{10E73}.ꡟ긷", %p)}, undef, "to_unicode\(\'ᠬ\\uD803\\uDE77\\uD803\\uDE73\.ꡟ긷\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:2864\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("︒Ↄ\x{1732}\x{95B0F}.Ⴗ\x{1E890}", %p)}, undef, "to_unicode\(\'︒Ↄ\\u1732\\uDA16\\uDF0F.Ⴗ\\uD83A\\uDC90\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2865\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。Ↄ\x{1732}\x{95B0F}.Ⴗ\x{1E890}", %p)}, undef, "to_unicode\(\'\。Ↄ\\u1732\\uDA16\\uDF0F\.Ⴗ\\uD83A\\uDC90\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2866\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。ↄ\x{1732}\x{95B0F}.ⴗ\x{1E890}", %p)}, undef, "to_unicode\(\'\。ↄ\\u1732\\uDA16\\uDF0F\.ⴗ\\uD83A\\uDC90\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2867\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒ↄ\x{1732}\x{95B0F}.ⴗ\x{1E890}", %p)}, undef, "to_unicode\(\'︒ↄ\\u1732\\uDA16\\uDF0F.ⴗ\\uD83A\\uDC90\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2868\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6F}.\x{0948}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6F\.\\u0948\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2869\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ς≯。\x{10E65}", %p)}, undef, "to_unicode\(\'ς\≯。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2870\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς>\x{0338}。\x{10E65}", %p)}, undef, "to_unicode\(\'ς\>\\u0338。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2871\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς≯。\x{10E65}", %p)}, undef, "to_unicode\(\'ς\≯\。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2872\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς>\x{0338}。\x{10E65}", %p)}, undef, "to_unicode\(\'ς\>\\u0338\。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2873\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ>\x{0338}。\x{10E65}", %p)}, undef, "to_unicode\(\'Σ\>\\u0338\。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2874\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ≯。\x{10E65}", %p)}, undef, "to_unicode\(\'Σ\≯\。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2875\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ≯。\x{10E65}", %p)}, undef, "to_unicode\(\'σ\≯\。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2876\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ>\x{0338}。\x{10E65}", %p)}, undef, "to_unicode\(\'σ\>\\u0338\。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2877\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ>\x{0338}。\x{10E65}", %p)}, undef, "to_unicode\(\'Σ\>\\u0338。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2878\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ≯。\x{10E65}", %p)}, undef, "to_unicode\(\'Σ\≯。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2879\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ≯。\x{10E65}", %p)}, undef, "to_unicode\(\'σ\≯。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2880\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ>\x{0338}。\x{10E65}", %p)}, undef, "to_unicode\(\'σ\>\\u0338。\\uD803\\uDE65\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2881\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{200D}ꡀ。\x{10E78}", %p)}, undef, "to_unicode\(\'\\uA9C0\\u200Dꡀ\。\\uD803\\uDE78\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2882\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{9B886}\x{0A42}Ⴊ\x{5EF94}.≮", %p)}, undef, "to_unicode\(\'\\uDA2E\\uDC86\\u0A42Ⴊ\\uD93B\\uDF94\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2883\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{9B886}\x{0A42}Ⴊ\x{5EF94}.<\x{0338}", %p)}, undef, "to_unicode\(\'\\uDA2E\\uDC86\\u0A42Ⴊ\\uD93B\\uDF94\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2884\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{9B886}\x{0A42}ⴊ\x{5EF94}.<\x{0338}", %p)}, undef, "to_unicode\(\'\\uDA2E\\uDC86\\u0A42ⴊ\\uD93B\\uDF94\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2885\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{9B886}\x{0A42}ⴊ\x{5EF94}.≮", %p)}, undef, "to_unicode\(\'\\uDA2E\\uDC86\\u0A42ⴊ\\uD93B\\uDF94\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2886\]") 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{0843}.𝟻", %p)}, "\x{0843}.5", "to_unicode\(\'\\u0843.𝟻\'\)\ \[data\/IdnaTest\.txt\:2887\]") 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{0843}.5", %p)}, "\x{0843}.5", "to_unicode\(\'\\u0843\.5\'\)\ \[data\/IdnaTest\.txt\:2888\]") 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--1vb.5", %p)}, "\x{0843}.5", "to_unicode\(\'xn\-\-1vb\.5\'\)\ \[data\/IdnaTest\.txt\:2889\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0603}\x{2DD9A}。\x{06CE}𝟢", %p)}, undef, "to_unicode\(\'\\u0603\\uD877\\uDD9A。\\u06CE𝟢\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2890\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0603}\x{2DD9A}。\x{06CE}0", %p)}, undef, "to_unicode\(\'\\u0603\\uD877\\uDD9A\。\\u06CE0\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2891\]") 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{111C0}\x{FCEC}\x{1B6D}。\x{200D}\x{0F84}", %p)}, undef, "to_unicode\(\'\-\\uD804\\uDDC0\\uFCEC\\u1B6D。\\u200D\\u0F84\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:2892\]") 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{111C0}\x{FCEC}\x{1B6D}。\x{200D}\x{0F84}", %p)}, undef, "to_unicode\(\'\-\\uD804\\uDDC0\\uFCEC\\u1B6D。\\u200D\\u0F84\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:2893\]") 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{111C0}\x{0643}\x{0645}\x{1B6D}。\x{200D}\x{0F84}", %p)}, undef, "to_unicode\(\'\-\\uD804\\uDDC0\\u0643\\u0645\\u1B6D\。\\u200D\\u0F84\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:2894\]") 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{111C0}\x{0643}\x{0645}\x{1B6D}。\x{200D}\x{0F84}", %p)}, undef, "to_unicode\(\'\-\\uD804\\uDDC0\\u0643\\u0645\\u1B6D\。\\u200D\\u0F84\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:2895\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{FE0F}\x{200C}\x{8C6E1}𝟏。\x{200C}\x{A950}\x{0351}", %p)}, undef, "to_unicode\(\'\\uFE0F\\u200C\\uD9F1\\uDEE1𝟏。\\u200C\\uA950\\u0351\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2896\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE0F}\x{200C}\x{8C6E1}𝟏。\x{200C}\x{A950}\x{0351}", %p)}, undef, "to_unicode\(\'\\uFE0F\\u200C\\uD9F1\\uDEE1𝟏。\\u200C\\uA950\\u0351\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2897\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE0F}\x{200C}\x{8C6E1}1。\x{200C}\x{A950}\x{0351}", %p)}, undef, "to_unicode\(\'\\uFE0F\\u200C\\uD9F1\\uDEE11\。\\u200C\\uA950\\u0351\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2898\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE0F}\x{200C}\x{8C6E1}1。\x{200C}\x{A950}\x{0351}", %p)}, undef, "to_unicode\(\'\\uFE0F\\u200C\\uD9F1\\uDEE11\。\\u200C\\uA950\\u0351\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2899\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("兎。\x{071B}\x{E0D1C}\x{1734}\x{0F84}", %p)}, undef, "to_unicode\(\'兎。\\u071B\\uDB43\\uDD1C\\u1734\\u0F84\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2900\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("兎。\x{071B}\x{E0D1C}\x{1734}\x{0F84}", %p)}, undef, "to_unicode\(\'兎\。\\u071B\\uDB43\\uDD1C\\u1734\\u0F84\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2901\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒙。\x{200D}5\x{200D}⒕", %p)}, undef, "to_unicode\(\'⒙。\\u200D5\\u200D⒕\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2902\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒙。\x{200D}5\x{200D}⒕", %p)}, undef, "to_unicode\(\'⒙。\\u200D5\\u200D⒕\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2903\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("18.。\x{200D}5\x{200D}14.", %p)}, undef, "to_unicode\(\'18\.\。\\u200D5\\u200D14\.\'\)\ throws\ error\ A4_2\ C2\ \[data\/IdnaTest\.txt\:2904\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("18.。\x{200D}5\x{200D}14.", %p)}, undef, "to_unicode\(\'18\.\。\\u200D5\\u200D14\.\'\)\ throws\ error\ A4_2\ C2\ \[data\/IdnaTest\.txt\:2905\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0849}-。\x{E09FA}⒔", %p)}, undef, "to_unicode\(\'\\u0849\-。\\uDB42\\uDDFA⒔\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:2906\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0849}-。\x{E09FA}13.", %p)}, undef, "to_unicode\(\'\\u0849\-\。\\uDB42\\uDDFA13\.\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:2907\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DED}\x{7CF6C}\x{FC08}.\x{10E60}۸", %p)}, undef, "to_unicode\(\'\\u2DED\\uD9B3\\uDF6C\\uFC08.\\uD803\\uDE60۸\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2908\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DED}\x{7CF6C}\x{0628}\x{0645}.\x{10E60}۸", %p)}, undef, "to_unicode\(\'\\u2DED\\uD9B3\\uDF6C\\u0628\\u0645\.\\uD803\\uDE60۸\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2909\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴜ𤮹\x{1CE8}⾇。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴜ𤮹\\u1CE8⾇\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2910\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴜ𤮹\x{1CE8}⾇。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴜ𤮹\\u1CE8⾇\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2911\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴜ𤮹\x{1CE8}舛。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴜ𤮹\\u1CE8舛\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2912\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴜ𤮹\x{1CE8}舛。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴜ𤮹\\u1CE8舛\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2913\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1CE8}舛。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'ⴜ𤮹\\u1CE8舛\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2914\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1CE8}舛。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'ⴜ𤮹\\u1CE8舛\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ C1\ \[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("xn--16f130edj8dsszv.xn--e5h11w", %p)}, "ⴜ𤮹\x{1CE8}舛.ⴏ♀", "to_unicode\(\'xn\-\-16f130edj8dsszv\.xn\-\-e5h11w\'\)\ \[data\/IdnaTest\.txt\:2916\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1CE8}舛.ⴏ♀", %p)}, "ⴜ𤮹\x{1CE8}舛.ⴏ♀", "to_unicode\(\'ⴜ𤮹\\u1CE8舛\.ⴏ\♀\'\)\ \[data\/IdnaTest\.txt\:2917\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴜ𤮹\x{1CE8}舛.Ⴏ♀", %p)}, undef, "to_unicode\(\'Ⴜ𤮹\\u1CE8舛\.Ⴏ\♀\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2918\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1CE8}⾇。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'ⴜ𤮹\\u1CE8⾇\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2919\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1CE8}⾇。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'ⴜ𤮹\\u1CE8⾇\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2920\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0D4D}🄈.\x{200D}", %p)}, undef, "to_unicode\(\'\\u0D4D🄈\.\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2921\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0D4D}🄈.\x{200D}", %p)}, undef, "to_unicode\(\'\\u0D4D🄈\.\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2922\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0D4D}7,.\x{200D}", %p)}, undef, "to_unicode\(\'\\u0D4D7\,\.\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2923\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0D4D}7,.\x{200D}", %p)}, undef, "to_unicode\(\'\\u0D4D7\,\.\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2924\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C512A}Ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\\uDAD4\\uDD2AႾ癀。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2925\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C512A}Ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\\uDAD4\\uDD2AႾ癀。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2926\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C512A}Ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\\uDAD4\\uDD2AႾ癀。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2927\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C512A}Ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\\uDAD4\\uDD2AႾ癀。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2928\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C512A}Ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\\uDAD4\\uDD2AႾ癀\。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2929\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C512A}Ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\\uDAD4\\uDD2AႾ癀\。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2930\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C512A}Ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\\uDAD4\\uDD2AႾ癀\。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2931\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C512A}Ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\\uDAD4\\uDD2AႾ癀\。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2932\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C512A}ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\\uDAD4\\uDD2Aⴞ癀\。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2933\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C512A}ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\\uDAD4\\uDD2Aⴞ癀\。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2934\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C512A}ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\\uDAD4\\uDD2Aⴞ癀\。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2935\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C512A}ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\\uDAD4\\uDD2Aⴞ癀\。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2936\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C512A}ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\\uDAD4\\uDD2Aⴞ癀。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2937\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C512A}ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\\uDAD4\\uDD2Aⴞ癀。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2938\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C512A}ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\\uDAD4\\uDD2Aⴞ癀。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2939\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{C512A}ⴞ癀。\x{0BCD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'\\uDAD4\\uDD2Aⴞ癀。\\u0BCD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2940\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{D79A5}-\x{110B9}。\x{08A6}", %p)}, undef, "to_unicode\(\'\\uDB1E\\uDDA5\-\\uD804\\uDCB9\。\\u08A6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2941\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08A4}𝟥≯\x{06BB}.氁\x{2BF95}ꁫ", %p)}, undef, "to_unicode\(\'\\u08A4𝟥\≯\\u06BB.氁\\uD86F\\uDF95ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2942\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08A4}𝟥>\x{0338}\x{06BB}.氁\x{2BF95}ꁫ", %p)}, undef, "to_unicode\(\'\\u08A4𝟥\>\\u0338\\u06BB.氁\\uD86F\\uDF95ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2943\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08A4}3≯\x{06BB}.氁\x{2BF95}ꁫ", %p)}, undef, "to_unicode\(\'\\u08A43\≯\\u06BB\.氁\\uD86F\\uDF95ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2944\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08A4}3>\x{0338}\x{06BB}.氁\x{2BF95}ꁫ", %p)}, undef, "to_unicode\(\'\\u08A43\>\\u0338\\u06BB\.氁\\uD86F\\uDF95ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2945\]") 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{0664}\x{116B0}.\x{0369}", %p)}, undef, "to_unicode\(\'\\u0664\\uD805\\uDEB0.\\u0369\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2946\]") 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{0664}\x{116B0}.\x{0369}", %p)}, undef, "to_unicode\(\'\\u0664\\uD805\\uDEB0\.\\u0369\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2947\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("-\x{1112D}𝟮.₅\x{EDAD1}\x{E03AD}", %p)}, undef, "to_unicode\(\'\-\\uD804\\uDD2D𝟮.₅\\uDB76\\uDED1\\uDB40\\uDFAD\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2948\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{1112D}2.5\x{EDAD1}\x{E03AD}", %p)}, undef, "to_unicode\(\'\-\\uD804\\uDD2D2\.5\\uDB76\\uDED1\\uDB40\\uDFAD\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2949\]") 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\:2950\]") 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\:2951\]") 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\:2952\]") 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\:2953\]") 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\:2954\]") 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\:2955\]") 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\:2956\]") 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\:2957\]") 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\:2958\]") 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\:2959\]") 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\:2960\]") 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\:2961\]") 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\:2962\]") 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\:2963\]") 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\:2964\]") 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\:2965\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("歷。\x{10E62}≯\x{A5AF3}\x{200D}", %p)}, undef, "to_unicode\(\'歷。\\uD803\\uDE62\≯\\uDA56\\uDEF3\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2966\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("歷。\x{10E62}≯\x{A5AF3}\x{200D}", %p)}, undef, "to_unicode\(\'歷。\\uD803\\uDE62\≯\\uDA56\\uDEF3\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2967\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("歷。\x{10E62}>\x{0338}\x{A5AF3}\x{200D}", %p)}, undef, "to_unicode\(\'歷。\\uD803\\uDE62\>\\u0338\\uDA56\\uDEF3\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2968\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("歷。\x{10E62}>\x{0338}\x{A5AF3}\x{200D}", %p)}, undef, "to_unicode\(\'歷。\\uD803\\uDE62\>\\u0338\\uDA56\\uDEF3\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2969\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("歷。\x{10E62}≯\x{A5AF3}\x{200D}", %p)}, undef, "to_unicode\(\'歷\。\\uD803\\uDE62\≯\\uDA56\\uDEF3\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2970\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("歷。\x{10E62}≯\x{A5AF3}\x{200D}", %p)}, undef, "to_unicode\(\'歷\。\\uD803\\uDE62\≯\\uDA56\\uDEF3\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2971\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("歷。\x{10E62}>\x{0338}\x{A5AF3}\x{200D}", %p)}, undef, "to_unicode\(\'歷\。\\uD803\\uDE62\>\\u0338\\uDA56\\uDEF3\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2972\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("歷。\x{10E62}>\x{0338}\x{A5AF3}\x{200D}", %p)}, undef, "to_unicode\(\'歷\。\\uD803\\uDE62\>\\u0338\\uDA56\\uDEF3\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2973\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0962}\x{200D}.𠸔\x{E0C11}", %p)}, undef, "to_unicode\(\'\\u0962\\u200D.𠸔\\uDB43\\uDC11\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2974\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0962}\x{200D}.𠸔\x{E0C11}", %p)}, undef, "to_unicode\(\'\\u0962\\u200D.𠸔\\uDB43\\uDC11\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2975\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0962}\x{200D}.𠸔\x{E0C11}", %p)}, undef, "to_unicode\(\'\\u0962\\u200D\.𠸔\\uDB43\\uDC11\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2976\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0962}\x{200D}.𠸔\x{E0C11}", %p)}, undef, "to_unicode\(\'\\u0962\\u200D\.𠸔\\uDB43\\uDC11\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2977\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{0756}。\x{E9AA5}\x{FD1E}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u0756。\\uDB66\\uDEA5\\uFD1E\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2978\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{0756}。\x{E9AA5}\x{FD1E}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u0756。\\uDB66\\uDEA5\\uFD1E\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2979\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{0756}。\x{E9AA5}\x{062C}\x{064A}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u0756\。\\uDB66\\uDEA5\\u062C\\u064A\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2980\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{0756}。\x{E9AA5}\x{062C}\x{064A}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u0756\。\\uDB66\\uDEA5\\u062C\\u064A\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2981\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}≠𝟶-.ς⒓\x{10E7E}≠", %p)}, undef, "to_unicode\(\'\\u0641\≠𝟶\-\.ς⒓\\uD803\\uDE7E\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2982\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}=\x{0338}𝟶-.ς⒓\x{10E7E}=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0641\=\\u0338𝟶\-\.ς⒓\\uD803\\uDE7E\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2983\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}≠0-.ς12.\x{10E7E}≠", %p)}, undef, "to_unicode\(\'\\u0641\≠0\-\.ς12\.\\uD803\\uDE7E\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:2984\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}=\x{0338}0-.ς12.\x{10E7E}=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0641\=\\u03380\-\.ς12\.\\uD803\\uDE7E\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:2985\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}=\x{0338}0-.Σ12.\x{10E7E}=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0641\=\\u03380\-\.Σ12\.\\uD803\\uDE7E\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:2986\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}≠0-.Σ12.\x{10E7E}≠", %p)}, undef, "to_unicode\(\'\\u0641\≠0\-\.Σ12\.\\uD803\\uDE7E\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:2987\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}≠0-.σ12.\x{10E7E}≠", %p)}, undef, "to_unicode\(\'\\u0641\≠0\-\.σ12\.\\uD803\\uDE7E\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:2988\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}=\x{0338}0-.σ12.\x{10E7E}=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0641\=\\u03380\-\.σ12\.\\uD803\\uDE7E\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:2989\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}=\x{0338}𝟶-.Σ⒓\x{10E7E}=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0641\=\\u0338𝟶\-\.Σ⒓\\uD803\\uDE7E\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2990\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}≠𝟶-.Σ⒓\x{10E7E}≠", %p)}, undef, "to_unicode\(\'\\u0641\≠𝟶\-\.Σ⒓\\uD803\\uDE7E\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2991\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}≠𝟶-.σ⒓\x{10E7E}≠", %p)}, undef, "to_unicode\(\'\\u0641\≠𝟶\-\.σ⒓\\uD803\\uDE7E\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2992\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}=\x{0338}𝟶-.σ⒓\x{10E7E}=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0641\=\\u0338𝟶\-\.σ⒓\\uD803\\uDE7E\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2993\]") 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{0623}\x{17CD}\x{11042}", %p)}, undef, "to_unicode\(\'ꊉ\.\-\\u0623\\u17CD\\uD804\\uDC42\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2994\]") 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{0627}\x{0654}\x{17CD}\x{11042}", %p)}, undef, "to_unicode\(\'ꊉ\.\-\\u0627\\u0654\\u17CD\\uD804\\uDC42\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2995\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ᢚ⒈ß\x{05B0}。\x{83F0F}-", %p)}, undef, "to_unicode\(\'ᢚ⒈ß\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2996\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢚ1.ß\x{05B0}。\x{83F0F}-", %p)}, undef, "to_unicode\(\'ᢚ1\.ß\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2997\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢚ1.SS\x{05B0}。\x{83F0F}-", %p)}, undef, "to_unicode\(\'ᢚ1\.SS\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2998\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢚ1.ss\x{05B0}。\x{83F0F}-", %p)}, undef, "to_unicode\(\'ᢚ1\.ss\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2999\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢚ1.Ss\x{05B0}。\x{83F0F}-", %p)}, undef, "to_unicode\(\'ᢚ1\.Ss\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3000\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢚ⒈SS\x{05B0}。\x{83F0F}-", %p)}, undef, "to_unicode\(\'ᢚ⒈SS\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3001\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢚ⒈ss\x{05B0}。\x{83F0F}-", %p)}, undef, "to_unicode\(\'ᢚ⒈ss\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3002\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢚ⒈Ss\x{05B0}。\x{83F0F}-", %p)}, undef, "to_unicode\(\'ᢚ⒈Ss\\u05B0\。\\uD9CF\\uDF0F\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3003\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}ςႦ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99.\\u1039ςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3004\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}ςႦ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99.\\u1039ςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3005\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}ςႦ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99\.\\u1039ςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3006\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}ςႦ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99\.\\u1039ςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3007\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}ςⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99\.\\u1039ςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3008\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}ςⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99\.\\u1039ςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3009\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}ΣႦ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99\.\\u1039ΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3010\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}ΣႦ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99\.\\u1039ΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3011\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99\.\\u1039σⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3012\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99\.\\u1039σⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3013\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}Σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99\.\\u1039Σⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3014\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}Σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99\.\\u1039Σⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3015\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}ςⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99.\\u1039ςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3016\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}ςⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99.\\u1039ςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3017\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}ΣႦ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99.\\u1039ΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3018\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}ΣႦ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99.\\u1039ΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3019\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99.\\u1039σⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3020\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99.\\u1039σⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3021\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}Σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99.\\u1039Σⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3022\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{68D99}.\x{1039}Σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD963\\uDD99.\\u1039Σⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3023\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E70}.\x{302A}", %p)}, undef, "to_unicode\(\'⾆\\uD803\\uDE70\.\\u302A\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3024\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E70}.\x{302A}", %p)}, undef, "to_unicode\(\'舌\\uD803\\uDE70\.\\u302A\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3025\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("🝧\x{10E6F}\x{E01BA}。⸠⒈", %p)}, undef, "to_unicode\(\'🝧\\uD803\\uDE6F\\uDB40\\uDDBA\。\⸠⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3026\]") 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{10E6F}\x{E01BA}。⸠1.", %p)}, undef, "to_unicode\(\'🝧\\uD803\\uDE6F\\uDB40\\uDDBA\。\⸠1\.\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3027\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("⒈\x{200C}\x{0946}︒.\x{10A3F}", %p)}, undef, "to_unicode\(\'⒈\\u200C\\u0946︒.\\uD802\\uDE3F\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3028\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{200C}\x{0946}︒.\x{10A3F}", %p)}, undef, "to_unicode\(\'⒈\\u200C\\u0946︒.\\uD802\\uDE3F\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3029\]") 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("1.\x{200C}\x{0946}。.\x{10A3F}", %p)}, undef, "to_unicode\(\'1\.\\u200C\\u0946\。\.\\uD802\\uDE3F\'\)\ throws\ error\ V5\ C1\ A4_2\ \[data\/IdnaTest\.txt\:3030\]") 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("1.\x{200C}\x{0946}。.\x{10A3F}", %p)}, undef, "to_unicode\(\'1\.\\u200C\\u0946\。\.\\uD802\\uDE3F\'\)\ throws\ error\ V5\ C1\ A4_2\ \[data\/IdnaTest\.txt\:3031\]") 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{1BAB}。䰀\x{10E65}\x{FC7B}\x{0829}", %p)}, undef, "to_unicode\(\'\\u1BAB\。䰀\\uD803\\uDE65\\uFC7B\\u0829\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3032\]") 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{1BAB}。䰀\x{10E65}\x{062B}\x{064A}\x{0829}", %p)}, undef, "to_unicode\(\'\\u1BAB\。䰀\\uD803\\uDE65\\u062B\\u064A\\u0829\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3033\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ß\x{200D}.\x{1BAB}\x{C9110}", %p)}, undef, "to_unicode\(\'ß\\u200D\.\\u1BAB\\uDAE4\\uDD10\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3034\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{200D}.\x{1BAB}\x{C9110}", %p)}, undef, "to_unicode\(\'ß\\u200D\.\\u1BAB\\uDAE4\\uDD10\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3035\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{200D}.\x{1BAB}\x{C9110}", %p)}, undef, "to_unicode\(\'SS\\u200D\.\\u1BAB\\uDAE4\\uDD10\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3036\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{200D}.\x{1BAB}\x{C9110}", %p)}, undef, "to_unicode\(\'SS\\u200D\.\\u1BAB\\uDAE4\\uDD10\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3037\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{200D}.\x{1BAB}\x{C9110}", %p)}, undef, "to_unicode\(\'ss\\u200D\.\\u1BAB\\uDAE4\\uDD10\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3038\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{200D}.\x{1BAB}\x{C9110}", %p)}, undef, "to_unicode\(\'ss\\u200D\.\\u1BAB\\uDAE4\\uDD10\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3039\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{200D}.\x{1BAB}\x{C9110}", %p)}, undef, "to_unicode\(\'Ss\\u200D\.\\u1BAB\\uDAE4\\uDD10\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3040\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{200D}.\x{1BAB}\x{C9110}", %p)}, undef, "to_unicode\(\'Ss\\u200D\.\\u1BAB\\uDAE4\\uDD10\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3041\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{103A}\x{200C}≮.≮", %p)}, undef, "to_unicode\(\'\\u103A\\u200C\≮\.\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3042\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{103A}\x{200C}<\x{0338}.<\x{0338}", %p)}, undef, "to_unicode\(\'\\u103A\\u200C\<\\u0338\.\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3043\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("℈.\x{FFA0}", %p)}, undef, "to_unicode\(\'℈.\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3044\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("℈.\x{1160}", %p)}, undef, "to_unicode\(\'℈\.\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3045\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0721}\x{10F06}。\x{CEF44}", %p)}, undef, "to_unicode\(\'\\u0721\\uD803\\uDF06\。\\uDAFB\\uDF44\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3046\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("爕\x{91BA2}.5気", %p)}, undef, "to_unicode\(\'爕\\uDA06\\uDFA2.5気\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3047\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("爕\x{91BA2}.5気", %p)}, undef, "to_unicode\(\'爕\\uDA06\\uDFA2\.5気\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3048\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۷\x{11134}Ⴝ-.\x{0801}\x{10A3F}\x{0DD6}", %p)}, undef, "to_unicode\(\'۷\\uD804\\uDD34Ⴝ\-.\\u0801\\uD802\\uDE3F\\u0DD6\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3049\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۷\x{11134}Ⴝ-.\x{0801}\x{10A3F}\x{0DD6}", %p)}, undef, "to_unicode\(\'۷\\uD804\\uDD34Ⴝ\-\.\\u0801\\uD802\\uDE3F\\u0DD6\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3050\]") 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{11134}ⴝ-.\x{0801}\x{10A3F}\x{0DD6}", %p)}, undef, "to_unicode\(\'۷\\uD804\\uDD34ⴝ\-\.\\u0801\\uD802\\uDE3F\\u0DD6\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3051\]") 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{11134}ⴝ-.\x{0801}\x{10A3F}\x{0DD6}", %p)}, undef, "to_unicode\(\'۷\\uD804\\uDD34ⴝ\-.\\u0801\\uD802\\uDE3F\\u0DD6\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3052\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{7D0D3}。\x{102DAD}\x{E27E2}--", %p)}, undef, "to_unicode\(\'\\uD9B4\\uDCD3\。\\uDBCB\\uDDAD\\uDB49\\uDFE2\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ \[data\/IdnaTest\.txt\:3053\]") 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{200D}ꡪ。\x{200C}\x{1039}", %p)}, undef, "to_unicode\(\'\\u200Dꡪ。\\u200C\\u1039\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3054\]") 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{200D}ꡪ。\x{200C}\x{1039}", %p)}, undef, "to_unicode\(\'\\u200Dꡪ。\\u200C\\u1039\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3055\]") 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{200D}ꡪ。\x{200C}\x{1039}", %p)}, undef, "to_unicode\(\'\\u200Dꡪ\。\\u200C\\u1039\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3056\]") 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{200D}ꡪ。\x{200C}\x{1039}", %p)}, undef, "to_unicode\(\'\\u200Dꡪ\。\\u200C\\u1039\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3057\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{1EA31}\x{FEF4}\x{06C9}。ᡔ𪻗ꡠ", %p)}, undef, "to_unicode\(\'\\uD83A\\uDE31\\uFEF4\\u06C9。ᡔ𪻗ꡠ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3058\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EA31}\x{064A}\x{06C9}。ᡔ𪻗ꡠ", %p)}, undef, "to_unicode\(\'\\uD83A\\uDE31\\u064A\\u06C9\。ᡔ𪻗ꡠ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3059\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1C2E}\x{1EEE0}\x{B47DA}\x{A806}.\x{0717}ᡌ", %p)}, undef, "to_unicode\(\'\\u1C2E\\uD83B\\uDEE0\\uDA91\\uDFDA\\uA806\.\\u0717ᡌ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:3060\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。ς\x{06CE}ς", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。ς\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3061\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。ς\x{06CE}ς", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。ς\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3062\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。ς\x{06CE}ς", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。ς\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3063\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。ς\x{06CE}ς", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。ς\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3064\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}Σ", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。Σ\\u06CEΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3065\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}Σ", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。Σ\\u06CEΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3066\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}σ", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3067\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}σ", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3068\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}σ", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。Σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3069\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}σ", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。Σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3070\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}ς", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。Σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3071\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}ς", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。Σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3072\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}ς", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3073\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}ς", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ\。σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3074\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}Σ", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。Σ\\u06CEΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3075\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}Σ", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。Σ\\u06CEΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3076\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}σ", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3077\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}σ", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3078\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}σ", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。Σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3079\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}σ", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。Σ\\u06CEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3080\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}ς", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。Σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3081\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。Σ\x{06CE}ς", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。Σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3082\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}ς", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3083\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{82E2B}킃\x{E0104}ᡖ。σ\x{06CE}ς", %p)}, undef, "to_unicode\(\'\\uD9CB\\uDE2B킃\\uDB40\\uDD04ᡖ。σ\\u06CEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3084\]") 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{059F}\x{036E}-\x{11133}", %p)}, undef, "to_unicode\(\'蔰\。\\u059F\\u036E\-\\uD804\\uDD33\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3085\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ςჅ。\x{08A5}", %p)}, undef, "to_unicode\(\'ςჅ\。\\u08A5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3086\]") 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{08A5}", %p)}, "ςⴥ.\x{08A5}", "to_unicode\(\'ςⴥ\。\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3087\]") 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{08A5}", %p)}, "ςⴥ.\x{08A5}", "to_unicode\(\'ςⴥ\。\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3088\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ΣჅ。\x{08A5}", %p)}, undef, "to_unicode\(\'ΣჅ\。\\u08A5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3089\]") 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{08A5}", %p)}, "σⴥ.\x{08A5}", "to_unicode\(\'σⴥ\。\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3090\]") 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{08A5}", %p)}, "σⴥ.\x{08A5}", "to_unicode\(\'Σⴥ\。\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3091\]") 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--4xa203s.xn--uyb", %p)}, "σⴥ.\x{08A5}", "to_unicode\(\'xn\-\-4xa203s\.xn\-\-uyb\'\)\ \[data\/IdnaTest\.txt\:3092\]") 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{08A5}", %p)}, "σⴥ.\x{08A5}", "to_unicode\(\'σⴥ\.\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3093\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ΣჅ.\x{08A5}", %p)}, undef, "to_unicode\(\'ΣჅ\.\\u08A5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3094\]") 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{08A5}", %p)}, "σⴥ.\x{08A5}", "to_unicode\(\'Σⴥ\.\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3095\]") 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--3xa403s.xn--uyb", %p)}, "ςⴥ.\x{08A5}", "to_unicode\(\'xn\-\-3xa403s\.xn\-\-uyb\'\)\ \[data\/IdnaTest\.txt\:3096\]") 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{08A5}", %p)}, "ςⴥ.\x{08A5}", "to_unicode\(\'ςⴥ\.\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3097\]") 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{08A5}", %p)}, "ςⴥ.\x{08A5}", "to_unicode\(\'ςⴥ\.\\u08A5\'\)\ \[data\/IdnaTest\.txt\:3098\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0BCD}Ⴉ\x{FB22}.\x{08E9}", %p)}, undef, "to_unicode\(\'\\u0BCDႩ\\uFB22.\\u08E9\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3099\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}Ⴉ\x{05D3}.\x{08E9}", %p)}, undef, "to_unicode\(\'\\u0BCDႩ\\u05D3\.\\u08E9\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3100\]") 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{0BCD}ⴉ\x{05D3}.\x{08E9}", %p)}, undef, "to_unicode\(\'\\u0BCDⴉ\\u05D3\.\\u08E9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3101\]") 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{0BCD}ⴉ\x{FB22}.\x{08E9}", %p)}, undef, "to_unicode\(\'\\u0BCDⴉ\\uFB22.\\u08E9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3102\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{E0F21}≮\x{4CBE5}\x{085A}。\x{10CDF}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDF21\≮\\uD8F2\\uDFE5\\u085A\。\\uD803\\uDCDF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3103\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0F21}<\x{0338}\x{4CBE5}\x{085A}。\x{10CDF}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDF21\<\\u0338\\uD8F2\\uDFE5\\u085A\。\\uD803\\uDCDF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3104\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}。\x{200D}ẏ\x{200C}\x{0633}", %p)}, undef, "to_unicode\(\'\\u06C5。\\u200Dẏ\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3105\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}。\x{200D}ẏ\x{200C}\x{0633}", %p)}, undef, "to_unicode\(\'\\u06C5。\\u200Dẏ\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3106\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}。\x{200D}y\x{0307}\x{200C}\x{0633}", %p)}, undef, "to_unicode\(\'\\u06C5。\\u200Dy\\u0307\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3107\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}。\x{200D}y\x{0307}\x{200C}\x{0633}", %p)}, undef, "to_unicode\(\'\\u06C5。\\u200Dy\\u0307\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3108\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}。\x{200D}ẏ\x{200C}\x{0633}", %p)}, undef, "to_unicode\(\'\\u06C5\。\\u200Dẏ\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3109\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}。\x{200D}ẏ\x{200C}\x{0633}", %p)}, undef, "to_unicode\(\'\\u06C5\。\\u200Dẏ\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3110\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}。\x{200D}y\x{0307}\x{200C}\x{0633}", %p)}, undef, "to_unicode\(\'\\u06C5\。\\u200Dy\\u0307\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3111\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}。\x{200D}y\x{0307}\x{200C}\x{0633}", %p)}, undef, "to_unicode\(\'\\u06C5\。\\u200Dy\\u0307\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3112\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}。\x{200D}Y\x{0307}\x{200C}\x{0633}", %p)}, undef, "to_unicode\(\'\\u06C5\。\\u200DY\\u0307\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3113\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}。\x{200D}Y\x{0307}\x{200C}\x{0633}", %p)}, undef, "to_unicode\(\'\\u06C5\。\\u200DY\\u0307\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3114\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}。\x{200D}Ẏ\x{200C}\x{0633}", %p)}, undef, "to_unicode\(\'\\u06C5\。\\u200DẎ\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3115\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}。\x{200D}Ẏ\x{200C}\x{0633}", %p)}, undef, "to_unicode\(\'\\u06C5\。\\u200DẎ\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3116\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}。\x{200D}Y\x{0307}\x{200C}\x{0633}", %p)}, undef, "to_unicode\(\'\\u06C5。\\u200DY\\u0307\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3117\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}。\x{200D}Y\x{0307}\x{200C}\x{0633}", %p)}, undef, "to_unicode\(\'\\u06C5。\\u200DY\\u0307\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3118\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}。\x{200D}Ẏ\x{200C}\x{0633}", %p)}, undef, "to_unicode\(\'\\u06C5。\\u200DẎ\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3119\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}。\x{200D}Ẏ\x{200C}\x{0633}", %p)}, undef, "to_unicode\(\'\\u06C5。\\u200DẎ\\u200C\\u0633\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3120\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E67}\x{0353}。\x{92CF6}\x{0F84}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE67\\u0353\。\\uDA0B\\uDCF6\\u0F84\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3121\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-≠\x{1BAA}。嵕\x{1097F}𝟷\x{2D7F}", %p)}, undef, "to_unicode\(\'\-\≠\\u1BAA。嵕\\uD802\\uDD7F𝟷\\u2D7F\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3122\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-=\x{0338}\x{1BAA}。嵕\x{1097F}𝟷\x{2D7F}", %p)}, undef, "to_unicode\(\'\-\=\\u0338\\u1BAA。嵕\\uD802\\uDD7F𝟷\\u2D7F\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3123\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-≠\x{1BAA}。嵕\x{1097F}1\x{2D7F}", %p)}, undef, "to_unicode\(\'\-\≠\\u1BAA\。嵕\\uD802\\uDD7F1\\u2D7F\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3124\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-=\x{0338}\x{1BAA}。嵕\x{1097F}1\x{2D7F}", %p)}, undef, "to_unicode\(\'\-\=\\u0338\\u1BAA\。嵕\\uD802\\uDD7F1\\u2D7F\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3125\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{16736}\x{10E7D}\x{06AD}.\x{0693}\x{200D}≯\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\\uD819\\uDF36\\uD803\\uDE7D\\u06AD.\\u0693\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3126\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{16736}\x{10E7D}\x{06AD}.\x{0693}\x{200D}≯\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\\uD819\\uDF36\\uD803\\uDE7D\\u06AD.\\u0693\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3127\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{16736}\x{10E7D}\x{06AD}.\x{0693}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\\uD819\\uDF36\\uD803\\uDE7D\\u06AD.\\u0693\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3128\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{16736}\x{10E7D}\x{06AD}.\x{0693}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\\uD819\\uDF36\\uD803\\uDE7D\\u06AD.\\u0693\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3129\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{16736}\x{10E7D}\x{06AD}.\x{0693}\x{200D}≯\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\\uD819\\uDF36\\uD803\\uDE7D\\u06AD\.\\u0693\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3130\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{16736}\x{10E7D}\x{06AD}.\x{0693}\x{200D}≯\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\\uD819\\uDF36\\uD803\\uDE7D\\u06AD\.\\u0693\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3131\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{16736}\x{10E7D}\x{06AD}.\x{0693}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\\uD819\\uDF36\\uD803\\uDE7D\\u06AD\.\\u0693\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3132\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{16736}\x{10E7D}\x{06AD}.\x{0693}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C\\uD819\\uDF36\\uD803\\uDE7D\\u06AD\.\\u0693\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3133\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮.\x{17B5}ᢨ\x{07E8}", %p)}, undef, "to_unicode\(\'\≮.\\u17B5ᢨ\\u07E8\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3134\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}.\x{17B5}ᢨ\x{07E8}", %p)}, undef, "to_unicode\(\'\<\\u0338.\\u17B5ᢨ\\u07E8\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3135\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮.\x{17B5}ᢨ\x{07E8}", %p)}, undef, "to_unicode\(\'\≮\.\\u17B5ᢨ\\u07E8\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3136\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}.\x{17B5}ᢨ\x{07E8}", %p)}, undef, "to_unicode\(\'\<\\u0338\.\\u17B5ᢨ\\u07E8\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3137\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EC59}\x{200D}。ႩႵ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDC59\\u200D。ႩႵ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3138\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EC59}\x{200D}。ႩႵ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDC59\\u200D。ႩႵ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3139\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EC59}\x{200D}。ႩႵ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDC59\\u200D\。ႩႵ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3140\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EC59}\x{200D}。ႩႵ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDC59\\u200D\。ႩႵ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3141\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EC59}\x{200D}。ⴉⴕ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDC59\\u200D\。ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3142\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EC59}\x{200D}。ⴉⴕ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDC59\\u200D\。ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3143\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EC59}\x{200D}。Ⴉⴕ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDC59\\u200D\。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3144\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EC59}\x{200D}。Ⴉⴕ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDC59\\u200D\。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3145\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EC59}\x{200D}。ⴉⴕ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDC59\\u200D。ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3146\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EC59}\x{200D}。ⴉⴕ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDC59\\u200D。ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3147\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EC59}\x{200D}。Ⴉⴕ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDC59\\u200D。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3148\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EC59}\x{200D}。Ⴉⴕ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDC59\\u200D。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3149\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}ㄤ.\x{1DD9}\x{4484F}\x{A92A}", %p)}, undef, "to_unicode\(\'\\u200C\\u200Cㄤ.\\u1DD9\\uD8D2\\uDC4F\\uA92A\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3150\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}ㄤ.\x{1DD9}\x{4484F}\x{A92A}", %p)}, undef, "to_unicode\(\'\\u200C\\u200Cㄤ.\\u1DD9\\uD8D2\\uDC4F\\uA92A\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3151\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}ㄤ.\x{1DD9}\x{4484F}\x{A92A}", %p)}, undef, "to_unicode\(\'\\u200C\\u200Cㄤ\.\\u1DD9\\uD8D2\\uDC4F\\uA92A\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3152\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}ㄤ.\x{1DD9}\x{4484F}\x{A92A}", %p)}, undef, "to_unicode\(\'\\u200C\\u200Cㄤ\.\\u1DD9\\uD8D2\\uDC4F\\uA92A\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3153\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒓。-\x{200C}ᠶႷ", %p)}, undef, "to_unicode\(\'⒓。\-\\u200CᠶႷ\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:3154\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒓。-\x{200C}ᠶႷ", %p)}, undef, "to_unicode\(\'⒓。\-\\u200CᠶႷ\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:3155\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("12.。-\x{200C}ᠶႷ", %p)}, undef, "to_unicode\(\'12\.\。\-\\u200CᠶႷ\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ C1\ \[data\/IdnaTest\.txt\:3156\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("12.。-\x{200C}ᠶႷ", %p)}, undef, "to_unicode\(\'12\.\。\-\\u200CᠶႷ\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ C1\ \[data\/IdnaTest\.txt\:3157\]") 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("12.。-\x{200C}ᠶⴗ", %p)}, undef, "to_unicode\(\'12\.\。\-\\u200Cᠶⴗ\'\)\ throws\ error\ V3\ A4_2\ C1\ \[data\/IdnaTest\.txt\:3158\]") 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("12.。-\x{200C}ᠶⴗ", %p)}, undef, "to_unicode\(\'12\.\。\-\\u200Cᠶⴗ\'\)\ throws\ error\ V3\ A4_2\ C1\ \[data\/IdnaTest\.txt\:3159\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("⒓。-\x{200C}ᠶⴗ", %p)}, undef, "to_unicode\(\'⒓。\-\\u200Cᠶⴗ\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:3160\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒓。-\x{200C}ᠶⴗ", %p)}, undef, "to_unicode\(\'⒓。\-\\u200Cᠶⴗ\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:3161\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🐚\x{1E87B}.≠\x{200C}", %p)}, undef, "to_unicode\(\'🐚\\uD83A\\uDC7B.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3162\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🐚\x{1E87B}.≠\x{200C}", %p)}, undef, "to_unicode\(\'🐚\\uD83A\\uDC7B.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3163\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🐚\x{1E87B}.=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'🐚\\uD83A\\uDC7B.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3164\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🐚\x{1E87B}.=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'🐚\\uD83A\\uDC7B.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3165\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🐚\x{1E87B}.≠\x{200C}", %p)}, undef, "to_unicode\(\'🐚\\uD83A\\uDC7B\.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3166\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🐚\x{1E87B}.≠\x{200C}", %p)}, undef, "to_unicode\(\'🐚\\uD83A\\uDC7B\.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3167\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🐚\x{1E87B}.=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'🐚\\uD83A\\uDC7B\.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3168\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🐚\x{1E87B}.=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'🐚\\uD83A\\uDC7B\.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3169\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A672}\x{0F74}。\x{1EF16}\x{0B4D}\x{FE25}", %p)}, undef, "to_unicode\(\'\\uA672\\u0F74。\\uD83B\\uDF16\\u0B4D\\uFE25\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3170\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A672}\x{0F74}。\x{1EF16}\x{0B4D}\x{FE25}", %p)}, undef, "to_unicode\(\'\\uA672\\u0F74\。\\uD83B\\uDF16\\u0B4D\\uFE25\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3171\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴔ\x{07F2}۰\x{05C5}.⒕\x{1037}\x{08FD}", %p)}, undef, "to_unicode\(\'Ⴔ\\u07F2۰\\u05C5.⒕\\u1037\\u08FD\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3172\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴔ\x{07F2}۰\x{05C5}.14.\x{1037}\x{08FD}", %p)}, undef, "to_unicode\(\'Ⴔ\\u07F2۰\\u05C5\.14\.\\u1037\\u08FD\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3173\]") 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{07F2}۰\x{05C5}.14.\x{1037}\x{08FD}", %p)}, undef, "to_unicode\(\'ⴔ\\u07F2۰\\u05C5\.14\.\\u1037\\u08FD\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3174\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ⴔ\x{07F2}۰\x{05C5}.⒕\x{1037}\x{08FD}", %p)}, undef, "to_unicode\(\'ⴔ\\u07F2۰\\u05C5.⒕\\u1037\\u08FD\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3175\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䏈\x{200C}。\x{200C}⒈\x{FDAE1}", %p)}, undef, "to_unicode\(\'䏈\\u200C\。\\u200C⒈\\uDBB6\\uDEE1\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3176\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䏈\x{200C}。\x{200C}⒈\x{FDAE1}", %p)}, undef, "to_unicode\(\'䏈\\u200C\。\\u200C⒈\\uDBB6\\uDEE1\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3177\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䏈\x{200C}。\x{200C}1.\x{FDAE1}", %p)}, undef, "to_unicode\(\'䏈\\u200C\。\\u200C1\.\\uDBB6\\uDEE1\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3178\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䏈\x{200C}。\x{200C}1.\x{FDAE1}", %p)}, undef, "to_unicode\(\'䏈\\u200C\。\\u200C1\.\\uDBB6\\uDEE1\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3179\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟑\x{0F7E}ß\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_unicode\(\'𝟑\\u0F7Eß\\u1CDB。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3180\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3\x{0F7E}ß\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_unicode\(\'3\\u0F7Eß\\u1CDB\。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3181\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3\x{0F7E}SS\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_unicode\(\'3\\u0F7ESS\\u1CDB\。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3182\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3\x{0F7E}ss\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_unicode\(\'3\\u0F7Ess\\u1CDB\。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3183\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3\x{0F7E}Ss\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_unicode\(\'3\\u0F7ESs\\u1CDB\。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3184\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟑\x{0F7E}SS\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_unicode\(\'𝟑\\u0F7ESS\\u1CDB。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3185\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟑\x{0F7E}ss\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_unicode\(\'𝟑\\u0F7Ess\\u1CDB。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3186\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟑\x{0F7E}Ss\x{1CDB}。\x{E0A8F}", %p)}, undef, "to_unicode\(\'𝟑\\u0F7ESs\\u1CDB。\\uDB42\\uDE8F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3187\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{4B0FF}\x{10EBF}\x{17D2}。ᡌ⒈", %p)}, undef, "to_unicode\(\'\\u200D\\uD8EC\\uDCFF\\uD803\\uDEBF\\u17D2。ᡌ⒈\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3188\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{4B0FF}\x{10EBF}\x{17D2}。ᡌ⒈", %p)}, undef, "to_unicode\(\'\\u200D\\uD8EC\\uDCFF\\uD803\\uDEBF\\u17D2。ᡌ⒈\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3189\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{4B0FF}\x{10EBF}\x{17D2}。ᡌ1.", %p)}, undef, "to_unicode\(\'\\u200D\\uD8EC\\uDCFF\\uD803\\uDEBF\\u17D2\。ᡌ1\.\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3190\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{4B0FF}\x{10EBF}\x{17D2}。ᡌ1.", %p)}, undef, "to_unicode\(\'\\u200D\\uD8EC\\uDCFF\\uD803\\uDEBF\\u17D2\。ᡌ1\.\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3191\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0135}.\x{10D6D}\x{9700D}\x{1065D4}\x{08A6}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD35.\\uD803\\uDD6D\\uDA1C\\uDC0D\\uDBD9\\uDDD4\\u08A6\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:3192\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0135}.\x{10D6D}\x{9700D}\x{1065D4}\x{08A6}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD35\.\\uD803\\uDD6D\\uDA1C\\uDC0D\\uDBD9\\uDDD4\\u08A6\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:3193\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0642}\x{108B0}⒈.\x{20C4}🄅\x{2C433}\x{075B}", %p)}, undef, "to_unicode\(\'\\u0642\\uD802\\uDCB0⒈.\\u20C4🄅\\uD871\\uDC33\\u075B\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3194\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0642}\x{108B0}1..\x{20C4}4,\x{2C433}\x{075B}", %p)}, undef, "to_unicode\(\'\\u0642\\uD802\\uDCB01\.\.\\u20C44\,\\uD871\\uDC33\\u075B\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3195\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0ECB}\x{07E9}\x{0944}\x{08A3}。-≀\x{9B07D}", %p)}, undef, "to_unicode\(\'\\u0ECB\\u07E9\\u0944\\u08A3\。\-\≀\\uDA2C\\uDC7D\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3196\]") 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{111C0}剘ßᢔ", %p)}, undef, "to_unicode\(\'\-\.\\uD804\\uDDC0剘ßᢔ\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3197\]") 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{111C0}剘SSᢔ", %p)}, undef, "to_unicode\(\'\-\.\\uD804\\uDDC0剘SSᢔ\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3198\]") 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{111C0}剘ssᢔ", %p)}, undef, "to_unicode\(\'\-\.\\uD804\\uDDC0剘ssᢔ\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3199\]") 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{111C0}剘Ssᢔ", %p)}, undef, "to_unicode\(\'\-\.\\uD804\\uDDC0剘Ssᢔ\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3200\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("🕟\x{10FC0}。-", %p)}, undef, "to_unicode\(\'🕟\\uD803\\uDFC0。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3201\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🕟\x{10FC0}。-", %p)}, undef, "to_unicode\(\'🕟\\uD803\\uDFC0\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3202\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{E070C}\x{10E69}。≠\x{0664}\x{10E6C}", %p)}, undef, "to_unicode\(\'⒈\\uDB41\\uDF0C\\uD803\\uDE69。\≠\\u0664\\uD803\\uDE6C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3203\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{E070C}\x{10E69}。=\x{0338}\x{0664}\x{10E6C}", %p)}, undef, "to_unicode\(\'⒈\\uDB41\\uDF0C\\uD803\\uDE69。\=\\u0338\\u0664\\uD803\\uDE6C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3204\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{E070C}\x{10E69}。≠\x{0664}\x{10E6C}", %p)}, undef, "to_unicode\(\'1\.\\uDB41\\uDF0C\\uD803\\uDE69\。\≠\\u0664\\uD803\\uDE6C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3205\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{E070C}\x{10E69}。=\x{0338}\x{0664}\x{10E6C}", %p)}, undef, "to_unicode\(\'1\.\\uDB41\\uDF0C\\uD803\\uDE69\。\=\\u0338\\u0664\\uD803\\uDE6C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3206\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0661}㇡Ⴎ\x{200C}.㖾\x{0666}", %p)}, undef, "to_unicode\(\'\\u0661㇡Ⴎ\\u200C\.㖾\\u0666\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3207\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0661}㇡Ⴎ\x{200C}.㖾\x{0666}", %p)}, undef, "to_unicode\(\'\\u0661㇡Ⴎ\\u200C\.㖾\\u0666\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3208\]") 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{0661}㇡ⴎ\x{200C}.㖾\x{0666}", %p)}, undef, "to_unicode\(\'\\u0661㇡ⴎ\\u200C\.㖾\\u0666\'\)\ throws\ error\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3209\]") 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{0661}㇡ⴎ\x{200C}.㖾\x{0666}", %p)}, undef, "to_unicode\(\'\\u0661㇡ⴎ\\u200C\.㖾\\u0666\'\)\ throws\ error\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3210\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{5A22C}.\x{07C7}\x{06B8}ႳႧ", %p)}, undef, "to_unicode\(\'\\uD928\\uDE2C.\\u07C7\\u06B8ႳႧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3211\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{5A22C}.\x{07C7}\x{06B8}ႳႧ", %p)}, undef, "to_unicode\(\'\\uD928\\uDE2C\.\\u07C7\\u06B8ႳႧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3212\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{5A22C}.\x{07C7}\x{06B8}ⴓⴇ", %p)}, undef, "to_unicode\(\'\\uD928\\uDE2C\.\\u07C7\\u06B8ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3213\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{5A22C}.\x{07C7}\x{06B8}Ⴓⴇ", %p)}, undef, "to_unicode\(\'\\uD928\\uDE2C\.\\u07C7\\u06B8Ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3214\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{5A22C}.\x{07C7}\x{06B8}ⴓⴇ", %p)}, undef, "to_unicode\(\'\\uD928\\uDE2C.\\u07C7\\u06B8ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3215\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{5A22C}.\x{07C7}\x{06B8}Ⴓⴇ", %p)}, undef, "to_unicode\(\'\\uD928\\uDE2C.\\u07C7\\u06B8Ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3216\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{A2EE5}.\x{1092E}\x{1EAE9}", %p)}, undef, "to_unicode\(\'\\u200D\\uDA4B\\uDEE5\.\\uD802\\uDD2E\\uD83A\\uDEE9\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3217\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{A2EE5}.\x{1092E}\x{1EAE9}", %p)}, undef, "to_unicode\(\'\\u200D\\uDA4B\\uDEE5\.\\uD802\\uDD2E\\uD83A\\uDEE9\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3218\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{62467}⒒\x{E0C07}.ꡎ⒈", %p)}, undef, "to_unicode\(\'\\uD949\\uDC67⒒\\uDB43\\uDC07.ꡎ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3219\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{62467}11.\x{E0C07}.ꡎ1.", %p)}, undef, "to_unicode\(\'\\uD949\\uDC6711\.\\uDB43\\uDC07\.ꡎ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3220\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06D0}𝟝\x{1CE92}-。\x{4459A}\x{1039}\x{FC39}\x{AAF6}", %p)}, undef, "to_unicode\(\'\\u06D0𝟝\\uD833\\uDE92\-。\\uD8D1\\uDD9A\\u1039\\uFC39\\uAAF6\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3221\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06D0}5\x{1CE92}-。\x{4459A}\x{1039}\x{0643}\x{062D}\x{AAF6}", %p)}, undef, "to_unicode\(\'\\u06D05\\uD833\\uDE92\-\。\\uD8D1\\uDD9A\\u1039\\u0643\\u062D\\uAAF6\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3222\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴕ。⒖≮ß\x{E01E1}", %p)}, undef, "to_unicode\(\'Ⴕ\。⒖\≮ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3223\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴕ。⒖<\x{0338}ß\x{E01E1}", %p)}, undef, "to_unicode\(\'Ⴕ\。⒖\<\\u0338ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3224\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴕ。15.≮ß\x{E01E1}", %p)}, undef, "to_unicode\(\'Ⴕ\。15\.\≮ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3225\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴕ。15.<\x{0338}ß\x{E01E1}", %p)}, undef, "to_unicode\(\'Ⴕ\。15\.\<\\u0338ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3226\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴕ。15.<\x{0338}ß\x{E01E1}", %p)}, undef, "to_unicode\(\'ⴕ\。15\.\<\\u0338ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3227\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴕ。15.≮ß\x{E01E1}", %p)}, undef, "to_unicode\(\'ⴕ\。15\.\≮ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3228\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴕ。15.≮SS\x{E01E1}", %p)}, undef, "to_unicode\(\'Ⴕ\。15\.\≮SS\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3229\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴕ。15.<\x{0338}SS\x{E01E1}", %p)}, undef, "to_unicode\(\'Ⴕ\。15\.\<\\u0338SS\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3230\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴕ。15.<\x{0338}ss\x{E01E1}", %p)}, undef, "to_unicode\(\'ⴕ\。15\.\<\\u0338ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3231\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴕ。15.≮ss\x{E01E1}", %p)}, undef, "to_unicode\(\'ⴕ\。15\.\≮ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3232\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴕ。15.≮Ss\x{E01E1}", %p)}, undef, "to_unicode\(\'Ⴕ\。15\.\≮Ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3233\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴕ。15.<\x{0338}Ss\x{E01E1}", %p)}, undef, "to_unicode\(\'Ⴕ\。15\.\<\\u0338Ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3234\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴕ。⒖<\x{0338}ß\x{E01E1}", %p)}, undef, "to_unicode\(\'ⴕ\。⒖\<\\u0338ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3235\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴕ。⒖≮ß\x{E01E1}", %p)}, undef, "to_unicode\(\'ⴕ\。⒖\≮ß\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3236\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴕ。⒖≮SS\x{E01E1}", %p)}, undef, "to_unicode\(\'Ⴕ\。⒖\≮SS\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3237\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴕ。⒖<\x{0338}SS\x{E01E1}", %p)}, undef, "to_unicode\(\'Ⴕ\。⒖\<\\u0338SS\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3238\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴕ。⒖<\x{0338}ss\x{E01E1}", %p)}, undef, "to_unicode\(\'ⴕ\。⒖\<\\u0338ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3239\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴕ。⒖≮ss\x{E01E1}", %p)}, undef, "to_unicode\(\'ⴕ\。⒖\≮ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3240\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴕ。⒖≮Ss\x{E01E1}", %p)}, undef, "to_unicode\(\'Ⴕ\。⒖\≮Ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3241\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴕ。⒖<\x{0338}Ss\x{E01E1}", %p)}, undef, "to_unicode\(\'Ⴕ\。⒖\<\\u0338Ss\\uDB40\\uDDE1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3242\]") 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{08F5}꒱\x{E01AB}", %p)}, undef, "to_unicode\(\'ᡧ\-\.\\u08F5꒱\\uDB40\\uDDAB\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3243\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{10B65}\x{200C}.≯䕵⬯", %p)}, undef, "to_unicode\(\'\\uD802\\uDF65\\u200C\.\≯䕵\⬯\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3244\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10B65}\x{200C}.≯䕵⬯", %p)}, undef, "to_unicode\(\'\\uD802\\uDF65\\u200C\.\≯䕵\⬯\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3245\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10B65}\x{200C}.>\x{0338}䕵⬯", %p)}, undef, "to_unicode\(\'\\uD802\\uDF65\\u200C\.\>\\u0338䕵\⬯\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3246\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10B65}\x{200C}.>\x{0338}䕵⬯", %p)}, undef, "to_unicode\(\'\\uD802\\uDF65\\u200C\.\>\\u0338䕵\⬯\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3247\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F18}ß\x{0643}.ᡄ⁷︒", %p)}, undef, "to_unicode\(\'\\u0F18ß\\u0643\.ᡄ⁷︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3248\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F18}ß\x{0643}.ᡄ7。", %p)}, undef, "to_unicode\(\'\\u0F18ß\\u0643\.ᡄ7\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3249\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F18}SS\x{0643}.ᡄ7。", %p)}, undef, "to_unicode\(\'\\u0F18SS\\u0643\.ᡄ7\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3250\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F18}ss\x{0643}.ᡄ7。", %p)}, undef, "to_unicode\(\'\\u0F18ss\\u0643\.ᡄ7\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3251\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F18}Ss\x{0643}.ᡄ7。", %p)}, undef, "to_unicode\(\'\\u0F18Ss\\u0643\.ᡄ7\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3252\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F18}SS\x{0643}.ᡄ⁷︒", %p)}, undef, "to_unicode\(\'\\u0F18SS\\u0643\.ᡄ⁷︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3253\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F18}ss\x{0643}.ᡄ⁷︒", %p)}, undef, "to_unicode\(\'\\u0F18ss\\u0643\.ᡄ⁷︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3254\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F18}Ss\x{0643}.ᡄ⁷︒", %p)}, undef, "to_unicode\(\'\\u0F18Ss\\u0643\.ᡄ⁷︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3255\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-≮\x{E08E8}\x{E0101}.\x{E0E5F}Ⴁꡋ", %p)}, undef, "to_unicode\(\'\-\≮\\uDB42\\uDCE8\\uDB40\\uDD01\.\\uDB43\\uDE5FႡꡋ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3256\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-<\x{0338}\x{E08E8}\x{E0101}.\x{E0E5F}Ⴁꡋ", %p)}, undef, "to_unicode\(\'\-\<\\u0338\\uDB42\\uDCE8\\uDB40\\uDD01\.\\uDB43\\uDE5FႡꡋ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3257\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-<\x{0338}\x{E08E8}\x{E0101}.\x{E0E5F}ⴁꡋ", %p)}, undef, "to_unicode\(\'\-\<\\u0338\\uDB42\\uDCE8\\uDB40\\uDD01\.\\uDB43\\uDE5Fⴁꡋ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3258\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-≮\x{E08E8}\x{E0101}.\x{E0E5F}ⴁꡋ", %p)}, undef, "to_unicode\(\'\-\≮\\uDB42\\uDCE8\\uDB40\\uDD01\.\\uDB43\\uDE5Fⴁꡋ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3259\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡒ。\x{0693}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ᡒ。\\u0693\\u200D\\u200C\'\)\ throws\ error\ B3\ C2\ C1\ \[data\/IdnaTest\.txt\:3260\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡒ。\x{0693}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ᡒ。\\u0693\\u200D\\u200C\'\)\ throws\ error\ B3\ C2\ C1\ \[data\/IdnaTest\.txt\:3261\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡒ。\x{0693}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ᡒ\。\\u0693\\u200D\\u200C\'\)\ throws\ error\ B3\ C2\ C1\ \[data\/IdnaTest\.txt\:3262\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡒ。\x{0693}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ᡒ\。\\u0693\\u200D\\u200C\'\)\ throws\ error\ B3\ C2\ C1\ \[data\/IdnaTest\.txt\:3263\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--i8e.xn--pjb", %p)}, "ᡒ.\x{0693}", "to_unicode\(\'xn\-\-i8e\.xn\-\-pjb\'\)\ \[data\/IdnaTest\.txt\:3264\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡒ.\x{0693}", %p)}, "ᡒ.\x{0693}", "to_unicode\(\'ᡒ\.\\u0693\'\)\ \[data\/IdnaTest\.txt\:3265\]") 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{1B80}\x{07AE}.\x{0672}\x{06D9}\x{0660}", %p)}, undef, "to_unicode\(\'\\u1B80\\u07AE.\\u0672\\u06D9\\u0660\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3266\]") 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{1B80}\x{07AE}.\x{0672}\x{06D9}\x{0660}", %p)}, undef, "to_unicode\(\'\\u1B80\\u07AE\.\\u0672\\u06D9\\u0660\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3267\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⅎ\x{033D}\x{98A47}。≯⾑", %p)}, undef, "to_unicode\(\'Ⅎ\\u033D\\uDA22\\uDE47\。\≯⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3268\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ\x{033D}\x{98A47}。>\x{0338}⾑", %p)}, undef, "to_unicode\(\'Ⅎ\\u033D\\uDA22\\uDE47\。\>\\u0338⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3269\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ\x{033D}\x{98A47}。≯襾", %p)}, undef, "to_unicode\(\'Ⅎ\\u033D\\uDA22\\uDE47\。\≯襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3270\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ\x{033D}\x{98A47}。>\x{0338}襾", %p)}, undef, "to_unicode\(\'Ⅎ\\u033D\\uDA22\\uDE47\。\>\\u0338襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3271\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ\x{033D}\x{98A47}。>\x{0338}襾", %p)}, undef, "to_unicode\(\'ⅎ\\u033D\\uDA22\\uDE47\。\>\\u0338襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3272\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ\x{033D}\x{98A47}。≯襾", %p)}, undef, "to_unicode\(\'ⅎ\\u033D\\uDA22\\uDE47\。\≯襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3273\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ\x{033D}\x{98A47}。>\x{0338}⾑", %p)}, undef, "to_unicode\(\'ⅎ\\u033D\\uDA22\\uDE47\。\>\\u0338⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3274\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ\x{033D}\x{98A47}。≯⾑", %p)}, undef, "to_unicode\(\'ⅎ\\u033D\\uDA22\\uDE47\。\≯⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3275\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_unicode\(\'ς\\u200D\\u1A18\\uD803\\uDE7B。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3276\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_unicode\(\'ς\\u200D\\u1A18\\uD803\\uDE7B。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3277\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_unicode\(\'ς\\u200D\\u1A18\\uD803\\uDE7B\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3278\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_unicode\(\'ς\\u200D\\u1A18\\uD803\\uDE7B\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3279\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_unicode\(\'Σ\\u200D\\u1A18\\uD803\\uDE7B\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3280\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_unicode\(\'Σ\\u200D\\u1A18\\uD803\\uDE7B\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3281\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_unicode\(\'σ\\u200D\\u1A18\\uD803\\uDE7B\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3282\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_unicode\(\'σ\\u200D\\u1A18\\uD803\\uDE7B\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3283\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_unicode\(\'Σ\\u200D\\u1A18\\uD803\\uDE7B。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3284\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_unicode\(\'Σ\\u200D\\u1A18\\uD803\\uDE7B。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3285\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_unicode\(\'σ\\u200D\\u1A18\\uD803\\uDE7B。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3286\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A18}\x{10E7B}。-", %p)}, undef, "to_unicode\(\'σ\\u200D\\u1A18\\uD803\\uDE7B。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3287\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}.ßႩ-", %p)}, undef, "to_unicode\(\'\\u200C\.ßႩ\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:3288\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.ßႩ-", %p)}, undef, "to_unicode\(\'\\u200C\.ßႩ\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:3289\]") 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\:3290\]") 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\:3291\]") 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\:3292\]") 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\:3293\]") 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\:3294\]") 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\:3295\]") 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\:3296\]") 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\:3297\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{9E584}\x{07E1}㓱。⾑", %p)}, undef, "to_unicode\(\'\\uDA39\\uDD84\\u07E1㓱\。⾑\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3298\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{9E584}\x{07E1}㓱。襾", %p)}, undef, "to_unicode\(\'\\uDA39\\uDD84\\u07E1㓱\。襾\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3299\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0724}ꡗ\x{10E66}≮。≯\x{8FFFF}\x{200D}", %p)}, undef, "to_unicode\(\'\\u0724ꡗ\\uD803\\uDE66\≮\。\≯\\uD9FF\\uDFFF\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3300\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0724}ꡗ\x{10E66}≮。≯\x{8FFFF}\x{200D}", %p)}, undef, "to_unicode\(\'\\u0724ꡗ\\uD803\\uDE66\≮\。\≯\\uD9FF\\uDFFF\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3301\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0724}ꡗ\x{10E66}<\x{0338}。>\x{0338}\x{8FFFF}\x{200D}", %p)}, undef, "to_unicode\(\'\\u0724ꡗ\\uD803\\uDE66\<\\u0338\。\>\\u0338\\uD9FF\\uDFFF\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3302\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0724}ꡗ\x{10E66}<\x{0338}。>\x{0338}\x{8FFFF}\x{200D}", %p)}, undef, "to_unicode\(\'\\u0724ꡗ\\uD803\\uDE66\<\\u0338\。\>\\u0338\\uD9FF\\uDFFF\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3303\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟯。\x{BB642}\x{0766}ᠣ⩋", %p)}, undef, "to_unicode\(\'𝟯。\\uDAAD\\uDE42\\u0766ᠣ\⩋\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3304\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3。\x{BB642}\x{0766}ᠣ⩋", %p)}, undef, "to_unicode\(\'3\。\\uDAAD\\uDE42\\u0766ᠣ\⩋\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3305\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{1E935}。\x{0FB4}\x{0E3A}", %p)}, undef, "to_unicode\(\'\-\\uD83A\\uDD35\。\\u0FB4\\u0E3A\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3306\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{0484}⒏.\x{1B03}\x{C6173}\x{0665}\x{4F80E}", %p)}, undef, "to_unicode\(\'\\u200C\\u0484⒏\.\\u1B03\\uDAD8\\uDD73\\u0665\\uD8FE\\uDC0E\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:3307\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{0484}⒏.\x{1B03}\x{C6173}\x{0665}\x{4F80E}", %p)}, undef, "to_unicode\(\'\\u200C\\u0484⒏\.\\u1B03\\uDAD8\\uDD73\\u0665\\uD8FE\\uDC0E\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:3308\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{0484}8..\x{1B03}\x{C6173}\x{0665}\x{4F80E}", %p)}, undef, "to_unicode\(\'\\u200C\\u04848\.\.\\u1B03\\uDAD8\\uDD73\\u0665\\uD8FE\\uDC0E\'\)\ throws\ error\ P1\ V5\ V6\ C1\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3309\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{0484}8..\x{1B03}\x{C6173}\x{0665}\x{4F80E}", %p)}, undef, "to_unicode\(\'\\u200C\\u04848\.\.\\u1B03\\uDAD8\\uDD73\\u0665\\uD8FE\\uDC0E\'\)\ throws\ error\ P1\ V5\ V6\ C1\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3310\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("齙--۴.ß", %p)}, "齙--۴.ß", "to_unicode\(\'齙\-\-۴\.ß\'\)\ \[data\/IdnaTest\.txt\:3311\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("齙--۴.ß", %p)}, "齙--۴.ß", "to_unicode\(\'齙\-\-۴\.ß\'\)\ \[data\/IdnaTest\.txt\:3312\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("齙--۴.SS", %p)}, "齙--۴.ss", "to_unicode\(\'齙\-\-۴\.SS\'\)\ \[data\/IdnaTest\.txt\:3313\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn-----xbe3617m.ss", %p)}, "齙--۴.ss", "to_unicode\(\'xn\-\-\-\-\-xbe3617m\.ss\'\)\ \[data\/IdnaTest\.txt\:3314\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn-----xbe3617m.xn--zca", %p)}, "齙--۴.ß", "to_unicode\(\'xn\-\-\-\-\-xbe3617m\.xn\-\-zca\'\)\ \[data\/IdnaTest\.txt\:3315\]") 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{2D7F}.\x{0665}\x{1CE5}\x{200C}", %p)}, undef, "to_unicode\(\'\\u2D7F\.\\u0665\\u1CE5\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3316\]") 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{2D7F}.\x{0665}\x{1CE5}\x{200C}", %p)}, undef, "to_unicode\(\'\\u2D7F\.\\u0665\\u1CE5\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3317\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{3C3F2}\x{A6F0}。\x{DEDE}-\x{200D}", %p)}, undef, "to_unicode\(\'\\uD8B0\\uDFF2\\uA6F0。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3318\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{3C3F2}\x{A6F0}。\x{DEDE}-\x{200D}", %p)}, undef, "to_unicode\(\'\\uD8B0\\uDFF2\\uA6F0。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3319\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{3C3F2}\x{A6F0}。\x{DEDE}-\x{200D}", %p)}, undef, "to_unicode\(\'\\uD8B0\\uDFF2\\uA6F0\。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3320\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{3C3F2}\x{A6F0}。\x{DEDE}-\x{200D}", %p)}, undef, "to_unicode\(\'\\uD8B0\\uDFF2\\uA6F0\。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3321\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{3C3F2}\x{A6F0}", %p)}, undef, "to_unicode\(\'\\uD8B0\\uDFF2\\uA6F0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3322\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1BF3}.\x{1E8AB}-\x{FE0A}悎", %p)}, undef, "to_unicode\(\'\\u1BF3.\\uD83A\\uDCAB\-\\uFE0A悎\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3323\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1BF3}.\x{1E8AB}-\x{FE0A}悎", %p)}, undef, "to_unicode\(\'\\u1BF3\.\\uD83A\\uDCAB\-\\uFE0A悎\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3324\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{5F299}\x{E076C}.\x{077F}\x{46A12}", %p)}, undef, "to_unicode\(\'\\uD93C\\uDE99\\uDB41\\uDF6C.\\u077F\\uD8DA\\uDE12\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3325\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{5F299}\x{E076C}.\x{077F}\x{46A12}", %p)}, undef, "to_unicode\(\'\\uD93C\\uDE99\\uDB41\\uDF6C\.\\u077F\\uD8DA\\uDE12\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3326\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡭ\x{1096B}ᠹ.4", %p)}, undef, "to_unicode\(\'ᡭ\\uD802\\uDD6Bᠹ\.4\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3327\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10AE3}\x{0852}\x{084C}\x{066C}.\x{DF56}", %p)}, undef, "to_unicode\(\'\\uD802\\uDEE3\\u0852\\u084C\\u066C\.\\uDF56\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3328\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10AE3}\x{0852}\x{084C}\x{066C}", %p)}, undef, "to_unicode\(\'\\uD802\\uDEE3\\u0852\\u084C\\u066C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3329\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ↄ。\x{1A60}\x{11180}\x{1E83D}", %p)}, undef, "to_unicode\(\'Ↄ\。\\u1A60\\uD804\\uDD80\\uD83A\\uDC3D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3330\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ↄ。\x{1A60}\x{11180}\x{1E83D}", %p)}, undef, "to_unicode\(\'ↄ\。\\u1A60\\uD804\\uDD80\\uD83A\\uDC3D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3331\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0100}-。\x{47672}≮\x{11046}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD00\-\。\\uD8DD\\uDE72\≮\\uD804\\uDC46\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3332\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0100}-。\x{47672}<\x{0338}\x{11046}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD00\-\。\\uD8DD\\uDE72\<\\u0338\\uD804\\uDC46\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3333\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}䷭\x{200D}。\x{9ADC3}≮Ⴉ", %p)}, undef, "to_unicode\(\'\\u200C䷭\\u200D\。\\uDA2B\\uDDC3\≮Ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3334\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}䷭\x{200D}。\x{9ADC3}≮Ⴉ", %p)}, undef, "to_unicode\(\'\\u200C䷭\\u200D\。\\uDA2B\\uDDC3\≮Ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3335\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}䷭\x{200D}。\x{9ADC3}<\x{0338}Ⴉ", %p)}, undef, "to_unicode\(\'\\u200C䷭\\u200D\。\\uDA2B\\uDDC3\<\\u0338Ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3336\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}䷭\x{200D}。\x{9ADC3}<\x{0338}Ⴉ", %p)}, undef, "to_unicode\(\'\\u200C䷭\\u200D\。\\uDA2B\\uDDC3\<\\u0338Ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3337\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}䷭\x{200D}。\x{9ADC3}<\x{0338}ⴉ", %p)}, undef, "to_unicode\(\'\\u200C䷭\\u200D\。\\uDA2B\\uDDC3\<\\u0338ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3338\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}䷭\x{200D}。\x{9ADC3}<\x{0338}ⴉ", %p)}, undef, "to_unicode\(\'\\u200C䷭\\u200D\。\\uDA2B\\uDDC3\<\\u0338ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3339\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}䷭\x{200D}。\x{9ADC3}≮ⴉ", %p)}, undef, "to_unicode\(\'\\u200C䷭\\u200D\。\\uDA2B\\uDDC3\≮ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3340\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}䷭\x{200D}。\x{9ADC3}≮ⴉ", %p)}, undef, "to_unicode\(\'\\u200C䷭\\u200D\。\\uDA2B\\uDDC3\≮ⴉ\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:3341\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E64}-\x{1BF3}ᡓ。︒䖐⾆", %p)}, undef, "to_unicode\(\'\\uD803\\uDE64\-\\u1BF3ᡓ\。︒䖐⾆\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3342\]") 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{10E64}-\x{1BF3}ᡓ。。䖐舌", %p)}, undef, "to_unicode\(\'\\uD803\\uDE64\-\\u1BF3ᡓ\。\。䖐舌\'\)\ throws\ error\ B1\ A4_2\ \[data\/IdnaTest\.txt\:3343\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0981}Ⴐ。쪡", %p)}, undef, "to_unicode\(\'\\u0981Ⴐ。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3344\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0981}Ⴐ。쪡", %p)}, undef, "to_unicode\(\'\\u0981Ⴐ。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3345\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0981}Ⴐ。쪡", %p)}, undef, "to_unicode\(\'\\u0981Ⴐ\。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3346\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0981}Ⴐ。쪡", %p)}, undef, "to_unicode\(\'\\u0981Ⴐ\。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3347\]") 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{0981}ⴐ。쪡", %p)}, undef, "to_unicode\(\'\\u0981ⴐ\。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3348\]") 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{0981}ⴐ。쪡", %p)}, undef, "to_unicode\(\'\\u0981ⴐ\。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3349\]") 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{0981}ⴐ。쪡", %p)}, undef, "to_unicode\(\'\\u0981ⴐ。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3350\]") 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{0981}ⴐ。쪡", %p)}, undef, "to_unicode\(\'\\u0981ⴐ。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3351\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0C4D}쩁\x{0604}.\x{BE999}", %p)}, undef, "to_unicode\(\'\\u0C4D쩁\\u0604\.\\uDABA\\uDD99\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3352\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0C4D}쩁\x{0604}.\x{BE999}", %p)}, undef, "to_unicode\(\'\\u0C4D쩁\\u0604\.\\uDABA\\uDD99\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3353\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BD}⒒\x{200C}。😠\x{66C9E}", %p)}, undef, "to_unicode\(\'\\u06BD⒒\\u200C。😠\\uD95B\\uDC9E\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3354\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BD}⒒\x{200C}。😠\x{66C9E}", %p)}, undef, "to_unicode\(\'\\u06BD⒒\\u200C。😠\\uD95B\\uDC9E\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3355\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BD}11.\x{200C}。😠\x{66C9E}", %p)}, undef, "to_unicode\(\'\\u06BD11\.\\u200C\。😠\\uD95B\\uDC9E\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3356\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BD}11.\x{200C}。😠\x{66C9E}", %p)}, undef, "to_unicode\(\'\\u06BD11\.\\u200C\。😠\\uD95B\\uDC9E\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3357\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕𝟝ꍩ\x{0F9E}.\x{200D}ß", %p)}, undef, "to_unicode\(\'羕𝟝ꍩ\\u0F9E.\\u200Dß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3358\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕𝟝ꍩ\x{0F9E}.\x{200D}ß", %p)}, undef, "to_unicode\(\'羕𝟝ꍩ\\u0F9E.\\u200Dß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3359\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕𝟝ꍩ\x{0F9E}.\x{200D}ß", %p)}, undef, "to_unicode\(\'羕𝟝ꍩ\\u0F9E.\\u200Dß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3360\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕𝟝ꍩ\x{0F9E}.\x{200D}ß", %p)}, undef, "to_unicode\(\'羕𝟝ꍩ\\u0F9E.\\u200Dß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3361\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕5ꍩ\x{0F9E}.\x{200D}ß", %p)}, undef, "to_unicode\(\'羕5ꍩ\\u0F9E\.\\u200Dß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3362\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕5ꍩ\x{0F9E}.\x{200D}ß", %p)}, undef, "to_unicode\(\'羕5ꍩ\\u0F9E\.\\u200Dß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3363\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕5ꍩ\x{0F9E}.\x{200D}SS", %p)}, undef, "to_unicode\(\'羕5ꍩ\\u0F9E\.\\u200DSS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3364\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕5ꍩ\x{0F9E}.\x{200D}SS", %p)}, undef, "to_unicode\(\'羕5ꍩ\\u0F9E\.\\u200DSS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3365\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕5ꍩ\x{0F9E}.\x{200D}ss", %p)}, undef, "to_unicode\(\'羕5ꍩ\\u0F9E\.\\u200Dss\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3366\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕5ꍩ\x{0F9E}.\x{200D}ss", %p)}, undef, "to_unicode\(\'羕5ꍩ\\u0F9E\.\\u200Dss\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3367\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕5ꍩ\x{0F9E}.\x{200D}Ss", %p)}, undef, "to_unicode\(\'羕5ꍩ\\u0F9E\.\\u200DSs\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3368\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕5ꍩ\x{0F9E}.\x{200D}Ss", %p)}, undef, "to_unicode\(\'羕5ꍩ\\u0F9E\.\\u200DSs\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3369\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--5-glg1017fj73a.ss", %p)}, "羕5ꍩ\x{0F9E}.ss", "to_unicode\(\'xn\-\-5\-glg1017fj73a\.ss\'\)\ \[data\/IdnaTest\.txt\:3370\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕5ꍩ\x{0F9E}.ss", %p)}, "羕5ꍩ\x{0F9E}.ss", "to_unicode\(\'羕5ꍩ\\u0F9E\.ss\'\)\ \[data\/IdnaTest\.txt\:3371\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕𝟝ꍩ\x{0F9E}.\x{200D}SS", %p)}, undef, "to_unicode\(\'羕𝟝ꍩ\\u0F9E.\\u200DSS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3372\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕𝟝ꍩ\x{0F9E}.\x{200D}SS", %p)}, undef, "to_unicode\(\'羕𝟝ꍩ\\u0F9E.\\u200DSS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3373\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕𝟝ꍩ\x{0F9E}.\x{200D}ss", %p)}, undef, "to_unicode\(\'羕𝟝ꍩ\\u0F9E.\\u200Dss\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3374\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕𝟝ꍩ\x{0F9E}.\x{200D}ss", %p)}, undef, "to_unicode\(\'羕𝟝ꍩ\\u0F9E.\\u200Dss\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3375\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕𝟝ꍩ\x{0F9E}.\x{200D}Ss", %p)}, undef, "to_unicode\(\'羕𝟝ꍩ\\u0F9E.\\u200DSs\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3376\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕𝟝ꍩ\x{0F9E}.\x{200D}Ss", %p)}, undef, "to_unicode\(\'羕𝟝ꍩ\\u0F9E.\\u200DSs\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3377\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕𝟝ꍩ\x{0F9E}.\x{200D}SS", %p)}, undef, "to_unicode\(\'羕𝟝ꍩ\\u0F9E.\\u200DSS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3378\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕𝟝ꍩ\x{0F9E}.\x{200D}SS", %p)}, undef, "to_unicode\(\'羕𝟝ꍩ\\u0F9E.\\u200DSS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3379\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕𝟝ꍩ\x{0F9E}.\x{200D}ss", %p)}, undef, "to_unicode\(\'羕𝟝ꍩ\\u0F9E.\\u200Dss\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3380\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕𝟝ꍩ\x{0F9E}.\x{200D}ss", %p)}, undef, "to_unicode\(\'羕𝟝ꍩ\\u0F9E.\\u200Dss\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3381\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕𝟝ꍩ\x{0F9E}.\x{200D}Ss", %p)}, undef, "to_unicode\(\'羕𝟝ꍩ\\u0F9E.\\u200DSs\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3382\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羕𝟝ꍩ\x{0F9E}.\x{200D}Ss", %p)}, undef, "to_unicode\(\'羕𝟝ꍩ\\u0F9E.\\u200DSs\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3383\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꗷ\x{0EB5}.\x{08A0}\x{10A14}", %p)}, undef, "to_unicode\(\'ꗷ\\u0EB5\.\\u08A0\\uD802\\uDE14\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3384\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6≯-。︒蚴-\x{FFB20}", %p)}, undef, "to_unicode\(\'6\≯\-\。︒蚴\-\\uDBBE\\uDF20\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3385\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6>\x{0338}-。︒蚴-\x{FFB20}", %p)}, undef, "to_unicode\(\'6\>\\u0338\-\。︒蚴\-\\uDBBE\\uDF20\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3386\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6≯-。。蚴-\x{FFB20}", %p)}, undef, "to_unicode\(\'6\≯\-\。\。蚴\-\\uDBBE\\uDF20\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3387\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6>\x{0338}-。。蚴-\x{FFB20}", %p)}, undef, "to_unicode\(\'6\>\\u0338\-\。\。蚴\-\\uDBBE\\uDF20\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3388\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A72F0}\x{E012A}Ⴡ﹒.\x{10FCA}", %p)}, undef, "to_unicode\(\'\\uDA5C\\uDEF0\\uDB40\\uDD2AჁ﹒.\\uD803\\uDFCA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3389\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A72F0}\x{E012A}Ⴡ..\x{10FCA}", %p)}, undef, "to_unicode\(\'\\uDA5C\\uDEF0\\uDB40\\uDD2AჁ\.\.\\uD803\\uDFCA\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3390\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A72F0}\x{E012A}ⴡ..\x{10FCA}", %p)}, undef, "to_unicode\(\'\\uDA5C\\uDEF0\\uDB40\\uDD2Aⴡ\.\.\\uD803\\uDFCA\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3391\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A72F0}\x{E012A}ⴡ﹒.\x{10FCA}", %p)}, undef, "to_unicode\(\'\\uDA5C\\uDEF0\\uDB40\\uDD2Aⴡ﹒.\\uD803\\uDFCA\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3392\]") 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{0FB7}。𝟠ᢉ-\x{084A}", %p)}, undef, "to_unicode\(\'\\u0FB7\。𝟠ᢉ\-\\u084A\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3393\]") 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{0FB7}。8ᢉ-\x{084A}", %p)}, undef, "to_unicode\(\'\\u0FB7\。8ᢉ\-\\u084A\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3394\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("싇。⾇\x{1EEE6}Ⴝ", %p)}, undef, "to_unicode\(\'싇\。⾇\\uD83B\\uDEE6Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3395\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("싇。⾇\x{1EEE6}Ⴝ", %p)}, undef, "to_unicode\(\'싇\。⾇\\uD83B\\uDEE6Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3396\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("싇。舛\x{1EEE6}Ⴝ", %p)}, undef, "to_unicode\(\'싇\。舛\\uD83B\\uDEE6Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3397\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("싇。舛\x{1EEE6}Ⴝ", %p)}, undef, "to_unicode\(\'싇\。舛\\uD83B\\uDEE6Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3398\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("싇。舛\x{1EEE6}ⴝ", %p)}, undef, "to_unicode\(\'싇\。舛\\uD83B\\uDEE6ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3399\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("싇。舛\x{1EEE6}ⴝ", %p)}, undef, "to_unicode\(\'싇\。舛\\uD83B\\uDEE6ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3400\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("싇。⾇\x{1EEE6}ⴝ", %p)}, undef, "to_unicode\(\'싇\。⾇\\uD83B\\uDEE6ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3401\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("싇。⾇\x{1EEE6}ⴝ", %p)}, undef, "to_unicode\(\'싇\。⾇\\uD83B\\uDEE6ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3402\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0660}ς。\x{200C}ᡣჀ", %p)}, undef, "to_unicode\(\'\\u0660ς\。\\u200CᡣჀ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3403\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0660}ς。\x{200C}ᡣჀ", %p)}, undef, "to_unicode\(\'\\u0660ς\。\\u200CᡣჀ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3404\]") 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{0660}ς。\x{200C}ᡣⴠ", %p)}, undef, "to_unicode\(\'\\u0660ς\。\\u200Cᡣⴠ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:3405\]") 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{0660}ς。\x{200C}ᡣⴠ", %p)}, undef, "to_unicode\(\'\\u0660ς\。\\u200Cᡣⴠ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:3406\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0660}Σ。\x{200C}ᡣჀ", %p)}, undef, "to_unicode\(\'\\u0660Σ\。\\u200CᡣჀ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3407\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0660}Σ。\x{200C}ᡣჀ", %p)}, undef, "to_unicode\(\'\\u0660Σ\。\\u200CᡣჀ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3408\]") 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{0660}σ。\x{200C}ᡣⴠ", %p)}, undef, "to_unicode\(\'\\u0660σ\。\\u200Cᡣⴠ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:3409\]") 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{0660}σ。\x{200C}ᡣⴠ", %p)}, undef, "to_unicode\(\'\\u0660σ\。\\u200Cᡣⴠ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:3410\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{72D67}\x{200C}\x{10E73}.ꡝ-ß", %p)}, undef, "to_unicode\(\'\\uD98B\\uDD67\\u200C\\uD803\\uDE73\.ꡝ\-ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3411\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{72D67}\x{200C}\x{10E73}.ꡝ-ß", %p)}, undef, "to_unicode\(\'\\uD98B\\uDD67\\u200C\\uD803\\uDE73\.ꡝ\-ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3412\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{72D67}\x{200C}\x{10E73}.ꡝ-SS", %p)}, undef, "to_unicode\(\'\\uD98B\\uDD67\\u200C\\uD803\\uDE73\.ꡝ\-SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3413\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{72D67}\x{200C}\x{10E73}.ꡝ-SS", %p)}, undef, "to_unicode\(\'\\uD98B\\uDD67\\u200C\\uD803\\uDE73\.ꡝ\-SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3414\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{72D67}\x{200C}\x{10E73}.ꡝ-ss", %p)}, undef, "to_unicode\(\'\\uD98B\\uDD67\\u200C\\uD803\\uDE73\.ꡝ\-ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3415\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{72D67}\x{200C}\x{10E73}.ꡝ-ss", %p)}, undef, "to_unicode\(\'\\uD98B\\uDD67\\u200C\\uD803\\uDE73\.ꡝ\-ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3416\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{72D67}\x{200C}\x{10E73}.ꡝ-Ss", %p)}, undef, "to_unicode\(\'\\uD98B\\uDD67\\u200C\\uD803\\uDE73\.ꡝ\-Ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3417\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{72D67}\x{200C}\x{10E73}.ꡝ-Ss", %p)}, undef, "to_unicode\(\'\\uD98B\\uDD67\\u200C\\uD803\\uDE73\.ꡝ\-Ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3418\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200D}\x{17B5}\x{0759}.-\x{1EEA2}\x{B5E7C}\x{1ECB9}", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\\u17B5\\u0759\.\-\\uD83B\\uDEA2\\uDA97\\uDE7C\\uD83B\\uDCB9\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:3419\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200D}\x{17B5}\x{0759}.-\x{1EEA2}\x{B5E7C}\x{1ECB9}", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\\u17B5\\u0759\.\-\\uD83B\\uDEA2\\uDA97\\uDE7C\\uD83B\\uDCB9\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:3420\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200D}\x{17B5}\x{0759}.-\x{062C}\x{B5E7C}\x{1ECB9}", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\\u17B5\\u0759\.\-\\u062C\\uDA97\\uDE7C\\uD83B\\uDCB9\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:3421\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200D}\x{17B5}\x{0759}.-\x{062C}\x{B5E7C}\x{1ECB9}", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\\u17B5\\u0759\.\-\\u062C\\uDA97\\uDE7C\\uD83B\\uDCB9\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:3422\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{B102F}。\x{06B3}≠", %p)}, undef, "to_unicode\(\'\\uDA84\\uDC2F。\\u06B3\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3423\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{B102F}。\x{06B3}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uDA84\\uDC2F。\\u06B3\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3424\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{B102F}。\x{06B3}≠", %p)}, undef, "to_unicode\(\'\\uDA84\\uDC2F\。\\u06B3\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3425\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{B102F}。\x{06B3}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uDA84\\uDC2F\。\\u06B3\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3426\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1039}\x{0680}。\x{10E79}\x{0666}덝4", %p)}, undef, "to_unicode\(\'\\u1039\\u0680。\\uD803\\uDE79\\u0666덝4\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3427\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1039}\x{0680}。\x{10E79}\x{0666}덝4", %p)}, undef, "to_unicode\(\'\\u1039\\u0680。\\uD803\\uDE79\\u0666덝4\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3428\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1039}\x{0680}。\x{10E79}\x{0666}덝4", %p)}, undef, "to_unicode\(\'\\u1039\\u0680\。\\uD803\\uDE79\\u0666덝4\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3429\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1039}\x{0680}。\x{10E79}\x{0666}덝4", %p)}, undef, "to_unicode\(\'\\u1039\\u0680\。\\uD803\\uDE79\\u0666덝4\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3430\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴏ\x{1B02}-.\x{200D}Ⴉ", %p)}, undef, "to_unicode\(\'Ⴏ\\u1B02\-.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3431\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴏ\x{1B02}-.\x{200D}Ⴉ", %p)}, undef, "to_unicode\(\'Ⴏ\\u1B02\-.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3432\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴏ\x{1B02}-.\x{200D}Ⴉ", %p)}, undef, "to_unicode\(\'Ⴏ\\u1B02\-\.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3433\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴏ\x{1B02}-.\x{200D}Ⴉ", %p)}, undef, "to_unicode\(\'Ⴏ\\u1B02\-\.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3434\]") 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{1B02}-.\x{200D}ⴉ", %p)}, undef, "to_unicode\(\'ⴏ\\u1B02\-\.\\u200Dⴉ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3435\]") 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{1B02}-.\x{200D}ⴉ", %p)}, undef, "to_unicode\(\'ⴏ\\u1B02\-\.\\u200Dⴉ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3436\]") 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{1B02}-.\x{200D}ⴉ", %p)}, undef, "to_unicode\(\'ⴏ\\u1B02\-.\\u200Dⴉ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3437\]") 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{1B02}-.\x{200D}ⴉ", %p)}, undef, "to_unicode\(\'ⴏ\\u1B02\-.\\u200Dⴉ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3438\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("🐄\x{1037}\x{E0AB7}\x{A858C}。\x{066B}➱\x{0F19}", %p)}, undef, "to_unicode\(\'🐄\\u1037\\uDB42\\uDEB7\\uDA61\\uDD8C\。\\u066B\➱\\u0F19\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3439\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠\x{0849}.➂⒎⒈", %p)}, undef, "to_unicode\(\'\≠\\u0849\.➂⒎⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3440\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{0849}.➂⒎⒈", %p)}, undef, "to_unicode\(\'\=\\u0338\\u0849\.➂⒎⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3441\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠\x{0849}.➂7.1.", %p)}, undef, "to_unicode\(\'\≠\\u0849\.➂7\.1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3442\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{0849}.➂7.1.", %p)}, undef, "to_unicode\(\'\=\\u0338\\u0849\.➂7\.1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3443\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A0D}\x{E0C89}ß.ᠩ\x{1F653}\x{200C}\x{10E75}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE0D\\uDB43\\uDC89ß\.ᠩ\\uD83D\\uDE53\\u200C\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3444\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A0D}\x{E0C89}ß.ᠩ\x{1F653}\x{200C}\x{10E75}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE0D\\uDB43\\uDC89ß\.ᠩ\\uD83D\\uDE53\\u200C\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3445\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A0D}\x{E0C89}SS.ᠩ\x{1F653}\x{200C}\x{10E75}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE0D\\uDB43\\uDC89SS\.ᠩ\\uD83D\\uDE53\\u200C\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3446\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A0D}\x{E0C89}SS.ᠩ\x{1F653}\x{200C}\x{10E75}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE0D\\uDB43\\uDC89SS\.ᠩ\\uD83D\\uDE53\\u200C\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3447\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A0D}\x{E0C89}ss.ᠩ\x{1F653}\x{200C}\x{10E75}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE0D\\uDB43\\uDC89ss\.ᠩ\\uD83D\\uDE53\\u200C\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3448\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A0D}\x{E0C89}ss.ᠩ\x{1F653}\x{200C}\x{10E75}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE0D\\uDB43\\uDC89ss\.ᠩ\\uD83D\\uDE53\\u200C\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3449\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A0D}\x{E0C89}Ss.ᠩ\x{1F653}\x{200C}\x{10E75}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE0D\\uDB43\\uDC89Ss\.ᠩ\\uD83D\\uDE53\\u200C\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3450\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A0D}\x{E0C89}Ss.ᠩ\x{1F653}\x{200C}\x{10E75}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE0D\\uDB43\\uDC89Ss\.ᠩ\\uD83D\\uDE53\\u200C\\uD803\\uDE75\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3451\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{1EDA8}\x{5FA29}Ⴇ。\x{E0179}", %p)}, undef, "to_unicode\(\'ß\\uD83B\\uDDA8\\uD93E\\uDE29Ⴇ。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3452\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{1EDA8}\x{5FA29}Ⴇ。\x{E0179}", %p)}, undef, "to_unicode\(\'ß\\uD83B\\uDDA8\\uD93E\\uDE29Ⴇ\。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3453\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{1EDA8}\x{5FA29}ⴇ。\x{E0179}", %p)}, undef, "to_unicode\(\'ß\\uD83B\\uDDA8\\uD93E\\uDE29ⴇ\。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3454\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{1EDA8}\x{5FA29}Ⴇ。\x{E0179}", %p)}, undef, "to_unicode\(\'SS\\uD83B\\uDDA8\\uD93E\\uDE29Ⴇ\。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3455\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{1EDA8}\x{5FA29}ⴇ。\x{E0179}", %p)}, undef, "to_unicode\(\'ss\\uD83B\\uDDA8\\uD93E\\uDE29ⴇ\。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3456\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{1EDA8}\x{5FA29}Ⴇ。\x{E0179}", %p)}, undef, "to_unicode\(\'Ss\\uD83B\\uDDA8\\uD93E\\uDE29Ⴇ\。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3457\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{1EDA8}\x{5FA29}ⴇ。\x{E0179}", %p)}, undef, "to_unicode\(\'ß\\uD83B\\uDDA8\\uD93E\\uDE29ⴇ。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3458\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{1EDA8}\x{5FA29}Ⴇ。\x{E0179}", %p)}, undef, "to_unicode\(\'SS\\uD83B\\uDDA8\\uD93E\\uDE29Ⴇ。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3459\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{1EDA8}\x{5FA29}ⴇ。\x{E0179}", %p)}, undef, "to_unicode\(\'ss\\uD83B\\uDDA8\\uD93E\\uDE29ⴇ。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3460\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{1EDA8}\x{5FA29}Ⴇ。\x{E0179}", %p)}, undef, "to_unicode\(\'Ss\\uD83B\\uDDA8\\uD93E\\uDE29Ⴇ。\\uDB40\\uDD79\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3461\]") 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{1BAB}。\x{11131}-\x{A9C0}", %p)}, undef, "to_unicode\(\'\\u1BAB\。\\uD804\\uDD31\-\\uA9C0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3462\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0E4D}-.\x{2FEDD}\x{0AC5}ß", %p)}, undef, "to_unicode\(\'\\u0E4D\-.\\uD87F\\uDEDD\\u0AC5ß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3463\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E4D}-.\x{2FEDD}\x{0AC5}ß", %p)}, undef, "to_unicode\(\'\\u0E4D\-\.\\uD87F\\uDEDD\\u0AC5ß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3464\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E4D}-.\x{2FEDD}\x{0AC5}SS", %p)}, undef, "to_unicode\(\'\\u0E4D\-\.\\uD87F\\uDEDD\\u0AC5SS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3465\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E4D}-.\x{2FEDD}\x{0AC5}ss", %p)}, undef, "to_unicode\(\'\\u0E4D\-\.\\uD87F\\uDEDD\\u0AC5ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3466\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E4D}-.\x{2FEDD}\x{0AC5}Ss", %p)}, undef, "to_unicode\(\'\\u0E4D\-\.\\uD87F\\uDEDD\\u0AC5Ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3467\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E4D}-.\x{2FEDD}\x{0AC5}SS", %p)}, undef, "to_unicode\(\'\\u0E4D\-.\\uD87F\\uDEDD\\u0AC5SS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3468\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E4D}-.\x{2FEDD}\x{0AC5}ss", %p)}, undef, "to_unicode\(\'\\u0E4D\-.\\uD87F\\uDEDD\\u0AC5ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3469\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E4D}-.\x{2FEDD}\x{0AC5}Ss", %p)}, undef, "to_unicode\(\'\\u0E4D\-.\\uD87F\\uDEDD\\u0AC5Ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3470\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0775}-≮。\x{10E7E}\x{05A5}ꡃ", %p)}, undef, "to_unicode\(\'\\u0775\-\≮\。\\uD803\\uDE7E\\u05A5ꡃ\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3471\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0775}-<\x{0338}。\x{10E7E}\x{05A5}ꡃ", %p)}, undef, "to_unicode\(\'\\u0775\-\<\\u0338\。\\uD803\\uDE7E\\u05A5ꡃ\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3472\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄇\x{E060C}\x{09CD}\x{E01A8}.\x{103A}\x{1BF2}8\x{1752}", %p)}, undef, "to_unicode\(\'🄇\\uDB41\\uDE0C\\u09CD\\uDB40\\uDDA8.\\u103A\\u1BF28\\u1752\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3473\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6,\x{E060C}\x{09CD}\x{E01A8}.\x{103A}\x{1BF2}8\x{1752}", %p)}, undef, "to_unicode\(\'6\,\\uDB41\\uDE0C\\u09CD\\uDB40\\uDDA8\.\\u103A\\u1BF28\\u1752\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3474\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。\x{887C4}\x{200D}\x{E0BCF}", %p)}, undef, "to_unicode\(\'\-。\\uD9E1\\uDFC4\\u200D\\uDB42\\uDFCF\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3475\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。\x{887C4}\x{200D}\x{E0BCF}", %p)}, undef, "to_unicode\(\'\-。\\uD9E1\\uDFC4\\u200D\\uDB42\\uDFCF\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3476\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。\x{887C4}\x{200D}\x{E0BCF}", %p)}, undef, "to_unicode\(\'\-\。\\uD9E1\\uDFC4\\u200D\\uDB42\\uDFCF\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3477\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。\x{887C4}\x{200D}\x{E0BCF}", %p)}, undef, "to_unicode\(\'\-\。\\uD9E1\\uDFC4\\u200D\\uDB42\\uDFCF\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3478\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟒…𝟫\x{142F1}。\x{0737}\x{773FA}", %p)}, undef, "to_unicode\(\'𝟒\…𝟫\\uD810\\uDEF1。\\u0737\\uD99C\\uDFFA\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3479\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4...9\x{142F1}。\x{0737}\x{773FA}", %p)}, undef, "to_unicode\(\'4\.\.\.9\\uD810\\uDEF1\。\\u0737\\uD99C\\uDFFA\'\)\ throws\ error\ P1\ V6\ V5\ A4_2\ \[data\/IdnaTest\.txt\:3480\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-.-├\x{DC52F}", %p)}, undef, "to_unicode\(\'\-\.\-\├\\uDB31\\uDD2F\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3481\]") 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{E01B1}ᡬ。\x{200D}⳾", %p)}, undef, "to_unicode\(\'\\uDB40\\uDDB1ᡬ。\\u200D⳾\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3482\]") 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{E01B1}ᡬ。\x{200D}⳾", %p)}, undef, "to_unicode\(\'\\uDB40\\uDDB1ᡬ。\\u200D⳾\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3483\]") 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{E01B1}ᡬ。\x{200D}⳾", %p)}, undef, "to_unicode\(\'\\uDB40\\uDDB1ᡬ\。\\u200D⳾\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3484\]") 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{E01B1}ᡬ。\x{200D}⳾", %p)}, undef, "to_unicode\(\'\\uDB40\\uDDB1ᡬ\。\\u200D⳾\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3485\]") 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--88e.xn--pkj", %p)}, "ᡬ.⳾", "to_unicode\(\'xn\-\-88e\.xn\-\-pkj\'\)\ \[data\/IdnaTest\.txt\:3486\]") 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\:3487\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("쥥\x{671AB}Ⴎ.\x{200C}⒈⒈ᢝ", %p)}, undef, "to_unicode\(\'쥥\\uD95C\\uDDABႮ.\\u200C⒈⒈ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3488\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥\x{671AB}Ⴎ.\x{200C}⒈⒈ᢝ", %p)}, undef, "to_unicode\(\'쥥\\uD95C\\uDDABႮ.\\u200C⒈⒈ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3489\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥\x{671AB}Ⴎ.\x{200C}⒈⒈ᢝ", %p)}, undef, "to_unicode\(\'쥥\\uD95C\\uDDABႮ.\\u200C⒈⒈ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3490\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥\x{671AB}Ⴎ.\x{200C}⒈⒈ᢝ", %p)}, undef, "to_unicode\(\'쥥\\uD95C\\uDDABႮ.\\u200C⒈⒈ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3491\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥\x{671AB}Ⴎ.\x{200C}1.1.ᢝ", %p)}, undef, "to_unicode\(\'쥥\\uD95C\\uDDABႮ\.\\u200C1\.1\.ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3492\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥\x{671AB}Ⴎ.\x{200C}1.1.ᢝ", %p)}, undef, "to_unicode\(\'쥥\\uD95C\\uDDABႮ\.\\u200C1\.1\.ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3493\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥\x{671AB}Ⴎ.\x{200C}1.1.ᢝ", %p)}, undef, "to_unicode\(\'쥥\\uD95C\\uDDABႮ\.\\u200C1\.1\.ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3494\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥\x{671AB}Ⴎ.\x{200C}1.1.ᢝ", %p)}, undef, "to_unicode\(\'쥥\\uD95C\\uDDABႮ\.\\u200C1\.1\.ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3495\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥\x{671AB}ⴎ.\x{200C}1.1.ᢝ", %p)}, undef, "to_unicode\(\'쥥\\uD95C\\uDDABⴎ\.\\u200C1\.1\.ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3496\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥\x{671AB}ⴎ.\x{200C}1.1.ᢝ", %p)}, undef, "to_unicode\(\'쥥\\uD95C\\uDDABⴎ\.\\u200C1\.1\.ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3497\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥\x{671AB}ⴎ.\x{200C}1.1.ᢝ", %p)}, undef, "to_unicode\(\'쥥\\uD95C\\uDDABⴎ\.\\u200C1\.1\.ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3498\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥\x{671AB}ⴎ.\x{200C}1.1.ᢝ", %p)}, undef, "to_unicode\(\'쥥\\uD95C\\uDDABⴎ\.\\u200C1\.1\.ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3499\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥\x{671AB}ⴎ.\x{200C}⒈⒈ᢝ", %p)}, undef, "to_unicode\(\'쥥\\uD95C\\uDDABⴎ.\\u200C⒈⒈ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3500\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥\x{671AB}ⴎ.\x{200C}⒈⒈ᢝ", %p)}, undef, "to_unicode\(\'쥥\\uD95C\\uDDABⴎ.\\u200C⒈⒈ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3501\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥\x{671AB}ⴎ.\x{200C}⒈⒈ᢝ", %p)}, undef, "to_unicode\(\'쥥\\uD95C\\uDDABⴎ.\\u200C⒈⒈ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3502\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥\x{671AB}ⴎ.\x{200C}⒈⒈ᢝ", %p)}, undef, "to_unicode\(\'쥥\\uD95C\\uDDABⴎ.\\u200C⒈⒈ᢝ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3503\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{A8E7}𝟼ᡵ-。\x{0E3A}", %p)}, undef, "to_unicode\(\'\\uA8E7𝟼ᡵ\-\。\\u0E3A\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3504\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{A8E7}6ᡵ-。\x{0E3A}", %p)}, undef, "to_unicode\(\'\\uA8E76ᡵ\-\。\\u0E3A\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3505\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ς.\x{069A}\x{E0868}⒈", %p)}, undef, "to_unicode\(\'ς.\\u069A\\uDB42\\uDC68⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3506\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς.\x{069A}\x{E0868}1.", %p)}, undef, "to_unicode\(\'ς\.\\u069A\\uDB42\\uDC681\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3507\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ.\x{069A}\x{E0868}1.", %p)}, undef, "to_unicode\(\'Σ\.\\u069A\\uDB42\\uDC681\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3508\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ.\x{069A}\x{E0868}1.", %p)}, undef, "to_unicode\(\'σ\.\\u069A\\uDB42\\uDC681\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3509\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ.\x{069A}\x{E0868}⒈", %p)}, undef, "to_unicode\(\'Σ.\\u069A\\uDB42\\uDC68⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3510\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ.\x{069A}\x{E0868}⒈", %p)}, undef, "to_unicode\(\'σ.\\u069A\\uDB42\\uDC68⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3511\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0BAC}-。\x{0669}\x{4F3FA}\x{3E232}", %p)}, undef, "to_unicode\(\'\\uDB42\\uDFAC\-。\\u0669\\uD8FC\\uDFFA\\uD8B8\\uDE32\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3512\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0BAC}-。\x{0669}\x{4F3FA}\x{3E232}", %p)}, undef, "to_unicode\(\'\\uDB42\\uDFAC\-\。\\u0669\\uD8FC\\uDFFA\\uD8B8\\uDE32\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3513\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10816}-\x{E061C}。⒓\x{200C}\x{10AD0}", %p)}, undef, "to_unicode\(\'\\uD802\\uDC16\-\\uDB41\\uDE1C。⒓\\u200C\\uD802\\uDED0\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:3514\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10816}-\x{E061C}。⒓\x{200C}\x{10AD0}", %p)}, undef, "to_unicode\(\'\\uD802\\uDC16\-\\uDB41\\uDE1C。⒓\\u200C\\uD802\\uDED0\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:3515\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10816}-\x{E061C}。12.\x{200C}\x{10AD0}", %p)}, undef, "to_unicode\(\'\\uD802\\uDC16\-\\uDB41\\uDE1C\。12\.\\u200C\\uD802\\uDED0\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:3516\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10816}-\x{E061C}。12.\x{200C}\x{10AD0}", %p)}, undef, "to_unicode\(\'\\uD802\\uDC16\-\\uDB41\\uDE1C\。12\.\\u200C\\uD802\\uDED0\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:3517\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ß.ᠱ₃\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200Dß.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3518\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ß.ᠱ₃\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200Dß.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3519\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ß.ᠱ₃\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200Dß.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3520\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ß.ᠱ₃\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200Dß.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3521\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ß.ᠱ3\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200Dß\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3522\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ß.ᠱ3\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200Dß\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3523\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ß.ᠱ3\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200Dß\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3524\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ß.ᠱ3\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200Dß\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3525\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}SS.ᠱ3\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200DSS\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3526\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}SS.ᠱ3\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200DSS\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3527\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}SS.ᠱ3\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200DSS\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3528\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}SS.ᠱ3\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200DSS\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3529\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ss.ᠱ3\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200Dss\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3530\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ss.ᠱ3\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200Dss\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3531\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ss.ᠱ3\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200Dss\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3532\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ss.ᠱ3\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200Dss\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3533\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}Ss.ᠱ3\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200DSs\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3534\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}Ss.ᠱ3\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200DSs\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3535\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}Ss.ᠱ3\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200DSs\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3536\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}Ss.ᠱ3\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200DSs\.ᠱ3\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3537\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}SS.ᠱ₃\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200DSS.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3538\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}SS.ᠱ₃\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200DSS.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3539\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}SS.ᠱ₃\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200DSS.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3540\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}SS.ᠱ₃\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200DSS.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3541\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ss.ᠱ₃\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200Dss.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3542\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ss.ᠱ₃\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200Dss.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3543\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ss.ᠱ₃\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200Dss.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3544\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}ss.ᠱ₃\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200Dss.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3545\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}Ss.ᠱ₃\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200DSs.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3546\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}Ss.ᠱ₃\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200DSs.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3547\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}Ss.ᠱ₃\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200DSs.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3548\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6C}늿\x{200D}Ss.ᠱ₃\x{E012B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C늿\\u200DSs.ᠱ₃\\uDB40\\uDD2B\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3549\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𝟷\x{0941}.\x{341F5}ꡁ", %p)}, undef, "to_unicode\(\'𝟷\\u0941.\\uD890\\uDDF5ꡁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3550\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1\x{0941}.\x{341F5}ꡁ", %p)}, undef, "to_unicode\(\'1\\u0941\.\\uD890\\uDDF5ꡁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3551\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.\x{05C3}😳ßˋ", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.\\u05C3😳ßˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3552\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.\x{05C3}😳ßˋ", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.\\u05C3😳ßˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3553\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1160}.\x{05C3}😳ßˋ", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.\\u05C3😳ßˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3554\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1160}.\x{05C3}😳ßˋ", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.\\u05C3😳ßˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3555\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1160}.\x{05C3}😳SSˋ", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.\\u05C3😳SSˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3556\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1160}.\x{05C3}😳SSˋ", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.\\u05C3😳SSˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3557\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1160}.\x{05C3}😳ssˋ", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.\\u05C3😳ssˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3558\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1160}.\x{05C3}😳ssˋ", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.\\u05C3😳ssˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3559\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1160}.\x{05C3}😳Ssˋ", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.\\u05C3😳Ssˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3560\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1160}.\x{05C3}😳Ssˋ", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.\\u05C3😳Ssˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3561\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.\x{05C3}😳SSˋ", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.\\u05C3😳SSˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3562\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.\x{05C3}😳SSˋ", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.\\u05C3😳SSˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3563\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.\x{05C3}😳ssˋ", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.\\u05C3😳ssˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3564\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.\x{05C3}😳ssˋ", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.\\u05C3😳ssˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3565\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.\x{05C3}😳Ssˋ", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.\\u05C3😳Ssˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3566\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.\x{05C3}😳Ssˋ", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.\\u05C3😳Ssˋ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3567\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒Ⴖ\x{05BC}.\x{200C}", %p)}, undef, "to_unicode\(\'︒Ⴖ\\u05BC.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3568\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒Ⴖ\x{05BC}.\x{200C}", %p)}, undef, "to_unicode\(\'︒Ⴖ\\u05BC.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3569\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。Ⴖ\x{05BC}.\x{200C}", %p)}, undef, "to_unicode\(\'\。Ⴖ\\u05BC\.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3570\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。Ⴖ\x{05BC}.\x{200C}", %p)}, undef, "to_unicode\(\'\。Ⴖ\\u05BC\.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3571\]") 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{05BC}.\x{200C}", %p)}, undef, "to_unicode\(\'\。ⴖ\\u05BC\.\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3572\]") 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{05BC}.\x{200C}", %p)}, undef, "to_unicode\(\'\。ⴖ\\u05BC\.\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3573\]") 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--kdb162r.", %p)}, "ⴖ\x{05BC}.", "to_unicode\(\'xn\-\-kdb162r\.\'\)\ \[data\/IdnaTest\.txt\:3574\]") 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{05BC}.", %p)}, "ⴖ\x{05BC}.", "to_unicode\(\'ⴖ\\u05BC\.\'\)\ \[data\/IdnaTest\.txt\:3575\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴖ\x{05BC}.", %p)}, undef, "to_unicode\(\'Ⴖ\\u05BC\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3576\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒ⴖ\x{05BC}.\x{200C}", %p)}, undef, "to_unicode\(\'︒ⴖ\\u05BC.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3577\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒ⴖ\x{05BC}.\x{200C}", %p)}, undef, "to_unicode\(\'︒ⴖ\\u05BC.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3578\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08A0}.\x{200C}Ⴃ\x{AA31}", %p)}, undef, "to_unicode\(\'\\u08A0.\\u200CႣ\\uAA31\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3579\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08A0}.\x{200C}Ⴃ\x{AA31}", %p)}, undef, "to_unicode\(\'\\u08A0.\\u200CႣ\\uAA31\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3580\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08A0}.\x{200C}Ⴃ\x{AA31}", %p)}, undef, "to_unicode\(\'\\u08A0\.\\u200CႣ\\uAA31\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3581\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08A0}.\x{200C}Ⴃ\x{AA31}", %p)}, undef, "to_unicode\(\'\\u08A0\.\\u200CႣ\\uAA31\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3582\]") 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{08A0}.\x{200C}ⴃ\x{AA31}", %p)}, undef, "to_unicode\(\'\\u08A0\.\\u200Cⴃ\\uAA31\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3583\]") 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{08A0}.\x{200C}ⴃ\x{AA31}", %p)}, undef, "to_unicode\(\'\\u08A0\.\\u200Cⴃ\\uAA31\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3584\]") 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--pyb.xn--ukj2811b", %p)}, "\x{08A0}.ⴃ\x{AA31}", "to_unicode\(\'xn\-\-pyb\.xn\-\-ukj2811b\'\)\ \[data\/IdnaTest\.txt\:3585\]") 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{08A0}.ⴃ\x{AA31}", %p)}, "\x{08A0}.ⴃ\x{AA31}", "to_unicode\(\'\\u08A0\.ⴃ\\uAA31\'\)\ \[data\/IdnaTest\.txt\:3586\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{08A0}.Ⴃ\x{AA31}", %p)}, undef, "to_unicode\(\'\\u08A0\.Ⴃ\\uAA31\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3587\]") 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{08A0}.\x{200C}ⴃ\x{AA31}", %p)}, undef, "to_unicode\(\'\\u08A0.\\u200Cⴃ\\uAA31\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3588\]") 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{08A0}.\x{200C}ⴃ\x{AA31}", %p)}, undef, "to_unicode\(\'\\u08A0.\\u200Cⴃ\\uAA31\'\)\ throws\ error\ C1\ \[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}\x{200C}。0䫷\x{1A6A}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\。0䫷\\u1A6A\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3590\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{200C}。0䫷\x{1A6A}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\。0䫷\\u1A6A\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3591\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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--0-e3k657x", %p)}, "0䫷\x{1A6A}", "to_unicode\(\'xn\-\-0\-e3k657x\'\)\ \[data\/IdnaTest\.txt\:3592\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{1A6A}", %p)}, "0䫷\x{1A6A}", "to_unicode\(\'0䫷\\u1A6A\'\)\ \[data\/IdnaTest\.txt\:3593\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("-\x{08EF}\x{2EB97}。\x{5EAA7}", %p)}, undef, "to_unicode\(\'\-\\u08EF\\uD87A\\uDF97\。\\uD93A\\uDEA7\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3594\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{709A6}︒\x{200C}㟀.ꡛ⒈", %p)}, undef, "to_unicode\(\'\\uD982\\uDDA6︒\\u200C㟀.ꡛ⒈\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3595\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{709A6}︒\x{200C}㟀.ꡛ⒈", %p)}, undef, "to_unicode\(\'\\uD982\\uDDA6︒\\u200C㟀.ꡛ⒈\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3596\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{709A6}。\x{200C}㟀.ꡛ1.", %p)}, undef, "to_unicode\(\'\\uD982\\uDDA6\。\\u200C㟀\.ꡛ1\.\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3597\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{709A6}。\x{200C}㟀.ꡛ1.", %p)}, undef, "to_unicode\(\'\\uD982\\uDDA6\。\\u200C㟀\.ꡛ1\.\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3598\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{A8EA}\x{06C4}\x{0483}。-\x{200D}", %p)}, undef, "to_unicode\(\'\\uA8EA\\u06C4\\u0483\。\-\\u200D\'\)\ throws\ error\ V5\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3599\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{A8EA}\x{06C4}\x{0483}。-\x{200D}", %p)}, undef, "to_unicode\(\'\\uA8EA\\u06C4\\u0483\。\-\\u200D\'\)\ throws\ error\ V5\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3600\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}.Ⴉ≠\x{1E8F2}", %p)}, undef, "to_unicode\(\'\\u200C.Ⴉ\≠\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3601\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.Ⴉ≠\x{1E8F2}", %p)}, undef, "to_unicode\(\'\\u200C.Ⴉ\≠\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3602\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.Ⴉ=\x{0338}\x{1E8F2}", %p)}, undef, "to_unicode\(\'\\u200C.Ⴉ\=\\u0338\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3603\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.Ⴉ=\x{0338}\x{1E8F2}", %p)}, undef, "to_unicode\(\'\\u200C.Ⴉ\=\\u0338\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3604\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.Ⴉ≠\x{1E8F2}", %p)}, undef, "to_unicode\(\'\\u200C\.Ⴉ\≠\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3605\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.Ⴉ≠\x{1E8F2}", %p)}, undef, "to_unicode\(\'\\u200C\.Ⴉ\≠\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3606\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.Ⴉ=\x{0338}\x{1E8F2}", %p)}, undef, "to_unicode\(\'\\u200C\.Ⴉ\=\\u0338\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3607\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.Ⴉ=\x{0338}\x{1E8F2}", %p)}, undef, "to_unicode\(\'\\u200C\.Ⴉ\=\\u0338\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3608\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.ⴉ=\x{0338}\x{1E8F2}", %p)}, undef, "to_unicode\(\'\\u200C\.ⴉ\=\\u0338\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3609\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.ⴉ=\x{0338}\x{1E8F2}", %p)}, undef, "to_unicode\(\'\\u200C\.ⴉ\=\\u0338\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3610\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.ⴉ≠\x{1E8F2}", %p)}, undef, "to_unicode\(\'\\u200C\.ⴉ\≠\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3611\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.ⴉ≠\x{1E8F2}", %p)}, undef, "to_unicode\(\'\\u200C\.ⴉ\≠\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3612\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.ⴉ=\x{0338}\x{1E8F2}", %p)}, undef, "to_unicode\(\'\\u200C.ⴉ\=\\u0338\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3613\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.ⴉ=\x{0338}\x{1E8F2}", %p)}, undef, "to_unicode\(\'\\u200C.ⴉ\=\\u0338\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3614\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.ⴉ≠\x{1E8F2}", %p)}, undef, "to_unicode\(\'\\u200C.ⴉ\≠\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3615\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.ⴉ≠\x{1E8F2}", %p)}, undef, "to_unicode\(\'\\u200C.ⴉ\≠\\uD83A\\uDCF2\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3616\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06CD}。≯ς", %p)}, undef, "to_unicode\(\'\\u06CD\。\≯ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3617\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06CD}。>\x{0338}ς", %p)}, undef, "to_unicode\(\'\\u06CD\。\>\\u0338ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3618\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06CD}。>\x{0338}Σ", %p)}, undef, "to_unicode\(\'\\u06CD\。\>\\u0338Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3619\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06CD}。≯Σ", %p)}, undef, "to_unicode\(\'\\u06CD\。\≯Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3620\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06CD}。≯σ", %p)}, undef, "to_unicode\(\'\\u06CD\。\≯σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3621\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06CD}。>\x{0338}σ", %p)}, undef, "to_unicode\(\'\\u06CD\。\>\\u0338σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3622\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FCA6}\x{0776}.\x{B78F2}︒\x{8A5EA}Ⴐ", %p)}, undef, "to_unicode\(\'\\uFCA6\\u0776\.\\uDA9E\\uDCF2︒\\uD9E9\\uDDEAႰ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3623\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}\x{0645}\x{0776}.\x{B78F2}。\x{8A5EA}Ⴐ", %p)}, undef, "to_unicode\(\'\\u062B\\u0645\\u0776\.\\uDA9E\\uDCF2\。\\uD9E9\\uDDEAႰ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3624\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}\x{0645}\x{0776}.\x{B78F2}。\x{8A5EA}ⴐ", %p)}, undef, "to_unicode\(\'\\u062B\\u0645\\u0776\.\\uDA9E\\uDCF2\。\\uD9E9\\uDDEAⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3625\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FCA6}\x{0776}.\x{B78F2}︒\x{8A5EA}ⴐ", %p)}, undef, "to_unicode\(\'\\uFCA6\\u0776\.\\uDA9E\\uDCF2︒\\uD9E9\\uDDEAⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3626\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴥ⾏\x{E05AB}\x{A9B8}。\x{0599}", %p)}, undef, "to_unicode\(\'Ⴥ⾏\\uDB41\\uDDAB\\uA9B8。\\u0599\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3627\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴥ行\x{E05AB}\x{A9B8}。\x{0599}", %p)}, undef, "to_unicode\(\'Ⴥ行\\uDB41\\uDDAB\\uA9B8\。\\u0599\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3628\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴥ行\x{E05AB}\x{A9B8}。\x{0599}", %p)}, undef, "to_unicode\(\'ⴥ行\\uDB41\\uDDAB\\uA9B8\。\\u0599\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3629\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴥ⾏\x{E05AB}\x{A9B8}。\x{0599}", %p)}, undef, "to_unicode\(\'ⴥ⾏\\uDB41\\uDDAB\\uA9B8。\\u0599\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3630\]") 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)}, "5.🜎ᢧ", "to_unicode\(\'𝟱\。🜎ᢧ\'\)\ \[data\/IdnaTest\.txt\:3631\]") 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("5。🜎ᢧ", %p)}, "5.🜎ᢧ", "to_unicode\(\'5\。🜎ᢧ\'\)\ \[data\/IdnaTest\.txt\:3632\]") 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("5.xn--xbf5506v", %p)}, "5.🜎ᢧ", "to_unicode\(\'5\.xn\-\-xbf5506v\'\)\ \[data\/IdnaTest\.txt\:3633\]") 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("5.🜎ᢧ", %p)}, "5.🜎ᢧ", "to_unicode\(\'5\.🜎ᢧ\'\)\ \[data\/IdnaTest\.txt\:3634\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("≮ꡌ。섖쮖ß", %p)}, undef, "to_unicode\(\'\≮ꡌ\。섖쮖ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3635\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}ꡌ。섖쮖ß", %p)}, undef, "to_unicode\(\'\<\\u0338ꡌ\。섖쮖ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3636\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}ꡌ。섖쮖SS", %p)}, undef, "to_unicode\(\'\<\\u0338ꡌ\。섖쮖SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3637\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮ꡌ。섖쮖SS", %p)}, undef, "to_unicode\(\'\≮ꡌ\。섖쮖SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3638\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮ꡌ。섖쮖ss", %p)}, undef, "to_unicode\(\'\≮ꡌ\。섖쮖ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3639\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}ꡌ。섖쮖ss", %p)}, undef, "to_unicode\(\'\<\\u0338ꡌ\。섖쮖ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3640\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}ꡌ。섖쮖Ss", %p)}, undef, "to_unicode\(\'\<\\u0338ꡌ\。섖쮖Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3641\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮ꡌ。섖쮖Ss", %p)}, undef, "to_unicode\(\'\≮ꡌ\。섖쮖Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3642\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0365}\x{E066C}-。ᠾ", %p)}, undef, "to_unicode\(\'\\u0365\\uDB41\\uDE6C\-\。ᠾ\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3643\]") 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{1EEB6}\x{0669}ꡊ\x{1BAB}。\x{07DA}ᡴ\x{200C}\x{067C}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDEB6\\u0669ꡊ\\u1BAB\。\\u07DAᡴ\\u200C\\u067C\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:3644\]") 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{062B}\x{0669}ꡊ\x{1BAB}。\x{07DA}ᡴ\x{200C}\x{067C}", %p)}, undef, "to_unicode\(\'\\u062B\\u0669ꡊ\\u1BAB\。\\u07DAᡴ\\u200C\\u067C\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:3645\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{A92D}.\x{10F81}\x{58BF1}", %p)}, undef, "to_unicode\(\'\\uA92D\.\\uD803\\uDF81\\uD922\\uDFF1\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3646\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("--。\x{41AF8}\x{06A0}\x{109A4}\x{1E868}", %p)}, undef, "to_unicode\(\'\-\-\。\\uD8C6\\uDEF8\\u06A0\\uD802\\uDDA4\\uD83A\\uDC68\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3647\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{9461E}𝟐\x{87B22}.≯ᢜᢗ\x{8C130}", %p)}, undef, "to_unicode\(\'\\uDA11\\uDE1E𝟐\\uD9DE\\uDF22\.\≯ᢜᢗ\\uD9F0\\uDD30\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3648\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{9461E}𝟐\x{87B22}.>\x{0338}ᢜᢗ\x{8C130}", %p)}, undef, "to_unicode\(\'\\uDA11\\uDE1E𝟐\\uD9DE\\uDF22\.\>\\u0338ᢜᢗ\\uD9F0\\uDD30\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3649\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{9461E}2\x{87B22}.≯ᢜᢗ\x{8C130}", %p)}, undef, "to_unicode\(\'\\uDA11\\uDE1E2\\uD9DE\\uDF22\.\≯ᢜᢗ\\uD9F0\\uDD30\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3650\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{9461E}2\x{87B22}.>\x{0338}ᢜᢗ\x{8C130}", %p)}, undef, "to_unicode\(\'\\uDA11\\uDE1E2\\uD9DE\\uDF22\.\>\\u0338ᢜᢗ\\uD9F0\\uDD30\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3651\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䔛\x{E010E}\x{D4626}\x{0668}.-䤷", %p)}, undef, "to_unicode\(\'䔛\\uDB40\\uDD0E\\uDB11\\uDE26\\u0668.\-䤷\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3652\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䔛\x{E010E}\x{D4626}\x{0668}.-䤷", %p)}, undef, "to_unicode\(\'䔛\\uDB40\\uDD0E\\uDB11\\uDE26\\u0668\.\-䤷\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3653\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0666}.\x{200D}-", %p)}, undef, "to_unicode\(\'\\u0666.\\u200D\-\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3654\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0666}.\x{200D}-", %p)}, undef, "to_unicode\(\'\\u0666.\\u200D\-\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3655\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0666}.\x{200D}-", %p)}, undef, "to_unicode\(\'\\u0666\.\\u200D\-\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3656\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0666}.\x{200D}-", %p)}, undef, "to_unicode\(\'\\u0666\.\\u200D\-\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3657\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{DFF6F}帷。≯萺\x{E0F50}-", %p)}, undef, "to_unicode\(\'\\uDB3F\\uDF6F帷。\≯萺\\uDB43\\uDF50\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3658\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{DFF6F}帷。>\x{0338}萺\x{E0F50}-", %p)}, undef, "to_unicode\(\'\\uDB3F\\uDF6F帷。\>\\u0338萺\\uDB43\\uDF50\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3659\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{DFF6F}帷。≯萺\x{E0F50}-", %p)}, undef, "to_unicode\(\'\\uDB3F\\uDF6F帷\。\≯萺\\uDB43\\uDF50\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3660\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{DFF6F}帷。>\x{0338}萺\x{E0F50}-", %p)}, undef, "to_unicode\(\'\\uDB3F\\uDF6F帷\。\>\\u0338萺\\uDB43\\uDF50\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3661\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}攌\x{A806}。\x{0723}-Ⴘ", %p)}, undef, "to_unicode\(\'\\u200D攌\\uA806\。\\u0723\-Ⴘ\'\)\ throws\ error\ P1\ V6\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3662\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}攌\x{A806}。\x{0723}-Ⴘ", %p)}, undef, "to_unicode\(\'\\u200D攌\\uA806\。\\u0723\-Ⴘ\'\)\ throws\ error\ P1\ V6\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3663\]") 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{A806}。\x{0723}-ⴘ", %p)}, undef, "to_unicode\(\'\\u200D攌\\uA806\。\\u0723\-ⴘ\'\)\ throws\ error\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3664\]") 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{A806}。\x{0723}-ⴘ", %p)}, undef, "to_unicode\(\'\\u200D攌\\uA806\。\\u0723\-ⴘ\'\)\ throws\ error\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3665\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}ꖨ.𝟪₀\x{93F89}𝟱", %p)}, undef, "to_unicode\(\'\\u200Cꖨ.𝟪₀\\uDA0F\\uDF89𝟱\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3666\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ꖨ.𝟪₀\x{93F89}𝟱", %p)}, undef, "to_unicode\(\'\\u200Cꖨ.𝟪₀\\uDA0F\\uDF89𝟱\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3667\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ꖨ.80\x{93F89}5", %p)}, undef, "to_unicode\(\'\\u200Cꖨ\.80\\uDA0F\\uDF895\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3668\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ꖨ.80\x{93F89}5", %p)}, undef, "to_unicode\(\'\\u200Cꖨ\.80\\uDA0F\\uDF895\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3669\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈걾2.\x{FD96}\x{0767}", %p)}, undef, "to_unicode\(\'⒈걾2\.\\uFD96\\u0767\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3670\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈걾2.\x{FD96}\x{0767}", %p)}, undef, "to_unicode\(\'⒈걾2\.\\uFD96\\u0767\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3671\]") 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("1.걾2.\x{0646}\x{062D}\x{0649}\x{0767}", %p)}, "1.걾2.\x{0646}\x{062D}\x{0649}\x{0767}", "to_unicode\(\'1\.걾2\.\\u0646\\u062D\\u0649\\u0767\'\)\ \[data\/IdnaTest\.txt\:3672\]") 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("1.걾2.\x{0646}\x{062D}\x{0649}\x{0767}", %p)}, "1.걾2.\x{0646}\x{062D}\x{0649}\x{0767}", "to_unicode\(\'1\.걾2\.\\u0646\\u062D\\u0649\\u0767\'\)\ \[data\/IdnaTest\.txt\:3673\]") 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("1.xn--2-945e.xn--sgb3ck85i", %p)}, "1.걾2.\x{0646}\x{062D}\x{0649}\x{0767}", "to_unicode\(\'1\.xn\-\-2\-945e\.xn\-\-sgb3ck85i\'\)\ \[data\/IdnaTest\.txt\:3674\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{109C4}𝟻≮≮.\x{2DFB}ᢣ", %p)}, undef, "to_unicode\(\'\\uD802\\uDDC4𝟻\≮\≮\.\\u2DFBᢣ\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:3675\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{109C4}𝟻<\x{0338}<\x{0338}.\x{2DFB}ᢣ", %p)}, undef, "to_unicode\(\'\\uD802\\uDDC4𝟻\<\\u0338\<\\u0338\.\\u2DFBᢣ\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:3676\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{109C4}5≮≮.\x{2DFB}ᢣ", %p)}, undef, "to_unicode\(\'\\uD802\\uDDC45\≮\≮\.\\u2DFBᢣ\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:3677\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{109C4}5<\x{0338}<\x{0338}.\x{2DFB}ᢣ", %p)}, undef, "to_unicode\(\'\\uD802\\uDDC45\<\\u0338\<\\u0338\.\\u2DFBᢣ\'\)\ throws\ error\ P1\ V6\ V5\ B3\ \[data\/IdnaTest\.txt\:3678\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0043}.\x{10E7A}\x{115F}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDC43\.\\uD803\\uDE7A\\u115F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3679\]") 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{1BA5}\x{E0110}.\x{200D}", %p)}, undef, "to_unicode\(\'𝟨\\u1BA5\\uDB40\\uDD10\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3680\]") 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{1BA5}\x{E0110}.\x{200D}", %p)}, undef, "to_unicode\(\'𝟨\\u1BA5\\uDB40\\uDD10\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3681\]") 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("6\x{1BA5}\x{E0110}.\x{200D}", %p)}, undef, "to_unicode\(\'6\\u1BA5\\uDB40\\uDD10\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3682\]") 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("6\x{1BA5}\x{E0110}.\x{200D}", %p)}, undef, "to_unicode\(\'6\\u1BA5\\uDB40\\uDD10\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3683\]") 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--6-eml.", %p)}, "6\x{1BA5}.", "to_unicode\(\'xn\-\-6\-eml\.\'\)\ \[data\/IdnaTest\.txt\:3684\]") 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("6\x{1BA5}.", %p)}, "6\x{1BA5}.", "to_unicode\(\'6\\u1BA5\.\'\)\ \[data\/IdnaTest\.txt\:3685\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ᡭ≠\x{06A3}\x{0C4D}。-\x{200C}ꡠ", %p)}, undef, "to_unicode\(\'ᡭ\≠\\u06A3\\u0C4D。\-\\u200Cꡠ\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3686\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡭ≠\x{06A3}\x{0C4D}。-\x{200C}ꡠ", %p)}, undef, "to_unicode\(\'ᡭ\≠\\u06A3\\u0C4D。\-\\u200Cꡠ\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3687\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡭ=\x{0338}\x{06A3}\x{0C4D}。-\x{200C}ꡠ", %p)}, undef, "to_unicode\(\'ᡭ\=\\u0338\\u06A3\\u0C4D。\-\\u200Cꡠ\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3688\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡭ=\x{0338}\x{06A3}\x{0C4D}。-\x{200C}ꡠ", %p)}, undef, "to_unicode\(\'ᡭ\=\\u0338\\u06A3\\u0C4D。\-\\u200Cꡠ\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3689\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡭ≠\x{06A3}\x{0C4D}。-\x{200C}ꡠ", %p)}, undef, "to_unicode\(\'ᡭ\≠\\u06A3\\u0C4D\。\-\\u200Cꡠ\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3690\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡭ≠\x{06A3}\x{0C4D}。-\x{200C}ꡠ", %p)}, undef, "to_unicode\(\'ᡭ\≠\\u06A3\\u0C4D\。\-\\u200Cꡠ\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3691\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡭ=\x{0338}\x{06A3}\x{0C4D}。-\x{200C}ꡠ", %p)}, undef, "to_unicode\(\'ᡭ\=\\u0338\\u06A3\\u0C4D\。\-\\u200Cꡠ\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3692\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡭ=\x{0338}\x{06A3}\x{0C4D}。-\x{200C}ꡠ", %p)}, undef, "to_unicode\(\'ᡭ\=\\u0338\\u06A3\\u0C4D\。\-\\u200Cꡠ\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3693\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7C}\x{1CE7}-\x{0628}。\x{06A8}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE7C\\u1CE7\-\\u0628。\\u06A8\'\)\ throws\ error\ B1\ \[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{10E7C}\x{1CE7}-\x{0628}。\x{06A8}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE7C\\u1CE7\-\\u0628\。\\u06A8\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3695\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("F\x{1CD0}。\x{1090D1}⁖", %p)}, undef, "to_unicode\(\'F\\u1CD0。\\uDBE4\\uDCD1\⁖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3696\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("F\x{1CD0}。\x{1090D1}⁖", %p)}, undef, "to_unicode\(\'F\\u1CD0\。\\uDBE4\\uDCD1\⁖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3697\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("f\x{1CD0}。\x{1090D1}⁖", %p)}, undef, "to_unicode\(\'f\\u1CD0\。\\uDBE4\\uDCD1\⁖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3698\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("f\x{1CD0}。\x{1090D1}⁖", %p)}, undef, "to_unicode\(\'f\\u1CD0。\\uDBE4\\uDCD1\⁖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3699\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1734}\x{1734}\x{1A7B}。۰Ⴘ\x{135E}\x{AF13F}", %p)}, undef, "to_unicode\(\'\\u1734\\u1734\\u1A7B\。۰Ⴘ\\u135E\\uDA7C\\uDD3F\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3700\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1734}\x{1734}\x{1A7B}。۰ⴘ\x{135E}\x{AF13F}", %p)}, undef, "to_unicode\(\'\\u1734\\u1734\\u1A7B\。۰ⴘ\\u135E\\uDA7C\\uDD3F\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3701\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{30A68}\x{200C}\x{200C}5。勉\x{E0078}", %p)}, undef, "to_unicode\(\'\\uD882\\uDE68\\u200C\\u200C5\。勉\\uDB40\\uDC78\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3702\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{30A68}\x{200C}\x{200C}5。勉\x{E0078}", %p)}, undef, "to_unicode\(\'\\uD882\\uDE68\\u200C\\u200C5\。勉\\uDB40\\uDC78\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3703\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{30A68}\x{200C}\x{200C}5。勉\x{E0078}", %p)}, undef, "to_unicode\(\'\\uD882\\uDE68\\u200C\\u200C5\。勉\\uDB40\\uDC78\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3704\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{30A68}\x{200C}\x{200C}5。勉\x{E0078}", %p)}, undef, "to_unicode\(\'\\uD882\\uDE68\\u200C\\u200C5\。勉\\uDB40\\uDC78\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3705\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠇.\x{D3154}\x{5CF08}\x{6C1A6}", %p)}, undef, "to_unicode\(\'᠇\.\\uDB0C\\uDD54\\uD933\\uDF08\\uD970\\uDDA6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3706\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}。⒈≯8", %p)}, undef, "to_unicode\(\'\\u200C\\u200C。⒈\≯8\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3707\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}。⒈≯8", %p)}, undef, "to_unicode\(\'\\u200C\\u200C。⒈\≯8\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3708\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}。⒈>\x{0338}8", %p)}, undef, "to_unicode\(\'\\u200C\\u200C。⒈\>\\u03388\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3709\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}。⒈>\x{0338}8", %p)}, undef, "to_unicode\(\'\\u200C\\u200C。⒈\>\\u03388\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3710\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}。1.≯8", %p)}, undef, "to_unicode\(\'\\u200C\\u200C\。1\.\≯8\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3711\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}。1.≯8", %p)}, undef, "to_unicode\(\'\\u200C\\u200C\。1\.\≯8\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3712\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}。1.>\x{0338}8", %p)}, undef, "to_unicode\(\'\\u200C\\u200C\。1\.\>\\u03388\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3713\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}。1.>\x{0338}8", %p)}, undef, "to_unicode\(\'\\u200C\\u200C\。1\.\>\\u03388\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3714\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}\x{102D}\x{564A6}.\x{472BE}≯ᡞ", %p)}, undef, "to_unicode\(\'\\u115F\\u102D\\uD919\\uDCA6\.\\uD8DC\\uDEBE\≯ᡞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3715\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}\x{102D}\x{564A6}.\x{472BE}>\x{0338}ᡞ", %p)}, undef, "to_unicode\(\'\\u115F\\u102D\\uD919\\uDCA6\.\\uD8DC\\uDEBE\>\\u0338ᡞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3716\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🁠\x{0948}\x{200D}\x{0713}.\x{0356}-\x{1B71}\x{58169}", %p)}, undef, "to_unicode\(\'🁠\\u0948\\u200D\\u0713\.\\u0356\-\\u1B71\\uD920\\uDD69\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3717\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🁠\x{0948}\x{200D}\x{0713}.\x{0356}-\x{1B71}\x{58169}", %p)}, undef, "to_unicode\(\'🁠\\u0948\\u200D\\u0713\.\\u0356\-\\u1B71\\uD920\\uDD69\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3718\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E01CD}.\x{0B4D}-", %p)}, undef, "to_unicode\(\'\\uDB40\\uDDCD.\\u0B4D\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3719\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E01CD}.\x{0B4D}-", %p)}, undef, "to_unicode\(\'\\uDB40\\uDDCD\.\\u0B4D\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:3720\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䮸ß.\x{E0D5F}℮紙\x{0770}", %p)}, undef, "to_unicode\(\'䮸ß\.\\uDB43\\uDD5F℮紙\\u0770\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3721\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䮸SS.\x{E0D5F}℮紙\x{0770}", %p)}, undef, "to_unicode\(\'䮸SS\.\\uDB43\\uDD5F℮紙\\u0770\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3722\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䮸ss.\x{E0D5F}℮紙\x{0770}", %p)}, undef, "to_unicode\(\'䮸ss\.\\uDB43\\uDD5F℮紙\\u0770\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3723\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䮸Ss.\x{E0D5F}℮紙\x{0770}", %p)}, undef, "to_unicode\(\'䮸Ss\.\\uDB43\\uDD5F℮紙\\u0770\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3724\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-Ⴞ.-\x{E0C5D}\x{E0B98}\x{1E99C}", %p)}, undef, "to_unicode\(\'\-Ⴞ\.\-\\uDB43\\uDC5D\\uDB42\\uDF98\\uD83A\\uDD9C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3725\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-ⴞ.-\x{E0C5D}\x{E0B98}\x{1E99C}", %p)}, undef, "to_unicode\(\'\-ⴞ\.\-\\uDB43\\uDC5D\\uDB42\\uDF98\\uD83A\\uDD9C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3726\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{37585}\x{0662}\x{036E}。\x{CB7C6}ꡌ\x{3D03C}ᠪ", %p)}, undef, "to_unicode\(\'\\uD89D\\uDD85\\u0662\\u036E。\\uDAED\\uDFC6ꡌ\\uD8B4\\uDC3Cᠪ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3727\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{37585}\x{0662}\x{036E}。\x{CB7C6}ꡌ\x{3D03C}ᠪ", %p)}, undef, "to_unicode\(\'\\uD89D\\uDD85\\u0662\\u036E\。\\uDAED\\uDFC6ꡌ\\uD8B4\\uDC3Cᠪ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3728\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAA}-\x{200D}\x{1D188}.\x{06B3}\x{200D}\x{75647}", %p)}, undef, "to_unicode\(\'\\u0FAA\-\\u200D\\uD834\\uDD88.\\u06B3\\u200D\\uD995\\uDE47\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3729\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAA}-\x{200D}\x{1D188}.\x{06B3}\x{200D}\x{75647}", %p)}, undef, "to_unicode\(\'\\u0FAA\-\\u200D\\uD834\\uDD88.\\u06B3\\u200D\\uD995\\uDE47\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3730\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAA}-\x{200D}\x{1D188}.\x{06B3}\x{200D}\x{75647}", %p)}, undef, "to_unicode\(\'\\u0FAA\-\\u200D\\uD834\\uDD88\.\\u06B3\\u200D\\uD995\\uDE47\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3731\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAA}-\x{200D}\x{1D188}.\x{06B3}\x{200D}\x{75647}", %p)}, undef, "to_unicode\(\'\\u0FAA\-\\u200D\\uD834\\uDD88\.\\u06B3\\u200D\\uD995\\uDE47\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3732\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⁶。≠\x{10E78}", %p)}, undef, "to_unicode\(\'⁶\。\≠\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3733\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⁶。=\x{0338}\x{10E78}", %p)}, undef, "to_unicode\(\'⁶\。\=\\u0338\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3734\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6。≠\x{10E78}", %p)}, undef, "to_unicode\(\'6\。\≠\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3735\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6。=\x{0338}\x{10E78}", %p)}, undef, "to_unicode\(\'6\。\=\\u0338\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3736\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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}廊.\x{07A0}", %p)}, undef, "to_unicode\(\'\\uABED廊\.\\u07A0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3737\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200D}\x{05B5}-.-Ⴐ\x{0666}", %p)}, undef, "to_unicode\(\'\\u200D\\u05B5\-.\-Ⴐ\\u0666\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3738\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{05B5}-.-Ⴐ\x{0666}", %p)}, undef, "to_unicode\(\'\\u200D\\u05B5\-.\-Ⴐ\\u0666\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3739\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{05B5}-.-Ⴐ\x{0666}", %p)}, undef, "to_unicode\(\'\\u200D\\u05B5\-\.\-Ⴐ\\u0666\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3740\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{05B5}-.-Ⴐ\x{0666}", %p)}, undef, "to_unicode\(\'\\u200D\\u05B5\-\.\-Ⴐ\\u0666\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3741\]") 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{05B5}-.-ⴐ\x{0666}", %p)}, undef, "to_unicode\(\'\\u200D\\u05B5\-\.\-ⴐ\\u0666\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3742\]") 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{05B5}-.-ⴐ\x{0666}", %p)}, undef, "to_unicode\(\'\\u200D\\u05B5\-\.\-ⴐ\\u0666\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3743\]") 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{05B5}-.-ⴐ\x{0666}", %p)}, undef, "to_unicode\(\'\\u200D\\u05B5\-.\-ⴐ\\u0666\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3744\]") 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{05B5}-.-ⴐ\x{0666}", %p)}, undef, "to_unicode\(\'\\u200D\\u05B5\-.\-ⴐ\\u0666\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3745\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0721}\x{0661}挏\x{F9128}.-", %p)}, undef, "to_unicode\(\'\\u0721\\u0661挏\\uDBA4\\uDD28\.\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:3746\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FD0B}。\x{0604}ꡎ", %p)}, undef, "to_unicode\(\'\\uFD0B。\\u0604ꡎ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3747\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0634}\x{062E}。\x{0604}ꡎ", %p)}, undef, "to_unicode\(\'\\u0634\\u062E\。\\u0604ꡎ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3748\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_unicode\(\'Ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3749\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_unicode\(\'Ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3750\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_unicode\(\'Ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19\.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3751\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_unicode\(\'Ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19\.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3752\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_unicode\(\'ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19\.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3753\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_unicode\(\'ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19\.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3754\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_unicode\(\'ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3755\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴞ\x{3987C}\x{AFC19}.ᡒ릫", %p)}, undef, "to_unicode\(\'ⴞ\\uD8A6\\uDC7C\\uDA7F\\uDC19.ᡒ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3756\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🔱\x{6B20D}\x{06B7}\x{0668}。≯\x{200C}\x{AAB3}", %p)}, undef, "to_unicode\(\'🔱\\uD96C\\uDE0D\\u06B7\\u0668。\≯\\u200C\\uAAB3\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3757\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🔱\x{6B20D}\x{06B7}\x{0668}。≯\x{200C}\x{AAB3}", %p)}, undef, "to_unicode\(\'🔱\\uD96C\\uDE0D\\u06B7\\u0668。\≯\\u200C\\uAAB3\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3758\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🔱\x{6B20D}\x{06B7}\x{0668}。>\x{0338}\x{200C}\x{AAB3}", %p)}, undef, "to_unicode\(\'🔱\\uD96C\\uDE0D\\u06B7\\u0668。\>\\u0338\\u200C\\uAAB3\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3759\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🔱\x{6B20D}\x{06B7}\x{0668}。>\x{0338}\x{200C}\x{AAB3}", %p)}, undef, "to_unicode\(\'🔱\\uD96C\\uDE0D\\u06B7\\u0668。\>\\u0338\\u200C\\uAAB3\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3760\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🔱\x{6B20D}\x{06B7}\x{0668}。≯\x{200C}\x{AAB3}", %p)}, undef, "to_unicode\(\'🔱\\uD96C\\uDE0D\\u06B7\\u0668\。\≯\\u200C\\uAAB3\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3761\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🔱\x{6B20D}\x{06B7}\x{0668}。≯\x{200C}\x{AAB3}", %p)}, undef, "to_unicode\(\'🔱\\uD96C\\uDE0D\\u06B7\\u0668\。\≯\\u200C\\uAAB3\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3762\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🔱\x{6B20D}\x{06B7}\x{0668}。>\x{0338}\x{200C}\x{AAB3}", %p)}, undef, "to_unicode\(\'🔱\\uD96C\\uDE0D\\u06B7\\u0668\。\>\\u0338\\u200C\\uAAB3\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3763\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🔱\x{6B20D}\x{06B7}\x{0668}。>\x{0338}\x{200C}\x{AAB3}", %p)}, undef, "to_unicode\(\'🔱\\uD96C\\uDE0D\\u06B7\\u0668\。\>\\u0338\\u200C\\uAAB3\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3764\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᛎ\x{05A0}\x{FFF9}\x{200D}。\x{0603}\x{10E77}\x{1E817}-", %p)}, undef, "to_unicode\(\'ᛎ\\u05A0\\uFFF9\\u200D。\\u0603\\uD803\\uDE77\\uD83A\\uDC17\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3765\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᛎ\x{05A0}\x{FFF9}\x{200D}。\x{0603}\x{10E77}\x{1E817}-", %p)}, undef, "to_unicode\(\'ᛎ\\u05A0\\uFFF9\\u200D。\\u0603\\uD803\\uDE77\\uD83A\\uDC17\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3766\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᛎ\x{05A0}\x{FFF9}\x{200D}。\x{0603}\x{10E77}\x{1E817}-", %p)}, undef, "to_unicode\(\'ᛎ\\u05A0\\uFFF9\\u200D\。\\u0603\\uD803\\uDE77\\uD83A\\uDC17\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3767\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᛎ\x{05A0}\x{FFF9}\x{200D}。\x{0603}\x{10E77}\x{1E817}-", %p)}, undef, "to_unicode\(\'ᛎ\\u05A0\\uFFF9\\u200D\。\\u0603\\uD803\\uDE77\\uD83A\\uDC17\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3768\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E69}.\x{07E4}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE69\.\\u07E4\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3769\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ß\x{200D}\x{0E3A}。⒈", %p)}, undef, "to_unicode\(\'ß\\u200D\\u0E3A。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3770\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{200D}\x{0E3A}。⒈", %p)}, undef, "to_unicode\(\'ß\\u200D\\u0E3A。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3771\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{200D}\x{0E3A}。1.", %p)}, undef, "to_unicode\(\'ß\\u200D\\u0E3A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3772\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{200D}\x{0E3A}。1.", %p)}, undef, "to_unicode\(\'ß\\u200D\\u0E3A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3773\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{200D}\x{0E3A}。1.", %p)}, undef, "to_unicode\(\'SS\\u200D\\u0E3A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3774\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{200D}\x{0E3A}。1.", %p)}, undef, "to_unicode\(\'SS\\u200D\\u0E3A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3775\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{200D}\x{0E3A}。1.", %p)}, undef, "to_unicode\(\'ss\\u200D\\u0E3A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3776\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{200D}\x{0E3A}。1.", %p)}, undef, "to_unicode\(\'ss\\u200D\\u0E3A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3777\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{200D}\x{0E3A}。1.", %p)}, undef, "to_unicode\(\'Ss\\u200D\\u0E3A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3778\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{200D}\x{0E3A}。1.", %p)}, undef, "to_unicode\(\'Ss\\u200D\\u0E3A\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3779\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ss-jvi.1.", %p)}, "ss\x{0E3A}.1.", "to_unicode\(\'xn\-\-ss\-jvi\.1\.\'\)\ \[data\/IdnaTest\.txt\:3780\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{0E3A}.1.", %p)}, "ss\x{0E3A}.1.", "to_unicode\(\'ss\\u0E3A\.1\.\'\)\ \[data\/IdnaTest\.txt\:3781\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{0E3A}.1.", %p)}, "ss\x{0E3A}.1.", "to_unicode\(\'SS\\u0E3A\.1\.\'\)\ \[data\/IdnaTest\.txt\:3782\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{0E3A}.1.", %p)}, "ss\x{0E3A}.1.", "to_unicode\(\'Ss\\u0E3A\.1\.\'\)\ \[data\/IdnaTest\.txt\:3783\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{200D}\x{0E3A}。⒈", %p)}, undef, "to_unicode\(\'SS\\u200D\\u0E3A。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3784\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{200D}\x{0E3A}。⒈", %p)}, undef, "to_unicode\(\'SS\\u200D\\u0E3A。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3785\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{200D}\x{0E3A}。⒈", %p)}, undef, "to_unicode\(\'ss\\u200D\\u0E3A。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3786\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{200D}\x{0E3A}。⒈", %p)}, undef, "to_unicode\(\'ss\\u200D\\u0E3A。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3787\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{200D}\x{0E3A}。⒈", %p)}, undef, "to_unicode\(\'Ss\\u200D\\u0E3A。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3788\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{200D}\x{0E3A}。⒈", %p)}, undef, "to_unicode\(\'Ss\\u200D\\u0E3A。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3789\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{111C0}\x{200C}\x{9475B}\x{1EAA0}。\x{200D}", %p)}, undef, "to_unicode\(\'\\uD804\\uDDC0\\u200C\\uDA11\\uDF5B\\uD83A\\uDEA0\。\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3790\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{111C0}\x{200C}\x{9475B}\x{1EAA0}。\x{200D}", %p)}, undef, "to_unicode\(\'\\uD804\\uDDC0\\u200C\\uDA11\\uDF5B\\uD83A\\uDEA0\。\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3791\]") 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{0777}。\x{067A}🔋", %p)}, undef, "to_unicode\(\'\\u0777。\\u067A🔋\'\)\ throws\ error\ B3\ \[data\/IdnaTest\.txt\:3792\]") 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{0777}。\x{067A}🔋", %p)}, undef, "to_unicode\(\'\\u0777\。\\u067A🔋\'\)\ throws\ error\ B3\ \[data\/IdnaTest\.txt\:3793\]") 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{07DC}\x{1BF2}。\x{0677}\x{1A1B}\x{200C}\x{0D4D}", %p)}, undef, "to_unicode\(\'\\u07DC\\u1BF2\。\\u0677\\u1A1B\\u200C\\u0D4D\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:3794\]") 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{07DC}\x{1BF2}。\x{0677}\x{1A1B}\x{200C}\x{0D4D}", %p)}, undef, "to_unicode\(\'\\u07DC\\u1BF2\。\\u0677\\u1A1B\\u200C\\u0D4D\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:3795\]") 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{07DC}\x{1BF2}。\x{06C7}\x{0674}\x{1A1B}\x{200C}\x{0D4D}", %p)}, undef, "to_unicode\(\'\\u07DC\\u1BF2\。\\u06C7\\u0674\\u1A1B\\u200C\\u0D4D\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:3796\]") 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{07DC}\x{1BF2}。\x{06C7}\x{0674}\x{1A1B}\x{200C}\x{0D4D}", %p)}, undef, "to_unicode\(\'\\u07DC\\u1BF2\。\\u06C7\\u0674\\u1A1B\\u200C\\u0D4D\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:3797\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{D4CA7}.\x{E017E}ꡑ", %p)}, undef, "to_unicode\(\'\\uDB13\\uDCA7\.\\uDB40\\uDD7Eꡑ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3798\]") 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{1BF3}.ß\x{0A4D}\x{0FBC}", %p)}, "ᡬ\x{1BF3}.ß\x{0A4D}\x{0FBC}", "to_unicode\(\'ᡬ\\u1BF3.ß\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3799\]") 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{1BF3}.ß\x{0A4D}\x{0FBC}", %p)}, "ᡬ\x{1BF3}.ß\x{0A4D}\x{0FBC}", "to_unicode\(\'ᡬ\\u1BF3.ß\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3800\]") 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{1BF3}.ß\x{0A4D}\x{0FBC}", %p)}, "ᡬ\x{1BF3}.ß\x{0A4D}\x{0FBC}", "to_unicode\(\'ᡬ\\u1BF3\.ß\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3801\]") 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{1BF3}.ß\x{0A4D}\x{0FBC}", %p)}, "ᡬ\x{1BF3}.ß\x{0A4D}\x{0FBC}", "to_unicode\(\'ᡬ\\u1BF3\.ß\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3802\]") 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{1BF3}.SS\x{0A4D}\x{0FBC}", %p)}, "ᡬ\x{1BF3}.ss\x{0A4D}\x{0FBC}", "to_unicode\(\'ᡬ\\u1BF3\.SS\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3803\]") 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{1BF3}.ss\x{0A4D}\x{0FBC}", %p)}, "ᡬ\x{1BF3}.ss\x{0A4D}\x{0FBC}", "to_unicode\(\'ᡬ\\u1BF3\.ss\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3804\]") 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{1BF3}.Ss\x{0A4D}\x{0FBC}", %p)}, "ᡬ\x{1BF3}.ss\x{0A4D}\x{0FBC}", "to_unicode\(\'ᡬ\\u1BF3\.Ss\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3805\]") 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--88e02p.xn--ss-efg876c", %p)}, "ᡬ\x{1BF3}.ss\x{0A4D}\x{0FBC}", "to_unicode\(\'xn\-\-88e02p\.xn\-\-ss\-efg876c\'\)\ \[data\/IdnaTest\.txt\:3806\]") 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--88e02p.xn--zca249bipe", %p)}, "ᡬ\x{1BF3}.ß\x{0A4D}\x{0FBC}", "to_unicode\(\'xn\-\-88e02p\.xn\-\-zca249bipe\'\)\ \[data\/IdnaTest\.txt\:3807\]") 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{1BF3}.SS\x{0A4D}\x{0FBC}", %p)}, "ᡬ\x{1BF3}.ss\x{0A4D}\x{0FBC}", "to_unicode\(\'ᡬ\\u1BF3.SS\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3808\]") 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{1BF3}.ss\x{0A4D}\x{0FBC}", %p)}, "ᡬ\x{1BF3}.ss\x{0A4D}\x{0FBC}", "to_unicode\(\'ᡬ\\u1BF3.ss\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3809\]") 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{1BF3}.Ss\x{0A4D}\x{0FBC}", %p)}, "ᡬ\x{1BF3}.ss\x{0A4D}\x{0FBC}", "to_unicode\(\'ᡬ\\u1BF3.Ss\\u0A4D\\u0FBC\'\)\ \[data\/IdnaTest\.txt\:3810\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("۴≮\x{200C}。\x{116B2}\x{17B4}", %p)}, undef, "to_unicode\(\'۴\≮\\u200C。\\uD805\\uDEB2\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3811\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۴≮\x{200C}。\x{116B2}\x{17B4}", %p)}, undef, "to_unicode\(\'۴\≮\\u200C。\\uD805\\uDEB2\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3812\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۴<\x{0338}\x{200C}。\x{116B2}\x{17B4}", %p)}, undef, "to_unicode\(\'۴\<\\u0338\\u200C。\\uD805\\uDEB2\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3813\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۴<\x{0338}\x{200C}。\x{116B2}\x{17B4}", %p)}, undef, "to_unicode\(\'۴\<\\u0338\\u200C。\\uD805\\uDEB2\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3814\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۴≮\x{200C}。\x{116B2}\x{17B4}", %p)}, undef, "to_unicode\(\'۴\≮\\u200C\。\\uD805\\uDEB2\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3815\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۴≮\x{200C}。\x{116B2}\x{17B4}", %p)}, undef, "to_unicode\(\'۴\≮\\u200C\。\\uD805\\uDEB2\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3816\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۴<\x{0338}\x{200C}。\x{116B2}\x{17B4}", %p)}, undef, "to_unicode\(\'۴\<\\u0338\\u200C\。\\uD805\\uDEB2\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3817\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۴<\x{0338}\x{200C}。\x{116B2}\x{17B4}", %p)}, undef, "to_unicode\(\'۴\<\\u0338\\u200C\。\\uD805\\uDEB2\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3818\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}≯︒\x{B23D5}.Ⴀ", %p)}, undef, "to_unicode\(\'\\u06C5\≯︒\\uDA88\\uDFD5.Ⴀ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3819\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}>\x{0338}︒\x{B23D5}.Ⴀ", %p)}, undef, "to_unicode\(\'\\u06C5\>\\u0338︒\\uDA88\\uDFD5.Ⴀ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3820\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}≯。\x{B23D5}.Ⴀ", %p)}, undef, "to_unicode\(\'\\u06C5\≯\。\\uDA88\\uDFD5\.Ⴀ\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3821\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}>\x{0338}。\x{B23D5}.Ⴀ", %p)}, undef, "to_unicode\(\'\\u06C5\>\\u0338\。\\uDA88\\uDFD5\.Ⴀ\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3822\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}>\x{0338}。\x{B23D5}.ⴀ", %p)}, undef, "to_unicode\(\'\\u06C5\>\\u0338\。\\uDA88\\uDFD5\.ⴀ\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3823\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}≯。\x{B23D5}.ⴀ", %p)}, undef, "to_unicode\(\'\\u06C5\≯\。\\uDA88\\uDFD5\.ⴀ\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3824\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}>\x{0338}︒\x{B23D5}.ⴀ", %p)}, undef, "to_unicode\(\'\\u06C5\>\\u0338︒\\uDA88\\uDFD5.ⴀ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3825\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C5}≯︒\x{B23D5}.ⴀ", %p)}, undef, "to_unicode\(\'\\u06C5\≯︒\\uDA88\\uDFD5.ⴀ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3826\]") 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{E0121}.-\x{2DF9}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD21.\-\\u2DF9\'\)\ throws\ error\ V3\ \[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_unicode("\x{E0121}.-\x{2DF9}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD21\.\-\\u2DF9\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3828\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ᵬ\x{0DD3}.핒🄃⒈\x{A74BE}", %p)}, undef, "to_unicode\(\'ᵬ\\u0DD3.핒🄃⒈\\uDA5D\\uDCBE\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3829\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᵬ\x{0DD3}.핒🄃⒈\x{A74BE}", %p)}, undef, "to_unicode\(\'ᵬ\\u0DD3.핒🄃⒈\\uDA5D\\uDCBE\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3830\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᵬ\x{0DD3}.핒2,1.\x{A74BE}", %p)}, undef, "to_unicode\(\'ᵬ\\u0DD3\.핒2\,1\.\\uDA5D\\uDCBE\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3831\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᵬ\x{0DD3}.핒2,1.\x{A74BE}", %p)}, undef, "to_unicode\(\'ᵬ\\u0DD3\.핒2\,1\.\\uDA5D\\uDCBE\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3832\]") 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{111C0}₆.\x{10E61}", %p)}, undef, "to_unicode\(\'ς\\uD804\\uDDC0₆.\\uD803\\uDE61\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3833\]") 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{111C0}6.\x{10E61}", %p)}, undef, "to_unicode\(\'ς\\uD804\\uDDC06\.\\uD803\\uDE61\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3834\]") 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{111C0}6.\x{10E61}", %p)}, undef, "to_unicode\(\'Σ\\uD804\\uDDC06\.\\uD803\\uDE61\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3835\]") 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{111C0}6.\x{10E61}", %p)}, undef, "to_unicode\(\'σ\\uD804\\uDDC06\.\\uD803\\uDE61\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3836\]") 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{111C0}₆.\x{10E61}", %p)}, undef, "to_unicode\(\'Σ\\uD804\\uDDC0₆.\\uD803\\uDE61\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3837\]") 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{111C0}₆.\x{10E61}", %p)}, undef, "to_unicode\(\'σ\\uD804\\uDDC0₆.\\uD803\\uDE61\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3838\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{1039}\x{200C}₇\x{200D}.\x{1D169}\x{1E902}\x{0602}", %p)}, undef, "to_unicode\(\'\\u1039\\u200C₇\\u200D\.\\uD834\\uDD69\\uD83A\\uDD02\\u0602\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3839\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1039}\x{200C}₇\x{200D}.\x{1D169}\x{1E902}\x{0602}", %p)}, undef, "to_unicode\(\'\\u1039\\u200C₇\\u200D\.\\uD834\\uDD69\\uD83A\\uDD02\\u0602\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3840\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1039}\x{200C}7\x{200D}.\x{1D169}\x{1E902}\x{0602}", %p)}, undef, "to_unicode\(\'\\u1039\\u200C7\\u200D\.\\uD834\\uDD69\\uD83A\\uDD02\\u0602\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3841\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1039}\x{200C}7\x{200D}.\x{1D169}\x{1E902}\x{0602}", %p)}, undef, "to_unicode\(\'\\u1039\\u200C7\\u200D\.\\uD834\\uDD69\\uD83A\\uDD02\\u0602\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3842\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0CD3}。\x{3C4F0}\x{07CD}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDCD3\。\\uD8B1\\uDCF0\\u07CD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3843\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EF33}𥂚。\x{9FCF1}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDF33𥂚\。\\uDA3F\\uDCF1\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3844\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E6C}\x{0902}\x{0849}。ς\x{BE839}\x{E0CCC}\x{17B5}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C\\u0902\\u0849\。ς\\uDABA\\uDC39\\uDB43\\uDCCC\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3845\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E6C}\x{0902}\x{0849}。Σ\x{BE839}\x{E0CCC}\x{17B5}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C\\u0902\\u0849\。Σ\\uDABA\\uDC39\\uDB43\\uDCCC\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3846\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E6C}\x{0902}\x{0849}。σ\x{BE839}\x{E0CCC}\x{17B5}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6C\\u0902\\u0849\。σ\\uDABA\\uDC39\\uDB43\\uDCCC\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3847\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{1EA1B}\x{0683}\x{193B}。\x{11046}⒕", %p)}, undef, "to_unicode\(\'\-\\uD83A\\uDE1B\\u0683\\u193B\。\\uD804\\uDC46⒕\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3848\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{1EA1B}\x{0683}\x{193B}。\x{11046}14.", %p)}, undef, "to_unicode\(\'\-\\uD83A\\uDE1B\\u0683\\u193B\。\\uD804\\uDC4614\.\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3849\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}🔲。\x{E0757}≮\x{10C84}", %p)}, undef, "to_unicode\(\'\\u200C🔲。\\uDB41\\uDF57\≮\\uD803\\uDC84\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3850\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}🔲。\x{E0757}≮\x{10C84}", %p)}, undef, "to_unicode\(\'\\u200C🔲。\\uDB41\\uDF57\≮\\uD803\\uDC84\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3851\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}🔲。\x{E0757}<\x{0338}\x{10C84}", %p)}, undef, "to_unicode\(\'\\u200C🔲。\\uDB41\\uDF57\<\\u0338\\uD803\\uDC84\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3852\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}🔲。\x{E0757}<\x{0338}\x{10C84}", %p)}, undef, "to_unicode\(\'\\u200C🔲。\\uDB41\\uDF57\<\\u0338\\uD803\\uDC84\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3853\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}🔲。\x{E0757}≮\x{10C84}", %p)}, undef, "to_unicode\(\'\\u200C🔲\。\\uDB41\\uDF57\≮\\uD803\\uDC84\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3854\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}🔲。\x{E0757}≮\x{10C84}", %p)}, undef, "to_unicode\(\'\\u200C🔲\。\\uDB41\\uDF57\≮\\uD803\\uDC84\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3855\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}🔲。\x{E0757}<\x{0338}\x{10C84}", %p)}, undef, "to_unicode\(\'\\u200C🔲\。\\uDB41\\uDF57\<\\u0338\\uD803\\uDC84\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3856\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}🔲。\x{E0757}<\x{0338}\x{10C84}", %p)}, undef, "to_unicode\(\'\\u200C🔲\。\\uDB41\\uDF57\<\\u0338\\uD803\\uDC84\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3857\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈【\x{A2308}.𝟲\x{95459}", %p)}, undef, "to_unicode\(\'⒈\【\\uDA48\\uDF08.𝟲\\uDA15\\uDC59\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3858\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.【\x{A2308}.6\x{95459}", %p)}, undef, "to_unicode\(\'1\.\【\\uDA48\\uDF08\.6\\uDA15\\uDC59\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3859\]") 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{1B71}\x{08A2}\x{FBE5}.\x{0667}\x{2DFB}", %p)}, undef, "to_unicode\(\'\\u1B71\\u08A2\\uFBE5\.\\u0667\\u2DFB\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3860\]") 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{1B71}\x{08A2}\x{06D0}.\x{0667}\x{2DFB}", %p)}, undef, "to_unicode\(\'\\u1B71\\u08A2\\u06D0\.\\u0667\\u2DFB\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3861\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{103A}", %p)}, undef, "to_unicode\(\'ς.\\uA9C0\\u103A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3862\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{103A}", %p)}, undef, "to_unicode\(\'ς\.\\uA9C0\\u103A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3863\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{103A}", %p)}, undef, "to_unicode\(\'Σ\.\\uA9C0\\u103A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3864\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{103A}", %p)}, undef, "to_unicode\(\'σ\.\\uA9C0\\u103A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3865\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{103A}", %p)}, undef, "to_unicode\(\'Σ.\\uA9C0\\u103A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3866\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{103A}", %p)}, undef, "to_unicode\(\'σ.\\uA9C0\\u103A\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3867\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{E013D}\x{200C}≯\x{10EC3}.\x{081B}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD3D\\u200C\≯\\uD803\\uDEC3.\\u081B\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3868\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E013D}\x{200C}≯\x{10EC3}.\x{081B}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD3D\\u200C\≯\\uD803\\uDEC3.\\u081B\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3869\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E013D}\x{200C}>\x{0338}\x{10EC3}.\x{081B}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD3D\\u200C\>\\u0338\\uD803\\uDEC3.\\u081B\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3870\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E013D}\x{200C}>\x{0338}\x{10EC3}.\x{081B}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD3D\\u200C\>\\u0338\\uD803\\uDEC3.\\u081B\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3871\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E013D}\x{200C}≯\x{10EC3}.\x{081B}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD3D\\u200C\≯\\uD803\\uDEC3\.\\u081B\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3872\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E013D}\x{200C}≯\x{10EC3}.\x{081B}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD3D\\u200C\≯\\uD803\\uDEC3\.\\u081B\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3873\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E013D}\x{200C}>\x{0338}\x{10EC3}.\x{081B}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD3D\\u200C\>\\u0338\\uD803\\uDEC3\.\\u081B\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3874\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E013D}\x{200C}>\x{0338}\x{10EC3}.\x{081B}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD3D\\u200C\>\\u0338\\uD803\\uDEC3\.\\u081B\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[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("羚。≯", %p)}, undef, "to_unicode\(\'羚\。\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3878\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羚。>\x{0338}", %p)}, undef, "to_unicode\(\'羚\。\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3879\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A3F}\x{1759}.ꡦ", %p)}, undef, "to_unicode\(\'\\uD802\\uDE3F\\u1759.ꡦ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3880\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A3F}\x{1759}.ꡦ", %p)}, undef, "to_unicode\(\'\\uD802\\uDE3F\\u1759\.ꡦ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3881\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}ҠჀ²", %p)}, undef, "to_unicode\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D。\\uD803\\uDE6DҠჀ²\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3882\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}ҠჀ²", %p)}, undef, "to_unicode\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D。\\uD803\\uDE6DҠჀ²\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3883\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}ҠჀ2", %p)}, undef, "to_unicode\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D\。\\uD803\\uDE6DҠჀ2\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3884\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}ҠჀ2", %p)}, undef, "to_unicode\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D\。\\uD803\\uDE6DҠჀ2\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3885\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}ҡⴠ2", %p)}, undef, "to_unicode\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D\。\\uD803\\uDE6Dҡⴠ2\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3886\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}ҡⴠ2", %p)}, undef, "to_unicode\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D\。\\uD803\\uDE6Dҡⴠ2\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3887\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}Ҡⴠ2", %p)}, undef, "to_unicode\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D\。\\uD803\\uDE6DҠⴠ2\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3888\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}Ҡⴠ2", %p)}, undef, "to_unicode\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D\。\\uD803\\uDE6DҠⴠ2\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3889\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}ҡⴠ²", %p)}, undef, "to_unicode\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D。\\uD803\\uDE6Dҡⴠ²\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3890\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}ҡⴠ²", %p)}, undef, "to_unicode\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D。\\uD803\\uDE6Dҡⴠ²\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3891\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}Ҡⴠ²", %p)}, undef, "to_unicode\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D。\\uD803\\uDE6DҠⴠ²\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3892\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{7ADC9}\x{0FAE}\x{200D}。\x{10E6D}Ҡⴠ²", %p)}, undef, "to_unicode\(\'\\uD9AB\\uDDC9\\u0FAE\\u200D。\\uD803\\uDE6DҠⴠ²\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3893\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E6D}\x{A6F1}", %p)}, undef, "to_unicode\(\'ᠴ\。\\uD803\\uDE6D\\uA6F1\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3894\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}ß", %p)}, undef, "to_unicode\(\'\\uD8D4\\uDD21\\u0B4D。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3895\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}ß", %p)}, undef, "to_unicode\(\'\\uD8D4\\uDD21\\u0B4D\。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3896\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}SS", %p)}, undef, "to_unicode\(\'\\uD8D4\\uDD21\\u0B4D\。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDSS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3897\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}ss", %p)}, undef, "to_unicode\(\'\\uD8D4\\uDD21\\u0B4D\。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3898\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}Ss", %p)}, undef, "to_unicode\(\'\\uD8D4\\uDD21\\u0B4D\。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDSs\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3899\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}SS", %p)}, undef, "to_unicode\(\'\\uD8D4\\uDD21\\u0B4D。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDSS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3900\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}ss", %p)}, undef, "to_unicode\(\'\\uD8D4\\uDD21\\u0B4D。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3901\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{45121}\x{0B4D}。\x{10E7A}\x{C1512}\x{0CCD}Ss", %p)}, undef, "to_unicode\(\'\\uD8D4\\uDD21\\u0B4D。\\uD803\\uDE7A\\uDAC5\\uDD12\\u0CCDSs\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3902\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E72}\x{9D467}\x{036C}.⸖︒≠", %p)}, undef, "to_unicode\(\'\\uD803\\uDE72\\uDA35\\uDC67\\u036C\.\⸖︒\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3903\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E72}\x{9D467}\x{036C}.⸖︒=\x{0338}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE72\\uDA35\\uDC67\\u036C\.\⸖︒\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3904\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E72}\x{9D467}\x{036C}.⸖。≠", %p)}, undef, "to_unicode\(\'\\uD803\\uDE72\\uDA35\\uDC67\\u036C\.\⸖\。\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3905\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E72}\x{9D467}\x{036C}.⸖。=\x{0338}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE72\\uDA35\\uDC67\\u036C\.\⸖\。\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3906\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🏫\x{CEDF8}ỗ⒈.\x{37B57}\x{B8390}⧸⒌", %p)}, undef, "to_unicode\(\'🏫\\uDAFB\\uDDF8ỗ⒈.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸⒌\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3907\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🏫\x{CEDF8}o\x{0302}\x{0303}⒈.\x{37B57}\x{B8390}⧸⒌", %p)}, undef, "to_unicode\(\'🏫\\uDAFB\\uDDF8o\\u0302\\u0303⒈.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸⒌\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3908\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🏫\x{CEDF8}ỗ1..\x{37B57}\x{B8390}⧸5.", %p)}, undef, "to_unicode\(\'🏫\\uDAFB\\uDDF8ỗ1\.\.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸5\.\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3909\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🏫\x{CEDF8}o\x{0302}\x{0303}1..\x{37B57}\x{B8390}⧸5.", %p)}, undef, "to_unicode\(\'🏫\\uDAFB\\uDDF8o\\u0302\\u03031\.\.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸5\.\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3910\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🏫\x{CEDF8}O\x{0302}\x{0303}1..\x{37B57}\x{B8390}⧸5.", %p)}, undef, "to_unicode\(\'🏫\\uDAFB\\uDDF8O\\u0302\\u03031\.\.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸5\.\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3911\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🏫\x{CEDF8}Ỗ1..\x{37B57}\x{B8390}⧸5.", %p)}, undef, "to_unicode\(\'🏫\\uDAFB\\uDDF8Ỗ1\.\.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸5\.\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3912\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🏫\x{CEDF8}O\x{0302}\x{0303}⒈.\x{37B57}\x{B8390}⧸⒌", %p)}, undef, "to_unicode\(\'🏫\\uDAFB\\uDDF8O\\u0302\\u0303⒈.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸⒌\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3913\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🏫\x{CEDF8}Ỗ⒈.\x{37B57}\x{B8390}⧸⒌", %p)}, undef, "to_unicode\(\'🏫\\uDAFB\\uDDF8Ỗ⒈.\\uD89E\\uDF57\\uDAA0\\uDF90\⧸⒌\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3914\]") 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{200D}。ꡏ", %p)}, undef, "to_unicode\(\'\\u200D。ꡏ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3915\]") 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{200D}。ꡏ", %p)}, undef, "to_unicode\(\'\\u200D。ꡏ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3916\]") 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{200D}。ꡏ", %p)}, undef, "to_unicode\(\'\\u200D\。ꡏ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3917\]") 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{200D}。ꡏ", %p)}, undef, "to_unicode\(\'\\u200D\。ꡏ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3918\]") 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--oc9a", %p)}, "ꡏ", "to_unicode\(\'xn\-\-oc9a\'\)\ \[data\/IdnaTest\.txt\:3919\]") 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\:3920\]") 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{E01C5}ꡉ.\x{06FA}", %p)}, "ꡉ.\x{06FA}", "to_unicode\(\'\\uDB40\\uDDC5ꡉ\.\\u06FA\'\)\ \[data\/IdnaTest\.txt\:3921\]") 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--ic9a.xn--nmb", %p)}, "ꡉ.\x{06FA}", "to_unicode\(\'xn\-\-ic9a\.xn\-\-nmb\'\)\ \[data\/IdnaTest\.txt\:3922\]") 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{06FA}", %p)}, "ꡉ.\x{06FA}", "to_unicode\(\'ꡉ\.\\u06FA\'\)\ \[data\/IdnaTest\.txt\:3923\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{1B80}\x{200C}-。\x{7CC35}ß", %p)}, undef, "to_unicode\(\'\\u1B80\\u200C\-\。\\uD9B3\\uDC35ß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3924\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B80}\x{200C}-。\x{7CC35}ß", %p)}, undef, "to_unicode\(\'\\u1B80\\u200C\-\。\\uD9B3\\uDC35ß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3925\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B80}\x{200C}-。\x{7CC35}SS", %p)}, undef, "to_unicode\(\'\\u1B80\\u200C\-\。\\uD9B3\\uDC35SS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3926\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B80}\x{200C}-。\x{7CC35}SS", %p)}, undef, "to_unicode\(\'\\u1B80\\u200C\-\。\\uD9B3\\uDC35SS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3927\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B80}\x{200C}-。\x{7CC35}ss", %p)}, undef, "to_unicode\(\'\\u1B80\\u200C\-\。\\uD9B3\\uDC35ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3928\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B80}\x{200C}-。\x{7CC35}ss", %p)}, undef, "to_unicode\(\'\\u1B80\\u200C\-\。\\uD9B3\\uDC35ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3929\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B80}\x{200C}-。\x{7CC35}Ss", %p)}, undef, "to_unicode\(\'\\u1B80\\u200C\-\。\\uD9B3\\uDC35Ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3930\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B80}\x{200C}-。\x{7CC35}Ss", %p)}, undef, "to_unicode\(\'\\u1B80\\u200C\-\。\\uD9B3\\uDC35Ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3931\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ς⩕𝟶.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_unicode\(\'\\u200Cς\⩕𝟶\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3932\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ς⩕𝟶.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_unicode\(\'\\u200Cς\⩕𝟶\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3933\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ς⩕0.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_unicode\(\'\\u200Cς\⩕0\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3934\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ς⩕0.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_unicode\(\'\\u200Cς\⩕0\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3935\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Σ⩕0.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_unicode\(\'\\u200CΣ\⩕0\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3936\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Σ⩕0.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_unicode\(\'\\u200CΣ\⩕0\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3937\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}σ⩕0.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_unicode\(\'\\u200Cσ\⩕0\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3938\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}σ⩕0.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_unicode\(\'\\u200Cσ\⩕0\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3939\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Σ⩕𝟶.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_unicode\(\'\\u200CΣ\⩕𝟶\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3940\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Σ⩕𝟶.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_unicode\(\'\\u200CΣ\⩕𝟶\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3941\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}σ⩕𝟶.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_unicode\(\'\\u200Cσ\⩕𝟶\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3942\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}σ⩕𝟶.\x{06E2}\x{A767E}\x{0729}", %p)}, undef, "to_unicode\(\'\\u200Cσ\⩕𝟶\.\\u06E2\\uDA5D\\uDE7E\\u0729\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3943\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-.\x{1E888}", %p)}, undef, "to_unicode\(\'\-\.\\uD83A\\uDC88\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3944\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{5B1FD}\x{0773}.\x{302D}\x{07D3}", %p)}, undef, "to_unicode\(\'\\uD92C\\uDDFD\\u0773\.\\u302D\\u07D3\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:3945\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FE6}ꡲ\x{182D3}.ᠤ", %p)}, undef, "to_unicode\(\'\\u0FE6ꡲ\\uD820\\uDED3\.ᠤ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3946\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۷\x{89430}\x{077B}ß。\x{0766}", %p)}, undef, "to_unicode\(\'۷\\uD9E5\\uDC30\\u077Bß\。\\u0766\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3947\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۷\x{89430}\x{077B}SS。\x{0766}", %p)}, undef, "to_unicode\(\'۷\\uD9E5\\uDC30\\u077BSS\。\\u0766\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3948\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۷\x{89430}\x{077B}ss。\x{0766}", %p)}, undef, "to_unicode\(\'۷\\uD9E5\\uDC30\\u077Bss\。\\u0766\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3949\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۷\x{89430}\x{077B}Ss。\x{0766}", %p)}, undef, "to_unicode\(\'۷\\uD9E5\\uDC30\\u077BSs\。\\u0766\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3950\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ≮.\x{08A4}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\≮.\\u08A4ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3951\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ≮.\x{08A4}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\≮.\\u08A4ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3952\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ<\x{0338}.\x{08A4}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\<\\u0338.\\u08A4ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3953\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ<\x{0338}.\x{08A4}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\<\\u0338.\\u08A4ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3954\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ≮.\x{08A4}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\≮\.\\u08A4ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3955\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ≮.\x{08A4}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\≮\.\\u08A4ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3956\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ<\x{0338}.\x{08A4}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\<\\u0338\.\\u08A4ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3957\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ<\x{0338}.\x{08A4}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\<\\u0338\.\\u08A4ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3958\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ<\x{0338}.\x{08A4}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\<\\u0338\.\\u08A4SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3959\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ<\x{0338}.\x{08A4}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\<\\u0338\.\\u08A4SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3960\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ≮.\x{08A4}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\≮\.\\u08A4SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3961\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ≮.\x{08A4}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\≮\.\\u08A4SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3962\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ≮.\x{08A4}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\≮\.\\u08A4ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3963\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ≮.\x{08A4}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\≮\.\\u08A4ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3964\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ<\x{0338}.\x{08A4}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\<\\u0338\.\\u08A4ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3965\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ<\x{0338}.\x{08A4}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\<\\u0338\.\\u08A4ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3966\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ<\x{0338}.\x{08A4}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\<\\u0338\.\\u08A4Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3967\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ<\x{0338}.\x{08A4}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\<\\u0338\.\\u08A4Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3968\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ≮.\x{08A4}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\≮\.\\u08A4Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3969\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ≮.\x{08A4}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\≮\.\\u08A4Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3970\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ<\x{0338}.\x{08A4}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\<\\u0338.\\u08A4SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3971\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ<\x{0338}.\x{08A4}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\<\\u0338.\\u08A4SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3972\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ≮.\x{08A4}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\≮.\\u08A4SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3973\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ≮.\x{08A4}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\≮.\\u08A4SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3974\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ≮.\x{08A4}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\≮.\\u08A4ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3975\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ≮.\x{08A4}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\≮.\\u08A4ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3976\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ<\x{0338}.\x{08A4}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\<\\u0338.\\u08A4ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3977\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ<\x{0338}.\x{08A4}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\<\\u0338.\\u08A4ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3978\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ<\x{0338}.\x{08A4}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\<\\u0338.\\u08A4Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3979\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ<\x{0338}.\x{08A4}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\<\\u0338.\\u08A4Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3980\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ≮.\x{08A4}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\≮.\\u08A4Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3981\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳ꡡ≮.\x{08A4}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳ꡡ\≮.\\u08A4Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3982\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{BB86C}\x{E017C}\x{1B00}.\x{AA31}-︒", %p)}, undef, "to_unicode\(\'\-\\uDAAE\\uDC6C\\uDB40\\uDD7C\\u1B00\.\\uAA31\-︒\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:3983\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{BB86C}\x{E017C}\x{1B00}.\x{AA31}-。", %p)}, undef, "to_unicode\(\'\-\\uDAAE\\uDC6C\\uDB40\\uDD7C\\u1B00\.\\uAA31\-\。\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:3984\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒.\x{6FFEB}\x{1CE5}", %p)}, undef, "to_unicode\(\'︒\.\\uD97F\\uDFEB\\u1CE5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3985\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。.\x{6FFEB}\x{1CE5}", %p)}, undef, "to_unicode\(\'\。\.\\uD97F\\uDFEB\\u1CE5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3986\]") 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{2DF5}\x{08F7}。\x{200C}⓾\x{200C}\x{075C}", %p)}, undef, "to_unicode\(\'\\u2DF5\\u08F7\。\\u200C⓾\\u200C\\u075C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3987\]") 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{2DF5}\x{08F7}。\x{200C}⓾\x{200C}\x{075C}", %p)}, undef, "to_unicode\(\'\\u2DF5\\u08F7\。\\u200C⓾\\u200C\\u075C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3988\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{06FD}ꡙ\x{0666}。\x{074A}ᡍ\x{0823}", %p)}, undef, "to_unicode\(\'\\u06FDꡙ\\u0666。\\u074Aᡍ\\u0823\'\)\ throws\ error\ V5\ B2\ \[data\/IdnaTest\.txt\:3989\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{06FD}ꡙ\x{0666}。\x{074A}ᡍ\x{0823}", %p)}, undef, "to_unicode\(\'\\u06FDꡙ\\u0666\。\\u074Aᡍ\\u0823\'\)\ throws\ error\ V5\ B2\ \[data\/IdnaTest\.txt\:3990\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{A949}.-\x{49FF5}", %p)}, undef, "to_unicode\(\'\\uA949\.\-\\uD8E7\\uDFF5\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:3991\]") 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{1B72}.赏", %p)}, undef, "to_unicode\(\'\\u1B72.赏\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3992\]") 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{1B72}.赏", %p)}, undef, "to_unicode\(\'\\u1B72\.赏\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3993\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0686}\x{0680}。Ⴁ", %p)}, undef, "to_unicode\(\'\\u0686\\u0680。Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3994\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0686}\x{0680}。Ⴁ", %p)}, undef, "to_unicode\(\'\\u0686\\u0680\。Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3995\]") 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{0686}\x{0680}。ⴁ", %p)}, "\x{0686}\x{0680}.ⴁ", "to_unicode\(\'\\u0686\\u0680\。ⴁ\'\)\ \[data\/IdnaTest\.txt\:3996\]") 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--5ibl.xn--skj", %p)}, "\x{0686}\x{0680}.ⴁ", "to_unicode\(\'xn\-\-5ibl\.xn\-\-skj\'\)\ \[data\/IdnaTest\.txt\:3997\]") 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{0686}\x{0680}.ⴁ", %p)}, "\x{0686}\x{0680}.ⴁ", "to_unicode\(\'\\u0686\\u0680\.ⴁ\'\)\ \[data\/IdnaTest\.txt\:3998\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0686}\x{0680}.Ⴁ", %p)}, undef, "to_unicode\(\'\\u0686\\u0680\.Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3999\]") 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{0686}\x{0680}。ⴁ", %p)}, "\x{0686}\x{0680}.ⴁ", "to_unicode\(\'\\u0686\\u0680。ⴁ\'\)\ \[data\/IdnaTest\.txt\:4000\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{FE26}Ⴊ\x{07D4}ς。-", %p)}, undef, "to_unicode\(\'\\uFE26Ⴊ\\u07D4ς。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4001\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE26}Ⴊ\x{07D4}ς。-", %p)}, undef, "to_unicode\(\'\\uFE26Ⴊ\\u07D4ς\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4002\]") 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{FE26}ⴊ\x{07D4}ς。-", %p)}, undef, "to_unicode\(\'\\uFE26ⴊ\\u07D4ς\。\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4003\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{FE26}Ⴊ\x{07D4}Σ。-", %p)}, undef, "to_unicode\(\'\\uFE26Ⴊ\\u07D4Σ\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4004\]") 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{FE26}ⴊ\x{07D4}σ。-", %p)}, undef, "to_unicode\(\'\\uFE26ⴊ\\u07D4σ\。\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4005\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{FE26}Ⴊ\x{07D4}σ。-", %p)}, undef, "to_unicode\(\'\\uFE26Ⴊ\\u07D4σ\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4006\]") 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{FE26}ⴊ\x{07D4}ς。-", %p)}, undef, "to_unicode\(\'\\uFE26ⴊ\\u07D4ς。\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4007\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{FE26}Ⴊ\x{07D4}Σ。-", %p)}, undef, "to_unicode\(\'\\uFE26Ⴊ\\u07D4Σ。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4008\]") 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{FE26}ⴊ\x{07D4}σ。-", %p)}, undef, "to_unicode\(\'\\uFE26ⴊ\\u07D4σ。\-\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4009\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{FE26}Ⴊ\x{07D4}σ。-", %p)}, undef, "to_unicode\(\'\\uFE26Ⴊ\\u07D4σ。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4010\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴍ.\x{645EA}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴍ.\\uD951\\uDDEA\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4011\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴍ.\x{645EA}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴍ.\\uD951\\uDDEA\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4012\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴍ.\x{645EA}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴍ\.\\uD951\\uDDEA\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4013\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴍ.\x{645EA}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴍ\.\\uD951\\uDDEA\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4014\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴍ.\x{645EA}\x{200C}", %p)}, undef, "to_unicode\(\'ⴍ\.\\uD951\\uDDEA\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4015\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴍ.\x{645EA}\x{200C}", %p)}, undef, "to_unicode\(\'ⴍ\.\\uD951\\uDDEA\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4016\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴍ.\x{645EA}\x{200C}", %p)}, undef, "to_unicode\(\'ⴍ.\\uD951\\uDDEA\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4017\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴍ.\x{645EA}\x{200C}", %p)}, undef, "to_unicode\(\'ⴍ.\\uD951\\uDDEA\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4018\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{32D72}⏎.ᠧ\x{17D2}\x{E2C9C}\x{0CCD}", %p)}, undef, "to_unicode\(\'\\uD88B\\uDD72\⏎\.ᠧ\\u17D2\\uDB4B\\uDC9C\\u0CCD\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4019\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯˒ꡟ。\x{10E7A}\x{E0B08}", %p)}, undef, "to_unicode\(\'\≯˒ꡟ。\\uD803\\uDE7A\\uDB42\\uDF08\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4020\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}˒ꡟ。\x{10E7A}\x{E0B08}", %p)}, undef, "to_unicode\(\'\>\\u0338˒ꡟ。\\uD803\\uDE7A\\uDB42\\uDF08\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4021\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯˒ꡟ。\x{10E7A}\x{E0B08}", %p)}, undef, "to_unicode\(\'\≯˒ꡟ\。\\uD803\\uDE7A\\uDB42\\uDF08\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4022\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}˒ꡟ。\x{10E7A}\x{E0B08}", %p)}, undef, "to_unicode\(\'\>\\u0338˒ꡟ\。\\uD803\\uDE7A\\uDB42\\uDF08\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4023\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{F991E}\x{10E7E}\x{0764}\x{10E77}。Ⴈ\x{0631}Ⴏ", %p)}, undef, "to_unicode\(\'\\uDBA6\\uDD1E\\uD803\\uDE7E\\u0764\\uD803\\uDE77\。Ⴈ\\u0631Ⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4024\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{F991E}\x{10E7E}\x{0764}\x{10E77}。ⴈ\x{0631}ⴏ", %p)}, undef, "to_unicode\(\'\\uDBA6\\uDD1E\\uD803\\uDE7E\\u0764\\uD803\\uDE77\。ⴈ\\u0631ⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4025\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{F991E}\x{10E7E}\x{0764}\x{10E77}。Ⴈ\x{0631}ⴏ", %p)}, undef, "to_unicode\(\'\\uDBA6\\uDD1E\\uD803\\uDE7E\\u0764\\uD803\\uDE77\。Ⴈ\\u0631ⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4026\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EB92}。\x{E007D}", %p)}, undef, "to_unicode\(\'\\uD83A\\uDF92\。\\uDB40\\uDC7D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4027\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("³\x{0600}.\x{E01B1}⬙7ᡦ", %p)}, undef, "to_unicode\(\'³\\u0600.\\uDB40\\uDDB1\⬙7ᡦ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4028\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3\x{0600}.\x{E01B1}⬙7ᡦ", %p)}, undef, "to_unicode\(\'3\\u0600\.\\uDB40\\uDDB1\⬙7ᡦ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4029\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{069F}\x{10E7E}\x{08C7}.\x{033E}", %p)}, undef, "to_unicode\(\'\\u069F\\uD803\\uDE7E\\u08C7.\\u033E\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4030\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{069F}\x{10E7E}\x{08C7}.\x{033E}", %p)}, undef, "to_unicode\(\'\\u069F\\uD803\\uDE7E\\u08C7\.\\u033E\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4031\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0088}\x{95A50}\x{0646}.\x{06BA}\x{200D}\x{10CE6}", %p)}, undef, "to_unicode\(\'\\u0088\\uDA16\\uDE50\\u0646.\\u06BA\\u200D\\uD803\\uDCE6\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4032\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0088}\x{95A50}\x{0646}.\x{06BA}\x{200D}\x{10CE6}", %p)}, undef, "to_unicode\(\'\\u0088\\uDA16\\uDE50\\u0646.\\u06BA\\u200D\\uD803\\uDCE6\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4033\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0088}\x{95A50}\x{0646}.\x{06BA}\x{200D}\x{10CE6}", %p)}, undef, "to_unicode\(\'\\u0088\\uDA16\\uDE50\\u0646\.\\u06BA\\u200D\\uD803\\uDCE6\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4034\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0088}\x{95A50}\x{0646}.\x{06BA}\x{200D}\x{10CE6}", %p)}, undef, "to_unicode\(\'\\u0088\\uDA16\\uDE50\\u0646\.\\u06BA\\u200D\\uD803\\uDCE6\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4035\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡊ\x{C73E1}\x{10F89}-.≠\x{C8E8F}\x{ABED}", %p)}, undef, "to_unicode\(\'ꡊ\\uDADC\\uDFE1\\uD803\\uDF89\-.\≠\\uDAE3\\uDE8F\\uABED\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4036\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡊ\x{C73E1}\x{10F89}-.=\x{0338}\x{C8E8F}\x{ABED}", %p)}, undef, "to_unicode\(\'ꡊ\\uDADC\\uDFE1\\uD803\\uDF89\-.\=\\u0338\\uDAE3\\uDE8F\\uABED\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4037\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡊ\x{C73E1}\x{10F89}-.≠\x{C8E8F}\x{ABED}", %p)}, undef, "to_unicode\(\'ꡊ\\uDADC\\uDFE1\\uD803\\uDF89\-\.\≠\\uDAE3\\uDE8F\\uABED\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4038\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡊ\x{C73E1}\x{10F89}-.=\x{0338}\x{C8E8F}\x{ABED}", %p)}, undef, "to_unicode\(\'ꡊ\\uDADC\\uDFE1\\uD803\\uDF89\-\.\=\\u0338\\uDAE3\\uDE8F\\uABED\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4039\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("₅.\x{71C0B}", %p)}, undef, "to_unicode\(\'₅.\\uD987\\uDC0B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4040\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("5.\x{71C0B}", %p)}, undef, "to_unicode\(\'5\.\\uD987\\uDC0B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4041\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200D}.Ⴞ1", %p)}, undef, "to_unicode\(\'\-\\u200D\.Ⴞ1\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:4042\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200D}.Ⴞ1", %p)}, undef, "to_unicode\(\'\-\\u200D\.Ⴞ1\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:4043\]") 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}.ⴞ1", %p)}, undef, "to_unicode\(\'\-\\u200D\.ⴞ1\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:4044\]") 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}.ⴞ1", %p)}, undef, "to_unicode\(\'\-\\u200D\.ⴞ1\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:4045\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200Dςß\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4046\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200Dςß\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4047\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200Dςß\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4048\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200Dςß\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4049\]") 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}ΣSS\x{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200DΣSS\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4050\]") 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}ΣSS\x{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200DΣSS\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4051\]") 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}σss\x{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200Dσss\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4052\]") 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}σss\x{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200Dσss\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4053\]") 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}Σss\x{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200DΣss\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4054\]") 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}Σss\x{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200DΣss\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4055\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200DΣß\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4056\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200DΣß\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4057\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200Dσß\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4058\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200Dσß\\uD804\\uDD80\.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4059\]") 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}ΣSS\x{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200DΣSS\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4060\]") 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}ΣSS\x{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200DΣSS\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4061\]") 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}σss\x{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200Dσss\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4062\]") 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}σss\x{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200Dσss\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4063\]") 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}Σss\x{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200DΣss\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4064\]") 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}Σss\x{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200DΣss\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4065\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200DΣß\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4066\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200DΣß\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4067\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200Dσß\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4068\]") 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{11180}.\x{2D7F}", %p)}, undef, "to_unicode\(\'\\u200Dσß\\uD804\\uDD80.\\u2D7F\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4069\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("≠.\x{200D}", %p)}, undef, "to_unicode\(\'\≠.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4070\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠.\x{200D}", %p)}, undef, "to_unicode\(\'\≠.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4071\]") 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\:4072\]") 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\:4073\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠.\x{200D}", %p)}, undef, "to_unicode\(\'\≠\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4074\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠.\x{200D}", %p)}, undef, "to_unicode\(\'\≠\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4075\]") 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\:4076\]") 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\:4077\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EF53}。\x{0612}\x{06D1}⸩\x{A53B4}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDF53。\\u0612\\u06D1\⸩\\uDA54\\uDFB4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4078\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EF53}。\x{0612}\x{06D1}⸩\x{A53B4}", %p)}, undef, "to_unicode\(\'\\uD83B\\uDF53\。\\u0612\\u06D1\⸩\\uDA54\\uDFB4\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4079\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{46840}\x{0C4D}ς.ς\x{A9C0}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDC40\\u0C4Dς.ς\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4080\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{46840}\x{0C4D}ς.ς\x{A9C0}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDC40\\u0C4Dς\.ς\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4081\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{46840}\x{0C4D}Σ.Σ\x{A9C0}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDC40\\u0C4DΣ\.Σ\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4082\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{46840}\x{0C4D}σ.ς\x{A9C0}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDC40\\u0C4Dσ\.ς\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4083\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{46840}\x{0C4D}σ.σ\x{A9C0}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDC40\\u0C4Dσ\.σ\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4084\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{46840}\x{0C4D}Σ.σ\x{A9C0}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDC40\\u0C4DΣ\.σ\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4085\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{46840}\x{0C4D}Σ.ς\x{A9C0}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDC40\\u0C4DΣ\.ς\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4086\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{46840}\x{0C4D}Σ.Σ\x{A9C0}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDC40\\u0C4DΣ.Σ\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4087\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{46840}\x{0C4D}σ.ς\x{A9C0}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDC40\\u0C4Dσ.ς\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4088\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{46840}\x{0C4D}σ.σ\x{A9C0}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDC40\\u0C4Dσ.σ\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4089\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{46840}\x{0C4D}Σ.σ\x{A9C0}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDC40\\u0C4DΣ.σ\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4090\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{46840}\x{0C4D}Σ.ς\x{A9C0}", %p)}, undef, "to_unicode\(\'\\uD8DA\\uDC40\\u0C4DΣ.ς\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4091\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062A}ᢋ牅\x{0F79}。\x{10A8E}\x{1D18B}\x{760C0}Ⴙ", %p)}, undef, "to_unicode\(\'\\u062Aᢋ牅\\u0F79。\\uD802\\uDE8E\\uD834\\uDD8B\\uD998\\uDCC0Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4092\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062A}ᢋ牅\x{0FB3}\x{0F71}\x{0F80}。\x{10A8E}\x{1D18B}\x{760C0}Ⴙ", %p)}, undef, "to_unicode\(\'\\u062Aᢋ牅\\u0FB3\\u0F71\\u0F80\。\\uD802\\uDE8E\\uD834\\uDD8B\\uD998\\uDCC0Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4093\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062A}ᢋ牅\x{0FB3}\x{0F71}\x{0F80}。\x{10A8E}\x{1D18B}\x{760C0}ⴙ", %p)}, undef, "to_unicode\(\'\\u062Aᢋ牅\\u0FB3\\u0F71\\u0F80\。\\uD802\\uDE8E\\uD834\\uDD8B\\uD998\\uDCC0ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4094\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062A}ᢋ牅\x{0F79}。\x{10A8E}\x{1D18B}\x{760C0}ⴙ", %p)}, undef, "to_unicode\(\'\\u062Aᢋ牅\\u0F79。\\uD802\\uDE8E\\uD834\\uDD8B\\uD998\\uDCC0ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4095\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{6DCA6}。륧", %p)}, undef, "to_unicode\(\'\\uD977\\uDCA6。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4096\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{6DCA6}。륧", %p)}, undef, "to_unicode\(\'\\uD977\\uDCA6。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4097\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{6DCA6}。륧", %p)}, undef, "to_unicode\(\'\\uD977\\uDCA6\。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4098\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{6DCA6}。륧", %p)}, undef, "to_unicode\(\'\\uD977\\uDCA6\。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4099\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0602}\x{200D}。\x{7D7EE}", %p)}, undef, "to_unicode\(\'\\u0602\\u200D\。\\uD9B5\\uDFEE\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4100\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0602}\x{200D}。\x{7D7EE}", %p)}, undef, "to_unicode\(\'\\u0602\\u200D\。\\uD9B5\\uDFEE\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4101\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴘᡓ\x{1DFC}。-", %p)}, undef, "to_unicode\(\'Ⴘᡓ\\u1DFC。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4102\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴘᡓ\x{1DFC}。-", %p)}, undef, "to_unicode\(\'Ⴘᡓ\\u1DFC\。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4103\]") 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{1DFC}。-", %p)}, undef, "to_unicode\(\'ⴘᡓ\\u1DFC\。\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4104\]") 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{1DFC}。-", %p)}, undef, "to_unicode\(\'ⴘᡓ\\u1DFC。\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4105\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{1BF3}\x{0675}🄆ꡁ。\x{E0C8A}\x{06B0}", %p)}, undef, "to_unicode\(\'\\u1BF3\\u0675🄆ꡁ\。\\uDB43\\uDC8A\\u06B0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:4106\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1BF3}\x{0627}\x{0674}5,ꡁ。\x{E0C8A}\x{06B0}", %p)}, undef, "to_unicode\(\'\\u1BF3\\u0627\\u06745\,ꡁ\。\\uDB43\\uDC8A\\u06B0\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:4107\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{6F43F}.꘏\x{07E5}\x{06AE}\x{072D}", %p)}, undef, "to_unicode\(\'\\uD97D\\uDC3F\.꘏\\u07E5\\u06AE\\u072D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4108\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0647}\x{D929}。-ᢣ", %p)}, undef, "to_unicode\(\'\\u0647\\uD929\。\-ᢣ\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4109\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{06C7}⾑.\x{200C}\x{06B3}\x{200C}⒈", %p)}, undef, "to_unicode\(\'ς\\u06C7⾑.\\u200C\\u06B3\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4110\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{06C7}⾑.\x{200C}\x{06B3}\x{200C}⒈", %p)}, undef, "to_unicode\(\'ς\\u06C7⾑.\\u200C\\u06B3\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4111\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{06C7}襾.\x{200C}\x{06B3}\x{200C}1.", %p)}, undef, "to_unicode\(\'ς\\u06C7襾\.\\u200C\\u06B3\\u200C1\.\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4112\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{06C7}襾.\x{200C}\x{06B3}\x{200C}1.", %p)}, undef, "to_unicode\(\'ς\\u06C7襾\.\\u200C\\u06B3\\u200C1\.\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4113\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{06C7}襾.\x{200C}\x{06B3}\x{200C}1.", %p)}, undef, "to_unicode\(\'Σ\\u06C7襾\.\\u200C\\u06B3\\u200C1\.\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4114\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{06C7}襾.\x{200C}\x{06B3}\x{200C}1.", %p)}, undef, "to_unicode\(\'Σ\\u06C7襾\.\\u200C\\u06B3\\u200C1\.\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4115\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{06C7}襾.\x{200C}\x{06B3}\x{200C}1.", %p)}, undef, "to_unicode\(\'σ\\u06C7襾\.\\u200C\\u06B3\\u200C1\.\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4116\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{06C7}襾.\x{200C}\x{06B3}\x{200C}1.", %p)}, undef, "to_unicode\(\'σ\\u06C7襾\.\\u200C\\u06B3\\u200C1\.\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4117\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{06C7}⾑.\x{200C}\x{06B3}\x{200C}⒈", %p)}, undef, "to_unicode\(\'Σ\\u06C7⾑.\\u200C\\u06B3\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4118\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{06C7}⾑.\x{200C}\x{06B3}\x{200C}⒈", %p)}, undef, "to_unicode\(\'Σ\\u06C7⾑.\\u200C\\u06B3\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4119\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{06C7}⾑.\x{200C}\x{06B3}\x{200C}⒈", %p)}, undef, "to_unicode\(\'σ\\u06C7⾑.\\u200C\\u06B3\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4120\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{06C7}⾑.\x{200C}\x{06B3}\x{200C}⒈", %p)}, undef, "to_unicode\(\'σ\\u06C7⾑.\\u200C\\u06B3\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4121\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0772}\x{41714}.\x{08BD}", %p)}, undef, "to_unicode\(\'\\u0772\\uD8C5\\uDF14.\\u08BD\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4122\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0772}\x{41714}.\x{08BD}", %p)}, undef, "to_unicode\(\'\\u0772\\uD8C5\\uDF14\.\\u08BD\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4123\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A8C4}\x{F668D}\x{0F19}。\x{200C}ᡲ\x{9C361}", %p)}, undef, "to_unicode\(\'\\uA8C4\\uDB99\\uDE8D\\u0F19。\\u200Cᡲ\\uDA30\\uDF61\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4124\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A8C4}\x{F668D}\x{0F19}。\x{200C}ᡲ\x{9C361}", %p)}, undef, "to_unicode\(\'\\uA8C4\\uDB99\\uDE8D\\u0F19。\\u200Cᡲ\\uDA30\\uDF61\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4125\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A8C4}\x{F668D}\x{0F19}。\x{200C}ᡲ\x{9C361}", %p)}, undef, "to_unicode\(\'\\uA8C4\\uDB99\\uDE8D\\u0F19\。\\u200Cᡲ\\uDA30\\uDF61\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4126\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A8C4}\x{F668D}\x{0F19}。\x{200C}ᡲ\x{9C361}", %p)}, undef, "to_unicode\(\'\\uA8C4\\uDB99\\uDE8D\\u0F19\。\\u200Cᡲ\\uDA30\\uDF61\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4127\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡵ\x{0F9D}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_unicode\(\'ᡵ\\u0F9D\\uD817\\uDC9F\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4128\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡵ\x{0F9D}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_unicode\(\'ᡵ\\u0F9D\\uD817\\uDC9F\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4129\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡵ\x{0F9C}\x{0FB7}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_unicode\(\'ᡵ\\u0F9C\\u0FB7\\uD817\\uDC9F\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4130\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡵ\x{0F9C}\x{0FB7}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_unicode\(\'ᡵ\\u0F9C\\u0FB7\\uD817\\uDC9F\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4131\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡵ\x{0F9C}\x{0FB7}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_unicode\(\'ᡵ\\u0F9C\\u0FB7\\uD817\\uDC9F\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4132\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡵ\x{0F9C}\x{0FB7}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_unicode\(\'ᡵ\\u0F9C\\u0FB7\\uD817\\uDC9F\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4133\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡵ\x{0F9C}\x{0FB7}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_unicode\(\'ᡵ\\u0F9C\\u0FB7\\uD817\\uDC9F\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4134\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡵ\x{0F9C}\x{0FB7}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_unicode\(\'ᡵ\\u0F9C\\u0FB7\\uD817\\uDC9F\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4135\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡵ\x{0F9C}\x{0FB7}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_unicode\(\'ᡵ\\u0F9C\\u0FB7\\uD817\\uDC9F\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4136\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡵ\x{0F9C}\x{0FB7}\x{15C9F}-.\x{200C}먿", %p)}, undef, "to_unicode\(\'ᡵ\\u0F9C\\u0FB7\\uD817\\uDC9F\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4137\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E41E6}。\x{0751}", %p)}, undef, "to_unicode\(\'\\uDB50\\uDDE6。\\u0751\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4138\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E41E6}。\x{0751}", %p)}, undef, "to_unicode\(\'\\uDB50\\uDDE6\。\\u0751\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4139\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("嬃\x{E0BE9}.\x{200D}\x{10A0E}", %p)}, undef, "to_unicode\(\'嬃\\uDB42\\uDFE9.\\u200D\\uD802\\uDE0E\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4140\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("嬃\x{E0BE9}.\x{200D}\x{10A0E}", %p)}, undef, "to_unicode\(\'嬃\\uDB42\\uDFE9.\\u200D\\uD802\\uDE0E\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4141\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("嬃\x{E0BE9}.\x{200D}\x{10A0E}", %p)}, undef, "to_unicode\(\'嬃\\uDB42\\uDFE9\.\\u200D\\uD802\\uDE0E\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4142\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("嬃\x{E0BE9}.\x{200D}\x{10A0E}", %p)}, undef, "to_unicode\(\'嬃\\uDB42\\uDFE9\.\\u200D\\uD802\\uDE0E\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4143\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0660}🎨≯.\x{7F5C6}\x{92698}", %p)}, undef, "to_unicode\(\'\\u0660🎨\≯.\\uD9BD\\uDDC6\\uDA09\\uDE98\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4144\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0660}🎨>\x{0338}.\x{7F5C6}\x{92698}", %p)}, undef, "to_unicode\(\'\\u0660🎨\>\\u0338.\\uD9BD\\uDDC6\\uDA09\\uDE98\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4145\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0660}🎨≯.\x{7F5C6}\x{92698}", %p)}, undef, "to_unicode\(\'\\u0660🎨\≯\.\\uD9BD\\uDDC6\\uDA09\\uDE98\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4146\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0660}🎨>\x{0338}.\x{7F5C6}\x{92698}", %p)}, undef, "to_unicode\(\'\\u0660🎨\>\\u0338\.\\uD9BD\\uDDC6\\uDA09\\uDE98\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4147\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{B173E}ᡚ\x{1DD3}\x{0D4D}.\x{FEB3}", %p)}, undef, "to_unicode\(\'\\uDA85\\uDF3Eᡚ\\u1DD3\\u0D4D\.\\uFEB3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4148\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{B173E}ᡚ\x{0D4D}\x{1DD3}.\x{FEB3}", %p)}, undef, "to_unicode\(\'\\uDA85\\uDF3Eᡚ\\u0D4D\\u1DD3\.\\uFEB3\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4149\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{B173E}ᡚ\x{0D4D}\x{1DD3}.\x{0633}", %p)}, undef, "to_unicode\(\'\\uDA85\\uDF3Eᡚ\\u0D4D\\u1DD3\.\\u0633\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4150\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.\x{844D8}", %p)}, undef, "to_unicode\(\'\\u200C\.\\uD9D1\\uDCD8\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4151\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.\x{844D8}", %p)}, undef, "to_unicode\(\'\\u200C\.\\uD9D1\\uDCD8\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4152\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𖡘Ⴃ䠅.\x{108F2}", %p)}, undef, "to_unicode\(\'𖡘Ⴃ䠅.\\uD802\\uDCF2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4153\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𖡘Ⴃ䠅.\x{108F2}", %p)}, undef, "to_unicode\(\'𖡘Ⴃ䠅\.\\uD802\\uDCF2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4154\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𖡘ⴃ䠅.\x{108F2}", %p)}, undef, "to_unicode\(\'𖡘ⴃ䠅\.\\uD802\\uDCF2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4155\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𖡘ⴃ䠅.\x{108F2}", %p)}, undef, "to_unicode\(\'𖡘ⴃ䠅.\\uD802\\uDCF2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4156\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A39}\x{0661}\x{10E7A}\x{062C}。⒑Ⴅ", %p)}, undef, "to_unicode\(\'\\uD802\\uDE39\\u0661\\uD803\\uDE7A\\u062C。⒑Ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4157\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A39}\x{0661}\x{10E7A}\x{062C}。10.Ⴅ", %p)}, undef, "to_unicode\(\'\\uD802\\uDE39\\u0661\\uD803\\uDE7A\\u062C\。10\.Ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4158\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10A39}\x{0661}\x{10E7A}\x{062C}。10.ⴅ", %p)}, undef, "to_unicode\(\'\\uD802\\uDE39\\u0661\\uD803\\uDE7A\\u062C\。10\.ⴅ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4159\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{10A39}\x{0661}\x{10E7A}\x{062C}。⒑ⴅ", %p)}, undef, "to_unicode\(\'\\uD802\\uDE39\\u0661\\uD803\\uDE7A\\u062C。⒑ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4160\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。︒", %p)}, undef, "to_unicode\(\'\-。︒\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4161\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。。", %p)}, undef, "to_unicode\(\'\-\。\。\'\)\ throws\ error\ V3\ A4_2\ \[data\/IdnaTest\.txt\:4162\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06EE}Ⴠ。-۴--", %p)}, undef, "to_unicode\(\'\\u06EEჀ。\-۴\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4163\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06EE}Ⴠ。-۴--", %p)}, undef, "to_unicode\(\'\\u06EEჀ\。\-۴\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4164\]") 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{06EE}ⴠ。-۴--", %p)}, undef, "to_unicode\(\'\\u06EEⴠ\。\-۴\-\-\'\)\ throws\ error\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4165\]") 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{06EE}ⴠ。-۴--", %p)}, undef, "to_unicode\(\'\\u06EEⴠ。\-۴\-\-\'\)\ throws\ error\ V2\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4166\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("≯\x{D8DD}𐅸。\x{10E70}\x{0665}≯\x{10A37}", %p)}, undef, "to_unicode\(\'\≯\\uD8DD𐅸。\\uD803\\uDE70\\u0665\≯\\uD802\\uDE37\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4167\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{D8DD}𐅸。\x{10E70}\x{0665}>\x{0338}\x{10A37}", %p)}, undef, "to_unicode\(\'\>\\u0338\\uD8DD𐅸。\\uD803\\uDE70\\u0665\>\\u0338\\uD802\\uDE37\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4168\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{D8DD}𐅸。\x{10E70}\x{0665}≯\x{10A37}", %p)}, undef, "to_unicode\(\'\≯\\uD8DD𐅸\。\\uD803\\uDE70\\u0665\≯\\uD802\\uDE37\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4169\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{D8DD}𐅸。\x{10E70}\x{0665}>\x{0338}\x{10A37}", %p)}, undef, "to_unicode\(\'\>\\u0338\\uD8DD𐅸\。\\uD803\\uDE70\\u0665\>\\u0338\\uD802\\uDE37\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4170\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㍔\x{0AC8}\x{06FF}\x{200D}。\x{0DD4}\x{7D7D1}\x{302D}\x{10E67}", %p)}, undef, "to_unicode\(\'㍔\\u0AC8\\u06FF\\u200D\。\\u0DD4\\uD9B5\\uDFD1\\u302D\\uD803\\uDE67\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4171\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㍔\x{0AC8}\x{06FF}\x{200D}。\x{0DD4}\x{7D7D1}\x{302D}\x{10E67}", %p)}, undef, "to_unicode\(\'㍔\\u0AC8\\u06FF\\u200D\。\\u0DD4\\uD9B5\\uDFD1\\u302D\\uD803\\uDE67\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4172\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ルーブル\x{0AC8}\x{06FF}\x{200D}。\x{0DD4}\x{7D7D1}\x{302D}\x{10E67}", %p)}, undef, "to_unicode\(\'ルーブル\\u0AC8\\u06FF\\u200D\。\\u0DD4\\uD9B5\\uDFD1\\u302D\\uD803\\uDE67\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4173\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ルーブル\x{0AC8}\x{06FF}\x{200D}。\x{0DD4}\x{7D7D1}\x{302D}\x{10E67}", %p)}, undef, "to_unicode\(\'ルーブル\\u0AC8\\u06FF\\u200D\。\\u0DD4\\uD9B5\\uDFD1\\u302D\\uD803\\uDE67\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4174\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ルーフ\x{3099}ル\x{0AC8}\x{06FF}\x{200D}。\x{0DD4}\x{7D7D1}\x{302D}\x{10E67}", %p)}, undef, "to_unicode\(\'ルーフ\\u3099ル\\u0AC8\\u06FF\\u200D\。\\u0DD4\\uD9B5\\uDFD1\\u302D\\uD803\\uDE67\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4175\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ルーフ\x{3099}ル\x{0AC8}\x{06FF}\x{200D}。\x{0DD4}\x{7D7D1}\x{302D}\x{10E67}", %p)}, undef, "to_unicode\(\'ルーフ\\u3099ル\\u0AC8\\u06FF\\u200D\。\\u0DD4\\uD9B5\\uDFD1\\u302D\\uD803\\uDE67\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4176\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}.F", %p)}, undef, "to_unicode\(\'\\u200D\.F\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4177\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}.F", %p)}, undef, "to_unicode\(\'\\u200D\.F\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4178\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("f", %p)}, "f", "to_unicode\(\'f\'\)\ \[data\/IdnaTest\.txt\:4179\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㨲。ß", %p)}, undef, "to_unicode\(\'\\u200D㨲。ß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4180\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㨲。ß", %p)}, undef, "to_unicode\(\'\\u200D㨲。ß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4181\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㨲。ß", %p)}, undef, "to_unicode\(\'\\u200D㨲\。ß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4182\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㨲。ß", %p)}, undef, "to_unicode\(\'\\u200D㨲\。ß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4183\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㨲。SS", %p)}, undef, "to_unicode\(\'\\u200D㨲\。SS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4184\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㨲。SS", %p)}, undef, "to_unicode\(\'\\u200D㨲\。SS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4185\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--9bm.ss", %p)}, "㨲.ss", "to_unicode\(\'xn\-\-9bm\.ss\'\)\ \[data\/IdnaTest\.txt\:4186\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㨲.ss", %p)}, "㨲.ss", "to_unicode\(\'㨲\.ss\'\)\ \[data\/IdnaTest\.txt\:4187\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㨲。SS", %p)}, undef, "to_unicode\(\'\\u200D㨲。SS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4188\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㨲。SS", %p)}, undef, "to_unicode\(\'\\u200D㨲。SS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4189\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E60}ᠺ。\x{069E}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE60ᠺ。\\u069E\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4190\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E60}ᠺ。\x{069E}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE60ᠺ\。\\u069E\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4191\]") 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{076E}。\x{0660}\x{07E5}", %p)}, undef, "to_unicode\(\'⾑ᡣ\\u076E\。\\u0660\\u07E5\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4192\]") 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{076E}。\x{0660}\x{07E5}", %p)}, undef, "to_unicode\(\'襾ᡣ\\u076E\。\\u0660\\u07E5\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4193\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{4B8AD}ς-🌿。ꡗ-\x{0771}", %p)}, undef, "to_unicode\(\'\\uD8EE\\uDCADς\-🌿。ꡗ\-\\u0771\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4194\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4B8AD}ς-🌿。ꡗ-\x{0771}", %p)}, undef, "to_unicode\(\'\\uD8EE\\uDCADς\-🌿\。ꡗ\-\\u0771\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4195\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4B8AD}Σ-🌿。ꡗ-\x{0771}", %p)}, undef, "to_unicode\(\'\\uD8EE\\uDCADΣ\-🌿\。ꡗ\-\\u0771\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4196\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4B8AD}σ-🌿。ꡗ-\x{0771}", %p)}, undef, "to_unicode\(\'\\uD8EE\\uDCADσ\-🌿\。ꡗ\-\\u0771\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4197\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4B8AD}Σ-🌿。ꡗ-\x{0771}", %p)}, undef, "to_unicode\(\'\\uD8EE\\uDCADΣ\-🌿。ꡗ\-\\u0771\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4198\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{4B8AD}σ-🌿。ꡗ-\x{0771}", %p)}, undef, "to_unicode\(\'\\uD8EE\\uDCADσ\-🌿。ꡗ\-\\u0771\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4199\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}.\x{99D02}", %p)}, undef, "to_unicode\(\'\\u200D.\\uDA27\\uDD02\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4200\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}.\x{99D02}", %p)}, undef, "to_unicode\(\'\\u200D.\\uDA27\\uDD02\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4201\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}.\x{99D02}", %p)}, undef, "to_unicode\(\'\\u200D\.\\uDA27\\uDD02\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4202\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}.\x{99D02}", %p)}, undef, "to_unicode\(\'\\u200D\.\\uDA27\\uDD02\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4203\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{3B1B9}\x{EA1C9}。≠𝟭", %p)}, undef, "to_unicode\(\'\\uD8AC\\uDDB9\\uDB68\\uDDC9。\≠𝟭\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4204\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{3B1B9}\x{EA1C9}。=\x{0338}𝟭", %p)}, undef, "to_unicode\(\'\\uD8AC\\uDDB9\\uDB68\\uDDC9。\=\\u0338𝟭\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4205\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{3B1B9}\x{EA1C9}。≠1", %p)}, undef, "to_unicode\(\'\\uD8AC\\uDDB9\\uDB68\\uDDC9\。\≠1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4206\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{3B1B9}\x{EA1C9}。=\x{0338}1", %p)}, undef, "to_unicode\(\'\\uD8AC\\uDDB9\\uDB68\\uDDC9\。\=\\u03381\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4207\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A3F}\x{08A4}\x{200D}.\x{1E810}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE3F\\u08A4\\u200D\.\\uD83A\\uDC10\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4208\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A3F}\x{08A4}\x{200D}.\x{1E810}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE3F\\u08A4\\u200D\.\\uD83A\\uDC10\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4209\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CBC}ᢜ\x{10EA4}\x{0ACD}.\x{AC00D}", %p)}, undef, "to_unicode\(\'\\u0CBCᢜ\\uD803\\uDEA4\\u0ACD.\\uDA70\\uDC0D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4210\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CBC}ᢜ\x{10EA4}\x{0ACD}.\x{AC00D}", %p)}, undef, "to_unicode\(\'\\u0CBCᢜ\\uD803\\uDEA4\\u0ACD\.\\uDA70\\uDC0D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4211\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{077F}。\x{1B38}\x{200C}≯\x{1DE3}", %p)}, undef, "to_unicode\(\'\\u077F\。\\u1B38\\u200C\≯\\u1DE3\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4212\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{077F}。\x{1B38}\x{200C}≯\x{1DE3}", %p)}, undef, "to_unicode\(\'\\u077F\。\\u1B38\\u200C\≯\\u1DE3\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4213\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{077F}。\x{1B38}\x{200C}>\x{0338}\x{1DE3}", %p)}, undef, "to_unicode\(\'\\u077F\。\\u1B38\\u200C\>\\u0338\\u1DE3\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4214\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{077F}。\x{1B38}\x{200C}>\x{0338}\x{1DE3}", %p)}, undef, "to_unicode\(\'\\u077F\。\\u1B38\\u200C\>\\u0338\\u1DE3\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4215\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0351}𝟏.ᡢ\x{60DEF}Ⴉ", %p)}, undef, "to_unicode\(\'\\u0351𝟏\.ᡢ\\uD943\\uDDEFႩ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4216\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0351}1.ᡢ\x{60DEF}Ⴉ", %p)}, undef, "to_unicode\(\'\\u03511\.ᡢ\\uD943\\uDDEFႩ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4217\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0351}1.ᡢ\x{60DEF}ⴉ", %p)}, undef, "to_unicode\(\'\\u03511\.ᡢ\\uD943\\uDDEFⴉ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4218\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0351}𝟏.ᡢ\x{60DEF}ⴉ", %p)}, undef, "to_unicode\(\'\\u0351𝟏\.ᡢ\\uD943\\uDDEFⴉ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4219\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("閃𝟹\x{0FAF}。Ↄ\x{10E67}\x{067D}\x{1B44}", %p)}, undef, "to_unicode\(\'閃𝟹\\u0FAF\。Ↄ\\uD803\\uDE67\\u067D\\u1B44\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4220\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("閃3\x{0FAF}。Ↄ\x{10E67}\x{067D}\x{1B44}", %p)}, undef, "to_unicode\(\'閃3\\u0FAF\。Ↄ\\uD803\\uDE67\\u067D\\u1B44\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4221\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0FAF}。ↄ\x{10E67}\x{067D}\x{1B44}", %p)}, undef, "to_unicode\(\'閃3\\u0FAF\。ↄ\\uD803\\uDE67\\u067D\\u1B44\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4222\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0FAF}。ↄ\x{10E67}\x{067D}\x{1B44}", %p)}, undef, "to_unicode\(\'閃𝟹\\u0FAF\。ↄ\\uD803\\uDE67\\u067D\\u1B44\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4223\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{2D7F}\x{0768}\x{A8C4}𝟿.𝟚\x{E015B}\x{A950}︒", %p)}, undef, "to_unicode\(\'\\u2D7F\\u0768\\uA8C4𝟿\.𝟚\\uDB40\\uDD5B\\uA950︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4224\]") 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{2D7F}\x{0768}\x{A8C4}9.2\x{E015B}\x{A950}。", %p)}, undef, "to_unicode\(\'\\u2D7F\\u0768\\uA8C49\.2\\uDB40\\uDD5B\\uA950\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4225\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{93904}。≠-\x{20CD}⾛", %p)}, undef, "to_unicode\(\'\\uDA0E\\uDD04。\≠\-\\u20CD⾛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4226\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{93904}。=\x{0338}-\x{20CD}⾛", %p)}, undef, "to_unicode\(\'\\uDA0E\\uDD04。\=\\u0338\-\\u20CD⾛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4227\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{93904}。≠-\x{20CD}走", %p)}, undef, "to_unicode\(\'\\uDA0E\\uDD04\。\≠\-\\u20CD走\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4228\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{93904}。=\x{0338}-\x{20CD}走", %p)}, undef, "to_unicode\(\'\\uDA0E\\uDD04\。\=\\u0338\-\\u20CD走\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4229\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡦ\x{10E77}Ⴊ。-≠\x{1160}", %p)}, undef, "to_unicode\(\'ꡦ\\uD803\\uDE77Ⴊ\。\-\≠\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:4230\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡦ\x{10E77}Ⴊ。-=\x{0338}\x{1160}", %p)}, undef, "to_unicode\(\'ꡦ\\uD803\\uDE77Ⴊ\。\-\=\\u0338\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:4231\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡦ\x{10E77}ⴊ。-=\x{0338}\x{1160}", %p)}, undef, "to_unicode\(\'ꡦ\\uD803\\uDE77ⴊ\。\-\=\\u0338\\u1160\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:4232\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡦ\x{10E77}ⴊ。-≠\x{1160}", %p)}, undef, "to_unicode\(\'ꡦ\\uD803\\uDE77ⴊ\。\-\≠\\u1160\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:4233\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10EF7}\x{10E76}⁹≯。\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDEF7\\uD803\\uDE76⁹\≯。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4234\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10EF7}\x{10E76}⁹≯。\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDEF7\\uD803\\uDE76⁹\≯。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4235\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10EF7}\x{10E76}⁹>\x{0338}。\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDEF7\\uD803\\uDE76⁹\>\\u0338。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4236\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10EF7}\x{10E76}⁹>\x{0338}。\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDEF7\\uD803\\uDE76⁹\>\\u0338。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4237\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10EF7}\x{10E76}9≯。\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDEF7\\uD803\\uDE769\≯\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4238\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10EF7}\x{10E76}9≯。\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDEF7\\uD803\\uDE769\≯\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4239\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10EF7}\x{10E76}9>\x{0338}。\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDEF7\\uD803\\uDE769\>\\u0338\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4240\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10EF7}\x{10E76}9>\x{0338}。\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDEF7\\uD803\\uDE769\>\\u0338\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4241\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⁸。甯", %p)}, "8.甯", "to_unicode\(\'⁸\。甯\'\)\ \[data\/IdnaTest\.txt\:4242\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("8。甯", %p)}, "8.甯", "to_unicode\(\'8\。甯\'\)\ \[data\/IdnaTest\.txt\:4243\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("8.xn--qny", %p)}, "8.甯", "to_unicode\(\'8\.xn\-\-qny\'\)\ \[data\/IdnaTest\.txt\:4244\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("8.甯", %p)}, "8.甯", "to_unicode\(\'8\.甯\'\)\ \[data\/IdnaTest\.txt\:4245\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-⾆.\x{0CCD}", %p)}, undef, "to_unicode\(\'\-⾆.\\u0CCD\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4246\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-舌.\x{0CCD}", %p)}, undef, "to_unicode\(\'\-舌\.\\u0CCD\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4247\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。ᠵ", %p)}, undef, "to_unicode\(\'\-。ᠵ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4248\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。ᠵ", %p)}, undef, "to_unicode\(\'\-\。ᠵ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4249\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹂Ⴋ.≮", %p)}, undef, "to_unicode\(\'﹂Ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4250\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹂Ⴋ.<\x{0338}", %p)}, undef, "to_unicode\(\'﹂Ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4251\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("」Ⴋ.≮", %p)}, undef, "to_unicode\(\'\」Ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4252\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("」Ⴋ.<\x{0338}", %p)}, undef, "to_unicode\(\'\」Ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4253\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("」ⴋ.<\x{0338}", %p)}, undef, "to_unicode\(\'\」ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4254\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("」ⴋ.≮", %p)}, undef, "to_unicode\(\'\」ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4255\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹂ⴋ.<\x{0338}", %p)}, undef, "to_unicode\(\'﹂ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4256\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹂ⴋ.≮", %p)}, undef, "to_unicode\(\'﹂ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4257\]") 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{200C}\x{0351}", %p)}, undef, "to_unicode\(\'璼🐬。\\u200C\\u0351\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4258\]") 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{200C}\x{0351}", %p)}, undef, "to_unicode\(\'璼🐬。\\u200C\\u0351\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4259\]") 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{200C}\x{0351}", %p)}, undef, "to_unicode\(\'璼🐬\。\\u200C\\u0351\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4260\]") 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{200C}\x{0351}", %p)}, undef, "to_unicode\(\'璼🐬\。\\u200C\\u0351\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4261\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{10E63}𝟹𦗙。-⁰\x{E0D43}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE63𝟹𦗙。\-⁰\\uDB43\\uDD43\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4262\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E63}3𦗙。-0\x{E0D43}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE633𦗙\。\-0\\uDB43\\uDD43\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4263\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.\x{200C}", %p)}, undef, "to_unicode\(\'\\u200C\.\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4264\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.\x{200C}", %p)}, undef, "to_unicode\(\'\\u200C\.\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4265\]") 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{200D}튛.ꡃ", %p)}, undef, "to_unicode\(\'\\u200D튛\.ꡃ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4266\]") 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{200D}튛.ꡃ", %p)}, undef, "to_unicode\(\'\\u200D튛\.ꡃ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4267\]") 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{200D}튛.ꡃ", %p)}, undef, "to_unicode\(\'\\u200D튛\.ꡃ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4268\]") 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{200D}튛.ꡃ", %p)}, undef, "to_unicode\(\'\\u200D튛\.ꡃ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4269\]") 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--157b.xn--cc9a", %p)}, "튛.ꡃ", "to_unicode\(\'xn\-\-157b\.xn\-\-cc9a\'\)\ \[data\/IdnaTest\.txt\:4270\]") 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\:4271\]") 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\:4272\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{07D1}\x{0600}\x{FBED}.\x{07E0}ⴞ", %p)}, undef, "to_unicode\(\'\\u07D1\\u0600\\uFBED\.\\u07E0ⴞ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4273\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07D1}\x{0600}\x{0626}\x{06D5}.\x{07E0}ⴞ", %p)}, undef, "to_unicode\(\'\\u07D1\\u0600\\u0626\\u06D5\.\\u07E0ⴞ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4274\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07D1}\x{0600}\x{064A}\x{0654}\x{06D5}.\x{07E0}ⴞ", %p)}, undef, "to_unicode\(\'\\u07D1\\u0600\\u064A\\u0654\\u06D5\.\\u07E0ⴞ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4275\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07D1}\x{0600}\x{064A}\x{0654}\x{06D5}.\x{07E0}Ⴞ", %p)}, undef, "to_unicode\(\'\\u07D1\\u0600\\u064A\\u0654\\u06D5\.\\u07E0Ⴞ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4276\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07D1}\x{0600}\x{0626}\x{06D5}.\x{07E0}Ⴞ", %p)}, undef, "to_unicode\(\'\\u07D1\\u0600\\u0626\\u06D5\.\\u07E0Ⴞ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4277\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07D1}\x{0600}\x{FBED}.\x{07E0}Ⴞ", %p)}, undef, "to_unicode\(\'\\u07D1\\u0600\\uFBED\.\\u07E0Ⴞ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4278\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EFCE}\x{10E7E}\x{E011A}⁷.\x{0602}\x{0661}Ⴇ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDFCE\\uD803\\uDE7E\\uDB40\\uDD1A⁷.\\u0602\\u0661Ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4279\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EFCE}\x{10E7E}\x{E011A}7.\x{0602}\x{0661}Ⴇ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDFCE\\uD803\\uDE7E\\uDB40\\uDD1A7\.\\u0602\\u0661Ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4280\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EFCE}\x{10E7E}\x{E011A}7.\x{0602}\x{0661}ⴇ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDFCE\\uD803\\uDE7E\\uDB40\\uDD1A7\.\\u0602\\u0661ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4281\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EFCE}\x{10E7E}\x{E011A}⁷.\x{0602}\x{0661}ⴇ", %p)}, undef, "to_unicode\(\'\\uD83B\\uDFCE\\uD803\\uDE7E\\uDB40\\uDD1A⁷.\\u0602\\u0661ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4282\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴗ.\x{11042}\x{1734}\x{1C33}\x{317F0}", %p)}, undef, "to_unicode\(\'Ⴗ.\\uD804\\uDC42\\u1734\\u1C33\\uD885\\uDFF0\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4283\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴗ.\x{11042}\x{1734}\x{1C33}\x{317F0}", %p)}, undef, "to_unicode\(\'Ⴗ\.\\uD804\\uDC42\\u1734\\u1C33\\uD885\\uDFF0\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4284\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴗ.\x{11042}\x{1734}\x{1C33}\x{317F0}", %p)}, undef, "to_unicode\(\'ⴗ\.\\uD804\\uDC42\\u1734\\u1C33\\uD885\\uDFF0\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4285\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴗ.\x{11042}\x{1734}\x{1C33}\x{317F0}", %p)}, undef, "to_unicode\(\'ⴗ.\\uD804\\uDC42\\u1734\\u1C33\\uD885\\uDFF0\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4286\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۰\x{C7CA9}.\x{794D6}\x{06DD}", %p)}, undef, "to_unicode\(\'۰\\uDADF\\uDCA9.\\uD9A5\\uDCD6\\u06DD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4287\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۰\x{C7CA9}.\x{794D6}\x{06DD}", %p)}, undef, "to_unicode\(\'۰\\uDADF\\uDCA9\.\\uD9A5\\uDCD6\\u06DD\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4288\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈酫︒。\x{17B4}", %p)}, undef, "to_unicode\(\'⒈酫︒\。\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4289\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.酫。。\x{17B4}", %p)}, undef, "to_unicode\(\'1\.酫\。\。\\u17B4\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:4290\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B62}\x{200C}≮\x{0FB4}.\x{200C}\x{1A60}", %p)}, undef, "to_unicode\(\'\\u0B62\\u200C\≮\\u0FB4\.\\u200C\\u1A60\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4291\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B62}\x{200C}≮\x{0FB4}.\x{200C}\x{1A60}", %p)}, undef, "to_unicode\(\'\\u0B62\\u200C\≮\\u0FB4\.\\u200C\\u1A60\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4292\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B62}\x{200C}<\x{0338}\x{0FB4}.\x{200C}\x{1A60}", %p)}, undef, "to_unicode\(\'\\u0B62\\u200C\<\\u0338\\u0FB4\.\\u200C\\u1A60\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4293\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B62}\x{200C}<\x{0338}\x{0FB4}.\x{200C}\x{1A60}", %p)}, undef, "to_unicode\(\'\\u0B62\\u200C\<\\u0338\\u0FB4\.\\u200C\\u1A60\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4294\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E5D}。ႷႽ𝟶\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE5D\。ႷႽ𝟶\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4295\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E5D}。ႷႽ𝟶\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE5D\。ႷႽ𝟶\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4296\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E5D}。ႷႽ0\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE5D\。ႷႽ0\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4297\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E5D}。ႷႽ0\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE5D\。ႷႽ0\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4298\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E5D}。ⴗⴝ0\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE5D\。ⴗⴝ0\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4299\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E5D}。ⴗⴝ0\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE5D\。ⴗⴝ0\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4300\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E5D}。Ⴗⴝ0\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE5D\。Ⴗⴝ0\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4301\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E5D}。Ⴗⴝ0\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE5D\。Ⴗⴝ0\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4302\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E5D}。ⴗⴝ𝟶\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE5D\。ⴗⴝ𝟶\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4303\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E5D}。ⴗⴝ𝟶\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE5D\。ⴗⴝ𝟶\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4304\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E5D}。Ⴗⴝ𝟶\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE5D\。Ⴗⴝ𝟶\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4305\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E5D}。Ⴗⴝ𝟶\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE5D\。Ⴗⴝ𝟶\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[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{0A4D}\x{0BCD}𝟖.\x{1EE0F}\x{20D1}-", %p)}, undef, "to_unicode\(\'\\u0A4D\\u0BCD𝟖\.\\uD83B\\uDE0F\\u20D1\-\'\)\ throws\ error\ V5\ V3\ B3\ \[data\/IdnaTest\.txt\:4307\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0A4D}\x{0BCD}8.\x{0639}\x{20D1}-", %p)}, undef, "to_unicode\(\'\\u0A4D\\u0BCD8\.\\u0639\\u20D1\-\'\)\ throws\ error\ V5\ V3\ B3\ \[data\/IdnaTest\.txt\:4308\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0F14}\x{19FD9}\x{06DD}。𧛥\x{A953}\x{07D1}\x{062F}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDF14\\uD827\\uDFD9\\u06DD。𧛥\\uA953\\u07D1\\u062F\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:4309\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0F14}\x{19FD9}\x{06DD}。𧛥\x{A953}\x{07D1}\x{062F}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDF14\\uD827\\uDFD9\\u06DD\。𧛥\\uA953\\u07D1\\u062F\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:4310\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠮ\x{57F32}\x{0663}\x{0342}。ςᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_unicode\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342。ςᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4311\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠮ\x{57F32}\x{0663}\x{0342}。ςᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_unicode\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342。ςᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4312\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠮ\x{57F32}\x{0663}\x{0342}。ςᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_unicode\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342\。ςᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4313\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠮ\x{57F32}\x{0663}\x{0342}。ςᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_unicode\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342\。ςᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4314\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠮ\x{57F32}\x{0663}\x{0342}。Σᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_unicode\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342\。Σᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4315\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠮ\x{57F32}\x{0663}\x{0342}。Σᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_unicode\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342\。Σᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4316\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠮ\x{57F32}\x{0663}\x{0342}。σᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_unicode\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342\。σᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4317\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠮ\x{57F32}\x{0663}\x{0342}。σᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_unicode\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342\。σᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4318\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠮ\x{57F32}\x{0663}\x{0342}。Σᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_unicode\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342。Σᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4319\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠮ\x{57F32}\x{0663}\x{0342}。Σᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_unicode\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342。Σᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4320\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠮ\x{57F32}\x{0663}\x{0342}。σᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_unicode\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342。σᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4321\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠮ\x{57F32}\x{0663}\x{0342}。σᡡ\x{FDEB}\x{200C}", %p)}, undef, "to_unicode\(\'ᠮ\\uD91F\\uDF32\\u0663\\u0342。σᡡ\\uFDEB\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4322\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}--≮。\x{10E64}", %p)}, undef, "to_unicode\(\'\\u200D\-\-\≮\。\\uD803\\uDE64\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:4323\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}--≮。\x{10E64}", %p)}, undef, "to_unicode\(\'\\u200D\-\-\≮\。\\uD803\\uDE64\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:4324\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}--<\x{0338}。\x{10E64}", %p)}, undef, "to_unicode\(\'\\u200D\-\-\<\\u0338\。\\uD803\\uDE64\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:4325\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}--<\x{0338}。\x{10E64}", %p)}, undef, "to_unicode\(\'\\u200D\-\-\<\\u0338\。\\uD803\\uDE64\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:4326\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}。\x{1A862}\x{0F84}𝟗", %p)}, undef, "to_unicode\(\'\\u0BCD\。\\uD82A\\uDC62\\u0F84𝟗\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4327\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}。\x{1A862}\x{0F84}9", %p)}, undef, "to_unicode\(\'\\u0BCD\。\\uD82A\\uDC62\\u0F849\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4328\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{EB44E}\x{0682}.\x{0942}\x{10E73}", %p)}, undef, "to_unicode\(\'\\uDB6D\\uDC4E\\u0682.\\u0942\\uD803\\uDE73\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4329\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{EB44E}\x{0682}.\x{0942}\x{10E73}", %p)}, undef, "to_unicode\(\'\\uDB6D\\uDC4E\\u0682\.\\u0942\\uD803\\uDE73\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4330\]") 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{2060}ꡜ-。\x{067E}", %p)}, undef, "to_unicode\(\'\\u2060ꡜ\-\。\\u067E\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4331\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𝟙4\x{E0046}\x{E01F0}.\x{200D}1✯\x{200D}", %p)}, undef, "to_unicode\(\'𝟙4\\uDB40\\uDC46\\uDB40\\uDDF0.\\u200D1\✯\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4332\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟙4\x{E0046}\x{E01F0}.\x{200D}1✯\x{200D}", %p)}, undef, "to_unicode\(\'𝟙4\\uDB40\\uDC46\\uDB40\\uDDF0.\\u200D1\✯\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4333\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("14\x{E0046}\x{E01F0}.\x{200D}1✯\x{200D}", %p)}, undef, "to_unicode\(\'14\\uDB40\\uDC46\\uDB40\\uDDF0\.\\u200D1\✯\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4334\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("14\x{E0046}\x{E01F0}.\x{200D}1✯\x{200D}", %p)}, undef, "to_unicode\(\'14\\uDB40\\uDC46\\uDB40\\uDDF0\.\\u200D1\✯\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4335\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E71}。ꡪ", %p)}, undef, "to_unicode\(\'\-\\uD803\\uDE71。ꡪ\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4336\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E71}。ꡪ", %p)}, undef, "to_unicode\(\'\-\\uD803\\uDE71\。ꡪ\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4337\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("≮𝟎.謖ß≯", %p)}, undef, "to_unicode\(\'\≮𝟎.謖ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4338\]") 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\:4339\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮0.謖ß≯", %p)}, undef, "to_unicode\(\'\≮0\.謖ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4340\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}0.謖ß>\x{0338}", %p)}, undef, "to_unicode\(\'\<\\u03380\.謖ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4341\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}0.謖SS>\x{0338}", %p)}, undef, "to_unicode\(\'\<\\u03380\.謖SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4342\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮0.謖SS≯", %p)}, undef, "to_unicode\(\'\≮0\.謖SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4343\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮0.謖ss≯", %p)}, undef, "to_unicode\(\'\≮0\.謖ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4344\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}0.謖ss>\x{0338}", %p)}, undef, "to_unicode\(\'\<\\u03380\.謖ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4345\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}0.謖Ss>\x{0338}", %p)}, undef, "to_unicode\(\'\<\\u03380\.謖Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4346\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮0.謖Ss≯", %p)}, undef, "to_unicode\(\'\≮0\.謖Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4347\]") 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\:4348\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮𝟎.謖SS≯", %p)}, undef, "to_unicode\(\'\≮𝟎.謖SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4349\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮𝟎.謖ss≯", %p)}, undef, "to_unicode\(\'\≮𝟎.謖ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4350\]") 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\:4351\]") 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\:4352\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮𝟎.謖Ss≯", %p)}, undef, "to_unicode\(\'\≮𝟎.謖Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4353\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("朶Ⴉ\x{10DA0}.\x{2DEC}\x{110B9}⼲-", %p)}, undef, "to_unicode\(\'朶Ⴉ\\uD803\\uDDA0\.\\u2DEC\\uD804\\uDCB9⼲\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4354\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("朶Ⴉ\x{10DA0}.\x{110B9}\x{2DEC}⼲-", %p)}, undef, "to_unicode\(\'朶Ⴉ\\uD803\\uDDA0\.\\uD804\\uDCB9\\u2DEC⼲\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4355\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("朶Ⴉ\x{10DA0}.\x{110B9}\x{2DEC}干-", %p)}, undef, "to_unicode\(\'朶Ⴉ\\uD803\\uDDA0\.\\uD804\\uDCB9\\u2DEC干\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4356\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("朶ⴉ\x{10DA0}.\x{110B9}\x{2DEC}干-", %p)}, undef, "to_unicode\(\'朶ⴉ\\uD803\\uDDA0\.\\uD804\\uDCB9\\u2DEC干\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4357\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("朶ⴉ\x{10DA0}.\x{110B9}\x{2DEC}⼲-", %p)}, undef, "to_unicode\(\'朶ⴉ\\uD803\\uDDA0\.\\uD804\\uDCB9\\u2DEC⼲\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4358\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("朶ⴉ\x{10DA0}.\x{2DEC}\x{110B9}⼲-", %p)}, undef, "to_unicode\(\'朶ⴉ\\uD803\\uDDA0\.\\u2DEC\\uD804\\uDCB9⼲\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4359\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1E8A4}。\x{E845A}\x{200C}≮\x{200D}", %p)}, undef, "to_unicode\(\'\\uD83A\\uDCA4\。\\uDB61\\uDC5A\\u200C\≮\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:4360\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1E8A4}。\x{E845A}\x{200C}≮\x{200D}", %p)}, undef, "to_unicode\(\'\\uD83A\\uDCA4\。\\uDB61\\uDC5A\\u200C\≮\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:4361\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1E8A4}。\x{E845A}\x{200C}<\x{0338}\x{200D}", %p)}, undef, "to_unicode\(\'\\uD83A\\uDCA4\。\\uDB61\\uDC5A\\u200C\<\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:4362\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1E8A4}。\x{E845A}\x{200C}<\x{0338}\x{200D}", %p)}, undef, "to_unicode\(\'\\uD83A\\uDCA4\。\\uDB61\\uDC5A\\u200C\<\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:4363\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{90BA1}⒈。\x{200C}2", %p)}, undef, "to_unicode\(\'\\uDA02\\uDFA1⒈。\\u200C2\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4364\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{90BA1}⒈。\x{200C}2", %p)}, undef, "to_unicode\(\'\\uDA02\\uDFA1⒈。\\u200C2\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4365\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{90BA1}1.。\x{200C}2", %p)}, undef, "to_unicode\(\'\\uDA02\\uDFA11\.\。\\u200C2\'\)\ throws\ error\ P1\ V6\ A4_2\ C1\ \[data\/IdnaTest\.txt\:4366\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{90BA1}1.。\x{200C}2", %p)}, undef, "to_unicode\(\'\\uDA02\\uDFA11\.\。\\u200C2\'\)\ throws\ error\ P1\ V6\ A4_2\ C1\ \[data\/IdnaTest\.txt\:4367\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0611}\x{10E70}\x{200D}.\x{10E67}\x{52922}\x{0604}", %p)}, undef, "to_unicode\(\'\\u0611\\uD803\\uDE70\\u200D.\\uD803\\uDE67\\uD90A\\uDD22\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4368\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0611}\x{10E70}\x{200D}.\x{10E67}\x{52922}\x{0604}", %p)}, undef, "to_unicode\(\'\\u0611\\uD803\\uDE70\\u200D.\\uD803\\uDE67\\uD90A\\uDD22\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4369\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0611}\x{10E70}\x{200D}.\x{10E67}\x{52922}\x{0604}", %p)}, undef, "to_unicode\(\'\\u0611\\uD803\\uDE70\\u200D\.\\uD803\\uDE67\\uD90A\\uDD22\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4370\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0611}\x{10E70}\x{200D}.\x{10E67}\x{52922}\x{0604}", %p)}, undef, "to_unicode\(\'\\u0611\\uD803\\uDE70\\u200D\.\\uD803\\uDE67\\uD90A\\uDD22\\u0604\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4371\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡀ\x{10E6F}\x{0F84}\x{1ECF0}.\x{0CCD}\x{0943}\x{37769}", %p)}, undef, "to_unicode\(\'ᡀ\\uD803\\uDE6F\\u0F84\\uD83B\\uDCF0.\\u0CCD\\u0943\\uD89D\\uDF69\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4372\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡀ\x{10E6F}\x{0F84}\x{1ECF0}.\x{0CCD}\x{0943}\x{37769}", %p)}, undef, "to_unicode\(\'ᡀ\\uD803\\uDE6F\\u0F84\\uD83B\\uDCF0\.\\u0CCD\\u0943\\uD89D\\uDF69\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4373\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E66}。\x{0660}\x{0667}\x{4058C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE66。\\u0660\\u0667\\uD8C1\\uDD8C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4374\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E66}。\x{0660}\x{0667}\x{4058C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE66\。\\u0660\\u0667\\uD8C1\\uDD8C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4375\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1160}\x{BC3E5}.8\x{E5448}ᢝ", %p)}, undef, "to_unicode\(\'\\u1160\\uDAB0\\uDFE5\.8\\uDB55\\uDC48ᢝ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4376\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{E0191}。ß\x{05B1}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\uDB40\\uDD91。ß\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4377\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{E0191}。ß\x{05B1}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\uDB40\\uDD91。ß\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4378\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{E0191}。ß\x{05B1}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\uDB40\\uDD91\。ß\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4379\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{E0191}。ß\x{05B1}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\uDB40\\uDD91\。ß\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4380\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{E0191}。SS\x{05B1}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\uDB40\\uDD91\。SS\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4381\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{E0191}。SS\x{05B1}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\uDB40\\uDD91\。SS\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4382\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{E0191}。ss\x{05B1}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\uDB40\\uDD91\。ss\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4383\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{E0191}。ss\x{05B1}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\uDB40\\uDD91\。ss\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4384\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{E0191}。Ss\x{05B1}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\uDB40\\uDD91\。Ss\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4385\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{E0191}。Ss\x{05B1}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\uDB40\\uDD91\。Ss\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4386\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ss-8id", %p)}, "ss\x{05B1}", "to_unicode\(\'xn\-\-ss\-8id\'\)\ \[data\/IdnaTest\.txt\:4387\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{05B1}", %p)}, "ss\x{05B1}", "to_unicode\(\'ss\\u05B1\'\)\ \[data\/IdnaTest\.txt\:4388\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{05B1}", %p)}, "ss\x{05B1}", "to_unicode\(\'SS\\u05B1\'\)\ \[data\/IdnaTest\.txt\:4389\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{05B1}", %p)}, "ss\x{05B1}", "to_unicode\(\'Ss\\u05B1\'\)\ \[data\/IdnaTest\.txt\:4390\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{E0191}。SS\x{05B1}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\uDB40\\uDD91。SS\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4391\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{E0191}。SS\x{05B1}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\uDB40\\uDD91。SS\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4392\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{E0191}。ss\x{05B1}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\uDB40\\uDD91。ss\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4393\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{E0191}。ss\x{05B1}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\uDB40\\uDD91。ss\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4394\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{E0191}。Ss\x{05B1}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\uDB40\\uDD91。Ss\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4395\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{E0191}。Ss\x{05B1}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\uDB40\\uDD91。Ss\\u05B1\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4396\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒\x{200C}ヶ䒩.ᡱ", %p)}, undef, "to_unicode\(\'︒\\u200Cヶ䒩\.ᡱ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4397\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒\x{200C}ヶ䒩.ᡱ", %p)}, undef, "to_unicode\(\'︒\\u200Cヶ䒩\.ᡱ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4398\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。\x{200C}ヶ䒩.ᡱ", %p)}, undef, "to_unicode\(\'\。\\u200Cヶ䒩\.ᡱ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4399\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。\x{200C}ヶ䒩.ᡱ", %p)}, undef, "to_unicode\(\'\。\\u200Cヶ䒩\.ᡱ\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4400\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--qekw60d.xn--e9e", %p)}, "ヶ䒩.ᡱ", "to_unicode\(\'xn\-\-qekw60d\.xn\-\-e9e\'\)\ \[data\/IdnaTest\.txt\:4401\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ヶ䒩.ᡱ", %p)}, "ヶ䒩.ᡱ", "to_unicode\(\'ヶ䒩\.ᡱ\'\)\ \[data\/IdnaTest\.txt\:4402\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}⒈\x{4E6D1}.\x{7049C}\x{10A3F}", %p)}, undef, "to_unicode\(\'\\u200C⒈\\uD8F9\\uDED1\.\\uD981\\uDC9C\\uD802\\uDE3F\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4403\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}⒈\x{4E6D1}.\x{7049C}\x{10A3F}", %p)}, undef, "to_unicode\(\'\\u200C⒈\\uD8F9\\uDED1\.\\uD981\\uDC9C\\uD802\\uDE3F\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4404\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}1.\x{4E6D1}.\x{7049C}\x{10A3F}", %p)}, undef, "to_unicode\(\'\\u200C1\.\\uD8F9\\uDED1\.\\uD981\\uDC9C\\uD802\\uDE3F\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4405\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}1.\x{4E6D1}.\x{7049C}\x{10A3F}", %p)}, undef, "to_unicode\(\'\\u200C1\.\\uD8F9\\uDED1\.\\uD981\\uDC9C\\uD802\\uDE3F\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4406\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{200C}ꡏ\x{E0EAD}。\x{0ACD}\x{E336E}\x{200D}", %p)}, undef, "to_unicode\(\'⒈\\u200Cꡏ\\uDB43\\uDEAD\。\\u0ACD\\uDB4C\\uDF6E\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C1\ C2\ \[data\/IdnaTest\.txt\:4407\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{200C}ꡏ\x{E0EAD}。\x{0ACD}\x{E336E}\x{200D}", %p)}, undef, "to_unicode\(\'⒈\\u200Cꡏ\\uDB43\\uDEAD\。\\u0ACD\\uDB4C\\uDF6E\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C1\ C2\ \[data\/IdnaTest\.txt\:4408\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{200C}ꡏ\x{E0EAD}。\x{0ACD}\x{E336E}\x{200D}", %p)}, undef, "to_unicode\(\'1\.\\u200Cꡏ\\uDB43\\uDEAD\。\\u0ACD\\uDB4C\\uDF6E\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C1\ C2\ \[data\/IdnaTest\.txt\:4409\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{200C}ꡏ\x{E0EAD}。\x{0ACD}\x{E336E}\x{200D}", %p)}, undef, "to_unicode\(\'1\.\\u200Cꡏ\\uDB43\\uDEAD\。\\u0ACD\\uDB4C\\uDF6E\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C1\ C2\ \[data\/IdnaTest\.txt\:4410\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E002E}。₀\x{0818}䬺⒈", %p)}, undef, "to_unicode\(\'\\uDB40\\uDC2E。₀\\u0818䬺⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4411\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E002E}。0\x{0818}䬺1.", %p)}, undef, "to_unicode\(\'\\uDB40\\uDC2E\。0\\u0818䬺1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4412\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{B3A48}≯。盚\x{08A8}", %p)}, undef, "to_unicode\(\'\\uDA8E\\uDE48\≯\。盚\\u08A8\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4413\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{B3A48}>\x{0338}。盚\x{08A8}", %p)}, undef, "to_unicode\(\'\\uDA8E\\uDE48\>\\u0338\。盚\\u08A8\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4414\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{8A18C}\x{07B0}。-\x{A67C}\x{10B49}≯", %p)}, undef, "to_unicode\(\'\-\\uD9E8\\uDD8C\\u07B0\。\-\\uA67C\\uD802\\uDF49\≯\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4415\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{8A18C}\x{07B0}。-\x{A67C}\x{10B49}>\x{0338}", %p)}, undef, "to_unicode\(\'\-\\uD9E8\\uDD8C\\u07B0\。\-\\uA67C\\uD802\\uDF49\>\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4416\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9DC5}\x{116B6}\x{200C}\x{1A60}.\x{10F94}\x{59DB8}", %p)}, undef, "to_unicode\(\'\\uDA67\\uDDC5\\uD805\\uDEB6\\u200C\\u1A60.\\uD803\\uDF94\\uD927\\uDDB8\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4417\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9DC5}\x{116B6}\x{200C}\x{1A60}.\x{10F94}\x{59DB8}", %p)}, undef, "to_unicode\(\'\\uDA67\\uDDC5\\uD805\\uDEB6\\u200C\\u1A60\.\\uD803\\uDF94\\uD927\\uDDB8\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4418\]") 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{069B}\x{067B}ꡒ\x{200D}", %p)}, undef, "to_unicode\(\'⾇\.\\u069B\\u067Bꡒ\\u200D\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4419\]") 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{069B}\x{067B}ꡒ\x{200D}", %p)}, undef, "to_unicode\(\'⾇\.\\u069B\\u067Bꡒ\\u200D\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4420\]") 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{069B}\x{067B}ꡒ\x{200D}", %p)}, undef, "to_unicode\(\'舛\.\\u069B\\u067Bꡒ\\u200D\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4421\]") 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{069B}\x{067B}ꡒ\x{200D}", %p)}, undef, "to_unicode\(\'舛\.\\u069B\\u067Bꡒ\\u200D\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4422\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("5\x{587FA}。ᢏ≯", %p)}, undef, "to_unicode\(\'5\\uD921\\uDFFA\。ᢏ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4423\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("5\x{587FA}。ᢏ>\x{0338}", %p)}, undef, "to_unicode\(\'5\\uD921\\uDFFA\。ᢏ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4424\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("5\x{587FA}。ᢏ≯", %p)}, undef, "to_unicode\(\'5\\uD921\\uDFFA\。ᢏ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4425\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("5\x{587FA}。ᢏ>\x{0338}", %p)}, undef, "to_unicode\(\'5\\uD921\\uDFFA\。ᢏ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4426\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1C440}\x{10F74}\x{16597}硲.ᡯ", %p)}, undef, "to_unicode\(\'\\uD831\\uDC40\\uD803\\uDF74\\uD819\\uDD97硲.ᡯ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4427\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1C440}\x{10F74}\x{16597}硲.ᡯ", %p)}, undef, "to_unicode\(\'\\uD831\\uDC40\\uD803\\uDF74\\uD819\\uDD97硲\.ᡯ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4428\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.\x{11040}\x{10E6F}Ⴆ\x{009C}", %p)}, undef, "to_unicode\(\'\\u200C\.\\uD804\\uDC40\\uD803\\uDE6FႦ\\u009C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:4429\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.\x{11040}\x{10E6F}Ⴆ\x{009C}", %p)}, undef, "to_unicode\(\'\\u200C\.\\uD804\\uDC40\\uD803\\uDE6FႦ\\u009C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:4430\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.\x{11040}\x{10E6F}ⴆ\x{009C}", %p)}, undef, "to_unicode\(\'\\u200C\.\\uD804\\uDC40\\uD803\\uDE6Fⴆ\\u009C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:4431\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.\x{11040}\x{10E6F}ⴆ\x{009C}", %p)}, undef, "to_unicode\(\'\\u200C\.\\uD804\\uDC40\\uD803\\uDE6Fⴆ\\u009C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:4432\]") 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{0685}.\x{AAF6}\x{200D}Ϟ", %p)}, undef, "to_unicode\(\'\\u0685.\\uAAF6\\u200DϞ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4433\]") 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{0685}.\x{AAF6}\x{200D}Ϟ", %p)}, undef, "to_unicode\(\'\\u0685\.\\uAAF6\\u200DϞ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4434\]") 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{0685}.\x{AAF6}\x{200D}ϟ", %p)}, undef, "to_unicode\(\'\\u0685\.\\uAAF6\\u200Dϟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4435\]") 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{0685}.\x{AAF6}\x{200D}ϟ", %p)}, undef, "to_unicode\(\'\\u0685.\\uAAF6\\u200Dϟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4436\]") 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{1EE51}\x{0D4D}。\x{0626}\x{0767}-腍", %p)}, undef, "to_unicode\(\'\\u200C\\uD83B\\uDE51\\u0D4D\。\\u0626\\u0767\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4437\]") 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{1EE51}\x{0D4D}。\x{0626}\x{0767}-腍", %p)}, undef, "to_unicode\(\'\\u200C\\uD83B\\uDE51\\u0D4D\。\\u0626\\u0767\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4438\]") 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{1EE51}\x{0D4D}。\x{064A}\x{0654}\x{0767}-腍", %p)}, undef, "to_unicode\(\'\\u200C\\uD83B\\uDE51\\u0D4D\。\\u064A\\u0654\\u0767\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4439\]") 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{1EE51}\x{0D4D}。\x{064A}\x{0654}\x{0767}-腍", %p)}, undef, "to_unicode\(\'\\u200C\\uD83B\\uDE51\\u0D4D\。\\u064A\\u0654\\u0767\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4440\]") 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{0635}\x{0D4D}。\x{0626}\x{0767}-腍", %p)}, undef, "to_unicode\(\'\\u200C\\u0635\\u0D4D\。\\u0626\\u0767\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4441\]") 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{0635}\x{0D4D}。\x{0626}\x{0767}-腍", %p)}, undef, "to_unicode\(\'\\u200C\\u0635\\u0D4D\。\\u0626\\u0767\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4442\]") 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{0635}\x{0D4D}。\x{064A}\x{0654}\x{0767}-腍", %p)}, undef, "to_unicode\(\'\\u200C\\u0635\\u0D4D\。\\u064A\\u0654\\u0767\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4443\]") 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{0635}\x{0D4D}。\x{064A}\x{0654}\x{0767}-腍", %p)}, undef, "to_unicode\(\'\\u200C\\u0635\\u0D4D\。\\u064A\\u0654\\u0767\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4444\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("-\x{7366F}\x{10E70}𤾆。⒗\x{E4B97}𝟪", %p)}, undef, "to_unicode\(\'\-\\uD98D\\uDE6F\\uD803\\uDE70𤾆。⒗\\uDB52\\uDF97𝟪\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4445\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{7366F}\x{10E70}𤾆。16.\x{E4B97}8", %p)}, undef, "to_unicode\(\'\-\\uD98D\\uDE6F\\uD803\\uDE70𤾆\。16\.\\uDB52\\uDF978\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4446\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🁪.Ⴂᠺ\x{1714}3", %p)}, undef, "to_unicode\(\'🁪.Ⴂᠺ\\u17143\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4447\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🁪.Ⴂᠺ\x{1714}3", %p)}, undef, "to_unicode\(\'🁪\.Ⴂᠺ\\u17143\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4448\]") 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{1714}3", %p)}, "🁪.ⴂᠺ\x{1714}3", "to_unicode\(\'🁪\.ⴂᠺ\\u17143\'\)\ \[data\/IdnaTest\.txt\:4449\]") 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--jw7h.xn--3-kpjx0e812d", %p)}, "🁪.ⴂᠺ\x{1714}3", "to_unicode\(\'xn\-\-jw7h\.xn\-\-3\-kpjx0e812d\'\)\ \[data\/IdnaTest\.txt\:4450\]") 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{1714}3", %p)}, "🁪.ⴂᠺ\x{1714}3", "to_unicode\(\'🁪.ⴂᠺ\\u17143\'\)\ \[data\/IdnaTest\.txt\:4451\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("軥ᡋ.-\x{031D}", %p)}, undef, "to_unicode\(\'軥ᡋ\.\-\\u031D\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4452\]") 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{10E69}ᡴ\x{06B6}.\x{08F6}-", %p)}, undef, "to_unicode\(\'\\uD803\\uDE69ᡴ\\u06B6\.\\u08F6\-\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:4453\]") 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{E01B9}۴。\x{1BA3}\x{A67D}톇십", %p)}, undef, "to_unicode\(\'\-\\uDB40\\uDDB9۴。\\u1BA3\\uA67D톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4454\]") 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{E01B9}۴。\x{1BA3}\x{A67D}톇십", %p)}, undef, "to_unicode\(\'\-\\uDB40\\uDDB9۴。\\u1BA3\\uA67D톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4455\]") 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{E01B9}۴。\x{1BA3}\x{A67D}톇십", %p)}, undef, "to_unicode\(\'\-\\uDB40\\uDDB9۴\。\\u1BA3\\uA67D톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4456\]") 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{E01B9}۴。\x{1BA3}\x{A67D}톇십", %p)}, undef, "to_unicode\(\'\-\\uDB40\\uDDB9۴\。\\u1BA3\\uA67D톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4457\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{075E}︒--。\x{05A5}靈\x{10E68}\x{6F851}", %p)}, undef, "to_unicode\(\'\\u075E︒\-\-。\\u05A5靈\\uD803\\uDE68\\uD97E\\uDC51\'\)\ throws\ error\ P1\ V2\ V3\ V6\ V5\ B3\ B1\ \[data\/IdnaTest\.txt\:4458\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075E}。--。\x{05A5}靈\x{10E68}\x{6F851}", %p)}, undef, "to_unicode\(\'\\u075E\。\-\-\。\\u05A5靈\\uD803\\uDE68\\uD97E\\uDC51\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4459\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}ႿႵრ。\x{0C4D}", %p)}, undef, "to_unicode\(\'\\u115FႿႵრ。\\u0C4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4460\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}ႿႵრ。\x{0C4D}", %p)}, undef, "to_unicode\(\'\\u115FႿႵრ\。\\u0C4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4461\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}ⴟⴕრ。\x{0C4D}", %p)}, undef, "to_unicode\(\'\\u115Fⴟⴕრ\。\\u0C4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4462\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}Ⴟⴕრ。\x{0C4D}", %p)}, undef, "to_unicode\(\'\\u115FႿⴕრ\。\\u0C4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4463\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}ⴟⴕრ。\x{0C4D}", %p)}, undef, "to_unicode\(\'\\u115Fⴟⴕრ。\\u0C4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4464\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}Ⴟⴕრ。\x{0C4D}", %p)}, undef, "to_unicode\(\'\\u115FႿⴕრ。\\u0C4D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4465\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒛\x{10E69}.\x{10E71}\x{E01B0}", %p)}, undef, "to_unicode\(\'⒛\\uD803\\uDE69\.\\uD803\\uDE71\\uDB40\\uDDB0\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4466\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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("20.\x{10E69}.\x{10E71}\x{E01B0}", %p)}, undef, "to_unicode\(\'20\.\\uD803\\uDE69\.\\uD803\\uDE71\\uDB40\\uDDB0\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4467\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{95C0E}\x{200C}\x{10CBC}.ᢝ\x{06B4}\x{0A4D}", %p)}, undef, "to_unicode\(\'\\uDA17\\uDC0E\\u200C\\uD803\\uDCBC.ᢝ\\u06B4\\u0A4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4468\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{95C0E}\x{200C}\x{10CBC}.ᢝ\x{06B4}\x{0A4D}", %p)}, undef, "to_unicode\(\'\\uDA17\\uDC0E\\u200C\\uD803\\uDCBC.ᢝ\\u06B4\\u0A4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4469\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{95C0E}\x{200C}\x{10CBC}.ᢝ\x{06B4}\x{0A4D}", %p)}, undef, "to_unicode\(\'\\uDA17\\uDC0E\\u200C\\uD803\\uDCBC\.ᢝ\\u06B4\\u0A4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4470\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{95C0E}\x{200C}\x{10CBC}.ᢝ\x{06B4}\x{0A4D}", %p)}, undef, "to_unicode\(\'\\uDA17\\uDC0E\\u200C\\uD803\\uDCBC\.ᢝ\\u06B4\\u0A4D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4471\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200D}\x{10FAC}\x{200C}。ᠡ\x{1DDA}\x{17B5}", %p)}, undef, "to_unicode\(\'\\u200D\\u200D\\uD803\\uDFAC\\u200C\。ᠡ\\u1DDA\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:4472\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200D}\x{10FAC}\x{200C}。ᠡ\x{1DDA}\x{17B5}", %p)}, undef, "to_unicode\(\'\\u200D\\u200D\\uD803\\uDFAC\\u200C\。ᠡ\\u1DDA\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:4473\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE9A}。\x{E0FC4}\x{C8ED5}\x{103A}", %p)}, undef, "to_unicode\(\'\\uFE9A\。\\uDB43\\uDFC4\\uDAE3\\uDED5\\u103A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4474\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062B}。\x{E0FC4}\x{C8ED5}\x{103A}", %p)}, undef, "to_unicode\(\'\\u062B\。\\uDB43\\uDFC4\\uDAE3\\uDED5\\u103A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4475\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A60}≠.\x{10A24}\x{0663}", %p)}, undef, "to_unicode\(\'\\u1A60\≠.\\uD802\\uDE24\\u0663\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4476\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A60}=\x{0338}.\x{10A24}\x{0663}", %p)}, undef, "to_unicode\(\'\\u1A60\=\\u0338.\\uD802\\uDE24\\u0663\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4477\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A60}≠.\x{10A24}\x{0663}", %p)}, undef, "to_unicode\(\'\\u1A60\≠\.\\uD802\\uDE24\\u0663\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4478\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A60}=\x{0338}.\x{10A24}\x{0663}", %p)}, undef, "to_unicode\(\'\\u1A60\=\\u0338\.\\uD802\\uDE24\\u0663\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4479\]") 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{A671}\x{11134}。\x{E0165}-", %p)}, undef, "to_unicode\(\'𝟮\\uA671\\uD804\\uDD34。\\uDB40\\uDD65\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4480\]") 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("2\x{A671}\x{11134}。\x{E0165}-", %p)}, undef, "to_unicode\(\'2\\uA671\\uD804\\uDD34\。\\uDB40\\uDD65\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4481\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ᢢ\x{1DE6}\x{1714}Ⴇ.𝟙", %p)}, undef, "to_unicode\(\'ᢢ\\u1DE6\\u1714Ⴇ\.𝟙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4482\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢢ\x{1714}\x{1DE6}Ⴇ.𝟙", %p)}, undef, "to_unicode\(\'ᢢ\\u1714\\u1DE6Ⴇ\.𝟙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4483\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢢ\x{1714}\x{1DE6}Ⴇ.1", %p)}, undef, "to_unicode\(\'ᢢ\\u1714\\u1DE6Ⴇ\.1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4484\]") 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{1714}\x{1DE6}ⴇ.1", %p)}, "ᢢ\x{1714}\x{1DE6}ⴇ.1", "to_unicode\(\'ᢢ\\u1714\\u1DE6ⴇ\.1\'\)\ \[data\/IdnaTest\.txt\:4485\]") 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--fze90fu1iw8r.1", %p)}, "ᢢ\x{1714}\x{1DE6}ⴇ.1", "to_unicode\(\'xn\-\-fze90fu1iw8r\.1\'\)\ \[data\/IdnaTest\.txt\:4486\]") 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{1714}\x{1DE6}ⴇ.𝟙", %p)}, "ᢢ\x{1714}\x{1DE6}ⴇ.1", "to_unicode\(\'ᢢ\\u1714\\u1DE6ⴇ\.𝟙\'\)\ \[data\/IdnaTest\.txt\:4487\]") 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{1DE6}\x{1714}ⴇ.𝟙", %p)}, "ᢢ\x{1714}\x{1DE6}ⴇ.1", "to_unicode\(\'ᢢ\\u1DE6\\u1714ⴇ\.𝟙\'\)\ \[data\/IdnaTest\.txt\:4488\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ᄹ。\x{0EB9}\x{7F879}⁍", %p)}, undef, "to_unicode\(\'ᄹ。\\u0EB9\\uD9BE\\uDC79\⁍\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4489\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᄹ。\x{0EB9}\x{7F879}⁍", %p)}, undef, "to_unicode\(\'ᄹ\。\\u0EB9\\uD9BE\\uDC79\⁍\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4490\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴆ\x{4CF36}.\x{0823}\x{0AC1}ᡥ", %p)}, undef, "to_unicode\(\'Ⴆ\\uD8F3\\uDF36.\\u0823\\u0AC1ᡥ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4491\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴆ\x{4CF36}.\x{0823}\x{0AC1}ᡥ", %p)}, undef, "to_unicode\(\'Ⴆ\\uD8F3\\uDF36\.\\u0823\\u0AC1ᡥ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4492\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴆ\x{4CF36}.\x{0823}\x{0AC1}ᡥ", %p)}, undef, "to_unicode\(\'ⴆ\\uD8F3\\uDF36\.\\u0823\\u0AC1ᡥ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4493\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴆ\x{4CF36}.\x{0823}\x{0AC1}ᡥ", %p)}, undef, "to_unicode\(\'ⴆ\\uD8F3\\uDF36.\\u0823\\u0AC1ᡥ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4494\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{1E8E9}︒\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'ß\\uD83A\\uDCE9︒\\u0687.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4495\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{1E8E9}︒\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'ß\\uD83A\\uDCE9︒\\u0687.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4496\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{1E8E9}。\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'ß\\uD83A\\uDCE9\。\\u0687\.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4497\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{1E8E9}。\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'ß\\uD83A\\uDCE9\。\\u0687\.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4498\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{1E8E9}。\x{0687}.帼f\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'ß\\uD83A\\uDCE9\。\\u0687\.帼f\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4499\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{1E8E9}。\x{0687}.帼f\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'ß\\uD83A\\uDCE9\。\\u0687\.帼f\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4500\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{1E8E9}。\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'SS\\uD83A\\uDCE9\。\\u0687\.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4501\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{1E8E9}。\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'SS\\uD83A\\uDCE9\。\\u0687\.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4502\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{1E8E9}。\x{0687}.帼f\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'ss\\uD83A\\uDCE9\。\\u0687\.帼f\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4503\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{1E8E9}。\x{0687}.帼f\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'ss\\uD83A\\uDCE9\。\\u0687\.帼f\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4504\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{1E8E9}。\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'Ss\\uD83A\\uDCE9\。\\u0687\.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4505\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{1E8E9}。\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'Ss\\uD83A\\uDCE9\。\\u0687\.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4506\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{1E8E9}︒\x{0687}.帼f\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'ß\\uD83A\\uDCE9︒\\u0687.帼f\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4507\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{1E8E9}︒\x{0687}.帼f\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'ß\\uD83A\\uDCE9︒\\u0687.帼f\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4508\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{1E8E9}︒\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'SS\\uD83A\\uDCE9︒\\u0687.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4509\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{1E8E9}︒\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'SS\\uD83A\\uDCE9︒\\u0687.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4510\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{1E8E9}︒\x{0687}.帼f\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'ss\\uD83A\\uDCE9︒\\u0687.帼f\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4511\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{1E8E9}︒\x{0687}.帼f\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'ss\\uD83A\\uDCE9︒\\u0687.帼f\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4512\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{1E8E9}︒\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'Ss\\uD83A\\uDCE9︒\\u0687.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4513\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{1E8E9}︒\x{0687}.帼F\x{E0C43}\x{200C}", %p)}, undef, "to_unicode\(\'Ss\\uD83A\\uDCE9︒\\u0687.帼F\\uDB43\\uDC43\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4514\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{968F9}。\x{10E68}\x{108FE}\x{200D}", %p)}, undef, "to_unicode\(\'\\uDA1A\\uDCF9。\\uD803\\uDE68\\uD802\\uDCFE\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4515\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{968F9}。\x{10E68}\x{108FE}\x{200D}", %p)}, undef, "to_unicode\(\'\\uDA1A\\uDCF9。\\uD803\\uDE68\\uD802\\uDCFE\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4516\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{968F9}。\x{10E68}\x{108FE}\x{200D}", %p)}, undef, "to_unicode\(\'\\uDA1A\\uDCF9\。\\uD803\\uDE68\\uD802\\uDCFE\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4517\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{968F9}。\x{10E68}\x{108FE}\x{200D}", %p)}, undef, "to_unicode\(\'\\uDA1A\\uDCF9\。\\uD803\\uDE68\\uD802\\uDCFE\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4518\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10F0C6}.\x{3C962}⒈\x{1BF2}", %p)}, undef, "to_unicode\(\'\\uDBFC\\uDCC6\.\\uD8B2\\uDD62⒈\\u1BF2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4519\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10F0C6}.\x{3C962}1.\x{1BF2}", %p)}, undef, "to_unicode\(\'\\uDBFC\\uDCC6\.\\uD8B2\\uDD621\.\\u1BF2\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4520\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2062}\x{1EFC8}。-1ႱႨ", %p)}, undef, "to_unicode\(\'\\u2062\\uD83B\\uDFC8\。\-1ႱႨ\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4521\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2062}\x{1EFC8}。-1ႱႨ", %p)}, undef, "to_unicode\(\'\\u2062\\uD83B\\uDFC8\。\-1ႱႨ\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4522\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2062}\x{1EFC8}。-1ⴑⴈ", %p)}, undef, "to_unicode\(\'\\u2062\\uD83B\\uDFC8\。\-1ⴑⴈ\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4523\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2062}\x{1EFC8}。-1Ⴑⴈ", %p)}, undef, "to_unicode\(\'\\u2062\\uD83B\\uDFC8\。\-1Ⴑⴈ\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4524\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2062}\x{1EFC8}。-1ⴑⴈ", %p)}, undef, "to_unicode\(\'\\u2062\\uD83B\\uDFC8\。\-1ⴑⴈ\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4525\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2062}\x{1EFC8}。-1Ⴑⴈ", %p)}, undef, "to_unicode\(\'\\u2062\\uD83B\\uDFC8\。\-1Ⴑⴈ\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4526\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢓ.-ᠷ︒", %p)}, undef, "to_unicode\(\'ᢓ.\-ᠷ︒\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4527\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢓ.-ᠷ。", %p)}, undef, "to_unicode\(\'ᢓ\.\-ᠷ\。\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4528\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1EF0E}.\x{E01A2}--", %p)}, undef, "to_unicode\(\'\\u200C\\uD83B\\uDF0E\.\\uDB40\\uDDA2\-\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:4529\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1EF0E}.\x{E01A2}--", %p)}, undef, "to_unicode\(\'\\u200C\\uD83B\\uDF0E\.\\uDB40\\uDDA2\-\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:4530\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒒\x{EDEC7}Ⴢ.Ⴁ", %p)}, undef, "to_unicode\(\'⒒\\uDB77\\uDEC7Ⴢ\.Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4531\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("11.\x{EDEC7}Ⴢ.Ⴁ", %p)}, undef, "to_unicode\(\'11\.\\uDB77\\uDEC7Ⴢ\.Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4532\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("11.\x{EDEC7}ⴢ.ⴁ", %p)}, undef, "to_unicode\(\'11\.\\uDB77\\uDEC7ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4533\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("11.\x{EDEC7}Ⴢ.ⴁ", %p)}, undef, "to_unicode\(\'11\.\\uDB77\\uDEC7Ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4534\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒒\x{EDEC7}ⴢ.ⴁ", %p)}, undef, "to_unicode\(\'⒒\\uDB77\\uDEC7ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4535\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒒\x{EDEC7}Ⴢ.ⴁ", %p)}, undef, "to_unicode\(\'⒒\\uDB77\\uDEC7Ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4536\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{34887}\x{1BAA}5\x{83182}。\x{AD4DD}\x{E098A}ς", %p)}, undef, "to_unicode\(\'\\uD892\\uDC87\\u1BAA5\\uD9CC\\uDD82。\\uDA75\\uDCDD\\uDB42\\uDD8Aς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4537\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{34887}\x{1BAA}5\x{83182}。\x{AD4DD}\x{E098A}ς", %p)}, undef, "to_unicode\(\'\\uD892\\uDC87\\u1BAA5\\uD9CC\\uDD82\。\\uDA75\\uDCDD\\uDB42\\uDD8Aς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4538\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{34887}\x{1BAA}5\x{83182}。\x{AD4DD}\x{E098A}Σ", %p)}, undef, "to_unicode\(\'\\uD892\\uDC87\\u1BAA5\\uD9CC\\uDD82\。\\uDA75\\uDCDD\\uDB42\\uDD8AΣ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4539\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{34887}\x{1BAA}5\x{83182}。\x{AD4DD}\x{E098A}σ", %p)}, undef, "to_unicode\(\'\\uD892\\uDC87\\u1BAA5\\uD9CC\\uDD82\。\\uDA75\\uDCDD\\uDB42\\uDD8Aσ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4540\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{34887}\x{1BAA}5\x{83182}。\x{AD4DD}\x{E098A}Σ", %p)}, undef, "to_unicode\(\'\\uD892\\uDC87\\u1BAA5\\uD9CC\\uDD82。\\uDA75\\uDCDD\\uDB42\\uDD8AΣ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4541\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{34887}\x{1BAA}5\x{83182}。\x{AD4DD}\x{E098A}σ", %p)}, undef, "to_unicode\(\'\\uD892\\uDC87\\u1BAA5\\uD9CC\\uDD82。\\uDA75\\uDCDD\\uDB42\\uDD8Aσ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4542\]") 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{2DE1}ᡛ。\x{034C}\x{069D}", %p)}, undef, "to_unicode\(\'\\u2DE1ᡛ\。\\u034C\\u069D\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4543\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{10E79}ᢓ\x{2DF9}。\x{AD638}Ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE79ᢓ\\u2DF9。\\uDA75\\uDE38Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4544\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E79}ᢓ\x{2DF9}。\x{AD638}Ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE79ᢓ\\u2DF9。\\uDA75\\uDE38Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4545\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E79}ᢓ\x{2DF9}。\x{AD638}Ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE79ᢓ\\u2DF9\。\\uDA75\\uDE38Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4546\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E79}ᢓ\x{2DF9}。\x{AD638}Ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE79ᢓ\\u2DF9\。\\uDA75\\uDE38Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4547\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E79}ᢓ\x{2DF9}。\x{AD638}ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE79ᢓ\\u2DF9\。\\uDA75\\uDE38ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4548\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E79}ᢓ\x{2DF9}。\x{AD638}ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE79ᢓ\\u2DF9\。\\uDA75\\uDE38ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4549\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E79}ᢓ\x{2DF9}。\x{AD638}ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE79ᢓ\\u2DF9。\\uDA75\\uDE38ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4550\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E79}ᢓ\x{2DF9}。\x{AD638}ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE79ᢓ\\u2DF9。\\uDA75\\uDE38ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4551\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{094D}\x{1E82F}\x{E0B29}\x{200D}。-\x{10E7B}", %p)}, undef, "to_unicode\(\'\\u094D\\uD83A\\uDC2F\\uDB42\\uDF29\\u200D。\-\\uD803\\uDE7B\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:4552\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{094D}\x{1E82F}\x{E0B29}\x{200D}。-\x{10E7B}", %p)}, undef, "to_unicode\(\'\\u094D\\uD83A\\uDC2F\\uDB42\\uDF29\\u200D。\-\\uD803\\uDE7B\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:4553\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{094D}\x{1E82F}\x{E0B29}\x{200D}。-\x{10E7B}", %p)}, undef, "to_unicode\(\'\\u094D\\uD83A\\uDC2F\\uDB42\\uDF29\\u200D\。\-\\uD803\\uDE7B\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:4554\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{094D}\x{1E82F}\x{E0B29}\x{200D}。-\x{10E7B}", %p)}, undef, "to_unicode\(\'\\u094D\\uD83A\\uDC2F\\uDB42\\uDF29\\u200D\。\-\\uD803\\uDE7B\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:4555\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{B97A0}。\x{07D4}︒쯙𝟳", %p)}, undef, "to_unicode\(\'\\uDAA5\\uDFA0。\\u07D4︒쯙𝟳\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4556\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{B97A0}。\x{07D4}︒쯙𝟳", %p)}, undef, "to_unicode\(\'\\uDAA5\\uDFA0。\\u07D4︒쯙𝟳\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4557\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{B97A0}。\x{07D4}。쯙7", %p)}, undef, "to_unicode\(\'\\uDAA5\\uDFA0\。\\u07D4\。쯙7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4558\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{B97A0}。\x{07D4}。쯙7", %p)}, undef, "to_unicode\(\'\\uDAA5\\uDFA0\。\\u07D4\。쯙7\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4559\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡀ-。\x{0850}≮뻐", %p)}, undef, "to_unicode\(\'ꡀ\-\。\\u0850\≮뻐\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4560\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡀ-。\x{0850}<\x{0338}뻐", %p)}, undef, "to_unicode\(\'ꡀ\-\。\\u0850\<\\u0338뻐\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4561\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1E91F}-\x{6EC7F}.\x{077C}≠", %p)}, undef, "to_unicode\(\'\\uD83A\\uDD1F\-\\uD97B\\uDC7F.\\u077C\≠\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4562\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1E91F}-\x{6EC7F}.\x{077C}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uD83A\\uDD1F\-\\uD97B\\uDC7F.\\u077C\=\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4563\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1E91F}-\x{6EC7F}.\x{077C}≠", %p)}, undef, "to_unicode\(\'\\uD83A\\uDD1F\-\\uD97B\\uDC7F\.\\u077C\≠\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4564\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1E91F}-\x{6EC7F}.\x{077C}=\x{0338}", %p)}, undef, "to_unicode\(\'\\uD83A\\uDD1F\-\\uD97B\\uDC7F\.\\u077C\=\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4565\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{41233}ςႼ.\x{10E7A}", %p)}, undef, "to_unicode\(\'\-\\uD8C4\\uDE33ςႼ.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4566\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{41233}ςႼ.\x{10E7A}", %p)}, undef, "to_unicode\(\'\-\\uD8C4\\uDE33ςႼ\.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4567\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{41233}ςⴜ.\x{10E7A}", %p)}, undef, "to_unicode\(\'\-\\uD8C4\\uDE33ςⴜ\.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4568\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{41233}ΣႼ.\x{10E7A}", %p)}, undef, "to_unicode\(\'\-\\uD8C4\\uDE33ΣႼ\.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4569\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{41233}σⴜ.\x{10E7A}", %p)}, undef, "to_unicode\(\'\-\\uD8C4\\uDE33σⴜ\.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4570\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{41233}Σⴜ.\x{10E7A}", %p)}, undef, "to_unicode\(\'\-\\uD8C4\\uDE33Σⴜ\.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4571\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{41233}ςⴜ.\x{10E7A}", %p)}, undef, "to_unicode\(\'\-\\uD8C4\\uDE33ςⴜ.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4572\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{41233}ΣႼ.\x{10E7A}", %p)}, undef, "to_unicode\(\'\-\\uD8C4\\uDE33ΣႼ.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4573\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{41233}σⴜ.\x{10E7A}", %p)}, undef, "to_unicode\(\'\-\\uD8C4\\uDE33σⴜ.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4574\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{41233}Σⴜ.\x{10E7A}", %p)}, undef, "to_unicode\(\'\-\\uD8C4\\uDE33Σⴜ.\\uD803\\uDE7A\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4575\]") 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{116B2}.\x{200D}𝟐\x{1112A}", %p)}, undef, "to_unicode\(\'\\uD805\\uDEB2\.\\u200D𝟐\\uD804\\uDD2A\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4576\]") 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{116B2}.\x{200D}𝟐\x{1112A}", %p)}, undef, "to_unicode\(\'\\uD805\\uDEB2\.\\u200D𝟐\\uD804\\uDD2A\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4577\]") 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{116B2}.\x{200D}2\x{1112A}", %p)}, undef, "to_unicode\(\'\\uD805\\uDEB2\.\\u200D2\\uD804\\uDD2A\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4578\]") 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{116B2}.\x{200D}2\x{1112A}", %p)}, undef, "to_unicode\(\'\\uD805\\uDEB2\.\\u200D2\\uD804\\uDD2A\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4579\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("≯𝟎。\x{0D4D}ꡭ\x{B1DF6}", %p)}, undef, "to_unicode\(\'\≯𝟎。\\u0D4Dꡭ\\uDA87\\uDDF6\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4580\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}𝟎。\x{0D4D}ꡭ\x{B1DF6}", %p)}, undef, "to_unicode\(\'\>\\u0338𝟎。\\u0D4Dꡭ\\uDA87\\uDDF6\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4581\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯0。\x{0D4D}ꡭ\x{B1DF6}", %p)}, undef, "to_unicode\(\'\≯0\。\\u0D4Dꡭ\\uDA87\\uDDF6\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4582\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}0。\x{0D4D}ꡭ\x{B1DF6}", %p)}, undef, "to_unicode\(\'\>\\u03380\。\\u0D4Dꡭ\\uDA87\\uDDF6\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4583\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0746}Ↄ\x{0666}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u0746Ↄ\\u0666。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4584\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0746}Ↄ\x{0666}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u0746Ↄ\\u0666。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4585\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0746}Ↄ\x{0666}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u0746Ↄ\\u0666\。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4586\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0746}Ↄ\x{0666}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u0746Ↄ\\u0666\。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4587\]") 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{0746}ↄ\x{0666}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u0746ↄ\\u0666\。\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4588\]") 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{0746}ↄ\x{0666}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u0746ↄ\\u0666\。\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4589\]") 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{0746}ↄ\x{0666}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u0746ↄ\\u0666。\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4590\]") 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{0746}ↄ\x{0666}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u0746ↄ\\u0666。\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4591\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{E0031}𝟼\x{200D}\x{10CF0}.\x{200D}ꡥ⒈", %p)}, undef, "to_unicode\(\'\\uDB40\\uDC31𝟼\\u200D\\uD803\\uDCF0\.\\u200Dꡥ⒈\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4592\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0031}𝟼\x{200D}\x{10CF0}.\x{200D}ꡥ⒈", %p)}, undef, "to_unicode\(\'\\uDB40\\uDC31𝟼\\u200D\\uD803\\uDCF0\.\\u200Dꡥ⒈\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4593\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0031}6\x{200D}\x{10CF0}.\x{200D}ꡥ1.", %p)}, undef, "to_unicode\(\'\\uDB40\\uDC316\\u200D\\uD803\\uDCF0\.\\u200Dꡥ1\.\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4594\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0031}6\x{200D}\x{10CF0}.\x{200D}ꡥ1.", %p)}, undef, "to_unicode\(\'\\uDB40\\uDC316\\u200D\\uD803\\uDCF0\.\\u200Dꡥ1\.\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4595\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0C4D}。嬶ß葽", %p)}, undef, "to_unicode\(\'\\u0C4D\。嬶ß葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4596\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0C4D}。嬶SS葽", %p)}, undef, "to_unicode\(\'\\u0C4D\。嬶SS葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4597\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0C4D}。嬶ss葽", %p)}, undef, "to_unicode\(\'\\u0C4D\。嬶ss葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4598\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0C4D}。嬶Ss葽", %p)}, undef, "to_unicode\(\'\\u0C4D\。嬶Ss葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4599\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{ABED}⒈。\x{3F3D1}\x{0665}", %p)}, undef, "to_unicode\(\'\\uABED⒈\。\\uD8BC\\uDFD1\\u0665\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4600\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{ABED}1.。\x{3F3D1}\x{0665}", %p)}, undef, "to_unicode\(\'\\uABED1\.\。\\uD8BC\\uDFD1\\u0665\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:4601\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B34}︒≮.\x{9A5E5}\x{1096E}\x{FDA5}", %p)}, undef, "to_unicode\(\'\\u1B34︒\≮.\\uDA29\\uDDE5\\uD802\\uDD6E\\uFDA5\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4602\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B34}︒<\x{0338}.\x{9A5E5}\x{1096E}\x{FDA5}", %p)}, undef, "to_unicode\(\'\\u1B34︒\<\\u0338.\\uDA29\\uDDE5\\uD802\\uDD6E\\uFDA5\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4603\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B34}。≮.\x{9A5E5}\x{1096E}\x{062C}\x{0645}\x{064A}", %p)}, undef, "to_unicode\(\'\\u1B34\。\≮\.\\uDA29\\uDDE5\\uD802\\uDD6E\\u062C\\u0645\\u064A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4604\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B34}。<\x{0338}.\x{9A5E5}\x{1096E}\x{062C}\x{0645}\x{064A}", %p)}, undef, "to_unicode\(\'\\u1B34\。\<\\u0338\.\\uDA29\\uDDE5\\uD802\\uDD6E\\u062C\\u0645\\u064A\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4605\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0104}\x{10E6A}\x{8316D}.\x{E0BD8}ς\x{A2737}\x{C58AB}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD04\\uD803\\uDE6A\\uD9CC\\uDD6D\.\\uDB42\\uDFD8ς\\uDA49\\uDF37\\uDAD6\\uDCAB\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4606\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0104}\x{10E6A}\x{8316D}.\x{E0BD8}Σ\x{A2737}\x{C58AB}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD04\\uD803\\uDE6A\\uD9CC\\uDD6D\.\\uDB42\\uDFD8Σ\\uDA49\\uDF37\\uDAD6\\uDCAB\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4607\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0104}\x{10E6A}\x{8316D}.\x{E0BD8}σ\x{A2737}\x{C58AB}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD04\\uD803\\uDE6A\\uD9CC\\uDD6D\.\\uDB42\\uDFD8σ\\uDA49\\uDF37\\uDAD6\\uDCAB\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4608\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_unicode\(\'ς\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4609\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_unicode\(\'ς\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4610\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_unicode\(\'ς\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4611\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_unicode\(\'ς\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4612\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_unicode\(\'ς\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4613\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_unicode\(\'ς\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4614\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_unicode\(\'ς\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4615\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_unicode\(\'ς\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4616\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_unicode\(\'Σ\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4617\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_unicode\(\'Σ\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4618\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_unicode\(\'Σ\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4619\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_unicode\(\'Σ\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4620\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_unicode\(\'σ\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4621\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_unicode\(\'σ\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4622\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_unicode\(\'σ\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4623\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{0FB3}\x{0F71}\x{0F80}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_unicode\(\'σ\\u0FB3\\u0F71\\u0F80\\uDA57\\uDD68\\u0BCD\。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4624\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_unicode\(\'Σ\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4625\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_unicode\(\'Σ\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4626\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_unicode\(\'Σ\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4627\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_unicode\(\'Σ\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4628\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_unicode\(\'σ\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4629\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0625}", %p)}, undef, "to_unicode\(\'σ\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0625\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4630\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_unicode\(\'σ\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4631\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{0F79}\x{A5D68}\x{0BCD}。\x{FD47}\x{200C}\x{0627}\x{0655}", %p)}, undef, "to_unicode\(\'σ\\u0F79\\uDA57\\uDD68\\u0BCD。\\uFD47\\u200C\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4632\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{E6D78}。-\x{1EBD6}\x{06BE}", %p)}, undef, "to_unicode\(\'\-\\uDB5B\\uDD78。\-\\uD83A\\uDFD6\\u06BE\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4633\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{E6D78}。-\x{1EBD6}\x{06BE}", %p)}, undef, "to_unicode\(\'\-\\uDB5B\\uDD78\。\-\\uD83A\\uDFD6\\u06BE\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4634\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⽶\x{45520}𝟵。\x{200D}\x{05AB}", %p)}, undef, "to_unicode\(\'⽶\\uD8D5\\uDD20𝟵。\\u200D\\u05AB\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4635\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⽶\x{45520}𝟵。\x{200D}\x{05AB}", %p)}, undef, "to_unicode\(\'⽶\\uD8D5\\uDD20𝟵。\\u200D\\u05AB\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4636\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("米\x{45520}9。\x{200D}\x{05AB}", %p)}, undef, "to_unicode\(\'米\\uD8D5\\uDD209\。\\u200D\\u05AB\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4637\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("米\x{45520}9。\x{200D}\x{05AB}", %p)}, undef, "to_unicode\(\'米\\uD8D5\\uDD209\。\\u200D\\u05AB\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4638\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CF8}\x{200D}\x{08F0}\x{10E6F}。𫀎", %p)}, undef, "to_unicode\(\'\\u0CF8\\u200D\\u08F0\\uD803\\uDE6F。𫀎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4639\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CF8}\x{200D}\x{08F0}\x{10E6F}。𫀎", %p)}, undef, "to_unicode\(\'\\u0CF8\\u200D\\u08F0\\uD803\\uDE6F。𫀎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4640\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CF8}\x{200D}\x{08F0}\x{10E6F}。𫀎", %p)}, undef, "to_unicode\(\'\\u0CF8\\u200D\\u08F0\\uD803\\uDE6F\。𫀎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4641\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CF8}\x{200D}\x{08F0}\x{10E6F}。𫀎", %p)}, undef, "to_unicode\(\'\\u0CF8\\u200D\\u08F0\\uD803\\uDE6F\。𫀎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4642\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E68}.Ⴍ🄁𝟰", %p)}, undef, "to_unicode\(\'\\uD803\\uDE68.Ⴍ🄁𝟰\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4643\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E68}.Ⴍ0,4", %p)}, undef, "to_unicode\(\'\\uD803\\uDE68\.Ⴍ0\,4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4644\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E68}.ⴍ0,4", %p)}, undef, "to_unicode\(\'\\uD803\\uDE68\.ⴍ0\,4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4645\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E68}.ⴍ🄁𝟰", %p)}, undef, "to_unicode\(\'\\uD803\\uDE68.ⴍ🄁𝟰\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4646\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。ß\x{10E7D}3≯", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8。ß\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4647\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。ß\x{10E7D}3≯", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8。ß\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4648\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。ß\x{10E7D}3>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8。ß\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4649\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。ß\x{10E7D}3>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8。ß\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4650\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。ß\x{10E7D}3≯", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8\。ß\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4651\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。ß\x{10E7D}3≯", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8\。ß\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4652\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。ß\x{10E7D}3>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8\。ß\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4653\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。ß\x{10E7D}3>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8\。ß\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4654\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。SS\x{10E7D}3>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8\。SS\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4655\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。SS\x{10E7D}3>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8\。SS\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4656\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。SS\x{10E7D}3≯", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8\。SS\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4657\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。SS\x{10E7D}3≯", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8\。SS\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4658\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。ss\x{10E7D}3≯", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8\。ss\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4659\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。ss\x{10E7D}3≯", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8\。ss\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4660\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。ss\x{10E7D}3>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8\。ss\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4661\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。ss\x{10E7D}3>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8\。ss\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4662\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。Ss\x{10E7D}3>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8\。Ss\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4663\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。Ss\x{10E7D}3>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8\。Ss\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4664\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。Ss\x{10E7D}3≯", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8\。Ss\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4665\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。Ss\x{10E7D}3≯", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8\。Ss\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4666\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。SS\x{10E7D}3>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8。SS\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4667\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。SS\x{10E7D}3>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8。SS\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4668\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。SS\x{10E7D}3≯", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8。SS\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4669\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。SS\x{10E7D}3≯", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8。SS\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4670\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。ss\x{10E7D}3≯", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8。ss\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4671\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。ss\x{10E7D}3≯", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8。ss\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4672\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。ss\x{10E7D}3>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8。ss\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4673\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。ss\x{10E7D}3>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8。ss\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4674\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。Ss\x{10E7D}3>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8。Ss\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4675\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。Ss\x{10E7D}3>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8。Ss\\uD803\\uDE7D3\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4676\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。Ss\x{10E7D}3≯", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8。Ss\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4677\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{AAB8}。Ss\x{10E7D}3≯", %p)}, undef, "to_unicode\(\'\\u200C\\uAAB8。Ss\\uD803\\uDE7D3\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4678\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10D62}\x{06A4}.\x{FB0C6}", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDD62\\u06A4.\\uDBAC\\uDCC6\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4679\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10D62}\x{06A4}.\x{FB0C6}", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDD62\\u06A4.\\uDBAC\\uDCC6\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4680\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10D62}\x{06A4}.\x{FB0C6}", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDD62\\u06A4\.\\uDBAC\\uDCC6\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4681\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{10D62}\x{06A4}.\x{FB0C6}", %p)}, undef, "to_unicode\(\'\\u200C\\uD803\\uDD62\\u06A4\.\\uDBAC\\uDCC6\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4682\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{071D}\x{BE21D}-\x{C072C}。⫲Ⴛ\x{10A5B}\x{09E3}", %p)}, undef, "to_unicode\(\'\\u071D\\uDAB8\\uDE1D\-\\uDAC1\\uDF2C\。\⫲Ⴛ\\uD802\\uDE5B\\u09E3\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4683\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{071D}\x{BE21D}-\x{C072C}。⫲ⴛ\x{10A5B}\x{09E3}", %p)}, undef, "to_unicode\(\'\\u071D\\uDAB8\\uDE1D\-\\uDAC1\\uDF2C\。\⫲ⴛ\\uD802\\uDE5B\\u09E3\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4684\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0176}。\x{E097C}\x{05AB}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD76\。\\uDB42\\uDD7C\\u05AB\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4685\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾛\x{08A6}.Ⴕ\x{10DB7}\x{0602}\x{200D}", %p)}, undef, "to_unicode\(\'⾛\\u08A6\.Ⴕ\\uD803\\uDDB7\\u0602\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4686\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾛\x{08A6}.Ⴕ\x{10DB7}\x{0602}\x{200D}", %p)}, undef, "to_unicode\(\'⾛\\u08A6\.Ⴕ\\uD803\\uDDB7\\u0602\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4687\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("走\x{08A6}.Ⴕ\x{10DB7}\x{0602}\x{200D}", %p)}, undef, "to_unicode\(\'走\\u08A6\.Ⴕ\\uD803\\uDDB7\\u0602\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4688\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("走\x{08A6}.Ⴕ\x{10DB7}\x{0602}\x{200D}", %p)}, undef, "to_unicode\(\'走\\u08A6\.Ⴕ\\uD803\\uDDB7\\u0602\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4689\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("走\x{08A6}.ⴕ\x{10DB7}\x{0602}\x{200D}", %p)}, undef, "to_unicode\(\'走\\u08A6\.ⴕ\\uD803\\uDDB7\\u0602\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4690\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("走\x{08A6}.ⴕ\x{10DB7}\x{0602}\x{200D}", %p)}, undef, "to_unicode\(\'走\\u08A6\.ⴕ\\uD803\\uDDB7\\u0602\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4691\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾛\x{08A6}.ⴕ\x{10DB7}\x{0602}\x{200D}", %p)}, undef, "to_unicode\(\'⾛\\u08A6\.ⴕ\\uD803\\uDDB7\\u0602\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4692\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾛\x{08A6}.ⴕ\x{10DB7}\x{0602}\x{200D}", %p)}, undef, "to_unicode\(\'⾛\\u08A6\.ⴕ\\uD803\\uDDB7\\u0602\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4693\]") 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{0AE3}", %p)}, undef, "to_unicode\(\'\-ꡩ\\u200C𝟺\.\\u0AE3\'\)\ throws\ error\ V3\ V5\ C1\ \[data\/IdnaTest\.txt\:4694\]") 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{0AE3}", %p)}, undef, "to_unicode\(\'\-ꡩ\\u200C𝟺\.\\u0AE3\'\)\ throws\ error\ V3\ V5\ C1\ \[data\/IdnaTest\.txt\:4695\]") 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}4.\x{0AE3}", %p)}, undef, "to_unicode\(\'\-ꡩ\\u200C4\.\\u0AE3\'\)\ throws\ error\ V3\ V5\ C1\ \[data\/IdnaTest\.txt\:4696\]") 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}4.\x{0AE3}", %p)}, undef, "to_unicode\(\'\-ꡩ\\u200C4\.\\u0AE3\'\)\ throws\ error\ V3\ V5\ C1\ \[data\/IdnaTest\.txt\:4697\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("≠\x{FCDC}\x{44F53}\x{200C}.Ⴚ\x{83BA7}", %p)}, undef, "to_unicode\(\'\≠\\uFCDC\\uD8D3\\uDF53\\u200C\.Ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4698\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠\x{FCDC}\x{44F53}\x{200C}.Ⴚ\x{83BA7}", %p)}, undef, "to_unicode\(\'\≠\\uFCDC\\uD8D3\\uDF53\\u200C\.Ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4699\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{FCDC}\x{44F53}\x{200C}.Ⴚ\x{83BA7}", %p)}, undef, "to_unicode\(\'\=\\u0338\\uFCDC\\uD8D3\\uDF53\\u200C\.Ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4700\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{FCDC}\x{44F53}\x{200C}.Ⴚ\x{83BA7}", %p)}, undef, "to_unicode\(\'\=\\u0338\\uFCDC\\uD8D3\\uDF53\\u200C\.Ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4701\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠\x{064A}\x{062E}\x{44F53}\x{200C}.Ⴚ\x{83BA7}", %p)}, undef, "to_unicode\(\'\≠\\u064A\\u062E\\uD8D3\\uDF53\\u200C\.Ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4702\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠\x{064A}\x{062E}\x{44F53}\x{200C}.Ⴚ\x{83BA7}", %p)}, undef, "to_unicode\(\'\≠\\u064A\\u062E\\uD8D3\\uDF53\\u200C\.Ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4703\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{064A}\x{062E}\x{44F53}\x{200C}.Ⴚ\x{83BA7}", %p)}, undef, "to_unicode\(\'\=\\u0338\\u064A\\u062E\\uD8D3\\uDF53\\u200C\.Ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4704\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{064A}\x{062E}\x{44F53}\x{200C}.Ⴚ\x{83BA7}", %p)}, undef, "to_unicode\(\'\=\\u0338\\u064A\\u062E\\uD8D3\\uDF53\\u200C\.Ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4705\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{064A}\x{062E}\x{44F53}\x{200C}.ⴚ\x{83BA7}", %p)}, undef, "to_unicode\(\'\=\\u0338\\u064A\\u062E\\uD8D3\\uDF53\\u200C\.ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4706\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{064A}\x{062E}\x{44F53}\x{200C}.ⴚ\x{83BA7}", %p)}, undef, "to_unicode\(\'\=\\u0338\\u064A\\u062E\\uD8D3\\uDF53\\u200C\.ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4707\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠\x{064A}\x{062E}\x{44F53}\x{200C}.ⴚ\x{83BA7}", %p)}, undef, "to_unicode\(\'\≠\\u064A\\u062E\\uD8D3\\uDF53\\u200C\.ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4708\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠\x{064A}\x{062E}\x{44F53}\x{200C}.ⴚ\x{83BA7}", %p)}, undef, "to_unicode\(\'\≠\\u064A\\u062E\\uD8D3\\uDF53\\u200C\.ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4709\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{FCDC}\x{44F53}\x{200C}.ⴚ\x{83BA7}", %p)}, undef, "to_unicode\(\'\=\\u0338\\uFCDC\\uD8D3\\uDF53\\u200C\.ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4710\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{FCDC}\x{44F53}\x{200C}.ⴚ\x{83BA7}", %p)}, undef, "to_unicode\(\'\=\\u0338\\uFCDC\\uD8D3\\uDF53\\u200C\.ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4711\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠\x{FCDC}\x{44F53}\x{200C}.ⴚ\x{83BA7}", %p)}, undef, "to_unicode\(\'\≠\\uFCDC\\uD8D3\\uDF53\\u200C\.ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4712\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠\x{FCDC}\x{44F53}\x{200C}.ⴚ\x{83BA7}", %p)}, undef, "to_unicode\(\'\≠\\uFCDC\\uD8D3\\uDF53\\u200C\.ⴚ\\uD9CE\\uDFA7\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4713\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7E}。\x{A6F0}\x{17D1}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE7E。\\uA6F0\\u17D1\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4714\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7E}。\x{A6F0}\x{17D1}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE7E\。\\uA6F0\\u17D1\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4715\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{10A02}\x{FC22}≯۹。-", %p)}, undef, "to_unicode\(\'\\uD802\\uDE02\\uFC22\≯۹\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4716\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A02}\x{FC22}>\x{0338}۹。-", %p)}, undef, "to_unicode\(\'\\uD802\\uDE02\\uFC22\>\\u0338۹\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4717\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A02}\x{0636}\x{062C}≯۹。-", %p)}, undef, "to_unicode\(\'\\uD802\\uDE02\\u0636\\u062C\≯۹\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4718\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A02}\x{0636}\x{062C}>\x{0338}۹。-", %p)}, undef, "to_unicode\(\'\\uD802\\uDE02\\u0636\\u062C\>\\u0338۹\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4719\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{17B4}.쮇-", %p)}, undef, "to_unicode\(\'\\u17B4\.쮇\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4720\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{17B4}.쮇-", %p)}, undef, "to_unicode\(\'\\u17B4\.쮇\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4721\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{103A}。⒈-\x{5DED9}", %p)}, undef, "to_unicode\(\'\\u200C\\u103A\。⒈\-\\uD937\\uDED9\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4722\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{103A}。⒈-\x{5DED9}", %p)}, undef, "to_unicode\(\'\\u200C\\u103A\。⒈\-\\uD937\\uDED9\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4723\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{103A}。1.-\x{5DED9}", %p)}, undef, "to_unicode\(\'\\u200C\\u103A\。1\.\-\\uD937\\uDED9\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4724\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{103A}。1.-\x{5DED9}", %p)}, undef, "to_unicode\(\'\\u200C\\u103A\。1\.\-\\uD937\\uDED9\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4725\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{1088F}\x{200C}。\x{06E3}⅗\x{200C}\x{E015A}", %p)}, undef, "to_unicode\(\'⒈\\uD802\\uDC8F\\u200C\。\\u06E3⅗\\u200C\\uDB40\\uDD5A\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4726\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{1088F}\x{200C}。\x{06E3}⅗\x{200C}\x{E015A}", %p)}, undef, "to_unicode\(\'⒈\\uD802\\uDC8F\\u200C\。\\u06E3⅗\\u200C\\uDB40\\uDD5A\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4727\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{1088F}\x{200C}。\x{06E3}3⁄5\x{200C}\x{E015A}", %p)}, undef, "to_unicode\(\'1\.\\uD802\\uDC8F\\u200C\。\\u06E33\⁄5\\u200C\\uDB40\\uDD5A\'\)\ throws\ error\ P1\ V6\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:4728\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{1088F}\x{200C}。\x{06E3}3⁄5\x{200C}\x{E015A}", %p)}, undef, "to_unicode\(\'1\.\\uD802\\uDC8F\\u200C\。\\u06E33\⁄5\\u200C\\uDB40\\uDD5A\'\)\ throws\ error\ P1\ V6\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:4729\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{9FE5D}。۶\x{1B3A}\x{06BC}", %p)}, undef, "to_unicode\(\'\\uDA3F\\uDE5D。۶\\u1B3A\\u06BC\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4730\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{9FE5D}。۶\x{1B3A}\x{06BC}", %p)}, undef, "to_unicode\(\'\\uDA3F\\uDE5D\。۶\\u1B3A\\u06BC\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4731\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0894}\x{D3408}.ς\x{200D}\x{0660}", %p)}, undef, "to_unicode\(\'\\u0894\\uDB0D\\uDC08\.ς\\u200D\\u0660\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4732\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0894}\x{D3408}.ς\x{200D}\x{0660}", %p)}, undef, "to_unicode\(\'\\u0894\\uDB0D\\uDC08\.ς\\u200D\\u0660\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4733\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0894}\x{D3408}.Σ\x{200D}\x{0660}", %p)}, undef, "to_unicode\(\'\\u0894\\uDB0D\\uDC08\.Σ\\u200D\\u0660\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4734\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0894}\x{D3408}.Σ\x{200D}\x{0660}", %p)}, undef, "to_unicode\(\'\\u0894\\uDB0D\\uDC08\.Σ\\u200D\\u0660\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4735\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0894}\x{D3408}.σ\x{200D}\x{0660}", %p)}, undef, "to_unicode\(\'\\u0894\\uDB0D\\uDC08\.σ\\u200D\\u0660\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4736\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0894}\x{D3408}.σ\x{200D}\x{0660}", %p)}, undef, "to_unicode\(\'\\u0894\\uDB0D\\uDC08\.σ\\u200D\\u0660\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4737\]") 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("7\x{0847}\x{10E62}。\x{10A3F}𝟡\x{1C2E}", %p)}, undef, "to_unicode\(\'7\\u0847\\uD803\\uDE62。\\uD802\\uDE3F𝟡\\u1C2E\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4738\]") 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("7\x{0847}\x{10E62}。\x{10A3F}9\x{1C2E}", %p)}, undef, "to_unicode\(\'7\\u0847\\uD803\\uDE62\。\\uD802\\uDE3F9\\u1C2E\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4739\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("-ꡘ᠆\x{62531}。\x{0667}\x{E016E}\x{10E69}", %p)}, undef, "to_unicode\(\'\-ꡘ᠆\\uD949\\uDD31\。\\u0667\\uDB40\\uDD6E\\uD803\\uDE69\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4740\]") 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{06B4}\x{0668}\x{A949}", %p)}, undef, "to_unicode\(\'\\u200D\.\\u06B4\\u0668\\uA949\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4741\]") 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{06B4}\x{0668}\x{A949}", %p)}, undef, "to_unicode\(\'\\u200D\.\\u06B4\\u0668\\uA949\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4742\]") 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--hib5mm619b", %p)}, "\x{06B4}\x{0668}\x{A949}", "to_unicode\(\'xn\-\-hib5mm619b\'\)\ \[data\/IdnaTest\.txt\:4743\]") 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{06B4}\x{0668}\x{A949}", %p)}, "\x{06B4}\x{0668}\x{A949}", "to_unicode\(\'\\u06B4\\u0668\\uA949\'\)\ \[data\/IdnaTest\.txt\:4744\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("㒧𝟬.Ⴚ\x{076F}\x{200D}", %p)}, undef, "to_unicode\(\'㒧𝟬\.Ⴚ\\u076F\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4745\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㒧𝟬.Ⴚ\x{076F}\x{200D}", %p)}, undef, "to_unicode\(\'㒧𝟬\.Ⴚ\\u076F\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4746\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㒧0.Ⴚ\x{076F}\x{200D}", %p)}, undef, "to_unicode\(\'㒧0\.Ⴚ\\u076F\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4747\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㒧0.Ⴚ\x{076F}\x{200D}", %p)}, undef, "to_unicode\(\'㒧0\.Ⴚ\\u076F\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4748\]") 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("㒧0.ⴚ\x{076F}\x{200D}", %p)}, undef, "to_unicode\(\'㒧0\.ⴚ\\u076F\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4749\]") 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("㒧0.ⴚ\x{076F}\x{200D}", %p)}, undef, "to_unicode\(\'㒧0\.ⴚ\\u076F\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4750\]") 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{076F}\x{200D}", %p)}, undef, "to_unicode\(\'㒧𝟬\.ⴚ\\u076F\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4751\]") 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{076F}\x{200D}", %p)}, undef, "to_unicode\(\'㒧𝟬\.ⴚ\\u076F\\u200D\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4752\]") 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{0487}\x{06C9}-.-\x{20EE}", %p)}, undef, "to_unicode\(\'\\u0487\\u06C9\-.\-\\u20EE\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:4753\]") 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{0487}\x{06C9}-.-\x{20EE}", %p)}, undef, "to_unicode\(\'\\u0487\\u06C9\-\.\-\\u20EE\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:4754\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{CC583}-\x{E0CF9}\x{200C}.标-", %p)}, undef, "to_unicode\(\'\\uDAF1\\uDD83\-\\uDB43\\uDCF9\\u200C.标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4755\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{CC583}-\x{E0CF9}\x{200C}.标-", %p)}, undef, "to_unicode\(\'\\uDAF1\\uDD83\-\\uDB43\\uDCF9\\u200C.标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4756\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{CC583}-\x{E0CF9}\x{200C}.标-", %p)}, undef, "to_unicode\(\'\\uDAF1\\uDD83\-\\uDB43\\uDCF9\\u200C\.标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4757\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{CC583}-\x{E0CF9}\x{200C}.标-", %p)}, undef, "to_unicode\(\'\\uDAF1\\uDD83\-\\uDB43\\uDCF9\\u200C\.标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4758\]") 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{07D1}.ςꡇ", %p)}, "\x{07D1}.ςꡇ", "to_unicode\(\'\\u07D1.ςꡇ\'\)\ \[data\/IdnaTest\.txt\:4759\]") 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{07D1}.ςꡇ", %p)}, "\x{07D1}.ςꡇ", "to_unicode\(\'\\u07D1.ςꡇ\'\)\ \[data\/IdnaTest\.txt\:4760\]") 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{07D1}.ςꡇ", %p)}, "\x{07D1}.ςꡇ", "to_unicode\(\'\\u07D1\.ςꡇ\'\)\ \[data\/IdnaTest\.txt\:4761\]") 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{07D1}.ςꡇ", %p)}, "\x{07D1}.ςꡇ", "to_unicode\(\'\\u07D1\.ςꡇ\'\)\ \[data\/IdnaTest\.txt\:4762\]") 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{07D1}.Σꡇ", %p)}, "\x{07D1}.σꡇ", "to_unicode\(\'\\u07D1\.Σꡇ\'\)\ \[data\/IdnaTest\.txt\:4763\]") 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{07D1}.σꡇ", %p)}, "\x{07D1}.σꡇ", "to_unicode\(\'\\u07D1\.σꡇ\'\)\ \[data\/IdnaTest\.txt\:4764\]") 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--ssb.xn--4xa6435f", %p)}, "\x{07D1}.σꡇ", "to_unicode\(\'xn\-\-ssb\.xn\-\-4xa6435f\'\)\ \[data\/IdnaTest\.txt\:4765\]") 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--ssb.xn--3xa8435f", %p)}, "\x{07D1}.ςꡇ", "to_unicode\(\'xn\-\-ssb\.xn\-\-3xa8435f\'\)\ \[data\/IdnaTest\.txt\:4766\]") 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{07D1}.Σꡇ", %p)}, "\x{07D1}.σꡇ", "to_unicode\(\'\\u07D1.Σꡇ\'\)\ \[data\/IdnaTest\.txt\:4767\]") 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{07D1}.σꡇ", %p)}, "\x{07D1}.σꡇ", "to_unicode\(\'\\u07D1.σꡇ\'\)\ \[data\/IdnaTest\.txt\:4768\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{E14E8}\x{10E70}.\x{1ECC1}\x{200D}\x{1BF3}\x{7B784}", %p)}, undef, "to_unicode\(\'\\uDB45\\uDCE8\\uD803\\uDE70.\\uD83B\\uDCC1\\u200D\\u1BF3\\uD9AD\\uDF84\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4769\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E14E8}\x{10E70}.\x{1ECC1}\x{200D}\x{1BF3}\x{7B784}", %p)}, undef, "to_unicode\(\'\\uDB45\\uDCE8\\uD803\\uDE70.\\uD83B\\uDCC1\\u200D\\u1BF3\\uD9AD\\uDF84\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4770\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E14E8}\x{10E70}.\x{1ECC1}\x{200D}\x{1BF3}\x{7B784}", %p)}, undef, "to_unicode\(\'\\uDB45\\uDCE8\\uD803\\uDE70\.\\uD83B\\uDCC1\\u200D\\u1BF3\\uD9AD\\uDF84\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4771\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E14E8}\x{10E70}.\x{1ECC1}\x{200D}\x{1BF3}\x{7B784}", %p)}, undef, "to_unicode\(\'\\uDB45\\uDCE8\\uD803\\uDE70\.\\uD83B\\uDCC1\\u200D\\u1BF3\\uD9AD\\uDF84\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4772\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0662}¹\x{10EAC}。\x{09CD}", %p)}, undef, "to_unicode\(\'\\u0662¹\\uD803\\uDEAC。\\u09CD\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4773\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0662}1\x{10EAC}。\x{09CD}", %p)}, undef, "to_unicode\(\'\\u06621\\uD803\\uDEAC\。\\u09CD\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4774\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟶\x{1160}\x{0364}\x{E0E27}.\x{4C5BA}锰\x{084B}ς", %p)}, undef, "to_unicode\(\'𝟶\\u1160\\u0364\\uDB43\\uDE27\.\\uD8F1\\uDDBA锰\\u084Bς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4775\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0\x{1160}\x{0364}\x{E0E27}.\x{4C5BA}锰\x{084B}ς", %p)}, undef, "to_unicode\(\'0\\u1160\\u0364\\uDB43\\uDE27\.\\uD8F1\\uDDBA锰\\u084Bς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4776\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0\x{1160}\x{0364}\x{E0E27}.\x{4C5BA}锰\x{084B}Σ", %p)}, undef, "to_unicode\(\'0\\u1160\\u0364\\uDB43\\uDE27\.\\uD8F1\\uDDBA锰\\u084BΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4777\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0\x{1160}\x{0364}\x{E0E27}.\x{4C5BA}锰\x{084B}σ", %p)}, undef, "to_unicode\(\'0\\u1160\\u0364\\uDB43\\uDE27\.\\uD8F1\\uDDBA锰\\u084Bσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4778\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟶\x{1160}\x{0364}\x{E0E27}.\x{4C5BA}锰\x{084B}Σ", %p)}, undef, "to_unicode\(\'𝟶\\u1160\\u0364\\uDB43\\uDE27\.\\uD8F1\\uDDBA锰\\u084BΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4779\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟶\x{1160}\x{0364}\x{E0E27}.\x{4C5BA}锰\x{084B}σ", %p)}, undef, "to_unicode\(\'𝟶\\u1160\\u0364\\uDB43\\uDE27\.\\uD8F1\\uDDBA锰\\u084Bσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4780\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡢ\x{E0046}\x{11AA6}𝟙。\x{10E6E}", %p)}, undef, "to_unicode\(\'ꡢ\\uDB40\\uDC46\\uD806\\uDEA6𝟙。\\uD803\\uDE6E\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4781\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡢ\x{E0046}\x{11AA6}1。\x{10E6E}", %p)}, undef, "to_unicode\(\'ꡢ\\uDB40\\uDC46\\uD806\\uDEA61\。\\uD803\\uDE6E\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4782\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FCF5}.\x{200C}᚜", %p)}, undef, "to_unicode\(\'\\uFCF5.\\u200C᚜\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4783\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FCF5}.\x{200C}᚜", %p)}, undef, "to_unicode\(\'\\uFCF5.\\u200C᚜\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4784\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0637}\x{0649}.\x{200C}᚜", %p)}, undef, "to_unicode\(\'\\u0637\\u0649\.\\u200C᚜\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4785\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0637}\x{0649}.\x{200C}᚜", %p)}, undef, "to_unicode\(\'\\u0637\\u0649\.\\u200C᚜\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4786\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--2gb0b.xn--zve", %p)}, "\x{0637}\x{0649}.᚜", "to_unicode\(\'xn\-\-2gb0b\.xn\-\-zve\'\)\ \[data\/IdnaTest\.txt\:4787\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0637}\x{0649}.᚜", %p)}, "\x{0637}\x{0649}.᚜", "to_unicode\(\'\\u0637\\u0649\.᚜\'\)\ \[data\/IdnaTest\.txt\:4788\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{77779}.\x{2DE5}\x{06A2}-", %p)}, undef, "to_unicode\(\'\-\\uD99D\\uDF79\.\\u2DE5\\u06A2\-\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4789\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🔤\x{200D}\x{103A}.\x{200C}🄂\x{0660}", %p)}, undef, "to_unicode\(\'🔤\\u200D\\u103A.\\u200C🄂\\u0660\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:4790\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🔤\x{200D}\x{103A}.\x{200C}🄂\x{0660}", %p)}, undef, "to_unicode\(\'🔤\\u200D\\u103A.\\u200C🄂\\u0660\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:4791\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🔤\x{200D}\x{103A}.\x{200C}1,\x{0660}", %p)}, undef, "to_unicode\(\'🔤\\u200D\\u103A\.\\u200C1\,\\u0660\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:4792\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🔤\x{200D}\x{103A}.\x{200C}1,\x{0660}", %p)}, undef, "to_unicode\(\'🔤\\u200D\\u103A\.\\u200C1\,\\u0660\'\)\ throws\ error\ P1\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:4793\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒\x{FD99}\x{20D1}\x{FCDD}。岓\x{1039}⚊\x{06B6}", %p)}, undef, "to_unicode\(\'︒\\uFD99\\u20D1\\uFCDD\。岓\\u1039\⚊\\u06B6\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:4794\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。\x{0646}\x{062C}\x{0649}\x{20D1}\x{064A}\x{0645}。岓\x{1039}⚊\x{06B6}", %p)}, undef, "to_unicode\(\'\。\\u0646\\u062C\\u0649\\u20D1\\u064A\\u0645\。岓\\u1039\⚊\\u06B6\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4795\]") 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{066B}。8\x{A953}", %p)}, undef, "to_unicode\(\'\\u066B\。8\\uA953\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4796\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0591}\x{1DCF}.\x{0751}\x{110B9}\x{10E67}\x{E011F}", %p)}, undef, "to_unicode\(\'\\u0591\\u1DCF.\\u0751\\uD804\\uDCB9\\uD803\\uDE67\\uDB40\\uDD1F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4797\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{0591}\x{1DCF}.\x{0751}\x{110B9}\x{10E67}\x{E011F}", %p)}, undef, "to_unicode\(\'\\u0591\\u1DCF\.\\u0751\\uD804\\uDCB9\\uD803\\uDE67\\uDB40\\uDD1F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4798\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{126D1}\x{10E1D}\x{08EE}。\x{E0345}", %p)}, undef, "to_unicode\(\'\\uD809\\uDED1\\uD803\\uDE1D\\u08EE。\\uDB40\\uDF45\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4799\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{126D1}\x{10E1D}\x{08EE}。\x{E0345}", %p)}, undef, "to_unicode\(\'\\uD809\\uDED1\\uD803\\uDE1D\\u08EE\。\\uDB40\\uDF45\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4800\]") 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{0761}.-\x{0CE3}", %p)}, undef, "to_unicode\(\'\\u0761.\-\\u0CE3\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4801\]") 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{0761}.-\x{0CE3}", %p)}, undef, "to_unicode\(\'\\u0761\.\-\\u0CE3\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4802\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{10515F}\x{E0ACB}。\x{0604}\x{10B05}\x{ABED}", %p)}, undef, "to_unicode\(\'\\uDBD4\\uDD5F\\uDB42\\uDECB。\\u0604\\uD802\\uDF05\\uABED\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4803\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10515F}\x{E0ACB}。\x{0604}\x{10B05}\x{ABED}", %p)}, undef, "to_unicode\(\'\\uDBD4\\uDD5F\\uDB42\\uDECB\。\\u0604\\uD802\\uDF05\\uABED\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4804\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴐᠫ.\x{200C}", %p)}, undef, "to_unicode\(\'Ⴐᠫ.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4805\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴐᠫ.\x{200C}", %p)}, undef, "to_unicode\(\'Ⴐᠫ.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4806\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴐᠫ.\x{200C}", %p)}, undef, "to_unicode\(\'Ⴐᠫ\.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4807\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴐᠫ.\x{200C}", %p)}, undef, "to_unicode\(\'Ⴐᠫ\.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4808\]") 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\:4809\]") 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\:4810\]") 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--e7e118h.", %p)}, "ⴐᠫ.", "to_unicode\(\'xn\-\-e7e118h\.\'\)\ \[data\/IdnaTest\.txt\:4811\]") 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\:4812\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴐᠫ.", %p)}, undef, "to_unicode\(\'Ⴐᠫ\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4813\]") 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\:4814\]") 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\:4815\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𝟰\x{E016C}-⒈。\x{200D}\x{0727}ᠹ", %p)}, undef, "to_unicode\(\'𝟰\\uDB40\\uDD6C\-⒈\。\\u200D\\u0727ᠹ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4816\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟰\x{E016C}-⒈。\x{200D}\x{0727}ᠹ", %p)}, undef, "to_unicode\(\'𝟰\\uDB40\\uDD6C\-⒈\。\\u200D\\u0727ᠹ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4817\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{E016C}-1.。\x{200D}\x{0727}ᠹ", %p)}, undef, "to_unicode\(\'4\\uDB40\\uDD6C\-1\.\。\\u200D\\u0727ᠹ\'\)\ throws\ error\ A4_2\ B1\ C2\ \[data\/IdnaTest\.txt\:4818\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{E016C}-1.。\x{200D}\x{0727}ᠹ", %p)}, undef, "to_unicode\(\'4\\uDB40\\uDD6C\-1\.\。\\u200D\\u0727ᠹ\'\)\ throws\ error\ A4_2\ B1\ C2\ \[data\/IdnaTest\.txt\:4819\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{673DD}。\x{0842}\x{5834D}", %p)}, undef, "to_unicode\(\'\\uD95C\\uDFDD\。\\u0842\\uD920\\uDF4D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[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("\x{1BE9}𝟫。ᢟ\x{10E60}\x{E01E8}鄨", %p)}, undef, "to_unicode\(\'\\u1BE9𝟫。ᢟ\\uD803\\uDE60\\uDB40\\uDDE8鄨\'\)\ throws\ error\ V5\ B5\ \[data\/IdnaTest\.txt\:4821\]") 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{1BE9}9。ᢟ\x{10E60}\x{E01E8}鄨", %p)}, undef, "to_unicode\(\'\\u1BE99\。ᢟ\\uD803\\uDE60\\uDB40\\uDDE8鄨\'\)\ throws\ error\ V5\ B5\ \[data\/IdnaTest\.txt\:4822\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{1EF07}-\x{084A}。\x{064D}\x{0A4D}-", %p)}, undef, "to_unicode\(\'\\uD83B\\uDF07\-\\u084A\。\\u064D\\u0A4D\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:4823\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1EF07}-\x{084A}。\x{0A4D}\x{064D}-", %p)}, undef, "to_unicode\(\'\\uD83B\\uDF07\-\\u084A\。\\u0A4D\\u064D\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:4824\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E3A}-\x{6D04B}\x{0944}.ß", %p)}, undef, "to_unicode\(\'\\u0E3A\-\\uD974\\uDC4B\\u0944.ß\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4825\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E3A}-\x{6D04B}\x{0944}.ß", %p)}, undef, "to_unicode\(\'\\u0E3A\-\\uD974\\uDC4B\\u0944\.ß\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4826\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E3A}-\x{6D04B}\x{0944}.SS", %p)}, undef, "to_unicode\(\'\\u0E3A\-\\uD974\\uDC4B\\u0944\.SS\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4827\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E3A}-\x{6D04B}\x{0944}.SS", %p)}, undef, "to_unicode\(\'\\u0E3A\-\\uD974\\uDC4B\\u0944.SS\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4828\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A1C}-\x{200C}。Ⴟ\x{200C}\x{E0451}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE1C\-\\u200C。Ⴟ\\u200C\\uDB41\\uDC51\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4829\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A1C}-\x{200C}。Ⴟ\x{200C}\x{E0451}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE1C\-\\u200C。Ⴟ\\u200C\\uDB41\\uDC51\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4830\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A1C}-\x{200C}。Ⴟ\x{200C}\x{E0451}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE1C\-\\u200C\。Ⴟ\\u200C\\uDB41\\uDC51\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4831\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A1C}-\x{200C}。Ⴟ\x{200C}\x{E0451}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE1C\-\\u200C\。Ⴟ\\u200C\\uDB41\\uDC51\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4832\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A1C}-\x{200C}。ⴟ\x{200C}\x{E0451}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE1C\-\\u200C\。ⴟ\\u200C\\uDB41\\uDC51\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4833\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A1C}-\x{200C}。ⴟ\x{200C}\x{E0451}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE1C\-\\u200C\。ⴟ\\u200C\\uDB41\\uDC51\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4834\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A1C}-\x{200C}。ⴟ\x{200C}\x{E0451}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE1C\-\\u200C。ⴟ\\u200C\\uDB41\\uDC51\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4835\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10A1C}-\x{200C}。ⴟ\x{200C}\x{E0451}", %p)}, undef, "to_unicode\(\'\\uD802\\uDE1C\-\\u200C。ⴟ\\u200C\\uDB41\\uDC51\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4836\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}-\x{200D}\x{200C}。\x{ABA8F}⒐≠", %p)}, undef, "to_unicode\(\'\\u0DCA\-\\u200D\\u200C。\\uDA6E\\uDE8F⒐\≠\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4837\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}-\x{200D}\x{200C}。\x{ABA8F}⒐≠", %p)}, undef, "to_unicode\(\'\\u0DCA\-\\u200D\\u200C。\\uDA6E\\uDE8F⒐\≠\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4838\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}-\x{200D}\x{200C}。\x{ABA8F}⒐=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0DCA\-\\u200D\\u200C。\\uDA6E\\uDE8F⒐\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4839\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}-\x{200D}\x{200C}。\x{ABA8F}⒐=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0DCA\-\\u200D\\u200C。\\uDA6E\\uDE8F⒐\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4840\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}-\x{200D}\x{200C}。\x{ABA8F}9.≠", %p)}, undef, "to_unicode\(\'\\u0DCA\-\\u200D\\u200C\。\\uDA6E\\uDE8F9\.\≠\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4841\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}-\x{200D}\x{200C}。\x{ABA8F}9.≠", %p)}, undef, "to_unicode\(\'\\u0DCA\-\\u200D\\u200C\。\\uDA6E\\uDE8F9\.\≠\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4842\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}-\x{200D}\x{200C}。\x{ABA8F}9.=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0DCA\-\\u200D\\u200C\。\\uDA6E\\uDE8F9\.\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4843\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0DCA}-\x{200D}\x{200C}。\x{ABA8F}9.=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0DCA\-\\u200D\\u200C\。\\uDA6E\\uDE8F9\.\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4844\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{42DC6}。\x{10A3F}\x{E016A}⅋", %p)}, undef, "to_unicode\(\'\\uD8CB\\uDDC6\。\\uD802\\uDE3F\\uDB40\\uDD6A⅋\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4845\]") 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{0682}♥.ᡦ\x{200D}\x{A949}", %p)}, undef, "to_unicode\(\'\\u0682\♥.ᡦ\\u200D\\uA949\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:4846\]") 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{0682}♥.ᡦ\x{200D}\x{A949}", %p)}, undef, "to_unicode\(\'\\u0682\♥.ᡦ\\u200D\\uA949\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:4847\]") 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{0682}♥.ᡦ\x{200D}\x{A949}", %p)}, undef, "to_unicode\(\'\\u0682\♥\.ᡦ\\u200D\\uA949\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:4848\]") 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{0682}♥.ᡦ\x{200D}\x{A949}", %p)}, undef, "to_unicode\(\'\\u0682\♥\.ᡦ\\u200D\\uA949\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:4849\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{10E65}4Ⴅ.\x{FEA2}\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE654Ⴅ.\\uFEA2\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4850\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E65}4Ⴅ.\x{FEA2}\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE654Ⴅ.\\uFEA2\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4851\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E65}4Ⴅ.\x{062D}\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE654Ⴅ\.\\u062D\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4852\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E65}4Ⴅ.\x{062D}\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE654Ⴅ\.\\u062D\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4853\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E65}4ⴅ.\x{062D}\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE654ⴅ\.\\u062D\\u200C\'\)\ throws\ error\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4854\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E65}4ⴅ.\x{062D}\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE654ⴅ\.\\u062D\\u200C\'\)\ throws\ error\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4855\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E65}4ⴅ.\x{FEA2}\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE654ⴅ.\\uFEA2\\u200C\'\)\ throws\ error\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4856\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E65}4ⴅ.\x{FEA2}\x{200C}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE654ⴅ.\\uFEA2\\u200C\'\)\ throws\ error\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4857\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ჁႱ⒕\x{2DF8}。ß\x{E0109}", %p)}, undef, "to_unicode\(\'ჁႱ⒕\\u2DF8\。ß\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4858\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ჁႱ14.\x{2DF8}。ß\x{E0109}", %p)}, undef, "to_unicode\(\'ჁႱ14\.\\u2DF8\。ß\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4859\]") 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("ⴡⴑ14.\x{2DF8}。ß\x{E0109}", %p)}, undef, "to_unicode\(\'ⴡⴑ14\.\\u2DF8\。ß\\uDB40\\uDD09\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4860\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ჁႱ14.\x{2DF8}。SS\x{E0109}", %p)}, undef, "to_unicode\(\'ჁႱ14\.\\u2DF8\。SS\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4861\]") 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("ⴡⴑ14.\x{2DF8}。ss\x{E0109}", %p)}, undef, "to_unicode\(\'ⴡⴑ14\.\\u2DF8\。ss\\uDB40\\uDD09\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4862\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴡⴑ14.\x{2DF8}。Ss\x{E0109}", %p)}, undef, "to_unicode\(\'Ⴡⴑ14\.\\u2DF8\。Ss\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4863\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴡⴑ⒕\x{2DF8}。ß\x{E0109}", %p)}, undef, "to_unicode\(\'ⴡⴑ⒕\\u2DF8\。ß\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4864\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ჁႱ⒕\x{2DF8}。SS\x{E0109}", %p)}, undef, "to_unicode\(\'ჁႱ⒕\\u2DF8\。SS\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4865\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴡⴑ⒕\x{2DF8}。ss\x{E0109}", %p)}, undef, "to_unicode\(\'ⴡⴑ⒕\\u2DF8\。ss\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4866\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴡⴑ⒕\x{2DF8}。Ss\x{E0109}", %p)}, undef, "to_unicode\(\'Ⴡⴑ⒕\\u2DF8\。Ss\\uDB40\\uDD09\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4867\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{8A284}。≯\x{11134}", %p)}, undef, "to_unicode\(\'\\uD9E8\\uDE84。\≯\\uD804\\uDD34\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4868\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{8A284}。>\x{0338}\x{11134}", %p)}, undef, "to_unicode\(\'\\uD9E8\\uDE84。\>\\u0338\\uD804\\uDD34\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4869\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{8A284}。≯\x{11134}", %p)}, undef, "to_unicode\(\'\\uD9E8\\uDE84\。\≯\\uD804\\uDD34\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4870\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{8A284}。>\x{0338}\x{11134}", %p)}, undef, "to_unicode\(\'\\uD9E8\\uDE84\。\>\\u0338\\uD804\\uDD34\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4871\]") 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{065A}𝟬。\x{200C}-\x{A8C4}\x{0668}", %p)}, undef, "to_unicode\(\'\\u065A𝟬\。\\u200C\-\\uA8C4\\u0668\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4872\]") 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{065A}𝟬。\x{200C}-\x{A8C4}\x{0668}", %p)}, undef, "to_unicode\(\'\\u065A𝟬\。\\u200C\-\\uA8C4\\u0668\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4873\]") 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{065A}0。\x{200C}-\x{A8C4}\x{0668}", %p)}, undef, "to_unicode\(\'\\u065A0\。\\u200C\-\\uA8C4\\u0668\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4874\]") 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{065A}0。\x{200C}-\x{A8C4}\x{0668}", %p)}, undef, "to_unicode\(\'\\u065A0\。\\u200C\-\\uA8C4\\u0668\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4875\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{FE21}\x{A826}\x{E07EC}。\x{FFA0}", %p)}, undef, "to_unicode\(\'\\uFE21\\uA826\\uDB41\\uDFEC。\\uFFA0\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4876\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE21}\x{A826}\x{E07EC}。\x{1160}", %p)}, undef, "to_unicode\(\'\\uFE21\\uA826\\uDB41\\uDFEC\。\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4877\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß⒈\x{08A5}\x{10747F}.\x{7F0A8}\x{1D173}\x{10E7B}\x{DA4DD}", %p)}, undef, "to_unicode\(\'ß⒈\\u08A5\\uDBDD\\uDC7F.\\uD9BC\\uDCA8\\uD834\\uDD73\\uD803\\uDE7B\\uDB29\\uDCDD\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4878\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß1.\x{08A5}\x{10747F}.\x{7F0A8}\x{1D173}\x{10E7B}\x{DA4DD}", %p)}, undef, "to_unicode\(\'ß1\.\\u08A5\\uDBDD\\uDC7F\.\\uD9BC\\uDCA8\\uD834\\uDD73\\uD803\\uDE7B\\uDB29\\uDCDD\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:4879\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS1.\x{08A5}\x{10747F}.\x{7F0A8}\x{1D173}\x{10E7B}\x{DA4DD}", %p)}, undef, "to_unicode\(\'SS1\.\\u08A5\\uDBDD\\uDC7F\.\\uD9BC\\uDCA8\\uD834\\uDD73\\uD803\\uDE7B\\uDB29\\uDCDD\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:4880\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS⒈\x{08A5}\x{10747F}.\x{7F0A8}\x{1D173}\x{10E7B}\x{DA4DD}", %p)}, undef, "to_unicode\(\'SS⒈\\u08A5\\uDBDD\\uDC7F.\\uD9BC\\uDCA8\\uD834\\uDD73\\uD803\\uDE7B\\uDB29\\uDCDD\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4881\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss⒈\x{08A5}\x{10747F}.\x{7F0A8}\x{1D173}\x{10E7B}\x{DA4DD}", %p)}, undef, "to_unicode\(\'ss⒈\\u08A5\\uDBDD\\uDC7F.\\uD9BC\\uDCA8\\uD834\\uDD73\\uD803\\uDE7B\\uDB29\\uDCDD\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4882\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss⒈\x{08A5}\x{10747F}.\x{7F0A8}\x{1D173}\x{10E7B}\x{DA4DD}", %p)}, undef, "to_unicode\(\'Ss⒈\\u08A5\\uDBDD\\uDC7F.\\uD9BC\\uDCA8\\uD834\\uDD73\\uD803\\uDE7B\\uDB29\\uDCDD\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4883\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(").2𝟠", %p)}, undef, "to_unicode\(\'\)\.2𝟠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4884\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(").28", %p)}, undef, "to_unicode\(\'\)\.28\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4885\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡂ\x{0652}。-ßᡳ\x{200C}", %p)}, undef, "to_unicode\(\'ᡂ\\u0652\。\-ßᡳ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4886\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡂ\x{0652}。-ßᡳ\x{200C}", %p)}, undef, "to_unicode\(\'ᡂ\\u0652\。\-ßᡳ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4887\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡂ\x{0652}。-SSᡳ\x{200C}", %p)}, undef, "to_unicode\(\'ᡂ\\u0652\。\-SSᡳ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4888\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡂ\x{0652}。-SSᡳ\x{200C}", %p)}, undef, "to_unicode\(\'ᡂ\\u0652\。\-SSᡳ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4889\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡂ\x{0652}。-ssᡳ\x{200C}", %p)}, undef, "to_unicode\(\'ᡂ\\u0652\。\-ssᡳ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4890\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡂ\x{0652}。-ssᡳ\x{200C}", %p)}, undef, "to_unicode\(\'ᡂ\\u0652\。\-ssᡳ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4891\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡂ\x{0652}。-Ssᡳ\x{200C}", %p)}, undef, "to_unicode\(\'ᡂ\\u0652\。\-Ssᡳ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4892\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡂ\x{0652}。-Ssᡳ\x{200C}", %p)}, undef, "to_unicode\(\'ᡂ\\u0652\。\-Ssᡳ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4893\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0ABC}\x{200D}ꡞ\x{4E737}.☸⋤Ⴡ", %p)}, undef, "to_unicode\(\'\\u0ABC\\u200Dꡞ\\uD8F9\\uDF37.\☸\⋤Ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4894\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0ABC}\x{200D}ꡞ\x{4E737}.☸⋤Ⴡ", %p)}, undef, "to_unicode\(\'\\u0ABC\\u200Dꡞ\\uD8F9\\uDF37.\☸\⋤Ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4895\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0ABC}\x{200D}ꡞ\x{4E737}.☸⋤Ⴡ", %p)}, undef, "to_unicode\(\'\\u0ABC\\u200Dꡞ\\uD8F9\\uDF37\.\☸\⋤Ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4896\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0ABC}\x{200D}ꡞ\x{4E737}.☸⋤Ⴡ", %p)}, undef, "to_unicode\(\'\\u0ABC\\u200Dꡞ\\uD8F9\\uDF37\.\☸\⋤Ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4897\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0ABC}\x{200D}ꡞ\x{4E737}.☸⋤ⴡ", %p)}, undef, "to_unicode\(\'\\u0ABC\\u200Dꡞ\\uD8F9\\uDF37\.\☸\⋤ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4898\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0ABC}\x{200D}ꡞ\x{4E737}.☸⋤ⴡ", %p)}, undef, "to_unicode\(\'\\u0ABC\\u200Dꡞ\\uD8F9\\uDF37\.\☸\⋤ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4899\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0ABC}\x{200D}ꡞ\x{4E737}.☸⋤ⴡ", %p)}, undef, "to_unicode\(\'\\u0ABC\\u200Dꡞ\\uD8F9\\uDF37.\☸\⋤ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4900\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0ABC}\x{200D}ꡞ\x{4E737}.☸⋤ⴡ", %p)}, undef, "to_unicode\(\'\\u0ABC\\u200Dꡞ\\uD8F9\\uDF37.\☸\⋤ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4901\]") 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\:4902\]") 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\:4903\]") 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\:4904\]") 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\:4905\]") 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\:4906\]") 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\:4907\]") 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\:4908\]") 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\:4909\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1734}︒.\x{06AF}≯\x{0845}", %p)}, undef, "to_unicode\(\'\\u1734︒\.\\u06AF\≯\\u0845\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4910\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1734}︒.\x{06AF}>\x{0338}\x{0845}", %p)}, undef, "to_unicode\(\'\\u1734︒\.\\u06AF\>\\u0338\\u0845\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4911\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1734}。.\x{06AF}≯\x{0845}", %p)}, undef, "to_unicode\(\'\\u1734\。\.\\u06AF\≯\\u0845\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:4912\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1734}。.\x{06AF}>\x{0338}\x{0845}", %p)}, undef, "to_unicode\(\'\\u1734\。\.\\u06AF\>\\u0338\\u0845\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:4913\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮≠𑂼。-\x{77850}ꡠ\x{10E76}", %p)}, undef, "to_unicode\(\'\≮\≠𑂼。\-\\uD99E\\uDC50ꡠ\\uD803\\uDE76\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4914\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}=\x{0338}𑂼。-\x{77850}ꡠ\x{10E76}", %p)}, undef, "to_unicode\(\'\<\\u0338\=\\u0338𑂼。\-\\uD99E\\uDC50ꡠ\\uD803\\uDE76\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4915\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮≠𑂼。-\x{77850}ꡠ\x{10E76}", %p)}, undef, "to_unicode\(\'\≮\≠𑂼\。\-\\uD99E\\uDC50ꡠ\\uD803\\uDE76\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4916\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}=\x{0338}𑂼。-\x{77850}ꡠ\x{10E76}", %p)}, undef, "to_unicode\(\'\<\\u0338\=\\u0338𑂼\。\-\\uD99E\\uDC50ꡠ\\uD803\\uDE76\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4917\]") 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{10E6B}ꡯ。\x{084B}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6Bꡯ\。\\u084B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4918\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴉ✦\x{6A994}\x{A806}.ß\x{10D58}\x{0669}\x{0641}", %p)}, undef, "to_unicode\(\'Ⴉ\✦\\uD96A\\uDD94\\uA806\.ß\\uD803\\uDD58\\u0669\\u0641\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4919\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴉ✦\x{6A994}\x{A806}.ß\x{10D58}\x{0669}\x{0641}", %p)}, undef, "to_unicode\(\'ⴉ\✦\\uD96A\\uDD94\\uA806\.ß\\uD803\\uDD58\\u0669\\u0641\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4920\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴉ✦\x{6A994}\x{A806}.SS\x{10D58}\x{0669}\x{0641}", %p)}, undef, "to_unicode\(\'Ⴉ\✦\\uD96A\\uDD94\\uA806\.SS\\uD803\\uDD58\\u0669\\u0641\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4921\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴉ✦\x{6A994}\x{A806}.ss\x{10D58}\x{0669}\x{0641}", %p)}, undef, "to_unicode\(\'ⴉ\✦\\uD96A\\uDD94\\uA806\.ss\\uD803\\uDD58\\u0669\\u0641\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4922\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴉ✦\x{6A994}\x{A806}.Ss\x{10D58}\x{0669}\x{0641}", %p)}, undef, "to_unicode\(\'Ⴉ\✦\\uD96A\\uDD94\\uA806\.Ss\\uD803\\uDD58\\u0669\\u0641\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4923\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{07CF}\x{10E81}🎅.\x{187E5}", %p)}, undef, "to_unicode\(\'\\u200D\\u07CF\\uD803\\uDE81🎅\.\\uD821\\uDFE5\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4924\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{07CF}\x{10E81}🎅.\x{187E5}", %p)}, undef, "to_unicode\(\'\\u200D\\u07CF\\uD803\\uDE81🎅\.\\uD821\\uDFE5\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4925\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("梉。\x{200C}", %p)}, undef, "to_unicode\(\'梉\。\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4926\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("梉。\x{200C}", %p)}, undef, "to_unicode\(\'梉\。\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4927\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--7zv.", %p)}, "梉.", "to_unicode\(\'xn\-\-7zv\.\'\)\ \[data\/IdnaTest\.txt\:4928\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("梉.", %p)}, "梉.", "to_unicode\(\'梉\.\'\)\ \[data\/IdnaTest\.txt\:4929\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075D}-≠.\x{200D}ꡘ⸈Ↄ", %p)}, undef, "to_unicode\(\'\\u075D\-\≠\.\\u200Dꡘ\⸈Ↄ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:4930\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075D}-≠.\x{200D}ꡘ⸈Ↄ", %p)}, undef, "to_unicode\(\'\\u075D\-\≠\.\\u200Dꡘ\⸈Ↄ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:4931\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075D}-=\x{0338}.\x{200D}ꡘ⸈Ↄ", %p)}, undef, "to_unicode\(\'\\u075D\-\=\\u0338\.\\u200Dꡘ\⸈Ↄ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:4932\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075D}-=\x{0338}.\x{200D}ꡘ⸈Ↄ", %p)}, undef, "to_unicode\(\'\\u075D\-\=\\u0338\.\\u200Dꡘ\⸈Ↄ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:4933\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075D}-=\x{0338}.\x{200D}ꡘ⸈ↄ", %p)}, undef, "to_unicode\(\'\\u075D\-\=\\u0338\.\\u200Dꡘ\⸈ↄ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:4934\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075D}-=\x{0338}.\x{200D}ꡘ⸈ↄ", %p)}, undef, "to_unicode\(\'\\u075D\-\=\\u0338\.\\u200Dꡘ\⸈ↄ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:4935\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075D}-≠.\x{200D}ꡘ⸈ↄ", %p)}, undef, "to_unicode\(\'\\u075D\-\≠\.\\u200Dꡘ\⸈ↄ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:4936\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075D}-≠.\x{200D}ꡘ⸈ↄ", %p)}, undef, "to_unicode\(\'\\u075D\-\≠\.\\u200Dꡘ\⸈ↄ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:4937\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς۲\x{1DFF}⸵。\x{1EC99}⁷🄂", %p)}, undef, "to_unicode\(\'ς۲\\u1DFF\⸵。\\uD83B\\uDC99⁷🄂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4938\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς۲\x{1DFF}⸵。\x{1EC99}71,", %p)}, undef, "to_unicode\(\'ς۲\\u1DFF\⸵\。\\uD83B\\uDC9971\,\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4939\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ۲\x{1DFF}⸵。\x{1EC99}71,", %p)}, undef, "to_unicode\(\'Σ۲\\u1DFF\⸵\。\\uD83B\\uDC9971\,\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4940\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ۲\x{1DFF}⸵。\x{1EC99}71,", %p)}, undef, "to_unicode\(\'σ۲\\u1DFF\⸵\。\\uD83B\\uDC9971\,\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4941\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ۲\x{1DFF}⸵。\x{1EC99}⁷🄂", %p)}, undef, "to_unicode\(\'Σ۲\\u1DFF\⸵。\\uD83B\\uDC99⁷🄂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4942\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ۲\x{1DFF}⸵。\x{1EC99}⁷🄂", %p)}, undef, "to_unicode\(\'σ۲\\u1DFF\⸵。\\uD83B\\uDC99⁷🄂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4943\]") 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{08AC}.\x{200C}ß", %p)}, undef, "to_unicode\(\'\\u08AC.\\u200Cß\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4944\]") 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{08AC}.\x{200C}ß", %p)}, undef, "to_unicode\(\'\\u08AC.\\u200Cß\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4945\]") 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{08AC}.\x{200C}ß", %p)}, undef, "to_unicode\(\'\\u08AC\.\\u200Cß\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4946\]") 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{08AC}.\x{200C}ß", %p)}, undef, "to_unicode\(\'\\u08AC\.\\u200Cß\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4947\]") 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{08AC}.\x{200C}SS", %p)}, undef, "to_unicode\(\'\\u08AC\.\\u200CSS\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4948\]") 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{08AC}.\x{200C}SS", %p)}, undef, "to_unicode\(\'\\u08AC\.\\u200CSS\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4949\]") 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{08AC}.\x{200C}ss", %p)}, undef, "to_unicode\(\'\\u08AC\.\\u200Css\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4950\]") 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{08AC}.\x{200C}ss", %p)}, undef, "to_unicode\(\'\\u08AC\.\\u200Css\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4951\]") 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{08AC}.\x{200C}Ss", %p)}, undef, "to_unicode\(\'\\u08AC\.\\u200CSs\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4952\]") 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{08AC}.\x{200C}Ss", %p)}, undef, "to_unicode\(\'\\u08AC\.\\u200CSs\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4953\]") 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--1yb.ss", %p)}, "\x{08AC}.ss", "to_unicode\(\'xn\-\-1yb\.ss\'\)\ \[data\/IdnaTest\.txt\:4954\]") 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{08AC}.ss", %p)}, "\x{08AC}.ss", "to_unicode\(\'\\u08AC\.ss\'\)\ \[data\/IdnaTest\.txt\:4955\]") 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{08AC}.\x{200C}SS", %p)}, undef, "to_unicode\(\'\\u08AC.\\u200CSS\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4956\]") 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{08AC}.\x{200C}SS", %p)}, undef, "to_unicode\(\'\\u08AC.\\u200CSS\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4957\]") 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{08AC}.\x{200C}ss", %p)}, undef, "to_unicode\(\'\\u08AC.\\u200Css\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4958\]") 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{08AC}.\x{200C}ss", %p)}, undef, "to_unicode\(\'\\u08AC.\\u200Css\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4959\]") 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{08AC}.\x{200C}Ss", %p)}, undef, "to_unicode\(\'\\u08AC.\\u200CSs\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4960\]") 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{08AC}.\x{200C}Ss", %p)}, undef, "to_unicode\(\'\\u08AC.\\u200CSs\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4961\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{A70C7}-.\x{200D}ꡓ\x{1CDF}⸺", %p)}, undef, "to_unicode\(\'\\uDA5C\\uDCC7\-\.\\u200Dꡓ\\u1CDF\⸺\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:4962\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A70C7}-.\x{200D}ꡓ\x{1CDF}⸺", %p)}, undef, "to_unicode\(\'\\uDA5C\\uDCC7\-\.\\u200Dꡓ\\u1CDF\⸺\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:4963\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䃚蟥-。-\x{78D20}⒈", %p)}, undef, "to_unicode\(\'䃚蟥\-\。\-\\uD9A3\\uDD20⒈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4964\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䃚蟥-。-\x{78D20}1.", %p)}, undef, "to_unicode\(\'䃚蟥\-\。\-\\uD9A3\\uDD201\.\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4965\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{10E7E}䚵-ᡐ。₠", %p)}, undef, "to_unicode\(\'\\uD803\\uDE7E䚵\-ᡐ\。₠\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4966\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0CCD}。\x{1ADC}\x{0603}", %p)}, undef, "to_unicode\(\'\\u0CCD\。\\u1ADC\\u0603\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4967\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮\x{10E62}.₅\x{1DCF}\x{0689}\x{10E78}", %p)}, undef, "to_unicode\(\'\≮\\uD803\\uDE62\.₅\\u1DCF\\u0689\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4968\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{10E62}.₅\x{1DCF}\x{0689}\x{10E78}", %p)}, undef, "to_unicode\(\'\<\\u0338\\uD803\\uDE62\.₅\\u1DCF\\u0689\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4969\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮\x{10E62}.5\x{1DCF}\x{0689}\x{10E78}", %p)}, undef, "to_unicode\(\'\≮\\uD803\\uDE62\.5\\u1DCF\\u0689\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4970\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{10E62}.5\x{1DCF}\x{0689}\x{10E78}", %p)}, undef, "to_unicode\(\'\<\\u0338\\uD803\\uDE62\.5\\u1DCF\\u0689\\uD803\\uDE78\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4971\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡏ≠\x{95144}.\x{200D}⁰", %p)}, undef, "to_unicode\(\'ᡏ\≠\\uDA14\\uDD44\.\\u200D⁰\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4972\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡏ≠\x{95144}.\x{200D}⁰", %p)}, undef, "to_unicode\(\'ᡏ\≠\\uDA14\\uDD44\.\\u200D⁰\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4973\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡏ=\x{0338}\x{95144}.\x{200D}⁰", %p)}, undef, "to_unicode\(\'ᡏ\=\\u0338\\uDA14\\uDD44\.\\u200D⁰\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4974\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡏ=\x{0338}\x{95144}.\x{200D}⁰", %p)}, undef, "to_unicode\(\'ᡏ\=\\u0338\\uDA14\\uDD44\.\\u200D⁰\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4975\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡏ≠\x{95144}.\x{200D}0", %p)}, undef, "to_unicode\(\'ᡏ\≠\\uDA14\\uDD44\.\\u200D0\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4976\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡏ≠\x{95144}.\x{200D}0", %p)}, undef, "to_unicode\(\'ᡏ\≠\\uDA14\\uDD44\.\\u200D0\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4977\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡏ=\x{0338}\x{95144}.\x{200D}0", %p)}, undef, "to_unicode\(\'ᡏ\=\\u0338\\uDA14\\uDD44\.\\u200D0\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4978\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡏ=\x{0338}\x{95144}.\x{200D}0", %p)}, undef, "to_unicode\(\'ᡏ\=\\u0338\\uDA14\\uDD44\.\\u200D0\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4979\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{108B1}≮\x{FBBBD}≯.\x{10E7D}\x{075E}\x{E0A7A}", %p)}, undef, "to_unicode\(\'\\uD802\\uDCB1\≮\\uDBAE\\uDFBD\≯.\\uD803\\uDE7D\\u075E\\uDB42\\uDE7A\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4980\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{108B1}<\x{0338}\x{FBBBD}>\x{0338}.\x{10E7D}\x{075E}\x{E0A7A}", %p)}, undef, "to_unicode\(\'\\uD802\\uDCB1\<\\u0338\\uDBAE\\uDFBD\>\\u0338.\\uD803\\uDE7D\\u075E\\uDB42\\uDE7A\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4981\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{108B1}≮\x{FBBBD}≯.\x{10E7D}\x{075E}\x{E0A7A}", %p)}, undef, "to_unicode\(\'\\uD802\\uDCB1\≮\\uDBAE\\uDFBD\≯\.\\uD803\\uDE7D\\u075E\\uDB42\\uDE7A\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4982\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{108B1}<\x{0338}\x{FBBBD}>\x{0338}.\x{10E7D}\x{075E}\x{E0A7A}", %p)}, undef, "to_unicode\(\'\\uD802\\uDCB1\<\\u0338\\uDBAE\\uDFBD\>\\u0338\.\\uD803\\uDE7D\\u075E\\uDB42\\uDE7A\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4983\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。\x{E014F}", %p)}, undef, "to_unicode\(\'\-。\\uDB40\\uDD4F\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4984\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。\x{E014F}", %p)}, undef, "to_unicode\(\'\-\。\\uDB40\\uDD4F\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4985\]") 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{08E8}.\x{1112F}", %p)}, undef, "to_unicode\(\'䷻\\u08E8.\\uD804\\uDD2F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4986\]") 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{08E8}.\x{11132}\x{11127}", %p)}, undef, "to_unicode\(\'䷻\\u08E8.\\uD804\\uDD32\\uD804\\uDD27\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4987\]") 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{08E8}.\x{1112F}", %p)}, undef, "to_unicode\(\'䷻\\u08E8\.\\uD804\\uDD2F\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4988\]") 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{08E8}.\x{11132}\x{11127}", %p)}, undef, "to_unicode\(\'䷻\\u08E8\.\\uD804\\uDD32\\uD804\\uDD27\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4989\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{E0EF4}.\x{9CCB1}\x{200C}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF4\.\\uDA33\\uDCB1\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4990\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0EF4}.\x{9CCB1}\x{200C}", %p)}, undef, "to_unicode\(\'\\uDB43\\uDEF4\.\\uDA33\\uDCB1\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4991\]") 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{105F}.\x{11180}", %p)}, undef, "to_unicode\(\'ꡈ\\u105F\.\\uD804\\uDD80\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4992\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("漦Ⴙς.\x{89D3C}\x{1EA85}", %p)}, undef, "to_unicode\(\'漦Ⴙς\.\\uD9E7\\uDD3C\\uD83A\\uDE85\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4993\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("漦ⴙς.\x{89D3C}\x{1EA85}", %p)}, undef, "to_unicode\(\'漦ⴙς\.\\uD9E7\\uDD3C\\uD83A\\uDE85\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4994\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("漦ႹΣ.\x{89D3C}\x{1EA85}", %p)}, undef, "to_unicode\(\'漦ႹΣ\.\\uD9E7\\uDD3C\\uD83A\\uDE85\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4995\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("漦ⴙσ.\x{89D3C}\x{1EA85}", %p)}, undef, "to_unicode\(\'漦ⴙσ\.\\uD9E7\\uDD3C\\uD83A\\uDE85\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4996\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("漦Ⴙσ.\x{89D3C}\x{1EA85}", %p)}, undef, "to_unicode\(\'漦Ⴙσ\.\\uD9E7\\uDD3C\\uD83A\\uDE85\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4997\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E6E}踧\x{09CD}\x{D614C}.\x{44985}⒈\x{E0148}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6E踧\\u09CD\\uDB18\\uDD4C\.\\uD8D2\\uDD85⒈\\uDB40\\uDD48\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4998\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{10E6E}踧\x{09CD}\x{D614C}.\x{44985}1.\x{E0148}", %p)}, undef, "to_unicode\(\'\\uD803\\uDE6E踧\\u09CD\\uDB18\\uDD4C\.\\uD8D2\\uDD851\.\\uDB40\\uDD48\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4999\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}≮.📃\x{335B4}-", %p)}, undef, "to_unicode\(\'\\u200D\≮.📃\\uD88D\\uDDB4\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5000\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}≮.📃\x{335B4}-", %p)}, undef, "to_unicode\(\'\\u200D\≮.📃\\uD88D\\uDDB4\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5001\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}<\x{0338}.📃\x{335B4}-", %p)}, undef, "to_unicode\(\'\\u200D\<\\u0338.📃\\uD88D\\uDDB4\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5002\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}<\x{0338}.📃\x{335B4}-", %p)}, undef, "to_unicode\(\'\\u200D\<\\u0338.📃\\uD88D\\uDDB4\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5003\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}≮.📃\x{335B4}-", %p)}, undef, "to_unicode\(\'\\u200D\≮\.📃\\uD88D\\uDDB4\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5004\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}≮.📃\x{335B4}-", %p)}, undef, "to_unicode\(\'\\u200D\≮\.📃\\uD88D\\uDDB4\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5005\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}<\x{0338}.📃\x{335B4}-", %p)}, undef, "to_unicode\(\'\\u200D\<\\u0338\.📃\\uD88D\\uDDB4\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5006\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}<\x{0338}.📃\x{335B4}-", %p)}, undef, "to_unicode\(\'\\u200D\<\\u0338\.📃\\uD88D\\uDDB4\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5007\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200D}襔。Ⴜ𝟧ᢧ\x{D5132}", %p)}, undef, "to_unicode\(\'\\u200D\\u200D襔\。Ⴜ𝟧ᢧ\\uDB14\\uDD32\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:5008\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200D}襔。Ⴜ𝟧ᢧ\x{D5132}", %p)}, undef, "to_unicode\(\'\\u200D\\u200D襔\。Ⴜ𝟧ᢧ\\uDB14\\uDD32\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:5009\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200D}襔。Ⴜ5ᢧ\x{D5132}", %p)}, undef, "to_unicode\(\'\\u200D\\u200D襔\。Ⴜ5ᢧ\\uDB14\\uDD32\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:5010\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200D}襔。Ⴜ5ᢧ\x{D5132}", %p)}, undef, "to_unicode\(\'\\u200D\\u200D襔\。Ⴜ5ᢧ\\uDB14\\uDD32\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:5011\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200D}襔。ⴜ5ᢧ\x{D5132}", %p)}, undef, "to_unicode\(\'\\u200D\\u200D襔\。ⴜ5ᢧ\\uDB14\\uDD32\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:5012\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200D}襔。ⴜ5ᢧ\x{D5132}", %p)}, undef, "to_unicode\(\'\\u200D\\u200D襔\。ⴜ5ᢧ\\uDB14\\uDD32\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:5013\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200D}襔。ⴜ𝟧ᢧ\x{D5132}", %p)}, undef, "to_unicode\(\'\\u200D\\u200D襔\。ⴜ𝟧ᢧ\\uDB14\\uDD32\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:5014\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200D}襔。ⴜ𝟧ᢧ\x{D5132}", %p)}, undef, "to_unicode\(\'\\u200D\\u200D襔\。ⴜ𝟧ᢧ\\uDB14\\uDD32\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:5015\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C7}\x{E019D}\x{200D}.婀", %p)}, undef, "to_unicode\(\'\\u06C7\\uDB40\\uDD9D\\u200D.婀\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:5016\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C7}\x{E019D}\x{200D}.婀", %p)}, undef, "to_unicode\(\'\\u06C7\\uDB40\\uDD9D\\u200D.婀\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:5017\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C7}\x{E019D}\x{200D}.婀", %p)}, undef, "to_unicode\(\'\\u06C7\\uDB40\\uDD9D\\u200D\.婀\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:5018\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C7}\x{E019D}\x{200D}.婀", %p)}, undef, "to_unicode\(\'\\u06C7\\uDB40\\uDD9D\\u200D\.婀\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:5019\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--6kb.xn--q0s", %p)}, "\x{06C7}.婀", "to_unicode\(\'xn\-\-6kb\.xn\-\-q0s\'\)\ \[data\/IdnaTest\.txt\:5020\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C7}.婀", %p)}, "\x{06C7}.婀", "to_unicode\(\'\\u06C7\.婀\'\)\ \[data\/IdnaTest\.txt\:5021\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0117}︒︒\x{10E6B}。▨\x{E015B}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD17︒︒\\uD803\\uDE6B。\▨\\uDB40\\uDD5B\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5022\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{E0117}。。\x{10E6B}。▨\x{E015B}", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD17\。\。\\uD803\\uDE6B\。\▨\\uDB40\\uDD5B\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:5023\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("🄀ß.\x{0369}-\x{DBDA}Ⴏ", %p)}, undef, "to_unicode\(\'🄀ß.\\u0369\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5024\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0.ß.\x{0369}-\x{DBDA}Ⴏ", %p)}, undef, "to_unicode\(\'0\.ß\.\\u0369\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5025\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0.ß.\x{0369}-\x{DBDA}ⴏ", %p)}, undef, "to_unicode\(\'0\.ß\.\\u0369\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5026\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0.SS.\x{0369}-\x{DBDA}Ⴏ", %p)}, undef, "to_unicode\(\'0\.SS\.\\u0369\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5027\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0.ss.\x{0369}-\x{DBDA}ⴏ", %p)}, undef, "to_unicode\(\'0\.ss\.\\u0369\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5028\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄀ß.\x{0369}-\x{DBDA}ⴏ", %p)}, undef, "to_unicode\(\'🄀ß.\\u0369\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5029\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄀SS.\x{0369}-\x{DBDA}Ⴏ", %p)}, undef, "to_unicode\(\'🄀SS.\\u0369\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5030\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄀ss.\x{0369}-\x{DBDA}ⴏ", %p)}, undef, "to_unicode\(\'🄀ss.\\u0369\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5031\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄀Ss.\x{0369}-\x{DBDA}Ⴏ", %p)}, undef, "to_unicode\(\'🄀Ss.\\u0369\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5032\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200D}\x{E02DF}.\x{200C}\x{06DD}Ⴅ", %p)}, undef, "to_unicode\(\'\-\\u200D\\uDB40\\uDEDF\.\\u200C\\u06DDႥ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:5033\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200D}\x{E02DF}.\x{200C}\x{06DD}Ⴅ", %p)}, undef, "to_unicode\(\'\-\\u200D\\uDB40\\uDEDF\.\\u200C\\u06DDႥ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:5034\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200D}\x{E02DF}.\x{200C}\x{06DD}ⴅ", %p)}, undef, "to_unicode\(\'\-\\u200D\\uDB40\\uDEDF\.\\u200C\\u06DDⴅ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:5035\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200D}\x{E02DF}.\x{200C}\x{06DD}ⴅ", %p)}, undef, "to_unicode\(\'\-\\u200D\\uDB40\\uDEDF\.\\u200C\\u06DDⴅ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:5036\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DF0}\x{200D}큷\x{45C6B}。⒒", %p)}, undef, "to_unicode\(\'\\u2DF0\\u200D큷\\uD8D7\\uDC6B。⒒\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5037\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DF0}\x{200D}큷\x{45C6B}。⒒", %p)}, undef, "to_unicode\(\'\\u2DF0\\u200D큷\\uD8D7\\uDC6B。⒒\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5038\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DF0}\x{200D}큷\x{45C6B}。⒒", %p)}, undef, "to_unicode\(\'\\u2DF0\\u200D큷\\uD8D7\\uDC6B。⒒\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5039\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DF0}\x{200D}큷\x{45C6B}。⒒", %p)}, undef, "to_unicode\(\'\\u2DF0\\u200D큷\\uD8D7\\uDC6B。⒒\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5040\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DF0}\x{200D}큷\x{45C6B}。11.", %p)}, undef, "to_unicode\(\'\\u2DF0\\u200D큷\\uD8D7\\uDC6B\。11\.\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5041\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DF0}\x{200D}큷\x{45C6B}。11.", %p)}, undef, "to_unicode\(\'\\u2DF0\\u200D큷\\uD8D7\\uDC6B\。11\.\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5042\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DF0}\x{200D}큷\x{45C6B}。11.", %p)}, undef, "to_unicode\(\'\\u2DF0\\u200D큷\\uD8D7\\uDC6B\。11\.\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5043\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2DF0}\x{200D}큷\x{45C6B}。11.", %p)}, undef, "to_unicode\(\'\\u2DF0\\u200D큷\\uD8D7\\uDC6B\。11\.\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5044\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{DF4D}.𝟨\x{0638}", %p)}, undef, "to_unicode\(\'\\uDF4D\.𝟨\\u0638\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5045\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{DF4D}.6\x{0638}", %p)}, undef, "to_unicode\(\'\\uDF4D\.6\\u0638\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5046\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0188}\x{1E9CF}。\x{10E6E}\x{42C61}\x{1DD9}⒈", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD88\\uD83A\\uDDCF\。\\uD803\\uDE6E\\uD8CB\\uDC61\\u1DD9⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5047\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E0188}\x{1E9CF}。\x{10E6E}\x{42C61}\x{1DD9}1.", %p)}, undef, "to_unicode\(\'\\uDB40\\uDD88\\uD83A\\uDDCF\。\\uD803\\uDE6E\\uD8CB\\uDC61\\u1DD91\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5048\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{CF578}\x{10EF6}\x{0712}。Ⴈ\x{200D}", %p)}, undef, "to_unicode\(\'\\uDAFD\\uDD78\\uD803\\uDEF6\\u0712\。Ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:5049\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{CF578}\x{10EF6}\x{0712}。Ⴈ\x{200D}", %p)}, undef, "to_unicode\(\'\\uDAFD\\uDD78\\uD803\\uDEF6\\u0712\。Ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:5050\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{CF578}\x{10EF6}\x{0712}。ⴈ\x{200D}", %p)}, undef, "to_unicode\(\'\\uDAFD\\uDD78\\uD803\\uDEF6\\u0712\。ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:5051\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{CF578}\x{10EF6}\x{0712}。ⴈ\x{200D}", %p)}, undef, "to_unicode\(\'\\uDAFD\\uDD78\\uD803\\uDEF6\\u0712\。ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:5052\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{66A3E}\x{A9B9}\x{06C2}⒈.\x{073C}髯\x{200C}", %p)}, undef, "to_unicode\(\'\\uD95A\\uDE3E\\uA9B9\\u06C2⒈.\\u073C髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ C1\ \[data\/IdnaTest\.txt\:5053\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{66A3E}\x{A9B9}\x{06C2}⒈.\x{073C}髯\x{200C}", %p)}, undef, "to_unicode\(\'\\uD95A\\uDE3E\\uA9B9\\u06C2⒈.\\u073C髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ C1\ \[data\/IdnaTest\.txt\:5054\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{66A3E}\x{A9B9}\x{06C1}\x{0654}⒈.\x{073C}髯\x{200C}", %p)}, undef, "to_unicode\(\'\\uD95A\\uDE3E\\uA9B9\\u06C1\\u0654⒈.\\u073C髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ C1\ \[data\/IdnaTest\.txt\:5055\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{66A3E}\x{A9B9}\x{06C1}\x{0654}⒈.\x{073C}髯\x{200C}", %p)}, undef, "to_unicode\(\'\\uD95A\\uDE3E\\uA9B9\\u06C1\\u0654⒈.\\u073C髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ C1\ \[data\/IdnaTest\.txt\:5056\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{66A3E}\x{A9B9}\x{06C2}1..\x{073C}髯\x{200C}", %p)}, undef, "to_unicode\(\'\\uD95A\\uDE3E\\uA9B9\\u06C21\.\.\\u073C髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ A4_2\ C1\ \[data\/IdnaTest\.txt\:5057\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{66A3E}\x{A9B9}\x{06C2}1..\x{073C}髯\x{200C}", %p)}, undef, "to_unicode\(\'\\uD95A\\uDE3E\\uA9B9\\u06C21\.\.\\u073C髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ A4_2\ C1\ \[data\/IdnaTest\.txt\:5058\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{66A3E}\x{A9B9}\x{06C1}\x{0654}1..\x{073C}髯\x{200C}", %p)}, undef, "to_unicode\(\'\\uD95A\\uDE3E\\uA9B9\\u06C1\\u06541\.\.\\u073C髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ A4_2\ C1\ \[data\/IdnaTest\.txt\:5059\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{66A3E}\x{A9B9}\x{06C1}\x{0654}1..\x{073C}髯\x{200C}", %p)}, undef, "to_unicode\(\'\\uD95A\\uDE3E\\uA9B9\\u06C1\\u06541\.\.\\u073C髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B5\ A4_2\ C1\ \[data\/IdnaTest\.txt\:5060\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{06A6}.\x{07E6}\x{1A62}", %p)}, "\x{06A6}.\x{07E6}\x{1A62}", "to_unicode\(\'\\u06A6.\\u07E6\\u1A62\'\)\ \[data\/IdnaTest\.txt\:5061\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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{06A6}.\x{07E6}\x{1A62}", %p)}, "\x{06A6}.\x{07E6}\x{1A62}", "to_unicode\(\'\\u06A6\.\\u07E6\\u1A62\'\)\ \[data\/IdnaTest\.txt\:5062\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) 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--8jb.xn--etb875g", %p)}, "\x{06A6}.\x{07E6}\x{1A62}", "to_unicode\(\'xn\-\-8jb\.xn\-\-etb875g\'\)\ \[data\/IdnaTest\.txt\:5063\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0D4D}.\x{1E86E}", %p)}, undef, "to_unicode\(\'\\u0D4D.\\uD83A\\uDC6E\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5064\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0D4D}.\x{1E86E}", %p)}, undef, "to_unicode\(\'\\u0D4D\.\\uD83A\\uDC6E\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5065\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠膣。\x{0DD2}", %p)}, undef, "to_unicode\(\'\≠膣\。\\u0DD2\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5066\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}膣。\x{0DD2}", %p)}, undef, "to_unicode\(\'\=\\u0338膣\。\\u0DD2\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5067\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{745DA}-\x{08A8}。ß", %p)}, undef, "to_unicode\(\'\\uD991\\uDDDA\-\\u08A8。ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5068\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{745DA}-\x{08A8}。ß", %p)}, undef, "to_unicode\(\'\\uD991\\uDDDA\-\\u08A8\。ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5069\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{745DA}-\x{08A8}。SS", %p)}, undef, "to_unicode\(\'\\uD991\\uDDDA\-\\u08A8\。SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5070\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{745DA}-\x{08A8}。SS", %p)}, undef, "to_unicode\(\'\\uD991\\uDDDA\-\\u08A8。SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5071\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{0669}ᡲ\x{17D2}.\x{0321}\x{10E68}\x{45953}\x{069D}", %p)}, undef, "to_unicode\(\'ς\\u0669ᡲ\\u17D2.\\u0321\\uD803\\uDE68\\uD8D6\\uDD53\\u069D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:5072\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{0669}ᡲ\x{17D2}.\x{0321}\x{10E68}\x{45953}\x{069D}", %p)}, undef, "to_unicode\(\'ς\\u0669ᡲ\\u17D2\.\\u0321\\uD803\\uDE68\\uD8D6\\uDD53\\u069D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:5073\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{0669}ᡲ\x{17D2}.\x{0321}\x{10E68}\x{45953}\x{069D}", %p)}, undef, "to_unicode\(\'Σ\\u0669ᡲ\\u17D2\.\\u0321\\uD803\\uDE68\\uD8D6\\uDD53\\u069D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:5074\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{0669}ᡲ\x{17D2}.\x{0321}\x{10E68}\x{45953}\x{069D}", %p)}, undef, "to_unicode\(\'σ\\u0669ᡲ\\u17D2\.\\u0321\\uD803\\uDE68\\uD8D6\\uDD53\\u069D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:5075\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{0669}ᡲ\x{17D2}.\x{0321}\x{10E68}\x{45953}\x{069D}", %p)}, undef, "to_unicode\(\'Σ\\u0669ᡲ\\u17D2.\\u0321\\uD803\\uDE68\\uD8D6\\uDD53\\u069D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:5076\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{0669}ᡲ\x{17D2}.\x{0321}\x{10E68}\x{45953}\x{069D}", %p)}, undef, "to_unicode\(\'σ\\u0669ᡲ\\u17D2.\\u0321\\uD803\\uDE68\\uD8D6\\uDD53\\u069D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:5077\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟹。\x{200D}", %p)}, undef, "to_unicode\(\'𝟹\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:5078\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟹。\x{200D}", %p)}, undef, "to_unicode\(\'𝟹\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:5079\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3。\x{200D}", %p)}, undef, "to_unicode\(\'3\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:5080\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3。\x{200D}", %p)}, undef, "to_unicode\(\'3\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:5081\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3.", %p)}, "3.", "to_unicode\(\'3\.\'\)\ \[data\/IdnaTest\.txt\:5082\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⽬\x{1B72}。\x{E0CD8}", %p)}, undef, "to_unicode\(\'⽬\\u1B72\。\\uDB43\\uDCD8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5083\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("目\x{1B72}。\x{E0CD8}", %p)}, undef, "to_unicode\(\'目\\u1B72\。\\uDB43\\uDCD8\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5084\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0732}䁴\x{B67F6}.Ⴕ🄈\x{200C}\x{AAB7}", %p)}, undef, "to_unicode\(\'\\u0732䁴\\uDA99\\uDFF6.Ⴕ🄈\\u200C\\uAAB7\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5085\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0732}䁴\x{B67F6}.Ⴕ🄈\x{200C}\x{AAB7}", %p)}, undef, "to_unicode\(\'\\u0732䁴\\uDA99\\uDFF6.Ⴕ🄈\\u200C\\uAAB7\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5086\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0732}䁴\x{B67F6}.Ⴕ7,\x{200C}\x{AAB7}", %p)}, undef, "to_unicode\(\'\\u0732䁴\\uDA99\\uDFF6\.Ⴕ7\,\\u200C\\uAAB7\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5087\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0732}䁴\x{B67F6}.Ⴕ7,\x{200C}\x{AAB7}", %p)}, undef, "to_unicode\(\'\\u0732䁴\\uDA99\\uDFF6\.Ⴕ7\,\\u200C\\uAAB7\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5088\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0732}䁴\x{B67F6}.ⴕ7,\x{200C}\x{AAB7}", %p)}, undef, "to_unicode\(\'\\u0732䁴\\uDA99\\uDFF6\.ⴕ7\,\\u200C\\uAAB7\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5089\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0732}䁴\x{B67F6}.ⴕ7,\x{200C}\x{AAB7}", %p)}, undef, "to_unicode\(\'\\u0732䁴\\uDA99\\uDFF6\.ⴕ7\,\\u200C\\uAAB7\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5090\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0732}䁴\x{B67F6}.ⴕ🄈\x{200C}\x{AAB7}", %p)}, undef, "to_unicode\(\'\\u0732䁴\\uDA99\\uDFF6.ⴕ🄈\\u200C\\uAAB7\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5091\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0732}䁴\x{B67F6}.ⴕ🄈\x{200C}\x{AAB7}", %p)}, undef, "to_unicode\(\'\\u0732䁴\\uDA99\\uDFF6.ⴕ🄈\\u200C\\uAAB7\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5092\]") 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\:5093\]") 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\:5094\]") 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\:5095\]") 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\:5096\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("憡\x{DF1F}\x{200C}Ⴔ.5\x{200D}≠", %p)}, undef, "to_unicode\(\'憡\\uDF1F\\u200CႴ\.5\\u200D\≠\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:5097\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("憡\x{DF1F}\x{200C}Ⴔ.5\x{200D}≠", %p)}, undef, "to_unicode\(\'憡\\uDF1F\\u200CႴ\.5\\u200D\≠\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:5098\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("憡\x{DF1F}\x{200C}Ⴔ.5\x{200D}=\x{0338}", %p)}, undef, "to_unicode\(\'憡\\uDF1F\\u200CႴ\.5\\u200D\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:5099\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("憡\x{DF1F}\x{200C}Ⴔ.5\x{200D}=\x{0338}", %p)}, undef, "to_unicode\(\'憡\\uDF1F\\u200CႴ\.5\\u200D\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:5100\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("", %p)}, undef, "to_unicode\(\'\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:5101\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("憡\x{DF1F}\x{200C}ⴔ.5\x{200D}=\x{0338}", %p)}, undef, "to_unicode\(\'憡\\uDF1F\\u200Cⴔ\.5\\u200D\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:5102\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("憡\x{DF1F}\x{200C}ⴔ.5\x{200D}=\x{0338}", %p)}, undef, "to_unicode\(\'憡\\uDF1F\\u200Cⴔ\.5\\u200D\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:5103\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("憡\x{DF1F}\x{200C}ⴔ.5\x{200D}≠", %p)}, undef, "to_unicode\(\'憡\\uDF1F\\u200Cⴔ\.5\\u200D\≠\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:5104\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("憡\x{DF1F}\x{200C}ⴔ.5\x{200D}≠", %p)}, undef, "to_unicode\(\'憡\\uDF1F\\u200Cⴔ\.5\\u200D\≠\'\)\ 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}≠", %p)}, undef, "to_unicode\(\'憡\\uDF1F\\u200Cⴔ\.𝟓\\u200D\≠\'\)\ 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($@)); exit(0); Net-IDN-Encode-2.100/t/xtra_pp.t000444000765000024 131712260275730 16352 0ustar00cfaerberstaff000000000000use 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);